DINIT2B3 ;SFISC/MKO-SQLI FILES ;10:51 AM 30 Mar 1999
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;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.
;
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^
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT2B3 7263 printed Dec 13, 2024@02:51:36 Page 2
DINIT2B3 ;SFISC/MKO-SQLI FILES ;10:51 AM 30 Mar 1999
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+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 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
+8 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^
