DGENRPT ;ALB/DW - Enrollment Group Threshold Impact Reports ; 5 MAY 1999
;;5.3;Registration;**232**;Aug 13,1993
;
;
N RPAP,RPDS,DIR,X,Y
S (RPAP,RPDS)=""
;ASK USER TO SELECT ACTUAL OR PRELIMINARY REPORT.
S DIR(0)="F^1:11^D CHK1^DGENRPT"
S DIR("A")="Select Actual or Preliminary"
S DIR("?")="Enter ""A"" or ""ACTUAL"" to select EGT actual impact report, or ""P"" or ""PRELIMINARY"" to select EGT preliminary impact report."
D ^DIR
I X="^" Q
I $D(DTOUT) W *7 Q
S RPAP=$E(X,1)
;ASK USER TO SELECT DETAIL OR SUMMARY REPORT.
S DIR(0)="F^1:7^D CHK2^DGENRPT"
S DIR("A")="Select Detail or Summary"
S DIR("?")="Enter ""D"" or ""DETAIL"" to select EGT detail impact report, or ""S"" or ""SUMMARY"" to select EGT summary impact report."
D ^DIR
I X="^" Q
I $D(DTOUT) W *7 Q
S RPDS=$E(X,1)
;DECIDE THE NEXT STEP ACCORDING TO USER INPUTS.
I RPAP="P"&(RPDS="S") D ^DGENRPT1 Q
I RPAP="P"&(RPDS="D") D ^DGENRPT2 Q
I RPAP="A"&(RPDS="S") D ^DGENRPT3 Q
I RPAP="A"&(RPDS="D") D ^DGENRPT4 Q
Q
;
CHK1 ;CHECK USER INPUT.
S X=$E(X,1)
I X'="A",(X'="P") K X
Q
;
CHK2 ;CHECK USER INPUT.
S X=$E(X,1)
I X'="D",(X'="S") K X
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGENRPT 1167 printed Nov 22, 2024@17:53:05 Page 2
DGENRPT ;ALB/DW - Enrollment Group Threshold Impact Reports ; 5 MAY 1999
+1 ;;5.3;Registration;**232**;Aug 13,1993
+2 ;
+3 ;
+4 NEW RPAP,RPDS,DIR,X,Y
+5 SET (RPAP,RPDS)=""
+6 ;ASK USER TO SELECT ACTUAL OR PRELIMINARY REPORT.
+7 SET DIR(0)="F^1:11^D CHK1^DGENRPT"
+8 SET DIR("A")="Select Actual or Preliminary"
+9 SET DIR("?")="Enter ""A"" or ""ACTUAL"" to select EGT actual impact report, or ""P"" or ""PRELIMINARY"" to select EGT preliminary impact report."
+10 DO ^DIR
+11 IF X="^"
QUIT
+12 IF $DATA(DTOUT)
WRITE *7
QUIT
+13 SET RPAP=$EXTRACT(X,1)
+14 ;ASK USER TO SELECT DETAIL OR SUMMARY REPORT.
+15 SET DIR(0)="F^1:7^D CHK2^DGENRPT"
+16 SET DIR("A")="Select Detail or Summary"
+17 SET DIR("?")="Enter ""D"" or ""DETAIL"" to select EGT detail impact report, or ""S"" or ""SUMMARY"" to select EGT summary impact report."
+18 DO ^DIR
+19 IF X="^"
QUIT
+20 IF $DATA(DTOUT)
WRITE *7
QUIT
+21 SET RPDS=$EXTRACT(X,1)
+22 ;DECIDE THE NEXT STEP ACCORDING TO USER INPUTS.
+23 IF RPAP="P"&(RPDS="S")
DO ^DGENRPT1
QUIT
+24 IF RPAP="P"&(RPDS="D")
DO ^DGENRPT2
QUIT
+25 IF RPAP="A"&(RPDS="S")
DO ^DGENRPT3
QUIT
+26 IF RPAP="A"&(RPDS="D")
DO ^DGENRPT4
QUIT
+27 QUIT
+28 ;
CHK1 ;CHECK USER INPUT.
+1 SET X=$EXTRACT(X,1)
+2 IF X'="A"
IF (X'="P")
KILL X
+3 QUIT
+4 ;
CHK2 ;CHECK USER INPUT.
+1 SET X=$EXTRACT(X,1)
+2 IF X'="D"
IF (X'="S")
KILL X
+3 QUIT
