Return to DII1.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DII1	;SFISC/XAK-OTHER OPTIONS ;5/19/94  2:05 PM
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    3: 	;Per VHA Directive 10-93-142, this routine should not be modified.
    4: 0	S DIC="^DOPT(""DII1"","
    5: 	G OPT:$D(^DOPT("DII1",8)) S ^(0)="OTHER OPTION^1.01" K ^("B")
    6: 	F X=1:1:8 S ^DOPT("DII1",X,0)=$P($T(@X),";;",2)
    7: 	S DIK=DIC D IXALL^DIK
    8: OPT	;
    9: 	S DIC(0)="AEQIZ" D ^DIC G Q:Y<0 S DI=+Y D EN G 0
   10: 	;
   11: EN	;
   12: 	D @DI W !!
   13: Q	K %,DIC,DIK,DI,DA,I,J,X,Y Q
   14: 	;
   15: 1	;;FILEGRAMS
   16: 	G ^DIFGO
   17: 	;
   18: 2	;;ARCHIVING
   19: 	G NOKL^DIAR
   20: 	;
   21: 3	;;AUDITING
   22: 	G ^DIAU
   23: 	;
   24: 4	;;SCREENMAN
   25: 	G ^DDSOPT
   26: 	;
   27: 5	;;STATISTICS
   28: 	G ^DIX
   29: 	;
   30: 6	;;EXTRACT DATA TO FILEMAN FILE
   31: 	G ^DIAX
   32: 	;
   33: 7	;;DATA EXPORT TO FOREIGN FORMAT
   34: 	G NOKL^DDXP
   35: 8	;;BROWSER
   36: 	G ^DDBR