Return to DDSOPT.m CVS log

Up to [Coherent Logic Development] / freem_fileman

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