LRXOS0 ;SLC/DCM - Order timing utility ;1/29/91 14:44
;;5.2;LAB SERVICE;;Sep 27, 1994
;;V~5.02~;LAB;;04/11/91 11:06
CHK I $S($D(^PS(59.7,1,20)):$S(+^(20)<2.8:1,1:0),1:1) W !,"Unable to continue.",!,"This option requires version 2.8 or greater of Inpatient Medications package." S LREND=1
I $S($D(^DD(100,0,"VR")):$S(^("VR")<2:1,1:0),1:1) W !,"Unable to continue.",!,"This option requires version 2 or greater of OE/RR" S LREND=1
Q
INQ ;Inquiry to a schedule
S LREND=0 D CHK Q:LREND
S PSJPP="LR" D ENSVI^PSJEEU
G END
EDIT ;Edit a schedule
S LREND=0 D CHK Q:LREND
S PSJPP="LR",DLAYGO=51 D ENSE^PSJEEU
G END
END ;End
K DLAYGO,PSJPP,PSJX,PSJPP,PSJW,PSJNE,PSJSCH,PSJAT,PSJM,PSJSD,PSJFD,PSJOSD,PSJOFD,PSJC,DIC
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRXOS0 736 printed Dec 13, 2024@02:23:28 Page 2
LRXOS0 ;SLC/DCM - Order timing utility ;1/29/91 14:44
+1 ;;5.2;LAB SERVICE;;Sep 27, 1994
+2 ;;V~5.02~;LAB;;04/11/91 11:06
CHK IF $SELECT($DATA(^PS(59.7,1,20)):$SELECT(+^(20)<2.8:1,1:0),1:1)
WRITE !,"Unable to continue.",!,"This option requires version 2.8 or greater of Inpatient Medications package."
SET LREND=1
+1 IF $SELECT($DATA(^DD(100,0,"VR")):$SELECT(^("VR")<2:1,1:0),1:1)
WRITE !,"Unable to continue.",!,"This option requires version 2 or greater of OE/RR"
SET LREND=1
+2 QUIT
INQ ;Inquiry to a schedule
+1 SET LREND=0
DO CHK
if LREND
QUIT
+2 SET PSJPP="LR"
DO ENSVI^PSJEEU
+3 GOTO END
EDIT ;Edit a schedule
+1 SET LREND=0
DO CHK
if LREND
QUIT
+2 SET PSJPP="LR"
SET DLAYGO=51
DO ENSE^PSJEEU
+3 GOTO END
END ;End
+1 KILL DLAYGO,PSJPP,PSJX,PSJPP,PSJW,PSJNE,PSJSCH,PSJAT,PSJM,PSJSD,PSJFD,PSJOSD,PSJOFD,PSJC,DIC
+2 QUIT
