Routine: PSJORP2

Information

PSJORP2 ;BIR/JCH-CALCULATE FIRST DOSE FOR OE/RR 3.0 ; 4/12/10 8:59am

Source file <PSJORP2.m>

Name	Comments	DBIA/ICR reference
ENQ(PSGP,INFO)	; start ; INFO (piece 1) = START DATE/TIME ; INFO (piece 2) = STOP DATE/TIME ; INFO (piece 3) = SCHEDULE ; INFO (piece 4) = SCHEDULE TYPE ; INFO (piece 5) = ORDERABLE ITEM ; INFO (piece 6) = ADMIN TIMES
OS(PSGP,PSGST)	; order record set
DTS(SCHEDULE)	;
PRT(PSGTS)	; order info
FIRST	; find expected first dose
LAST	; find expected last dose
TS(X)	;
LASTAT(PSGP,INFO)	;