ACDGLOCK.m

ACDGLOCK ;IHS/ADC/EDE/KML - MAKE OPTIONS UNAVAILABLE DURING DATA EXTRACTS/IMPORTS; 

 ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

 ;**********************************************************************

 ;Lock menue during Extraction, Importing, Purging, and Deleting

 ;facility data from the area or HQ machine

 ;**********************************************************************

EN ;EP Lock

 ;//^ACDGSAVE, ^ACDGMRG, ^ACDDFAC, ^ACDPURG

 W !!,"Locking CDMIS menu until completion."

 S ACDOPT="ACD" F  S ACDOPT=$O(^DIC(19,"B",ACDOPT)) Q:ACDOPT=""!($E(ACDOPT,1,3)'="ACD")  D

 .I ACDOPT="ACD SERVER" Q

 .I ACDOPT="ACDMGR" Q

 .I ACDOPT="ACDUNLOCK" Q

 .S DA=$O(^DIC(19,"B",ACDOPT,0))

 .I DA S DIE=19,DR="2////"_"DATA TRANSEFER IN PROGRESS" D DIE^ACDFMC

 .Q

 K ACDOPT

 Q

 ;

 ;

EN1 ;EP Unlock

 ;//^ACDGSAVE, ^ACDGMRG, ^ACDDFAC, ^ACDPURG

 W !!,"Unlocking CDMIS menu now."

 S ACDOPT="ACD" F  S ACDOPT=$O(^DIC(19,"B",ACDOPT)) Q:ACDOPT=""!($E(ACDOPT,1,3)'="ACD")  D

 .S DA=$O(^DIC(19,"B",ACDOPT,0))

 .I DA S DIE=19,DR="2////@" D DIE^ACDFMC

 .Q

 K ACDOPT

 Q

 ;

 ;TRY USING XQUIT SET TO 1 TO LOCK MENUES

 ;KERNAL TRAINING-IDEA

 ;XQUIT IS A NEW FIELD FOR EACH OPTION. bY SETTING IT IT DISABLES

 ;THE OPTION. i THINK THIS IS K7 ONLY AND NOT K6.5

ACDGLOCK  ;IHS/ADC/EDE/KML - MAKE OPTIONS UNAVAILABLE DURING DATA EXTRACTS/IMPORTS; 

 +1       ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

 +2       ;**********************************************************************

 +3       ;Lock menue during Extraction, Importing, Purging, and Deleting

 +4       ;facility data from the area or HQ machine

 +5       ;**********************************************************************

EN        ;EP Lock

 +1       ;//^ACDGSAVE, ^ACDGMRG, ^ACDDFAC, ^ACDPURG

 +2        WRITE !!,"Locking CDMIS menu until completion."

 +3        SET ACDOPT="ACD"

           FOR 

               SET ACDOPT=$ORDER(^DIC(19,"B",ACDOPT))

               IF ACDOPT=""!($EXTRACT(ACDOPT,1,3)'="ACD")

                   QUIT 

               Begin DoDot:1

 +4                IF ACDOPT="ACD SERVER"

                       QUIT 

 +5                IF ACDOPT="ACDMGR"

                       QUIT 

 +6                IF ACDOPT="ACDUNLOCK"

                       QUIT 

 +7                SET DA=$ORDER(^DIC(19,"B",ACDOPT,0))

 +8                IF DA

                       SET DIE=19

                       SET DR="2////"_"DATA TRANSEFER IN PROGRESS"

                       DO DIE^ACDFMC

 +9                QUIT 

               End DoDot:1

 +10       KILL ACDOPT

 +11       QUIT 

 +12      ;

 +13      ;

EN1       ;EP Unlock

 +1       ;//^ACDGSAVE, ^ACDGMRG, ^ACDDFAC, ^ACDPURG

 +2        WRITE !!,"Unlocking CDMIS menu now."

 +3        SET ACDOPT="ACD"

           FOR 

               SET ACDOPT=$ORDER(^DIC(19,"B",ACDOPT))

               IF ACDOPT=""!($EXTRACT(ACDOPT,1,3)'="ACD")

                   QUIT 

               Begin DoDot:1

 +4                SET DA=$ORDER(^DIC(19,"B",ACDOPT,0))

 +5                IF DA

                       SET DIE=19

                       SET DR="2////@"

                       DO DIE^ACDFMC

 +6                QUIT 

               End DoDot:1

 +7        KILL ACDOPT

 +8        QUIT 

 +9       ;

 +10      ;TRY USING XQUIT SET TO 1 TO LOCK MENUES

 +11      ;KERNAL TRAINING-IDEA

 +12      ;XQUIT IS A NEW FIELD FOR EACH OPTION. bY SETTING IT IT DISABLES

 +13      ;THE OPTION. i THINK THIS IS K7 ONLY AND NOT K6.5