Routine: DINIT2B3

DINIT2B3 ;SFISC/MKO-SQLI FILES ;10:51 AM  30 Mar 1999

 ;;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) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y

 G ^DINIT2B4

Q Q

 ;;^DIC(1.5212,0,"GL")

 ;;=^DMSQ("DM",

 ;;^DIC("B","SQLI_DOMAIN",1.5212)

;;=

 ;;^DIC(1.5212,"%D",0)

 ;;=^^11^11^2970806^^

 ;;^DIC(1.5212,"%D",1,0)

 ;;=The set from which all objects of that domain must be drawn.

 ;;^DIC(1.5212,"%D",2,0)

 ;;=In SQLI, all table elements (SQLI_TABLE_ELEMENT) have a domain which

 ;;^DIC(1.5212,"%D",3,0)

 ;;=restricts them to their domain set. For each data type there is a domain

 ;;^DIC(1.5212,"%D",4,0)

 ;;=of the same name, representing the same set. Other domains have different

 ;;^DIC(1.5212,"%D",5,0)

 ;;=set membership restrictions.

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

;;=

 ;;^DIC(1.5212,"%D",7,0)

 ;;=Each domain has a data type, which determines the rules for comparing

 ;;^DIC(1.5212,"%D",8,0)

 ;;=values from different domains, and the operators which may be used on them.

 ;;^DIC(1.5212,"%D",9,0)

;;=

 ;;^DIC(1.5212,"%D",10,0)

 ;;=The PRIMARY_KEY data type and domain is unique to SQLI. It is used to

 ;;^DIC(1.5212,"%D",11,0)

 ;;=relate primary keys to foreign keys unambiguously (see SQLI_TABLE_ELEMENT)

 ;;^DD(1.5212,0)

 ;;=FIELD^^11^12

 ;;^DD(1.5212,0,"DDA")

 ;;=N

 ;;^DD(1.5212,0,"DT")

 ;;=2970225

 ;;^DD(1.5212,0,"IX","B",1.5212,.01)

;;=

 ;;^DD(1.5212,0,"IX","C",1.5212,3)

;;=

 ;;^DD(1.5212,0,"IX","D",1.5212,11)

;;=

 ;;^DD(1.5212,0,"IX","E",1.5212,1)

;;=

 ;;^DD(1.5212,0,"NM","SQLI_DOMAIN")

;;=

 ;;^DD(1.5212,0,"PT",1.5216,1)

;;=

 ;;^DD(1.5212,0,"VRPK")

 ;;=DI

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

 ;;=DM_NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'($TR(X,"_")?1U.UN) X

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

 ;;=Domain

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

 ;;=^.1

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

 ;;=1.5212^B

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

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

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

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

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

 ;;=Answer must be an SQL identifier 3-30 characters in length.

 ;;^DD(1.5212,.01,4)

 ;;=W ?5,"Must be a valid SQL identifier"

 ;;^DD(1.5212,.01,9)

 ;;=^

 ;;^DD(1.5212,.01,21,0)

 ;;=^^2^2^2970311^^^^

 ;;^DD(1.5212,.01,21,1,0)

 ;;=Name of FileMan domain

 ;;^DD(1.5212,.01,21,2,0)

 ;;=Includes names of standard SQL data types. Must not be a keyword.

 ;;^DD(1.5212,.01,"DT")

 ;;=2960820

 ;;^DD(1.5212,1,0)

 ;;=DM_DATA_TYPE^RP1.5211'^DMSQ("DT",^0;2^Q

 ;;^DD(1.5212,1,.1)

 ;;=Data Type

 ;;^DD(1.5212,1,1,0)

 ;;=^.1

 ;;^DD(1.5212,1,1,1,0)

 ;;=1.5212^E

 ;;^DD(1.5212,1,1,1,1)

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

 ;;^DD(1.5212,1,1,1,2)

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

 ;;^DD(1.5212,1,1,1,"%D",0)

 ;;=^^1^1^2960909^

 ;;^DD(1.5212,1,1,1,"%D",1,0)

 ;;=Domain by data type.

 ;;^DD(1.5212,1,1,1,"DT")

 ;;=2960909

 ;;^DD(1.5212,1,3)

;;=

 ;;^DD(1.5212,1,9)

 ;;=^

 ;;^DD(1.5212,1,21,0)

 ;;=^^1^1^2960926^

 ;;^DD(1.5212,1,21,1,0)

 ;;=IEN of a standard data type in SQLI_DATA_TYPE. Required.

 ;;^DD(1.5212,1,"DT")

 ;;=2960909

 ;;^DD(1.5212,2,0)

 ;;=DM_COMMENT^F^^0;3^K:$L(X)>60!($L(X)<3) X

 ;;^DD(1.5212,2,.1)

 ;;=Comment

 ;;^DD(1.5212,2,3)

 ;;=Answer must be 3-60 characters in length.

 ;;^DD(1.5212,2,9)

 ;;=^

 ;;^DD(1.5212,2,21,0)

 ;;=^^1^1^2960926^

 ;;^DD(1.5212,2,21,1,0)

 ;;=A short comment which describes the data type set

 ;;^DD(1.5212,2,"DT")

 ;;=2960926

 ;;^DD(1.5212,3,0)

 ;;=DM_TABLE^P1.5215'^DMSQ("T",^0;4^Q

 ;;^DD(1.5212,3,.1)

 ;;=Table

 ;;^DD(1.5212,3,1,0)

 ;;=^.1

 ;;^DD(1.5212,3,1,1,0)

 ;;=1.5212^C

 ;;^DD(1.5212,3,1,1,1)

 ;;=S ^DMSQ("DM","C",$E(X,1,30),DA)=""

 ;;^DD(1.5212,3,1,1,2)

 ;;=K ^DMSQ("DM","C",$E(X,1,30),DA)

 ;;^DD(1.5212,3,1,1,"%D",0)

 ;;=^^1^1^2960823^

 ;;^DD(1.5212,3,1,1,"%D",1,0)

 ;;=Domain by table id

 ;;^DD(1.5212,3,1,1,"DT")

 ;;=2960823

 ;;^DD(1.5212,3,3)

 ;;=Enter only if domain is a table-id

 ;;^DD(1.5212,3,9)

 ;;=^

 ;;^DD(1.5212,3,21,0)

 ;;=^^2^2^2960926^

 ;;^DD(1.5212,3,21,1,0)

 ;;=IEN of table in SQLI_TABLE if domain is of type PRIMARY_KEY

 ;;^DD(1.5212,3,21,2,0)

 ;;=Only primary and foreign keys have such domains.

 ;;^DD(1.5212,3,"DT")

 ;;=2960926

 ;;^DD(1.5212,4,0)

 ;;=DM_WIDTH^NJ3,0^^0;5^K:+X'=X!(X>255)!(X<1)!(X?.E1"."1N.N) X

 ;;^DD(1.5212,4,.1)

 ;;=Width

 ;;^DD(1.5212,4,3)

 ;;=Type a Number between 1 and 255, 0 Decimal Digits

 ;;^DD(1.5212,4,9)

 ;;=^

 ;;^DD(1.5212,4,21,0)

 ;;=^^1^1^2960926^

 ;;^DD(1.5212,4,21,1,0)

 ;;=Default display width. Overrides data type display width.

 ;;^DD(1.5212,4,"DT")

 ;;=2960926

 ;;^DD(1.5212,5,0)

 ;;=DM_SCALE^NJ1,0^^0;6^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X

 ;;^DD(1.5212,5,.1)

 ;;=Scale

 ;;^DD(1.5212,5,3)

 ;;=Type a Number between 0 and 9, 0 Decimal Digits

 ;;^DD(1.5212,5,9)

 ;;=^

 ;;^DD(1.5212,5,21,0)

 ;;=^^1^1^2960926^

 ;;^DD(1.5212,5,21,1,0)

 ;;=Default number of decimal places displayed for numbers.

 ;;^DD(1.5212,5,"DT")

 ;;=2960926

 ;;^DD(1.5212,6,0)

 ;;=DM_OUTPUT_FORMAT^P1.5214'^DMSQ("OF",^0;7^Q

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

 ;;=Output Format

 ;;^DD(1.5212,6,3)

;;=

 ;;^DD(1.5212,6,9)

 ;;=^

 ;;^DD(1.5212,6,21,0)

 ;;=^^2^2^2960926^

 ;;^DD(1.5212,6,21,1,0)

 ;;=Default output format for elements of this domain.

 ;;^DD(1.5212,6,21,2,0)

 ;;=Used to provide text value of pointer chains, etc.

 ;;^DD(1.5212,6,"DT")

 ;;=2960820

 ;;^DD(1.5212,7,0)

 ;;=DM_INT_EXPR^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM

 ;;^DD(1.5212,7,.1)

 ;;=Base to Internal Expression

 ;;^DD(1.5212,7,3)

 ;;=This is a Standard M expression to format X for output

 ;;^DD(1.5212,7,9)

 ;;=^

 ;;^DD(1.5212,7,21,0)

 ;;=^^2^2^2960926^

 ;;^DD(1.5212,7,21,1,0)

 ;;=An M expression which returns the internal value of a base value.

 ;;^DD(1.5212,7,21,2,0)

 ;;=Expression uses placeholder {B} to represent the base value

 ;;^DD(1.5212,7,"DT")

 ;;=2960926

 ;;^DD(1.5212,8,0)

 ;;=DM_INT_EXEC^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM

 ;;^DD(1.5212,8,.1)

 ;;=Base to Internal Execute

 ;;^DD(1.5212,8,3)

 ;;=This is Standard MUMPS code to format X for input

 ;;^DD(1.5212,8,9)

 ;;=^

 ;;^DD(1.5212,8,21,0)

 ;;=^^2^2^2960926^

 ;;^DD(1.5212,8,21,1,0)

 ;;=M code line which sets internal value, {I}, to some function of base

 ;;^DD(1.5212,8,21,2,0)

 ;;=value, {B}.

 ;;^DD(1.5212,8,"DT")

 ;;=2960926

 ;;^DD(1.5212,9,0)

 ;;=DM_BASE_EXPR^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM

 ;;^DD(1.5212,9,.1)

 ;;=Internal to Base Expression

 ;;^DD(1.5212,9,3)

 ;;=This is a Standard M expression to format X in internal form.

 ;;^DD(1.5212,9,9)

 ;;=^

 ;;^DD(1.5212,9,21,0)

 ;;=^^1^1^2960926^

 ;;^DD(1.5212,9,21,1,0)

 ;;=An M expression which returns the internal value of base value, {B}.

 ;;^DD(1.5212,9,"DT")

 ;;=2960926

 ;;^DD(1.5212,10,0)

 ;;=DM_BASE_EXEC^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM

 ;;^DD(1.5212,10,3)

 ;;=This is Standard MUMPS code.

 ;;^DD(1.5212,10,9)

 ;;=^

 ;;^DD(1.5212,10,21,0)

 ;;=^^1^1^2960820^

DINIT2B3  ;SFISC/MKO-SQLI FILES ;10:51 AM  30 Mar 1999

 +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=""

                   QUIT

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

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

               IF $ASCII(Y)=126

                   SET I=I+1

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

               IF $ASCII(Y)=61

                   SET Y=$EXTRACT(Y,2,999)

               SET @X=Y

 +4        GOTO ^DINIT2B4

Q          QUIT

 +1       ;;^DIC(1.5212,0,"GL")

 +2       ;;=^DMSQ("DM",

 +3       ;;^DIC("B","SQLI_DOMAIN",1.5212)

 +4       ;;=

 +5       ;;^DIC(1.5212,"%D",0)

 +6       ;;=^^11^11^2970806^^

 +7       ;;^DIC(1.5212,"%D",1,0)

 +8       ;;=The set from which all objects of that domain must be drawn.

 +9       ;;^DIC(1.5212,"%D",2,0)

 +10      ;;=In SQLI, all table elements (SQLI_TABLE_ELEMENT) have a domain which

 +11      ;;^DIC(1.5212,"%D",3,0)

 +12      ;;=restricts them to their domain set. For each data type there is a domain

 +13      ;;^DIC(1.5212,"%D",4,0)

 +14      ;;=of the same name, representing the same set. Other domains have different

 +15      ;;^DIC(1.5212,"%D",5,0)

 +16      ;;=set membership restrictions.

 +17      ;;^DIC(1.5212,"%D",6,0)

 +18      ;;=

 +19      ;;^DIC(1.5212,"%D",7,0)

 +20      ;;=Each domain has a data type, which determines the rules for comparing

 +21      ;;^DIC(1.5212,"%D",8,0)

 +22      ;;=values from different domains, and the operators which may be used on them.

 +23      ;;^DIC(1.5212,"%D",9,0)

 +24      ;;=

 +25      ;;^DIC(1.5212,"%D",10,0)

 +26      ;;=The PRIMARY_KEY data type and domain is unique to SQLI. It is used to

 +27      ;;^DIC(1.5212,"%D",11,0)

 +28      ;;=relate primary keys to foreign keys unambiguously (see SQLI_TABLE_ELEMENT)

 +29      ;;^DD(1.5212,0)

 +30      ;;=FIELD^^11^12

 +31      ;;^DD(1.5212,0,"DDA")

 +32      ;;=N

 +33      ;;^DD(1.5212,0,"DT")

 +34      ;;=2970225

 +35      ;;^DD(1.5212,0,"IX","B",1.5212,.01)

 +36      ;;=

 +37      ;;^DD(1.5212,0,"IX","C",1.5212,3)

 +38      ;;=

 +39      ;;^DD(1.5212,0,"IX","D",1.5212,11)

 +40      ;;=

 +41      ;;^DD(1.5212,0,"IX","E",1.5212,1)

 +42      ;;=

 +43      ;;^DD(1.5212,0,"NM","SQLI_DOMAIN")

 +44      ;;=

 +45      ;;^DD(1.5212,0,"PT",1.5216,1)

 +46      ;;=

 +47      ;;^DD(1.5212,0,"VRPK")

 +48      ;;=DI

 +49      ;;^DD(1.5212,.01,0)

 +50      ;;=DM_NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'($TR(X,"_")?1U.UN) X

 +51      ;;^DD(1.5212,.01,.1)

 +52      ;;=Domain

 +53      ;;^DD(1.5212,.01,1,0)

 +54      ;;=^.1

 +55      ;;^DD(1.5212,.01,1,1,0)

 +56      ;;=1.5212^B

 +57      ;;^DD(1.5212,.01,1,1,1)

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

 +59      ;;^DD(1.5212,.01,1,1,2)

 +60      ;;=K ^DMSQ("DM","B",$E(X,1,30),DA)

 +61      ;;^DD(1.5212,.01,3)

 +62      ;;=Answer must be an SQL identifier 3-30 characters in length.

 +63      ;;^DD(1.5212,.01,4)

 +64      ;;=W ?5,"Must be a valid SQL identifier"

 +65      ;;^DD(1.5212,.01,9)

 +66      ;;=^

 +67      ;;^DD(1.5212,.01,21,0)

 +68      ;;=^^2^2^2970311^^^^

 +69      ;;^DD(1.5212,.01,21,1,0)

 +70      ;;=Name of FileMan domain

 +71      ;;^DD(1.5212,.01,21,2,0)

 +72      ;;=Includes names of standard SQL data types. Must not be a keyword.

 +73      ;;^DD(1.5212,.01,"DT")

 +74      ;;=2960820

 +75      ;;^DD(1.5212,1,0)

 +76      ;;=DM_DATA_TYPE^RP1.5211'^DMSQ("DT",^0;2^Q

 +77      ;;^DD(1.5212,1,.1)

 +78      ;;=Data Type

 +79      ;;^DD(1.5212,1,1,0)

 +80      ;;=^.1

 +81      ;;^DD(1.5212,1,1,1,0)

 +82      ;;=1.5212^E

 +83      ;;^DD(1.5212,1,1,1,1)

 +84      ;;=S ^DMSQ("DM","E",$E(X,1,30),DA)=""

 +85      ;;^DD(1.5212,1,1,1,2)

 +86      ;;=K ^DMSQ("DM","E",$E(X,1,30),DA)

 +87      ;;^DD(1.5212,1,1,1,"%D",0)

 +88      ;;=^^1^1^2960909^

 +89      ;;^DD(1.5212,1,1,1,"%D",1,0)

 +90      ;;=Domain by data type.

 +91      ;;^DD(1.5212,1,1,1,"DT")

 +92      ;;=2960909

 +93      ;;^DD(1.5212,1,3)

 +94      ;;=

 +95      ;;^DD(1.5212,1,9)

 +96      ;;=^

 +97      ;;^DD(1.5212,1,21,0)

 +98      ;;=^^1^1^2960926^

 +99      ;;^DD(1.5212,1,21,1,0)

 +100     ;;=IEN of a standard data type in SQLI_DATA_TYPE. Required.

 +101     ;;^DD(1.5212,1,"DT")

 +102     ;;=2960909

 +103     ;;^DD(1.5212,2,0)

 +104     ;;=DM_COMMENT^F^^0;3^K:$L(X)>60!($L(X)<3) X

 +105     ;;^DD(1.5212,2,.1)

 +106     ;;=Comment

 +107     ;;^DD(1.5212,2,3)

 +108     ;;=Answer must be 3-60 characters in length.

 +109     ;;^DD(1.5212,2,9)

 +110     ;;=^

 +111     ;;^DD(1.5212,2,21,0)

 +112     ;;=^^1^1^2960926^

 +113     ;;^DD(1.5212,2,21,1,0)

 +114     ;;=A short comment which describes the data type set

 +115     ;;^DD(1.5212,2,"DT")

 +116     ;;=2960926

 +117     ;;^DD(1.5212,3,0)

 +118     ;;=DM_TABLE^P1.5215'^DMSQ("T",^0;4^Q

 +119     ;;^DD(1.5212,3,.1)

 +120     ;;=Table

 +121     ;;^DD(1.5212,3,1,0)

 +122     ;;=^.1

 +123     ;;^DD(1.5212,3,1,1,0)

 +124     ;;=1.5212^C

 +125     ;;^DD(1.5212,3,1,1,1)

 +126     ;;=S ^DMSQ("DM","C",$E(X,1,30),DA)=""

 +127     ;;^DD(1.5212,3,1,1,2)

 +128     ;;=K ^DMSQ("DM","C",$E(X,1,30),DA)

 +129     ;;^DD(1.5212,3,1,1,"%D",0)

 +130     ;;=^^1^1^2960823^

 +131     ;;^DD(1.5212,3,1,1,"%D",1,0)

 +132     ;;=Domain by table id

 +133     ;;^DD(1.5212,3,1,1,"DT")

 +134     ;;=2960823

 +135     ;;^DD(1.5212,3,3)

 +136     ;;=Enter only if domain is a table-id

 +137     ;;^DD(1.5212,3,9)

 +138     ;;=^

 +139     ;;^DD(1.5212,3,21,0)

 +140     ;;=^^2^2^2960926^

 +141     ;;^DD(1.5212,3,21,1,0)

 +142     ;;=IEN of table in SQLI_TABLE if domain is of type PRIMARY_KEY

 +143     ;;^DD(1.5212,3,21,2,0)

 +144     ;;=Only primary and foreign keys have such domains.

 +145     ;;^DD(1.5212,3,"DT")

 +146     ;;=2960926

 +147     ;;^DD(1.5212,4,0)

 +148     ;;=DM_WIDTH^NJ3,0^^0;5^K:+X'=X!(X>255)!(X<1)!(X?.E1"."1N.N) X

 +149     ;;^DD(1.5212,4,.1)

 +150     ;;=Width

 +151     ;;^DD(1.5212,4,3)

 +152     ;;=Type a Number between 1 and 255, 0 Decimal Digits

 +153     ;;^DD(1.5212,4,9)

 +154     ;;=^

 +155     ;;^DD(1.5212,4,21,0)

 +156     ;;=^^1^1^2960926^

 +157     ;;^DD(1.5212,4,21,1,0)

 +158     ;;=Default display width. Overrides data type display width.

 +159     ;;^DD(1.5212,4,"DT")

 +160     ;;=2960926

 +161     ;;^DD(1.5212,5,0)

 +162     ;;=DM_SCALE^NJ1,0^^0;6^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X

 +163     ;;^DD(1.5212,5,.1)

 +164     ;;=Scale

 +165     ;;^DD(1.5212,5,3)

 +166     ;;=Type a Number between 0 and 9, 0 Decimal Digits

 +167     ;;^DD(1.5212,5,9)

 +168     ;;=^

 +169     ;;^DD(1.5212,5,21,0)

 +170     ;;=^^1^1^2960926^

 +171     ;;^DD(1.5212,5,21,1,0)

 +172     ;;=Default number of decimal places displayed for numbers.

 +173     ;;^DD(1.5212,5,"DT")

 +174     ;;=2960926

 +175     ;;^DD(1.5212,6,0)

 +176     ;;=DM_OUTPUT_FORMAT^P1.5214'^DMSQ("OF",^0;7^Q

 +177     ;;^DD(1.5212,6,.1)

 +178     ;;=Output Format

 +179     ;;^DD(1.5212,6,3)

 +180     ;;=

 +181     ;;^DD(1.5212,6,9)

 +182     ;;=^

 +183     ;;^DD(1.5212,6,21,0)

 +184     ;;=^^2^2^2960926^

 +185     ;;^DD(1.5212,6,21,1,0)

 +186     ;;=Default output format for elements of this domain.

 +187     ;;^DD(1.5212,6,21,2,0)

 +188     ;;=Used to provide text value of pointer chains, etc.

 +189     ;;^DD(1.5212,6,"DT")

 +190     ;;=2960820

 +191     ;;^DD(1.5212,7,0)

 +192     ;;=DM_INT_EXPR^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM

 +193     ;;^DD(1.5212,7,.1)

 +194     ;;=Base to Internal Expression

 +195     ;;^DD(1.5212,7,3)

 +196     ;;=This is a Standard M expression to format X for output

 +197     ;;^DD(1.5212,7,9)

 +198     ;;=^

 +199     ;;^DD(1.5212,7,21,0)

 +200     ;;=^^2^2^2960926^

 +201     ;;^DD(1.5212,7,21,1,0)

 +202     ;;=An M expression which returns the internal value of a base value.

 +203     ;;^DD(1.5212,7,21,2,0)

 +204     ;;=Expression uses placeholder {B} to represent the base value

 +205     ;;^DD(1.5212,7,"DT")

 +206     ;;=2960926

 +207     ;;^DD(1.5212,8,0)

 +208     ;;=DM_INT_EXEC^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM

 +209     ;;^DD(1.5212,8,.1)

 +210     ;;=Base to Internal Execute

 +211     ;;^DD(1.5212,8,3)

 +212     ;;=This is Standard MUMPS code to format X for input

 +213     ;;^DD(1.5212,8,9)

 +214     ;;=^

 +215     ;;^DD(1.5212,8,21,0)

 +216     ;;=^^2^2^2960926^

 +217     ;;^DD(1.5212,8,21,1,0)

 +218     ;;=M code line which sets internal value, {I}, to some function of base

 +219     ;;^DD(1.5212,8,21,2,0)

 +220     ;;=value, {B}.

 +221     ;;^DD(1.5212,8,"DT")

 +222     ;;=2960926

 +223     ;;^DD(1.5212,9,0)

 +224     ;;=DM_BASE_EXPR^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM

 +225     ;;^DD(1.5212,9,.1)

 +226     ;;=Internal to Base Expression

 +227     ;;^DD(1.5212,9,3)

 +228     ;;=This is a Standard M expression to format X in internal form.

 +229     ;;^DD(1.5212,9,9)

 +230     ;;=^

 +231     ;;^DD(1.5212,9,21,0)

 +232     ;;=^^1^1^2960926^

 +233     ;;^DD(1.5212,9,21,1,0)

 +234     ;;=An M expression which returns the internal value of base value, {B}.

 +235     ;;^DD(1.5212,9,"DT")

 +236     ;;=2960926

 +237     ;;^DD(1.5212,10,0)

 +238     ;;=DM_BASE_EXEC^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM

 +239     ;;^DD(1.5212,10,3)

 +240     ;;=This is Standard MUMPS code.

 +241     ;;^DD(1.5212,10,9)

 +242     ;;=^

 +243     ;;^DD(1.5212,10,21,0)

 +244     ;;=^^1^1^2960820^

DINIT2B3.m