DGRPCR.m

DGRPCR ;ALB/MRL,BAJ - CONSISTENCY FLAGGER, REBUILD FILE ; NOV 16, 2005

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

 S U="^" D DT^DICRW F I=1:1 S J=$P($T(T+I),";;",2) Q:J']""  W !,J

 D ^DGRPCS G Q:DGCONRUN S Y=$S($D(^DG(43,1,"CON")):$P(^("CON"),"^",4),1:"") I +Y X ^DD("DD") W !!,"LAST RUN COMPLETED:  ",Y

K W !!,"Do you want to delete the existing entries and rebuild the file" S %=2 D YN^DICN G Q:%=-1 I % S DGKILL=$S(%=1:1,1:0)

 I '% W !!?4,"Y - If you want to remove all existing entries from the INCONSISTENT DATA",!?9,"file and rebuild from scratch.",!?5,"N - If you just want to add newly identified inconsistencies to the",!?9,"existing file." G K

D W !! S %DT="EA",%DT(0)=-DT,%DT("A")="Rebuild for patients seen since what date:  " D ^%DT G Q:Y'>0 S DGDAT=Y,X1=DT,X2=DGDAT D ^%DTC S DGDAY=+X

 I DGDAT=DT W !!?4,"SELECT A DATE IN THE PAST PLEASE!!",*7 G D

OK K %DT W !!,"I'm going to check all patients who were admitted or registered on or after " S Y=DGDAT X ^DD("DD") W !,Y," [Within the Past ",+DGDAY," day",$S(+DGDAY>1:"s",1:""),"]."

 W !,"I will ",$S(DGKILL:"DELETE all existing entries prior to rebuilding",1:"add any new inconsistent data elements to the existing file"),"."

 W !!,"Is this correct" S %=2 D YN^DICN G Q:%=2!(%=-1) I '% W !!?4,"Y - If this is what you want to do.",!?4,"N - If you wish to STOP processing and reconsider this action." G OK

 S ION="",DGPGM="S^DGRPCR",DGVAR="DUZ^DGDAT^DGKILL" D QUE^DGUTQ

Q K %,%DT,DFN,DGCONRUN,DGDAT,DGDAY,DGDD,DGDD1,DGEDCN,DGTIME,DGKILL,DGPGM,DGVAR,I,J,X,X1,X2,Y,^UTILITY($J,"DGINCP"),PASS D CLOSE^DGUTQ Q

S D H^DGUTL S $P(^DG(43,1,"CON"),"^",3)=DGTIME K ^UTILITY($J,"DGINCP")

 I DGKILL K ^DGIN(38.5) S ^DGIN(38.5,0)="INCONSISTENT DATA^38.5P^^0"

 ; DG*5.3*653 BAJ Added call to Z07 Consistency Checks

 F DGDD=DGDAT:0 S DGDD=$O(^DPT("ADIS",DGDD)) Q:'DGDD  F DFN=0:0 S DFN=$O(^DPT("ADIS",DGDD,DFN)) Q:'DFN  D

 . I '$D(^UTILITY($J,"DGINCP",DFN)) S ^UTILITY($J,"DGINCP",DFN)="" D EN^DGRPC S PASS=$$EN^IVMZ07C(DFN)

 F DGDD=DGDAT:0 S DGDD=$O(^DGPM("ATT1",DGDD)) Q:'DGDD  F DGDD1=0:0 S DGDD1=$O(^DGPM("ATT1",DGDD,DGDD1)) Q:'DGDD1  D

 . I $D(^DGPM(+DGDD1,0)) S DFN=$P(^(0),"^",3) I '$D(^UTILITY($J,"DGINCP",DFN)) S ^UTILITY($J,"DGINCP",DFN)="" D EN^DGRPC S PASS=$$EN^IVMZ07C(DFN)

 D H^DGUTL S $P(^DG(43,1,"CON"),"^",4)=DGTIME G Q

T ;

 ;;This routine is used to build the INCONSISTENT DATA file.  I will ask you to

 ;;enter a date and will check all patients who were admitted or were registered

 ;;on or after that date for inconsistencies.  If any exist I will add

 ;;those patients to the INCONSISTENT DATA file for further editing of those

 ;;inconsistencies.  You will also be asked if you wish to delete all the existing

 ;;entries and rebuild the file.  If you answer YES I will kill off all entries

 ;;which are currently in the file and then rebuild based on the date you entered.

 ;;If you answer NO I will simply add the new entries I find to the existing file.

DGRPCR    ;ALB/MRL,BAJ - CONSISTENCY FLAGGER, REBUILD FILE ; NOV 16, 2005

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

 +2        SET U="^"

           DO DT^DICRW

           FOR I=1:1

               SET J=$PIECE($TEXT(T+I),";;",2)

               IF J']""

                   QUIT 

               WRITE !,J

 +3        DO ^DGRPCS

           IF DGCONRUN

               GOTO Q

           SET Y=$SELECT($DATA(^DG(43,1,"CON")):$PIECE(^("CON"),"^",4),1:"")

           IF +Y

               XECUTE ^DD("DD")

               WRITE !!,"LAST RUN COMPLETED:  ",Y

K          WRITE !!,"Do you want to delete the existing entries and rebuild the file"

           SET %=2

           DO YN^DICN

           IF %=-1

               GOTO Q

           IF %

               SET DGKILL=$SELECT(%=1:1,1:0)

 +1        IF '%

               WRITE !!?4,"Y - If you want to remove all existing entries from the INCONSISTENT DATA",!?9,"file and rebuild from scratch.",!?5,"N - If you just want to add newly identified inconsistencies to the",!?9,"existing file."

               GOTO K

D          WRITE !!

           SET %DT="EA"

           SET %DT(0)=-DT

           SET %DT("A")="Rebuild for patients seen since what date:  "

           DO ^%DT

           IF Y'>0

               GOTO Q

           SET DGDAT=Y

           SET X1=DT

           SET X2=DGDAT

           DO ^%DTC

           SET DGDAY=+X

 +1        IF DGDAT=DT

               WRITE !!?4,"SELECT A DATE IN THE PAST PLEASE!!",*7

               GOTO D

OK         KILL %DT

           WRITE !!,"I'm going to check all patients who were admitted or registered on or after "

           SET Y=DGDAT

           XECUTE ^DD("DD")

           WRITE !,Y," [Within the Past ",+DGDAY," day",$SELECT(+DGDAY>1:"s",1:""),"]."

 +1        WRITE !,"I will ",$SELECT(DGKILL:"DELETE all existing entries prior to rebuilding",1:"add any new inconsistent data elements to the existing file"),"."

 +2        WRITE !!,"Is this correct"

           SET %=2

           DO YN^DICN

           IF %=2!(%=-1)

               GOTO Q

           IF '%

               WRITE !!?4,"Y - If this is what you want to do.",!?4,"N - If you wish to STOP processing and reconsider this action."

               GOTO OK

 +3        SET ION=""

           SET DGPGM="S^DGRPCR"

           SET DGVAR="DUZ^DGDAT^DGKILL"

           DO QUE^DGUTQ

Q          KILL %,%DT,DFN,DGCONRUN,DGDAT,DGDAY,DGDD,DGDD1,DGEDCN,DGTIME,DGKILL,DGPGM,DGVAR,I,J,X,X1,X2,Y,^UTILITY($JOB,"DGINCP"),PASS

           DO CLOSE^DGUTQ

           QUIT 

S          DO H^DGUTL

           SET $PIECE(^DG(43,1,"CON"),"^",3)=DGTIME

           KILL ^UTILITY($JOB,"DGINCP")

 +1        IF DGKILL

               KILL ^DGIN(38.5)

               SET ^DGIN(38.5,0)="INCONSISTENT DATA^38.5P^^0"

 +2       ; DG*5.3*653 BAJ Added call to Z07 Consistency Checks

 +3        FOR DGDD=DGDAT:0

               SET DGDD=$ORDER(^DPT("ADIS",DGDD))

               IF 'DGDD

                   QUIT 

               FOR DFN=0:0

                   SET DFN=$ORDER(^DPT("ADIS",DGDD,DFN))

                   IF 'DFN

                       QUIT 

                   Begin DoDot:1

 +4                    IF '$DATA(^UTILITY($JOB,"DGINCP",DFN))

                           SET ^UTILITY($JOB,"DGINCP",DFN)=""

                           DO EN^DGRPC

                           SET PASS=$$EN^IVMZ07C(DFN)

                   End DoDot:1

 +5        FOR DGDD=DGDAT:0

               SET DGDD=$ORDER(^DGPM("ATT1",DGDD))

               IF 'DGDD

                   QUIT 

               FOR DGDD1=0:0

                   SET DGDD1=$ORDER(^DGPM("ATT1",DGDD,DGDD1))

                   IF 'DGDD1

                       QUIT 

                   Begin DoDot:1

 +6                    IF $DATA(^DGPM(+DGDD1,0))

                           SET DFN=$PIECE(^(0),"^",3)

                           IF '$DATA(^UTILITY($JOB,"DGINCP",DFN))

                               SET ^UTILITY($JOB,"DGINCP",DFN)=""

                               DO EN^DGRPC

                               SET PASS=$$EN^IVMZ07C(DFN)

                   End DoDot:1

 +7        DO H^DGUTL

           SET $PIECE(^DG(43,1,"CON"),"^",4)=DGTIME

           GOTO Q

T         ;

 +1       ;;This routine is used to build the INCONSISTENT DATA file.  I will ask you to

 +2       ;;enter a date and will check all patients who were admitted or were registered

 +3       ;;on or after that date for inconsistencies.  If any exist I will add

 +4       ;;those patients to the INCONSISTENT DATA file for further editing of those

 +5       ;;inconsistencies.  You will also be asked if you wish to delete all the existing

 +6       ;;entries and rebuild the file.  If you answer YES I will kill off all entries

 +7       ;;which are currently in the file and then rebuild based on the date you entered.

 +8       ;;If you answer NO I will simply add the new entries I find to the existing file.