DGRPCS ;ALB/MRL - CONSISTENCY STATUS CHECKER ; 12 FEB 1987
;;5.3;Registration;;Aug 13, 1993
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGRPCS 612 printed Sep 23, 2025@20:32 Page 2
DGRPCS ;ALB/MRL - CONSISTENCY STATUS CHECKER ; 12 FEB 1987
+1 ;;5.3;Registration;;Aug 13, 1993
+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
