Routine: PSJPL0

Information

PSJPL0 ;BIR/CML3-GETS UNITS COUNT FOR MDWS. ;07 Jul 98 / 4:02 PM

Source file <PSJPL0.m>

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