DGRPCS.m

DGRPCS ;ALB/MRL - CONSISTENCY STATUS CHECKER ; 12 FEB 1987

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 D ON^DGRPC I DGER K DGER S DGCONRUN=1 D KVAR^DGRPCE Q

 S IOP="HOME" D ^%ZIS K IOP S DGCONRUN=$S($D(^DG(43,1,"CON")):^("CON"),1:0)

 F I=1,3,5 S J=$P(DGCONRUN,"^",I),J1=$P(DGCONRUN,"^",I+1) I +J,J1'>J,J1'=J S Y=J X ^DD("DD") S DGCONR(I)="'INCONSISTENCY "_$S(I=1:"PURGE",I=3:"REBUILD",1:"UPDATE")_"' OPTION RUNNING FROM "_Y_"."

 S DGCONRUN=0 I ION'="",$O(DGCONR(0))'="" W !!,"UNABLE TO RUN THIS OPTION AT CURRENT TIME!!",*7,! F I=0:0 S I=$O(DGCONR(I)) Q:'I  W !,DGCONR(I) S DGCONRUN=1

Q K DGCONR,DGER,I,J,J1,Y

 Q

DGRPCS    ;ALB/MRL - CONSISTENCY STATUS CHECKER ; 12 FEB 1987

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 +2        DO ON^DGRPC

           IF DGER

               KILL DGER

               SET DGCONRUN=1

               DO KVAR^DGRPCE

               QUIT 

 +3        SET IOP="HOME"

           DO ^%ZIS

           KILL IOP

           SET DGCONRUN=$SELECT($DATA(^DG(43,1,"CON")):^("CON"),1:0)

 +4        FOR I=1,3,5

               SET J=$PIECE(DGCONRUN,"^",I)

               SET J1=$PIECE(DGCONRUN,"^",I+1)

               IF +J

                   IF J1'>J

                       IF J1'=J

                           SET Y=J

                           XECUTE ^DD("DD")

                           SET DGCONR(I)="'INCONSISTENCY "_$SELECT(I=1:"PURGE",I=3:"REBUILD",1:"UPDATE")_"' OPTION RUNNING FROM "_Y_"."

 +5        SET DGCONRUN=0

           IF ION'=""

               IF $ORDER(DGCONR(0))'=""

                   WRITE !!,"UNABLE TO RUN THIS OPTION AT CURRENT TIME!!",*7,!

                   FOR I=0:0

                       SET I=$ORDER(DGCONR(I))

                       IF 'I

                           QUIT 

                       WRITE !,DGCONR(I)

                       SET DGCONRUN=1

Q          KILL DGCONR,DGER,I,J,J1,Y

 +1        QUIT