|
Last change
on this file since 649 was 628, checked in by George Lilly, 16 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
719 bytes
|
| Line | |
|---|
| 1 | LRXOS0 ;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
|
|---|
| 4 | 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
|
|---|
| 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
|
|---|
| 7 | INQ ;Inquiry to a schedule
|
|---|
| 8 | S LREND=0 D CHK Q:LREND
|
|---|
| 9 | S PSJPP="LR" D ENSVI^PSJEEU
|
|---|
| 10 | G END
|
|---|
| 11 | EDIT ;Edit a schedule
|
|---|
| 12 | S LREND=0 D CHK Q:LREND
|
|---|
| 13 | S PSJPP="LR",DLAYGO=51 D ENSE^PSJEEU
|
|---|
| 14 | G END
|
|---|
| 15 | END ;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.
