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 ---[H[J[2J[HLA81PRE 2245 printed Dec 13, 2024@01:41:13 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
