- 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 Mar 13, 2025@21:53:18 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
