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

Package: Third Party Tracking

Routine: ABPVRX03


Information

ABPVRX03 ;PRINT RX BILLING SUMMARY; [ 06/02/91 9:44 AM ]

Source Information

Source file <ABPVRX03.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 ^%DT  

Entry Points

Name Comments DBIA/ICR reference
SCRIP
PRNTENDZ
PRNTEND
HEAD1
PRNT
HEAD
SUBHD ;
SCRIPSUM ;PRINT SUM OF DRUG COST
START ;
DONE
C2
C1
PI
PI4

External References

Name Field # of Occurrence
^%DT START+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$J(ABPVHRN,6),?8,ABPVNAME,?40,Y
  • Line Location: C1+5
Function Call: WRITE
  • Prompt: !!,?8,ZINSNM,?40,$P(ABPVPRV,"^",2)
  • Line Location: PI4+0
Function Call: WRITE
  • Prompt: !,?8,$P(ABPVPRV,"^",4)
  • Line Location: PI4+1
Function Call: WRITE
  • Prompt: ?40,$P(^AUTTRLSH($P(ABPVPRV,"^",5),0),"^")
  • Line Location: PI4+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PI4+2
Function Call: WRITE
  • Prompt: !,?13,"**** TOTAL DRUG COST **** = ",?42,$J(ABPVRXZM,6,2),!
  • Line Location: SCRIPSUM+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRNT+0
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: PRNT+3
Function Call: WRITE
  • Prompt: ?13,$P(^PSDRUG(ABPVDDFN,0),"^")
  • Line Location: PRNT+4
Function Call: WRITE
  • Prompt: ?42,ABPVNDC
  • Line Location: PRNT+5
Function Call: WRITE
  • Prompt: !,?13,ABPVQTY_" "_ABPVDU
  • Line Location: PRNT+7
Function Call: WRITE
  • Prompt: ?56,"PRICING INFO NOT CURRENT",!
  • Line Location: PRNT+9
Function Call: WRITE
  • Prompt: ?56,"PRICING INFO NOT ON FILE",!
  • Line Location: PRNT+11
Function Call: WRITE
  • Prompt: " at $"_$J(ABPVPPDU,6,3)_" each",?56,$J(ABPVCST,6,2),?64,$J(ABPVFEE,6,2),?72,$J(ABPVBILL,6,2),!
  • Line Location: PRNT+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD1+0
Function Call: WRITE
  • Prompt: $P(^DIC(4,ABPV("SITE"),0),"^"),?57,ABPVDTP,?70,"Page ",ABPVPG,!
  • Line Location: HEAD1+1
Function Call: WRITE
  • Prompt: !,"Prescriptions between "_ABPVSDY_" and "_ABPVFDY_" for Prvt. Insurance Eligibles."
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !!,?2,"HRCN",?8,"Patient Name",?40,"DOB",!!,?8,"Insurer",?40,"Policy Number",!,?8,"Name of Insured",?40,"Relationship"
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,ABPV80D
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,"Fill Date",?13,"Drug",?42,"NDC Code",?58,"Cost",?66,"Fee",?73,"Total",!,"-----------",?13,"---------------------------",?42,"------------",?58,"------",?64,"------",?72,"------"
  • Line Location: SUBHD+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" DONE
^%ZTSK - [#14.4] START+7, SCRIP, C2+2
^AUPNPRVT - [#9000006] C2, PI
^AUTNINS - [#9999999.18] PI+3, PI+4
^AUTTRLSH - [#9999999.36] PI4+1
^DD("DD" START+4, C1+1, PRNT+2
^DIC(4 - [#4] HEAD1+1
^DPT - [#2] C1+1
^PSDRUG - [#50] PRNT+4, PRNT+5, PRNT+6, PRNT+8, PRNT+10
^PSRX - [#52] PRNT+1

Label References

Name Line Occurrences
C1 START+7
C2 SCRIP
DONE START+7
HEAD C1+3
HEAD1 HEAD
PI C2
PI4 PI+3
PRNT C2+2
PRNTENDZ PRNT+9, PRNT+11
SCRIPSUM SCRIP+1
SUBHD C2+1, PRNT

Naked Globals

Name Field # of Occurrence
^(2 PRNT+5
^(660 PRNT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ABPV("BEG" START+1
>> ABPV("END" START+1
>> ABPV("SITE" HEAD1+1
>> ABPV("TASK" START+1
>> ABPV80D START+3*, HEAD1+4
ABPVBILL PRNT+12*, PRNT+13, PRNTEND, DONE+1!
ABPVCST PRNT+12*, PRNT+13, DONE+1!
ABPVD0D DONE+1!
ABPVDDFN PRNT+1*, PRNT+4, PRNT+5, PRNT+6, PRNT+8, PRNT+10, DONE+1!
ABPVDFN START+7*, C1, C1+3, C1+4, SCRIP, C2+1, C2+2, PI, PRNTENDZ, DONE+1!
ABPVDPT C1+1*, DONE+1!
ABPVDT SCRIP*, C2+2, PI+1, PI+2, PRNT+2, DONE+1!
ABPVDTP START+4*, HEAD1+1, DONE+1!
ABPVDU PRNT+6*, PRNT+7, DONE+1!
ABPVFD START+1*, START+4, DONE+1!
ABPVFDY START+4*, HEAD1+2, DONE+1!
ABPVFEE START+5*, PRNT+12, PRNT+13, DONE+1!
ABPVHRN C1*, C1+5, DONE+1!
>> ABPVN0 PRNT+1*
>> ABPVNAME C1+1*, C1+5
>> ABPVNDC PRNT+5*
>> ABPVPDFN C2+2*, PRNT+1
>> ABPVPG START+6*, HEAD*, HEAD1+1
>> ABPVPPDU PRNT+10*, PRNT+11, PRNT+12, PRNT+13
ABPVPRIV DONE+1!
>> ABPVPRV PI*, PI+1, PI+3, PI+4, PI4, PI4+1
ABPVPRVE PI+1*, DONE+1!
>> ABPVPRVI C2*, PI
ABPVPRVS PI+1*, PI+2, DONE+1!
ABPVQTY PRNT+1*, PRNT+7, PRNT+12, DONE+1!
ABPVRXZM START+5*, SCRIPSUM+1*, PRNTEND*, DONE+1!
ABPVS DONE+1!
>> ABPVSD START+1*, START+4
>> ABPVSDY START+4*, HEAD1+2
>> DFN C1*, C1+1, C2, PI
DT START+2*, START+4
>> I START+7*
IOF PRNT, HEAD1, DONE
IOSL PRNT
J C2*, DONE+1!
K SCRIP*, DONE+1!
L C2+2*, DONE+1!
X START+2*, DONE+1!
Y START+2, START+4*, C1+1*, C1+5, PRNT+2*, PRNT+3, DONE+1!
ZDFNS START+6*, C1+3, C1+4*, DONE+1!
ZFL1 START+5*, C2+1, PI, PRNTENDZ*, DONE+1!
ZINSNM PI+3*, PI+4*, PI4, DONE+1!
ZTSK START+1*, START+7, SCRIP, C2+2, DONE+1!
ZUPDATE PRNT+8*, PRNT+9, DONE+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All