Routine: DINIT22

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  Feb 19, 2025@00:17:03                                                                                                                                                                                                     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

DINIT22.m