Routine: ABMDRAL2

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

Entry Points

External References

Name	Field # of Occurrence
^ABMDRHD	PRINT+3
WHD^ABMDRHD	HDB
PAZ^ABMDRUTL	HD
$$SDT^ABMDUTL	WRT+4, WRT+7, WRT+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " (cont)" Line Location: PRINT+7
Function Call: WRITE	Prompt: ?30,$P(ABM("C"),U) Line Location: WRT+1
Function Call: WRITE	Prompt: ?38,$E($P(^DPT($P(ABM("C"),U,5),0),U),1,18) Line Location: WRT+2
Function Call: WRITE	Prompt: ?58,$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+3
Function Call: WRITE	Prompt: ?76,$E($P(^ABMDVTYP($P(ABM("C"),U,7),0),U),1,10) Line Location: WRT+6
Function Call: WRITE	Prompt: ?87,$$SDT^ABMDUTL(ABM("D")) Line Location: WRT+7
Function Call: WRITE	Prompt: ?98,$J($FN(ABM("T"),",",2),10) Line Location: WRT+8
Function Call: WRITE	Prompt: " (cont)",! Line Location: WRT+15
Function Call: WRITE	Prompt: !?30,"======",?98,"==========",?121,"==========",!?3,"GRAND TOTAL:",?30,ABM("CNT"),?98,$J($FN(ABM("TOT"),",",2),10),?121,$J($FN(ABM("PDT"),",",2),10) Line Location: TOT+1
Function Call: WRITE	Prompt: !,?30,"Claim",?67,"Visit",?89,"Export",?101,"Billed",?112,"Date",?125,"Paid" Line Location: HDB+1
Function Call: WRITE	Prompt: !?10,"Insurer",?30,"Number",?43,"Patient",?59,"HRN",?67,"Date",?77,$S(ABMY("SORT")="V":"Clinic",1:"Visit Type"),?90,"Date",?101,"Amount",?112,"Posted",?124,"Amount" Line Location: HDB+3
Function Call: WRITE	Prompt: !,ABM("LINE") Line Location: HDB+4
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: !?30,"------",?98,"----------",?121,"----------" Line Location: SUB2+1
Function Call: WRITE	Prompt: !?5,"Sub-total:",?30,ABM("CNT2"),?98,$J($FN(ABM("TOT2"),",",2),10),?121,$J($FN(ABM("PDT2"),",",2),10) Line Location: SUB2+2
Function Call: WRITE	Prompt: !?30,"------",?98,"----------",?121,"----------" Line Location: SUB+1
Function Call: WRITE	Prompt: !?9,"Total:",?30,ABM("CNT1"),?98,$J($FN(ABM("TOT1"),",",2),10),?121,$J($FN(ABM("PDT1"),",",2),10) Line Location: SUB+2

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

Name	Field # of Occurrence
^(	WRT+9
^(0	WRT+3, WRT+9
^(1	PRINT+9
^(2	PRINT+9
^(7	WRT+4

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Third Party Billing

Routine: ABMDRAL2

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
HD	PRINT+7, WRT+15
HDB	PRINT+3
SUB	PRINT+10, PRINT+15
SUB2	PRINT+12, SUB
SUBHD	PRINT+7, PRINT+10, WRT+15
TOT	PRINT+15
WRT	PRINT+14

Name	Comments	DBIA/ICR reference
SUB2
SUB
TOT
SUBHD	;
WRT
HDB
PRINT	;EP for printing data
HD