DII1.m

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 ---DII1   1091     printed  Apr 09, 2024@21:50:33                                                                                                                                                                                                        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