Routine: PSJPL0

Package	Total	Call Graph
VA Fileman	1	(,C,DW)^%DTC

Package	Total	Caller Graph
Inpatient Medications	3	PSGTAP1 PSJMEDS PSJMIV

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
RUN	; quit if fill on request prn or stop date not found
MN	; if only minutes (MN) are found
ENIV	;*** Entry to be called from ^PSGMIV (24 HOUR MAR IV).
TS	; admin times
TSFMN	;if admin times exist and minutes#1440=0
ADD	; ST=start date/time AM=minutes (+ or -) X=new date/time
DONE
MWF	; schedule in form of WD-WD-WD@TS
TS1

Name	Line Occurrences (* Changed, ! Killed)
^PS(55 - [#55]	RUN+1, RUN+2

Name	Field # of Occurrence
AM	MN+2, MN+3, ADD+1*, ADD+5!
CD	DONE!, ENIV+3, MN+3, TSFMN+1, TS1, MWF+1, MWF+3
>> CML	MN+3*, MN+4
>> FQ	MWF+2, MWF+3
>> FQ1	MWF+3*
H	ADD+1, ADD+2, ADD+3, ADD+5!
HCD	DONE!, MWF+1*, MWF+3
HM	DONE!, MN+2*, MN+3
HRS	ADD+1, ADD+3, ADD+5!
I	DONE!, MN+3, TSFMN+1
J	DONE!
M	DONE!, ADD+1*, ADD+2, ADD+5!
MID	DONE!, ENIV+3, TSFMN+1
MN	DONE!, RUN+2, ENIV+1, ENIV+2, ENIV+3, ENIV+4, MN+1, MN+2, TSFMN+1, MWF+2 , MWF+3, ADD+1, ADD+2, ADD+3, ADD+5!
ND	DONE!, RUN+2, ENIV+2, ENIV+3, MWF+1, MWF+2, MWF+3
ND1	DONE!, RUN+1*, ENIV+1
OD	DONE!, ENIV+3, MN+2, MN+3, MWF+1, MWF+3
PLSD	DONE!, RUN+2*, ENIV+1, ENIV+3, MN+3, TS1
PSGD	DONE!
PSGMAR	EN+1!
PSGMAR(	ENIV+1, MN+3, TS1*
>> PSGMFOR	RUN+1
>> PSGP	RUN+1, RUN+2
>> PSGPLC	EN+1, RUN+1, RUN+2, ENIV+1, ENIV+2, MN+3, TS1*
>> PSGPLF	ENIV+1, ENIV+3
>> PSGPLO	RUN+1, RUN+2
>> PSGPLS	ENIV+1, ENIV+3, ENIV+5, MN+2, TSFMN+1, TS1
>> PSJPLC	EN+1, MN+1
>> Q	TS+1*, TS1
QD1	DONE!
QD2	DONE!
QQ	DONE!, TS1*
ST	EN+1~, RUN+2, ENIV+1, ENIV+3, ENIV+5, MN+2, MN+3, MN+4, TSFMN+1, TS+1 , TS1, MWF+1, MWF+3, ADD+1
T	ADD+1*, ADD+2, ADD+3, ADD+4, ADD+5!
TS	DONE!, RUN+2, ENIV+2, ENIV+4, ENIV+5, TS+1, TS1, MWF+1
UD	DONE!
WDT	DONE!
WS	DONE!
WS1	DONE!
X	DONE!, MN+2, MN+3, TSFMN+1, MWF+1, MWF+3, ADD+1, ADD+4, ADD+5
X1	DONE!, MN+2, TSFMN+1, MWF+3, ADD+4
X2	DONE!, MN+2, TSFMN+1, MWF+3, ADD+1, ADD+3, ADD+4
>> XX	TS+1, TS1