Routine: PSDEM4

Package	Total	Call Graph
Controlled Substances	1	^PSDSET
VA Fileman	1	^DIC

Package	Total	Caller Graph
Controlled Substances	1	PSD NURSE PRIORITY ORDER CHECK

Entry Points

Name	Comments	DBIA/ICR reference
MSG	;display error message
NAOU	;select NAOU to check priority orders for
END
LOOP

Name	Field # of Occurrence
^DIC	NAOU+3
^PSDSET	PSDEM4+2

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: NAOU+3
Function Call: WRITE	Prompt: !!,"Contact your Pharmacy Coordinator.",!,"The Pharmacy Dispensing Site is invalid for this NAOU." Line Location: NAOU+9
Function Call: WRITE	Prompt: $C(7),!!,?10,"Contact your Pharmacy Coordinator.",!,?10,"This "_$S(MSG=2:"Dispensing Site",MSG=1:"NAOU",1:"Drug")_" is missing " Line Location: MSG+1
Function Call: WRITE	Prompt: $S(MSG1=1:"Primary Disp. Site",MSG1=2:"stocked drugs",MSG1=3:"narcotic breakdown unit",MSG1=4:"narcotic package size",1:"data")_".",! Line Location: MSG+2
Routine Call	DIC Line Location: NAOU+3

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSDEM4+3
^PSD(58.8 - [#58.8]	NAOU+4, NAOU+5, NAOU+6, NAOU+7, NAOU+8, NAOU+9, LOOP+6
^PSD(58.81 - [#58.81]	LOOP+1, LOOP+2, LOOP+3
^PSD(58.82 - [#58.82]	LOOP+7
^PSDRUG - [#50]	LOOP+5

Name	Line Occurrences
END	NAOU+3, NAOU+4, NAOU+5, NAOU+6, NAOU+7, NAOU+8, NAOU+9
MSG	NAOU+4, NAOU+5, NAOU+6, NAOU+7, NAOU+8

Name	Field # of Occurrence
%	END!
%DT	END!
%H	END!
%I	END!
CNT	END!
CNT1	END!
DA	NAOU+1!, END!
DIC	NAOU+1!*, NAOU+3!, END!
DIC("A"	NAOU+1*
DIC("S"	NAOU+2*
DIC(0	NAOU+1*
DIE	END!
DINUM	END!
DIR	END!
DIROUT	END!
DIRUT	END!
DIWF	END!
DIWL	END!
DIWR	END!
DR	END!
DT	PSDEM4+3, LOOP, LOOP+1
DTOUT	END!
DUOUT	END!
DUZ	PSDEM4+3
LN	END!
MSG	PSDEM4+3, NAOU+4, NAOU+5, NAOU+6, NAOU+7, NAOU+8, END!, MSG+1
MSG1	PSDEM4+3, NAOU+5, NAOU+6, NAOU+8, END!, MSG+2
NAOU	NAOU+3*, NAOU+4, NAOU+5, NAOU+6, LOOP+3, END+1!
NAOUN	NAOU+3*, LOOP+8, END+1!
NBKU	END+1!
NPKG	END+1!
OK	END+1!
OKTYP	NAOU+9*, END+1!
ORD	END+1!
PSDA	END+1!
PSDEM	END+1!
PSDOUT	END+1!
PSDQTY	END+1!
PSDR	END+1!
PSDRD	END+1!
PSDRN	END+1!
PSDS	NAOU+6*, NAOU+7, NAOU+8, NAOU+9, LOOP+2, LOOP+6, END+1!
>> PSDSITE	PSDEM4+2
PSDT	LOOP, LOOP+2, END+1!
PSDT(1	LOOP+2*, LOOP+5, LOOP+6
PSDT(2	LOOP+2*, LOOP+3, LOOP+4
PSDT(3	LOOP+3*, LOOP+5, LOOP+7
PSDT(4	LOOP+4*, LOOP+8
PSDUZ	PSDEM4+3*, END+1!
PSDUZN	END+1!
REQD	PSDEM4+3*, END+1!
TEXT	END+1!
TYPE	NAOU+9*, END+1!
U	LOOP+3, LOOP+5, LOOP+6, LOOP+7
WORD	END+1!
X	END+1!
Y	PSDEM4+3*, NAOU+3, END+1!