LA81PRE.m

LA81PRE ;VMP/RB-PURGE ALL INVALID VITEK NODES ^LRO(68,12,1,DATE,1,ACC#,1,4,WKLD CD,0) 1/7/2013

 ;;5.2;AUTOMATED LAB INSTRUMENTS;**81**;Sep 27, 1994;Build 2

 ;;

 ;  Pre install routine in patch LA*5.2*81 that will purge erroneous

 ;  entries in file# 68 that were caused by an incorrect node set

 ;  when the results were set into file #68 for VITEK.

 ;

 ;Kill example: ^LRO(68,12,1,2980000,1,1596,1,4,1142,0)="^^52;1;3"

 ;Also, will check correct node ^LRO(68,12,1,2980000,1,1596,4,1142,0)

 ;to insure piece 3 is set. If not, will move erroneous node piece 3 to correct node:

 ;ex. ^LRO(68,12,1,2980000,1,1596,4,1142,0)="1142^9^^1315^2980224^^1^7087"

 ;;

 Q

START N LRSTART,IEN68,LREND,LRAA,LRAD,LRAN,LRTEST,LRBAD,LRGOOD,TOT,TOT1,TOT2,TOT3,DATA

 I $D(^XTMP("LA81PRE")) Q

 D NOW^%DTC S LRSTART=%

 S ^XTMP("LA81PRE","START COMPILE")=LRSTART

 S ^XTMP("LA81PRE","END COMPILE")="RUNNING"

 S ^XTMP("LA81PRE",0)=$$FMADD^XLFDT(LRSTART,120)_"^"_LRSTART

 S U="^",LRAA=0,(TOT,TOT1,TOT2,TOT3)=0

1 S LRAA=$O(^LRO(68,LRAA)),LRAD=0 G EXIT:+LRAA=0

2 S LRAD=$O(^LRO(68,LRAA,1,LRAD)),LRAN=0 G 1:'LRAD

3 S LRAN=$O(^LRO(68,LRAA,1,LRAD,1,LRAN)),LRTEST=0 G 2:'LRAN

 S TOT=TOT+1

 I '$D(^LRO(68,LRAA,1,LRAD,1,LRAN,1,4)) G 3

4 S LRTEST=$O(^LRO(68,LRAA,1,LRAD,1,LRAN,1,4,LRTEST)) G 3:'LRTEST

 S TOT1=TOT1+1

 S LRBAD=$G(^LRO(68,LRAA,1,LRAD,1,LRAN,1,4,LRTEST,0)) G 3:LRBAD=""

 S LRGOOD=$G(^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRTEST,0))

 I LRGOOD'="" D

 . I $P(LRGOOD,U,3)'="" Q

 . S DATA=$P(LRBAD,U,3)

 . S DA=LRTEST,DR="2///^S X=DATA"

 . S DIE="^LRO(68,LRAA,1,LRAD,1,LRAN,4," D ^DIE K DIE,DA,DR

 . S ^XTMP("LA81PRE",68,LRAA,1,LRAD,1,LRAN,1,4,LRTEST,1)=^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRTEST,0)

 . S TOT2=TOT2+1

 S ^XTMP("LA81PRE",68,LRAA,1,LRAD,1,LRAN,1,4,LRTEST,0)=^LRO(68,LRAA,1,LRAD,1,LRAN,1,4,LRTEST,0)

 K ^LRO(68,LRAA,1,LRAD,1,LRAN,1,4,LRTEST,0)

 S TOT3=TOT3+1

 G 4

EXIT ;

 D NOW^%DTC S LREND=%

 S ^XTMP("LA81PRE","TOTALS")=TOT_U_TOT1_U_TOT3

 S ^XTMP("LA81PRE","END COMPILE")=LREND

 W !!,"Number of File #68 accessions reviewed: ",TOT

 W !!,"Number of erroneous nodes found: ",TOT1

 W !!,"Number of good node 4 recs updated with DELETED rec field LOAD LIST ENTRY: ",TOT2

 W !!,"Number of erroneous nodes killed: ",TOT3

 K %

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LA81PRE   2245     printed  Apr 09, 2024@20:47:47                                                                                                                                                                                                     Page 2

LA81PRE   ;VMP/RB-PURGE ALL INVALID VITEK NODES ^LRO(68,12,1,DATE,1,ACC#,1,4,WKLD CD,0) 1/7/2013

 +1       ;;5.2;AUTOMATED LAB INSTRUMENTS;**81**;Sep 27, 1994;Build 2

 +2       ;;

 +3       ;  Pre install routine in patch LA*5.2*81 that will purge erroneous

 +4       ;  entries in file# 68 that were caused by an incorrect node set

 +5       ;  when the results were set into file #68 for VITEK.

 +6       ;

 +7       ;Kill example: ^LRO(68,12,1,2980000,1,1596,1,4,1142,0)="^^52;1;3"

 +8       ;Also, will check correct node ^LRO(68,12,1,2980000,1,1596,4,1142,0)

 +9       ;to insure piece 3 is set. If not, will move erroneous node piece 3 to correct node:

 +10      ;ex. ^LRO(68,12,1,2980000,1,1596,4,1142,0)="1142^9^^1315^2980224^^1^7087"

 +11      ;;

 +12       QUIT 

START      NEW LRSTART,IEN68,LREND,LRAA,LRAD,LRAN,LRTEST,LRBAD,LRGOOD,TOT,TOT1,TOT2,TOT3,DATA

 +1        IF $DATA(^XTMP("LA81PRE"))

               QUIT 

 +2        DO NOW^%DTC

           SET LRSTART=%

 +3        SET ^XTMP("LA81PRE","START COMPILE")=LRSTART

 +4        SET ^XTMP("LA81PRE","END COMPILE")="RUNNING"

 +5        SET ^XTMP("LA81PRE",0)=$$FMADD^XLFDT(LRSTART,120)_"^"_LRSTART

 +6        SET U="^"

           SET LRAA=0

           SET (TOT,TOT1,TOT2,TOT3)=0

1          SET LRAA=$ORDER(^LRO(68,LRAA))

           SET LRAD=0

           if +LRAA=0

               GOTO EXIT

2          SET LRAD=$ORDER(^LRO(68,LRAA,1,LRAD))

           SET LRAN=0

           if 'LRAD

               GOTO 1

3          SET LRAN=$ORDER(^LRO(68,LRAA,1,LRAD,1,LRAN))

           SET LRTEST=0

           if 'LRAN

               GOTO 2

 +1        SET TOT=TOT+1

 +2        IF '$DATA(^LRO(68,LRAA,1,LRAD,1,LRAN,1,4))

               GOTO 3

4          SET LRTEST=$ORDER(^LRO(68,LRAA,1,LRAD,1,LRAN,1,4,LRTEST))

           if 'LRTEST

               GOTO 3

 +1        SET TOT1=TOT1+1

 +2        SET LRBAD=$GET(^LRO(68,LRAA,1,LRAD,1,LRAN,1,4,LRTEST,0))

           if LRBAD=""

               GOTO 3

 +3        SET LRGOOD=$GET(^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRTEST,0))

 +4        IF LRGOOD'=""

               Begin DoDot:1

 +5                IF $PIECE(LRGOOD,U,3)'=""

                       QUIT 

 +6                SET DATA=$PIECE(LRBAD,U,3)

 +7                SET DA=LRTEST

                   SET DR="2///^S X=DATA"

 +8                SET DIE="^LRO(68,LRAA,1,LRAD,1,LRAN,4,"

                   DO ^DIE

                   KILL DIE,DA,DR

 +9                SET ^XTMP("LA81PRE",68,LRAA,1,LRAD,1,LRAN,1,4,LRTEST,1)=^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRTEST,0)

 +10               SET TOT2=TOT2+1

               End DoDot:1

 +11       SET ^XTMP("LA81PRE",68,LRAA,1,LRAD,1,LRAN,1,4,LRTEST,0)=^LRO(68,LRAA,1,LRAD,1,LRAN,1,4,LRTEST,0)

 +12       KILL ^LRO(68,LRAA,1,LRAD,1,LRAN,1,4,LRTEST,0)

 +13       SET TOT3=TOT3+1

 +14       GOTO 4

EXIT      ;

 +1        DO NOW^%DTC

           SET LREND=%

 +2        SET ^XTMP("LA81PRE","TOTALS")=TOT_U_TOT1_U_TOT3

 +3        SET ^XTMP("LA81PRE","END COMPILE")=LREND

 +4        WRITE !!,"Number of File #68 accessions reviewed: ",TOT

 +5        WRITE !!,"Number of erroneous nodes found: ",TOT1

 +6        WRITE !!,"Number of good node 4 recs updated with DELETED rec field LOAD LIST ENTRY: ",TOT2

 +7        WRITE !!,"Number of erroneous nodes killed: ",TOT3

 +8        KILL %

 +9        QUIT