Return to DII1.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

DII1	;SFISC/XAK-OTHER OPTIONS ;5/19/94  2:05 PM
	;;21.0;VA FileMan;;Dec 28, 1994
	;Per VHA Directive 10-93-142, this routine should not be modified.
0	S DIC="^DOPT(""DII1"","
	G OPT:$D(^DOPT("DII1",8)) S ^(0)="OTHER OPTION^1.01" K ^("B")
	F X=1:1:8 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	;;BROWSER
	G ^DDBR