DIACOPT ;SFISC/RSD,MKB - Data Access Control Options ;18JAN2012
;;22.2;VA FileMan;**8**;Jan 05, 2016;Build 19
;;Per VA Directive 6402, this routine should not be modified.
;
0 S DIC="^DOPT(""DIAC"","
G OPT:$D(^DOPT("DIAC",7)) S ^(0)="DATA ACCESS CONTROL OPTION^1.01" K ^("B")
F X=1:1:7 S ^DOPT("DIAC",X,0)=$P($T(@X),";;",2)
S DIK=DIC D IXALL^DIK
OPT ;
S DIC(0)="AEQIZ" D ^DIC G Q:Y<0 S DI=+Y D EN G 0
;
EN ;Entry point for all data access control options
D @DI W !!
Q K %,DI,DIC,DIK,X,Y Q
;
1 ;;SET UP APPLICATION ACTIONS
G ACTIONS^DIACLM1
;
2 ;;EDIT/CREATE AN ACTION POLICY
G EN^DIACLM
;
3 ;;TEST A POLICY
S DITOP=$$SELECT^DIACLM Q:DITOP<1 D EN^DIAC1T K DITOP Q
;
4 ;;DISABLE A POLICY
S DA=+$$SELECT^DIACLM Q:DA<1 D DIS^DIACLM1 K DA Q
;
5 ;;DELETE A POLICY
S DA=+$$SELECT^DIACLM Q:DA<1 D DEL^DIACLM1 K DA Q
;
6 ;;PRINT ACTIONS/POLICIES
G EN^DIACP
;
7 ;;POLICY FUNCTIONS
G FCNS^DIACLM1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIACOPT 947 printed Dec 13, 2024@02:44:41 Page 2
DIACOPT ;SFISC/RSD,MKB - Data Access Control Options ;18JAN2012
+1 ;;22.2;VA FileMan;**8**;Jan 05, 2016;Build 19
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
0 SET DIC="^DOPT(""DIAC"","
+1 if $DATA(^DOPT("DIAC",7))
GOTO OPT
SET ^(0)="DATA ACCESS CONTROL OPTION^1.01"
KILL ^("B")
+2 FOR X=1:1:7
SET ^DOPT("DIAC",X,0)=$PIECE($TEXT(@X),";;",2)
+3 SET DIK=DIC
DO IXALL^DIK
OPT ;
+1 SET DIC(0)="AEQIZ"
DO ^DIC
if Y<0
GOTO Q
SET DI=+Y
DO EN
GOTO 0
+2 ;
EN ;Entry point for all data access control options
+1 DO @DI
WRITE !!
Q KILL %,DI,DIC,DIK,X,Y
QUIT
+1 ;
1 ;;SET UP APPLICATION ACTIONS
+1 GOTO ACTIONS^DIACLM1
+2 ;
2 ;;EDIT/CREATE AN ACTION POLICY
+1 GOTO EN^DIACLM
+2 ;
3 ;;TEST A POLICY
+1 SET DITOP=$$SELECT^DIACLM
if DITOP<1
QUIT
DO EN^DIAC1T
KILL DITOP
QUIT
+2 ;
4 ;;DISABLE A POLICY
+1 SET DA=+$$SELECT^DIACLM
if DA<1
QUIT
DO DIS^DIACLM1
KILL DA
QUIT
+2 ;
5 ;;DELETE A POLICY
+1 SET DA=+$$SELECT^DIACLM
if DA<1
QUIT
DO DEL^DIACLM1
KILL DA
QUIT
+2 ;
6 ;;PRINT ACTIONS/POLICIES
+1 GOTO EN^DIACP
+2 ;
7 ;;POLICY FUNCTIONS
+1 GOTO FCNS^DIACLM1
