DII1 ;SFISC/XAK - OTHER OPTIONS ; Dec 06, 2021@13:18:33
;;22.2;VA FileMan;**8,10,9,21**;Jan 05, 2016;Build 4
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
0 S DIC="^DOPT(""DII1"","
G OPT:$D(^DOPT("DII1",12)) S ^(0)="OTHER OPTION^1.01" K ^("B")
F X=1:1:12 S ^DOPT("DII1",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 ;
D @DI W !!
Q K %,DIC,DIK,DI,DA,I,J,X,Y Q
;
1 ;;FILEGRAMS
G ^DIFGO
;
2 ;;ARCHIVING
G NOKL^DIAR
;
3 ;;AUDITING
G ^DIAU
;
4 ;;SCREENMAN
G ^DDSOPT
;
5 ;;STATISTICS
G ^DIX
;
6 ;;EXTRACT DATA TO FILEMAN FILE
G ^DIAX
;
7 ;;DATA EXPORT TO FOREIGN FORMAT
G NOKL^DDXP
;
8 ;;IMPORT DATA
G EN^DDMPU
;
9 ;;BROWSER
G ^DDBR
;
10 ;;DATA ACCESS CONTROL
G ^DIACOPT
;
11 ;;DATA TYPE OPTIONS
G ^DIFMEDT1
;
12 ;;DATA MAPPING
G ^DDEOPT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDII1 1091 printed Nov 22, 2024@17:58:29 Page 2
DII1 ;SFISC/XAK - OTHER OPTIONS ; Dec 06, 2021@13:18:33
+1 ;;22.2;VA FileMan;**8,10,9,21**;Jan 05, 2016;Build 4
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
0 SET DIC="^DOPT(""DII1"","
+1 if $DATA(^DOPT("DII1",12))
GOTO OPT
SET ^(0)="OTHER OPTION^1.01"
KILL ^("B")
+2 FOR X=1:1:12
SET ^DOPT("DII1",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 ;
+1 DO @DI
WRITE !!
Q KILL %,DIC,DIK,DI,DA,I,J,X,Y
QUIT
+1 ;
1 ;;FILEGRAMS
+1 GOTO ^DIFGO
+2 ;
2 ;;ARCHIVING
+1 GOTO NOKL^DIAR
+2 ;
3 ;;AUDITING
+1 GOTO ^DIAU
+2 ;
4 ;;SCREENMAN
+1 GOTO ^DDSOPT
+2 ;
5 ;;STATISTICS
+1 GOTO ^DIX
+2 ;
6 ;;EXTRACT DATA TO FILEMAN FILE
+1 GOTO ^DIAX
+2 ;
7 ;;DATA EXPORT TO FOREIGN FORMAT
+1 GOTO NOKL^DDXP
+2 ;
8 ;;IMPORT DATA
+1 GOTO EN^DDMPU
+2 ;
9 ;;BROWSER
+1 GOTO ^DDBR
+2 ;
10 ;;DATA ACCESS CONTROL
+1 GOTO ^DIACOPT
+2 ;
11 ;;DATA TYPE OPTIONS
+1 GOTO ^DIFMEDT1
+2 ;
12 ;;DATA MAPPING
+1 GOTO ^DDEOPT
