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: ABMDRPR2

Package: Third Party Billing

Routine: ABMDRPR2


Information

ABMDRPR2 ; IHS/ASDST/DMJ - Productivity Report-132 Width ;

Source Information

Source file <ABMDRPR2.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
XIT ;EXIT POINT
HDB
PRINT ;EP for printing data
HD

External References

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

Interaction Calls

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

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