DGENRPT.m

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 ---DGENRPT   1167     printed  Apr 09, 2024@21:55:12                                                                                                                                                                                                     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