Routine: PSDORST

Package	Total	Caller Graph
Controlled Substances	1	PSD PEND VAULT ORDERS

Entry Points

Name	Comments	DBIA/ICR reference
SET	;sets data for printing
END
HDR	;header for log
START	;loops thru pending orders and orders cancelled in the past 3 days
DEV	;ask device and queue info
ASKD	;ask dispensing location
DONE
PRINT	;prints the report
LOOP	;starts drug loop for all orders

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"print this status report.",!!,"PSJ RPHARM or PSJ PHARM TECH security key required.",! Line Location: PSDORST+4
Function Call: WRITE	Prompt: !!,"You may queue this report to print at a later time.",!! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+3
Function Call: WRITE	Prompt: !!,?10,"** NO PENDING ORDERS TO REPORT **" Line Location: PRINT+2
Function Call: WRITE	Prompt: !,?2,"=> ",DRUG,!! Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: ! Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?20,"Pharmacy Status of Pending Narcotic Orders",?70,"Page: ",PG,!,?35,PSDSN,!,?35,RPDT,! Line Location: HDR+2
Function Call: WRITE	Prompt: !,?2,"=> DRUG",!,?13,"DATE",!,"DISP #",?12,"ORDERED",?32,"QTY",?40,"NAOU",?55,"ORDER STATUS" Line Location: HDR+3
Function Call: WRITE	Prompt: !,LN,! Line Location: HDR+4
Routine Call	%ZIS Line Location: DEV+4
Routine Call	DIC Line Location: ASKD+5
Routine Call	DIR Line Location: DONE+1 HDR+1
Routine Call	%ZIS Line Location: DEV+3

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT+1, SET+4
^DD(58.8	DEV+2
^PSD(58.8 - [#58.8]	DEV+2, SET+3
^PSD(58.82 - [#58.82]	SET+4
^PSD(58.85 - [#58.85]	START+3, LOOP+1, SET+1
^PSDRUG - [#50]	SET+2
^TMP("PSDTST"	START+1!, PRINT+2, PRINT+4, PRINT+5, END+2!, SET+5*
^XUSEC("PSJ PHARM TECH"	PSDORST+3
^XUSEC("PSJ RPHARM"	PSDORST+3

Name	Field # of Occurrence
^(0	SET+1, SET+2, SET+3

Name	Field # of Occurrence
%	END!
%H	END!
%I	END!
%ZIS	DEV+3!*, END!
%ZIS("B"	DEV+3*
C	DEV+2*, END!
DA	ASKD+3!, END!, HDR+1!
DIC	ASKD+3!*, ASKD+5!, END!
DIC("A"	ASKD+4*
DIC("B"	ASKD+4*
DIC("S"	ASKD+3*
DIC(0	ASKD+3*
DIR	DONE+1!, END!, HDR+1!
DIR("A"	DONE+1*
DIR(0	DONE+1, HDR+1
DIROUT	END!
DIRUT	DONE+1!, END!
DRUG	PRINT+4, PRINT+5, END!, LOOP+1, SET+2
DRUGN	END!, SET+2*, SET+5
DTOUT	END!
DUOUT	END!
DUZ	PSDORST+3
IO	DEV+5
IO("Q"	DEV+3!, DEV+4!
IOF	DONE, HDR+2
IOP	DEV+3!
IOSL	PRINT+5
IOST	DONE, DONE+1, HDR+1
LN	PRINT+2!*, END!, HDR+4
NAOU	START+3*, END!, LOOP+1, SET+3
NAOUN	END!, SET+3*, SET+5
NODE	PRINT+5, PRINT+6, END!, SET+1, SET+4
OK	PSDORST+3*, PSDORST+4!, END!
ORD	PRINT+4, PRINT+5, END!, LOOP+1
PG	PRINT+1, END+1!, HDR+1, HDR+2
POP	DEV+3!
PSDA	END+1!, LOOP+1*, SET+1, SET+5
PSDEV	DEV+2*, DEV+3, END+1!
PSDOUT	PRINT+1, PRINT+4, PRINT+5, DONE+1, END+1!, HDR+1
PSDPN	END+1!, SET+4*, SET+5
PSDS	ASKD+1, ASKD+6, DEV+2, END+1!, SET+1
>> PSDSITE	PSDORST+2, ASKD+1, ASKD+2, ASKD+4, ASKD+6*
PSDSN	ASKD+1, ASKD+6, END+1!, HDR+2
PSDT	START+2*, PRINT+1, END+1!
QTY	END+1!, SET+4*, SET+5
REQ	END+1!, SET+4*, SET+5
RPDT	PRINT+1*, END+1!, HDR+2
STAT	START+3*, END+1!, LOOP+1, SET+4
STATN	END+1!, SET+4*, SET+5
U	ASKD+1, ASKD+2, ASKD+4, ASKD+6
X	START+2, END+1!
Y	ASKD+5, ASKD+6, DEV+2, PRINT+1, END+1!, SET+4*, HDR+1
ZTDESC	DEV+4*, END+1!
ZTDTH	DEV+4!, END+1!
ZTIO	DEV+4!
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTRTN	DEV+4*, END+1!
ZTSAVE	DEV+4!, END+1!
ZTSAVE("PSDS"	DEV+4*
ZTSAVE("PSDSN"	DEV+4*
ZTSK	DEV+4!, END+1!