Return to DII1.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DII1.m, revision 1.1.1.1

1.1       snw         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