DINIT2B9 ;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 ^DINIT2BA
Q Q
;;^DIC(1.5217,0,"GL")
;;=^DMSQ("C",
;;^DIC("B","SQLI_COLUMN",1.5217)
;;=
;;^DIC(1.5217,"%D",0)
;;=^^6^6^2970806^^
;;^DIC(1.5217,"%D",1,0)
;;=A set of formatting and physical structure specifications.
;;^DIC(1.5217,"%D",2,0)
;;=Each column specification has a column type table element
;;^DIC(1.5217,"%D",3,0)
;;=(SQLI_TABLE_ELEMENT) which contains the relational specifications, name
;;^DIC(1.5217,"%D",4,0)
;;=and domain. The column specification contains those attributes required
;;^DIC(1.5217,"%D",5,0)
;;=to locate the value in the global structure, and to project the value to
;;^DIC(1.5217,"%D",6,0)
;;=the user.
;;^DD(1.5217,0)
;;=FIELD^^16^17
;;^DD(1.5217,0,"DT")
;;=2970311
;;^DD(1.5217,0,"IX","B",1.5217,.01)
;;=
;;^DD(1.5217,0,"IX","C",1.5217,8)
;;=
;;^DD(1.5217,0,"IX","D",1.5217,4)
;;=
;;^DD(1.5217,0,"IX","E",1.5217,16)
;;=
;;^DD(1.5217,0,"NM","SQLI_COLUMN")
;;=
;;^DD(1.5217,0,"PT",1.5217,8)
;;=
;;^DD(1.5217,0,"PT",1.5218,1)
;;=
;;^DD(1.5217,0,"PT",1.5219,2)
;;=
;;^DD(1.5217,0,"VRPK")
;;=DI
;;^DD(1.5217,.01,0)
;;=C_TABLE_ELEMENT^RP1.5216'^DMSQ("E",^0;1^Q
;;^DD(1.5217,.01,.1)
;;=Table Element
;;^DD(1.5217,.01,1,0)
;;=^.1
;;^DD(1.5217,.01,1,1,0)
;;=1.5217^B
;;^DD(1.5217,.01,1,1,1)
;;=S ^DMSQ("C","B",$E(X,1,30),DA)=""
;;^DD(1.5217,.01,1,1,2)
;;=K ^DMSQ("C","B",$E(X,1,30),DA)
;;^DD(1.5217,.01,3)
;;=
;;^DD(1.5217,.01,9)
;;=^
;;^DD(1.5217,.01,21,0)
;;=^^1^1^2960926^^
;;^DD(1.5217,.01,21,1,0)
;;=IEN of table element.
;;^DD(1.5217,.01,"DT")
;;=2960820
;;^DD(1.5217,1,0)
;;=C_FILE^NJ16,6^^0;5^K:+X'=X!(X>999999999.999999)!(X<1)!(X?.E1"."7N.N) X
;;^DD(1.5217,1,.1)
;;=File ID
;;^DD(1.5217,1,3)
;;=Type a Number between 1 and 999999999.999999, 6 Decimal Digits
;;^DD(1.5217,1,9)
;;=^
;;^DD(1.5217,1,21,0)
;;=^^2^2^2960926^
;;^DD(1.5217,1,21,1,0)
;;=FileMan file (or subfile) ID, if column was derived from ^DD.
;;^DD(1.5217,1,21,2,0)
;;= NULL if column is generated by SQLI.
;;^DD(1.5217,1,"DT")
;;=2960926
;;^DD(1.5217,2,0)
;;=C_WIDTH^NJ2,0^^0;2^K:+X'=X!(X>22)!(X<1)!(X?.E1"."1N.N) X
;;^DD(1.5217,2,.1)
;;=Width
;;^DD(1.5217,2,3)
;;=Type an integer between 1 and 999999999999999
;;^DD(1.5217,2,9)
;;=^
;;^DD(1.5217,2,21,0)
;;=^^3^3^2960926^
;;^DD(1.5217,2,21,1,0)
;;=Field width for display
;;^DD(1.5217,2,21,2,0)
;;=This field is estimated by SQLI from evidence in ^DD unless it's specified
;;^DD(1.5217,2,21,3,0)
;;=with J modifier.
;;^DD(1.5217,2,"DT")
;;=2960820
;;^DD(1.5217,3,0)
;;=C_SCALE^NJ1,0^^0;3^K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
;;^DD(1.5217,3,.1)
;;=Dec. Pt.
;;^DD(1.5217,3,3)
;;=Type a Number between 1 and 9, 0 Decimal Digits
;;^DD(1.5217,3,9)
;;=^
;;^DD(1.5217,3,21,0)
;;=^^2^2^2960926^
;;^DD(1.5217,3,21,1,0)
;;=Number of decimal points to display on output (numeric only).
;;^DD(1.5217,3,21,2,0)
;;=If scale is specified as 0, SQLI projects column as integer.
;;^DD(1.5217,3,"DT")
;;=2960926
;;^DD(1.5217,4,0)
;;=C_FIELD^NJ15,7^^0;6^K:+X'=X!(X>9999999.9999999)!(X<.001)!(X?.E1"."8N.N) X
;;^DD(1.5217,4,1,0)
;;=^.1
;;^DD(1.5217,4,1,1,0)
;;=1.5217^D^MUMPS
;;^DD(1.5217,4,1,1,1)
;;=S ^DMSQ("C","D",$P(^DMSQ("C",DA,0),U,5),X,DA)=""
;;^DD(1.5217,4,1,1,2)
;;=K ^DMSQ("C","D",$P(^DMSQ("C",DA,0),U,5),X,DA)
;;^DD(1.5217,4,1,1,"%D",0)
;;=^^1^1^2960827^
;;^DD(1.5217,4,1,1,"%D",1,0)
;;=Column by FileMan File number, by field number
;;^DD(1.5217,4,1,1,"DT")
;;=2960827
;;^DD(1.5217,4,3)
;;=Type a Number between .001 and 9999999.9999999, 7 Decimal Digits
;;^DD(1.5217,4,9)
;;=^
;;^DD(1.5217,4,21,0)
;;=^^2^2^2970311^^^
;;^DD(1.5217,4,21,1,0)
;;=FileMan field ID from ^DD
;;^DD(1.5217,4,21,2,0)
;;=NULL unless column is derived directly from the data dictionary.
;;^DD(1.5217,4,"DT")
;;=2970311
;;^DD(1.5217,5,0)
;;=C_NOT_NULL^S^0:Not required;1:Required;^0;7^Q
;;^DD(1.5217,5,.1)
;;=Req.
;;^DD(1.5217,5,9)
;;=^
;;^DD(1.5217,5,21,0)
;;=^^1^1^2960926^
;;^DD(1.5217,5,21,1,0)
;;=When true (1) value is required, when false (0) not required.
;;^DD(1.5217,5,"DT")
;;=2960926
;;^DD(1.5217,6,0)
;;=C_SECURE^S^0:Not secure;1:Secure;^0;8^Q
;;^DD(1.5217,6,.1)
;;=Secure
;;^DD(1.5217,6,9)
;;=^
;;^DD(1.5217,6,21,0)
;;=^^2^2^2960926^
;;^DD(1.5217,6,21,1,0)
;;=If true, there is a security screen, else not.
;;^DD(1.5217,6,21,2,0)
;;=When this flag is set, vendors should use DBS to retrieve data.
;;^DD(1.5217,6,"DT")
;;=2960926
;;^DD(1.5217,7,0)
;;=C_VIRTUAL^S^0:Base column;1:Calculated value column;^0;9^Q
;;^DD(1.5217,7,.1)
;;=Virtual
;;^DD(1.5217,7,9)
;;=^
;;^DD(1.5217,7,21,0)
;;=^^2^2^2960926^
;;^DD(1.5217,7,21,1,0)
;;=If true, the value is computed.
;;^DD(1.5217,7,21,2,0)
;;=Vendors should use DBS to get value.
;;^DD(1.5217,7,"DT")
;;=2960926
;;^DD(1.5217,8,0)
;;=C_PARENT^P1.5217'^DMSQ("C",^0;10^Q
;;^DD(1.5217,8,.1)
;;=Parent Column
;;^DD(1.5217,8,1,0)
;;=^.1
;;^DD(1.5217,8,1,1,0)
;;=1.5217^C
;;^DD(1.5217,8,1,1,1)
;;=S ^DMSQ("C","C",$E(X,1,30),DA)=""
;;^DD(1.5217,8,1,1,2)
;;=K ^DMSQ("C","C",$E(X,1,30),DA)
;;^DD(1.5217,8,1,1,"%D",0)
;;=^^1^1^2960823^
;;^DD(1.5217,8,1,1,"%D",1,0)
;;=Column by parent column
;;^DD(1.5217,8,1,1,"DT")
;;=2960823
;;^DD(1.5217,8,9)
;;=^
;;^DD(1.5217,8,21,0)
;;=^^2^2^2960926^
;;^DD(1.5217,8,21,1,0)
;;=Column whose physical global structure precedes this column.
;;^DD(1.5217,8,21,2,0)
;;=Used to construct global root. Chain goes back to ^DIC.
;;^DD(1.5217,8,"DT")
;;=2960926
;;^DD(1.5217,9,0)
;;=C_GLOBAL^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(1.5217,9,.1)
;;=Global
;;^DD(1.5217,9,3)
;;=M global fragment which precedes this element
;;^DD(1.5217,9,9)
;;=^
;;^DD(1.5217,9,21,0)
;;=^^3^3^2960926^
;;^DD(1.5217,9,21,1,0)
;;=M global fragment between this column and parent column.
;;^DD(1.5217,9,21,2,0)
;;=Contains node specifier for non-key columns. Key columns are constructed
;;^DD(1.5217,9,21,3,0)
;;=by SQLI and contain the multiple node specifier or ^DIC root.
;;^DD(1.5217,9,"DT")
;;=2960926
;;^DD(1.5217,10,0)
;;=C_PIECE^NJ2,0^^0;11^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
;;^DD(1.5217,10,.1)
;;=Piece
;;^DD(1.5217,10,3)
;;=Type a Number between 1 and 99, 0 Decimal Digits
;;^DD(1.5217,10,9)
;;=^
;;^DD(1.5217,10,21,0)
;;=^^2^2^2960926^
;;^DD(1.5217,10,21,1,0)
;;=The piece address of the column in a data string.
;;^DD(1.5217,10,21,2,0)
;;=If the piece address was of form E1,30, this value is null.
;;^DD(1.5217,10,"DT")
;;=2960926
;;^DD(1.5217,11,0)
;;=C_EXTRACT_FROM^NJ3,0^^0;12^K:+X'=X!(X>511)!(X<1)!(X?.E1"."1N.N) X
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT2B9 7319 printed Sep 23, 2025@20:27:48 Page 2
DINIT2B9 ;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 ^DINIT2BA
Q QUIT
+1 ;;^DIC(1.5217,0,"GL")
+2 ;;=^DMSQ("C",
+3 ;;^DIC("B","SQLI_COLUMN",1.5217)
+4 ;;=
+5 ;;^DIC(1.5217,"%D",0)
+6 ;;=^^6^6^2970806^^
+7 ;;^DIC(1.5217,"%D",1,0)
+8 ;;=A set of formatting and physical structure specifications.
+9 ;;^DIC(1.5217,"%D",2,0)
+10 ;;=Each column specification has a column type table element
+11 ;;^DIC(1.5217,"%D",3,0)
+12 ;;=(SQLI_TABLE_ELEMENT) which contains the relational specifications, name
+13 ;;^DIC(1.5217,"%D",4,0)
+14 ;;=and domain. The column specification contains those attributes required
+15 ;;^DIC(1.5217,"%D",5,0)
+16 ;;=to locate the value in the global structure, and to project the value to
+17 ;;^DIC(1.5217,"%D",6,0)
+18 ;;=the user.
+19 ;;^DD(1.5217,0)
+20 ;;=FIELD^^16^17
+21 ;;^DD(1.5217,0,"DT")
+22 ;;=2970311
+23 ;;^DD(1.5217,0,"IX","B",1.5217,.01)
+24 ;;=
+25 ;;^DD(1.5217,0,"IX","C",1.5217,8)
+26 ;;=
+27 ;;^DD(1.5217,0,"IX","D",1.5217,4)
+28 ;;=
+29 ;;^DD(1.5217,0,"IX","E",1.5217,16)
+30 ;;=
+31 ;;^DD(1.5217,0,"NM","SQLI_COLUMN")
+32 ;;=
+33 ;;^DD(1.5217,0,"PT",1.5217,8)
+34 ;;=
+35 ;;^DD(1.5217,0,"PT",1.5218,1)
+36 ;;=
+37 ;;^DD(1.5217,0,"PT",1.5219,2)
+38 ;;=
+39 ;;^DD(1.5217,0,"VRPK")
+40 ;;=DI
+41 ;;^DD(1.5217,.01,0)
+42 ;;=C_TABLE_ELEMENT^RP1.5216'^DMSQ("E",^0;1^Q
+43 ;;^DD(1.5217,.01,.1)
+44 ;;=Table Element
+45 ;;^DD(1.5217,.01,1,0)
+46 ;;=^.1
+47 ;;^DD(1.5217,.01,1,1,0)
+48 ;;=1.5217^B
+49 ;;^DD(1.5217,.01,1,1,1)
+50 ;;=S ^DMSQ("C","B",$E(X,1,30),DA)=""
+51 ;;^DD(1.5217,.01,1,1,2)
+52 ;;=K ^DMSQ("C","B",$E(X,1,30),DA)
+53 ;;^DD(1.5217,.01,3)
+54 ;;=
+55 ;;^DD(1.5217,.01,9)
+56 ;;=^
+57 ;;^DD(1.5217,.01,21,0)
+58 ;;=^^1^1^2960926^^
+59 ;;^DD(1.5217,.01,21,1,0)
+60 ;;=IEN of table element.
+61 ;;^DD(1.5217,.01,"DT")
+62 ;;=2960820
+63 ;;^DD(1.5217,1,0)
+64 ;;=C_FILE^NJ16,6^^0;5^K:+X'=X!(X>999999999.999999)!(X<1)!(X?.E1"."7N.N) X
+65 ;;^DD(1.5217,1,.1)
+66 ;;=File ID
+67 ;;^DD(1.5217,1,3)
+68 ;;=Type a Number between 1 and 999999999.999999, 6 Decimal Digits
+69 ;;^DD(1.5217,1,9)
+70 ;;=^
+71 ;;^DD(1.5217,1,21,0)
+72 ;;=^^2^2^2960926^
+73 ;;^DD(1.5217,1,21,1,0)
+74 ;;=FileMan file (or subfile) ID, if column was derived from ^DD.
+75 ;;^DD(1.5217,1,21,2,0)
+76 ;;= NULL if column is generated by SQLI.
+77 ;;^DD(1.5217,1,"DT")
+78 ;;=2960926
+79 ;;^DD(1.5217,2,0)
+80 ;;=C_WIDTH^NJ2,0^^0;2^K:+X'=X!(X>22)!(X<1)!(X?.E1"."1N.N) X
+81 ;;^DD(1.5217,2,.1)
+82 ;;=Width
+83 ;;^DD(1.5217,2,3)
+84 ;;=Type an integer between 1 and 999999999999999
+85 ;;^DD(1.5217,2,9)
+86 ;;=^
+87 ;;^DD(1.5217,2,21,0)
+88 ;;=^^3^3^2960926^
+89 ;;^DD(1.5217,2,21,1,0)
+90 ;;=Field width for display
+91 ;;^DD(1.5217,2,21,2,0)
+92 ;;=This field is estimated by SQLI from evidence in ^DD unless it's specified
+93 ;;^DD(1.5217,2,21,3,0)
+94 ;;=with J modifier.
+95 ;;^DD(1.5217,2,"DT")
+96 ;;=2960820
+97 ;;^DD(1.5217,3,0)
+98 ;;=C_SCALE^NJ1,0^^0;3^K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
+99 ;;^DD(1.5217,3,.1)
+100 ;;=Dec. Pt.
+101 ;;^DD(1.5217,3,3)
+102 ;;=Type a Number between 1 and 9, 0 Decimal Digits
+103 ;;^DD(1.5217,3,9)
+104 ;;=^
+105 ;;^DD(1.5217,3,21,0)
+106 ;;=^^2^2^2960926^
+107 ;;^DD(1.5217,3,21,1,0)
+108 ;;=Number of decimal points to display on output (numeric only).
+109 ;;^DD(1.5217,3,21,2,0)
+110 ;;=If scale is specified as 0, SQLI projects column as integer.
+111 ;;^DD(1.5217,3,"DT")
+112 ;;=2960926
+113 ;;^DD(1.5217,4,0)
+114 ;;=C_FIELD^NJ15,7^^0;6^K:+X'=X!(X>9999999.9999999)!(X<.001)!(X?.E1"."8N.N) X
+115 ;;^DD(1.5217,4,1,0)
+116 ;;=^.1
+117 ;;^DD(1.5217,4,1,1,0)
+118 ;;=1.5217^D^MUMPS
+119 ;;^DD(1.5217,4,1,1,1)
+120 ;;=S ^DMSQ("C","D",$P(^DMSQ("C",DA,0),U,5),X,DA)=""
+121 ;;^DD(1.5217,4,1,1,2)
+122 ;;=K ^DMSQ("C","D",$P(^DMSQ("C",DA,0),U,5),X,DA)
+123 ;;^DD(1.5217,4,1,1,"%D",0)
+124 ;;=^^1^1^2960827^
+125 ;;^DD(1.5217,4,1,1,"%D",1,0)
+126 ;;=Column by FileMan File number, by field number
+127 ;;^DD(1.5217,4,1,1,"DT")
+128 ;;=2960827
+129 ;;^DD(1.5217,4,3)
+130 ;;=Type a Number between .001 and 9999999.9999999, 7 Decimal Digits
+131 ;;^DD(1.5217,4,9)
+132 ;;=^
+133 ;;^DD(1.5217,4,21,0)
+134 ;;=^^2^2^2970311^^^
+135 ;;^DD(1.5217,4,21,1,0)
+136 ;;=FileMan field ID from ^DD
+137 ;;^DD(1.5217,4,21,2,0)
+138 ;;=NULL unless column is derived directly from the data dictionary.
+139 ;;^DD(1.5217,4,"DT")
+140 ;;=2970311
+141 ;;^DD(1.5217,5,0)
+142 ;;=C_NOT_NULL^S^0:Not required;1:Required;^0;7^Q
+143 ;;^DD(1.5217,5,.1)
+144 ;;=Req.
+145 ;;^DD(1.5217,5,9)
+146 ;;=^
+147 ;;^DD(1.5217,5,21,0)
+148 ;;=^^1^1^2960926^
+149 ;;^DD(1.5217,5,21,1,0)
+150 ;;=When true (1) value is required, when false (0) not required.
+151 ;;^DD(1.5217,5,"DT")
+152 ;;=2960926
+153 ;;^DD(1.5217,6,0)
+154 ;;=C_SECURE^S^0:Not secure;1:Secure;^0;8^Q
+155 ;;^DD(1.5217,6,.1)
+156 ;;=Secure
+157 ;;^DD(1.5217,6,9)
+158 ;;=^
+159 ;;^DD(1.5217,6,21,0)
+160 ;;=^^2^2^2960926^
+161 ;;^DD(1.5217,6,21,1,0)
+162 ;;=If true, there is a security screen, else not.
+163 ;;^DD(1.5217,6,21,2,0)
+164 ;;=When this flag is set, vendors should use DBS to retrieve data.
+165 ;;^DD(1.5217,6,"DT")
+166 ;;=2960926
+167 ;;^DD(1.5217,7,0)
+168 ;;=C_VIRTUAL^S^0:Base column;1:Calculated value column;^0;9^Q
+169 ;;^DD(1.5217,7,.1)
+170 ;;=Virtual
+171 ;;^DD(1.5217,7,9)
+172 ;;=^
+173 ;;^DD(1.5217,7,21,0)
+174 ;;=^^2^2^2960926^
+175 ;;^DD(1.5217,7,21,1,0)
+176 ;;=If true, the value is computed.
+177 ;;^DD(1.5217,7,21,2,0)
+178 ;;=Vendors should use DBS to get value.
+179 ;;^DD(1.5217,7,"DT")
+180 ;;=2960926
+181 ;;^DD(1.5217,8,0)
+182 ;;=C_PARENT^P1.5217'^DMSQ("C",^0;10^Q
+183 ;;^DD(1.5217,8,.1)
+184 ;;=Parent Column
+185 ;;^DD(1.5217,8,1,0)
+186 ;;=^.1
+187 ;;^DD(1.5217,8,1,1,0)
+188 ;;=1.5217^C
+189 ;;^DD(1.5217,8,1,1,1)
+190 ;;=S ^DMSQ("C","C",$E(X,1,30),DA)=""
+191 ;;^DD(1.5217,8,1,1,2)
+192 ;;=K ^DMSQ("C","C",$E(X,1,30),DA)
+193 ;;^DD(1.5217,8,1,1,"%D",0)
+194 ;;=^^1^1^2960823^
+195 ;;^DD(1.5217,8,1,1,"%D",1,0)
+196 ;;=Column by parent column
+197 ;;^DD(1.5217,8,1,1,"DT")
+198 ;;=2960823
+199 ;;^DD(1.5217,8,9)
+200 ;;=^
+201 ;;^DD(1.5217,8,21,0)
+202 ;;=^^2^2^2960926^
+203 ;;^DD(1.5217,8,21,1,0)
+204 ;;=Column whose physical global structure precedes this column.
+205 ;;^DD(1.5217,8,21,2,0)
+206 ;;=Used to construct global root. Chain goes back to ^DIC.
+207 ;;^DD(1.5217,8,"DT")
+208 ;;=2960926
+209 ;;^DD(1.5217,9,0)
+210 ;;=C_GLOBAL^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+211 ;;^DD(1.5217,9,.1)
+212 ;;=Global
+213 ;;^DD(1.5217,9,3)
+214 ;;=M global fragment which precedes this element
+215 ;;^DD(1.5217,9,9)
+216 ;;=^
+217 ;;^DD(1.5217,9,21,0)
+218 ;;=^^3^3^2960926^
+219 ;;^DD(1.5217,9,21,1,0)
+220 ;;=M global fragment between this column and parent column.
+221 ;;^DD(1.5217,9,21,2,0)
+222 ;;=Contains node specifier for non-key columns. Key columns are constructed
+223 ;;^DD(1.5217,9,21,3,0)
+224 ;;=by SQLI and contain the multiple node specifier or ^DIC root.
+225 ;;^DD(1.5217,9,"DT")
+226 ;;=2960926
+227 ;;^DD(1.5217,10,0)
+228 ;;=C_PIECE^NJ2,0^^0;11^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
+229 ;;^DD(1.5217,10,.1)
+230 ;;=Piece
+231 ;;^DD(1.5217,10,3)
+232 ;;=Type a Number between 1 and 99, 0 Decimal Digits
+233 ;;^DD(1.5217,10,9)
+234 ;;=^
+235 ;;^DD(1.5217,10,21,0)
+236 ;;=^^2^2^2960926^
+237 ;;^DD(1.5217,10,21,1,0)
+238 ;;=The piece address of the column in a data string.
+239 ;;^DD(1.5217,10,21,2,0)
+240 ;;=If the piece address was of form E1,30, this value is null.
+241 ;;^DD(1.5217,10,"DT")
+242 ;;=2960926
+243 ;;^DD(1.5217,11,0)
+244 ;;=C_EXTRACT_FROM^NJ3,0^^0;12^K:+X'=X!(X>511)!(X<1)!(X?.E1"."1N.N) X
