- DGYPREG4 ;ALB/REW - POST-INIT CONVERSION/REPORTING ;5-APR-93
- ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
- ;
- ; Note: By removing the ;(comment) before D NUMLIM the user is
- ; prompted for the maximum number of patients to print.
- MAX ;
- N DIR,DGXM,DGTXT,X,Y,%DT,Z
- W !,?5,"This report will print problem records sorted by Last Activity Date."
- W !,?5,"It also prints a total of convertible and un-convertible patients"
- W !?5,"for Active and Inactive patients",!
- D PRHEAD1^DGYPREG2 ;Displays definition of Last Activity Date
- W !?5,"Because this may be a very long report, you may wish to only"
- W !?5,"print recently active patients. The default is 2 years ago.",!
- S DIR("A")="Oldest Activity Date to Print: ",Z=(DT-20000),DIR("B")=$E(Z,4,5)_"/"_$E(Z,6,7)_"/"_$E(Z,2,3),%DT="AE",DIR(0)="D^2800101:2950101:EX"
- D ^DIR
- G:Y<0!($G(DIRUT)) QTMAX
- S:Y DGFSTDT=Y
- I DGFSTDT=2800101 D
- .N DIR
- .W !?5,"Because you have chosen the earliest date (1-1-80) records with NO"
- .W !?5,"Activity Date will be printed at the end. An example of this"
- .W !?5,"is a patient that never completed registration.",!
- .S DGFSTDT=0
- .S DIR(0)="E" D ^DIR
- ;D NUMLIM
- S:'$G(DGMAXPT) DGMAXPT=1999
- QTMAX Q
- MBQUE ;
- N DIR,DIRUT,DUOUT,DGFSTDT,DGMAXPT,DGDOMB,DGVAR,DGPGM,X,Y,ZTIO
- S DGDOMB=1,DGVAR="DGMAXPT^DGFSTDT^DGDOMB^DUZ",DGPGM="EN^DGYPREG",ZTIO=""
- D MAX,QUEMESS:'$G(DIRUT)
- D:'$G(DIRUT) QUE^DGUTQ
- QTMBQ Q
- CFLQUE ;
- N DIR,DIRUT,DUOUT,DGFSTDT,DGMAXPT,DGDOCFL,DGVAR,DGPGM,X,Y,ZTIO
- S DGDOCFL=1,DGVAR="DGMAXPT^DGFSTDT^DGDOCFL^DUZ",DGPGM="EN^DGYPREG",ZTIO=""
- D MAX,QUEMESS:'$G(DIRUT)
- D:'$G(DIRUT) QUE^DGUTQ
- QTCFLQ Q
- QUEMESS ;
- I $D(ZTQUEUED) G QTQMESS
- W !!?5,"You will be receiving a Mail Message indicating records whose "
- W:$G(DGDOMB) !?5,"monetary benefit amount fields can not be converted into the"
- W:$G(DGDOMB) !?5,"TOTAL ANNUAL VA CHECK AMOUNT field.",!
- W:$G(DGDOCFL) !?5,"Claim Folder Location field in the Patient File does not "
- W:$G(DGDOCFL) !?5,"begin with an institution's station number."
- W !?5,$S($G(DGDOMB)=1:"NO",$G(DGDOCFL)=1:"NO",1:"")," Data will be changed.",!!
- W !?5,"This is a queued task. Because this searches the entire Patient File,"
- W !?5,"you may wish to run this during off-hours.",!!
- QTQMESS Q
- NUMLIM ;
- W !!?5,"You may wish to limit the number of patients to print in the"
- W !?5,"listing to a maximum number of unconvertible patients.",!
- S DIR(0)="NA^20:99999:0",DIR("A")="Maximum number of Unconvertible Patients to print: "
- S DIR("B")=999
- D ^DIR
- Q:'Y
- S:Y DGMAXPT=Y
- Q
- DGYPREG4 ;ALB/REW - POST-INIT CONVERSION/REPORTING ;5-APR-93
- +1 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
- +2 ;
- +3 ; Note: By removing the ;(comment) before D NUMLIM the user is
- +4 ; prompted for the maximum number of patients to print.
- MAX ;
- +1 NEW DIR,DGXM,DGTXT,X,Y,%DT,Z
- +2 WRITE !,?5,"This report will print problem records sorted by Last Activity Date."
- +3 WRITE !,?5,"It also prints a total of convertible and un-convertible patients"
- +4 WRITE !?5,"for Active and Inactive patients",!
- +5 ;Displays definition of Last Activity Date
- DO PRHEAD1^DGYPREG2
- +6 WRITE !?5,"Because this may be a very long report, you may wish to only"
- +7 WRITE !?5,"print recently active patients. The default is 2 years ago.",!
- +8 SET DIR("A")="Oldest Activity Date to Print: "
- SET Z=(DT-20000)
- SET DIR("B")=$EXTRACT(Z,4,5)_"/"_$EXTRACT(Z,6,7)_"/"_$EXTRACT(Z,2,3)
- SET %DT="AE"
- SET DIR(0)="D^2800101:2950101:EX"
- +9 DO ^DIR
- +10 IF Y<0!($GET(DIRUT))
- GOTO QTMAX
- +11 IF Y
- SET DGFSTDT=Y
- +12 IF DGFSTDT=2800101
- Begin DoDot:1
- +13 NEW DIR
- +14 WRITE !?5,"Because you have chosen the earliest date (1-1-80) records with NO"
- +15 WRITE !?5,"Activity Date will be printed at the end. An example of this"
- +16 WRITE !?5,"is a patient that never completed registration.",!
- +17 SET DGFSTDT=0
- +18 SET DIR(0)="E"
- DO ^DIR
- End DoDot:1
- +19 ;D NUMLIM
- +20 IF '$GET(DGMAXPT)
- SET DGMAXPT=1999
- QTMAX QUIT
- MBQUE ;
- +1 NEW DIR,DIRUT,DUOUT,DGFSTDT,DGMAXPT,DGDOMB,DGVAR,DGPGM,X,Y,ZTIO
- +2 SET DGDOMB=1
- SET DGVAR="DGMAXPT^DGFSTDT^DGDOMB^DUZ"
- SET DGPGM="EN^DGYPREG"
- SET ZTIO=""
- +3 DO MAX
- IF '$GET(DIRUT)
- DO QUEMESS
- +4 IF '$GET(DIRUT)
- DO QUE^DGUTQ
- QTMBQ QUIT
- CFLQUE ;
- +1 NEW DIR,DIRUT,DUOUT,DGFSTDT,DGMAXPT,DGDOCFL,DGVAR,DGPGM,X,Y,ZTIO
- +2 SET DGDOCFL=1
- SET DGVAR="DGMAXPT^DGFSTDT^DGDOCFL^DUZ"
- SET DGPGM="EN^DGYPREG"
- SET ZTIO=""
- +3 DO MAX
- IF '$GET(DIRUT)
- DO QUEMESS
- +4 IF '$GET(DIRUT)
- DO QUE^DGUTQ
- QTCFLQ QUIT
- QUEMESS ;
- +1 IF $DATA(ZTQUEUED)
- GOTO QTQMESS
- +2 WRITE !!?5,"You will be receiving a Mail Message indicating records whose "
- +3 IF $GET(DGDOMB)
- WRITE !?5,"monetary benefit amount fields can not be converted into the"
- +4 IF $GET(DGDOMB)
- WRITE !?5,"TOTAL ANNUAL VA CHECK AMOUNT field.",!
- +5 IF $GET(DGDOCFL)
- WRITE !?5,"Claim Folder Location field in the Patient File does not "
- +6 IF $GET(DGDOCFL)
- WRITE !?5,"begin with an institution's station number."
- +7 WRITE !?5,$SELECT($GET(DGDOMB)=1:"NO",$GET(DGDOCFL)=1:"NO",1:"")," Data will be changed.",!!
- +8 WRITE !?5,"This is a queued task. Because this searches the entire Patient File,"
- +9 WRITE !?5,"you may wish to run this during off-hours.",!!
- QTQMESS QUIT
- NUMLIM ;
- +1 WRITE !!?5,"You may wish to limit the number of patients to print in the"
- +2 WRITE !?5,"listing to a maximum number of unconvertible patients.",!
- +3 SET DIR(0)="NA^20:99999:0"
- SET DIR("A")="Maximum number of Unconvertible Patients to print: "
- +4 SET DIR("B")=999
- +5 DO ^DIR
- +6 IF 'Y
- QUIT
- +7 IF Y
- SET DGMAXPT=Y
- +8 QUIT
