Routine: ABMDRTX2

Information

ABMDRTX2 ; IHS/ASDST/DMJ - Transmittal Report by Insurer ;

Package	Total	Call Graph
Third Party Billing	4	WHD^ABMDRHD (POUT,QUE)^ABMDRUTL $$SDT^ABMDUTL $$EN^ABMVDF
Kernel	2	^%ZIS ^%ZISC
VA Fileman	1	^DIR

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"As specified in the 3P Site Parameters File FORCED QUEUEING is in effect!",! Line Location: ABMDRTX2+7
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF") Line Location: WRT+5
Function Call: WRITE	Prompt: " (cont)" Line Location: WRT+13
Function Call: WRITE	Prompt: " (cont)" Line Location: WRT+14
Function Call: WRITE	Prompt: ! Line Location: WRT+17
Function Call: WRITE	Prompt: $E($P(ABM("T"),U,2),1,27) Line Location: WRT+18
Function Call: WRITE	Prompt: !?29,"------",?69,"----------" Line Location: WRT+26
Function Call: WRITE	Prompt: !?10,"Total:",?29,$FN(ABM("CNT"),",",0),?68,$J($FN(ABM("TOT"),",",2),11) Line Location: WRT+27
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF") Line Location: WRT+28
Function Call: WRITE	Prompt: !?5,"""*"" following the bill number denotes a bill that has been cancelled" Line Location: HD+5
Function Call: WRITE	Prompt: !?30,"Bill",?38,"Visit",?50,"Visit",?72,"Bill" Line Location: HD+6
Function Call: WRITE	Prompt: !?5,"Patient",?29,"Number",?38,"Date",?49,"Location",?71,"Amount" Line Location: HD+7
Function Call: WRITE	Prompt: !,"-------------------------------------------------------------------------------" Line Location: HD+8
Function Call: WRITE	Prompt: !?29,"------",?69,"----------" Line Location: SUB+2
Function Call: WRITE	Prompt: !?7,"Subtotal:",?29,$FN(ABM("SUBCNT"),",",0),?68,$J($FN(ABM("SUBTOT"),",",2),11),! Line Location: SUB+3
Routine Call	DIR Line Location: WRT+13 PAZ+1
Routine Call	%ZIS Line Location: WRT+2

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	PRQUE+5, DATA+1, DATA+2, WRT+20, WRT+21, WRT+22, HD+3
^ABMDPARM(	ABMDRTX2+7
^AUTNINS - [#9999999.18]	DATA+7, HD+3
^DIC(4 - [#4]	DATA+7, WRT+21
^DPT - [#2]	DATA+7
^TMP("ABM-TX2"	PRQUE+1!, DATA+7*, XIT+2!

Name	Field # of Occurrence
^(2	WRT+22
^(7	WRT+20

Name	Field # of Occurrence
>> ABM	PRQUE+4, PRQUE+5, DATA+1, DATA+2, DATA+7, WRT+10, WRT+11, WRT+12, WRT+15
>> ABM("A"	WRT+9*, WRT+10, WRT+12
>> ABM("CNT"	WRT+7, WRT+23, WRT+27
>> ABM("DFN"	PRQUE+2, PRQUE+3, PRQUE+5
>> ABM("HD"	HD+3*
>> ABM("I"	DATA+4, DATA+6, DATA+7, WRT+8, WRT+16, WRT+17*
>> ABM("IOP"	WRT+1
>> ABM("L"	DATA+3, DATA+6, DATA+7, WRT+8
>> ABM("P"	DATA+5, DATA+6, DATA+7, WRT+18, WRT+19
>> ABM("PG"	WRT+6, HD+1, INS+1*
>> ABM("RTYP"	HD+2*
>> ABM("SUBCNT"	WRT+7, WRT+24, SUB+3, SUB+4*
>> ABM("SUBTOT"	WRT+7, WRT+22, SUB+1, SUB+3, SUB+4*
>> ABM("T"	WRT+15*, WRT+16, WRT+17, WRT+18, WRT+19, WRT+20, WRT+21, WRT+22, HD+3
>> ABM("TOT"	WRT+7, WRT+22, WRT+27
>> ABMBILL0	DATA+2*, DATA+3, DATA+4, DATA+5
DIR	WRT+13!, PAZ+1!
DIR(0	WRT+13, PAZ+1
>> DIROUT	WRT+12, WRT+13, WRT+16
>> DTOUT	WRT+12, WRT+13, WRT+16
>> DUOUT	WRT+12, WRT+13, WRT+16
DUZ(2	ABMDRTX2+7, PRQUE+5, DATA+1, DATA+2, WRT+20, WRT+21, WRT+22, HD+3
IO	ABMDRTX2+7, WRT+4
IO("Q"	ABMDRTX2+6, PAZ+1
IO("S"	ABMDRTX2+7, WRT+13, PAZ+1
IO(0	ABMDRTX2+7
>> IOP	WRT+1*
IOSL	WRT+13, WRT+14
IOST	ABMDRTX2+7, WRT+13, PAZ+1
>> POP	WRT+3
U	ABMDRTX2+7, DATA+3, DATA+4, DATA+5, DATA+7, WRT+16, WRT+17, WRT+18, WRT+19, WRT+20 , WRT+21, WRT+22, HD+3
>> ZTDESC	QUE+2*
>> ZTRTN	QUE+1*