- ACDCLN ;IHS/ADC/EDE/KML - UTILITY TO CLEAN BROKEN LINKS IN DB;
- ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998
- ;*******************************************************************
- ;//PROG MODE
- ;*******************************************************************
- EN ;EP
- ;//^ACDGSAVE
- ;
- W !!,"Re-indexing files now.....",!
- K ^ACDIIF("C") S DIK(1)="99.99^C",DIK="^ACDIIF(" D ENALL^DIK
- K ^ACDTDC("C") S DIK(1)="99.99^C",DIK="^ACDTDC(" D ENALL^DIK
- K ^ACDCS("C") S DIK(1)="99.99^C",DIK="^ACDCS(" D ENALL^DIK
- K ^ACDVIS("B") S DIK(1)=".01^B",DIK="^ACDVIS(" D ENALL^DIK
- K ^ACDVIS("C") S DIK(1)="99.99^C",DIK="^ACDVIS(" D ENALL^DIK
- ;
- EN1 ;EP skip re-indexing
- ;//^ACDDFAC
- ;//^ACDPURG
- ;
- D D
- V ;Delete visits in ^ACDVIS last
- W !!!!!,"Cleaning up entries from the CDMIS visit file that are not being"
- W !,"referenced."
- S ACDCNT=0 F ACDVISP=0:0 S ACDVISP=$O(^ACDVIS(ACDVISP)) Q:'ACDVISP D V1
- W !,"Total of ",ACDCNT," visits deleted."
- K DA,DIK,ACDVISP,ACD80,ACDDA,ACDOK,ACDDO,ACDCNT
- Q
- V1 ;
- S ACDOK=0
- I $O(^ACDIIF("C",ACDVISP,0)) S ACDOK=1
- I $O(^ACDTDC("C",ACDVISP,0)) S ACDOK=1
- I $O(^ACDCS("C",ACDVISP,0)) S ACDOK=1
- I 'ACDOK D VDEL W !,"Entry ",ACDVISP," is unreferenced...deleting now."
- ;
- Q
- VDEL ;Delete unreferenced visit
- S DA=ACDVISP,DIK="^ACDVIS(" D ^DIK
- S ACDCNT=ACDCNT+1
- Q
- D ;Check link files first
- S ACDCNT=0
- W !,"Now cleaning up incomplete data links..."
- F ACDDO=0:0 S ACDDO=$O(^ACDIIF(ACDDO)) Q:'ACDDO S ACDVISP=$S($D(^(ACDDO,"BWP")):^("BWP"),1:"??") I '$D(^ACDIIF(ACDDO,0))!('$D(^ACDIIF(ACDDO,"BWP")))!('$D(^ACDVIS(ACDVISP,0))) S DA=ACDDO,DIK="^ACDIIF(" D ^DIK W "." S ACDCNT=ACDCNT+1
- F ACDDO=0:0 S ACDDO=$O(^ACDTDC(ACDDO)) Q:'ACDDO S ACDVISP=$S($D(^(ACDDO,"BWP")):^("BWP"),1:"??") I '$D(^ACDTDC(ACDDO,0))!('$D(^ACDTDC(ACDDO,"BWP")))!('$D(^ACDVIS(ACDVISP,0))) S DA=ACDDO,DIK="^ACDTDC(" D ^DIK W "." S ACDCNT=ACDCNT+1
- F ACDDO=0:0 S ACDDO=$O(^ACDCS(ACDDO)) Q:'ACDDO S ACDVISP=$S($D(^(ACDDO,"BWP")):^("BWP"),1:"??") D
- . S D=0
- . I '$D(^ACDCS(ACDDO,0))!('$D(^ACDCS(ACDDO,"BWP")))!('$D(^ACDVIS(ACDVISP,0))) S D=1
- . I 'D,$P(^ACDCS(ACDDO,0),U,2)="" S D=1
- . I D S DA=ACDDO,DIK="^ACDCS(" D ^DIK W "." S ACDCNT=ACDCNT+1
- . Q
- ;F ACDDO=0:0 S ACDDO=$O(^ACDCS(ACDDO)) Q:'ACDDO S ACDVISP=$S($D(^(ACDDO,"BWP")):^("BWP"),1:"??") I '$D(^ACDCS(ACDDO,0))!('$D(^ACDCS(ACDDO,"BWP")))!('$D(^ACDVIS(ACDVISP,0))) S DA=ACDDO,DIK="^ACDCS(" D ^DIK W "." S ACDCNT=ACDCNT+1
- W !,"Total of ",ACDCNT," entries deleted."
- Q
- ACDCLN ;IHS/ADC/EDE/KML - UTILITY TO CLEAN BROKEN LINKS IN DB;
- +1 ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998
- +2 ;*******************************************************************
- +3 ;//PROG MODE
- +4 ;*******************************************************************
- EN ;EP
- +1 ;//^ACDGSAVE
- +2 ;
- +3 WRITE !!,"Re-indexing files now.....",!
- +4 KILL ^ACDIIF("C")
- SET DIK(1)="99.99^C"
- SET DIK="^ACDIIF("
- DO ENALL^DIK
- +5 KILL ^ACDTDC("C")
- SET DIK(1)="99.99^C"
- SET DIK="^ACDTDC("
- DO ENALL^DIK
- +6 KILL ^ACDCS("C")
- SET DIK(1)="99.99^C"
- SET DIK="^ACDCS("
- DO ENALL^DIK
- +7 KILL ^ACDVIS("B")
- SET DIK(1)=".01^B"
- SET DIK="^ACDVIS("
- DO ENALL^DIK
- +8 KILL ^ACDVIS("C")
- SET DIK(1)="99.99^C"
- SET DIK="^ACDVIS("
- DO ENALL^DIK
- +9 ;
- EN1 ;EP skip re-indexing
- +1 ;//^ACDDFAC
- +2 ;//^ACDPURG
- +3 ;
- +4 DO D
- V ;Delete visits in ^ACDVIS last
- +1 WRITE !!!!!,"Cleaning up entries from the CDMIS visit file that are not being"
- +2 WRITE !,"referenced."
- +3 SET ACDCNT=0
- FOR ACDVISP=0:0
- SET ACDVISP=$ORDER(^ACDVIS(ACDVISP))
- IF 'ACDVISP
- QUIT
- DO V1
- +4 WRITE !,"Total of ",ACDCNT," visits deleted."
- +5 KILL DA,DIK,ACDVISP,ACD80,ACDDA,ACDOK,ACDDO,ACDCNT
- +6 QUIT
- V1 ;
- +1 SET ACDOK=0
- +2 IF $ORDER(^ACDIIF("C",ACDVISP,0))
- SET ACDOK=1
- +3 IF $ORDER(^ACDTDC("C",ACDVISP,0))
- SET ACDOK=1
- +4 IF $ORDER(^ACDCS("C",ACDVISP,0))
- SET ACDOK=1
- +5 IF 'ACDOK
- DO VDEL
- WRITE !,"Entry ",ACDVISP," is unreferenced...deleting now."
- +6 ;
- +7 QUIT
- VDEL ;Delete unreferenced visit
- +1 SET DA=ACDVISP
- SET DIK="^ACDVIS("
- DO ^DIK
- +2 SET ACDCNT=ACDCNT+1
- +3 QUIT
- D ;Check link files first
- +1 SET ACDCNT=0
- +2 WRITE !,"Now cleaning up incomplete data links..."
- +3 FOR ACDDO=0:0
- SET ACDDO=$ORDER(^ACDIIF(ACDDO))
- IF 'ACDDO
- QUIT
- SET ACDVISP=$SELECT($DATA(^(ACDDO,"BWP")):^("BWP"),1:"??")
- IF '$DATA(^ACDIIF(ACDDO,0))!('$DATA(^ACDIIF(ACDDO,"BWP")))!('$DATA(^ACDVIS(ACDVISP,0)))
- SET DA=ACDDO
- SET DIK="^ACDIIF("
- DO ^DIK
- WRITE "."
- SET ACDCNT=ACDCNT+1
- +4 FOR ACDDO=0:0
- SET ACDDO=$ORDER(^ACDTDC(ACDDO))
- IF 'ACDDO
- QUIT
- SET ACDVISP=$SELECT($DATA(^(ACDDO,"BWP")):^("BWP"),1:"??")
- IF '$DATA(^ACDTDC(ACDDO,0))!('$DATA(^ACDTDC(ACDDO,"BWP")))!('$DATA(^ACDVIS(ACDVISP,0)))
- SET DA=ACDDO
- SET DIK="^ACDTDC("
- DO ^DIK
- WRITE "."
- SET ACDCNT=ACDCNT+1
- +5 FOR ACDDO=0:0
- SET ACDDO=$ORDER(^ACDCS(ACDDO))
- IF 'ACDDO
- QUIT
- SET ACDVISP=$SELECT($DATA(^(ACDDO,"BWP")):^("BWP"),1:"??")
- Begin DoDot:1
- +6 SET D=0
- +7 IF '$DATA(^ACDCS(ACDDO,0))!('$DATA(^ACDCS(ACDDO,"BWP")))!('$DATA(^ACDVIS(ACDVISP,0)))
- SET D=1
- +8 IF 'D
- IF $PIECE(^ACDCS(ACDDO,0),U,2)=""
- SET D=1
- +9 IF D
- SET DA=ACDDO
- SET DIK="^ACDCS("
- DO ^DIK
- WRITE "."
- SET ACDCNT=ACDCNT+1
- +10 QUIT
- End DoDot:1
- +11 ;F ACDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DO=0:0 S ACDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DO=$O(^ACDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCS(ACDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DO)) Q:'ACDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DO S ACDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DVISP=$S($DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D(^(ACDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DO,"BWP")):^("BWP"),1:"??") I '$DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D(^ACDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCS(ACDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DO,0))!('$DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D(^ACDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCS(ACDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DO,"BWP")))!('$DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D(^ACDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DVIS(ACDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DVISP,0))) S DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DA=ACDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DO,DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DIK="^ACDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCS(" DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D ^DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DIK W "." S ACDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCNT=ACDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">D">DCLN_source.html#xD">DCLN_source.html#xDCLN_source.html#xD">D">DCLN_source.html#xD">DCNT+1
- +12 WRITE !,"Total of ",ACDCNT," entries deleted."
- +13 QUIT
