Routine: IBCNSA

Package	Total	Call Graph
Integrated Billing	7	$$GRP^IBCNS EN^IBCNSA0 EN^IBCNSA1 INSCO^IBCNSC $$LK^IBCNSM31 $$AB^IBCNSU $$DAT1^IBOUTL
Registration	3	EN^VALM PAUSE^VALM1 (CLEAN,SET)^VALM10
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
VA Fileman	1	^DIC

Package	Total	Caller Graph
Integrated Billing	4	IBCNSA1 IBCNSA2 IBCNSD IBCNSD1

Name	Comments	DBIA/ICR reference
GETPOLQ
EN	; -- main entry point for IBCNS ANNUAL BENEFITS
HELP	; -- Help Code
GETYR	;
GETYR2Q
HDR(SCR)	; -- joint header logic
GETYRQ
INIT	; -- init variables and list array
GETYR2	; -- get policy year from 355.4 from bu
EXIT	;
GY1
BLD	; -- List builder
BLANK(LINE)	; -- Build blank line
GETPOL	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No Benefit Years Entered." Line Location: GY1+7
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+3
Routine Call	DIC Line Location: GY1+17 GETYR2+11

FileNo	Call Tags
^IBA(355.4 - [#355.4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(36 - [#36]	HDR+1
^DPT - [#2]	HDR+2
^IBA(355.3 - [#355.3]	HDR+1, INIT+8
^IBA(355.4 - [#355.4]	INIT+7, GY1+2, GY1+5, GY1+11, GETYR2+7
^TMP("IBCNSA"	INIT+10!
^TMP("XQORS"	EN+1!

Name	Field # of Occurrence
%DT	EN+1!, GY1~
>> DFN	HDR+2
DIC	EN+1!, GY1+12, GY1+17!, GETYR2+3~, GETYR2+9, GETYR2+11!
DIC("A"	GY1+12, GETYR2+9
DIC("B"	GY1+11, GETYR2+8
DIC("DR"	GY1+15*
DIC("S"	GY1+13, GETYR2+10
DIC("W"	GY1+14*
DIC(0	GY1+12, GETYR2+9
>> DLAYGO	GY1+16*
>> I	BLD+2*
IBCAB	INIT+1!, INIT+6, INIT+7, GY1+18, EXIT+1!
IBCABC	INIT+8*, EXIT+1!
IBCABD	INIT+7*, INIT+8, EXIT+1!
IBCABD1	EXIT+1!
IBCABD2	EXIT+1!
IBCABD3	EXIT+1!
IBCABD4	EXIT+1!
IBCABD5	EXIT+1!
>> IBCGN	HDR+4, INIT+9*
IBCHANGE	EN+2*, EXIT+1!
IBCNS	EN+1!, GETPOL+1, GETPOL+2
>> IBCNT	GY1+1, GY1+3, GY1+4, GY1+5, GY1+7
IBCPOL	EN+1!, HDR+1, INIT+4, INIT+6, INIT+9, GETPOL+2*, GETPOL+6, GETYR+1, GY1+2, GY1+11 , GY1+15, GETYR2+1, GETYR2+7
>> IBDA	GY1+2*, GY1+5
>> IBDT	GY1+2*
>> IBEXP1	GETYR2+5*, GETYR2+7
>> IBEXP2	GETYR2+6*, GETYR2+7
>> IBL	GY1+12, GY1+16
IBPAT	HDR+2, HDR+4, INIT+1!
>> IBVIEW	GETYR2+7
>> IBYE	HDR+4
IBYR	EN+1!, INIT+3!, INIT+5, INIT+6, GETYR+2, GY1+18, GY1+20, GETYR2+2, GETYR2+12, GETYR2+13* , GETYR2+14, EXIT+1!
LINE	BLANK~, BLANK+1
SCR	HDR~, HDR+3
U	HDR+1, INIT+8
>> VALMBG	INIT+2*
>> VALMCNT	INIT+2, BLD+1
VALMEVL	EN+1!
>> VALMHDR(1	HDR+3*
>> VALMHDR(2	HDR+4*
VALMQUIT	EN+1!, INIT+1!, INIT+4, INIT+5, GETPOL+1, GETPOL+6, GETYR+1, GETYR+2, GY1+20, GETYR2+1* , GETYR2+2, GETYR2+7, GETYR2+14, EXIT+1!
X	GY1+11, GETYR2+3~, GETYR2+7, GETYR2+8, HELP+1
XQORS	EN+1!
Y	HDR+1, HDR+2, HDR+3, GY1+18, GETYR2+3~, GETYR2+13

Information