Return to DII1.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DII1.m, revision 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