| 1 | DINIT2B7 ;SFISC/MKO-SQLI FILES ;10:51 AM 30 Mar 1999
|
---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
| 4 | 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
|
---|
| 5 | G ^DINIT2B8
|
---|
| 6 | Q Q
|
---|
| 7 | ;;^DIC(1.5215,0,"GL")
|
---|
| 8 | ;;=^DMSQ("T",
|
---|
| 9 | ;;^DIC("B","SQLI_TABLE",1.5215)
|
---|
| 10 | ;;=
|
---|
| 11 | ;;^DIC(1.5215,"%D",0)
|
---|
| 12 | ;;=^^6^6^2970806^^^
|
---|
| 13 | ;;^DIC(1.5215,"%D",1,0)
|
---|
| 14 | ;;=Descriptor of a set of table elements: Includes name and file no.
|
---|
| 15 | ;;^DIC(1.5215,"%D",2,0)
|
---|
| 16 | ;;=(See SQLI_TABLE_ELEMENTS). Each ^DD(DA) represents a table in a relational
|
---|
| 17 | ;;^DIC(1.5215,"%D",3,0)
|
---|
| 18 | ;;=model of FileMan. Further, each index represents a table.
|
---|
| 19 | ;;^DIC(1.5215,"%D",4,0)
|
---|
| 20 | ;;=
|
---|
| 21 | ;;^DIC(1.5215,"%D",5,0)
|
---|
| 22 | ;;=Each schema contains multiple tables. Each table contains just one primary
|
---|
| 23 | ;;^DIC(1.5215,"%D",6,0)
|
---|
| 24 | ;;=key, but multiple columns, foreign keys and indicies.
|
---|
| 25 | ;;^DD(1.5215,0)
|
---|
| 26 | ;;=FIELD^^8^9
|
---|
| 27 | ;;^DD(1.5215,0,"DDA")
|
---|
| 28 | ;;=N
|
---|
| 29 | ;;^DD(1.5215,0,"DT")
|
---|
| 30 | ;;=2960913
|
---|
| 31 | ;;^DD(1.5215,0,"IX","B",1.5215,.01)
|
---|
| 32 | ;;=
|
---|
| 33 | ;;^DD(1.5215,0,"IX","C",1.5215,6)
|
---|
| 34 | ;;=
|
---|
| 35 | ;;^DD(1.5215,0,"IX","D",1.5215,8)
|
---|
| 36 | ;;=
|
---|
| 37 | ;;^DD(1.5215,0,"IX","E",1.5215,3)
|
---|
| 38 | ;;=
|
---|
| 39 | ;;^DD(1.5215,0,"NM","SQLI_TABLE")
|
---|
| 40 | ;;=
|
---|
| 41 | ;;^DD(1.5215,0,"PT",1.5212,3)
|
---|
| 42 | ;;=
|
---|
| 43 | ;;^DD(1.5215,0,"PT",1.5215,3)
|
---|
| 44 | ;;=
|
---|
| 45 | ;;^DD(1.5215,0,"PT",1.5216,2)
|
---|
| 46 | ;;=
|
---|
| 47 | ;;^DD(1.5215,0,"VRPK")
|
---|
| 48 | ;;=DI
|
---|
| 49 | ;;^DD(1.5215,.01,0)
|
---|
| 50 | ;;=T_NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'($TR(X,"_")?1U.UN) X
|
---|
| 51 | ;;^DD(1.5215,.01,.1)
|
---|
| 52 | ;;=Table
|
---|
| 53 | ;;^DD(1.5215,.01,1,0)
|
---|
| 54 | ;;=^.1
|
---|
| 55 | ;;^DD(1.5215,.01,1,1,0)
|
---|
| 56 | ;;=1.5215^B
|
---|
| 57 | ;;^DD(1.5215,.01,1,1,1)
|
---|
| 58 | ;;=S ^DMSQ("T","B",$E(X,1,30),DA)=""
|
---|
| 59 | ;;^DD(1.5215,.01,1,1,2)
|
---|
| 60 | ;;=K ^DMSQ("T","B",$E(X,1,30),DA)
|
---|
| 61 | ;;^DD(1.5215,.01,3)
|
---|
| 62 | ;;=Answer must be 3-30 characters in length.
|
---|
| 63 | ;;^DD(1.5215,.01,9)
|
---|
| 64 | ;;=^
|
---|
| 65 | ;;^DD(1.5215,.01,21,0)
|
---|
| 66 | ;;=^^1^1^2960926^
|
---|
| 67 | ;;^DD(1.5215,.01,21,1,0)
|
---|
| 68 | ;;=Table name must be a valid SQL identifier, unique by schema
|
---|
| 69 | ;;^DD(1.5215,.01,"DT")
|
---|
| 70 | ;;=2960820
|
---|
| 71 | ;;^DD(1.5215,1,0)
|
---|
| 72 | ;;=T_SCHEMA^RP1.521^DMSQ("S",^0;2^Q
|
---|
| 73 | ;;^DD(1.5215,1,.1)
|
---|
| 74 | ;;=Schema
|
---|
| 75 | ;;^DD(1.5215,1,9)
|
---|
| 76 | ;;=^
|
---|
| 77 | ;;^DD(1.5215,1,21,0)
|
---|
| 78 | ;;=^^1^1^2960926^^
|
---|
| 79 | ;;^DD(1.5215,1,21,1,0)
|
---|
| 80 | ;;=IEN in SQLI_SCHEMA of the schema to which this table belongs.
|
---|
| 81 | ;;^DD(1.5215,1,"DT")
|
---|
| 82 | ;;=2960913
|
---|
| 83 | ;;^DD(1.5215,2,0)
|
---|
| 84 | ;;=T_COMMENT^F^^0;3^K:$L(X)>70!($L(X)<3) X
|
---|
| 85 | ;;^DD(1.5215,2,.1)
|
---|
| 86 | ;;=Description
|
---|
| 87 | ;;^DD(1.5215,2,3)
|
---|
| 88 | ;;=Answer must be 3-70 characters in length.
|
---|
| 89 | ;;^DD(1.5215,2,9)
|
---|
| 90 | ;;=^
|
---|
| 91 | ;;^DD(1.5215,2,21,0)
|
---|
| 92 | ;;=^^1^1^2960926^^
|
---|
| 93 | ;;^DD(1.5215,2,21,1,0)
|
---|
| 94 | ;;=A short description of the table
|
---|
| 95 | ;;^DD(1.5215,2,"DT")
|
---|
| 96 | ;;=2960913
|
---|
| 97 | ;;^DD(1.5215,3,0)
|
---|
| 98 | ;;=T_MASTER_TABLE^P1.5215'^DMSQ("T",^0;4^Q
|
---|
| 99 | ;;^DD(1.5215,3,.1)
|
---|
| 100 | ;;=Master Table
|
---|
| 101 | ;;^DD(1.5215,3,1,0)
|
---|
| 102 | ;;=^.1
|
---|
| 103 | ;;^DD(1.5215,3,1,1,0)
|
---|
| 104 | ;;=1.5215^E
|
---|
| 105 | ;;^DD(1.5215,3,1,1,1)
|
---|
| 106 | ;;=S ^DMSQ("T","E",$E(X,1,30),DA)=""
|
---|
| 107 | ;;^DD(1.5215,3,1,1,2)
|
---|
| 108 | ;;=K ^DMSQ("T","E",$E(X,1,30),DA)
|
---|
| 109 | ;;^DD(1.5215,3,1,1,"%D",0)
|
---|
| 110 | ;;=^^1^1^2960904^
|
---|
| 111 | ;;^DD(1.5215,3,1,1,"%D",1,0)
|
---|
| 112 | ;;=Table by master table
|
---|
| 113 | ;;^DD(1.5215,3,1,1,"DT")
|
---|
| 114 | ;;=2960904
|
---|
| 115 | ;;^DD(1.5215,3,3)
|
---|
| 116 | ;;=Enter only if this table is an index
|
---|
| 117 | ;;^DD(1.5215,3,9)
|
---|
| 118 | ;;=^
|
---|
| 119 | ;;^DD(1.5215,3,21,0)
|
---|
| 120 | ;;=^^1^1^2960926^^^
|
---|
| 121 | ;;^DD(1.5215,3,21,1,0)
|
---|
| 122 | ;;=The table of which this table is an index. (Only index tables)
|
---|
| 123 | ;;^DD(1.5215,3,23,0)
|
---|
| 124 | ;;=^^1^1^2960926^^
|
---|
| 125 | ;;^DD(1.5215,3,23,1,0)
|
---|
| 126 | ;;=In SQL, and in the relational model, an index is just a table.
|
---|
| 127 | ;;^DD(1.5215,3,"DT")
|
---|
| 128 | ;;=2960913
|
---|
| 129 | ;;^DD(1.5215,4,0)
|
---|
| 130 | ;;=T_VERSION_FM^NJ9,0^^0;5^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
|
---|
| 131 | ;;^DD(1.5215,4,.1)
|
---|
| 132 | ;;=Version
|
---|
| 133 | ;;^DD(1.5215,4,3)
|
---|
| 134 | ;;=Type a Number between 1 and 999999999, 0 Decimal Digits
|
---|
| 135 | ;;^DD(1.5215,4,9)
|
---|
| 136 | ;;=^
|
---|
| 137 | ;;^DD(1.5215,4,21,0)
|
---|
| 138 | ;;=^^1^1^2960926^^
|
---|
| 139 | ;;^DD(1.5215,4,21,1,0)
|
---|
| 140 | ;;=The version number is updated by FileMan when ^DD or ^DIC changes.
|
---|
| 141 | ;;^DD(1.5215,4,"DT")
|
---|
| 142 | ;;=2960926
|
---|
| 143 | ;;^DD(1.5215,5,0)
|
---|
| 144 | ;;=T_ROW_COUNT^NJ9,0^^0;6^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
|
---|
| 145 | ;;^DD(1.5215,5,.1)
|
---|
| 146 | ;;=Row Count
|
---|
| 147 | ;;^DD(1.5215,5,3)
|
---|
| 148 | ;;=Type a Number between 0 and 999999999, 0 Decimal Digits
|
---|
| 149 | ;;^DD(1.5215,5,9)
|
---|
| 150 | ;;=^
|
---|
| 151 | ;;^DD(1.5215,5,21,0)
|
---|
| 152 | ;;=^^1^1^2960926^^
|
---|
| 153 | ;;^DD(1.5215,5,21,1,0)
|
---|
| 154 | ;;=This field should contain an estimate of the number of rows in the table
|
---|
| 155 | ;;^DD(1.5215,5,"DT")
|
---|
| 156 | ;;=2960926
|
---|
| 157 | ;;^DD(1.5215,6,0)
|
---|
| 158 | ;;=T_FILE^RNJ19,9O^^0;7^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."10N.N) X
|
---|
| 159 | ;;^DD(1.5215,6,.1)
|
---|
| 160 | ;;=Source File
|
---|
| 161 | ;;^DD(1.5215,6,1,0)
|
---|
| 162 | ;;=^.1
|
---|
| 163 | ;;^DD(1.5215,6,1,1,0)
|
---|
| 164 | ;;=1.5215^C
|
---|
| 165 | ;;^DD(1.5215,6,1,1,1)
|
---|
| 166 | ;;=S ^DMSQ("T","C",$E(X,1,30),DA)=""
|
---|
| 167 | ;;^DD(1.5215,6,1,1,2)
|
---|
| 168 | ;;=K ^DMSQ("T","C",$E(X,1,30),DA)
|
---|
| 169 | ;;^DD(1.5215,6,1,1,"%D",0)
|
---|
| 170 | ;;=^^1^1^2960902^^
|
---|
| 171 | ;;^DD(1.5215,6,1,1,"%D",1,0)
|
---|
| 172 | ;;=Table by source file index
|
---|
| 173 | ;;^DD(1.5215,6,1,1,"DT")
|
---|
| 174 | ;;=2960822
|
---|
| 175 | ;;^DD(1.5215,6,2)
|
---|
| 176 | ;;=S Y(0)=Y S Y=$S('Y:"",$D(^DIC(+Y)):$P(^(+Y,0),U),1:$O(^DD(+Y,0,"NM","")))
|
---|
| 177 | ;;^DD(1.5215,6,2.1)
|
---|
| 178 | ;;=S Y=$S('Y:"",$D(^DIC(+Y)):$P(^(+Y,0),U),1:$O(^DD(+Y,0,"NM","")))
|
---|
| 179 | ;;^DD(1.5215,6,3)
|
---|
| 180 | ;;=Type a Number between 0 and 999999999, 9 Decimal Digits
|
---|
| 181 | ;;^DD(1.5215,6,9)
|
---|
| 182 | ;;=^
|
---|
| 183 | ;;^DD(1.5215,6,21,0)
|
---|
| 184 | ;;=^^1^1^2960926^^^
|
---|
| 185 | ;;^DD(1.5215,6,21,1,0)
|
---|
| 186 | ;;=FileMan file number from which table is derived.
|
---|
| 187 | ;;^DD(1.5215,6,23,0)
|
---|
| 188 | ;;=^^1^1^2960926^^
|
---|
| 189 | ;;^DD(1.5215,6,23,1,0)
|
---|
| 190 | ;;=This may be a subfile number
|
---|
| 191 | ;;^DD(1.5215,6,"DT")
|
---|
| 192 | ;;=2960908
|
---|
| 193 | ;;^DD(1.5215,7,0)
|
---|
| 194 | ;;=T_UPDATE^D^^0;8^S %DT="EX" D ^%DT S X=Y K:Y<1 X
|
---|
| 195 | ;;^DD(1.5215,7,.1)
|
---|
| 196 | ;;=Last Updated
|
---|
| 197 | ;;^DD(1.5215,7,9)
|
---|
| 198 | ;;=^
|
---|
| 199 | ;;^DD(1.5215,7,21,0)
|
---|
| 200 | ;;=^^1^1^2960926^
|
---|
| 201 | ;;^DD(1.5215,7,21,1,0)
|
---|
| 202 | ;;=Date last updated.
|
---|
| 203 | ;;^DD(1.5215,7,"DT")
|
---|
| 204 | ;;=2960821
|
---|
| 205 | ;;^DD(1.5215,8,0)
|
---|
| 206 | ;;=T_GLOBAL^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
|
---|
| 207 | ;;^DD(1.5215,8,.1)
|
---|
| 208 | ;;=Global Root
|
---|
| 209 | ;;^DD(1.5215,8,1,0)
|
---|
| 210 | ;;=^.1
|
---|
| 211 | ;;^DD(1.5215,8,1,1,0)
|
---|
| 212 | ;;=1.5215^D
|
---|
| 213 | ;;^DD(1.5215,8,1,1,1)
|
---|
| 214 | ;;=S ^DMSQ("T","D",$E(X,1,30),DA)=""
|
---|
| 215 | ;;^DD(1.5215,8,1,1,2)
|
---|
| 216 | ;;=K ^DMSQ("T","D",$E(X,1,30),DA)
|
---|
| 217 | ;;^DD(1.5215,8,1,1,"%D",0)
|
---|
| 218 | ;;=^^1^1^2960822^
|
---|
| 219 | ;;^DD(1.5215,8,1,1,"%D",1,0)
|
---|
| 220 | ;;=Table by global name. Used for structural study.
|
---|
| 221 | ;;^DD(1.5215,8,1,1,"DT")
|
---|
| 222 | ;;=2960822
|
---|
| 223 | ;;^DD(1.5215,8,3)
|
---|
| 224 | ;;=A valid M global variable name using {K} for subscripts
|
---|
| 225 | ;;^DD(1.5215,8,9)
|
---|
| 226 | ;;=^
|
---|
| 227 | ;;^DD(1.5215,8,21,0)
|
---|
| 228 | ;;=^^2^2^2960926^^^^
|
---|
| 229 | ;;^DD(1.5215,8,21,1,0)
|
---|
| 230 | ;;=Global variable name. {K} stands for a subscript
|
---|
| 231 | ;;^DD(1.5215,8,21,2,0)
|
---|
| 232 | ;;=E.g.: ^DIC(9.4,{K},3,{K},4,{K})
|
---|
| 233 | ;;^DD(1.5215,8,23,0)
|
---|
| 234 | ;;=^^1^1^2960926^^^
|
---|
| 235 | ;;^DD(1.5215,8,23,1,0)
|
---|
| 236 | ;;=Used to piece out global fragments for columns
|
---|
| 237 | ;;^DD(1.5215,8,"DT")
|
---|
| 238 | ;;=2960926
|
---|