source: WorldVistAEHR/trunk/r/INTERIM_MANAGEMENT_SUPPORT-ECT/ECTMENU.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.7 KB
Line 
1ECTMENU ;B'ham ISC/PTD-Interim Management Support Menu Display ;01/29/91 08:00
2V ;;1.05;INTERIM MANAGEMENT SUPPORT;;
3 G:'$D(ECT) EXIT
4 K %ZIS S IOP="HOME" D ^%ZIS K %ZIS,IOP
51 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
62 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
73 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
84 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
95 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
106 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
117 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
128 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
139 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
1410 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
1511 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
1612 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
17EXIT K ECT,J,POP,VER
18 Q
19 ;
20LINE F J=1:1:46 W "*"
21 Q
22 ;
23VER S VER=$P($T(V),";;",2) W ?34,"Version ",$P(VER,";"),!!
24 Q
25 ;
26QA ;CONFIDENTIAL MESSAGE FOR QA APPLICATIONS
27 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
28 W !?17 D LINE
29 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.",!
30 W !?17 D LINE W !!
31 Q
32 ;
33WARN ;WARNING TO QUEUE REPORTS
34 W !?17 D LINE
35 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.",!
36 W !?17 D LINE W !!
37 Q
38 ;
39LR ;CHECK VERSION OF LAB IN PACKAGE FILE - V5 DOES NOT REQUIRE ACCESSION AREA QUESTION
40 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
41 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
42 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)
43 K VDA,VER,Y
44 Q
45 ;
Note: See TracBrowser for help on using the repository browser.