LROR6B.m

LROR6B ; IHS/DIR/AAB - EDIT UNRELEASED LAB ORDERS FOR OE/RR CONT 9/11/89 16:55 ; [ 07/22/2002  1:30 PM ]

 ;;5.2;LR;**1002,1013**;JUL 15, 2002

 ;;5.2;LAB SERVICE;**24,100,128**;Sep 27, 1994

SET K ^XUTL("OR",$J,"LROT",LROOST,LROXZ,LROSAMP,LROSPEC,LROCNT)

 I '$D(^XUTL("OR",$J,"LROT",LROST,LRZX(1))) S ZTQUEUED=1 D ORDER^LROW2 K ZTQUEUED S ^XUTL("OR",$J,"LROT",LROST,LRZX(1))=LRORD

 S LRORD=^XUTL("OR",$J,"LROT",LROST,LRZX(1))

 S ^XUTL("OR",$J,"LROT",LROST,LRZX(1),LRSAMP,LRSPEC,LROCNT,1)=LRURG,^XUTL("OR",$J,"LROT",LROST,LRZX(1),LRSAMP,LRSPEC,LROCNT,0)=ORIFN,^XUTL("OR",$J,"LROT",LROST,LRZX(1),LRSAMP,LRSPEC,LROCNT)=LRTST

 S ORIT=LRTST_";LAB(60,",ORETURN("ORPK")=LRTST_"^"_LROST_"^"_LRSAMP_"^"_LRSPEC_"^"_LRZX(1)_"^"_LRURG_"^"_LRORD_"^"_LROCNT,ORETURN("ORSTRT")=LROST

 S X=$S($D(LRSAMP):$S($D(^LAB(62,+LRSAMP,0)):$P(^(0),"^"),1:""),1:""),Y=$S($D(LRSPEC):$S($D(^LAB(61,+LRSPEC,0)):$P(^(0),"^"),1:""),1:"")

 S ORTX(1)=LRTSTNM_$S(Y'[X!(X=Y):" "_X,1:"")_$S(X'[Y:" "_Y,1:"")

 S ORTX(1)=ORTX(1)_"    "_$S($D(LRZX(1)):LRZX(1),1:"")_$S(LRURG=9!('LRURG):"",1:"   "_$P(^LAB(62.05,LRURG,0),"^"))

 S ORETURN("ORTX",1)=ORTX(1)

 I $D(^XUTL("OR",$J,"COM",LROST,LRZX(1),LRSAMP,LRSPEC,LROCNT)) S CNT=2,I=0 F  S I=$O(^XUTL("OR",$J,"COM",LROST,LRZX(1),LRSAMP,LRSPEC,LROCNT,I)) Q:I<1  D

 .I ^XUTL("OR",$J,"COM",LROST,LRZX(1),LRSAMP,LRSPEC,LROCNT,I)'["~For" S ORETURN("ORTX",CNT)=^XUTL("OR",$J,"COM",LROST,LRZX(1),LRSAMP,LRSPEC,LROCNT,I),CNT=CNT+1

 K ORTX

 Q

LROR6B    ; IHS/DIR/AAB - EDIT UNRELEASED LAB ORDERS FOR OE/RR CONT 9/11/89 16:55 ; [ 07/22/2002  1:30 PM ]

 +1       ;;5.2;LR;**1002,1013**;JUL 15, 2002

 +2       ;;5.2;LAB SERVICE;**24,100,128**;Sep 27, 1994

SET        KILL ^XUTL("OR",$JOB,"LROT",LROOST,LROXZ,LROSAMP,LROSPEC,LROCNT)

 +1        IF '$DATA(^XUTL("OR",$JOB,"LROT",LROST,LRZX(1)))

               SET ZTQUEUED=1

               DO ORDER^LROW2

               KILL ZTQUEUED

               SET ^XUTL("OR",$JOB,"LROT",LROST,LRZX(1))=LRORD

 +2        SET LRORD=^XUTL("OR",$JOB,"LROT",LROST,LRZX(1))

 +3        SET ^XUTL("OR",$JOB,"LROT",LROST,LRZX(1),LRSAMP,LRSPEC,LROCNT,1)=LRURG

           SET ^XUTL("OR",$JOB,"LROT",LROST,LRZX(1),LRSAMP,LRSPEC,LROCNT,0)=ORIFN

           SET ^XUTL("OR",$JOB,"LROT",LROST,LRZX(1),LRSAMP,LRSPEC,LROCNT)=LRTST

 +4        SET ORIT=LRTST_";LAB(60,"

           SET ORETURN("ORPK")=LRTST_"^"_LROST_"^"_LRSAMP_"^"_LRSPEC_"^"_LRZX(1)_"^"_LRURG_"^"_LRORD_"^"_LROCNT

           SET ORETURN("ORSTRT")=LROST

 +5        SET X=$SELECT($DATA(LRSAMP):$SELECT($DATA(^LAB(62,+LRSAMP,0)):$PIECE(^(0),"^"),1:""),1:"")

           SET Y=$SELECT($DATA(LRSPEC):$SELECT($DATA(^LAB(61,+LRSPEC,0)):$PIECE(^(0),"^"),1:""),1:"")

 +6        SET ORTX(1)=LRTSTNM_$SELECT(Y'[X!(X=Y):" "_X,1:"")_$SELECT(X'[Y:" "_Y,1:"")

 +7        SET ORTX(1)=ORTX(1)_"    "_$SELECT($DATA(LRZX(1)):LRZX(1),1:"")_$SELECT(LRURG=9!('LRURG):"",1:"   "_$PIECE(^LAB(62.05,LRURG,0),"^"))

 +8        SET ORETURN("ORTX",1)=ORTX(1)

 +9        IF $DATA(^XUTL("OR",$JOB,"COM",LROST,LRZX(1),LRSAMP,LRSPEC,LROCNT))

               SET CNT=2

               SET I=0

               FOR 

                   SET I=$ORDER(^XUTL("OR",$JOB,"COM",LROST,LRZX(1),LRSAMP,LRSPEC,LROCNT,I))

                   IF I<1

                       QUIT 

                   Begin DoDot:1

 +10                   IF ^XUTL("OR",$JOB,"COM",LROST,LRZX(1),LRSAMP,LRSPEC,LROCNT,I)'["~For"

                           SET ORETURN("ORTX",CNT)=^XUTL("OR",$JOB,"COM",LROST,LRZX(1),LRSAMP,LRSPEC,LROCNT,I)

                           SET CNT=CNT+1

                   End DoDot:1

 +11       KILL ORTX

 +12       QUIT