Routine: PSJEEU0

Information

PSJEEU0 ;BIR/CML3,PR-MORE EXTERNAL ENTRIES ;22 OCT 97 / 10:22 AM

Source file <PSJEEU0.m>

Package	Total	Call Graph
Inpatient Medications	4	($$ENNPN,$$ENPDN)^PSGMI (ENIVKV,ENKV)^PSGSETU ENNA^PSIVACT ENIV^PSJAC
VA Fileman	3	NOW^%DTC IX^DIC ^DIE

Package	Total	Caller Graph
Health Summary	4	GMTSPSG GMTSPSG5 GMTSPSI GMTSPSI5
Adverse Reaction Tracking	1	GMRAPHR0
Controlled Substances	1	PSDORNV

Name	Comments	DBIA/ICR reference
ENIVSE	; IV schedule edit
GETAMT()	; get dosage ordered or units per dose
DISPDISP()	; return Dispense drug name
PRIMARY()	; return Primary drug, order has no Orderable Item node
GETDRUG()	; get orderable item or dispense drug
0	;Build 0 node
DONE	;
ENHS	;	ICR #139 Status: Retired Usage: Private ICR #486 Status: Active Usage: Controlled Subscription
UDSET	; ; changed line below to look at .2 node for Orderable Item.
ENHSI	;Build all IV Active/Non-verified orders
DISPCNT()	; returns 1 if only only one dispense drug, 0 if more than one

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.3 - [#50.3]	PRIMARY+1
^PS(50.606 - [#50.606]	GETDRUG+4
^PS(50.7 - [#50.7]	GETDRUG+4
^PS(51.2 - [#51.2]	UDSET+8
^PS(52.6 - [#52.6]	0+5
^PS(52.7 - [#52.7]	0+6
^PS(53.1 - [#53.1]	ENHS+3
^PS(55 - [#55]	ENHS+2, ENHSI+1, 0+5, 0+6
^PSDRUG - [#50]	DISPDISP+3
^UTILITY("PSG"	ENHS+1!, UDSET+9
^UTILITY("PSIV"	ENHS+1!, 0+3, 0+4, 0+5, 0+6*
^VA(200 - [#200]	0+2

Name	Field # of Occurrence
>> %	ENHS+1
A	DONE+1!, 0+5*
C	ENIVSE+2!
CNT	DISPCNT+1~, DISPCNT+2, DISPCNT+3*, DISPCNT+4
>> D	ENIVSE+1*
D0	ENIVSE+2!
D1	ENIVSE+2!
DA	ENIVSE+1!*
DFN	ENHS+1, ENHSI+1, DONE+1~, 0+5, 0+6
DIC	ENIVSE+1!*
DIC("DR"	ENIVSE+1*
DIC("S"	ENIVSE+1*
DIC(0	ENIVSE+1*
>> DIE	ENIVSE+1*
DR	ENIVSE+1!*
FQ	ENIVSE+1*, ENIVSE+2!
>> I	ENHSI+1*
LOOP	DISPCNT+1~, DISPDISP+1~, DISPDISP+2
NUM	DONE+1!, 0+5, 0+6
ON	ENHSI+1*, DONE+1!, 0+5, 0+6
P	DONE+1!, 0+5, 0+6
P(	ENHSI+1*
P(10	0+3*, 0+4
P(17	0+1*, 0+4
P(2	0+3*, 0+4, 0+5, 0+6
P(3	0+4
P(6	0+2*, 0+4
P(8	0+4
P(9	0+4
PS	DONE+1!
>> PSGP	ENHS+1*, ENHS+2, ENHS+3
PSIVREA	DONE+1!
PSJACNWP	ENHS+1*, DONE+1!
>> PSJEDT	ENHS+1, ENHSI+1
PSJFNM	DONE+2!, UDSET+2!, GETDRUG+3, GETDRUG+4, DISPDISP+4, DISPDISP+7, PRIMARY+2*, PRIMARY+4
PSJIVSEF	ENIVSE+2!
PSJPP	ENIVSE+1*, ENIVSE+2!
PSJROOT	ENHS+2, ENHS+3, DONE+2!, GETDRUG+1, GETDRUG+2, GETDRUG+3, DISPCNT+1, DISPDISP+2, DISPDISP+3, DISPDISP+4 , DISPDISP+5, PRIMARY+1, PRIMARY+2, PRIMARY+3
PSJTEXT	DONE+2!, DISPDISP+3, DISPDISP+7, PRIMARY+1, PRIMARY+4
PSJUD	DONE+2!, UDSET+2!, DISPDISP+5, DISPDISP+6, GETAMT+1, PRIMARY+3*
S	DONE+1!, 0+6*
U	ENHSI+1, 0+2, 0+4, 0+5, 0+6
V	DONE+1!, UDSET+4, UDSET+6, UDSET+8, UDSET+9
X	ENHS+1, ENHS+2, DONE+1!, 0+2*
X(0	ENHS+2, ENHS+3, UDSET+4, UDSET+6, UDSET+8, UDSET+9
X(1	UDSET+4*, GETDRUG+4, GETAMT+1
X(2	UDSET+4*, UDSET+9
Y	ENHS+2, ENHS+3, ENHSI+1*, DONE+1!, ENIVSE+1
Z	DONE+1!, 0+3, UDSET+8, UDSET+9*, ENIVSE+2!