41 lines
700 B
Mathematica
41 lines
700 B
Mathematica
DII1 ;SFISC/XAK-OTHER OPTIONS ;7/25/96 14:15
|
|
;;22.0;VA FileMan;;Mar 30, 1999
|
|
;Per VHA Directive 10-93-142, this routine should not be modified.
|
|
0 S DIC="^DOPT(""DII1"","
|
|
G OPT:$D(^DOPT("DII1",9)) S ^(0)="OTHER OPTION^1.01" K ^("B")
|
|
F X=1:1:9 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
|