source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LREXECU.m@ 811

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

initial load of FOIAVistA 6/30/08 version

File size: 1.9 KB
Line 
1LREXECU ;SLC/RWF - EXECUTE CODE UTILITY ;8/11/97
2 ;;5.2;LAB SERVICE;**121,200,362**;Sep 27, 1994;Build 11
3TDM ;DRUG MONITORING
4 N DIR,DTOUT,DUOUT,DIRUT
5 ;Set the DIR array for sample to be drawn question
6 S DIR(0)="SO^P:Peak;T:Trough;M:Mid;U:Unknown"
7 S DIR("A")="Please select"
8 S DIR("L",1)="Will (is) the sample to be drawn at"
9 S DIR("L")=" Peak, Trough, Mid, or Unknown"
10 S DIR("T")=60
11 S DIR("?",1)="Enter a 'P', 'T', 'M', 'U', or hit the Enter Key."
12 S DIR("?",2)="Hitting the Enter key will default to Unknown "
13 S DIR("?")="Entering ""^"" or a timeout will cancel the order."
14 D ^DIR K DIR ;Prompt for user selection
15 ;Process user selection
16 I $D(DUOUT)!($D(DTOUT)) W !!!,$C(7),"ORDER CANCELED" S LRKIL=1 Q
17 I Y="" S Y(0)="Unknown" W !!!,$C(7),"Defaulted to Unknown"
18 E W !!!,$C(7),Y(0)_" has been selected."
19 S LRCCOM="~Dose is expected to be at "_Y(0)_" level."
20 I $$VER^LR7OU1>2.5 D TCOM^LRORD2(+LRTEST(LRTSTN),LRCCOM)
21 I $$VER^LR7OU1<3 D RCS^LRXO9 I '$D(ORACTION) D TCOM^LRORD2(+LRTEST(LRTSTN),LRCCOM) ;OE/RR 2.5
22 ;Set DIR array for additional comment question
23 S DIR(0)="FO^1:250"
24 S DIR("A")="ADDITIONAL COMMENT"
25 S DIR("T")=60
26 S DIR("?")="This is a free text field, up to 250 characters in length."
27 D ^DIR K DIR
28 I $D(DUOUT)!($D(DTOUT)) S Y=""
29 S LRCCOM=Y
30 Q
31DOSE ;DOSE/DRAW TIMES
32EN ;
33 S %DT("A")="Enter the last dose time: ",%DT="AT" D ^%DT S LRDOSE=Y
34 I Y<1 W !,"Time unknown" S %=2 D YN^DICN S:%=1 LRDOSE="UNKNOWN" G:%'=1 EN
35 I Y>1,Y'["." W !,"You must enter a time, e.g. T@6AM" G EN
36 I LRDOSE["." S Y=LRDOSE D DD^LRX S LRDOSE=Y
37DRAW W ! S %DT("A")="Enter draw time: ",%DT="AT" D ^%DT S LRDRAW=Y
38 I Y<1 W !,"Time unknown" S %=2 D YN^DICN S:%=1 LRDRAW="UNKNOWN" G:%'=1 DRAW
39 I Y>1,Y'["." W !,"You must enter a time, e.g. T@6AM" G DRAW
40 I LRDRAW["." S Y=LRDRAW D DD^LRX S LRDRAW=Y
41 S LRCCOM="~Last dose: "_LRDOSE_" draw time: "_LRDRAW W !,LRCCOM
42 W !,"OK" S %=1 D YN^DICN G EN:%'=1
43 K LRDOSE,LRDRAW,%DT Q
Note: See TracBrowser for help on using the repository browser.