DINIT221 ;SFISC/DPC - 'DATA TYPE PROPERTY' AND 'DATA TYPE METHOD' FILE DDs ;10MAR2016
;;22.2;VA FileMan;**2,5**;Jan 05, 2016;Build 28
;;Per VA Directive 6402, this routine should not be modified.
;
F I=1:2 S X=$T(Q+I) G ^DINIT220:X="" S Y=$E($T(Q+I+1),5,999),X=$E(X,4,999),@X=Y
Q Q
;;^DIC(.86,0,"GL")
;;=^DI(.86,
;;^DIC("B","DATA TYPE PROPERTY",.86)
;;=
;;^DIC(.86,"%D",0)
;;=^^1^1^
;;^DIC(.86,"%D",1,0)
;;=This file stores the names of different kinds of STRINGS that describe data.
;;^DD(.86,0)
;;=FIELD^^51^12
;;^DD(.86,0,"DDA")
;;=N
;;^DD(.86,0,"ID",1)
;;=W " ",$P(^(0),U,2)
;;^DD(.86,0,"IX","B",.86,.01)
;;=
;;^DD(.86,0,"IX","C",.86,1)
;;=
;;^DD(.86,0,"NM","DATA TYPE PROPERTY")
;;=
;;^DD(.86,0,"PT",.81101,.01)
;;=
;;^DD(.86,.001,0)
;;=NUMBER^NJ16,2^^ ^K:+X'=X!(X>9999999999999.99)!(X<1)!(X?.E1"."3N.N) X
;;^DD(.86,.001,3)
;;=Type a Number between 1 and 9999999999999.99, 2 Decimal Digits
;;^DD(.86,.001,21,0)
;;=^^1^1^^
;;^DD(.86,.001,21,1,0)
;;=This NUMBER should be number-spaced to your institution, if you create a new one.
;;^DD(.86,.01,0)
;;=NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
;;^DD(.86,.01,1,0)
;;=^.1
;;^DD(.86,.01,1,1,0)
;;=.86^B
;;^DD(.86,.01,1,1,1)
;;=S ^DI(.86,"B",$E(X,1,30),DA)=""
;;^DD(.86,.01,1,1,2)
;;=K ^DI(.86,"B",$E(X,1,30),DA)
;;^DD(.86,.01,3)
;;=Enter 3-30 characters, a unique name for the PROPERTY.
;;^DD(.86,.01,21,0)
;;=^^1^1^^
;;^DD(.86,.01,21,1,0)
;;=This NAME will appear in a list of PROPERTIES (e.g., "FIELD LENGTH")
;;^DD(.86,1,0)
;;=ABBREVIATION^FIX^^0;2^K:$L(X)>10!($L(X)<2)!(X=+$P(X,"E")) X
;;^DD(.86,1,1,0)
;;=^.1
;;^DD(.86,1,1,1,0)
;;=.86^C
;;^DD(.86,1,1,1,1)
;;=S ^DI(.86,"C",$E(X,1,30),DA)=""
;;^DD(.86,1,1,1,2)
;;=K ^DI(.86,"C",$E(X,1,30),DA)
;;^DD(.86,1,1,1,"%D",0)
;;=^^1^1^
;;^DD(.86,1,1,1,"%D",1,0)
;;=This cross reference allows looking up a METHOD by its short ABBREVIATION, if there is one.
;;^DD(.86,1,3)
;;=Answer must be 2-10 characters in length.
;;^DD(.86,1,21,1,0)
;;=Enter an abbreviation for this property.
;;^DD(.86,11,0)
;;=SHORT DESCRIPTION^F^^11;E1,245^K:$L(X)>245!($L(X)<1) X
;;^DD(.86,11,3)
;;=Answer must be 1-245 characters in length.
;;^DD(.86,11,21,0)
;;=^^1^1^^
;;^DD(.86,11,21,1,0)
;;=This should tell briefly what the PROPERTY is used for.
;;^DD(.86,21,0)
;;=DESCRIPTION^.861^^21;0
;;^DD(.86,41,0)
;;=DATA TYPE^P.81'^DI(.81,^41;1^Q
;;^DD(.86,41,3)
;;=Enter the data type (numeric or free-text, usually) of this PROPERTY.
;;^DD(.86,41,21,0)
;;=^^1^1^
;;^DD(.86,41,21,1,0)
;;=This should tell the attribute of the PROPERTY.
;;^DD(.86,42,0)
;;=DIR(0)^F^^42;E1,245^K:$L(X)>245!($L(X)<1) X
;;^DD(.86,42,3)
;;=Answer must be 1-245 characters in length.
;;^DD(.86,42,21,0)
;;=^^1^1^2951214^
;;^DD(.86,42,21,1,0)
;;=Enter the string that goes into DIR(0) for a ^DIR call.
;;^DD(.861,0)
;;=DESCRIPTION SUB-FIELD^^.01^1
;;^DD(.861,0,"NM","DESCRIPTION")
;;=
;;^DD(.861,0,"UP")
;;=.86
;;^DD(.861,.01,0)
;;=DESCRIPTION^W^^0;1^Q
;;^DIC(.87,0,"GL")
;;=^DI(.87,
;;^DIC("B","DATA TYPE METHOD",.87)
;;=
;;^DIC(.87,"%D",0)
;;=^^1^1
;;^DIC(.87,"%D",1,0)
;;=This file stores the names of different kinds of lines of MUMPS code that are used in the definitions of DATA TYPES
;;^DD(.87,0)
;;=FIELD^^.001^4
;;^DD(.87,0,"IX","B",.87,.01)
;;=
;;^DD(.87,0,"NM","DATA TYPE METHOD")
;;=
;;^DD(.87,0,"PT",.81201,.01)
;;=
;;^DD(.87,.001,0)
;;=NUMBER^NJ16,2^^ ^K:+X'=X!(X>9999999999999.99)!(X<1)!(X?.E1"."3N.N) X
;;^DD(.87,.001,3)
;;=Type a Number between 1 and 9999999999999.99, 2 Decimal Digits
;;^DD(.87,.001,21,0)
;;=^^1^1^^
;;^DD(.87,.001,21,1,0)
;;=This NUMBER should be number-spaced to your institution, if you create a new one.
;;^DD(.87,.01,0)
;;=NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X
;;^DD(.87,.01,1,0)
;;=^.1
;;^DD(.87,.01,1,1,0)
;;=.87^B
;;^DD(.87,.01,1,1,1)
;;=S ^DI(.87,"B",$E(X,1,30),DA)=""
;;^DD(.87,.01,1,1,2)
;;=K ^DI(.87,"B",$E(X,1,30),DA)
;;^DD(.87,.01,3)
;;=Answer with a NAME 3-50 characters in length.
;;^DD(.87,.01,21,0)
;;=^^1^1^^
;;^DD(.87,.01,21,1,0)
;;=This NAME will appear in a list of METHODs (e.g., "INPUT TRANSFORM")
;;^DD(.87,11,0)
;;=SHORT DESCRIPTION^F^^11;E1,245^K:$L(X)>245!($L(X)<1) X
;;^DD(.87,11,3)
;;=Answer must be 1-245 characters in length.
;;^DD(.87,11,21,0)
;;=^^1^1^^
;;^DD(.87,11,21,1,0)
;;=This should tell briefly what the METHOD is used for.
;;^DD(.87,21,0)
;;=DESCRIPTION^.871^^21;0
;;^DD(.871,0)
;;=DESCRIPTION SUB-FIELD^^.01^1
;;^DD(.871,0,"NM","DESCRIPTION")
;;=
;;^DD(.871,0,"UP")
;;=.87
;;^DD(.871,.01,0)
;;=DESCRIPTION^W^^0;1^Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT221 4787 printed Nov 22, 2024@18:00:47 Page 2
DINIT221 ;SFISC/DPC - 'DATA TYPE PROPERTY' AND 'DATA TYPE METHOD' FILE DDs ;10MAR2016
+1 ;;22.2;VA FileMan;**2,5**;Jan 05, 2016;Build 28
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
GOTO ^DINIT220
SET Y=$EXTRACT($TEXT(Q+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
Q QUIT
+1 ;;^DIC(.86,0,"GL")
+2 ;;=^DI(.86,
+3 ;;^DIC("B","DATA TYPE PROPERTY",.86)
+4 ;;=
+5 ;;^DIC(.86,"%D",0)
+6 ;;=^^1^1^
+7 ;;^DIC(.86,"%D",1,0)
+8 ;;=This file stores the names of different kinds of STRINGS that describe data.
+9 ;;^DD(.86,0)
+10 ;;=FIELD^^51^12
+11 ;;^DD(.86,0,"DDA")
+12 ;;=N
+13 ;;^DD(.86,0,"ID",1)
+14 ;;=W " ",$P(^(0),U,2)
+15 ;;^DD(.86,0,"IX","B",.86,.01)
+16 ;;=
+17 ;;^DD(.86,0,"IX","C",.86,1)
+18 ;;=
+19 ;;^DD(.86,0,"NM","DATA TYPE PROPERTY")
+20 ;;=
+21 ;;^DD(.86,0,"PT",.81101,.01)
+22 ;;=
+23 ;;^DD(.86,.001,0)
+24 ;;=NUMBER^NJ16,2^^ ^K:+X'=X!(X>9999999999999.99)!(X<1)!(X?.E1"."3N.N) X
+25 ;;^DD(.86,.001,3)
+26 ;;=Type a Number between 1 and 9999999999999.99, 2 Decimal Digits
+27 ;;^DD(.86,.001,21,0)
+28 ;;=^^1^1^^
+29 ;;^DD(.86,.001,21,1,0)
+30 ;;=This NUMBER should be number-spaced to your institution, if you create a new one.
+31 ;;^DD(.86,.01,0)
+32 ;;=NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
+33 ;;^DD(.86,.01,1,0)
+34 ;;=^.1
+35 ;;^DD(.86,.01,1,1,0)
+36 ;;=.86^B
+37 ;;^DD(.86,.01,1,1,1)
+38 ;;=S ^DI(.86,"B",$E(X,1,30),DA)=""
+39 ;;^DD(.86,.01,1,1,2)
+40 ;;=K ^DI(.86,"B",$E(X,1,30),DA)
+41 ;;^DD(.86,.01,3)
+42 ;;=Enter 3-30 characters, a unique name for the PROPERTY.
+43 ;;^DD(.86,.01,21,0)
+44 ;;=^^1^1^^
+45 ;;^DD(.86,.01,21,1,0)
+46 ;;=This NAME will appear in a list of PROPERTIES (e.g., "FIELD LENGTH")
+47 ;;^DD(.86,1,0)
+48 ;;=ABBREVIATION^FIX^^0;2^K:$L(X)>10!($L(X)<2)!(X=+$P(X,"E")) X
+49 ;;^DD(.86,1,1,0)
+50 ;;=^.1
+51 ;;^DD(.86,1,1,1,0)
+52 ;;=.86^C
+53 ;;^DD(.86,1,1,1,1)
+54 ;;=S ^DI(.86,"C",$E(X,1,30),DA)=""
+55 ;;^DD(.86,1,1,1,2)
+56 ;;=K ^DI(.86,"C",$E(X,1,30),DA)
+57 ;;^DD(.86,1,1,1,"%D",0)
+58 ;;=^^1^1^
+59 ;;^DD(.86,1,1,1,"%D",1,0)
+60 ;;=This cross reference allows looking up a METHOD by its short ABBREVIATION, if there is one.
+61 ;;^DD(.86,1,3)
+62 ;;=Answer must be 2-10 characters in length.
+63 ;;^DD(.86,1,21,1,0)
+64 ;;=Enter an abbreviation for this property.
+65 ;;^DD(.86,11,0)
+66 ;;=SHORT DESCRIPTION^F^^11;E1,245^K:$L(X)>245!($L(X)<1) X
+67 ;;^DD(.86,11,3)
+68 ;;=Answer must be 1-245 characters in length.
+69 ;;^DD(.86,11,21,0)
+70 ;;=^^1^1^^
+71 ;;^DD(.86,11,21,1,0)
+72 ;;=This should tell briefly what the PROPERTY is used for.
+73 ;;^DD(.86,21,0)
+74 ;;=DESCRIPTION^.861^^21;0
+75 ;;^DD(.86,41,0)
+76 ;;=DATA TYPE^P.81'^DI(.81,^41;1^Q
+77 ;;^DD(.86,41,3)
+78 ;;=Enter the data type (numeric or free-text, usually) of this PROPERTY.
+79 ;;^DD(.86,41,21,0)
+80 ;;=^^1^1^
+81 ;;^DD(.86,41,21,1,0)
+82 ;;=This should tell the attribute of the PROPERTY.
+83 ;;^DD(.86,42,0)
+84 ;;=DIR(0)^F^^42;E1,245^K:$L(X)>245!($L(X)<1) X
+85 ;;^DD(.86,42,3)
+86 ;;=Answer must be 1-245 characters in length.
+87 ;;^DD(.86,42,21,0)
+88 ;;=^^1^1^2951214^
+89 ;;^DD(.86,42,21,1,0)
+90 ;;=Enter the string that goes into DIR(0) for a ^DIR call.
+91 ;;^DD(.861,0)
+92 ;;=DESCRIPTION SUB-FIELD^^.01^1
+93 ;;^DD(.861,0,"NM","DESCRIPTION")
+94 ;;=
+95 ;;^DD(.861,0,"UP")
+96 ;;=.86
+97 ;;^DD(.861,.01,0)
+98 ;;=DESCRIPTION^W^^0;1^Q
+99 ;;^DIC(.87,0,"GL")
+100 ;;=^DI(.87,
+101 ;;^DIC("B","DATA TYPE METHOD",.87)
+102 ;;=
+103 ;;^DIC(.87,"%D",0)
+104 ;;=^^1^1
+105 ;;^DIC(.87,"%D",1,0)
+106 ;;=This file stores the names of different kinds of lines of MUMPS code that are used in the definitions of DATA TYPES
+107 ;;^DD(.87,0)
+108 ;;=FIELD^^.001^4
+109 ;;^DD(.87,0,"IX","B",.87,.01)
+110 ;;=
+111 ;;^DD(.87,0,"NM","DATA TYPE METHOD")
+112 ;;=
+113 ;;^DD(.87,0,"PT",.81201,.01)
+114 ;;=
+115 ;;^DD(.87,.001,0)
+116 ;;=NUMBER^NJ16,2^^ ^K:+X'=X!(X>9999999999999.99)!(X<1)!(X?.E1"."3N.N) X
+117 ;;^DD(.87,.001,3)
+118 ;;=Type a Number between 1 and 9999999999999.99, 2 Decimal Digits
+119 ;;^DD(.87,.001,21,0)
+120 ;;=^^1^1^^
+121 ;;^DD(.87,.001,21,1,0)
+122 ;;=This NUMBER should be number-spaced to your institution, if you create a new one.
+123 ;;^DD(.87,.01,0)
+124 ;;=NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X
+125 ;;^DD(.87,.01,1,0)
+126 ;;=^.1
+127 ;;^DD(.87,.01,1,1,0)
+128 ;;=.87^B
+129 ;;^DD(.87,.01,1,1,1)
+130 ;;=S ^DI(.87,"B",$E(X,1,30),DA)=""
+131 ;;^DD(.87,.01,1,1,2)
+132 ;;=K ^DI(.87,"B",$E(X,1,30),DA)
+133 ;;^DD(.87,.01,3)
+134 ;;=Answer with a NAME 3-50 characters in length.
+135 ;;^DD(.87,.01,21,0)
+136 ;;=^^1^1^^
+137 ;;^DD(.87,.01,21,1,0)
+138 ;;=This NAME will appear in a list of METHODs (e.g., "INPUT TRANSFORM")
+139 ;;^DD(.87,11,0)
+140 ;;=SHORT DESCRIPTION^F^^11;E1,245^K:$L(X)>245!($L(X)<1) X
+141 ;;^DD(.87,11,3)
+142 ;;=Answer must be 1-245 characters in length.
+143 ;;^DD(.87,11,21,0)
+144 ;;=^^1^1^^
+145 ;;^DD(.87,11,21,1,0)
+146 ;;=This should tell briefly what the METHOD is used for.
+147 ;;^DD(.87,21,0)
+148 ;;=DESCRIPTION^.871^^21;0
+149 ;;^DD(.871,0)
+150 ;;=DESCRIPTION SUB-FIELD^^.01^1
+151 ;;^DD(.871,0,"NM","DESCRIPTION")
+152 ;;=
+153 ;;^DD(.871,0,"UP")
+154 ;;=.87
+155 ;;^DD(.871,.01,0)
+156 ;;=DESCRIPTION^W^^0;1^Q
