Routine: ABMDE5

Package	Total	Call Graph
Third Party Billing	8	($$DX,$$ICDDX)^ABMCVAPI (PAUSE,SUM)^ABMDE1 DISP2^ABMDE5D A^ABMDE5X RES^ABMDEMLA SEL^ABMDEOPT ^ABMDERR ^ABMDWRAP
VA Fileman	3	^DIE $$GET1^DIQ ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
OPT
DISP
DIAG	; Diagnosis Info
ECODE	;
XIT
HD	;
DX	;
LOOP	;
OPT2

External References

Name	Field # of Occurrence
$$DX^ABMCVAPI	DX+5, DX+6, DX+12, DX+19, DX+25, DX+41, DX+44, DX+48, DX+52
$$ICDDX^ABMCVAPI	DX+19
PAUSE^ABMDE1	DISP+2, DX+2
SUM^ABMDE1	DISP+3
DISP2^ABMDE5D	OPT2+1
A^ABMDE5X	DISP+1, LOOP+14
RES^ABMDEMLA	OPT+22
SEL^ABMDEOPT	OPT+3, OPT2+3
^ABMDERR	LOOP+19
^ABMDWRAP	DX+42
^DIE	ECODE+9
$$GET1^DIQ	HD+2, DX+39
^DIR	OPT+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ICD INDICATOR: ICD-9",! Line Location: HD+1
Function Call: WRITE	Prompt: !,"ICD Indicator for "_$$GET1^DIQ(9999999.18,ABMP("INS"),".01","E")_" : " Line Location: HD+2
Function Call: WRITE	Prompt: $S(ABMP("ICD10")>ABMP("VDT"):"ICD-9",1:"ICD-10"),! Line Location: HD+3
Function Call: WRITE	Prompt: !,"BIL",?7,"ICD" Line Location: HD+5
Function Call: WRITE	Prompt: !,"SEQ",?6," CODE ",?14,"IND" Line Location: HD+7
Function Call: WRITE	Prompt: ?19,"Dx DESCRIPTION",?51,"PROVIDER'S NARRATIVE" Line Location: HD+11
Function Call: WRITE	Prompt: ?20,"Dx DESCRIPTION",?50,"PROVIDER'S NARRATIVE" Line Location: HD+12
Function Call: WRITE	Prompt: !,"===",?5,"========",?14,"===" Line Location: HD+14
Function Call: WRITE	Prompt: ?13,"==========================",?40,"=======================================" Line Location: HD+18
Function Call: WRITE	Prompt: ?18,"==========================",?45,"===================================" Line Location: HD+19
Function Call: WRITE	Prompt: !,$J(ABM("I"),2),?5,$P($$DX^ABMCVAPI(+ABM("X"),ABMP("VDT")),U,2) Line Location: DX+6
Function Call: WRITE	Prompt: ?15,$S(+$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),17,+ABM("X"),0)),U,6)=1:"10",1:"9") Line Location: DX+8
Routine Call	DIE Line Location: ECODE+9
Routine Call	DIR Line Location: OPT+15

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ABMDCLM - [#9002274.3]	Classic Fileman Calls
9002274.3017	GET1^DIQ
^AUTNINS - [#9999999.18]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	OPT+7, LOOP+7, LOOP+8, LOOP+10, LOOP+13!*, LOOP+17, DX+1, DX+8, DX+51, DX+52 , ECODE+4, ECODE+5, ECODE+6, ECODE+7
^ABMDEXP - [#9002274.08]	OPT+8
^ABMDPARM(	HD+8, HD+15, DX+10, DX+14, DX+25, DX+26
^ICD9 - [#80]	DX+14
^ICD9("BA"	DX+41

Label References

Name	Line Occurrences
@(	OPT+21, OPT2+6
DISP	OPT+1
DX	LOOP+17
ECODE	DX+12
HD	DIAG+7, DX+2
LOOP	DIAG+7
OPT	OPT+23, OPT2+4
OPT2	OPT+19, OPT2+7
XIT	OPT+3, OPT+4, OPT+7, OPT+8, OPT2+3, OPT2+4

Naked Globals

Name	Field # of Occurrence
^(	LOOP+17, DX+41
^(0	DX+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABM	OPT!, OPT2!, LOOP+8, LOOP+9, LOOP+10, LOOP+16, LOOP+17*, XIT!
ABM("CP"	DX+20, DX+21, DX+22, DX+23
ABM("DO"	OPT+21, OPT2+6
ABM("I"	LOOP+17*, DX+5, DX+6
ABM("L"	LOOP+18*
ABM("X"	LOOP+17*, DX+1, DX+5, DX+6, DX+8, DX+12, DX+14, DX+19, DX+25, DX+38 , DX+51, DX+52, ECODE+4, ECODE+6, ECODE+7
ABM("X0"	DX+1*, DX+5, DX+10, DX+39, DX+43, DX+44, DX+47, DX+48
>> ABMBFY	OPT+10*, OPT+18
ABME	OPT!, OPT2!, XIT!
ABME("CONT"	LOOP+19*!
ABME(0	LOOP+19
>> ABMEFLG	LOOP+1, DX+12, ECODE+10
>> ABMI	LOOP+7*, LOOP+8
>> ABMICDI	LOOP+10*, LOOP+11
>> ABMP("BTYP"	HD+8, HD+15, DX+10, DX+26
>> ABMP("CDFN"	OPT+7, LOOP+7, LOOP+8, LOOP+10, LOOP+13, LOOP+17, DX+1, DX+8, DX+38, DX+51 , DX+52, ECODE+3, ECODE+4, ECODE+5, ECODE+6, ECODE+7
>> ABMP("DDL"	OPT2+3, DISP+2
>> ABMP("DFLT"	OPT+3*
>> ABMP("ED"	OPT+3!
>> ABMP("EXP"	OPT+8, OPT+9
>> ABMP("ICD10"	DIAG+4, HD+3, LOOP+11, DX+12, DX+47, DX+51
>> ABMP("INS"	HD+2
>> ABMP("LDFN"	HD+8, HD+15, DX+10, DX+26
>> ABMP("OPT"	OPT+3, OPT2+3
>> ABMP("PAGE"	OPT2+3
>> ABMP("PX"	OPT+7
>> ABMP("QUIT"	OPT2+3*
>> ABMP("VDT"	DIAG+4, HD+3, LOOP+11, DX+5, DX+6, DX+12, DX+19, DX+25, DX+41, DX+44 , DX+47, DX+48, DX+51, DX+52
ABMU	OPT!
ABMU("2LM"	DX+30, DX+36
ABMU("2RM"	DX+30, DX+36
ABMU("2TAB"	DX+30, DX+36
ABMU("2TXT"	DX+39, DX+40, DX+41*
ABMU("LM"	DX+28, DX+34
ABMU("RM"	DX+28, DX+34
ABMU("TAB"	DX+28, DX+34
ABMU("TXT"	DX+13, DX+15, DX+23, DX+25
>> ABMUTXT	DX+13, DX+19
ABMZ	OPT!, OPT2!, XIT!
ABMZ(	DX+5*
ABMZ("DIC"	DIAG+1*
ABMZ("DICS"	DIAG+4, DIAG+5
ABMZ("DR"	DIAG+1*
ABMZ("DR2"	LOOP+18*
ABMZ("ITEM"	DIAG+1*
ABMZ("LNUM"	LOOP+2, LOOP+18, DX+1
ABMZ("NARR"	DIAG+1*
ABMZ("NUM"	OPT+3, OPT+9, LOOP+2, LOOP+17
ABMZ("PG"	DISP*
ABMZ("SUB"	DIAG+1*, LOOP+13
ABMZ("TITL"	DISP*
ABMZ("X"	DIAG+1*
ABMZ(1	LOOP+2*
ABMZCPTD	DX+16!
ABMZCPTD(	DX+21, DX+22, DX+23
DA	ECODE+1~, ECODE+3*
DIE	ECODE+1~, ECODE+2*
DIR	OPT+16!
DIR("A"	OPT+12, OPT+13
DIR("B"	OPT+14*
DIR(0	OPT+11*
>> DIROUT	OPT+4, OPT2+4, DISP+2, DX+2
>> DIRUT	OPT+1, OPT2+1
DR	ECODE+1~, ECODE+4, ECODE+6, ECODE+7*, ECODE+8
>> DTOUT	OPT+1, OPT+4, OPT2+1, OPT2+4, DISP+2, DX+2
>> DUOUT	OPT+1, OPT+4, OPT2+1, OPT2+4, DISP+2, DX+2
DUZ(2	OPT+7, LOOP+7, LOOP+8, LOOP+10, LOOP+13, LOOP+17, DX+1, DX+8, DX+14, DX+25 , DX+51, DX+52, ECODE+4, ECODE+5, ECODE+6, ECODE+7
>> IENS	DX+38*, DX+39
IOSL	DISP+2, DX+2
U	OPT+8, DIAG+1, HD+8, HD+15, LOOP+10, DX+1, DX+5, DX+6, DX+8, DX+10 , DX+12, DX+14, DX+19, DX+25, DX+26, DX+39, DX+41, DX+43, DX+44, DX+47 , DX+48, DX+51, DX+52, ECODE+4, ECODE+5, ECODE+6, ECODE+7
>> Y	OPT+3, OPT+7, OPT+8, OPT+9, OPT+10, OPT+17, OPT+18*, OPT+19, OPT+21, OPT2+3 , OPT2+4, OPT2+6

Customize PDF page

Package: Third Party Billing

Routine: ABMDE5

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: