DINIT14.m

DINIT14 ;SFISC/YJK-INITIALIZE VA FILEMAN ;9/9/94  13:05

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

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

 F I=1:2 S X=$T(Q+I) G:X="" ^DINIT2 S Y=$E($T(Q+I+1),5,999),X=$E(X,4,999),@X=Y

Q Q

 ;;^DIC(.6,0)

 ;;=DD AUDIT^.6

 ;;^DIC(.6,0,"GL")

 ;;=^DDA(

 ;;^DIC("B","DD AUDIT",.6)

 ;;=

 ;;^DIC(.6,"%D",0)

 ;;=^^1^1^2940908^

 ;;^DIC(.6,"%D",1,0)

 ;;=This file stores an audit trail of changes made to data dictionaries.

 ;;^DD(.6,0)

 ;;=FIELD^^.07^12

 ;;^DD(.6,0,"ID",.03)

 ;;=W "   ",$E($P(^(0),U,3),4,5)_"-"_$E($P(^(0),U,3),6,7)_"-"_$E($P(^(0),U,3),2,3)

 ;;^DD(.6,0,"ID",.04)

 ;;=S %I=Y,Y=$S('$D(^(0)):"",$D(^VA(200,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""),C=$P($G(^DD(200,.01,0)),U,2) D:C]"" Y^DIQ:Y]"" W "   ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I

 ;;^DD(.6,0,"NM","DD AUDIT")

 ;;=

 ;;^DD(.6,.001,0)

 ;;=NUMBER^NJ7,0^^ ^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X

 ;;^DD(.6,.001,3)

 ;;=A whole number greater than 1.

 ;;^DD(.6,.01,0)

 ;;=FIELD NUMBER^RF^^0;1^K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X

 ;;^DD(.6,.01,1,0)

 ;;=^.1

 ;;^DD(.6,.01,1,1,0)

 ;;=.6^B

 ;;^DD(.6,.01,1,1,1)

 ;;=S ^DDA(DDA,"B",$E(X,1,30),DA)=""

 ;;^DD(.6,.01,1,1,2)

 ;;=K ^DDA(DDA,"B",$E(X,1,30),DA)

 ;;^DD(.6,.01,3)

 ;;=Answer must be 1-10 characters in length.

 ;;^DD(.6,.02,0)

 ;;=TYPE^RS^E:EDIT;N:NEW;D:DELETE;^0;2^Q

 ;;^DD(.6,.03,0)

 ;;=DATE UPDATED^RD^^0;3^S %DT="ETR" D ^%DT S X=Y K:Y<1 X

 ;;^DD(.6,.03,1,0)

 ;;=^.1

 ;;^DD(.6,.03,1,1,0)

 ;;=.6^D

 ;;^DD(.6,.03,1,1,1)

 ;;=S ^DDA(DDA,"D",$E(X,1,30),DA)=""

 ;;^DD(.6,.03,1,1,2)

 ;;=K ^DDA(DDA,"D",$E(X,1,30),DA)

 ;;^DD(.6,.04,0)

 ;;=USER^RP200'^VA(200,^0;4^Q

 ;;^DD(.6,.04,1,0)

 ;;=^.1

 ;;^DD(.6,.04,1,1,0)

 ;;=.6^E

 ;;^DD(.6,.04,1,1,1)

 ;;=S ^DDA(DDA,"E",$E(X,1,30),DA)=""

 ;;^DD(.6,.04,1,1,2)

 ;;=K ^DDA(DDA,"E",$E(X,1,30),DA)

 ;;^DD(.6,.05,0)

 ;;=ATTRIBUTE NAME^F^^0;5^K:$L(X)>75!($L(X)<1) X

 ;;^DD(.6,.05,3)

 ;;=Answer must be 1-75 characters in length.

 ;;^DD(.6,.06,0)

 ;;=ATTRIBUTE NUMBER^F^^0;6^K:$L(X)>30!($L(X)<1) X

 ;;^DD(.6,.06,3)

 ;;=Answer must be 1-30 characters in length.

 ;;^DD(.6,.07,0)

 ;;=FILE NUMBER^F^^0;7^K:$L(X)>15!($L(X)<1) X

 ;;^DD(.6,.07,3)

 ;;=Answer must be 1-15 characters in length.

 ;;^DD(.6,1,0)

 ;;=OLD VALUE^F^^1;E1,245^K:$L(X)>245!($L(X)<1) X

 ;;^DD(.6,1.1,0)

 ;;=OLD VALUE(S)^.601^^1.1;0

 ;;^DD(.6,2,0)

 ;;=NEW VALUE^F^^2;E1,245^K:$L(X)>245!($L(X)<1) X

 ;;^DD(.6,2.1,0)

 ;;=NEW VALUE(S)^.602^^2.1;0

 ;;^DD(.601,0)

 ;;=OLD VALUE(S) SUB-FIELD^^.01^1

 ;;^DD(.601,0,"NM","OLD VALUE(S)")

 ;;=

 ;;^DD(.601,0,"UP")

 ;;=.6

 ;;^DD(.601,.01,0)

 ;;=OLD VALUE(S)^WL^^0;1^Q

 ;;^DD(.602,0)

 ;;=NEW VALUE(S) SUB-FIELD^^.01^1

 ;;^DD(.602,0,"NM","NEW VALUE(S)")

 ;;=

 ;;^DD(.602,0,"UP")

 ;;=.6

 ;;^DD(.602,.01,0)

 ;;=NEW VALUE(S)^WL^^0;1^Q

DINIT14   ;SFISC/YJK-INITIALIZE VA FILEMAN ;9/9/94  13:05

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

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

 +3        FOR I=1:2

               SET X=$TEXT(Q+I)

               IF X=""

                   GOTO ^DINIT2

               SET Y=$EXTRACT($TEXT(Q+I+1),5,999)

               SET X=$EXTRACT(X,4,999)

               SET @X=Y

Q          QUIT 

 +1       ;;^DIC(.6,0)

 +2       ;;=DD AUDIT^.6

 +3       ;;^DIC(.6,0,"GL")

 +4       ;;=^DDA(

 +5       ;;^DIC("B","DD AUDIT",.6)

 +6       ;;=

 +7       ;;^DIC(.6,"%D",0)

 +8       ;;=^^1^1^2940908^

 +9       ;;^DIC(.6,"%D",1,0)

 +10      ;;=This file stores an audit trail of changes made to data dictionaries.

 +11      ;;^DD(.6,0)

 +12      ;;=FIELD^^.07^12

 +13      ;;^DD(.6,0,"ID",.03)

 +14      ;;=W "   ",$E($P(^(0),U,3),4,5)_"-"_$E($P(^(0),U,3),6,7)_"-"_$E($P(^(0),U,3),2,3)

 +15      ;;^DD(.6,0,"ID",.04)

 +16      ;;=S %I=Y,Y=$S('$D(^(0)):"",$D(^VA(200,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""),C=$P($G(^DD(200,.01,0)),U,2) D:C]"" Y^DIQ:Y]"" W "   ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I

 +17      ;;^DD(.6,0,"NM","DD AUDIT")

 +18      ;;=

 +19      ;;^DD(.6,.001,0)

 +20      ;;=NUMBER^NJ7,0^^ ^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X

 +21      ;;^DD(.6,.001,3)

 +22      ;;=A whole number greater than 1.

 +23      ;;^DD(.6,.01,0)

 +24      ;;=FIELD NUMBER^RF^^0;1^K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X

 +25      ;;^DD(.6,.01,1,0)

 +26      ;;=^.1

 +27      ;;^DD(.6,.01,1,1,0)

 +28      ;;=.6^B

 +29      ;;^DD(.6,.01,1,1,1)

 +30      ;;=S ^DDA(DDA,"B",$E(X,1,30),DA)=""

 +31      ;;^DD(.6,.01,1,1,2)

 +32      ;;=K ^DDA(DDA,"B",$E(X,1,30),DA)

 +33      ;;^DD(.6,.01,3)

 +34      ;;=Answer must be 1-10 characters in length.

 +35      ;;^DD(.6,.02,0)

 +36      ;;=TYPE^RS^E:EDIT;N:NEW;D:DELETE;^0;2^Q

 +37      ;;^DD(.6,.03,0)

 +38      ;;=DATE UPDATED^RD^^0;3^S %DT="ETR" D ^%DT S X=Y K:Y<1 X

 +39      ;;^DD(.6,.03,1,0)

 +40      ;;=^.1

 +41      ;;^DD(.6,.03,1,1,0)

 +42      ;;=.6^D

 +43      ;;^DD(.6,.03,1,1,1)

 +44      ;;=S ^DDA(DDA,"D",$E(X,1,30),DA)=""

 +45      ;;^DD(.6,.03,1,1,2)

 +46      ;;=K ^DDA(DDA,"D",$E(X,1,30),DA)

 +47      ;;^DD(.6,.04,0)

 +48      ;;=USER^RP200'^VA(200,^0;4^Q

 +49      ;;^DD(.6,.04,1,0)

 +50      ;;=^.1

 +51      ;;^DD(.6,.04,1,1,0)

 +52      ;;=.6^E

 +53      ;;^DD(.6,.04,1,1,1)

 +54      ;;=S ^DDA(DDA,"E",$E(X,1,30),DA)=""

 +55      ;;^DD(.6,.04,1,1,2)

 +56      ;;=K ^DDA(DDA,"E",$E(X,1,30),DA)

 +57      ;;^DD(.6,.05,0)

 +58      ;;=ATTRIBUTE NAME^F^^0;5^K:$L(X)>75!($L(X)<1) X

 +59      ;;^DD(.6,.05,3)

 +60      ;;=Answer must be 1-75 characters in length.

 +61      ;;^DD(.6,.06,0)

 +62      ;;=ATTRIBUTE NUMBER^F^^0;6^K:$L(X)>30!($L(X)<1) X

 +63      ;;^DD(.6,.06,3)

 +64      ;;=Answer must be 1-30 characters in length.

 +65      ;;^DD(.6,.07,0)

 +66      ;;=FILE NUMBER^F^^0;7^K:$L(X)>15!($L(X)<1) X

 +67      ;;^DD(.6,.07,3)

 +68      ;;=Answer must be 1-15 characters in length.

 +69      ;;^DD(.6,1,0)

 +70      ;;=OLD VALUE^F^^1;E1,245^K:$L(X)>245!($L(X)<1) X

 +71      ;;^DD(.6,1.1,0)

 +72      ;;=OLD VALUE(S)^.601^^1.1;0

 +73      ;;^DD(.6,2,0)

 +74      ;;=NEW VALUE^F^^2;E1,245^K:$L(X)>245!($L(X)<1) X

 +75      ;;^DD(.6,2.1,0)

 +76      ;;=NEW VALUE(S)^.602^^2.1;0

 +77      ;;^DD(.601,0)

 +78      ;;=OLD VALUE(S) SUB-FIELD^^.01^1

 +79      ;;^DD(.601,0,"NM","OLD VALUE(S)")

 +80      ;;=

 +81      ;;^DD(.601,0,"UP")

 +82      ;;=.6

 +83      ;;^DD(.601,.01,0)

 +84      ;;=OLD VALUE(S)^WL^^0;1^Q

 +85      ;;^DD(.602,0)

 +86      ;;=NEW VALUE(S) SUB-FIELD^^.01^1

 +87      ;;^DD(.602,0,"NM","NEW VALUE(S)")

 +88      ;;=

 +89      ;;^DD(.602,0,"UP")

 +90      ;;=.6

 +91      ;;^DD(.602,.01,0)

 +92      ;;=NEW VALUE(S)^WL^^0;1^Q