AUCFIX.m

%AUCFIX ; COUNT ENTIRES IN FILEMAN FILES AND FIX [ 02/16/88  8:00 AM ]

 ;

 W !,"This program counts primary entries for FileMan files and fixes 0th node.",!

 S U="^"

 D ^%AUDSET

 Q:'$D(^UTILITY("AUDSET",$J))

 S AUCFIXFL="" F AUCFIXL=0:0 S AUCFIXFL=$O(^UTILITY("AUDSET",$J,AUCFIXFL)) Q:AUCFIXFL'=+AUCFIXFL  D AUCFIXFL

 D EOJ

 Q

 ;

AUCFIXFL ;

 W !,AUCFIXFL

 I AUCFIXFL=3.081 W "  skipping" Q

 I '$D(^DIC(AUCFIXFL,0,"GL")) W !!,"No data global specified in ^DIC!" Q

 S AUCFIXGB=^DIC(AUCFIXFL,0,"GL")

 I '$D(@($S($E(AUCFIXGB,$L(AUCFIXGB))="(":$E(AUCFIXGB,1,$L(AUCFIXGB)-1),1:$E(AUCFIXGB,1,$L(AUCFIXGB)-1)_")"))) W !!,"Bad global!" Q

 S AUCFIXGB=AUCFIXGB_"AUCFIXNX)"

 S (AUCFIXHI,AUCFIXNX,AUCFIXC)=0

 F AUCFIXL=0:0 S AUCFIXNX=$O(@(AUCFIXGB)) Q:AUCFIXNX'=+AUCFIXNX  S AUCFIXHI=AUCFIXNX,AUCFIXC=AUCFIXC+1 W:'(AUCFIXC#50) "."

 W !,"    Count=",AUCFIXC,?22,"High DFN=",AUCFIXHI

 S AUCFIXNX="",AUCFIXX=$O(@(AUCFIXGB)),AUCFIXX=^(0),AUCFIXY=$P(AUCFIXX,U,4),AUCFIXX=$P(AUCFIXX,U,3)

 I AUCFIXC=AUCFIXY,AUCFIXHI=AUCFIXX W ?50,"[correct]" Q

 W ?50,"[incorrect -- fixed]" S $P(^(0),U,3)=AUCFIXHI,$P(^(0),U,4)=AUCFIXC

 Q

 ;

EOJ ;

 K AUCFIXHI,AUCFIXX,AUCFIXY,AUCFIXC,DIC,DIC(0),AUCFIXFL,AUCFIXGB,AUCFIXL,AUCFIXNX

 Q

%AUCFIX   ; COUNT ENTIRES IN FILEMAN FILES AND FIX [ 02/16/88  8:00 AM ]

 +1       ;

 +2        WRITE !,"This program counts primary entries for FileMan files and fixes 0th node.",!

 +3        SET U="^"

 +4        DO ^%AUDSET

 +5        IF '$DATA(^UTILITY("AUDSET",$JOB))

               QUIT 

 +6        SET AUCFIXFL=""

           FOR AUCFIXL=0:0

               SET AUCFIXFL=$ORDER(^UTILITY("AUDSET",$JOB,AUCFIXFL))

               IF AUCFIXFL'=+AUCFIXFL

                   QUIT 

               DO AUCFIXFL

 +7        DO EOJ

 +8        QUIT 

 +9       ;

AUCFIXFL  ;

 +1        WRITE !,AUCFIXFL

 +2        IF AUCFIXFL=3.081

               WRITE "  skipping"

               QUIT 

 +3        IF '$DATA(^DIC(AUCFIXFL,0,"GL"))

               WRITE !!,"No data global specified in ^DIC!"

               QUIT 

 +4        SET AUCFIXGB=^DIC(AUCFIXFL,0,"GL")

 +5        IF '$DATA(@($SELECT($EXTRACT(AUCFIXGB,$LENGTH(AUCFIXGB))="(":$EXTRACT(AUCFIXGB,1,$LENGTH(AUCFIXGB)-1),1:$EXTRACT(AUCFIXGB,1,$LENGTH(AUCFIXGB)-1)_")")))

               WRITE !!,"Bad global!"

               QUIT 

 +6        SET AUCFIXGB=AUCFIXGB_"AUCFIXNX)"

 +7        SET (AUCFIXHI,AUCFIXNX,AUCFIXC)=0

 +8        FOR AUCFIXL=0:0

               SET AUCFIXNX=$ORDER(@(AUCFIXGB))

               IF AUCFIXNX'=+AUCFIXNX

                   QUIT 

               SET AUCFIXHI=AUCFIXNX

               SET AUCFIXC=AUCFIXC+1

               IF '(AUCFIXC#50)

                   WRITE "."

 +9        WRITE !,"    Count=",AUCFIXC,?22,"High DFN=",AUCFIXHI

 +10       SET AUCFIXNX=""

           SET AUCFIXX=$ORDER(@(AUCFIXGB))

           SET AUCFIXX=^(0)

           SET AUCFIXY=$PIECE(AUCFIXX,U,4)

           SET AUCFIXX=$PIECE(AUCFIXX,U,3)

 +11       IF AUCFIXC=AUCFIXY

               IF AUCFIXHI=AUCFIXX

                   WRITE ?50,"[correct]"

                   QUIT 

 +12       WRITE ?50,"[incorrect -- fixed]"

           SET $PIECE(^(0),U,3)=AUCFIXHI

           SET $PIECE(^(0),U,4)=AUCFIXC

 +13       QUIT 

 +14      ;

EOJ       ;

 +1        KILL AUCFIXHI,AUCFIXX,AUCFIXY,AUCFIXC,DIC,DIC(0),AUCFIXFL,AUCFIXGB,AUCFIXL,AUCFIXNX

 +2        QUIT