Routine: ABMDES2

Information

ABMDES2 ; IHS/ASDST/DMJ - Display Summarized HCFA-1500 charges ;

Source file <ABMDES2.m>

Package	Total	Call Graph
Third Party Billing	2	LNG^ABMDWRAP $$EN^ABMVDF
VA Fileman	1	^DIR

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

Name	Line Occurrences
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF") Line Location: HCFA+2
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF") Line Location: HCFA+5
Function Call: WRITE	Prompt: ?29,ABMU(1) Line Location: HCFA+8
Function Call: WRITE	Prompt: ?29,$P(ABMS(ABMS),U,8) Line Location: HCFA+9
Function Call: WRITE	Prompt: ?29,ABMU(2) Line Location: HCFA+11
Function Call: WRITE	Prompt: !?59,"---------",!?59,$J($FN(ABMS("TOT"),",",2),9) Line Location: HCFA+13
Function Call: WRITE	Prompt: ?20,"*** HCFA-1500A CHARGE SUMMARY ***" Line Location: HD+0
Function Call: WRITE	Prompt: !," Dates of Vst",?21,$S(ABMP("VTYP")=998:"ADA",$G(ABMP("PX"))="I":"ICD",1:"CPT"),?32,"Description Corr" Line Location: HD+1
Function Call: WRITE	Prompt: !," Service Typ Code of Service ICD Charge Qty Cat" Line Location: HD+2
Function Call: WRITE	Prompt: !,ABMS("I") Line Location: HD+3
Routine Call	DIR Line Location: HCFA+2 HCFA+5

Name	Line Occurrences
HD	HCFA+3, HCFA+5

Name	Field # of Occurrence
>> ABM("DD-FRT"	HCFA+19
>> ABMP("BTYP"	HCFA+6
>> ABMP("HCFA"	HCFA+18, HCFA+19, HCFA+20, HCFA+21*
>> ABMP("PX"	HD+1
>> ABMP("RATIO"	HCFA+18*, HCFA+20
>> ABMP("RESP"	HCFA+19, HCFA+20, HCFA+21
>> ABMP("TOT"	HCFA+14*
>> ABMP("UB82"	HCFA+18, HCFA+19, HCFA+20
>> ABMP("VTYP"	HCFA+17, HCFA+21, HD+1
>> ABMS	HCFA+4*, HCFA+6, HCFA+8, HCFA+9, HCFA+10, HCFA+11, HCFA+12
>> ABMS(	HCFA+4, HCFA+6, HCFA+8, HCFA+9, HCFA+10, HCFA+11, HCFA+12!
>> ABMS("I"	HD+3*
>> ABMS("TOT"	HCFA+13, HCFA+14
ABMU	HCFA+7!, HCFA+8*
ABMU("LNG"	HCFA+8*
ABMU("TXT"	HCFA+8*
ABMU(1	HCFA+8
ABMU(2	HCFA+11
>> DIR(0	HCFA+2, HCFA+5
>> DIROUT	HCFA+2, HCFA+4, HCFA+5
>> DTOUT	HCFA+2, HCFA+4, HCFA+5
>> DUOUT	HCFA+2, HCFA+4, HCFA+5
IOSL	HCFA+2, HCFA+5
U	HCFA+6, HCFA+8, HCFA+9, HCFA+10, HCFA+11