Routine: IBCNSM31

Call Graph

Package	Total	Call Graph
Integrated Billing	6	ALL^IBCNS1 (PAT,POL)^IBCNSEH (BLD,EN)^IBCNSM (EDPOL,PATPOL)^IBCNSM3 AIP^IBCNSP02 AI^IBCNSP1
Registration	2	FULL^VALM1 EN^VALM2
VA Fileman	2	^DIC ^DIE

Package	Total	Caller Graph
Integrated Billing	5	IBCNSA IBCNSM1 IBCNSM3 IBCNSP2 IBCNSP3

Name	Comments	DBIA/ICR reference
LK(IBCNS)	; -- screened look up to policy file
COVERED(DFN,IBCOVP)	; -- update covered by insurance in background	ICR #945 Status: Active Usage: Private
EA	; -- Edit all insurance policy data
3	; -- display group name as uneditable
FUTURE	; -- if expiration date in future give warning
4	; -- display group number as uneditable
EAQ
LKQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Can't identify the policy!" Line Location: EA+7
Function Call: WRITE	Prompt: !!,*7,"WARNING: The expiration date for this policy is in the future!",!," Normally this is a past date or left blank or a past date",! Line Location: FUTURE+2
Function Call: WRITE	Prompt: !!,"COVERED BY HEALTH INSURANCE changed to '"_$S(IBNCOV="Y":"YES",IBNCOV="N":"NO",1:"UNKNOWN"),"'.",! Line Location: COVERED+18
Routine Call	DIE Line Location: COVERED+17
Routine Call	DIC Line Location: LK+18

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^IBA(355.3 - [#355.3]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	FUTURE+2, COVERED+6, COVERED+10, COVERED+13
^IBA(355.3 - [#355.3]	LK+8, 3+3, 4+3
^IBE(350.9 - [#350.9]	EA+10
^TMP("IBNSM"	EA+5
^TMP("IBNSMDX"	EA+5

Name	Line Occurrences
LKQ	LK+5, LK+8

Name	Field # of Occurrence
^(0	FUTURE+2

Name	Field # of Occurrence
DA	COVERED+5~, COVERED+17*, 3+3, 4+3
DFN	FUTURE+2, COVERED~, COVERED+4, COVERED+6, COVERED+7, COVERED+10, COVERED+13, COVERED+17
DIC	LK+3~, LK+16*, LK+18!, COVERED+5~
DIC("A"	LK+14*
DIC("S"	LK+16*
DIC(0	LK+16*
DIE	COVERED+5~, COVERED+17*
DR	COVERED+5~, COVERED+17*
DT	FUTURE+2, COVERED+7
I	EA+1~, COVERED+5~
IBCDFN	EA+1~, EA+7*, EA+11, EA+13, FUTURE+2
IBCNS	LK~, LK+5, LK+8
>> IBCNSEH	EA+10*
IBCOV	COVERED+5~, COVERED+6*, COVERED+16
IBCOVP	COVERED~, COVERED+10, COVERED+13
>> IBCPOL	LK+4, LK+18, LKQ
IBDIF	EA+1~
IBFUTUR	FUTURE+1!, FUTURE+3*
IBINS	COVERED+5~
IBINS(0	COVERED+7
IBINSD	COVERED+5~, COVERED+7*, COVERED+10, COVERED+13
IBNCOV	COVERED+5~, COVERED+6, COVERED+10, COVERED+13*, COVERED+16, COVERED+17, COVERED+18
>> IBPPOL	EA+5*, EA+6, EA+7
IBQUIT	EA+9~*, EA+13
IBTRC	EA+1~, EA+14
IBX	LK+3~, LK+8*
IBXX	EA+1~, EA+4*, EA+5
J	EA+1~
>> VALMBCK	EAQ+1*
VALMY	EA+1~, EA+4
VALMY(	EA+4
X	COVERED+5~, 3+2~, 3+3, 3+4, 4+2~, 4+3, 4+4
>> XQORNOD(0	EA+2
Y	LK+18, FUTURE+2*, COVERED+5~
>> ZTQUEUED	COVERED+18