DDU ;SFISC/DCM-DD UTILITES ;22FEB2016
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
0 S DIC="^DOPT(""DDU"","
G OPT:$D(^DOPT("DDU",5)) S ^(0)="DATA DICTIONARY UTILITY OPTION^1.01" K ^("B")
F X=1:1:5 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
;
4 ;;FIND POINTERS INTO A FILE
G ^DIDGFTPT
;
5 ;;UPDATE THE META DATA DICTIONARY
G ^DDD
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDDU 870 printed Nov 22, 2024@17:53:40 Page 2
DDU ;SFISC/DCM-DD UTILITES ;22FEB2016
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
0 SET DIC="^DOPT(""DDU"","
+1 if $DATA(^DOPT("DDU",5))
GOTO OPT
SET ^(0)="DATA DICTIONARY UTILITY OPTION^1.01"
KILL ^("B")
+2 FOR X=1:1:5
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 ;
4 ;;FIND POINTERS INTO A FILE
+1 GOTO ^DIDGFTPT
+2 ;
5 ;;UPDATE THE META DATA DICTIONARY
+1 GOTO ^DDD
+2 ;
