- 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
- 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
