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 ---[H[J[2J[HECTMENU 2851 printed Oct 16, 2024@18:03:13 Page 2
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 ;
