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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSIVPCR

Package: Inpatient Medications

Routine: PSIVPCR


Information

PSIVPCR ;BIR/PR,MV-BUILD PROVIDER COST REPORT ;20 JUN 94 / 2:33 PM

Source Information

Source file <PSIVPCR.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Inpatient Medications 1 (K,P)^PSIVPCR1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSIVPCR1  

Entry Points

Name Comments DBIA/ICR reference
1 ;1 p 1 d
RM1 ;Run report for one IV room
SUB ;Set sub routine variable
H ;
7 ;C al p
QUEUE ;Queue
3 ;1 p al d
2 ;Al p al d
5 ;1 p n d
4 ;Al p 1 d
W ;Enter to print report
6 ;Al p n d
71 ;VA C al p
8 ;C 1 p
B ;
81 ;VA C 1 p
RMALL ;Run report for all IV rooms
HBRIEF ;

External References

Name Field # of Occurrence
^%ZIS QUEUE+2
^%ZISC W+1
^%ZTLOAD QUEUE+2
K^PSIVPCR1 QUEUE+2, W+1
P^PSIVPCR1 W+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NO DATA."
  • Line Location: W+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(I6)&($Y)
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !?56,"PROVIDER DRUG COST REPORT (REGULAR):",?120,"PAGE:",PG,!?56,H
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !?56,I9,!?56,I10,!?56,I15
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !!!?1,"PROVIDER",?36,"DISPENSED",?56,"DESTROYED",?73,"RECYCLED",?97,"CANCELLED",?128,"COST",!
  • Line Location: H+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: H+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: H+5
Function Call: WRITE
  • Prompt: !?20,"PROVIDER DRUG COST REPORT (CONDENSED):",?70,"PAGE:",PG,!?20,H
  • Line Location: HBRIEF+1
Function Call: WRITE
  • Prompt: !?20,I9,!?20,I10,!?20,I15
  • Line Location: HBRIEF+2
Function Call: WRITE
  • Prompt: !!!?1,"PROVIDER",?53,"TOTAL COST",!
  • Line Location: HBRIEF+3
Function Call: WRITE
  • Prompt: "="
  • Line Location: HBRIEF+3
Routine Call
  • %ZIS
  • Line Location:
    • QUEUE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" W+1
^PS(50.2 - [#50.2] 7+1, 8+1
^PS(50.8 - [#50.8] RM1+1, RMALL+1, 1+1, 2+1, 3+1, 4+1, 5+1, 6+1, 7+1, 71+2
, 71+4, 8+1, 81+2, 81+4, B+2
^PSDRUG - [#50] 71+2, 71+4, 81+2, 81+4
^UTILITY($J SUB+1!, W+1, B+3
^VA(200 - [#200] B+1

Label References

Name Line Occurrences
71 7+1
81 8+1
@( RM1+1, RMALL+1
B 1+1, 2+1, 3+1, 4+1, 5+1, 6+1, 7+1, 71+2, 71+4, 8+1
, 81+2, 81+4
H W+1
HBRIEF H+2

Naked Globals

Name Field # of Occurrence
^( RM1+1, RMALL+1, 1+1, 2+1, 3+1, 4+1, 5+1, 6+1, 7+1, 8+1
, B+3*
^(0 B+1
^(2 1+1, 3+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS QUEUE+2*
>> BRIEF H+2
>> CO B+2*, B+3
>> D5 7+1*, 71+2, 71+4, 8+1*, 81+2, 81+4
>> DA 1+1*, 2+1*, 3+1*, 4+1*, 5+1*, 6+1*, 7+1*, 71+2, 71+4, 8+1*
, 81+2, 81+4, B+2
>> DAT RM1+1*, RMALL+1*, 1+1, 2+1, 3+1, 4+1, 5+1, 6+1, 7+1, 71+2
, 71+4, 8+1, 81+2, 81+4, B+2
>> DES B+2*, B+3
>> DG B+2*, B+3
>> G QUEUE+1*, B+2*
>> G2 B+2*
>> H W+1*, H+3, HBRIEF+1
>> I H+5*, HBRIEF+3*
>> I1 SUB+1, 1+1, 3+1, 5+1, 8+1, 81+2, 81+4
>> I10 H+4, HBRIEF+2
>> I15 H+4, HBRIEF+2
>> I2 SUB+1, 1+1, 4+1, 7+1, 71+2, 71+3, 71+4, 8+1, 81+2, 81+3
, 81+4
>> I4 RM1+1, RMALL+1
>> I6 QUEUE+1, QUEUE+2, W+1
>> I7 RM1+1, RMALL+1, W+1
>> I8 RM1+1, RMALL+1, W+1
>> I9 H+4, HBRIEF+2
IO W+1
IOF W+1, H+1
>> IOP QUEUE+2*
>> J 1+1*, 4+1*, 5+1*, 6+1*, 7+1*, 8+1*, B+3*
>> MT 71+2*, 81+2*
>> NA RM1+1*, RMALL+1*, 1+1*, 4+1*, 5+1*, 6+1*, 7+1*, 8+1*
>> P 1+1*, 2+1*, 3+1*, 4+1*, 5+1*, 6+1*, 7+1*, 71+2*, 71+4*, 8+1*
, 81+2*, 81+4*, B+1, B+2
>> P1 B+1*, B+3
>> PG W+1*, H+1*, H+3, HBRIEF+1
>> S SUB+1*, RM1+1, RMALL+1
U 71+2, 71+4, 81+2, 81+4, B+2, B+3
>> UC B+2*, B+3
>> UD B+2*, B+3
>> UM B+2*, B+3
>> UR B+2*, B+3
>> V RM1+1*, RMALL+1*, 1+1, 2+1, 3+1, 4+1, 5+1, 6+1, 7+1, 71+2
, 71+4, 8+1, 81+2, 81+4, B+2, B+3
VA SUB+1!, 7+1, 71+1*, 8+1, 81+1*
>> Y W+1*
>> ZTDESC QUEUE+1*
>> ZTDTH QUEUE+1*
>> ZTIO QUEUE+1*
>> ZTQUEUED W+2
>> ZTREQ W+2*
>> ZTRTN QUEUE+1*
>> ZTSAVE( QUEUE+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All