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

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

initial load of WorldVistAEHR

File size: 1.4 KB
RevLine 
[613]1DGENRPA1 ;ALB/CJM - Enrolled Veterans Report; JUL 9,1997
2 ;;5.3;Registration;**121,232**;Aug 13,1993
3 ;
4REPORT ;
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 ;
14DEVICE(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 ;
36ASKDATE() ;
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
Note: See TracBrowser for help on using the repository browser.