ECTMENU.m

ECTMENU ;B'ham ISC/PTD-Interim Management Support Menu Display ;01/29/91 08:00

V ;;1.05;INTERIM MANAGEMENT SUPPORT;;

 G:'$D(ECT) EXIT

 K %ZIS S IOP="HOME" D ^%ZIS K %ZIS,IOP

1 I ECT=1 W @IOF,!!?2,"* * *   D H C P   I N T E R I M   M A N A G E M E N T   S U P P O R T   * * *",!! D VER W ?17 D LINE W !!?32,"*** WARNING ***",!?17,"The data which follows is highly CONFIDENTIAL!",!!?17 D LINE W !! G EXIT

2 I ECT=2 W @IOF,!!?28,"D A I L Y   R E P O R T" W !!?17 D LINE W !!?32,"*** CAUTION ***",!?27,"Choose limited date range",!?27,"if printing to the screen.",!?27,"Advise using 'T-1'.",!!?17 D LINE W !! G EXIT

3 I ECT=3 W @IOF,!!?10,"P E R S O N N E L / S T A F F I N G   I N F O R M A T I O N",!! G EXIT

4 I ECT=4 W @IOF,!!?6,"P A I D   M A N A G E M E N T   R E P O R T S   B Y   S E R V I C E",!! G EXIT

5 I ECT=5 W @IOF,!!?20,"F I N A N C I A L   I N F O R M A T I O N",!! G EXIT

6 I ECT=6 W @IOF,!!?19,"E Q U I P M E N T   I N F O R M A T I O N",!! G EXIT

7 I ECT=7 W @IOF,!!?8,"C O N S T R U C T I O N   P R O J E C T   I N F O R M A T I O N",!! G EXIT

8 I ECT=8 W @IOF,!!?12,"S P A C E   M A N A G E M E N T   I N F O R M A T I O N",!! G EXIT

9 I ECT=9 W @IOF,!!?11,"Q U A L I T Y   A S S U R A N C E   I N F O R M A T I O N",! D QA G EXIT

10 I ECT=10 W @IOF,!!?12,"S T A T I O N   W O R K L O A D   I N F O R M A T I O N",!! G EXIT

11 I ECT=11 W @IOF,!!?12,"S E R V I C E   W O R K L O A D   I N F O R M A T I O N",!! D WARN G EXIT

12 I ECT=12 W @IOF,!!?19,"S P E C I A L   L O C A L   R E P O R T S",!! G EXIT

EXIT K ECT,J,POP,VER

 Q

 ;

LINE F J=1:1:46 W "*"

 Q

 ;

VER S VER=$P($T(V),";;",2) W ?34,"Version ",$P(VER,";"),!!

 Q

 ;

QA ;CONFIDENTIAL MESSAGE FOR QA APPLICATIONS

 I '$O(^QA(741,0)) W !!?26,"QA REPORTS ARE UNAVAILABLE!",!,"Reports work with version 2.0 of the Occurrence Screening software.",!! S XQUIT="" Q

 W !?17 D LINE

 W !!?30,"*** CONFIDENTIAL! ***",!!?15,"This information is confidential in accordance with",!?15,"Title 38 U.S.C. 3305 and will be released only if",!?15,"requirements of VA Regulation 6518(C) are met.",!

 W !?17 D LINE W !!

 Q

 ;

WARN ;WARNING TO QUEUE REPORTS

 W !?17 D LINE

 W !!?32,"*** WARNING! ***",!!?20,"Reports on this menu should be QUEUED",!?20,"to print during the evening hours.  All",!?20,"require considerable time to generate;",!?20,"some display 132 columns of data.",!

 W !?17 D LINE W !!

 Q

 ;

LR ;CHECK VERSION OF LAB IN PACKAGE FILE - V5 DOES NOT REQUIRE ACCESSION AREA QUESTION

 S VDA=$O(^DIC(9.4,"C","LR",0)) I 'VDA K VDA W *7,!,"Unable to determine version of LAB operating on your system." Q

 S:$D(^DIC(9.4,VDA,"VERSION")) VER=+(^("VERSION")) I '$D(VER) K VDA,VER W *7,!,"Unable to determine version of LAB operating on your system." Q

 I VER<5 S DIC=68,DIC(0)="QEAM" D ^DIC K DIC I Y>0 S LRAA=+Y,LRAA(1)=$P(Y,U,2)

 K VDA,VER,Y

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECTMENU   2851     printed  Apr 23, 2025@18:16:54                                                                                                                                                                                                     Page 2

ECTMENU   ;B'ham ISC/PTD-Interim Management Support Menu Display ;01/29/91 08:00

V         ;;1.05;INTERIM MANAGEMENT SUPPORT;;

 +1        if '$DATA(ECT)

               GOTO EXIT

 +2        KILL %ZIS

           SET IOP="HOME"

           DO ^%ZIS

           KILL %ZIS,IOP

1          IF ECT=1

               WRITE @IOF,!!?2,"* * *   D H C P   I N T E R I M   M A N A G E M E N T   S U P P O R T   * * *",!!

               DO VER

               WRITE ?17

               DO LINE

               WRITE !!?32,"*** WARNING ***",!?17,"The data which follows is highly CONFIDENTIAL!",!!?17

               DO LINE

               WRITE !!

               GOTO EXIT

2          IF ECT=2

               WRITE @IOF,!!?28,"D A I L Y   R E P O R T"

               WRITE !!?17

               DO LINE

               WRITE !!?32,"*** CAUTION ***",!?27,"Choose limited date range",!?27,"if printing to the screen.",!?27,"Advise using 'T-1'.",!!?17

               DO LINE

               WRITE !!

               GOTO EXIT

3          IF ECT=3

               WRITE @IOF,!!?10,"P E R S O N N E L / S T A F F I N G   I N F O R M A T I O N",!!

               GOTO EXIT

4          IF ECT=4

               WRITE @IOF,!!?6,"P A I D   M A N A G E M E N T   R E P O R T S   B Y   S E R V I C E",!!

               GOTO EXIT

5          IF ECT=5

               WRITE @IOF,!!?20,"F I N A N C I A L   I N F O R M A T I O N",!!

               GOTO EXIT

6          IF ECT=6

               WRITE @IOF,!!?19,"E Q U I P M E N T   I N F O R M A T I O N",!!

               GOTO EXIT

7          IF ECT=7

               WRITE @IOF,!!?8,"C O N S T R U C T I O N   P R O J E C T   I N F O R M A T I O N",!!

               GOTO EXIT

8          IF ECT=8

               WRITE @IOF,!!?12,"S P A C E   M A N A G E M E N T   I N F O R M A T I O N",!!

               GOTO EXIT

9          IF ECT=9

               WRITE @IOF,!!?11,"Q U A L I T Y   A S S U R A N C E   I N F O R M A T I O N",!

               DO QA

               GOTO EXIT

10         IF ECT=10

               WRITE @IOF,!!?12,"S T A T I O N   W O R K L O A D   I N F O R M A T I O N",!!

               GOTO EXIT

11         IF ECT=11

               WRITE @IOF,!!?12,"S E R V I C E   W O R K L O A D   I N F O R M A T I O N",!!

               DO WARN

               GOTO EXIT

12         IF ECT=12

               WRITE @IOF,!!?19,"S P E C I A L   L O C A L   R E P O R T S",!!

               GOTO EXIT

EXIT       KILL ECT,J,POP,VER

 +1        QUIT 

 +2       ;

LINE       FOR J=1:1:46

               WRITE "*"

 +1        QUIT 

 +2       ;

VER        SET VER=$PIECE($TEXT(V),";;",2)

           WRITE ?34,"Version ",$PIECE(VER,";"),!!

 +1        QUIT 

 +2       ;

QA        ;CONFIDENTIAL MESSAGE FOR QA APPLICATIONS

 +1        IF '$ORDER(^QA(741,0))

               WRITE !!?26,"QA REPORTS ARE UNAVAILABLE!",!,"Reports work with version 2.0 of the Occurrence Screening software.",!!

               SET XQUIT=""

               QUIT 

 +2        WRITE !?17

           DO LINE

 +3        WRITE !!?30,"*** CONFIDENTIAL! ***",!!?15,"This information is confidential in accordance with",!?15,"Title 38 U.S.C. 3305 and will be released only if",!?15,"requirements of VA Regulation 6518(C) are met.",!

 +4        WRITE !?17

           DO LINE

           WRITE !!

 +5        QUIT 

 +6       ;

WARN      ;WARNING TO QUEUE REPORTS

 +1        WRITE !?17

           DO LINE

 +2        WRITE !!?32,"*** WARNING! ***",!!?20,"Reports on this menu should be QUEUED",!?20,"to print during the evening hours.  All",!?20,"require considerable time to generate;",!?20,"some display 132 columns of data.",!

 +3        WRITE !?17

           DO LINE

           WRITE !!

 +4        QUIT 

 +5       ;

LR        ;CHECK VERSION OF LAB IN PACKAGE FILE - V5 DOES NOT REQUIRE ACCESSION AREA QUESTION

 +1        SET VDA=$ORDER(^DIC(9.4,"C","LR",0))

           IF 'VDA

               KILL VDA

               WRITE *7,!,"Unable to determine version of LAB operating on your system."

               QUIT 

 +2        if $DATA(^DIC(9.4,VDA,"VERSION"))

               SET VER=+(^("VERSION"))

           IF '$DATA(VER)

               KILL VDA,VER

               WRITE *7,!,"Unable to determine version of LAB operating on your system."

               QUIT 

 +3        IF VER<5

               SET DIC=68

               SET DIC(0)="QEAM"

               DO ^DIC

               KILL DIC

               IF Y>0

                   SET LRAA=+Y

                   SET LRAA(1)=$PIECE(Y,U,2)

 +4        KILL VDA,VER,Y

 +5        QUIT 

 +6       ;