| 1 | A1B2SUP ;ALB/MJK - ODS Supervisor Options; JAN 13,1991
|
|---|
| 2 | ;;Version 1.55 (local for MAS v5 sites);;
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | EN 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 | ;
|
|---|
| 11 | A W !! S DIC="^DOPT(""A1B2SUP"",",DIC(0)="IQEAM"
|
|---|
| 12 | D ^DIC Q:Y<0 D @+Y G A
|
|---|
| 13 | ;
|
|---|
| 14 | 1 ;;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
|
|---|
| 23 | Q1 K A1B2POS,A1B2FN,A1B2FNE,DQ,DE,DR,DIE,DQ Q
|
|---|
| 24 | ;
|
|---|
| 25 | OPT ; -- 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 | ;
|
|---|
| 31 | 2 ;;Compile and Transmit ODS Data
|
|---|
| 32 | D QUEUE^A1B2BGJ
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
| 35 | 3 ;;ODS System Inquiry
|
|---|
| 36 | D ^A1B2STAT
|
|---|
| 37 | Q
|
|---|
| 38 | ;
|
|---|
| 39 | MES ;; -- 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 | ;
|
|---|
| 47 | ASK ; -- 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
|
|---|
| 62 | ASKQ Q
|
|---|
