source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRXOS0.m@ 861

Last change on this file since 861 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 719 bytes
RevLine 
[613]1LRXOS0 ;SLC/DCM - Order timing utility ;1/29/91 14:44
2 ;;5.2;LAB SERVICE;;Sep 27, 1994
3 ;;V~5.02~;LAB;;04/11/91 11:06
4CHK 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
5 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
6 Q
7INQ ;Inquiry to a schedule
8 S LREND=0 D CHK Q:LREND
9 S PSJPP="LR" D ENSVI^PSJEEU
10 G END
11EDIT ;Edit a schedule
12 S LREND=0 D CHK Q:LREND
13 S PSJPP="LR",DLAYGO=51 D ENSE^PSJEEU
14 G END
15END ;End
16 K DLAYGO,PSJPP,PSJX,PSJPP,PSJW,PSJNE,PSJSCH,PSJAT,PSJM,PSJSD,PSJFD,PSJOSD,PSJOFD,PSJC,DIC
17 Q
Note: See TracBrowser for help on using the repository browser.