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) | ;
|