DDU.m

DDU ;SFISC/DCM-DD UTILITES ;3/24/91  12:22 PM

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

0 S DIC="^DOPT(""DDU"","

 G OPT:$D(^DOPT("DDU",3)) S ^(0)="DATA DICTIONARY UTILITY OPTION^1.01" K ^("B")

 F X=1:1:3 S ^DOPT("DDU",X,0)=$P($T(@X),";;",2)

 S DIK=DIC D IXALL^DIK

OPT ;

 S DIC(0)="AEQIZ" D ^DIC G Q:Y<0 S DI=+Y D EN G 0

 ;

EN ;

 D @DI W !!

Q K %,DIC,DIK,DI,DA,I,J,X,Y Q

 ;

1 ;;LIST FILE ATTRIBUTES

 G ^DID

 ;

2 ;;MAP POINTER RELATIONS

 G ^DDMAP

 ;

3 ;;CHECK/FIX DD STRUCTURE

 G ^DDUCHK

 ;

DDU       ;SFISC/DCM-DD UTILITES ;3/24/91  12:22 PM

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

0          SET DIC="^DOPT(""DDU"","

 +1        IF $DATA(^DOPT("DDU",3))

               GOTO OPT

           SET ^(0)="DATA DICTIONARY UTILITY OPTION^1.01"

           KILL ^("B")

 +2        FOR X=1:1:3

               SET ^DOPT("DDU",X,0)=$PIECE($TEXT(@X),";;",2)

 +3        SET DIK=DIC

           DO IXALL^DIK

OPT       ;

 +1        SET DIC(0)="AEQIZ"

           DO ^DIC

           IF Y<0

               GOTO Q

           SET DI=+Y

           DO EN

           GOTO 0

 +2       ;

EN        ;

 +1        DO @DI

           WRITE !!

Q          KILL %,DIC,DIK,DI,DA,I,J,X,Y

           QUIT 

 +1       ;

1         ;;LIST FILE ATTRIBUTES

 +1        GOTO ^DID

 +2       ;

2         ;;MAP POINTER RELATIONS

 +1        GOTO ^DDMAP

 +2       ;

3         ;;CHECK/FIX DD STRUCTURE

 +1        GOTO ^DDUCHK

 +2       ;