| 1 | DGRPCU ;ALB/MRL,BAJ - CONSISTENCY FLAGGER, CHECK EXISTING ; NOV 18, 2005
|
|---|
| 2 | ;;5.3;Registration;**653**;Aug 13, 1993;Build 2
|
|---|
| 3 | S U="^" D DT^DICRW F I=1:1 S J=$P($T(T+I),";;",2) Q:J']"" W !,J
|
|---|
| 4 | D ^DGRPCS G Q:DGCONRUN S Y=$S($D(^DG(43,1,"CON")):$P(^("CON"),"^",6),1:"") I +Y X ^DD("DD") W !!,"LAST RUN COMPLETED: ",Y
|
|---|
| 5 | OK W !!,"Do you really want to update existing inconsistent entries" S %=2 D YN^DICN G Q:%=2!(%=-1)
|
|---|
| 6 | I '% W !!?4,"Y - If you want me to run through all the entries currently filed in",!?9,"the INCONSISTENT DATA file and verify they're still inconsistent.",!?4,"N - If you wish to QUIT and rethink this action." G OK
|
|---|
| 7 | S ION="",DGPGM="ST^DGRPCU",DGVAR="DUZ" D QUE^DGUTQ S IOP="HOME" D ^%ZIS K IOP
|
|---|
| 8 | Q K DFN,DGCONRUN,DGPGM,DGTIME,DGVAR,I,J,Y,%,%Y,PASS D CLOSE^DGUTQ Q
|
|---|
| 9 | ; DG*5.3*653 BAJ Added call to Z07 Consistency checker
|
|---|
| 10 | ST D H^DGUTL S $P(^DG(43,1,"CON"),"^",5)=DGTIME F DFN=0:0 S DFN=$O(^DGIN(38.5,DFN)) Q:'DFN D EN^DGRPC S PASS=$$EN^IVMZ07C(DFN)
|
|---|
| 11 | D H^DGUTL S $P(^DG(43,1,"CON"),"^",6)=DGTIME G Q
|
|---|
| 12 | T ;
|
|---|
| 13 | ;;This option is designed to loop through the existing entries in the INCONSISTENT
|
|---|
| 14 | ;;DATA file and verify that all elements are still inconsistent. This function
|
|---|
| 15 | ;;is necessary because some data may get updated by means where the consistency
|
|---|
| 16 | ;;checker isn't automatically run, i.e., VA FileMan. If you wish to in fact run
|
|---|
| 17 | ;;this option simply respond YES when asked and enter the DATE/TIME you wish the
|
|---|
| 18 | ;;option to commence running.
|
|---|
| 19 | ;
|
|---|
| 20 | ;
|
|---|
| 21 | UPD ;update file 38.5 - called from DG CONSISTENCY CHECK option
|
|---|
| 22 | D ON^DGRPC G KVAR^DGRPCE:DGER W !! S DGEDIT=1,DIC="^DGIN(38.6,",DIC(0)="AEQMZ",DIC("S")="I Y'=21" D ^DIC G KVAR^DGRPCE:Y'>0 S DGD=+Y
|
|---|
| 23 | S DGL="",$P(DGL,"=",80)="" W !,DGL F I=0:0 S I=$O(^DGIN(38.6,+DGD,"D",I)) Q:'I W !,^(I,0)
|
|---|
| 24 | I "^2^9^10^13^14^22^51^52^53^"[("^"_DGD_"^") W !!,*7,"This check can not be edited. It is automatically turned ",$S(DGD=2:"OFF",DGD=51:"OFF",1:"ON"),"!",!,DGL G UPDQ
|
|---|
| 25 | W !,DGL S (DA,Y)=DGD,DIE=DIC,DR="5;" K DG,DQ D ^DIE
|
|---|
| 26 | UPDQ K DA,DGD,DGEDIT,DGER,DGL,DR,DIC,DIE,I,X,Y
|
|---|
| 27 | G UPD
|
|---|
