Return to DDU.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDU.m, revision 1.1.1.1

1.1       snw         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:        ;