Return to DDSOPT.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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