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

Package: Inpatient Medications

Routine: PSIVDCR1


Information

PSIVDCR1 ;BIR/PR,MLM-PRINT DRUG COST REPORT ;29 SEP 94 / 10:09 AM

Source Information

Source file <PSIVDCR1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Inpatient Medications 1 P1^PSIVDCR2  
Kernel 1 ^%ZISC  
VA Fileman 1 (NOW,YX)^%DTC  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Inpatient Medications 6 PSIVAMIS  PSIVDCR  PSIVDCR2  PSIVPAT  PSIVPCR1  PSIVWCR1  

Entry Points

Name Comments DBIA/ICR reference
RESORT ;
RESORT1 ;
F ;Form feed
H ;Header
K ;
SP ;Print out summary page
P ;Print IV room, grand total cost
S ;Print high/low cost in descending sort
TM ;
W ;Entry to print report.

External References

Name Field # of Occurrence
NOW^%DTC TM+1
YX^%DTC W+4
^%ZISC W+4, P+2, TM+1
P1^PSIVDCR2 P+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "="
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: Q=132
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !!?11,"GRAND TOTAL COST: ",?28,"$",$J(G1,14,2),?52,"$",$J(G2,14,2),?70,"$",$J(G3,14,2),?89,"$",$J(G4,14,2),?113,"$",$J(G5,17,2)
  • Line Location: P+3
Function Call: WRITE
  • Prompt: !,"DESCENDING SORT:"
  • Line Location: S+1
Function Call: WRITE
  • Prompt: ?30,SD,?90,"$",$J(^(SD),15,2),!
  • Line Location: S+2
Function Call: WRITE
  • Prompt: !!!!?16,"BAG SUMMARY:"
  • Line Location: SP+2
Function Call: WRITE
  • Prompt: !,?17,"DESTROYED",?40,"=",?40,$J(B2/B1*100,6,2)_" %",?80,"OF DISPENSED BAGS",!?17,"RECYCLED",?40,"=",?40,$J(B3/B1*100,6,2)_" %",?80,"OF DISPENSED BAGS",!?17,"CANCELLED",?40,"=",?40,$J(B4/B1*100,6,2)_" %",?80,"OF DISPENSED BAGS"
  • Line Location: SP+3
Function Call: WRITE
  • Prompt: !!?16,"COST SUMMARY:"
  • Line Location: SP+4
Function Call: WRITE
  • Prompt: !,?17,"DESTROYED",?40,"=",?40,$J(G2/G1*100,6,2)_" %",?80,"OF DISPENSED COST",!?17,"RECYCLED",?40,"=",?40,$J(G3/G1*100,6,2)_" %",?80,"OF DISPENSED COST",!?17,"CANCELLED",?40,"=",?40,$J(G4/G1*100,6,2)_" %",?80,"OF DISPENSED COST"
  • Line Location: SP+5
Function Call: WRITE
  • Prompt: !!!?17,"FINISHED PRINTING ON: "
  • Line Location: TM+1
Function Call: WRITE
  • Prompt: Y,@IOF
  • Line Location: TM+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" W+4, TM+1
^PS(59.5 - [#59.5] P+1
^UTILITY("PSIV" P+2, S+2, K+2!
^UTILITY($J W+1, W+2!, W+4, P+1, RESORT+1*, RESORT1+1*
^VA(200 - [#200] W+4

Label References

Name Line Occurrences
F P+1, P+3, S+2
H W+4, S+1, SP+1, F+1
K W+4, W+5, P+2
P W+5
RESORT W+1
RESORT1 RESORT+1

Naked Globals

Name Field # of Occurrence
^( S+2
^(0 W+1, P+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% TM+1, K+2!
>> %H W+4*
A K+2!
B K+2!
B1 W+3*, SP+1, SP+2, SP+3, K+2!
B2 W+3*, SP+3, K+2!
B3 W+3*, SP+3, K+2!
B4 W+3*, SP+3, K+2!
>> BRIEF H+1, H+2
C S+2*, K+2!
C1 K+2!
C2 K+2!
C3 K+2!
C4 K+2!
C5 K+2!
CC K+2!
DATA K+2!
DC W+1*, P+1*, K+2!, RESORT+1, RESORT1+1
DD K+2!
>> DRUG W+1*, RESORT+1, RESORT1+1
DUZ W+4
E W+3*, H+1*, K+2!
G1 W+3*, P+3, SP+1, SP+4, SP+5, K+2!
G2 W+3*, P+3, SP+5, K+2!
G3 W+3*, P+3, SP+5, K+2!
G4 W+3*, P+3, SP+5, K+2!
G5 W+3*, P+3, K+2!
GG K+2!
H W+4*, H+2, K+2!
I S+2*, K+2!
I10 H+2, K+2!
>> I15 H+2
I2 S+1, K+2!
I6 K+2!
I7 W+4, K+2!
I8 W+4, K+2!
II K+2!
IO W+4
IOF W+4, H+1, P+2, TM+1
IOSL F+1
IOST W+4, P+2
>> J W+1*, P+1*, RESORT+1*
L P+3*, K+2!
L1 W+3*, P+3, K+2!
L2 W+3*, K+2!
>> LCO W+1, W+2, P+2
LP H+2, S+1!*, S+2, SP+1*, K+2!
N P+1*, K+2!
N1 P+1*, K+2!
OK W+3*, K+2!
P P+1*, K+2!
P1 K+2!
P2 K+2!
P3 K+2!
P4 K+2!
P5 K+2!
>> PN RESORT+1*, RESORT1+1
PQ W+4, H+2, K+2!
Q H+3*, S+2*, K+2!
>> S W+4*
SD S+2*, K+2!
>> SMO H+1, H+2, P+1, P+3, S+1, SP+1
SUS K+2!
U W+1, W+4, P+1
U1 K+2!
U2 K+2!
U3 K+2!
U4 K+2!
UCO W+1, K+2!
>> US W+4*, H+2
>> V W+1*, W+2*, P+1*, S+2*, RESORT+1, RESORT1+1
V1 K+2!
V2 K+2!
V3 K+2!
V4 K+2!
>> WD RESORT+1*, RESORT1+1
WT K+2!
>> Y W+4*, TM+1*
>> ZTQUEUED K+1
>> ZTREQ K+1*
ZTSK TM+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All