DIACOPT.m

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 ---DIACOPT   947     printed  Apr 09, 2024@21:49:57                                                                                                                                                                                                      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