source: WorldVistAEHR/trunk/r/OPERATIONS_WITH_DESERT_STORM-A1B2/A1B2SUP.m@ 699

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

initial load of WorldVistAEHR

File size: 2.3 KB
Line 
1A1B2SUP ;ALB/MJK - ODS Supervisor Options; JAN 13,1991
2 ;;Version 1.55 (local for MAS v5 sites);;
3 ;
4 ;
5EN D DT^DICRW S X=$T(+1),DIK="^DOPT(""A1B2SUP"","
6 G A:$D(^DOPT("A1B2SUP",5))
7 S ^DOPT("A1B2SUP",0)="ODS Supervisor Options^1N^"
8 F I=1:1 S Y=$T(@I) Q:Y="" S ^DOPT("A1B2SUP",I,0)=$P(Y,";",3,99)
9 D IXALL^DIK
10 ;
11A W !! S DIC="^DOPT(""A1B2SUP"",",DIC(0)="IQEAM"
12 D ^DIC Q:Y<0 D @+Y G A
13 ;
141 ;;Activate ODS Software
15 D ASK G Q1:'Y
16 D FAC^A1B2UTL
17 S A1B2POS=+$O(^DIC(21,"D",6,0)) S:'$D(^DIC(21,A1B2POS,0)) A1B2POS=0
18 I 'A1B2POS!('A1B2FN) D MES G Q1
19 D BOS^A1B2PST W !
20 S DR="[A1B2 PARAMETERS]",DIE="^A1B2(11500.5,",DA=1 D ^DIE G Q1:'$P(^A1B2(11500.5,1,0),U,2)
21 I $P(^DIC(21,A1B2POS,0),U,8) S DIE="^DIC(21,",DR=".08///@",DA=A1B2POS D ^DIE
22 D OPT
23Q1 K A1B2POS,A1B2FN,A1B2FNE,DQ,DE,DR,DIE,DQ Q
24 ;
25OPT ; -- ask questins to set-up background job to run nightly
26 W !!,">>> Please enter date/time for the 'A1B2 BACKGROUND JOB' option to run:"
27 S DA=$O(^DIC(19,"B","A1B2 BACKGROUND JOB",0)),DR="200//T+1@2AM;202///1D",DIE="^DIC(19," D ^DIE
28 W !,">>> This job does NOT require an output device."
29 Q
30 ;
312 ;;Compile and Transmit ODS Data
32 D QUEUE^A1B2BGJ
33 Q
34 ;
353 ;;ODS System Inquiry
36 D ^A1B2STAT
37 Q
38 ;
39MES ;; -- can't swith on software
40 W !!,*7,">>>> ODS software CANNOT be activated:"
41 W:'A1B2FN !," o Medical Center Division file entry '",$O(^DG(40.8,0)),"' does not point"
42 W:'A1B2FN !," to an Institution file entry that has a Facility number"
43 W:'A1B2FN !," defined."
44 W:'A1B2POS !!," o ODS Period of Service does NOT exist on your system."
45 Q
46 ;
47ASK ; -- ask are they sure
48 ; -- don't show message if flag is already on
49 I '$D(^A1B2(11500.5,1,0)) S Y=0 G ASKQ
50 S Y=$P(^A1B2(11500.5,1,0),U,2) G ASKQ:Y
51 W !!?20,"******* P L E A S E N O T E *******"
52 W !!?5,"Do NOT activate this Operation Desert Shield (ODS) software"
53 W !?5,"until directed to by Central Office in Washington D.C."
54 W !?5,"This software will only be activated in the event that it becomes"
55 W !?5,"necessary for the VA to track ODS casualties."
56 W !!?5,"With the software deactivated, the MAS application will"
57 W !?5,"operate normally. When activated, various ODS related"
58 W !?5,"questions will appear during the registration, admit and"
59 W !?5,"discharge processes.",!
60 S DIR("A")="Are you sure you wish to continue",DIR(0)="Y",DIR("B")="NO"
61 D ^DIR K DIR Q
62ASKQ Q
Note: See TracBrowser for help on using the repository browser.