Return to DDU.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DDU	;SFISC/DCM-DD UTILITES ;3/24/91  12:22 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(""DDU"","
    5: 	G OPT:$D(^DOPT("DDU",3)) S ^(0)="DATA DICTIONARY UTILITY OPTION^1.01" K ^("B")
    6: 	F X=1:1:3 S ^DOPT("DDU",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	;;LIST FILE ATTRIBUTES
   16: 	G ^DID
   17: 	;
   18: 2	;;MAP POINTER RELATIONS
   19: 	G ^DDMAP
   20: 	;
   21: 3	;;CHECK/FIX DD STRUCTURE
   22: 	G ^DDUCHK
   23: 	;