Routine: PSDGSL

Information

PSDGSL ;BIR/BJW-Review Green Sheet Log ; 10 Feb 98

Package	Total	Caller Graph
Controlled Substances	1	PSD GS LISTING

Name	Comments	DBIA/ICR reference
SORT	;sort gs number or date
GS2
GS	;ask gs num range
DEV	;asks device and queueing information
ASKD	;ask disp location
DATE	;ask date range
END
SAVE	;sets variables for queueing

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to view",!,?12,"Green Sheets. PSJ RPHARM or PSJ PHARM TECH security key required.",! Line Location: PSDGSL+5
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: !!,"The ending date of the range must be later than the starting date." Line Location: DATE+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: GS+1
Function Call: WRITE	Prompt: !!,"Please enter your starting Green Sheet number from 1 to 999999999.",! Line Location: GS+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: GS2+0
Function Call: WRITE	Prompt: !!,"Please enter your ending Green Sheet number from 1 to 999999999.",! Line Location: GS2+1
Function Call: WRITE	Prompt: !!,"Ending GS number must be larger that the starting GS number.",! Line Location: GS2+2
Function Call: WRITE	Prompt: !!,"This report is designed for a 132 column format.",!,"You may queue this report to print at a later time.",!! Line Location: DEV+1
Function Call: WRITE	Prompt: ! Line Location: DEV+3
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+3
Routine Call	%ZIS Line Location: DEV+4
Routine Call	DIC Line Location: ASKD+5
Routine Call	DIR Line Location: SORT+4
Routine Call	%ZIS Line Location: DEV+3

Name	Line Occurrences (* Changed, ! Killed)
^DD(58.8	DEV+2
^PSD(58.8 - [#58.8]	DEV+2
^TMP("PSDGSL"	END+1!
^XUSEC("PSJ PHARM TECH"	PSDGSL+4
^XUSEC("PSJ RPHARM"	PSDGSL+4

Name	Line Occurrences
DATE	DATE+3
DEV	DATE+5
END	ASKD+5, SORT+4, DATE+1, DATE+2, GS+1, GS2, DEV+3, DEV+4
GS	SORT+5, GS+2
GS2	GS2+1, GS2+2
SAVE	DEV+4
SORT	ASKD+2

Name	Field # of Occurrence
%	END!
%DT	DATE+1!*, END!
%DT("A"	DATE+1, DATE+2
%H	END!
%I	END!
%ZIS	DEV+3!*, END!
%ZIS("B"	DEV+3*
ASK	SORT+4*, SORT+5, END!
C	DEV+2*, END!
DA	ASKD+3!, SORT+1!, END!
DIC	ASKD+3!*, ASKD+5!, END!
DIC("A"	ASKD+4*
DIC("B"	ASKD+4*
DIC("S"	ASKD+3*
DIC(0	ASKD+3*
DIR	SORT+1!, SORT+4!, END!
DIR("?"	SORT+3*
DIR("A"	SORT+2*
DIR(0	SORT+1*
DIROUT	END!
DIRUT	SORT+1!, SORT+4, END!
DTIME	GS+1, GS2
DTOUT	END!
DUOUT	END!
DUZ	PSDGSL+4
IO	DEV+5
IO("Q"	DEV+3!, DEV+4!
IOP	DEV+3!
OK	PSDGSL+4*, PSDGSL+5!, END!
POP	DEV+3!, END!
PSD1	GS+3*, GS2+2, END!, SAVE+4
PSD2	GS2+3*, END!, SAVE+4
PSDATE	DATE+2, DATE+4, END!, SAVE+2
PSDED	DATE+4*, END!, SAVE+3
PSDEV	DEV+2*, DEV+3, END!
PSDOUT	DATE+1, DATE+2, END!
PSDS	ASKD+1, ASKD+6, DEV+2, END!
PSDSD	DATE+2, DATE+3, DATE+4, END!, SAVE+2
>> PSDSITE	PSDGSL+3, ASKD+1, ASKD+2, ASKD+6*
PSDSN	ASKD+1, ASKD+4, ASKD+6, END!
U	ASKD+1, ASKD+2, ASKD+6
X	GS+1, GS+2, GS+3, GS2, GS2+1, GS2+2, GS2+3, END!
Y	ASKD+5, ASKD+6, SORT+4, DATE+1, DATE+2, DATE+3, DATE+4, DEV+2*, END!
ZTDESC	DEV+4*, END+2!
ZTDTH	DEV+4!
ZTIO	DEV+4!
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTRTN	DEV+4*, END+2!
ZTSAVE	DEV+4!, END+2!
ZTSAVE("ASK"	SAVE+1*
ZTSAVE("NODE"	SAVE+1*
ZTSAVE("PSD1"	SAVE+4*
ZTSAVE("PSD2"	SAVE+4*
ZTSAVE("PSDA"	SAVE+1*
ZTSAVE("PSDATE"	SAVE+2*
ZTSAVE("PSDED"	SAVE+3*
ZTSAVE("PSDS"	SAVE+1*
ZTSAVE("PSDSD"	SAVE+2*
ZTSAVE("PSDSN"	SAVE+1*
ZTSK	DEV+4!, END+2!