LREXECU.m

LREXECU ;VA/SLC/RWF - EXECUTE CODE UTILITY ;8/11/97

 ;;5.2;LAB SERVICE;**1003,1013,1015,1031**;NOV 1, 1997

 ;

 ;;VA LR Patche(s): 121,200,362

 ;

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

LREXECU   ;VA/SLC/RWF - EXECUTE CODE UTILITY ;8/11/97

 +1       ;;5.2;LAB SERVICE;**1003,1013,1015,1031**;NOV 1, 1997

 +2       ;

 +3       ;;VA LR Patche(s): 121,200,362

 +4       ;

TDM       ;DRUG MONITORING

 +1        NEW DIR,DTOUT,DUOUT,DIRUT

 +2       ;Set the DIR array for sample to be drawn question

 +3        SET DIR(0)="SO^P:Peak;T:Trough;M:Mid;U:Unknown"

 +4        SET DIR("A")="Please select"

 +5        SET DIR("L",1)="Will (is) the sample to be drawn at"

 +6        SET DIR("L")=" Peak, Trough, Mid, or Unknown"

 +7        SET DIR("T")=60

 +8        SET DIR("?",1)="Enter a 'P', 'T', 'M', 'U', or hit the Enter Key."

 +9        SET DIR("?",2)="Hitting the Enter key will default to Unknown "

 +10       SET DIR("?")="Entering ""^"" or a timeout will cancel the order."

 +11      ;Prompt for user selection

           DO ^DIR

           KILL DIR

 +12      ;Process user selection

 +13       IF $DATA(DUOUT)!($DATA(DTOUT))

               WRITE !!!,$CHAR(7),"ORDER CANCELED"

               SET LRKIL=1

               QUIT 

 +14       IF Y=""

               SET Y(0)="Unknown"

               WRITE !!!,$CHAR(7),"Defaulted to Unknown"

 +15      IF '$TEST

               WRITE !!!,$CHAR(7),Y(0)_" has been selected."

 +16       SET LRCCOM="~Dose is expected to be at "_Y(0)_" level."

 +17       IF $$VER^LR7OU1>2.5

               DO TCOM^LRORD2(+LRTEST(LRTSTN),LRCCOM)

 +18      ;OE/RR 2.5

           IF $$VER^LR7OU1<3

               DO RCS^LRXO9

               IF '$DATA(ORACTION)

                   DO TCOM^LRORD2(+LRTEST(LRTSTN),LRCCOM)

 +19      ;Set DIR array for additional comment question

 +20       SET DIR(0)="FO^1:250"

 +21       SET DIR("A")="ADDITIONAL COMMENT"

 +22       SET DIR("T")=60

 +23       SET DIR("?")="This is a free text field, up to 250 characters in length."

 +24       DO ^DIR

           KILL DIR

 +25       IF $DATA(DUOUT)!($DATA(DTOUT))

               SET Y=""

 +26       SET LRCCOM=Y

 +27       QUIT 

DOSE      ;DOSE/DRAW TIMES

EN        ;

 +1        SET %DT("A")="Enter the last dose time: "

           SET %DT="AT"

           DO ^%DT

           SET LRDOSE=Y

 +2        IF Y<1

               WRITE !,"Time unknown"

               SET %=2

               DO YN^DICN

               IF %=1

                   SET LRDOSE="UNKNOWN"

               IF %'=1

                   GOTO EN

 +3        IF Y>1

               IF Y'["."

                   WRITE !,"You must enter a time, e.g.  T@6AM"

                   GOTO EN

 +4        IF LRDOSE["."

               SET Y=LRDOSE

               DO DD^LRX

               SET LRDOSE=Y

DRAW       WRITE !

           SET %DT("A")="Enter draw time: "

           SET %DT="AT"

           DO ^%DT

           SET LRDRAW=Y

 +1        IF Y<1

               WRITE !,"Time unknown"

               SET %=2

               DO YN^DICN

               IF %=1

                   SET LRDRAW="UNKNOWN"

               IF %'=1

                   GOTO DRAW

 +2        IF Y>1

               IF Y'["."

                   WRITE !,"You must enter a time, e.g.  T@6AM"

                   GOTO DRAW

 +3        IF LRDRAW["."

               SET Y=LRDRAW

               DO DD^LRX

               SET LRDRAW=Y

 +4        SET LRCCOM="~Last dose: "_LRDOSE_"   draw time: "_LRDRAW

           WRITE !,LRCCOM

 +5        WRITE !,"OK"

           SET %=1

           DO YN^DICN

           IF %'=1

               GOTO EN

 +6        KILL LRDOSE,LRDRAW,%DT

           QUIT