| 1 | DGENRPA1 ;ALB/CJM - Enrolled Veterans Report; JUL 9,1997
|
|---|
| 2 | ;;5.3;Registration;**121,232**;Aug 13,1993
|
|---|
| 3 | ;
|
|---|
| 4 | REPORT ;
|
|---|
| 5 | N INDATE
|
|---|
| 6 | ;
|
|---|
| 7 | ;put back if second part of report restored - veterans not enrolled
|
|---|
| 8 | ;S INDATE=$$ASKDATE()
|
|---|
| 9 | ;I INDATE,$$DEVICE(INDATE) D PRINT^DGENRPA2
|
|---|
| 10 | ;
|
|---|
| 11 | I $$DEVICE() D PRINT^DGENRPA2
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | DEVICE(INDATE) ;
|
|---|
| 15 | ;Description: allows the user to select a device.
|
|---|
| 16 | ;Input:
|
|---|
| 17 | ; INDATE - is a report parameter, needed in case the report is queued.
|
|---|
| 18 | ;Output:
|
|---|
| 19 | ; Function Value - Returns 0 if the user decides not to print or to
|
|---|
| 20 | ; queue the report, 1 otherwise.
|
|---|
| 21 | ;
|
|---|
| 22 | N OK
|
|---|
| 23 | S OK=1
|
|---|
| 24 | S %ZIS="MQ"
|
|---|
| 25 | W !,"*** This report requires a 132 column printer. ******"
|
|---|
| 26 | D ^%ZIS
|
|---|
| 27 | S:POP OK=0
|
|---|
| 28 | D:OK&$D(IO("Q"))
|
|---|
| 29 | .S ZTRTN="PRINT^DGENRPA2",ZTDESC="ENROLLED VETERANS REPORT",ZTSAVE("INDATE")=""
|
|---|
| 30 | .D ^%ZTLOAD
|
|---|
| 31 | .W !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
|
|---|
| 32 | .D HOME^%ZIS
|
|---|
| 33 | .S OK=0
|
|---|
| 34 | Q OK
|
|---|
| 35 | ;
|
|---|
| 36 | ASKDATE() ;
|
|---|
| 37 | ;Description: Asks the user to enter a date.
|
|---|
| 38 | ;Output: Returns the date as the function value.
|
|---|
| 39 | ;
|
|---|
| 40 | N DIR,X,Y
|
|---|
| 41 | S DIR(0)="D^::X"
|
|---|
| 42 | S DIR("A",1)="Do not report veterans not enrolled that have not had inpatient or outpatient"
|
|---|
| 43 | S DIR("A")="care since"
|
|---|
| 44 | S DIR("B")=$$FMTE^XLFDT($$FMADD^XLFDT(DT,-730),"D")
|
|---|
| 45 | S DIR("?",1)="Please enter a date. Veterans who are not currently enrolled will not be"
|
|---|
| 46 | S DIR("?",2)="counted in the report if they have not had an inpatient or outpatient"
|
|---|
| 47 | S DIR("?")="episode of care since this date."
|
|---|
| 48 | D ^DIR
|
|---|
| 49 | Q:$D(DIRUT) 0
|
|---|
| 50 | Q Y
|
|---|
