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

Package: Inpatient Medications

Routine: PSIVWRP


Information

PSIVWRP ;BIR/PR-WARD/DRUG USAGE REPORT ;20 JUN 94 / 2:35 PM

Source Information

Source file <PSIVWRP.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

Entry Points

Name Comments DBIA/ICR reference
1 ;1 d 1 w
B ;
7 ;
P1 ;
H ;
K
T ;
Q
P
3 ;
2 ;
5 ;N 1 w
4 ;
W
6 ;N all w
71 ;
8 ;
81 ;
PD

External References

Name Field # of Occurrence
^%ZIS Q+2
^%ZISC W, T+3
^%ZTLOAD Q+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: S
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: D
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,$C(7),"No data."
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,"IV ROOM: "_$P(^PS(59.5,V,0),U),!
  • Line Location: W+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: H+1
Function Call: WRITE
  • Prompt: ?95,NOW,!!!,?56,"WARD/DRUG USAGE REPORT:",?99,"PG",?102,$J(PC,4),!,?56,H
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?56,I11,", ",I10
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !!!?1," DRUG NAME",?38," DISPENSED",?57,"(DESTROYED)",?77,"RECYCLED",?95,"CANCELLED",?123,"DRUG COST"
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !
  • Line Location: H+3
Function Call: WRITE
  • Prompt: "="
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !
  • Line Location: H+5
Function Call: WRITE
  • Prompt: !?1,Z
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: !,?2,$E(AL,1,36),?38,$J($P(G3,U,3),10,2)_" "_C,?57,$J($P(G3,U,6),10,2)
  • Line Location: PD+1
Function Call: WRITE
  • Prompt: ?78,$J($P(G3,U,5),7,2),?96,$J($P(G3,U,7),7,2),?115,$J($P(G3,U,4),17,4)
  • Line Location: PD+1
Function Call: WRITE
  • Prompt: !!,?120,"============"
  • Line Location: T+1
Function Call: WRITE
  • Prompt: !,?40,"GRAND TOTAL:",?112,$J(TC,20,4)
  • Line Location: T+2
Routine Call
  • %ZIS
  • Line Location:
    • Q+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSIVWRP+5
^DD(52.6 PD
^DIC(42 - [#42] P1+1
^PS(50.2 - [#50.2] 7+1, 8+1
^PS(50.8 - [#50.8] PSIVWRP+6, 5+1, 6+1, 1+1, 2+1, 3+1, 4+1, 7+1, 71+2, 71+4
, 8+1, 81+2, 81+4, B+1
^PS(59.5 - [#59.5] W+1
^PSDRUG - [#50] 71+2, 71+4, 81+2, 81+4
^UTILITY($J PSIVWRP+6!, W, W+1, B+2, P, P1+1, PD, K!

Label References

Name Line Occurrences
71 7+1
81 8+1
@( PSIVWRP+6
B 5+1, 6+1, 1+1, 2+1, 3+1, 4+1, 7+1, 71+2, 71+4, 8+1
, 81+2, 81+4
H W, W+1, P, P1+1, PD+2
K Q+2, W
P W+1
P1 P
PD P1+1
T W+2
W Q

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% K!
>> %ZIS Q+2*
AL W+1*, P1+1*, PD, PD+1, K!
B K!
C PD*, PD+1, K!
CO B+1*, B+2, K!
>> D5 7+1*, 71+2, 71+4, 8+1*, 81+2, 81+4
DA 5+1*, 6+1*, 1+1*, 2+1*, 3+1*, 4+1*, 7+1*, 71+2, 71+4, 8+1*
, 81+2, 81+4, B+1, K!
DEST B+1*, B+2, K!
DG B+1*, B+2, K!
DT PSIVWRP+5
F PSIVWRP+5*, K!
G Q+1*, B+1*, K!
G2 B+1*, K!
G3 PD*, PD+1, K!
H PSIVWRP+5*, H+1, K!
I10 H+2, K!
I11 H+2, K!
I2 PSIVWRP+2, PSIVWRP+3, PSIVWRP+4, 1+1, 4+1, 7+1, 71+2, 71+3, 71+4, 8+1
, 81+2, 81+3, 81+4, K!
I3 PSIVWRP+2, PSIVWRP+3, PSIVWRP+4, 5+1, 6+1*, 1+1, 2+1*, 3+1, 4+1*, 7+1*
, 71+2*, 71+4*, 8+1, 81+2, 81+4, B+1, B+2, K!
>> I6 Q, Q+2
I7 PSIVWRP+5, PSIVWRP+6, K!
I8 PSIVWRP+5, PSIVWRP+6, K!
I9 K!
IO W
IOF H+1, T+3
>> IOP Q+2*
IOSL P, P1+1, PD+2
J 5+1*, 6+1*, 1+1*, 4+1*, 7+1*, 8+1*, B+2*, K!
K P!*, P1+1*, K!
L PSIVWRP+5*, K!
LN H+4*, K!
>> MT 71+2*, 81+2*
NA PSIVWRP+6*, 5+1*, 6+1*, 1+1*, 4+1*, 7+1*, 8+1*, K!
NOW PSIVWRP+5*, H+1, K!
PC PSIVWRP+5*, H+1*, K!
S PSIVWRP+2*, PSIVWRP+3*, PSIVWRP+4*, PSIVWRP+6, K!
ST PSIVWRP+6*, 5+1, 6+1, 1+1, 2+1, 3+1, 4+1, 7+1, 71+2, 71+4
, 8+1, 81+2, 81+4, B+1, K!
TC PSIVWRP+5*, PD+1*, T+2, K!
TD PSIVWRP+5*, PD+1*, K!
U W+1, 71+2, 71+4, 81+2, 81+4, B+1, B+2, P1+1, PD, PD+1
UC B+1*, B+2, K!
UD B+1*, B+2, K!
UM B+1*, B+2, K!
UR B+1*, B+2, K!
V PSIVWRP+6*, W+1*, 5+1, 6+1, 1+1, 2+1, 3+1, 4+1, 7+1, 71+2
, 71+4, 8+1, 81+2, 81+4, B+1, B+2, P, P1+1, PD, K!
VA PSIVWRP+6!, 7+1, 71+1*, 8+1, 81+1*, K!
W P*, P1+1, PD, K!
>> X PD*
Y PSIVWRP+5*, P1+1*, K!
Z P, P1+1*, K!
ZF PSIVWRP+5*, P, K!
>> ZTDESC Q*
>> ZTDTH Q*
>> ZTIO Q*
>> ZTQUEUED K
>> ZTREQ K*
>> ZTRTN Q*
>> ZTSAVE( Q+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All