44 lines
1.9 KiB
Mathematica
44 lines
1.9 KiB
Mathematica
LREXECU ;SLC/RWF - EXECUTE CODE UTILITY ;8/11/97
|
|
;;5.2;LAB SERVICE;**121,200,362**;Sep 27, 1994;Build 11
|
|
TDM ;DRUG MONITORING
|
|
N DIR,DTOUT,DUOUT,DIRUT
|
|
;Set the DIR array for sample to be drawn question
|
|
S DIR(0)="SO^P:Peak;T:Trough;M:Mid;U:Unknown"
|
|
S DIR("A")="Please select"
|
|
S DIR("L",1)="Will (is) the sample to be drawn at"
|
|
S DIR("L")=" Peak, Trough, Mid, or Unknown"
|
|
S DIR("T")=60
|
|
S DIR("?",1)="Enter a 'P', 'T', 'M', 'U', or hit the Enter Key."
|
|
S DIR("?",2)="Hitting the Enter key will default to Unknown "
|
|
S DIR("?")="Entering ""^"" or a timeout will cancel the order."
|
|
D ^DIR K DIR ;Prompt for user selection
|
|
;Process user selection
|
|
I $D(DUOUT)!($D(DTOUT)) W !!!,$C(7),"ORDER CANCELED" S LRKIL=1 Q
|
|
I Y="" S Y(0)="Unknown" W !!!,$C(7),"Defaulted to Unknown"
|
|
E W !!!,$C(7),Y(0)_" has been selected."
|
|
S LRCCOM="~Dose is expected to be at "_Y(0)_" level."
|
|
I $$VER^LR7OU1>2.5 D TCOM^LRORD2(+LRTEST(LRTSTN),LRCCOM)
|
|
I $$VER^LR7OU1<3 D RCS^LRXO9 I '$D(ORACTION) D TCOM^LRORD2(+LRTEST(LRTSTN),LRCCOM) ;OE/RR 2.5
|
|
;Set DIR array for additional comment question
|
|
S DIR(0)="FO^1:250"
|
|
S DIR("A")="ADDITIONAL COMMENT"
|
|
S DIR("T")=60
|
|
S DIR("?")="This is a free text field, up to 250 characters in length."
|
|
D ^DIR K DIR
|
|
I $D(DUOUT)!($D(DTOUT)) S Y=""
|
|
S LRCCOM=Y
|
|
Q
|
|
DOSE ;DOSE/DRAW TIMES
|
|
EN ;
|
|
S %DT("A")="Enter the last dose time: ",%DT="AT" D ^%DT S LRDOSE=Y
|
|
I Y<1 W !,"Time unknown" S %=2 D YN^DICN S:%=1 LRDOSE="UNKNOWN" G:%'=1 EN
|
|
I Y>1,Y'["." W !,"You must enter a time, e.g. T@6AM" G EN
|
|
I LRDOSE["." S Y=LRDOSE D DD^LRX S LRDOSE=Y
|
|
DRAW W ! S %DT("A")="Enter draw time: ",%DT="AT" D ^%DT S LRDRAW=Y
|
|
I Y<1 W !,"Time unknown" S %=2 D YN^DICN S:%=1 LRDRAW="UNKNOWN" G:%'=1 DRAW
|
|
I Y>1,Y'["." W !,"You must enter a time, e.g. T@6AM" G DRAW
|
|
I LRDRAW["." S Y=LRDRAW D DD^LRX S LRDRAW=Y
|
|
S LRCCOM="~Last dose: "_LRDOSE_" draw time: "_LRDRAW W !,LRCCOM
|
|
W !,"OK" S %=1 D YN^DICN G EN:%'=1
|
|
K LRDOSE,LRDRAW,%DT Q
|