Routine: IBCNSM2

Package	Total	Call Graph
Registration	3	EN^VALM (FULL,PAUSE)^VALM1 EN^VALM2
Integrated Billing	2	BLD^IBCNSM $$DAT1^IBOUTL
VA Fileman	2	^DIE ^DIR

Package	Total	Caller Graph
Integrated Billing	1	IBCNSP1

Entry Points

Name	Comments	DBIA/ICR reference
EIQ
VC	; -- Verify Insurance Coverage
EI	; -- Enter Edit Insurance Company Information
REVASK	; -- Determine whether user wishes to re-verify
REVFY	; -- Re-verify
BU	; -- Enter Edit benefits already used
EXIT	; -- Kill variables, refresh screen
VFY	; -- Display most recent verification
EP	; -- Enter Edit Patient Insurance Policy Information

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"COVERAGE VERIFIED TODAY, "_$$DAT1^IBOUTL(DT) Line Location: VFY+8
Routine Call	VALM Line Location: BU+8 EI+4 EI+12
Routine Call	DIE Line Location: REVFY+2
Routine Call	DIR Line Location: REVASK+5

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

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	VFY+5, VFY+7, VFY+8, REVFY+3, REVFY+4
^TMP("IBNSM"	BU+5, EI+10, VC+5
^TMP("IBNSMDX"	BU+5, EI+10, VC+5
^VA(200 - [#200]	VFY+7, REVFY+4

Name	Field # of Occurrence
DA	EXIT+3!, VFY+2~, REVFY+2*
DA(1	REVFY+2*
>> DFN	VFY+5, VFY+7, VFY+8, REVFY+2, REVFY+3, REVFY+4
DIE	REVFY+2*!
DIR	REVASK+5!
DIR("A"	REVASK+4*
DIR("B"	REVASK+4*
DIR(0	REVASK+4*
>> DIRUT	REVASK+5
DR	EXIT+3!, VFY+2~, REVFY+2*
DT	VFY+8, REVFY+2
DUZ	REVFY+2
I	BU+2~, EI+7~, EI+10*, EI+11, VC+2~, EXIT+3!
>> IBCH	VFY+4*, VFY+7, REVASK+4, REVFY+4
IBCNS	BU+7, EI+4, EI+7~, EI+11
>> IBCPOL	BU+7*
IBDUZ	VFY+2~, VFY+5, VFY+6, VFY+7, REVASK+3, REVASK+4, REVFY+3, REVFY+4
IBDUZZ	EXIT+3!
>> IBPPOL	BU+5, BU+6, BU+7, VC+5, VC+6, VFY+4, VFY+5, VFY+7, VFY+8, REVFY+2 , REVFY+3, REVFY+4
IBXX	BU+2~, BU+4, BU+5, EI+7~, EI+9, EI+10, VC+2~, VC+4*, VC+5, EXIT+3!
J	BU+2~, EI+7~, VC+2~, EXIT+3!
U	%*, VFY+4, VFY+5, VFY+7, VFY+8, REVFY+2, REVFY+3, REVFY+4
>> VALMBCK	BU+10, EP+2, EIQ, EXIT+4
VALMY	BU+2~, BU+4, EI+7~, EI+9, VC+2~, VC+4
VALMY(	BU+4, EI+9, VC+4
>> XQORNOD(0	BU+3, EI+8, VC+3
Y	REVASK+2~, REVASK+6