| [613] | 1 | DGYPREG4 ;ALB/REW - POST-INIT CONVERSION/REPORTING ;5-APR-93
|
|---|
| 2 | ;;5.3;Registration;;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ; Note: By removing the ;(comment) before D NUMLIM the user is
|
|---|
| 5 | ; prompted for the maximum number of patients to print.
|
|---|
| 6 | MAX ;
|
|---|
| 7 | N DIR,DGXM,DGTXT,X,Y,%DT,Z
|
|---|
| 8 | W !,?5,"This report will print problem records sorted by Last Activity Date."
|
|---|
| 9 | W !,?5,"It also prints a total of convertible and un-convertible patients"
|
|---|
| 10 | W !?5,"for Active and Inactive patients",!
|
|---|
| 11 | D PRHEAD1^DGYPREG2 ;Displays definition of Last Activity Date
|
|---|
| 12 | W !?5,"Because this may be a very long report, you may wish to only"
|
|---|
| 13 | W !?5,"print recently active patients. The default is 2 years ago.",!
|
|---|
| 14 | 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"
|
|---|
| 15 | D ^DIR
|
|---|
| 16 | G:Y<0!($G(DIRUT)) QTMAX
|
|---|
| 17 | S:Y DGFSTDT=Y
|
|---|
| 18 | I DGFSTDT=2800101 D
|
|---|
| 19 | .N DIR
|
|---|
| 20 | .W !?5,"Because you have chosen the earliest date (1-1-80) records with NO"
|
|---|
| 21 | .W !?5,"Activity Date will be printed at the end. An example of this"
|
|---|
| 22 | .W !?5,"is a patient that never completed registration.",!
|
|---|
| 23 | .S DGFSTDT=0
|
|---|
| 24 | .S DIR(0)="E" D ^DIR
|
|---|
| 25 | ;D NUMLIM
|
|---|
| 26 | S:'$G(DGMAXPT) DGMAXPT=1999
|
|---|
| 27 | QTMAX Q
|
|---|
| 28 | MBQUE ;
|
|---|
| 29 | N DIR,DIRUT,DUOUT,DGFSTDT,DGMAXPT,DGDOMB,DGVAR,DGPGM,X,Y,ZTIO
|
|---|
| 30 | S DGDOMB=1,DGVAR="DGMAXPT^DGFSTDT^DGDOMB^DUZ",DGPGM="EN^DGYPREG",ZTIO=""
|
|---|
| 31 | D MAX,QUEMESS:'$G(DIRUT)
|
|---|
| 32 | D:'$G(DIRUT) QUE^DGUTQ
|
|---|
| 33 | QTMBQ Q
|
|---|
| 34 | CFLQUE ;
|
|---|
| 35 | N DIR,DIRUT,DUOUT,DGFSTDT,DGMAXPT,DGDOCFL,DGVAR,DGPGM,X,Y,ZTIO
|
|---|
| 36 | S DGDOCFL=1,DGVAR="DGMAXPT^DGFSTDT^DGDOCFL^DUZ",DGPGM="EN^DGYPREG",ZTIO=""
|
|---|
| 37 | D MAX,QUEMESS:'$G(DIRUT)
|
|---|
| 38 | D:'$G(DIRUT) QUE^DGUTQ
|
|---|
| 39 | QTCFLQ Q
|
|---|
| 40 | QUEMESS ;
|
|---|
| 41 | I $D(ZTQUEUED) G QTQMESS
|
|---|
| 42 | W !!?5,"You will be receiving a Mail Message indicating records whose "
|
|---|
| 43 | W:$G(DGDOMB) !?5,"monetary benefit amount fields can not be converted into the"
|
|---|
| 44 | W:$G(DGDOMB) !?5,"TOTAL ANNUAL VA CHECK AMOUNT field.",!
|
|---|
| 45 | W:$G(DGDOCFL) !?5,"Claim Folder Location field in the Patient File does not "
|
|---|
| 46 | W:$G(DGDOCFL) !?5,"begin with an institution's station number."
|
|---|
| 47 | W !?5,$S($G(DGDOMB)=1:"NO",$G(DGDOCFL)=1:"NO",1:"")," Data will be changed.",!!
|
|---|
| 48 | W !?5,"This is a queued task. Because this searches the entire Patient File,"
|
|---|
| 49 | W !?5,"you may wish to run this during off-hours.",!!
|
|---|
| 50 | QTQMESS Q
|
|---|
| 51 | NUMLIM ;
|
|---|
| 52 | W !!?5,"You may wish to limit the number of patients to print in the"
|
|---|
| 53 | W !?5,"listing to a maximum number of unconvertible patients.",!
|
|---|
| 54 | S DIR(0)="NA^20:99999:0",DIR("A")="Maximum number of Unconvertible Patients to print: "
|
|---|
| 55 | S DIR("B")=999
|
|---|
| 56 | D ^DIR
|
|---|
| 57 | Q:'Y
|
|---|
| 58 | S:Y DGMAXPT=Y
|
|---|
| 59 | Q
|
|---|
