Routine: IBCNSM3

Package	Total	Call Graph
Integrated Billing	10	DISP^IBCNS (INS,PAT,POL,SEL)^IBCNSEH (,AFTER)^IBCNSEVT (BLD,EN)^IBCNSM ($$LK,COVERED,FUTURE)^IBCNSM31 ($$DUPCO,$$DUPPOL)^IBCNSOK1 AI^IBCNSP1 (COMP,COMPPT,SAVE,SAVEPT,UPDATE,UPDATPT)^IBCNSP3 $$ADDH^IBCNSU LOCKED^IBTRCD1
VA Fileman	3	FILE^DICN ^DIE ^DIR
Registration	1	FULL^VALM1

Package	Total	Caller Graph
Integrated Billing	3	IBCNSM31 IBCNSP1 IBCNSP2

Entry Points

Name	Comments	DBIA/ICR reference
OK	; -- ask okay
AD	; -- Add new insurance policy
ADQ
NEW(IBCNSC)	; -- ask if add new policy, if yes file (addh^ibcnsu)
EDPOL(IBCDFN)	; -- Edit GROUP PLAN specific info
PATPOLQ
PATPOL(IBCDFN)	; -- edit patient specific policy info
NEWQ
ADH	; -- show existing policies for help
EDPOLQ

External References

Name	Field # of Occurrence
FILE^DICN	AD+27
^DIE	PATPOL+13, EDPOL+10
^DIR	AD+14, NEW+5, NEW+10, OK+1
DISP^IBCNS	ADH+3
INS^IBCNSEH	AD+7
PAT^IBCNSEH	AD+30
POL^IBCNSEH	AD+34
SEL^IBCNSEH	AD+20
^IBCNSEVT	ADQ+1
AFTER^IBCNSEVT	ADQ+1
BLD^IBCNSM	ADQ+2
EN^IBCNSM	%
$$LK^IBCNSM31	AD+21
COVERED^IBCNSM31	ADQ
FUTURE^IBCNSM31	PATPOL+20
$$DUPCO^IBCNSOK1	AD+17
$$DUPPOL^IBCNSOK1	EDPOL+12
AI^IBCNSP1	AD+35
COMP^IBCNSP3	EDPOL+11
COMPPT^IBCNSP3	PATPOL+16
SAVE^IBCNSP3	EDPOL+6
SAVEPT^IBCNSP3	PATPOL+2
UPDATE^IBCNSP3	EDPOL+12
UPDATPT^IBCNSP3	PATPOL+17, EDPOL+12
$$ADDH^IBCNSU	NEW+14
LOCKED^IBTRCD1	PATPOL+12, EDPOL+4
FULL^VALM1	AD+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This company does not reimburse. " Line Location: AD+15
Function Call: WRITE	Prompt: !,*7,"Warning: Inactive Company" Line Location: AD+16
Function Call: WRITE	Prompt: !,"WARNING: This appears to be an expired policy!",! Line Location: PATPOL+5
Function Call: WRITE	Prompt: !,*7,"WARNING: This insurance company is INACTIVE!",! Line Location: PATPOL+6
Routine Call	DIE Line Location: PATPOL+13 EDPOL+10
Routine Call	DIR Line Location: AD+14 NEW+5 NEW+10 OK+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(36 - [#36]	AD+15, AD+16, PATPOL+6, NEW+3
^DPT - [#2]	AD+4, AD+5*, PATPOL+5, PATPOL+6, PATPOL+12, PATPOL+18, EDPOL+3
^IBA(355.3 - [#355.3]	EDPOL+4, EDPOL+13
^IBE(350.9 - [#350.9]	AD+2
^XUSEC("IB INSURANCE SUPERVISOR"	AD+33, PATPOL+11

Label References

Name	Line Occurrences
$$NEW	AD+22
ADQ	AD+14, AD+16, AD+21, AD+23, AD+27, AD+33, AD+36
EDPOL	AD+34
EDPOLQ	EDPOL+1, EDPOL+4
NEWQ	NEW+6, NEW+11
OK	AD+21
PATPOL	AD+30
PATPOLQ	PATPOL+1, PATPOL+12, PATPOL+14

Naked Globals

Name	Field # of Occurrence
^(0	PATPOL+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%A	ADH+1~
DA	AD+1~, PATPOL+8~, PATPOL+9, PATPOL+14, EDPOL+2~, EDPOL+7, ADH+1~
DA(1	AD+27, PATPOL+9
DD	AD+1~, AD+27!
>> DFN	AD+4, AD+5, AD+17, AD+27, ADQ, PATPOL+2, PATPOL+5, PATPOL+6, PATPOL+9, PATPOL+12 , PATPOL+16, PATPOL+17, PATPOL+18, EDPOL+3, EDPOL+12
DIC	AD+1~, AD+27*!, PATPOL+8~, EDPOL+2~
DIC("DR"	AD+26*
DIC(0	AD+27*
DIE	AD+1~, PATPOL+8~, PATPOL+9, EDPOL+2~, EDPOL+7
DIK	AD+1~
DIR	AD+1~, AD+14!, NEW+1~, NEW+5!, NEW+10!, OK+1!, ADH+1~
DIR("?"	AD+13, NEW+4, NEW+9*
DIR("??"	AD+12*
DIR("A"	AD+12, NEW+3, NEW+10, OK+1
DIR("B"	NEW+3, OK+1
DIR(0	AD+11, NEW+3, NEW+10, OK+1
DIRUT	AD+1~, NEW+6, NEW+11, OK+2
DO	AD+1~, AD+27!
DR	AD+1~, PATPOL+8~, PATPOL+10, PATPOL+11, EDPOL+2~, EDPOL+8, EDPOL+9
DT	PATPOL+5
>> DTOUT	PATPOL+13
DUZ	AD+26, AD+33, PATPOL+11
IBAD	AD+1~, PATPOL+8~, EDPOL+2~
IBADPOL	AD+1~, AD+2*
IBCDFN	AD+1~, AD+27*, AD+30, AD+34, ADQ+1, PATPOL~, PATPOL+1, PATPOL+2, PATPOL+5, PATPOL+6 , PATPOL+9, PATPOL+12, PATPOL+16, PATPOL+17, PATPOL+18, EDPOL~, EDPOL+1, EDPOL+3, EDPOL+12
IBCNSC	NEW~, NEW+3, NEW+14
>> IBCNSEH	AD+2*
IBCNSP	AD+1~, AD+14*, AD+15, AD+16!, AD+17, AD+21, AD+22, AD+27
IBCOVP	AD+1~, AD+4*, ADQ
IBCPOL	AD+1~, AD+21, AD+22, AD+23, AD+26, ADQ+2, EDPOL+2~, EDPOL+3, EDPOL+4, EDPOL+5 , EDPOL+6, EDPOL+7, EDPOL+11, EDPOL+12, EDPOL+13, NEW+1~, NEW+2, NEW+14*, NEWQ
IBDIF	PATPOL+8~, PATPOL+17, EDPOL+2~, EDPOL+12
IBFUTUR	PATPOL+15!, PATPOL+20!
IBGRP	AD+1~, NEW+1~, NEW+10*, NEW+14
>> IBNEW	AD+27*, AD+35, ADQ+1
>> IBNEWP	EDPOL+9
IBOK	AD+1~, AD+21, OK+3*
IBQUIT	AD+1~, AD+2, AD+21, AD+34, PATPOL+13, PATPOL+14, OK+1, OK+2*
>> IBREG	PATPOL+11, EDPOL+9
>> VALMBCK	ADQ+3*
X	AD+1~, AD+27*, NEW+1~
Y	AD+1~, AD+14, AD+27, PATPOL+13, PATPOL+20!, NEW+1~, NEW+6, NEW+10, OK+3

Customize PDF page

Package: Integrated Billing

Routine: IBCNSM3

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: