DINIT22 ;SFISC/DPC - DATA TYPE FILE DD ;23NOV2016
;;22.2;VA FileMan;**2**;Jan 05, 2016;Build 139
;;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.
;
K ^DD(.81101,"GL")
F I=1:2 S X=$T(Q+I) G ^DINIT221:X="" S Y=$E($T(Q+I+1),5,999),X=$E(X,4,999),@X=Y
Q Q
;;^DIC(.81,0,"GL")
;;=^DI(.81,
;;^DIC("B","DATA TYPE",.81)
;;=
;;^DIC(.81,"%D",0)
;;=^^2^2^2940908^
;;^DIC(.81,"%D",1,0)
;;=This file stores all of the data types that VA FileMan allows in the
;;^DIC(.81,"%D",2,0)
;;=MODIFY FILE ATTRIBUTES option.
;;^DD(.81,0)
;;=FIELD^^201^9
;;^DD(.81,0,"DDA")
;;=N
;;^DD(.81,0,"IX","B",.81,.01)
;;=
;;^DD(.81,0,"IX","C",.81,1)
;;=
;;^DD(.81,0,"NM","DATA TYPE")
;;=
;;^DD(.81,0,"PT",.4014,15)
;;=
;;^DD(.81,0,"PT",.42,1)
;;=
;;^DD(.81,0,"PT",.86,41)
;;=
;;^DD(.81,.001,0)
;;=NUMBER^NJ16,2^^ ^K:+X'=X!(X>9999999999999.99)!(X<1)!(X?.E1"."3N.N) X
;;^DD(.81,.001,3)
;;=Type a Number between 1 and 9999999999999.99, 2 Decimal Digits
;;^DD(.81,.01,0)
;;=NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
;;^DD(.81,.01,1,0)
;;=^.1
;;^DD(.81,.01,1,1,0)
;;=.81^B
;;^DD(.81,.01,1,1,1)
;;=S ^DI(.81,"B",$E(X,1,30),DA)=""
;;^DD(.81,.01,1,1,2)
;;=K ^DI(.81,"B",$E(X,1,30),DA)
;;^DD(.81,.01,3)
;;=NAME MUST BE 3-30 CHARACTERS
;;^DD(.81,.01,"DEL",1,0)
;;=D DELETEQ^DIETLIB
;;^DD(.81,1,0)
;;=INTERNAL REPRESENTATION^F^^0;2^I ",N,F,D,S,P,K,"'[X!($L(X)>1) K X
;;^DD(.81,1,1,0)
;;=^.1
;;^DD(.81,1,1,1,0)
;;=.81^C
;;^DD(.81,1,1,1,1)
;;=S ^DI(.81,"C",$E(X,1,30),DA)=""
;;^DD(.81,1,1,1,2)
;;=K ^DI(.81,"C",$E(X,1,30),DA)
;;^DD(.81,1,3)
;;=MUST BE ONE OF THE BASIC CODES (N,F,D,S,P,K) DENOTING FILEMAN FIELD TYPES
;;^DD(.81,2,0)
;;=STANDARD PROMPT^F^^0;3^K:$L(X)>70!($L(X)<1) X
;;^DD(.81,2,3)
;;=Answer must be 1-70 characters in length.
;;^DD(.81,2,21,0)
;;=^^2^2^2960124^
;;^DD(.81,2,21,1,0)
;;=This is the default prompt used during a Reader (^DIR) call of this
;;^DD(.81,2,21,2,0)
;;=data type, when no prompt is supplied in DIR("A").
;;^DD(.81,3,0)
;;=SORT BY EXTERNAL?^S^0:NO;1:YES;^0;4^Q
;;^DD(.81,3,21,0)
;;=^^2^2^2960806^
;;^DD(.81,3,21,1,0)
;;=Enter 'YES' if, by default, data of this data type should sort by its
;;^DD(.81,3,21,2,0)
;;=external rather than internal form.
;;^DD(.81,11,0)
;;=SHORT DESCRIPTION^F^^11;E1,245^K:$L(X)>245!($L(X)<1) X
;;^DD(.81,11,3)
;;=Answer must be 1-245 characters in length.
;;^DD(.81,21,0)
;;=DESCRIPTION^.8121^^21;0
;;^DD(.81,41,0)
;;=FIELDS DEFINED BY THIS TYPE^.81215^^41;0
;;^DD(.81,41,9)
;;=^
;;^DD(.81,41,21,0)
;;=^^2^2^
;;^DD(.81,41,21,1,0)
;;=This multiple field list all fields in this database that point to this DATA TYPE. These are not editable here.
;;^DD(.81,41,21,2,0)
;;=The values are stuffed automatically when a field using this DATA TYPE is created under 'MODIFY FILE ATTRIBUTES'.
;;^DD(.81,101,0)
;;=PROPERTY^.81101P^^101;0
;;^DD(.81,101,21,0)
;;=^^1^1
;;^DD(.81,101,21,1,0)
;;=This multiple lists all the PROPERTIES that specify what this DATA TYPE does.
;;^DD(.81,201,0)
;;=METHOD^.81201P^^201;0
;;^DD(.81,201,21,0)
;;=^^1^1
;;^DD(.81,201,21,1,0)
;;=This multiple lists all the METHODS that specify what this DATA TYPE does.
;;^DD(.81101,0)
;;=PROPERTY SUB-FIELD^^61^8
;;^DD(.81101,0,"IX","AC",.81101,1)
;;=
;;^DD(.81101,0,"IX","B",.81101,.01)
;;=
;;^DD(.81101,0,"NM","PROPERTY")
;;=
;;^DD(.81101,0,"UP")
;;=.81
;;^DD(.81101,.01,0)
;;=PROPERTY^MP.86X^DI(.86,^0;1^S DINUM=X
;;^DD(.81101,.01,1,0)
;;=^.1
;;^DD(.81101,.01,1,1,0)
;;=.81101^B
;;^DD(.81101,.01,1,1,1)
;;=S ^DI(.81,DA(1),101,"B",$E(X,1,30),DA)=""
;;^DD(.81101,.01,1,1,2)
;;=K ^DI(.81,DA(1),101,"B",$E(X,1,30),DA)
;;^DD(.81101,.01,3)
;;=Select a PROPERTY that needs to have a VALUE for this DATA TYPE.
;;^DD(.81101,.01,21,0)
;;=^^2^2
;;^DD(.81101,.01,21,1,0)
;;=Existing PROPERTY names should only be edited with great care.
;;^DD(.81101,.01,21,2,0)
;;=A PROPERTY is a string or number that defines something about the Data Type.
;;^DD(.81101,1,0)
;;=ORDER^NJ4,1^^0;2^K:+X'=X!(X>99.9)!(X<1)!(X?.E1"."2N.N) X
;;^DD(.81101,1,1,0)
;;=^.1
;;^DD(.81101,1,1,1,0)
;;=.81101^AC
;;^DD(.81101,1,1,1,1)
;;=S ^DI(.81,DA(1),101,"AC",$E(X,1,30),DA)=""
;;^DD(.81101,1,1,1,2)
;;=K ^DI(.81,DA(1),101,"AC",$E(X,1,30),DA)
;;^DD(.81101,1,1,1,"%D",0)
;;=^^1^1^
;;^DD(.81101,1,1,1,"%D",1,0)
;;=This cross reference allows sorting PROPERTIES by the ORDER in which they should be presented.
;;^DD(.81101,1,3)
;;=Type a Number between 1 and 99.9, 1 Decimal Digit
;;^DD(.81101,1,21,0)
;;=^^2^2^2951205^
;;^DD(.81101,1,21,1,0)
;;=Enter the relative order in which FileMan should prompt for this property
;;^DD(.81101,1,21,2,0)
;;=at field creation.
;;^DD(.81101,10,0)
;;=PROMPT?^K^^10;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.81101,10,3)
;;=This is Standard MUMPS code.
;;^DD(.81101,10,9)
;;=@
;;^DD(.81101,10,21,0)
;;=^^3^3^2951205^
;;^DD(.81101,10,21,1,0)
;;=Enter MUMPS code that sets $T. If $T evaluates to TRUE, then FileMan
;;^DD(.81101,10,21,2,0)
;;=will prompt for this property when a field of this Data Type is created.
;;^DD(.81101,10,21,3,0)
;;=A null value is equivalent to "I 1".
;;^DD(.81101,31,0)
;;=VALUE^F^^31;E1,245^K:$L(X)>245!($L(X)<1) X
;;^DD(.81101,31,3)
;;=Enter the string that will become the default value for this PROPERTY, 1 to 245 characters.
;;^DD(.81101,31,21,0)
;;=^^3^3
;;^DD(.81101,31,21,1,0)
;;=This value will be inserted into the definition of fields defined by this Data Type Property.
;;^DD(.81101,31,21,2,0)
;;=For a PROPERTY like FIELD LENGTH, the VALUE will be a number.
;;^DD(.81101,31,21,3,0)
;;=For a PROPERTY like SET OF CODES, the VALUE will be a string (like "1:TRUE;0:FALSE")
;;^DD(.81101,33,0)
;;=DEFAULT VALUE PROMPTED^F^^33;E1,245^K:$L(X)>245!($L(X)<1) X
;;^DD(.81101,33,3)
;;=Enter the string that will show as the expected value (internal form) for this PROPERTY, 1 to 245 characters.
;;^DD(.81101,33,21,0)
;;=^^3^3
;;^DD(.81101,33,21,1,0)
;;=This field should have a value only if, when a new FileMan field is being created (MODIFY FILE ATTRIBUTES),
;;^DD(.81101,33,21,2,0)
;;=the PROPERTY should be prompted with a default. For example, if a true/false PROPERTY normally takes a 'NO' value,
;;^DD(.81101,33,21,3,0)
;;=then this field has the value '0', which is usually the internal form of 'NO'.
;;^DD(.81201,0)
;;=METHOD SUB-FIELD^^31.1^4
;;^DD(.81201,0,"IX","B",.81201,.01)
;;=
;;^DD(.81201,0,"NM","METHOD")
;;=
;;^DD(.81201,0,"UP")
;;=.81
;;^DD(.81201,.01,0)
;;=METHOD^MP.87X^DI(.87,^0;1^S DINUM=X
;;^DD(.81201,.01,1,0)
;;=^.1
;;^DD(.81201,.01,1,1,0)
;;=.81201^B
;;^DD(.81201,.01,1,1,1)
;;=S ^DI(.81,DA(1),201,"B",$E(X,1,30),DA)=""
;;^DD(.81201,.01,1,1,2)
;;=K ^DI(.81,DA(1),201,"B",$E(X,1,30),DA)
;;^DD(.81201,.01,3)
;;=Select a METHOD that needs to have MUMPS code for this DATA TYPE.
;;^DD(.81201,.01,21,0)
;;=^^1^1
;;^DD(.81201,.01,21,1,0)
;;=This step allows a programmer to change the name of or specify the METHOD.
;;^DD(.81201,31,0)
;;=M CODE^F^^31;E1,245^D ^DIM
;;^DD(.81201,31,3)
;;=Enter MUMPS code that will perform the METHOD
;;^DD(.81201,31,9)
;;=@
;;^DD(.81201,31,21,0)
;;=^^1^1
;;^DD(.81201,31,21,1,0)
;;=Code that will do what the METHOD requires.
;;^DD(.8121,0)
;;=DESCRIPTION SUB-FIELD^^.01^1
;;^DD(.8121,0,"NM","DESCRIPTION")
;;=
;;^DD(.8121,0,"UP")
;;=.81
;;^DD(.8121,.01,0)
;;=DESCRIPTION^W^^0;1^Q
;;^DD(.81215,0)
;;=FIELD DEFINED BY THIS TYPE SUB-FIELD^^.01^1
;;^DD(.81215,0,"NM","FIELD DEFINED BY THIS TYPE")
;;=
;;^DD(.81215,0,"UP")
;;=.81
;;^DD(.81215,.01,0)
;;=FIELD DEFINED BY THIS TYPE^F^^0;1^I X'?1.NP1","1.NP K X
;;^DD(.81215,.01,1,0)
;;=^.1
;;^DD(.81215,.01,1,1,0)
;;=.81^AFDEF
;;^DD(.81215,.01,1,1,1)
;;=S ^DI(.81,"AFDEF",DA(1),$E(X,1,30),DA)=""
;;^DD(.81215,.01,1,1,2)
;;=K ^DI(.81,"AFDEF",DA(1),$E(X,1,30),DA)
;;^DD(.81215,.01,3)
;;=Enter a file number, then comma, then field number, of a field defined by this DATA TYPE
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT22 8412 printed Dec 13, 2024@02:50:49 Page 2
DINIT22 ;SFISC/DPC - DATA TYPE FILE DD ;23NOV2016
+1 ;;22.2;VA FileMan;**2**;Jan 05, 2016;Build 139
+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 ;
+7 KILL ^DD(.81101,"GL")
+8 FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
GOTO ^DINIT221
SET Y=$EXTRACT($TEXT(Q+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
Q QUIT
+1 ;;^DIC(.81,0,"GL")
+2 ;;=^DI(.81,
+3 ;;^DIC("B","DATA TYPE",.81)
+4 ;;=
+5 ;;^DIC(.81,"%D",0)
+6 ;;=^^2^2^2940908^
+7 ;;^DIC(.81,"%D",1,0)
+8 ;;=This file stores all of the data types that VA FileMan allows in the
+9 ;;^DIC(.81,"%D",2,0)
+10 ;;=MODIFY FILE ATTRIBUTES option.
+11 ;;^DD(.81,0)
+12 ;;=FIELD^^201^9
+13 ;;^DD(.81,0,"DDA")
+14 ;;=N
+15 ;;^DD(.81,0,"IX","B",.81,.01)
+16 ;;=
+17 ;;^DD(.81,0,"IX","C",.81,1)
+18 ;;=
+19 ;;^DD(.81,0,"NM","DATA TYPE")
+20 ;;=
+21 ;;^DD(.81,0,"PT",.4014,15)
+22 ;;=
+23 ;;^DD(.81,0,"PT",.42,1)
+24 ;;=
+25 ;;^DD(.81,0,"PT",.86,41)
+26 ;;=
+27 ;;^DD(.81,.001,0)
+28 ;;=NUMBER^NJ16,2^^ ^K:+X'=X!(X>9999999999999.99)!(X<1)!(X?.E1"."3N.N) X
+29 ;;^DD(.81,.001,3)
+30 ;;=Type a Number between 1 and 9999999999999.99, 2 Decimal Digits
+31 ;;^DD(.81,.01,0)
+32 ;;=NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
+33 ;;^DD(.81,.01,1,0)
+34 ;;=^.1
+35 ;;^DD(.81,.01,1,1,0)
+36 ;;=.81^B
+37 ;;^DD(.81,.01,1,1,1)
+38 ;;=S ^DI(.81,"B",$E(X,1,30),DA)=""
+39 ;;^DD(.81,.01,1,1,2)
+40 ;;=K ^DI(.81,"B",$E(X,1,30),DA)
+41 ;;^DD(.81,.01,3)
+42 ;;=NAME MUST BE 3-30 CHARACTERS
+43 ;;^DD(.81,.01,"DEL",1,0)
+44 ;;=D DELETEQ^DIETLIB
+45 ;;^DD(.81,1,0)
+46 ;;=INTERNAL REPRESENTATION^F^^0;2^I ",N,F,D,S,P,K,"'[X!($L(X)>1) K X
+47 ;;^DD(.81,1,1,0)
+48 ;;=^.1
+49 ;;^DD(.81,1,1,1,0)
+50 ;;=.81^C
+51 ;;^DD(.81,1,1,1,1)
+52 ;;=S ^DI(.81,"C",$E(X,1,30),DA)=""
+53 ;;^DD(.81,1,1,1,2)
+54 ;;=K ^DI(.81,"C",$E(X,1,30),DA)
+55 ;;^DD(.81,1,3)
+56 ;;=MUST BE ONE OF THE BASIC CODES (N,F,D,S,P,K) DENOTING FILEMAN FIELD TYPES
+57 ;;^DD(.81,2,0)
+58 ;;=STANDARD PROMPT^F^^0;3^K:$L(X)>70!($L(X)<1) X
+59 ;;^DD(.81,2,3)
+60 ;;=Answer must be 1-70 characters in length.
+61 ;;^DD(.81,2,21,0)
+62 ;;=^^2^2^2960124^
+63 ;;^DD(.81,2,21,1,0)
+64 ;;=This is the default prompt used during a Reader (^DIR) call of this
+65 ;;^DD(.81,2,21,2,0)
+66 ;;=data type, when no prompt is supplied in DIR("A").
+67 ;;^DD(.81,3,0)
+68 ;;=SORT BY EXTERNAL?^S^0:NO;1:YES;^0;4^Q
+69 ;;^DD(.81,3,21,0)
+70 ;;=^^2^2^2960806^
+71 ;;^DD(.81,3,21,1,0)
+72 ;;=Enter 'YES' if, by default, data of this data type should sort by its
+73 ;;^DD(.81,3,21,2,0)
+74 ;;=external rather than internal form.
+75 ;;^DD(.81,11,0)
+76 ;;=SHORT DESCRIPTION^F^^11;E1,245^K:$L(X)>245!($L(X)<1) X
+77 ;;^DD(.81,11,3)
+78 ;;=Answer must be 1-245 characters in length.
+79 ;;^DD(.81,21,0)
+80 ;;=DESCRIPTION^.8121^^21;0
+81 ;;^DD(.81,41,0)
+82 ;;=FIELDS DEFINED BY THIS TYPE^.81215^^41;0
+83 ;;^DD(.81,41,9)
+84 ;;=^
+85 ;;^DD(.81,41,21,0)
+86 ;;=^^2^2^
+87 ;;^DD(.81,41,21,1,0)
+88 ;;=This multiple field list all fields in this database that point to this DATA TYPE. These are not editable here.
+89 ;;^DD(.81,41,21,2,0)
+90 ;;=The values are stuffed automatically when a field using this DATA TYPE is created under 'MODIFY FILE ATTRIBUTES'.
+91 ;;^DD(.81,101,0)
+92 ;;=PROPERTY^.81101P^^101;0
+93 ;;^DD(.81,101,21,0)
+94 ;;=^^1^1
+95 ;;^DD(.81,101,21,1,0)
+96 ;;=This multiple lists all the PROPERTIES that specify what this DATA TYPE does.
+97 ;;^DD(.81,201,0)
+98 ;;=METHOD^.81201P^^201;0
+99 ;;^DD(.81,201,21,0)
+100 ;;=^^1^1
+101 ;;^DD(.81,201,21,1,0)
+102 ;;=This multiple lists all the METHODS that specify what this DATA TYPE does.
+103 ;;^DD(.81101,0)
+104 ;;=PROPERTY SUB-FIELD^^61^8
+105 ;;^DD(.81101,0,"IX","AC",.81101,1)
+106 ;;=
+107 ;;^DD(.81101,0,"IX","B",.81101,.01)
+108 ;;=
+109 ;;^DD(.81101,0,"NM","PROPERTY")
+110 ;;=
+111 ;;^DD(.81101,0,"UP")
+112 ;;=.81
+113 ;;^DD(.81101,.01,0)
+114 ;;=PROPERTY^MP.86X^DI(.86,^0;1^S DINUM=X
+115 ;;^DD(.81101,.01,1,0)
+116 ;;=^.1
+117 ;;^DD(.81101,.01,1,1,0)
+118 ;;=.81101^B
+119 ;;^DD(.81101,.01,1,1,1)
+120 ;;=S ^DI(.81,DA(1),101,"B",$E(X,1,30),DA)=""
+121 ;;^DD(.81101,.01,1,1,2)
+122 ;;=K ^DI(.81,DA(1),101,"B",$E(X,1,30),DA)
+123 ;;^DD(.81101,.01,3)
+124 ;;=Select a PROPERTY that needs to have a VALUE for this DATA TYPE.
+125 ;;^DD(.81101,.01,21,0)
+126 ;;=^^2^2
+127 ;;^DD(.81101,.01,21,1,0)
+128 ;;=Existing PROPERTY names should only be edited with great care.
+129 ;;^DD(.81101,.01,21,2,0)
+130 ;;=A PROPERTY is a string or number that defines something about the Data Type.
+131 ;;^DD(.81101,1,0)
+132 ;;=ORDER^NJ4,1^^0;2^K:+X'=X!(X>99.9)!(X<1)!(X?.E1"."2N.N) X
+133 ;;^DD(.81101,1,1,0)
+134 ;;=^.1
+135 ;;^DD(.81101,1,1,1,0)
+136 ;;=.81101^AC
+137 ;;^DD(.81101,1,1,1,1)
+138 ;;=S ^DI(.81,DA(1),101,"AC",$E(X,1,30),DA)=""
+139 ;;^DD(.81101,1,1,1,2)
+140 ;;=K ^DI(.81,DA(1),101,"AC",$E(X,1,30),DA)
+141 ;;^DD(.81101,1,1,1,"%D",0)
+142 ;;=^^1^1^
+143 ;;^DD(.81101,1,1,1,"%D",1,0)
+144 ;;=This cross reference allows sorting PROPERTIES by the ORDER in which they should be presented.
+145 ;;^DD(.81101,1,3)
+146 ;;=Type a Number between 1 and 99.9, 1 Decimal Digit
+147 ;;^DD(.81101,1,21,0)
+148 ;;=^^2^2^2951205^
+149 ;;^DD(.81101,1,21,1,0)
+150 ;;=Enter the relative order in which FileMan should prompt for this property
+151 ;;^DD(.81101,1,21,2,0)
+152 ;;=at field creation.
+153 ;;^DD(.81101,10,0)
+154 ;;=PROMPT?^K^^10;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+155 ;;^DD(.81101,10,3)
+156 ;;=This is Standard MUMPS code.
+157 ;;^DD(.81101,10,9)
+158 ;;=@
+159 ;;^DD(.81101,10,21,0)
+160 ;;=^^3^3^2951205^
+161 ;;^DD(.81101,10,21,1,0)
+162 ;;=Enter MUMPS code that sets $T. If $T evaluates to TRUE, then FileMan
+163 ;;^DD(.81101,10,21,2,0)
+164 ;;=will prompt for this property when a field of this Data Type is created.
+165 ;;^DD(.81101,10,21,3,0)
+166 ;;=A null value is equivalent to "I 1".
+167 ;;^DD(.81101,31,0)
+168 ;;=VALUE^F^^31;E1,245^K:$L(X)>245!($L(X)<1) X
+169 ;;^DD(.81101,31,3)
+170 ;;=Enter the string that will become the default value for this PROPERTY, 1 to 245 characters.
+171 ;;^DD(.81101,31,21,0)
+172 ;;=^^3^3
+173 ;;^DD(.81101,31,21,1,0)
+174 ;;=This value will be inserted into the definition of fields defined by this Data Type Property.
+175 ;;^DD(.81101,31,21,2,0)
+176 ;;=For a PROPERTY like FIELD LENGTH, the VALUE will be a number.
+177 ;;^DD(.81101,31,21,3,0)
+178 ;;=For a PROPERTY like SET OF CODES, the VALUE will be a string (like "1:TRUE;0:FALSE")
+179 ;;^DD(.81101,33,0)
+180 ;;=DEFAULT VALUE PROMPTED^F^^33;E1,245^K:$L(X)>245!($L(X)<1) X
+181 ;;^DD(.81101,33,3)
+182 ;;=Enter the string that will show as the expected value (internal form) for this PROPERTY, 1 to 245 characters.
+183 ;;^DD(.81101,33,21,0)
+184 ;;=^^3^3
+185 ;;^DD(.81101,33,21,1,0)
+186 ;;=This field should have a value only if, when a new FileMan field is being created (MODIFY FILE ATTRIBUTES),
+187 ;;^DD(.81101,33,21,2,0)
+188 ;;=the PROPERTY should be prompted with a default. For example, if a true/false PROPERTY normally takes a 'NO' value,
+189 ;;^DD(.81101,33,21,3,0)
+190 ;;=then this field has the value '0', which is usually the internal form of 'NO'.
+191 ;;^DD(.81201,0)
+192 ;;=METHOD SUB-FIELD^^31.1^4
+193 ;;^DD(.81201,0,"IX","B",.81201,.01)
+194 ;;=
+195 ;;^DD(.81201,0,"NM","METHOD")
+196 ;;=
+197 ;;^DD(.81201,0,"UP")
+198 ;;=.81
+199 ;;^DD(.81201,.01,0)
+200 ;;=METHOD^MP.87X^DI(.87,^0;1^S DINUM=X
+201 ;;^DD(.81201,.01,1,0)
+202 ;;=^.1
+203 ;;^DD(.81201,.01,1,1,0)
+204 ;;=.81201^B
+205 ;;^DD(.81201,.01,1,1,1)
+206 ;;=S ^DI(.81,DA(1),201,"B",$E(X,1,30),DA)=""
+207 ;;^DD(.81201,.01,1,1,2)
+208 ;;=K ^DI(.81,DA(1),201,"B",$E(X,1,30),DA)
+209 ;;^DD(.81201,.01,3)
+210 ;;=Select a METHOD that needs to have MUMPS code for this DATA TYPE.
+211 ;;^DD(.81201,.01,21,0)
+212 ;;=^^1^1
+213 ;;^DD(.81201,.01,21,1,0)
+214 ;;=This step allows a programmer to change the name of or specify the METHOD.
+215 ;;^DD(.81201,31,0)
+216 ;;=M CODE^F^^31;E1,245^D ^DIM
+217 ;;^DD(.81201,31,3)
+218 ;;=Enter MUMPS code that will perform the METHOD
+219 ;;^DD(.81201,31,9)
+220 ;;=@
+221 ;;^DD(.81201,31,21,0)
+222 ;;=^^1^1
+223 ;;^DD(.81201,31,21,1,0)
+224 ;;=Code that will do what the METHOD requires.
+225 ;;^DD(.8121,0)
+226 ;;=DESCRIPTION SUB-FIELD^^.01^1
+227 ;;^DD(.8121,0,"NM","DESCRIPTION")
+228 ;;=
+229 ;;^DD(.8121,0,"UP")
+230 ;;=.81
+231 ;;^DD(.8121,.01,0)
+232 ;;=DESCRIPTION^W^^0;1^Q
+233 ;;^DD(.81215,0)
+234 ;;=FIELD DEFINED BY THIS TYPE SUB-FIELD^^.01^1
+235 ;;^DD(.81215,0,"NM","FIELD DEFINED BY THIS TYPE")
+236 ;;=
+237 ;;^DD(.81215,0,"UP")
+238 ;;=.81
+239 ;;^DD(.81215,.01,0)
+240 ;;=FIELD DEFINED BY THIS TYPE^F^^0;1^I X'?1.NP1","1.NP K X
+241 ;;^DD(.81215,.01,1,0)
+242 ;;=^.1
+243 ;;^DD(.81215,.01,1,1,0)
+244 ;;=.81^AFDEF
+245 ;;^DD(.81215,.01,1,1,1)
+246 ;;=S ^DI(.81,"AFDEF",DA(1),$E(X,1,30),DA)=""
+247 ;;^DD(.81215,.01,1,1,2)
+248 ;;=K ^DI(.81,"AFDEF",DA(1),$E(X,1,30),DA)
+249 ;;^DD(.81215,.01,3)
+250 ;;=Enter a file number, then comma, then field number, of a field defined by this DATA TYPE
