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

Package: Third Party Billing

Routine: ABMDRPT1


Information

ABMDRPT1 ; IHS/ASDST/DMJ - Bills Listing-part 2 ;

Source Information

Source file <ABMDRPT1.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
WHD^ABMDRHD HDB
PAZ^ABMDRUTL HD
$$SDT^ABMDUTL WRT+3, WRT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " (cont)"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: ABM("V")]""
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !?7,$S(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+10
Function Call: WRITE
  • Prompt: ?20,$P(ABM("C"),U)
  • Line Location: WRT+1
Function Call: WRITE
  • Prompt: ?28,$S($D(^AUPNPAT(ABM("PAT"),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+2
Function Call: WRITE
  • Prompt: ?46,$J($FN(ABM("T"),",",2),10)
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: " (cont)",!
  • Line Location: WRT+12
Function Call: WRITE
  • Prompt: !?20,"======",?46,"==========",?69,"==========",!?3,"GRAND TOTAL:",?20,ABM("CNT"),?46,$J($FN(ABM("TOT"),",",2),10),?69,$J($FN(ABM("PDT"),",",2),10)
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: !,?20,"Claim",?36,"Export",?50,"Billed",?60,"Date",?72,"Paid"
  • Line Location: HDB+1
Function Call: WRITE
  • Prompt: !?5,"Insurer",?20,"Number",?29,"HRN",?36,"Date",?50,"Amount",?60,"Paid",?71,"Amount"
  • Line Location: HDB+2
Function Call: WRITE
  • Prompt: !,ABM("LINE")
  • Line Location: HDB+3
Function Call: WRITE
  • Prompt: !?3,"Visit Location: ",$P(^DIC(4,$P(ABM("C"),U,3),0),U)
  • Line Location: SUBHD+0
Function Call: WRITE
  • Prompt: !?20,"------",?46,"----------",?69,"----------"
  • Line Location: SUB2+1
Function Call: WRITE
  • Prompt: !?5,"Sub-total:",?20,ABM("CNT2"),?46,$J($FN(ABM("TOT2"),",",2),10),?69,$J($FN(ABM("PDT2"),",",2),10)
  • Line Location: SUB2+2
Function Call: WRITE
  • Prompt: !?20,"------",?46,"----------",?69,"----------"
  • Line Location: SUB+1
Function Call: WRITE
  • Prompt: !?9,"Total:",?20,ABM("CNT1"),?46,$J($FN(ABM("TOT1"),",",2),10),?69,$J($FN(ABM("PDT1"),",",2),10)
  • Line Location: SUB+2

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
HD PRINT+5, WRT+12
HDB PRINT+1
SUB PRINT+8, PRINT+14
SUB2 PRINT+10, SUB
SUBHD PRINT+5, PRINT+8, WRT+12
TOT PRINT+14
WRT PRINT+12

Naked Globals

Name Field # of Occurrence
^( WRT+6
^(0 WRT+2, WRT+6
^(1 PRINT+7
^(2 PRINT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ABM PRINT+3*, PRINT+4*, PRINT+6
>> ABM("A" PRINT+2*
>> ABM("C" PRINT+7*, WRT, WRT+1, WRT+2, SUBHD
>> ABM("CNT" PRINT+2*, WRT+13*, TOT, TOT+1
>> ABM("CNT1" PRINT+2*, WRT+13*, SUB, SUB+2, SUB+3*
>> ABM("CNT2" PRINT+2*, WRT+13*, SUB2, SUB2+2, SUB2+3*, SUB, SUB+3*
>> ABM("D" PRINT+7*, WRT+3
>> ABM("I" WRT*, HDB*, SUB2+3*, SUB+3*
>> ABM("L" PRINT+2*, PRINT+8, PRINT+9*, SUBHD
>> ABM("LINE" HDB+3*!
>> ABM("PAT" WRT+2
>> ABM("PD" PRINT+2*, WRT+5*, WRT+6*
>> ABM("PD0" WRT+6*, WRT+10, WRT+11
>> ABM("PDD" WRT+6*, WRT+7, WRT+9
>> ABM("PDT" PRINT+2*, WRT+11*, TOT+1, TOT+2*
>> ABM("PDT1" PRINT+2*, WRT+11*, SUB+2, SUB+3*
>> ABM("PDT2" PRINT+2*, WRT+11*, SUB2+2, SUB2+3*, SUB+3*
>> ABM("PG" PRINT+1*, HDB*
>> ABM("T" PRINT+6*, PRINT+7*, WRT+4, WRT+13, WRT+14
>> ABM("TOT" PRINT+2*, WRT+13*, TOT+1, TOT+2*
>> ABM("TOT1" PRINT+2*, WRT+14*, SUB+2, SUB+3*
>> ABM("TOT2" PRINT+2*, WRT+14*, SUB2+2, SUB2+3*, SUB+3*
>> ABM("TXT" PRINT+6*, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, WRT+6
>> ABM("V" PRINT+2*, PRINT+8*, PRINT+10, PRINT+11*
>> ABM("Z" PRINT+3*, PRINT+4
>> ABM(0 WRT+6*, WRT+7*, WRT+8
>> ABMY("DT" WRT+7
>> ABMY("SORT" PRINT+10
>> DIROUT PRINT+4, PRINT+5, PRINT+13, WRT+12, HD
>> DTOUT PRINT+4, PRINT+5, PRINT+13, WRT+12, HD
>> DUOUT PRINT+4, PRINT+5, PRINT+13, WRT+12, HD
DUZ(2 PRINT+7, WRT+2, WRT+6
IOSL PRINT+5, WRT+12
U PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, WRT, WRT+1, WRT+2, WRT+6, SUBHD
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All