LRXOS0.m

LRXOS0 ; IHS/DIR/FJE - Order timing utility 14:44 ; [ 1/29/91 ]

 ;;5.2;LR;;NOV 01, 1997

 ;

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

LRXOS0    ; IHS/DIR/FJE - Order timing utility 14:44 ; [ 1/29/91 ]

 +1       ;;5.2;LR;;NOV 01, 1997

 +2       ;

 +3       ;;5.2;LAB SERVICE;;Sep 27, 1994

 +4       ;;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