Routine: ABMDRUN2

Information

ABMDRUN2 ; IHS/ASDST/DMJ - Unpaid Bills Listing-132 width ;

Package	Total	Call Graph
Third Party Billing	3	(,WHD)^ABMDRHD PAZ^ABMDRUTL $$SDT^ABMDUTL

Name	Line Occurrences
Function Call: WRITE	Prompt: " (cont)" Line Location: PRINT+7
Function Call: WRITE	Prompt: ?32,$P(ABM("C"),U),?40,$E($P(^DPT(+$P(ABM("C"),U,5),0),U),1,30),?72,$S($D(^AUPNPAT($P(ABM("C"),U,5),41,$P(ABM("C"),U,3),0)):$P(^(0),U,2),$D(^AUPNPAT($P(ABM("C"),U,5),41,DUZ(2),0)):$P(^(0),U,2),1:"") Line Location: WRT+1
Function Call: WRITE	Prompt: ?92,$E($P(^ABMDVTYP($P(ABM("C"),U,7),0),U),1,16) Line Location: WRT+4
Function Call: WRITE	Prompt: ?121,$J($FN(ABM("T"),",",2),10) Line Location: WRT+6
Function Call: WRITE	Prompt: !?32,"======",?121,"==========",!?3,"GRAND TOTAL:",?32,ABM("CNT"),?121,$J($FN(ABM("TOT"),",",2),10) Line Location: TOT+1
Function Call: WRITE	Prompt: !,?32,"Claim",?81,"Visit",?113,"Export",?123,"Billed" Line Location: HDB+1
Function Call: WRITE	Prompt: !?10,"Insurer",?32,"Number",?47,"Patient",?73,"HRN",?81,"Date",?94,$S(ABMY("SORT")="V":"Clinic",1:"Visit Type"),?114,"Date",?123,"Amount" Line Location: HDB+2
Function Call: WRITE	Prompt: !,ABM("LINE") Line Location: HDB+3
Function Call: WRITE	Prompt: !!?3,"Visit Location: ",$P(^DIC(4,$P(ABM("C"),U,3),0),U) Line Location: SUBHD+1
Function Call: WRITE	Prompt: !?32,"------",?121,"----------" Line Location: SUB2+1
Function Call: WRITE	Prompt: !?5,"Sub-total:",?32,ABM("CNT2"),?121,$J($FN(ABM("TOT2"),",",2),10) Line Location: SUB2+2
Function Call: WRITE	Prompt: !?32,"------",?121,"----------" Line Location: SUB+1
Function Call: WRITE	Prompt: !?9,"Total:",?32,ABM("CNT1"),?121,$J($FN(ABM("TOT1"),",",2),10) Line Location: SUB+2

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	PRINT+9, WRT+2
^ABMDTXST - [#9002274.6]	PRINT+9
^ABMDVTYP - [#9002274.8]	PRINT+12, WRT+4
^AUPNPAT - [#9000001]	WRT+1
^AUTNINS - [#9999999.18]	WRT
^DIC(4 - [#4]	SUBHD+1
^DIC(40.7 - [#40.7]	PRINT+12, WRT+3
^DPT - [#2]	WRT+1

Name	Field # of Occurrence
>> ABM	PRINT+5, PRINT+6, PRINT+8
>> ABM("A"	PRINT+4*
>> ABM("C"	PRINT+9*, WRT, WRT+1, WRT+3, WRT+4, SUBHD+1
>> ABM("CNT"	PRINT+4, WRT+7, TOT, TOT+1
>> ABM("CNT1"	PRINT+4, WRT+7, SUB, SUB+2, SUB+3*
>> ABM("CNT2"	PRINT+4, WRT+7, SUB2, SUB2+2, SUB2+3, SUB, SUB+3
>> ABM("D"	PRINT+9*, WRT+5
>> ABM("I"	WRT, HDB, SUB2+3, SUB+3
>> ABM("L"	PRINT+4, PRINT+10, PRINT+11, SUBHD+1
>> ABM("LINE"	HDB+3*!
>> ABM("PG"	PRINT+3, HDB
>> ABM("PRINT"	PRINT+3
>> ABM("PRIVACY"	PRINT+2*
>> ABM("T"	PRINT+8, PRINT+9, WRT+6, WRT+7, WRT+8
>> ABM("TOT"	PRINT+4, WRT+7, TOT+1, TOT+2*
>> ABM("TOT1"	PRINT+4, WRT+8, SUB+2, SUB+3*
>> ABM("TOT2"	PRINT+4, WRT+8, SUB2+2, SUB2+3, SUB+3
>> ABM("TXT"	PRINT+8*, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+13, WRT+2
>> ABM("V"	PRINT+4, PRINT+10, PRINT+12, PRINT+13*
>> ABM("Z"	PRINT+5*, PRINT+6
>> ABMY("SORT"	PRINT+12, WRT+3, HDB+2
>> DIROUT	PRINT+6, PRINT+7, HD
>> DTOUT	PRINT+6, PRINT+7, HD
>> DUOUT	PRINT+6, PRINT+7, HD
DUZ(2	PRINT+9, WRT+1, WRT+2
IOSL	PRINT+7
U	PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+13, WRT, WRT+1, WRT+2, WRT+3, WRT+4 , SUBHD+1