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

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

initial load of WorldVistAEHR

File size: 1.1 KB
RevLine 
[613]1DGENRPT ;ALB/DW - Enrollment Group Threshold Impact Reports ; 5 MAY 1999
2 ;;5.3;Registration;**232**;Aug 13,1993
3 ;
4 ;
5 N RPAP,RPDS,DIR,X,Y
6 S (RPAP,RPDS)=""
7 ;ASK USER TO SELECT ACTUAL OR PRELIMINARY REPORT.
8 S DIR(0)="F^1:11^D CHK1^DGENRPT"
9 S DIR("A")="Select Actual or Preliminary"
10 S DIR("?")="Enter ""A"" or ""ACTUAL"" to select EGT actual impact report, or ""P"" or ""PRELIMINARY"" to select EGT preliminary impact report."
11 D ^DIR
12 I X="^" Q
13 I $D(DTOUT) W *7 Q
14 S RPAP=$E(X,1)
15 ;ASK USER TO SELECT DETAIL OR SUMMARY REPORT.
16 S DIR(0)="F^1:7^D CHK2^DGENRPT"
17 S DIR("A")="Select Detail or Summary"
18 S DIR("?")="Enter ""D"" or ""DETAIL"" to select EGT detail impact report, or ""S"" or ""SUMMARY"" to select EGT summary impact report."
19 D ^DIR
20 I X="^" Q
21 I $D(DTOUT) W *7 Q
22 S RPDS=$E(X,1)
23 ;DECIDE THE NEXT STEP ACCORDING TO USER INPUTS.
24 I RPAP="P"&(RPDS="S") D ^DGENRPT1 Q
25 I RPAP="P"&(RPDS="D") D ^DGENRPT2 Q
26 I RPAP="A"&(RPDS="S") D ^DGENRPT3 Q
27 I RPAP="A"&(RPDS="D") D ^DGENRPT4 Q
28 Q
29 ;
30CHK1 ;CHECK USER INPUT.
31 S X=$E(X,1)
32 I X'="A",(X'="P") K X
33 Q
34 ;
35CHK2 ;CHECK USER INPUT.
36 S X=$E(X,1)
37 I X'="D",(X'="S") K X
38 Q
Note: See TracBrowser for help on using the repository browser.