ADEFPC4.m

ADEFPC4 ; IHS/HQT/MJL - F COMPLIANCE PT 4 ;03:06 PM  [ 03/24/1999   9:04 AM ]

 ;;6.0;ADE;;APRIL 1999

 ;

REP() ;EP

 ;Select report options

 ;Returns string containing 1 if AREA, 2 if SU and 3 if WSYS reports

 ;selected, otherwise null if none selected

 N ADEROPT

RALL S ADEROPT=""

 S DIR(0)="Y"

 S DIR("A")="Print All Three (AREA, SERVICE UNIT, WATER SYSTEM) Summary Reports"

 S DIR("B")="YES"

 S DIR("?")="Answer YES to print all three summary reports."

 D ^DIR

 I $$HAT^ADEPQA() Q ADEROPT

 I Y S ADEROPT="123" Q ADEROPT

RAREA S ADEROPT=$TR(ADEROPT,"1","")

 S DIR("A")="Include AREA Summary Report"

 S DIR("B")="YES"

 S DIR("?")="Answer YES to print the Area Summary Report."

 D ^DIR

 I $$HAT^ADEPQA() W ! G RALL

 I Y S ADEROPT=ADEROPT_1

RSU S ADEROPT=$TR(ADEROPT,"2","")

 S DIR("A")="Include SERVICE UNIT Summary Report"

 S DIR("?")="Answer YES to print the Service Unit Summary Report."

 D ^DIR

 I $$HAT^ADEPQA() W ! G RAREA

 I Y S ADEROPT=ADEROPT_2

RSY S ADEROPT=$TR(ADEROPT,"3","")

 S DIR("A")="Include WATER SYSTEM Summary Report"

 S DIR("?")="Answer YES to print the Water System Summary Report."

 D ^DIR

 I $$HAT^ADEPQA() W ! G RSU

 I Y S ADEROPT=ADEROPT_3

 Q ADEROPT

ADEFPC4   ; IHS/HQT/MJL - F COMPLIANCE PT 4 ;03:06 PM  [ 03/24/1999   9:04 AM ]

 +1       ;;6.0;ADE;;APRIL 1999

 +2       ;

REP()     ;EP

 +1       ;Select report options

 +2       ;Returns string containing 1 if AREA, 2 if SU and 3 if WSYS reports

 +3       ;selected, otherwise null if none selected

 +4        NEW ADEROPT

RALL       SET ADEROPT=""

 +1        SET DIR(0)="Y"

 +2        SET DIR("A")="Print All Three (AREA, SERVICE UNIT, WATER SYSTEM) Summary Reports"

 +3        SET DIR("B")="YES"

 +4        SET DIR("?")="Answer YES to print all three summary reports."

 +5        DO ^DIR

 +6        IF $$HAT^ADEPQA()

               QUIT ADEROPT

 +7        IF Y

               SET ADEROPT="123"

               QUIT ADEROPT

RAREA      SET ADEROPT=$TRANSLATE(ADEROPT,"1","")

 +1        SET DIR("A")="Include AREA Summary Report"

 +2        SET DIR("B")="YES"

 +3        SET DIR("?")="Answer YES to print the Area Summary Report."

 +4        DO ^DIR

 +5        IF $$HAT^ADEPQA()

               WRITE !

               GOTO RALL

 +6        IF Y

               SET ADEROPT=ADEROPT_1

RSU        SET ADEROPT=$TRANSLATE(ADEROPT,"2","")

 +1        SET DIR("A")="Include SERVICE UNIT Summary Report"

 +2        SET DIR("?")="Answer YES to print the Service Unit Summary Report."

 +3        DO ^DIR

 +4        IF $$HAT^ADEPQA()

               WRITE !

               GOTO RAREA

 +5        IF Y

               SET ADEROPT=ADEROPT_2

RSY        SET ADEROPT=$TRANSLATE(ADEROPT,"3","")

 +1        SET DIR("A")="Include WATER SYSTEM Summary Report"

 +2        SET DIR("?")="Answer YES to print the Water System Summary Report."

 +3        DO ^DIR

 +4        IF $$HAT^ADEPQA()

               WRITE !

               GOTO RSU

 +5        IF Y

               SET ADEROPT=ADEROPT_3

 +6        QUIT ADEROPT