Routine: ABMDES3

Package	Total	Call Graph
Third Party Billing	3	PROC^ABMDF3E $$HDT^ABMDUTL $$EN^ABMVDF
VA Fileman	2	$$GET1^DIQ ^DIR

Package

Total

Call Graph

PROC^ABMDF3E $$HDT^ABMDUTL $$EN^ABMVDF

$$GET1^DIQ ^DIR

Name	Comments	DBIA/ICR reference
HCFA	;EP for displaying charge summary for HCFA-1500
HD	;SCREEN HEADER

Name	Line Occurrences
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF") Line Location: HCFA+7
Function Call: WRITE	Prompt: !?58,"----------" Line Location: HCFA+54
Function Call: WRITE	Prompt: !,?10,"TOTAL CHARGE",?56,$J($FN(ABMS("TOT"),",",2),10) Line Location: HCFA+55
Function Call: WRITE	Prompt: !!!!,ABMFLMSG Line Location: HCFA+57
Function Call: WRITE	Prompt: ! Line Location: HCFA+58
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF") Line Location: HD+1
Function Call: WRITE	Prompt: !,?20,"***** " Line Location: HD+2
Function Call: WRITE	Prompt: $P(^ABMDEXP(ABMP("EXP"),0),U) Line Location: HD+3
Function Call: WRITE	Prompt: " CHARGE SUMMARY *****" Line Location: HD+4
Function Call: WRITE	Prompt: !!,"Active Insurer: ",$P($G(^AUTNINS(ABMP("INS"),0)),U),! Line Location: HD+5
Function Call: WRITE	Prompt: !,?51,"Corr" Line Location: HD+6
Function Call: WRITE	Prompt: !?1,"Charge Date ",?21,"POS",?25,"TOS",?30," Description",?51,"Diag",?60,"Charge",?72,"Qty" Line Location: HD+7
Function Call: WRITE	Prompt: !,ABMS("I") Line Location: HD+8
Routine Call	DIR Line Location: HCFA+7 HCFA+59

FileNo	Call Tags
^AUTNINS - [#9999999.18]	GET1^DIQ
^AUTTINTY - [#9999999.181]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^ABMDEXP - [#9002274.08]	HD+3
^ABMNINS(	HCFA+22, HCFA+26, HCFA+32, HCFA+34, HCFA+36, HCFA+39, HCFA+43, HCFA+45, HCFA+47, HCFA+50
^AUTNINS - [#9999999.18]	HCFA+9, HD+5

Name	Line Occurrences
HD	HCFA+2, HCFA+7

Name	Field # of Occurrence
^(	HCFA+26

Name	Field # of Occurrence
>> ABMEXP	HCFA+4, HCFA+5, HCFA+22, HCFA+26, HCFA+32, HCFA+34, HCFA+36, HCFA+39, HCFA+43, HCFA+45 , HCFA+47, HCFA+50
>> ABMFL	HCFA+23, HCFA+26
>> ABMFLE	HCFA+23, HCFA+26, HCFA+27
>> ABMFLMSG	HCFA+28*, HCFA+57
ABMIL	HCFA+10, HCFA+11, HCFA+12, HCFA+14, HCFA+15, HCFA+16!
>> ABMLN	HCFA+18, HCFA+24, HCFA+26
>> ABMP("EXP"	HCFA+4, HCFA+5, HD+3
>> ABMP("INS"	HCFA+9, HCFA+22, HCFA+26, HCFA+32, HCFA+34, HCFA+36, HCFA+39, HCFA+43, HCFA+45, HCFA+47 , HCFA+50, HD+5
>> ABMP("LDFN"	HCFA+22, HCFA+26, HCFA+32, HCFA+34, HCFA+36, HCFA+39, HCFA+43, HCFA+45, HCFA+47, HCFA+50
>> ABMP("TOT"	HCFA+56*
>> ABMP("VTYP"	HCFA+36, HCFA+47
>> ABMR(	HCFA+19, HCFA+20, HCFA+39, HCFA+50, HCFA+51, HCFA+52, HCFA+53
>> ABMS	HCFA+6*, HCFA+19, HCFA+20, HCFA+39, HCFA+50, HCFA+51, HCFA+52, HCFA+53
>> ABMS(	HCFA+6, HCFA+11, HCFA+12, HCFA+14, HCFA+15*
>> ABMS("I"	HCFA+18, HD+8
>> ABMS("TOT"	HCFA+55, HCFA+56
>> ABMS(1	HCFA+13, HCFA+14*
ABMTMP	HCFA+16!
ABMTMP("TMP"	HCFA+13*, HCFA+15
>> ABMVTYP	HCFA+30, HCFA+34, HCFA+36, HCFA+37, HCFA+39, HCFA+41, HCFA+45, HCFA+47, HCFA+48, HCFA+50
DIR	HCFA+59!
DIR(0	HCFA+7, HCFA+59
>> DIROUT	HCFA+6, HCFA+7
>> DTOUT	HCFA+6, HCFA+7
>> DUOUT	HCFA+6, HCFA+7
IOSL	HCFA+7, HCFA+58
U	HCFA+9, HCFA+12, HCFA+19, HCFA+20, HCFA+39, HCFA+50, HCFA+51, HCFA+52, HCFA+53, HD+3 , HD+5

Information