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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSIVDCR

Package: Inpatient Medications

Routine: PSIVDCR


Information

PSIVDCR ;BIR/PR-BUILD DRUG COST RPT. ;16 DEC 97 / 1:39 PM

Source Information

Source file <PSIVDCR.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZTLOAD  
Inpatient Medications 1 ^PSIVDCR1  

Entry Points

Name Comments DBIA/ICR reference
RM1 ;1 IV room
SUB ;Set the sub routine call variable
K ;
51 ;VA code continued
1 ;All drugs or high/low cost
61 ;IV type continued
3 ;1 drug
2 ;Non-formulary drugs
5 ;VA drug class code
4 ;IV category
B2 ;
6 ;IV type A,P,H,C,S NOTE: This report cannot include patient data.
NQ ;No queue so go print.
B ;Build utility by the (W)ard or (P)atient subfile of the drug subfile.
RMALL ;All IV rooms
B1 ;

External References

Name Field # of Occurrence
^%ZIS RMALL+4
^%ZTLOAD RMALL+4
^PSIVDCR1 NQ+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] B+7
^DPT - [#2] B+7
^PS(50.2 - [#50.2] 4+1
^PS(50.8 - [#50.8] RM1+1, RMALL+1, 1+1, 2+1, 3+1, 4+1, 5+2, 6+1, 61+1, B+4
, B+7, B1+1
^PSDRUG - [#50] 51+1, 51+3
^UTILITY($J SUB+1!, B+6, B1+4

Label References

Name Line Occurrences
51 5+2
61 6+1
@( RM1+1, RMALL+1
B 1+1, 2+1, 3+1, 4+1, 51+1, 51+3, 61+1
B1 B+7
B2 B1+4
K RMALL+4, NQ+1

Naked Globals

Name Field # of Occurrence
^( RM1+1, RMALL+1, 1+1, 2+1, 3+1, 4+1, 5+2, 6+1, 61+1, B+7
^("PSIV" SUB+1!
^(0 B+6*, B+7, B1+4*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% K+2!
%I K+2!
%ZIS RMALL+4*, K+2!
B1 B+4*, B+5*, B+6, K+2!
B2 B+4*, B+5*, B+6, K+2!
B3 B+4*, B+5*, B+6, K+2!
B4 B+4*, B+5*, B+6, K+2!
BRIEF K+2!
C K+2!
C1 B1+1*, B1+2*, B2+1, K+2!
C2 B1+1*, B1+2*, B2+1, K+2!
C3 B1+1*, B1+2*, B2+1, K+2!
C4 B1+1*, B2+1, K+2!
D5 4+1*, 5+2*, 51+1, 51+3, K+2!
DA 1+1*, 2+1*, 3+1*, 4+1*, 5+2*, 6+1*, 61+1, B+4, B+7, B1+1
, K+2!
DA(1 61+1*, K+2!
DAT RM1+1*, RMALL+1*, 1+1, 2+1, 3+1, 4+1, 5+2, 6+1, 61+1, B+4
, B+7, B1+1, K+2!
DRUG B+4*, B+6, B1+4, K+2!
G RMALL+3*, B+4*, B1+1*, K+2!
G1 61+1*, B+5, B1+2, K+2!
>> G4 B1+2*
I15 K+2!
I2 SUB+1, 3+1, 4+1, 51+1, 51+2, 51+3, 6+1, K+2!
I4 RM1+1, RMALL+1, K+2!
I6 RMALL+3, RMALL+4, K+2!
I7 RM1+1, RMALL+1, K+2!
I8 RM1+1, RMALL+1, K+2!
>> IOP RMALL+4*
J 2+1*, 3+1*, 4+1*, 5+2*, B+6*, B1+4*, B2+1*, K+2!
MT 51+1*, K+2!
NA RM1+1*, RMALL+1*, 2+1*, 3+1*, 4+1*, 5+2*, K+2!
P B+7*, B1+1, K+2!
PD B+7*, B1+4, K+2!
PQ B+7, B1+1, B1+4, K+2!
S SUB+1*, RM1+1, RMALL+1, K+2!
SMO K+2!
TW 61+1*, B1+2, K+2!
TYPE SUB+1!, 6+1*, 61+1, B+5, B1+2, K+2!
U 51+1, 51+3, B+4, B+5, B+6, B+7, B1+1, B1+2, B1+4, B2+1
U1 B+4*, B+5*, B+6, B1+1*, B1+2*, B1+4, K+2!
U2 B+4*, B+5*, B1+1*, B1+2*, B1+4, K+2!
U3 B+4*, B+5*, B+6, B1+1*, B1+2*, B1+4, K+2!
U4 B+4*, B+5*, B+6, B1+1*, B1+2*, B1+4, K+2!
UM B+4*, B+6, K+2!
UNCOST B+4*, B+6, B1+1, B1+2, B1+4, K+2!
US K+2!
V RM1+1*, RMALL+1*, 1+1, 2+1, 3+1, 4+1, 5+2, 6+1, 61+1, B+4
, B+6, B+7, B1+1, B1+4, K+2!
VA SUB+1!, K+2!
W B+7*, B1+1, B1+2, K+2!
WD B+7*, B1+4, K+2!
X K+2!
>> ZTDESC RMALL+3*
>> ZTDTH RMALL+3*
>> ZTIO RMALL+3*
>> ZTQUEUED K+1
>> ZTREQ K+1*
>> ZTRTN RMALL+3*
>> ZTSAVE( RMALL+3*
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All