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

Package: Inpatient Medications

Routine: PSIVWCR


Information

PSIVWCR ;BIR/PR-BUILD WARD COST REPORT ;22 JUL 94 / 11:32 AM

Source Information

Source file <PSIVWCR.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Inpatient Medications 1 (F,P,T)^PSIVWCR1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSIVWCR1  

Entry Points

Name Comments DBIA/ICR reference
1 ;1 d 1 w
RM1 ;Run report for one IV room
SUB ;Set sub routine variable
H ;
K
HV ;Preset sum header variables
7 ;C all WD
QUEUE ;Queue
3 ;1 w all d
2 ;All w all d
5 ;N 1 w
4 ;All w 1 d
W ;Enter here to print report
6 ;N all w
71 ;V C all w
8 ;C 1 w
B ;
81 ;V C 1 w
RMALL ;Run report for all IV rooms

External References

Name Field # of Occurrence
^%ZIS QUEUE+3
^%ZISC W+1
^%ZTLOAD QUEUE+3
F^PSIVWCR1 W+2
P^PSIVWCR1 W+2
T^PSIVWCR1 W+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: S
  • Line Location: QUEUE+1
Function Call: WRITE
  • Prompt: !,$C(7),"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: !,"IV ROOM: "_$P(^PS(59.5,V,0),U),!
  • Line Location: W+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !!,?56,"WARD/DRUG USAGE REPORT:",?120,"PAGE:",?102,$J(PC,4),!,?56,H
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?56,I11,!?56,I10,!?56,I15
  • 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: !
  • Condition for execution: LN=132
  • Line Location: H+4
Routine Call
  • %ZIS
  • Line Location:
    • QUEUE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HV+1
^PS(50.2 - [#50.2] 7+1, 8+1
^PS(50.8 - [#50.8] RM1+1, RMALL+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
^PS(59.5 - [#59.5] W+2
^PSDRUG - [#50] 71+2, 71+4, 81+2, 81+4
^UTILITY($J HV+1!, W+1, W+2, B+2, K!

Label References

Name Line Occurrences
71 7+1
81 8+1
@( RM1+1, RMALL+1
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+1, W+2
K QUEUE+3, W+1, W+3
W QUEUE+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% K!
>> %ZIS QUEUE+3*
AL W+2*, K!
B K!
C 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 HV+1
F HV+1*, K!
G QUEUE+2*, B+1*, K!
G2 B+1*, K!
G3 K!
H HV+1*, H+1, K!
I10 H+2, K!
I11 H+2, K!
>> I15 H+2
I2 SUB+1, 1+1, 4+1, 7+1, 71+2, 71+3, 71+4, 8+1, 81+2, 81+3
, 81+4, K!
I3 SUB+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, K!
>> I4 RM1+1, RMALL+1
>> I6 QUEUE+1, QUEUE+3, W+1
I7 HV+1, RM1+1, RMALL+1, K!
I8 HV+1, RM1+1, RMALL+1, K!
I9 K!
IO W+1
IOF W+1, H+1
>> IOP QUEUE+3*
J 5+1*, 6+1*, 1+1*, 4+1*, 7+1*, 8+1*, B+2*, K!
K K!
L HV+1*, K!
LN H+4*, K!
>> MT 71+2*, 81+2*
NA RM1+1*, RMALL+1*, 5+1*, 6+1*, 1+1*, 4+1*, 7+1*, 8+1*, K!
NOW HV+1*, K!
PC HV+1*, H+1*, K!
S SUB+1*, RM1+1, RMALL+1, K!
ST RM1+1*, RMALL+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, K!
TC HV+1*, K!
TD HV+1*, K!
U W+2, 71+2, 71+4, 81+2, 81+4, B+1, B+2
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 RM1+1*, RMALL+1*, W+2*, 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!
VA HV+1!, 7+1, 71+1*, 8+1, 81+1*, K!
W K!
Y HV+1*, K!
Z K!
ZF HV+1*, K!
>> ZTDESC QUEUE+1*
>> ZTDTH QUEUE+1*
>> ZTIO QUEUE+1*
>> ZTQUEUED K
>> ZTREQ K*
>> ZTRTN QUEUE+1*
>> ZTSAVE( QUEUE+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All