PXQUTL3C ;ISL/JVS CLEAN OUT BAD XREF #4 ;5/7/98 09:53
;;1.0;PCE PATIENT CARE ENCOUNTER;**29,51**;Aug 12, 1996
;
;
;
Q
INDEX ;Reindex's the AA xref on the patient education file
;Used as the Post Install for patch PX*1*51
D BMES^XPDUTL("Rebuilding 'AA' Cross-References on the V PATIENT EDUCATION File.")
D MES^XPDUTL("This might take a few minutes!")
N DIK
S DIK="^AUPNVPED("
S DIK(1)=".03^AA"
D ENALL^DIK
Q
;
;
T W !!,"Checking the V TREATMENT FILE #9000010.15 ",!
S TRTCNT=0
I Y="^" Q
S I="" F S I=$O(^AUPNVTRT("B",I)) Q:I="" D Q:Y="^"
. S IEN="" F S IEN=$O(^AUPNVTRT("B",I,IEN)) W:IEN#1000=22 "." Q:IEN="" D Q:Y="^"
..S ARRAY="^AUPNVTRT(""B"",I,IEN)" S TRTCNT=TRTCNT+1 I TRTCNT#1000=2 D MON^PXQUTL3B
..I '$D(^AUPNVTRT(IEN)) W !,"Entry "_IEN," IS NOT THERE! BAD REFERENCE IS ^AUPNVTRT(""B"","_I_",",IEN_")" D @$S(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
S I="" F S I=$O(^AUPNVTRT("AD",I)) Q:I="" D Q:Y="^"
. S IEN="" F S IEN=$O(^AUPNVTRT("AD",I,IEN)) W:IEN#1000=22 "." Q:IEN="" D Q:Y="^"
..S ARRAY="^AUPNVTRT(""AD"",I,IEN)" S TRTCNT=TRTCNT+1 I TRTCNT#1000=2 D MON^PXQUTL3B
..I '$D(^AUPNVTRT(IEN)) W !,"Entry "_IEN," IS NOT THERE! BAD REFERENCE IS ^AUPNVTRT(""AD"","_I_",",IEN_")" D @$S(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
S I="" F S I=$O(^AUPNVTRT("C",I)) Q:I="" D Q:Y="^"
. S IEN="" F S IEN=$O(^AUPNVTRT("C",I,IEN)) W:IEN#1000=22 "." Q:IEN="" D Q:Y="^"
..S ARRAY="^AUPNVTRT(""C"",I,IEN)" S TRTCNT=TRTCNT+1 I TRTCNT#1000=2 D MON^PXQUTL3B
..I '$D(^AUPNVTRT(IEN)) W !,"Entry "_IEN," IS NOT THERE! BAD REFERENCE IS ^AUPNVTRT(""C"","_I_",",IEN_")" D @$S(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
S I="" F S I=$O(^AUPNVTRT("AA",I)) Q:I="" D Q:Y="^"
. S IEN="" F S IEN=$O(^AUPNVTRT("AA",I,IEN)) Q:IEN="" D Q:Y="^"
..S IENN="" F S IENN=$O(^AUPNVTRT("AA",I,IEN,IENN)) Q:IENN="" D Q:Y="^"
...S ARRAY="^AUPNVTRT(""AA"",I,IEN,IENN)" S TRTCNT=TRTCNT+1 I TRTCNT#1000=2 D MON^PXQUTL3B
...I '$D(^AUPNVTRT(IENN)) W !,"Entry "_IENN," IS NOT THERE! BAD REFERENCE IS ^AUPNVTRT(""AA"","_I_",",IEN_","_IENN_")" D @$S(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
Q
;
;
P W !!,"Checking the V PATIENT ED FILE #9000010.16 ",!
S PEDCNT=0
I Y="^" Q
S I="" F S I=$O(^AUPNVPED("B",I)) Q:I="" D Q:Y="^"
. S IEN="" F S IEN=$O(^AUPNVPED("B",I,IEN)) W:IEN#1000=22 "." Q:IEN="" D Q:Y="^"
..S ARRAY="^AUPNVPED(""B"",I,IEN)" S PEDCNT=PEDCNT+1 I PEDCNT#1000=2 D MON^PXQUTL3B
..I '$D(^AUPNVPED(IEN)) W !,"Entry "_IEN," IS NOT THERE! BAD REFERENCE IS ^AUPNVPED(""B"","_I_",",IEN_")" D @$S(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
S I="" F S I=$O(^AUPNVPED("AD",I)) Q:I="" D Q:Y="^"
. S IEN="" F S IEN=$O(^AUPNVPED("AD",I,IEN)) W:IEN#1000=22 "." Q:IEN="" D Q:Y="^"
..S ARRAY="^AUPNVPED(""AD"",I,IEN)" S PEDCNT=PEDCNT+1 I PEDCNT#1000=2 D MON^PXQUTL3B
..I '$D(^AUPNVPED(IEN)) W !,"Entry "_IEN," IS NOT THERE! BAD REFERENCE IS ^AUPNVPED(""AD"","_I_",",IEN_")" D @$S(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
S I="" F S I=$O(^AUPNVPED("C",I)) Q:I="" D Q:Y="^"
. S IEN="" F S IEN=$O(^AUPNVPED("C",I,IEN)) W:IEN#1000=22 "." Q:IEN="" D Q:Y="^"
..S ARRAY="^AUPNVPED(""C"",I,IEN)" S PEDCNT=PEDCNT+1 I PEDCNT#1000=2 D MON^PXQUTL3B
..I '$D(^AUPNVPED(IEN)) W !,"Entry "_IEN," IS NOT THERE! BAD REFERENCE IS ^AUPNVPED(""C"","_I_",",IEN_")" D @$S(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
S I="" F S I=$O(^AUPNVPED("AA",I)) Q:I="" D Q:Y="^"
. S IEN="" F S IEN=$O(^AUPNVPED("AA",I,IEN)) Q:IEN="" D Q:Y="^"
..S IENN="" F S IENN=$O(^AUPNVPED("AA",I,IEN,IENN)) Q:IENN="" D Q:Y="^"
...S IENNN="" F S IENNN=$O(^AUPNVPED("AA",I,IEN,IENN,IENNN)) Q:IENNN="" D Q:Y="^"
....S ARRAY="^AUPNVPED(""AA"",I,IEN,IENN,IENNN)" S PEDCNT=PEDCNT+1 I PEDCNT#1000=2 D MON^PXQUTL3B
....I '$D(^AUPNVPED(IENNN)) W !,"Entry "_IENNN," IS NOT THERE! BAD REFERENCE IS ^AUPNVPED(""AA"","_I_",",IEN_","_IENN_","_IENNN_")" D @$S(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
Q
;
;
H W !!,"Checking the V HEALTH FACTOR FILE #9000010.23 ",!
S HFCNT=0
I Y="^" Q
S I="" F S I=$O(^AUPNVHF("B",I)) Q:I="" D Q:Y="^"
. S IEN="" F S IEN=$O(^AUPNVHF("B",I,IEN)) W:IEN#1000=22 "." Q:IEN="" D Q:Y="^"
..S ARRAY="^AUPNVHF(""B"",I,IEN)" S HFCNT=HFCNT+1 I HFCNT#1000=2 D MON^PXQUTL3B
..I '$D(^AUPNVHF(IEN)) W !,"Entry "_IEN," IS NOT THERE! BAD REFERENCE IS ^AUPNVHF(""B"","_I_",",IEN_")" D @$S(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
S I="" F S I=$O(^AUPNVHF("AD",I)) Q:I="" D Q:Y="^"
. S IEN="" F S IEN=$O(^AUPNVHF("AD",I,IEN)) W:IEN#1000=22 "." Q:IEN="" D Q:Y="^"
..S ARRAY="^AUPNVHF(""AD"",I,IEN)" S HFCNT=HFCNT+1 I HFCNT#1000=2 D MON^PXQUTL3B
..I '$D(^AUPNVHF(IEN)) W !,"Entry "_IEN," IS NOT THERE! BAD REFERENCE IS ^AUPNVHF(""AD"","_I_",",IEN_")" D @$S(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
S I="" F S I=$O(^AUPNVHF("C",I)) Q:I="" D Q:Y="^"
. S IEN="" F S IEN=$O(^AUPNVHF("C",I,IEN)) W:IEN#1000=22 "." Q:IEN="" D Q:Y="^"
..S ARRAY="^AUPNVHF(""C"",I,IEN)" S HFCNT=HFCNT+1 I HFCNT#1000=2 D MON^PXQUTL3B
..I '$D(^AUPNVHF(IEN)) W !,"Entry "_IEN," IS NOT THERE! BAD REFERENCE IS ^AUPNVHF(""C"","_I_",",IEN_")" D @$S(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
S I="" F S I=$O(^AUPNVHF("AA",I)) Q:I="" D Q:Y="^"
. S IEN="" F S IEN=$O(^AUPNVHF("AA",I,IEN)) Q:IEN="" D Q:Y="^"
..S IENN="" F S IENN=$O(^AUPNVHF("AA",I,IEN,IENN)) Q:IENN="" D Q:Y="^"
...S IENNN="" F S IENNN=$O(^AUPNVHF("AA",I,IEN,IENN,IENNN)) W:IENNN#1000=22 "." Q:IENNN="" D Q:Y="^"
....S ARRAY="^AUPNVHF(""AA"",I,IEN,IENN,IENNN)" S HFCNT=HFCNT+1 I HFCNT#1000=2 D MON^PXQUTL3B
....I '$D(^AUPNVHF(IENNN)) W !,"Entry "_IENNN," IS NOT THERE! BAD REFERENCE IS ^AUPNVHF(""AA"","_I_",",IEN_","_IENN_","_IENNN_")" D @$S(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
Q
;
;
TT ;--QUERY FOR CORRECT ENTRY
S DIR("A")="Should I fix this one by removing the reference ?? "
S DIR("B")="NO"
S DIR(0)="YAO" D ^DIR
I Y=1 D
.K @ARRAY
I Y="^" Q
Q
KILL ;--AUTOMATIC
;W !,"KILL "_ARRAY
K @ARRAY
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXQUTL3C 5962 printed Apr 09, 2024@21:34:32 Page 2
PXQUTL3C ;ISL/JVS CLEAN OUT BAD XREF #4 ;5/7/98 09:53
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**29,51**;Aug 12, 1996
+2 ;
+3 ;
+4 ;
+5 QUIT
INDEX ;Reindex's the AA xref on the patient education file
+1 ;Used as the Post Install for patch PX*1*51
+2 DO BMES^XPDUTL("Rebuilding 'AA' Cross-References on the V PATIENT EDUCATION File.")
+3 DO MES^XPDUTL("This might take a few minutes!")
+4 NEW DIK
+5 SET DIK="^AUPNVPED("
+6 SET DIK(1)=".03^AA"
+7 DO ENALL^DIK
+8 QUIT
+9 ;
+10 ;
T WRITE !!,"Checking the V TREATMENT FILE #9000010.15 ",!
+1 SET TRTCNT=0
+2 IF Y="^"
QUIT
+3 SET I=""
FOR
SET I=$ORDER(^AUPNVTRT("B",I))
if I=""
QUIT
Begin DoDot:1
+4 SET IEN=""
FOR
SET IEN=$ORDER(^AUPNVTRT("B",I,IEN))
if IEN#1000=22
WRITE "."
if IEN=""
QUIT
Begin DoDot:2
+5 SET ARRAY="^AUPNVTRT(""B"",I,IEN)"
SET TRTCNT=TRTCNT+1
IF TRTCNT#1000=2
DO MON^PXQUTL3B
+6 IF '$DATA(^AUPNVTRT(IEN))
WRITE !,"Entry "_IEN," IS NOT THERE! BAD REFERENCE IS ^AUPNVTRT(""B"","_I_",",IEN_")"
DO @$SELECT(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
End DoDot:2
if Y="^"
QUIT
End DoDot:1
if Y="^"
QUIT
+7 SET I=""
FOR
SET I=$ORDER(^AUPNVTRT("AD",I))
if I=""
QUIT
Begin DoDot:1
+8 SET IEN=""
FOR
SET IEN=$ORDER(^AUPNVTRT("AD",I,IEN))
if IEN#1000=22
WRITE "."
if IEN=""
QUIT
Begin DoDot:2
+9 SET ARRAY="^AUPNVTRT(""AD"",I,IEN)"
SET TRTCNT=TRTCNT+1
IF TRTCNT#1000=2
DO MON^PXQUTL3B
+10 IF '$DATA(^AUPNVTRT(IEN))
WRITE !,"Entry "_IEN," IS NOT THERE! BAD REFERENCE IS ^AUPNVTRT(""AD"","_I_",",IEN_")"
DO @$SELECT(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
End DoDot:2
if Y="^"
QUIT
End DoDot:1
if Y="^"
QUIT
+11 SET I=""
FOR
SET I=$ORDER(^AUPNVTRT("C",I))
if I=""
QUIT
Begin DoDot:1
+12 SET IEN=""
FOR
SET IEN=$ORDER(^AUPNVTRT("C",I,IEN))
if IEN#1000=22
WRITE "."
if IEN=""
QUIT
Begin DoDot:2
+13 SET ARRAY="^AUPNVTRT(""C"",I,IEN)"
SET TRTCNT=TRTCNT+1
IF TRTCNT#1000=2
DO MON^PXQUTL3B
+14 IF '$DATA(^AUPNVTRT(IEN))
WRITE !,"Entry "_IEN," IS NOT THERE! BAD REFERENCE IS ^AUPNVTRT(""C"","_I_",",IEN_")"
DO @$SELECT(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
End DoDot:2
if Y="^"
QUIT
End DoDot:1
if Y="^"
QUIT
+15 SET I=""
FOR
SET I=$ORDER(^AUPNVTRT("AA",I))
if I=""
QUIT
Begin DoDot:1
+16 SET IEN=""
FOR
SET IEN=$ORDER(^AUPNVTRT("AA",I,IEN))
if IEN=""
QUIT
Begin DoDot:2
+17 SET IENN=""
FOR
SET IENN=$ORDER(^AUPNVTRT("AA",I,IEN,IENN))
if IENN=""
QUIT
Begin DoDot:3
+18 SET ARRAY="^AUPNVTRT(""AA"",I,IEN,IENN)"
SET TRTCNT=TRTCNT+1
IF TRTCNT#1000=2
DO MON^PXQUTL3B
+19 IF '$DATA(^AUPNVTRT(IENN))
WRITE !,"Entry "_IENN," IS NOT THERE! BAD REFERENCE IS ^AUPNVTRT(""AA"","_I_",",IEN_","_IENN_")"
DO @$SELECT(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
End DoDot:3
if Y="^"
QUIT
End DoDot:2
if Y="^"
QUIT
End DoDot:1
if Y="^"
QUIT
+20 QUIT
+21 ;
+22 ;
P WRITE !!,"Checking the V PATIENT ED FILE #9000010.16 ",!
+1 SET PEDCNT=0
+2 IF Y="^"
QUIT
+3 SET I=""
FOR
SET I=$ORDER(^AUPNVPED("B",I))
if I=""
QUIT
Begin DoDot:1
+4 SET IEN=""
FOR
SET IEN=$ORDER(^AUPNVPED("B",I,IEN))
if IEN#1000=22
WRITE "."
if IEN=""
QUIT
Begin DoDot:2
+5 SET ARRAY="^AUPNVPED(""B"",I,IEN)"
SET PEDCNT=PEDCNT+1
IF PEDCNT#1000=2
DO MON^PXQUTL3B
+6 IF '$DATA(^AUPNVPED(IEN))
WRITE !,"Entry "_IEN," IS NOT THERE! BAD REFERENCE IS ^AUPNVPED(""B"","_I_",",IEN_")"
DO @$SELECT(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
End DoDot:2
if Y="^"
QUIT
End DoDot:1
if Y="^"
QUIT
+7 SET I=""
FOR
SET I=$ORDER(^AUPNVPED("AD",I))
if I=""
QUIT
Begin DoDot:1
+8 SET IEN=""
FOR
SET IEN=$ORDER(^AUPNVPED("AD",I,IEN))
if IEN#1000=22
WRITE "."
if IEN=""
QUIT
Begin DoDot:2
+9 SET ARRAY="^AUPNVPED(""AD"",I,IEN)"
SET PEDCNT=PEDCNT+1
IF PEDCNT#1000=2
DO MON^PXQUTL3B
+10 IF '$DATA(^AUPNVPED(IEN))
WRITE !,"Entry "_IEN," IS NOT THERE! BAD REFERENCE IS ^AUPNVPED(""AD"","_I_",",IEN_")"
DO @$SELECT(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
End DoDot:2
if Y="^"
QUIT
End DoDot:1
if Y="^"
QUIT
+11 SET I=""
FOR
SET I=$ORDER(^AUPNVPED("C",I))
if I=""
QUIT
Begin DoDot:1
+12 SET IEN=""
FOR
SET IEN=$ORDER(^AUPNVPED("C",I,IEN))
if IEN#1000=22
WRITE "."
if IEN=""
QUIT
Begin DoDot:2
+13 SET ARRAY="^AUPNVPED(""C"",I,IEN)"
SET PEDCNT=PEDCNT+1
IF PEDCNT#1000=2
DO MON^PXQUTL3B
+14 IF '$DATA(^AUPNVPED(IEN))
WRITE !,"Entry "_IEN," IS NOT THERE! BAD REFERENCE IS ^AUPNVPED(""C"","_I_",",IEN_")"
DO @$SELECT(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
End DoDot:2
if Y="^"
QUIT
End DoDot:1
if Y="^"
QUIT
+15 SET I=""
FOR
SET I=$ORDER(^AUPNVPED("AA",I))
if I=""
QUIT
Begin DoDot:1
+16 SET IEN=""
FOR
SET IEN=$ORDER(^AUPNVPED("AA",I,IEN))
if IEN=""
QUIT
Begin DoDot:2
+17 SET IENN=""
FOR
SET IENN=$ORDER(^AUPNVPED("AA",I,IEN,IENN))
if IENN=""
QUIT
Begin DoDot:3
+18 SET IENNN=""
FOR
SET IENNN=$ORDER(^AUPNVPED("AA",I,IEN,IENN,IENNN))
if IENNN=""
QUIT
Begin DoDot:4
+19 SET ARRAY="^AUPNVPED(""AA"",I,IEN,IENN,IENNN)"
SET PEDCNT=PEDCNT+1
IF PEDCNT#1000=2
DO MON^PXQUTL3B
+20 IF '$DATA(^AUPNVPED(IENNN))
WRITE !,"Entry "_IENNN," IS NOT THERE! BAD REFERENCE IS ^AUPNVPED(""AA"","_I_",",IEN_","_IENN_","_IENNN_")"
DO @$SELECT(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
End DoDot:4
if Y="^"
QUIT
End DoDot:3
if Y="^"
QUIT
End DoDot:2
if Y="^"
QUIT
End DoDot:1
if Y="^"
QUIT
+21 QUIT
+22 ;
+23 ;
H WRITE !!,"Checking the V HEALTH FACTOR FILE #9000010.23 ",!
+1 SET HFCNT=0
+2 IF Y="^"
QUIT
+3 SET I=""
FOR
SET I=$ORDER(^AUPNVHF("B",I))
if I=""
QUIT
Begin DoDot:1
+4 SET IEN=""
FOR
SET IEN=$ORDER(^AUPNVHF("B",I,IEN))
if IEN#1000=22
WRITE "."
if IEN=""
QUIT
Begin DoDot:2
+5 SET ARRAY="^AUPNVHF(""B"",I,IEN)"
SET HFCNT=HFCNT+1
IF HFCNT#1000=2
DO MON^PXQUTL3B
+6 IF '$DATA(^AUPNVHF(IEN))
WRITE !,"Entry "_IEN," IS NOT THERE! BAD REFERENCE IS ^AUPNVHF(""B"","_I_",",IEN_")"
DO @$SELECT(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
End DoDot:2
if Y="^"
QUIT
End DoDot:1
if Y="^"
QUIT
+7 SET I=""
FOR
SET I=$ORDER(^AUPNVHF("AD",I))
if I=""
QUIT
Begin DoDot:1
+8 SET IEN=""
FOR
SET IEN=$ORDER(^AUPNVHF("AD",I,IEN))
if IEN#1000=22
WRITE "."
if IEN=""
QUIT
Begin DoDot:2
+9 SET ARRAY="^AUPNVHF(""AD"",I,IEN)"
SET HFCNT=HFCNT+1
IF HFCNT#1000=2
DO MON^PXQUTL3B
+10 IF '$DATA(^AUPNVHF(IEN))
WRITE !,"Entry "_IEN," IS NOT THERE! BAD REFERENCE IS ^AUPNVHF(""AD"","_I_",",IEN_")"
DO @$SELECT(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
End DoDot:2
if Y="^"
QUIT
End DoDot:1
if Y="^"
QUIT
+11 SET I=""
FOR
SET I=$ORDER(^AUPNVHF("C",I))
if I=""
QUIT
Begin DoDot:1
+12 SET IEN=""
FOR
SET IEN=$ORDER(^AUPNVHF("C",I,IEN))
if IEN#1000=22
WRITE "."
if IEN=""
QUIT
Begin DoDot:2
+13 SET ARRAY="^AUPNVHF(""C"",I,IEN)"
SET HFCNT=HFCNT+1
IF HFCNT#1000=2
DO MON^PXQUTL3B
+14 IF '$DATA(^AUPNVHF(IEN))
WRITE !,"Entry "_IEN," IS NOT THERE! BAD REFERENCE IS ^AUPNVHF(""C"","_I_",",IEN_")"
DO @$SELECT(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
End DoDot:2
if Y="^"
QUIT
End DoDot:1
if Y="^"
QUIT
+15 SET I=""
FOR
SET I=$ORDER(^AUPNVHF("AA",I))
if I=""
QUIT
Begin DoDot:1
+16 SET IEN=""
FOR
SET IEN=$ORDER(^AUPNVHF("AA",I,IEN))
if IEN=""
QUIT
Begin DoDot:2
+17 SET IENN=""
FOR
SET IENN=$ORDER(^AUPNVHF("AA",I,IEN,IENN))
if IENN=""
QUIT
Begin DoDot:3
+18 SET IENNN=""
FOR
SET IENNN=$ORDER(^AUPNVHF("AA",I,IEN,IENN,IENNN))
if IENNN#1000=22
WRITE "."
if IENNN=""
QUIT
Begin DoDot:4
+19 SET ARRAY="^AUPNVHF(""AA"",I,IEN,IENN,IENNN)"
SET HFCNT=HFCNT+1
IF HFCNT#1000=2
DO MON^PXQUTL3B
+20 IF '$DATA(^AUPNVHF(IENNN))
WRITE !,"Entry "_IENNN," IS NOT THERE! BAD REFERENCE IS ^AUPNVHF(""AA"","_I_",",IEN_","_IENN_","_IENNN_")"
DO @$SELECT(AUTO="F":"KILL",AUTO'="F":"TT",1:"")
End DoDot:4
if Y="^"
QUIT
End DoDot:3
if Y="^"
QUIT
End DoDot:2
if Y="^"
QUIT
End DoDot:1
if Y="^"
QUIT
+21 QUIT
+22 ;
+23 ;
TT ;--QUERY FOR CORRECT ENTRY
+1 SET DIR("A")="Should I fix this one by removing the reference ?? "
+2 SET DIR("B")="NO"
+3 SET DIR(0)="YAO"
DO ^DIR
+4 IF Y=1
Begin DoDot:1
+5 KILL @ARRAY
End DoDot:1
+6 IF Y="^"
QUIT
+7 QUIT
KILL ;--AUTOMATIC
+1 ;W !,"KILL "_ARRAY
+2 KILL @ARRAY
+3 QUIT
