Routine: IBCNSM5

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

Package	Total	Caller Graph
Integrated Billing	2	IBCNSM1 IBCNSM9

Entry Points

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

External References

Name	Field # of Occurrence
^%ZIS	DEV+3
HOME^%ZIS	DEV+4
^%ZISC	WPPCQ+1
^%ZTLOAD	DEV+4
$$GET1^DIQ	SETVAR+11
^DIR	WPPC+7, ASK+5
$$GRP^IBCNS	SETVAR+16
$$ZND^IBCNS1	SETVAR+4
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	WPPC+3, DEV+5
PAUSE^VALM1	DQ+5, HDR+2, ASK+7
$$HTE^XLFDT	DQ+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: WPPC+7
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
Function Call: WRITE	Prompt: !!,"* You will need a 132 column printer for this report. *",! Line Location: DEV+2
Function Call: WRITE	Prompt: !,$S($G(IBLINE):"INSURANCE MANAGEMENT WORKSHEET",1:"INSURANCE COVERAGE FOR "_$S($G(IBPIB1):"CURRENT ENTRY",1:"NEXT-MOST-CURRENT ENTRY")),?(IOM-30),IBHDT," PAGE ",IBPAG Line Location: HDR+5
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","_") Line Location: HDR+6
Function Call: WRITE	Prompt: !!,VADM(1),?34,"PT ID: "_VA("PID"),?79,"DOB: "_$P(VADM(3),"^",2) Line Location: HDR+8
Function Call: WRITE	Prompt: !,$E($P($G(^DIC(36,+IBCDFND,0)),"^"),1,28),?31," GROUP #: ",$$DOL^IBCNSM6(355.3,2.02,$P(IBCPOLD,"^",4),$G(IBLINE)) Line Location: HDR+9
Function Call: WRITE	Prompt: ?74,"For YEAR: "_$S($G(IBCAB):$$DAT1^IBOUTL(IBYR),1:"______________") Line Location: HDR+10
Function Call: WRITE	Prompt: !?30,"Ins. Type: ",$$DOL^IBCNSM6(355.1,.01,$P($G(^IBE(355.1,+$P(IBCPOLD,"^",9),0)),"^"),$G(IBLINE)) Line Location: HDR+11
Function Call: WRITE	Prompt: ! Line Location: ASK+2
Function Call: WRITE	Prompt: ! Line Location: ASK+4
Routine Call	%ZIS Line Location: DEV+3
Routine Call	%ZIS Line Location: DEV+4
Routine Call	DIR Line Location: WPPC+7 ASK+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBA(355.3 - [#355.3]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(36 - [#36]	SETVAR+7, SETVAR+8, HDR+9
^DPT - [#2]	SETVAR+5, SETVAR+6
^IBA(355.3 - [#355.3]	SETVAR+11
^IBA(355.4 - [#355.4]	GETEN1+6, GETEN1+9, SETVAR+18, SETVAR+19, SETVAR+20, SETVAR+21, SETVAR+22, GETEN2+2, GETEN2+4
^IBA(355.5 - [#355.5]	SETVAR+13, SETVAR+14, SETVAR+15
^IBE(355.1 - [#355.1]	HDR+11

Label References

Name	Line Occurrences
ASK	GETEN1+7
ASKQ	ASK+5, ASK+6
DEV	WPPC+12
GETEN1	WPPC+11
GETEN1Q	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+2, WPPC+11, WPPC+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV+3*
>> DFN	SETVAR+4, SETVAR+5, SETVAR+6, SETVAR+12, SETVAR+13
DIR	WPPC+7~, ASK+5!
DIR("A"	ASK+3*
DIR("B"	ASK+3*
DIR(0	WPPC+7, ASK+3
DIROUT	WPPC+7~
>> DIRUT	WPPC+11, DQ+5, GETEN1+7, HDR+2, ASK+5
DT	WPPC+11, GETEN1+6, GETEN1+8
DTOUT	WPPC+7~
DUOUT	WPPC+7~
>> FILE	SETVAR+12*
IBCAB	WPPC+9~, GETEN1+9, SETVAR+18, SETVAR+19, SETVAR+20, SETVAR+21, SETVAR+22, HDR+10, GETEN2+4
>> IBCABD	SETVAR+18*
>> IBCABD2	SETVAR+19*
>> IBCABD3	SETVAR+20*
>> IBCABD4	SETVAR+21*
>> IBCABD5	SETVAR+22*
>> IBCBU	SETVAR+13*, SETVAR+14, SETVAR+15
>> IBCBUD	SETVAR+14*
>> IBCBUD1	SETVAR+15*
>> IBCDFN	SETVAR+9*, SETVAR+13
>> IBCDFND	SETVAR+4*, SETVAR+7, SETVAR+8, SETVAR+9, HDR+9
>> IBCDFND1	SETVAR+5*
>> IBCDFND2	SETVAR+6*
>> IBCDFNDA	SETVAR+7*
>> IBCDFNDB	SETVAR+8*
>> IBCGN	SETVAR+16*
>> IBCNS	SETVAR+4, SETVAR+9
IBCPOL	WPPC+2, WPPCQ+2!, GETEN1+6, GETEN1+9, SETVAR+9*, SETVAR+11, SETVAR+13, SETVAR+16, GETEN2+2, GETEN2+4
>> IBCPOLD	SETVAR+11*, HDR+9, HDR+11
>> IBCY	DQ+3, DQ+4, ASK+6*
>> IBHDT	DQ+1*, HDR+5
>> IBLINE	WPPC+11, GETEN1+7, GETEN1+8, HDR+5, HDR+9, HDR+11, ASK+6*
IBPAG	WPPC+9~, DQ+1, DQ+5, HDR+2, HDR+3, HDR+4, HDR+5
>> IBPAT	SETVAR+17*
IBPIB1	WPPC+9~, WPPC+10, WPPCQ+2!, HDR+5, GETEN2+5
>> IBPPOL	SETVAR+4, SETVAR+5, SETVAR+6, SETVAR+9
IBQUIT	WPPC+9~, WPPC+13, DQ+5, DEV+3, DEV+4, HDR+2, ASK+5*
IBW	WPPC+9~, WPPC+10, WPPC+11, WPPCQ+2!, GETEN1+7, ASK+6, ASK+7*
IBYR	WPPC+11, DQ+4, WPPCQ+2!, GETEN1+6, GETEN1+7, GETEN1+8, GETEN1+9, SETVAR+13, 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
U	SETVAR+11
>> 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

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: