Routine: BLRSLTL

BLRSLTL(BLRCMF,BLRPHASE,BLROPT1,BLRPARAM) ; IHS/DIR/MJL - SET IHS LAB TRANSACTION LOG ; [ 10/20/1999  8:45 AM ]

 ;;5.2;BLR;**1001,1003,1009**;SEP 20, 1999

 N X,Y

 .I BLRPHASE="O" D  Q

 ..I BLROPT1="ADDCOL" D MODORD Q  ;IHS/DIR TUC/AAB 4/1/98

 ..I BLROPT1="MULTI" Q

 ..I BLROPT1="ACCWARD" Q

 ..I BLROPT1="BYPASS" Q  ;IHS/DIR/MJL 09/20/99

 ..I BLROPT1="FASTORD" D ACC Q

 ..D ORD Q

 .I BLRPHASE="A" D  Q

 ..I BLROPT1="ACCWARD",$D(LROD0) S BLRCMF="M",BLRODTM=$P(LROD0,U,5),BLRODT=LRODT,BLRSEQ=LRSN D ^BLRSLTL1 Q  ;IHS/OIRM TUC/AAB 2/17/98

 ..I BLROPT1="BYPASS"!(BLROPT1="ADDCOL")!(BLROPT1="ACCORD") Q

 ..S BLRODT=LRODT,BLRSEQ=LRSN D ^BLRSLTL1 Q

 .I BLRPHASE="R" D ^BLRSLTLR Q

 .I BLRPHASE="D" D ^BLRSLTLD Q

 D KILL

MODORD ;  ;IHS/DIR TUC/AAB 04/1/98

 S BLRODT=LRODT,BLRSEQ=LRSN

 S BLRODTM=$P(^LRO(69,LRODT,1,LRSN,0),U,5)

 D ^BLRSLTL1

ORD ;

 I BLRPHASE="O",BLROPT1="ADDORD" S BLRN1="" F  S BLRN1=$O(LROT(BLRN1)) Q:BLRN1=""  S BLRN2="" F  S BLRN2=$O(LROT(BLRN1,BLRN2)) Q:BLRN2=""  S BLRTSTS="" F  S BLRTSTS=$O(LROT(BLRN1,BLRN2,BLRTSTS)) Q:BLRTSTS=""  S BLRTSTS(BLRTSTS)=""

 S BLRODT=LRODT,BLRSEQ=LRSN D ^BLRSLTL1

 K BLRTSTS

ACC ;

 S BLRODT=LRODT,BLRSEQ=LRSN D ^BLRSLTL1

KILL ;

 K BLRACCN,BLRAREA,BLRATOM,BLRCMF,BLRCMP,BLRCOLS,BLRCPTF,BLRCPTL,BLRCPTP,BLRCREF,BLRCST,BLRDEL,BLRDFN,BLRDN,BLRDT,BLRDTC,BLRDUZ,BLRDUZ2,BLRDUZN,BLRFILE,BLRII,BLRL60,BLRLOC,BLRLOCN,BLRLPAR,BLRLRDFN,BLRLX,BLRMOD

 K BLRN1,BLRN2,BLRNAF,BLRODT,BLRODTM,BLROT,BLRPAR,BLRPREV,BLRPROV,BLRPROVN,BLRRES,BLRRH,BLRRL,BLRSEQ,BLRSPEC,BLRSPECN,BLRSTR,BLRSTR1,BLRSVX,BLRSVY,BLRTEST,BLRTEST1,BLRTESTI,BLRTST,BLRUNITS,BLRVAL,BLRX,BLRXII

 K BLRXSEQ,BLRXX,BLRY,BLRZ

 ;I BLRPHASE="R",(BLROPT1="BYPASS"!(BLROPT1="ACCORD")) K BLROPT,BLRPHASE Q

 I BLRPHASE="R",(BLROPT1="BYPASS") K BLROPT,BLRPHASE Q  ;IHS/DIR TUC/AAB 06/22/98

 ;I BLROPT1="BYPASS"!(BLROPT1="ACCORD")!(BLROPT1="DELACC") K BLRPHASE Q

 I BLROPT1="BYPASS"!(BLROPT1="ACCORD")!(BLROPT1="DELACC")!(BLROPT1="ACCWARD")!(BLROPT1="ADDCOL")!(BLROPT1="FASTORD")!(BLROPT1="RECCOL")!(BLROPT1="ITMCOL") K BLRPHASE Q  ;IHS/OIRM TUC/AAB 2/10/98

 ;K BLRPHASE,BLROPT ;IHS/DIR/MJL 09/20/99

BLRSLTL(BLRCMF,BLRPHASE,BLROPT1,BLRPARAM) ; IHS/DIR/MJL - SET IHS LAB TRANSACTION LOG ; [ 10/20/1999  8:45 AM ]

 +1       ;;5.2;BLR;**1001,1003,1009**;SEP 20, 1999

 +2        NEW X,Y

 +3        Begin DoDot:1

 +4            IF BLRPHASE="O"

                   Begin DoDot:2

 +5       ;IHS/DIR TUC/AAB 4/1/98

                       IF BLROPT1="ADDCOL"

                           DO MODORD

                           QUIT

 +6                    IF BLROPT1="MULTI"

                           QUIT

 +7                    IF BLROPT1="ACCWARD"

                           QUIT

 +8       ;IHS/DIR/MJL 09/20/99

                       IF BLROPT1="BYPASS"

                           QUIT

 +9                    IF BLROPT1="FASTORD"

                           DO ACC

                           QUIT

 +10                   DO ORD

                       QUIT

                   End DoDot:2

                   QUIT

 +11           IF BLRPHASE="A"

                   Begin DoDot:2

 +12      ;IHS/OIRM TUC/AAB 2/17/98

                       IF BLROPT1="ACCWARD"

                           IF $DATA(LROD0)

                               SET BLRCMF="M"

                               SET BLRODTM=$PIECE(LROD0,U,5)

                               SET BLRODT=LRODT

                               SET BLRSEQ=LRSN

                               DO ^BLRSLTL1

                               QUIT

 +13                   IF BLROPT1="BYPASS"!(BLROPT1="ADDCOL")!(BLROPT1="ACCORD")

                           QUIT

 +14                   SET BLRODT=LRODT

                       SET BLRSEQ=LRSN

                       DO ^BLRSLTL1

                       QUIT

                   End DoDot:2

                   QUIT

 +15           IF BLRPHASE="R"

                   DO ^BLRSLTLR

                   QUIT

 +16           IF BLRPHASE="D"

                   DO ^BLRSLTLD

                   QUIT

           End DoDot:1

 +17       DO KILL

 +18       QUIT

 +19      ;

MODORD    ;  ;IHS/DIR TUC/AAB 04/1/98

 +1        SET BLRODT=LRODT

           SET BLRSEQ=LRSN

 +2        SET BLRODTM=$PIECE(^LRO(69,LRODT,1,LRSN,0),U,5)

 +3        DO ^BLRSLTL1

 +4        QUIT

ORD       ;

 +1        IF BLRPHASE="O"

               IF BLROPT1="ADDORD"

                   SET BLRN1=""

FOR

                       SET BLRN1=$ORDER(LROT(BLRN1))

                       IF BLRN1=""

                           QUIT

                       SET BLRN2=""

FOR

                           SET BLRN2=$ORDER(LROT(BLRN1,BLRN2))

                           IF BLRN2=""

                               QUIT

                           SET BLRTSTS=""

FOR

                               SET BLRTSTS=$ORDER(LROT(BLRN1,BLRN2,BLRTSTS))

                               IF BLRTSTS=""

                                   QUIT

                               SET BLRTSTS(BLRTSTS)=""

 +2        SET BLRODT=LRODT

           SET BLRSEQ=LRSN

           DO ^BLRSLTL1

 +3        KILL BLRTSTS

 +4        QUIT

 +5       ;

ACC       ;

 +1        SET BLRODT=LRODT

           SET BLRSEQ=LRSN

           DO ^BLRSLTL1

 +2        QUIT

 +3       ;

KILL      ;

 +1        KILL BLRACCN,BLRAREA,BLRATOM,BLRCMF,BLRCMP,BLRCOLS,BLRCPTF,BLRCPTL,BLRCPTP,BLRCREF,BLRCST,BLRDEL,BLRDFN,BLRDN,BLRDT,BLRDTC,BLRDUZ,BLRDUZ2,BLRDUZN,BLRFILE,BLRII,BLRL60,BLRLOC,BLRLOCN,BLRLPAR,BLRLRDFN,BLRLX,BLRMOD

 +2        KILL BLRN1,BLRN2,BLRNAF,BLRODT,BLRODTM,BLROT,BLRPAR,BLRPREV,BLRPROV,BLRPROVN,BLRRES,BLRRH,BLRRL,BLRSEQ,BLRSPEC,BLRSPECN,BLRSTR,BLRSTR1,BLRSVX,BLRSVY,BLRTEST,BLRTEST1,BLRTESTI,BLRTST,BLRUNITS,BLRVAL,BLRX,BLRXII

 +3        KILL BLRXSEQ,BLRXX,BLRY,BLRZ

 +4       ;I BLRPHASE="R",(BLROPT1="BYPASS"!(BLROPT1="ACCORD")) K BLROPT,BLRPHASE Q

 +5       ;IHS/DIR TUC/AAB 06/22/98

           IF BLRPHASE="R"

               IF (BLROPT1="BYPASS")

                   KILL BLROPT,BLRPHASE

                   QUIT

 +6       ;I BLROPT1="BYPASS"!(BLROPT1="ACCORD")!(BLROPT1="DELACC") K BLRPHASE Q

 +7       ;IHS/OIRM TUC/AAB 2/10/98

           IF BLROPT1="BYPASS"!(BLROPT1="ACCORD")!(BLROPT1="DELACC")!(BLROPT1="ACCWARD")!(BLROPT1="ADDCOL")!(BLROPT1="FASTORD")!(BLROPT1="RECCOL")!(BLROPT1="ITMCOL")

               KILL BLRPHASE

               QUIT

 +8       ;K BLRPHASE,BLROPT ;IHS/DIR/MJL 09/20/99

 +9        QUIT

BLRSLTL.m