Return to DDSOPT.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDSOPT.m, revision 1.1

1.1     ! snw         1: DDSOPT ;SFISC/MLH,MKO-SCREENMAN OPTIONS ;07:32 AM  15 Jul 1994
        !             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(""DDS"","
        !             5:        G OPT:$D(^DOPT("DDS",1)) S ^(0)="SCREENMAN OPTION^1.01" K ^("B")
        !             6:        F X=1:1:4 S ^DOPT("DDS",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     ;Entry point for all screenman options
        !            12:        D @DI W !!
        !            13: Q      K %,DI,DIC,DIK,X,Y Q
        !            14:        ;
        !            15: 1      ;;EDIT/CREATE A FORM
        !            16: CREATE G ^DDGF
        !            17:        ;
        !            18: 2      ;;RUN A FORM
        !            19:        G ^DDSRUN
        !            20:        ;
        !            21: 3      ;;DELETE A FORM
        !            22:        G ^DDSDFRM
        !            23:        ;
        !            24: 4      ;;PURGE UNUSED BLOCKS
        !            25:        G ^DDSDBLK