Routine: IBCNSM5

Information

IBCNSM5 ;ALB/NLR - INSURANCE MANAGEMENT WORKSHEET ; 23-JUL-93

Source Information

Source file <IBCNSM5.m>

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Integrated Billing	7	$$GRP^IBCNS EN^IBCNSM ($$DOL,BL1)^IBCNSM6 BL2^IBCNSM7 (BL3,BL4)^IBCNSM8 (BL5,BL6,BL7)^IBCNSM9 $$DAT1^IBOUTL
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$HTE^XLFDT
Registration	2	(DEM,PID)^VADPT (FULL,PAUSE)^VALM1
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Integrated Billing	2	IBCNSM1 IBCNSM9

Entry Points

Name	Comments	DBIA/ICR reference
PR	; -- set variables needed for file navigation, print insurance worksheet or coverage
ASKQ	;
HDR	; -- print header
R1Q
GETEN1	; -- find IEN of most recent policy
WPPC	; -- print insurance management worksheet, insurance coverage
GETEN2	; -- get IEN of next-to-most-recent entry (Print Coverage)
DEV	; -- ask for device
PR1Q
ASK	; -- if Print Coverage and no benefit years for selected policy, ask if user wants worksheet
PRQ
PRINT	; -- print insurance management worksheet/insurance coverage
GETEN1Q
SETVAR	; -- set variables needed for file navigation
WPPCQ
DQ	;

External References

Name	Field # of Occurrence
^%ZIS	DEV+3
HOME^%ZIS	DEV+4
^%ZISC	WPPCQ+1
^%ZTLOAD	DEV+4
^DIR	ASK+5
$$GRP^IBCNS	SETVAR+13
EN^IBCNSM	%
$$DOL^IBCNSM6	HDR+9, HDR+11
BL1^IBCNSM6	PRINT+4
BL2^IBCNSM7	PRINT+4
BL3^IBCNSM8	PRINT+4
BL4^IBCNSM8	PRINT+4
BL5^IBCNSM9	PRINT+4
BL6^IBCNSM9	PRINT+4
BL7^IBCNSM9	PRINT+4
$$DAT1^IBOUTL	HDR+10
DEM^VADPT	HDR+7
PID^VADPT	PRINT+2
FULL^VALM1	DEV+5
PAUSE^VALM1	DQ+5, HDR+2, ASK+7
$$HTE^XLFDT	DQ+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"MOST RECENT ENTRY IS "_$$DAT1^IBOUTL(IBYR)_". ENTRY CANNOT BE MORE THAN A YEAR OLD.",!!,"YOU MAY PRINT ENTRY UNDER 'PC'.",!! Line Location: GETEN1+12
Routine Call	%ZIS Line Location: DEV+4
Routine Call	DIR Line Location: ASK+5
Routine Call	%ZIS Line Location: DEV+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(36 - [#36]	SETVAR+5, SETVAR+6, HDR+9
^DPT - [#2]	SETVAR+2, SETVAR+3, SETVAR+4
^IBA(355.3 - [#355.3]	SETVAR+8
^IBA(355.4 - [#355.4]	GETEN1+4, GETEN1+6, GETEN1+9, SETVAR+15, SETVAR+16, SETVAR+17, SETVAR+18, SETVAR+19, GETEN2+2, GETEN2+4
^IBA(355.5 - [#355.5]	SETVAR+10, SETVAR+11, SETVAR+12
^IBE(355.1 - [#355.1]	HDR+11

Label References

Name	Line Occurrences
ASK	GETEN1+7
ASKQ	ASK+5, ASK+6
DEV	WPPC+5
GETEN1	WPPC+4
GETEN1Q	GETEN1+5, GETEN1+7
GETEN2	DQ+3
HDR	PRINT+3
PR	DQ+2, DQ+4
PR1Q	GETEN2+2
PRINT	PR+3
R1Q	DEV+3
SETVAR	PR+2
WPPCQ	WPPC+4, WPPC+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV+3*
>> DA	GETEN1+4
>> DFN	SETVAR+2, SETVAR+3, SETVAR+4, SETVAR+9, SETVAR+10
DIR	ASK+5!
DIR("A"	ASK+3*
DIR("B"	ASK+3*
DIR(0	ASK+3*
>> DIRUT	WPPC+4, DQ+5, GETEN1+7, HDR+2, ASK+5
DT	WPPC+4, GETEN1+6, GETEN1+8
>> FILE	SETVAR+9*
IBCAB	WPPC+2~, GETEN1+9, SETVAR+15, SETVAR+16, SETVAR+17, SETVAR+18, SETVAR+19, HDR+10, GETEN2+4
>> IBCABD	SETVAR+15*
>> IBCABD2	SETVAR+16*
>> IBCABD3	SETVAR+17*
>> IBCABD4	SETVAR+18*
>> IBCABD5	SETVAR+19*
>> IBCBU	SETVAR+10*, SETVAR+11, SETVAR+12
>> IBCBUD	SETVAR+11*
>> IBCBUD1	SETVAR+12*
>> IBCDFN	SETVAR+7*, SETVAR+10
>> IBCDFND	SETVAR+2*, SETVAR+5, SETVAR+6, SETVAR+7, SETVAR+8, HDR+9
>> IBCDFND1	SETVAR+3*
>> IBCDFND2	SETVAR+4*
>> IBCDFNDA	SETVAR+5*
>> IBCDFNDB	SETVAR+6*
>> IBCGN	SETVAR+13*
>> IBCNS	SETVAR+2, SETVAR+7
IBCPOL	WPPCQ+2!, GETEN1+4, GETEN1+5, GETEN1+6, GETEN1+9, SETVAR+7, SETVAR+10, SETVAR+13, GETEN2+2, GETEN2+4
>> IBCPOLD	SETVAR+8*, HDR+9, HDR+11
>> IBCY	DQ+3, DQ+4, ASK+6*
>> IBHDT	DQ+1*, HDR+5
>> IBLINE	WPPC+4, GETEN1+7, GETEN1+8, HDR+5, HDR+9, HDR+11, ASK+6*
IBPAG	WPPC+2~, DQ+1, DQ+5, HDR+2, HDR+3, HDR+4, HDR+5
>> IBPAT	SETVAR+14*
IBPIB1	WPPC+2~, WPPC+3, WPPCQ+2!, HDR+5, GETEN2+5
>> IBPPOL	SETVAR+2, SETVAR+3, SETVAR+4, SETVAR+7
IBQUIT	WPPC+2~, WPPC+6, DQ+5, DEV+3, DEV+4, HDR+2, ASK+5*
IBW	WPPC+2~, WPPC+3, WPPC+4, WPPCQ+2!, GETEN1+7, ASK+6, ASK+7*
IBYR	WPPC+4, DQ+4, WPPCQ+2!, GETEN1+6, GETEN1+7, GETEN1+8, GETEN1+9, SETVAR+10, HDR+10, GETEN2+2* , GETEN2+3*, GETEN2+4
IO	DEV+6
IO("Q"	DEV+4!
IOF	HDR+3
IOM	HDR+5, HDR+6
IOST	DQ+5, DEV+5, HDR+2, HDR+3
>> POP	DEV+3
>> VA("PID"	HDR+8
>> VADM(1	HDR+8
>> VADM(3	HDR+8
>> Y	ASK+6
>> ZTDESC	DEV+4*
>> ZTQUEUED	WPPCQ
>> ZTREQ	WPPCQ*
>> ZTRTN	DEV+4*
>> ZTSAVE("DFN"	DEV+4*
>> ZTSAVE("IB*"	DEV+4*
ZTSK	DEV+4!

Customize PDF page

Package: Integrated Billing

Routine: IBCNSM5

Call Graph Total: 14

Caller Graph Total: 2