|
Last change
on this file since 949 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
604 bytes
|
| Line | |
|---|
| 1 | DGRPCS ;ALB/MRL - CONSISTENCY STATUS CHECKER ; 12 FEB 1987
|
|---|
| 2 | ;;5.3;Registration;;Aug 13, 1993
|
|---|
| 3 | D ON^DGRPC I DGER K DGER S DGCONRUN=1 D KVAR^DGRPCE Q
|
|---|
| 4 | S IOP="HOME" D ^%ZIS K IOP S DGCONRUN=$S($D(^DG(43,1,"CON")):^("CON"),1:0)
|
|---|
| 5 | 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_"."
|
|---|
| 6 | 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
|
|---|
| 7 | Q K DGCONR,DGER,I,J,J1,Y
|
|---|
| 8 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
