DDEOPT ;SPFO/RAM - DDE OPTIONS ; Nov 24, 2021@09:16:10
;;22.2;VA FileMan;**9,16,21**;;Build 4;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;
0 S DIC="^DOPT(""DDE"","
G OPT:$D(^DOPT("DDE",3)) S ^(0)="DATA MAPPING OPTION^1.0" K ^("B")
F X=1:1:3 S ^DOPT("DDE",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 ;;ENTER/EDIT AN ENTITY
G EN^DDE1A
;
2 ;;PRINT AN ENTITY
D EN^DDEPRT
Q
3 ;;GENERATE AN ENTITY FOR A FILE
D MAIN^DDEMAP
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDDEOPT 635 printed Nov 22, 2024@17:52:01 Page 2
DDEOPT ;SPFO/RAM - DDE OPTIONS ; Nov 24, 2021@09:16:10
+1 ;;22.2;VA FileMan;**9,16,21**;;Build 4;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
0 SET DIC="^DOPT(""DDE"","
+1 if $DATA(^DOPT("DDE",3))
GOTO OPT
SET ^(0)="DATA MAPPING OPTION^1.0"
KILL ^("B")
+2 FOR X=1:1:3
SET ^DOPT("DDE",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 ;;ENTER/EDIT AN ENTITY
+1 GOTO EN^DDE1A
+2 ;
2 ;;PRINT AN ENTITY
+1 DO EN^DDEPRT
+2 QUIT
3 ;;GENERATE AN ENTITY FOR A FILE
+1 DO MAIN^DDEMAP
+2 QUIT
