Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ABMDRAL2

Package: Third Party Billing

Routine: ABMDRAL2


Information

ABMDRAL2 ; IHS/ASDST/DMJ - Bills Listing-132 width ;

Source Information

Source file <ABMDRAL2.m>

Call Graph

Call Graph Total: 3

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

Entry Points

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

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All