ACDLOCK.m

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

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

EN ;EP

 ;LOCK

 F ACDOPT="ACDINMENU","ACDDIK","ACDDIK1","ACDREMENU" S DA=$O(^DIC(19,"B",ACDOPT,0)) I DA S DIE=19,DR="2////"_$S($D(^ACDPTMP):"DATA TRANSFER IN PROGRESS",1:"DATA PURGE/DELETION IN PROGRESS") D DIE^ACDFMC

 K ACDOPT

 Q

 ;

 ;

EN1 ;EP

 ;UNLOCK

 F ACDOPT="ACDINMENU","ACDDIK","ACDDIK1","ACDREMENU" S DA=$O(^DIC(19,"B",ACDOPT,0)) I DA S DIE=19,DR="2///@" D DIE^ACDFMC

 K ACDOPT

 Q

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

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

EN        ;EP

 +1       ;LOCK

 +2        FOR ACDOPT="ACDINMENU","ACDDIK","ACDDIK1","ACDREMENU"

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

               IF DA

                   SET DIE=19

                   SET DR="2////"_$SELECT($DATA(^ACDPTMP):"DATA TRANSFER IN PROGRESS",1:"DATA PURGE/DELETION IN PROGRESS")

                   DO DIE^ACDFMC

 +3        KILL ACDOPT

 +4        QUIT 

 +5       ;

 +6       ;

EN1       ;EP

 +1       ;UNLOCK

 +2        FOR ACDOPT="ACDINMENU","ACDDIK","ACDDIK1","ACDREMENU"

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

               IF DA

                   SET DIE=19

                   SET DR="2///@"

                   DO DIE^ACDFMC

 +3        KILL ACDOPT

 +4        QUIT