Routine: ABMDRPR2

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

Package

Total

Call Graph

Name	Field # of Occurrence
WHD^ABMDRHD	HDB
PAZ^ABMDRUTL	HD
$$SDT^ABMDUTL	PRINT+19, PRINT+22

Name	Line Occurrences
Function Call: WRITE	Prompt: " (cont)" Line Location: PRINT+5
Function Call: WRITE	Prompt: " (cont)" Line Location: PRINT+7
Function Call: WRITE	Prompt: !?3,"Visit Location: ",$P(^DIC(4,$P(ABM("C"),U,3),0),U) Line Location: PRINT+12
Function Call: WRITE	Prompt: ! Condition for execution: ABM("V")]"" Line Location: PRINT+14
Function Call: WRITE	Prompt: !?7,$S(ABMY("SORT")="C":" Clinic: "_$P(^DIC(40.7,$P(ABM("TXT"),U,3),0),U),1:"Visit Type: "_$P(^ABMDVTYP($P(ABM("TXT"),U,3),0),U)) Line Location: PRINT+14
Function Call: WRITE	Prompt: ?92,$E($P(^ABMDVTYP($P(ABM("C"),U,7),0),U),1,18) Line Location: PRINT+21
Function Call: WRITE	Prompt: !?32,"======",?121,"==========" Line Location: TOT+0
Function Call: WRITE	Prompt: !?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: !!,"Approving Official: ",$P(^VA(200,$P(ABM("TXT"),U),0),U) Line Location: SUBHD+0
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+8
^ABMDTXST - [#9002274.6]	PRINT+9
^ABMDVTYP - [#9002274.8]	PRINT+14, PRINT+21
^AUPNPAT - [#9000001]	PRINT+18
^AUTNINS - [#9999999.18]	PRINT+16
^DIC(4 - [#4]	PRINT+12
^DIC(40.7 - [#40.7]	PRINT+14, PRINT+20
^DPT - [#2]	PRINT+17
^VA(200 - [#200]	SUBHD

Name	Line Occurrences
HD	PRINT+7
HDB	PRINT+1
SUB	PRINT+10, PRINT+12, PRINT+26
SUB2	PRINT+14, SUB
SUBHD	PRINT+7, PRINT+10
TOT	PRINT+10, PRINT+26
XIT	PRINT+4

Name	Field # of Occurrence
^(0	PRINT+18
^(1	PRINT+8
^(2	PRINT+8
^(7	PRINT+8

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Third Party Billing

Routine: ABMDRPR2

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	Comments	DBIA/ICR reference
SUB2
SUB
TOT
SUBHD
XIT	;EXIT POINT
HDB
PRINT	;EP for printing data
HD