Routine: ABMDRUN1

Information

ABMDRUN1 ; IHS/ASDST/DMJ - Unpaid Bills Listing-80 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+6
Function Call: WRITE	Prompt: !?3,"Visit Location: ",$P(^DIC(4,$P(ABM("C"),U,3),0),U) Line Location: PRINT+9
Function Call: WRITE	Prompt: ! Condition for execution: ABM("V")]"" Line Location: PRINT+11
Function Call: WRITE	Prompt: !?7,$S($G(ABMY("SORT"))="C":" Clinic: "_$P(^DIC(40.7,$P(ABM("TXT"),U,2),0),U),1:"Visit Type: "_$P(^ABMDVTYP($P(ABM("TXT"),U,2),0),U)) Line Location: PRINT+11
Function Call: WRITE	Prompt: !?25,"======",?69,"==========" Line Location: TOT+0
Function Call: WRITE	Prompt: !?3,"GRAND TOTAL:",?27,ABM("CNT"),?69,$J($FN(ABM("TOT"),",",2),10) Line Location: TOT+1
Function Call: WRITE	Prompt: !,?25,"Claim",?60,"Export",?71,"Billed" Line Location: HDB+1
Function Call: WRITE	Prompt: !?5,"Insurer",?25,"Number",?38,"Patient",?53,"HRN",?61,"Date",?71,"Amount" Line Location: HDB+2
Function Call: WRITE	Prompt: !,"===============================================================================" Line Location: HDB+3
Function Call: WRITE	Prompt: !?25,"------",?69,"----------" Line Location: SUB2+1
Function Call: WRITE	Prompt: !?5,"Sub-total:",?27,ABM("CNT2"),?69,$J($FN(ABM("TOT2"),",",2),10) Line Location: SUB2+2
Function Call: WRITE	Prompt: !?25,"------",?69,"----------" Line Location: SUB+1
Function Call: WRITE	Prompt: !?9,"Total:",?25,ABM("CNT1"),?69,$J($FN(ABM("TOT1"),",",2),10) Line Location: SUB+2

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	PRINT+8
^ABMDTXST - [#9002274.6]	PRINT+8
^ABMDVTYP - [#9002274.8]	PRINT+11
^AUPNPAT - [#9000001]	PRINT+16
^AUTNINS - [#9999999.18]	PRINT+13
^DIC(4 - [#4]	PRINT+9
^DIC(40.7 - [#40.7]	PRINT+11
^DPT - [#2]	PRINT+15

Name	Field # of Occurrence
>> ABM	PRINT+4, PRINT+5, PRINT+7
>> ABM("A"	PRINT+3*
>> ABM("C"	PRINT+8*, PRINT+9, PRINT+13, PRINT+14, PRINT+15, PRINT+16
>> ABM("CNT"	PRINT+3, PRINT+19, TOT, TOT+1
>> ABM("CNT1"	PRINT+3, PRINT+19, SUB, SUB+2, SUB+3*
>> ABM("CNT2"	PRINT+3, PRINT+19, SUB2, SUB2+2, SUB2+3, SUB, SUB+3
>> ABM("D"	PRINT+8*, PRINT+17
>> ABM("I"	PRINT+13, HDB, SUB2+3, SUB+3
>> ABM("L"	PRINT+3, PRINT+9, PRINT+10
>> ABM("PD"	PRINT+3*
>> ABM("PDT"	PRINT+3, TOT+2
>> ABM("PDT1"	PRINT+3*
>> ABM("PDT2"	PRINT+3*
>> ABM("PG"	PRINT+2, HDB
>> ABM("T"	PRINT+7, PRINT+8, PRINT+18, PRINT+19, PRINT+20
>> ABM("TOT"	PRINT+3, PRINT+19, TOT+1, TOT+2*
>> ABM("TOT1"	PRINT+3, PRINT+20, SUB+2, SUB+3*
>> ABM("TOT2"	PRINT+3, PRINT+20, SUB2+2, SUB2+3, SUB+3
>> ABM("TXT"	PRINT+7*, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12
>> ABM("V"	PRINT+3, PRINT+9, PRINT+11, PRINT+12*
>> ABM("Z"	PRINT+4*, PRINT+5
>> ABMY("SORT"	PRINT+11
>> DIROUT	PRINT+5, PRINT+6, HD
>> DTOUT	PRINT+5, PRINT+6, HD
>> DUOUT	PRINT+5, PRINT+6, HD
DUZ(2	PRINT+8, PRINT+16
IOSL	PRINT+6
U	PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRINT+16