ACDCLN0.m

ACDCLN0 ;IHS/ADC/EDE/KML - UTILITY TO LIST BROKEN LINKS IN DB;

 ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

 ;***************************************************************

 ;//PROG MODE

 ;List broken links in dbase

 ;*****************************************************************

 D D

V ;Check visit file last

 W !!,"Listing entries from the CDMIS visit file that are not being"

 W !,"referenced by any of the CDMIS data files",!!!

 S ACDCNT=0 F ACDVISP=0:0 S ACDVISP=$O(^ACDVIS(ACDVISP)) Q:'ACDVISP  D V1

 W !!,"Total of ",ACDCNT," visits not referenced.",!!

 K DA,DIK,ACDVISP,ACD80,ACDDA,ACDDO,ACDOK,ACDCNT

 D ^%ZISC

 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 W !,"ENTRY ",ACDVISP," FROM THE ^ACDVIS GLOBAL IS NOT REFERENCED" S ACDCNT=ACDCNT+1

 Q

D ;Check data files first

 S ACDCNT=0

 W !!!,"Listing partial entries from CDMIS data files that need to be corrected",!

 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))) W !,"ENTRY ",ACDDO," FROM THE ^ACDIIF GLOBAL IS" D D1

 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))) W !,"ENTRY ",ACDDO," FROM THE ^ACDTDC GLOBAL IS" D D1

 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))) W !,"ENTRY ",ACDDO," FROM THE ^ACDCS GLOBAL IS" D D1

 W !,"Total of ",ACDCNT," entries with errors found",!!!

 Q

D1 ;

 W !,"Missing one of the following:",!,"1 THE 0 NODE",!,"2 THE 'BWP' NODE",!,"3 THE POINTED TO VISIT",!!

 S ACDCNT=ACDCNT+1

ACDCLN0   ;IHS/ADC/EDE/KML - UTILITY TO LIST BROKEN LINKS IN DB;

 +1       ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

 +2       ;***************************************************************

 +3       ;//PROG MODE

 +4       ;List broken links in dbase

 +5       ;*****************************************************************

 +6        DO D

V         ;Check visit file last

 +1        WRITE !!,"Listing entries from the CDMIS visit file that are not being"

 +2        WRITE !,"referenced by any of the CDMIS data files",!!!

 +3        SET ACDCNT=0

           FOR ACDVISP=0:0

               SET ACDVISP=$ORDER(^ACDVIS(ACDVISP))

               IF 'ACDVISP

                   QUIT 

               DO V1

 +4        WRITE !!,"Total of ",ACDCNT," visits not referenced.",!!

 +5        KILL DA,DIK,ACDVISP,ACD80,ACDDA,ACDDO,ACDOK,ACDCNT

 +6        DO ^%ZISC

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

               WRITE !,"ENTRY ",ACDVISP," FROM THE ^ACDVIS GLOBAL IS NOT REFERENCED"

               SET ACDCNT=ACDCNT+1

 +6        QUIT 

D         ;Check data files first

 +1        SET ACDCNT=0

 +2        WRITE !!!,"Listing partial entries from CDMIS data files that need to be corrected",!

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

                   WRITE !,"ENTRY ",ACDDO," FROM THE ^ACDIIF GLOBAL IS"

                   DO D1

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

                   WRITE !,"ENTRY ",ACDDO," FROM THE ^ACDTDC GLOBAL IS"

                   DO D1

 +5        FOR ACDDO=0:0

               SET ACDDO=$ORDER(^ACDCS(ACDDO))

               IF 'ACDDO

                   QUIT 

               SET ACDVISP=$SELECT($DATA(^(ACDDO,"BWP")):^("BWP"),1:"??")

               IF '$DATA(^ACDCS(ACDDO,0))!('$DATA(^ACDCS(ACDDO,"BWP")))!('$DATA(^ACDVIS(ACDVISP,0)))

                   WRITE !,"ENTRY ",ACDDO," FROM THE ^ACDCS GLOBAL IS"

                   DO D1

 +6        WRITE !,"Total of ",ACDCNT," entries with errors found",!!!

 +7        QUIT 

D1        ;

 +1        WRITE !,"Missing one of the following:",!,"1 THE 0 NODE",!,"2 THE 'BWP' NODE",!,"3 THE POINTED TO VISIT",!!

 +2        SET ACDCNT=ACDCNT+1