source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGYPREG4.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.4 KB
Line 
1DGYPREG4 ;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.
6MAX ;
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
27QTMAX Q
28MBQUE ;
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
33QTMBQ Q
34CFLQUE ;
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
39QTCFLQ Q
40QUEMESS ;
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.",!!
50QTQMESS Q
51NUMLIM ;
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
Note: See TracBrowser for help on using the repository browser.