source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DDU.m@ 789

Last change on this file since 789 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 548 bytes
RevLine 
[613]1DDU ;SFISC/DCM-DD UTILITES ;3/24/91 12:22 PM
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
40 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
8OPT ;
9 S DIC(0)="AEQIZ" D ^DIC G Q:Y<0 S DI=+Y D EN G 0
10 ;
11EN ;
12 D @DI W !!
13Q K %,DIC,DIK,DI,DA,I,J,X,Y Q
14 ;
151 ;;LIST FILE ATTRIBUTES
16 G ^DID
17 ;
182 ;;MAP POINTER RELATIONS
19 G ^DDMAP
20 ;
213 ;;CHECK/FIX DD STRUCTURE
22 G ^DDUCHK
23 ;
Note: See TracBrowser for help on using the repository browser.