Changes between Version 14 and Version 15 of HL7TablesForVistA
- Timestamp:
- Nov 18, 2011, 3:23:33 PM (12 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
HL7TablesForVistA
v14 v15 19 19 == Data Dictionary for File 260 == 20 20 21 {{{ 22 STANDARD DATA DICTIONARY #260 -- VW HL7 TABLES FILE 23 AUG 17,2011@23:00:56 PAGE 1 24 STORED IN ^VWLEX(260, (8671 ENTRIES) SITE: Vista-Office EHR UCI: EHR,EHR 21 STANDARD DATA DICTIONARY #260 -- VW HL7 TABLES FILE NOV 18,2011@15:16:01 PAGE 1 22 STORED IN ^VWLEX(260, (9663 ENTRIES) SITE: Vista-Office EHR UCI: EHR,EHR 25 23 26 24 DATA NAME GLOBAL DATA 27 25 ELEMENT TITLE LOCATION TYPE 28 ------------------------------------------------------------------------------- 29 30 31 IDENTIFIED BY: TABLE (#.03), NAME (#.04)26 ----------------------------------------------------------------------------------------------------------------------------------- 27 28 29 IDENTIFIED BY: HL7 TABLE (#.03), NAME (#.04) 32 30 33 31 POINTED TO BY: ISO LANGUAGE CODE field (#250001) of the LANGUAGE File (#.85) 34 IDENTIFIER TYPE CODE field (#.02) of the PATIENT IDENTIFIER 35 sub-field (#2.000999999) of the PATIENT File (#2) 36 ASSIGNING AUTHORITY field (#.04) of the PATIENT IDENTIFIER 37 sub-field (#2.000999999) of the PATIENT File (#2) 38 ASSIGNING JURISDICTION field (#.1) of the PATIENT IDENTIFIER 39 sub-field (#2.000999999) of the PATIENT File (#2) 40 ASSIGNING AGENCY OR DEPARTMENT field (#.11) of the PATIENT 41 IDENTIFIER sub-field (#2.000999999) of the PATIENT File (#2) 42 TYPE OF IDENTIFIER field (#250001) of the IDENTIFICATION FORMAT 43 File (#8.2) 44 VW HL7 SPECIMEN TYPE field (#250002) of the TOPOGRAPHY FIELD 45 File (#61) 32 IDENTIFIER TYPE CODE field (#.02) of the PATIENT IDENTIFIER sub-field (#2.000999999) of the PATIENT File (#2) 33 ASSIGNING AUTHORITY field (#.04) of the PATIENT IDENTIFIER sub-field (#2.000999999) of the PATIENT File (#2) 34 ASSIGNING JURISDICTION field (#.1) of the PATIENT IDENTIFIER sub-field (#2.000999999) of the PATIENT File (#2) 35 ASSIGNING AGENCY OR DEPARTMENT field (#.11) of the PATIENT IDENTIFIER sub-field (#2.000999999) of the PATIENT File 36 (#2) 37 TYPE OF IDENTIFIER field (#250001) of the IDENTIFICATION FORMAT File (#8.2) 38 VW HL7 SPECIMEN TYPE field (#250002) of the TOPOGRAPHY FIELD File (#61) 46 39 REPLACEMENT TERM field (#.07) of the VW HL7 TABLES File (#260) 47 CODE SYSTEM field (#.04) of the VERSION sub-field (#260.001) of 48 the VW HL7 TABLES File (#260) 49 RELATED COUNTRY CODE field (#250001) of the COUNTRY CODE File 50 (#779.004) 51 VW HL7 CVX CODE field (#250001) of the IMMUNIZATION File 52 (#9999999.14) 40 CODE SYSTEM field (#.04) of the VERSION sub-field (#260.001) of the VW HL7 TABLES File (#260) 41 RELATED COUNTRY CODE field (#250001) of the COUNTRY CODE File (#779.004) 42 VW HL7 CVX CODE field (#250001) of the IMMUNIZATION File (#9999999.14) 53 43 54 44 … … 56 46 REFERENCED BY: TERM(B) 57 47 58 INDEXED BY: CODE ID & CODE SYSTEM (AC), TABLE VERSION & CODE SYSTEM & CODE 59 ID (AD), TABLE VERSION & CODE SYSTEM & CODE ID (AE), APPLICATION60 GROUP & APPLICATION USE (AG), TABLE & TERM STATUS (AH), TERM61 ( C), NAME (D), NAME (E), TABLE (H)48 INDEXED BY: CODE ID & CODE SYSTEM (AC), TABLE VERSION & CODE SYSTEM & CODE ID (AD), TABLE VERSION & CODE SYSTEM NAME & CODE ID 49 (AE), TABLE VERSION & CODE SYSTEM NAME & CODE ID (AE1), APPLICATION GROUP & APPLICATION USE (AG), HL7 TABLE & TERM 50 STATUS (AH), TERM (C), CODE SYSTEM NAME & CODE ID (CC), ULMS CUI (CUI), NAME (D), NAME (E), TABLE NAME (F), CODE ID 51 (G), HL7 TABLE (H), NON HL7 TABLE (HH) 62 52 63 53 … … 66 56 INPUT TRANSFORM: K:+X'=X!(X>1000000)!(X<1)!(X?.E1"."1.N) X 67 57 LAST EDITED: MAY 29, 2011 68 HELP-PROMPT: Type a number between 1 and 1000000, 0 decimal 69 digits. 70 TECHNICAL DESCR: Sequence number (#.001) defined to insure that 71 FileMan when installing/updating this file 72 loads entries based on the internal entry 73 number. 58 HELP-PROMPT: Type a number between 1 and 1000000, 0 decimal digits. 59 TECHNICAL DESCR: Sequence number (#.001) defined to insure that FileMan when installing/updating this file loads 60 entries based on the internal entry number. 74 61 75 62 … … 85 72 FIELD INDEX: C (#889) REGULAR IR LOOKUP & SORTING 86 73 Short Descr: Uppercase version of #.01 field 87 Description: Uppercase version of #.01 field to allow 88 lookups using uppercase when #.01 field is 89 mixed/lower case. 74 Description: Uppercase version of #.01 field to allow lookups using uppercase when #.01 field is mixed/lower 75 case. 90 76 Set Logic: S ^VWLEX(260,"C",$E(X,1,30),DA)="" 91 77 Kill Logic: K ^VWLEX(260,"C",$E(X,1,30),DA) 92 78 Whole Kill: K ^VWLEX(260,"C") 93 X(1): TERM (260,.01) (Subscr 1) (Len 30) 94 (forwards) 79 X(1): TERM (260,.01) (Subscr 1) (Len 30) (forwards) 95 80 Transform (Storage): S X=$$UP^XLFSTR(X) 96 81 Transform (Lookup): S X=$$UP^XLFSTR(X) … … 103 88 LAST EDITED: MAR 27, 2011 104 89 105 260,.03 TABLE0;3 FREE TEXT90 260,.03 HL7 TABLE 0;3 FREE TEXT 106 91 107 92 INPUT TRANSFORM: K:$L(X)>7!($L(X)<7)!'(X?1"HL7"4N) X 108 LAST EDITED: MAR 27, 201193 LAST EDITED: SEP 13, 2011 109 94 HELP-PROMPT: Answer must be 7 characters in length 110 DESCRIPTION: Indicates the HL7 table that is assocaited with 111 this term. The HL7 table desgination is in the 95 DESCRIPTION: Indicates the HL7 table that is associated with this term. The HL7 table desgination is in the 112 96 form HL7nnnn. 113 97 114 98 FIELD INDEX: H (#892) REGULAR IR LOOKUP & SORTING 115 99 Short Descr: Index of entries by HL7 table designation. 116 Description: Index of entries cross-referenced by the 117 assigned HL7 table designation. 100 Description: Index of entries cross-referenced by the assigned HL7 table designation. 118 101 Set Logic: S ^VWLEX(260,"H",$E(X,1,30),DA)="" 119 102 Kill Logic: K ^VWLEX(260,"H",$E(X,1,30),DA) 120 103 Whole Kill: K ^VWLEX(260,"H") 121 X(1): TABLE (260,.03) (Subscr 1) (Len 30) 122 (forwards) 104 X(1): HL7 TABLE (260,.03) (Subscr 1) (Len 30) (forwards) 123 105 124 106 RECORD INDEXES: AH (#888) 107 108 260,.031 TABLE NAME .1;1 FREE TEXT 109 110 INPUT TRANSFORM: K:$L(X)>45!($L(X)<1) X 111 LAST EDITED: AUG 22, 2011 112 HELP-PROMPT: Answer must be 1-45 characters in length. 113 DESCRIPTION: 114 Human readable name of the table. 115 116 FIELD INDEX: F (#896) REGULAR IR LOOKUP & SORTING 117 Short Descr: Whole file index on Table Name 118 Description: Index to cross reference entries by formal name of the table. 119 Set Logic: S ^VWLEX(260,"F",$E(X,1,45),DA)="" 120 Kill Logic: K ^VWLEX(260,"F",$E(X,1,45),DA) 121 Whole Kill: K ^VWLEX(260,"F") 122 X(1): TABLE NAME (260,.031) (Subscr 1) (Len 45) (forwards) 123 Transform (Storage): S X=$$UP^XLFSTR(X) 124 Transform (Lookup): S X=$$UP^XLFSTR(X) 125 126 127 260,.032 NON HL7 TABLE .1;2 FREE TEXT 128 129 INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X 130 LAST EDITED: SEP 13, 2011 131 HELP-PROMPT: Answer must be 1-15 characters in length. 132 DESCRIPTION: 133 Designation of the table when it's not part of the HL7 standard. 134 135 FIELD INDEX: HH (#898) REGULAR IR LOOKUP & SORTING 136 Short Descr: Index of entries by Non HL7 table designation. 137 Description: Index of entries cross-referenced by the assigned Non HL7 table designation when the table is not a 138 standard HL7 table. 139 Set Logic: S ^VWLEX(260,"HH",$E(X,1,30),DA)="" 140 Kill Logic: K ^VWLEX(260,"HH",$E(X,1,30),DA) 141 Whole Kill: K ^VWLEX(260,"HH") 142 X(1): NON HL7 TABLE (260,.032) (Subscr 1) (Len 30) (forwards) 143 125 144 126 145 260,.04 NAME 0;4 FREE TEXT … … 131 150 FIELD INDEX: D (#890) REGULAR IR LOOKUP & SORTING 132 151 Short Descr: Lookup on NAME field. 133 Description: Whole file cross-reference to allow lookups on 134 the NAME field (#.04). 152 Description: Whole file cross-reference to allow lookups on the NAME field (#.04). 135 153 Set Logic: S ^VWLEX(260,"D",$E(X,1,100),DA)="" 136 154 Kill Logic: K ^VWLEX(260,"D",$E(X,1,100),DA) 137 155 Whole Kill: K ^VWLEX(260,"D") 138 X(1): NAME (260,.04) (Subscr 1) (Len 100) 139 (forwards) 156 X(1): NAME (260,.04) (Subscr 1) (Len 100) (forwards) 140 157 141 158 FIELD INDEX: E (#891) REGULAR IR LOOKUP & SORTING 142 159 Short Descr: Uppercase version of NAME field (#.04) 143 Description: Uppercase version of #.04 field to allow 144 lookups using uppercase when #.04 field is 145 mixed/lower case. 160 Description: Uppercase version of #.04 field to allow lookups using uppercase when #.04 field is mixed/lower 161 case. 146 162 Set Logic: S ^VWLEX(260,"E",$E(X,1,100),DA)="" 147 163 Kill Logic: K ^VWLEX(260,"E",$E(X,1,100),DA) 148 164 Whole Kill: K ^VWLEX(260,"E") 149 X(1): NAME (260,.04) (Subscr 1) (Len 100) 150 (forwards) 165 X(1): NAME (260,.04) (Subscr 1) (Len 100) (forwards) 151 166 Transform (Storage): S X=$$UP^XLFSTR(X) 152 167 Transform (Lookup): S X=$$UP^XLFSTR(X) … … 158 173 LAST EDITED: FEB 03, 2011 159 174 HELP-PROMPT: Answer must be 3-64 characters in length. 160 DESCRIPTION: Indicates OID which explicitly identifies an 161 HL7 Version 2.x Table, as published in the HL7 162 Version 2 series of standards. 175 DESCRIPTION: Indicates OID which explicitly identifies an HL7 Version 2.x Table, as published in the HL7 Version 176 2 series of standards. 163 177 164 178 … … 171 185 LAST EDITED: MAY 29, 2011 172 186 HELP-PROMPT: Enter the status of this term. 173 DESCRIPTION: Indicates the status of this term and it's use 174 in messaging. 187 DESCRIPTION: Indicates the status of this term and it's use in messaging. 175 188 176 CODE: 0 will be used for terms currently 177 being used. 189 CODE: 0 will be used for terms currently being used. 178 190 179 CODE: 1 will not be used for current terms 180 however they are still used 191 CODE: 1 will not be used for current terms however they are still used 181 192 for historical purposes. 182 193 183 CODE: 2 will be used for terms that have 184 been deprecated and should no 185 longer be assigned. Sometimes they 186 have a new term issued 187 which replaces the deprecated term. 188 194 CODE: 2 will be used for terms that have been deprecated and should no 195 longer be assigned. Sometimes they have a new term issued 196 which replaces the deprecated term. 189 197 190 198 RECORD INDEXES: AH (#888) … … 192 200 260,.07 REPLACEMENT TERM 0;7 POINTER TO VW HL7 TABLES FILE (#260) 193 201 194 INPUT TRANSFORM: S DIC("S")="I $P(^VWLEX(260,Y,0),U,6)<1" D ^DIC 195 K DIC S DIC=$G(DIE),X=+Y K:Y<0 X 202 INPUT TRANSFORM: S DIC("S")="I $P(^VWLEX(260,Y,0),U,6)<1" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X 196 203 LAST EDITED: MAR 29, 2011 197 HELP-PROMPT: Enter the term which replaces this term in 198 current usage. 199 DESCRIPTION: Specifies the term which has replaced the 200 deprecated term. 204 HELP-PROMPT: Enter the term which replaces this term in current usage. 205 DESCRIPTION: 206 Specifies the term which has replaced the deprecated term. 201 207 202 208 SCREEN: S DIC("S")="I $P(^VWLEX(260,Y,0),U,6)<1" … … 208 214 '1' FOR STANDARD; 209 215 LAST EDITED: MAR 29, 2011 210 HELP-PROMPT: A term has a status of either standard or 211 locally added. 212 DESCRIPTION: Terms that are distributed with the file and/or 213 centrally maintained have a status of 214 "standard". Terms that are added for local 215 purposes that are not standard will have a 216 status of "local". 216 HELP-PROMPT: A term has a status of either standard or locally added. 217 DESCRIPTION: Terms that are distributed with the file and/or centrally maintained have a status of "standard". 218 Terms that are added for local purposes that are not standard will have a status of "local". 217 219 218 220 … … 220 222 221 223 222 260,1 VERSION 1;0 Multiple #260.001 223 (Add New Entry without Asking) 224 260,1 VERSION 1;0 Multiple #260.001 (Add New Entry without Asking) 224 225 225 226 LAST EDITED: MAR 19, 2011 … … 228 229 229 230 INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X 230 LAST EDITED: MAY 29, 2011231 LAST EDITED: SEP 13, 2011 231 232 HELP-PROMPT: Answer must be 1-10 characters in length 232 233 CROSS-REFERENCE: 260.001^B 233 1)= S ^VWLEX(260,DA(1),1,"B",$E(X,1,30),DA)=" 234 " 235 234 1)= S ^VWLEX(260,DA(1),1,"B",$E(X,1,30),DA)="" 236 235 2)= K ^VWLEX(260,DA(1),1,"B",$E(X,1,30),DA) 237 236 238 RECORD INDEXES: AD (#885) (WHOLE FILE #260), AE (#886) 239 (WHOLE FILE #260) 237 RECORD INDEXES: AD (#885) (WHOLE FILE #260), AE (#886) (WHOLE FILE #260), AE1 (#893) (WHOLE FILE #260) 240 238 241 239 260.001,.02 CODE ID 0;2 FREE TEXT 242 240 243 241 INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X 244 LAST EDITED: MAY 29, 2011242 LAST EDITED: OCT 25, 2011 245 243 HELP-PROMPT: Answer must be 1-15 characters in length 246 RECORD INDEXES: AC (#884) (WHOLE FILE #260), AD (#885) 247 (WHOLE FILE #260), AE (#886) (WHOLE FILE 248 #260) 244 FIELD INDEX: G (#897) REGULAR IR LOOKUP & SORTING WHOLE FILE (#260) 245 Short Descr: Whole file index on code id. 246 Description: Whole file cross reference to look up an entry by it's code id. 247 Set Logic: S ^VWLEX(260,"G",$E(X,1,30),DA(1),DA)="" 248 Kill Logic: K ^VWLEX(260,"G",$E(X,1,30),DA(1),DA) 249 Whole Kill: K ^VWLEX(260,"G") 250 X(1): CODE ID (260.001,.02) (Subscr 1) (Len 30) (forwards) 251 252 RECORD INDEXES: AC (#884) (WHOLE FILE #260), AD (#885) (WHOLE FILE #260), AE (#886) (WHOLE FILE #260), AE1 (#893) 253 (WHOLE FILE #260), CC (#894) (WHOLE FILE #260) 249 254 250 255 260.001,.03 CODE TEXT 0;3 FREE TEXT … … 256 261 260.001,.04 CODE SYSTEM 0;4 POINTER TO VW HL7 TABLES FILE (#260) 257 262 258 INPUT TRANSFORM:S DIC("S")="I $P(^VWLEX(260,Y,0),U,3)=""HL70396 259 """ D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X 260 LAST EDITED: MAY 29, 2011 261 HELP-PROMPT: Select the coding system this code is a member. 262 SCREEN: S DIC("S")="I $P(^VWLEX(260,Y,0),U,3)=""HL70396 263 """ 264 EXPLANATION: Only select entries that represent name of codi 265 ng systems 266 RECORD INDEXES: AC (#884) (WHOLE FILE #260), AD (#885) 267 (WHOLE FILE #260), AE (#886) (WHOLE FILE #260) 268 269 260.001,.05 CODE SYSTEM NAME 0;5 FREE TEXT 270 271 INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X 272 LAST EDITED: MAR 19, 2011 273 HELP-PROMPT: Answer must be 1-20 characters in length 274 275 260.001,.06 CODE SYSTEM OID 0;6 FREE TEXT 276 277 INPUT TRANSFORM:K:$L(X)>64!($L(X)<3) X 278 LAST EDITED: FEB 03, 2011 279 HELP-PROMPT: Answer must be 3-64 characters in length 280 281 260.001,.07 CODE STATUS 0;7 SET 282 283 '0' FOR ACTIVE; 284 '1' FOR INACTIVE; 285 '2' FOR DEPRECATED; 286 '3' FOR NEVER USED; 287 LAST EDITED: MAY 29, 2011 288 DESCRIPTION: Indicates the status of this code and it's use 289 in messaging. 290 291 CODE: 0 will be used for codes currently 292 being used. 293 294 CODE: 1 will not be used for current codes 295 however they are still used 296 for historical purposes. 297 298 CODE: 2 will be used for codes that have 299 been deprecated and should no 300 longer be assigned. Sometimes they 301 have a new code issued 302 which replaces the deprecated term. 303 304 305 306 260.001,.08 EFFECTIVE DATE 0;8 DATE 307 308 INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:X<1 X 309 LAST EDITED: MAR 18, 2011 310 HELP-PROMPT: (No range limit on date) 311 DESCRIPTION: The date this code was first active/effective 312 if applicable. 313 314 315 260.001,.09 EXPIRATION DATE 0;9 DATE 316 317 INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:X<1 X 318 LAST EDITED: MAR 18, 2011 319 HELP-PROMPT: (No range limit on date) 320 DESCRIPTION: The date this code was no longer valid 321 active/effective if applicable. 322 323 324 260.001,.1 CHECK DIGIT SCHEME 0;10 SET 325 326 '1' FOR ISO; 327 '2' FOR M10; 328 '3' FOR M11; 329 '4' FOR NPI; 330 '5' FOR BCV; 331 LAST EDITED: MAR 18, 2011 332 HELP-PROMPT: Enter the code identifying the check digit 333 scheme employed. 334 DESCRIPTION: Contains the code identifying the check digit 335 scheme employed. 336 337 TECHNICAL DESCR: HL7 Table 0061 - Check digit scheme 338 339 Value Description 340 Comment 341 BCV Bank Card Validation Number A 342 non-embossed number included on 343 bank 344 cards and used to validate 345 346 authenticity of the card and the 347 person 348 presenting the card 349 NPI Check digit algorithm in the 350 US National Provider Identifier 351 ISO ISO 7064: 1983 352 M10 Mod 10 algorithm 353 M11 Mod 11 algorithm 354 355 356 260.001,.11 CODE SYSTEM VERSION 1;1 FREE TEXT 357 358 INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X 359 LAST EDITED: MAR 19, 2011 360 HELP-PROMPT: Answer must be 1-20 characters in length 361 DESCRIPTION: When the code refers to a user defined or other 362 code system then the version of the code system 363 is recorded here. 364 365 This field is different from the table version 366 which usually refers to the version of the HL7 367 standard which this entry supports. 368 369 Example is HL7 table 0203 (IDENTIFIER TYPE) has 370 a user defined code issued by CDC for Org 371 Membership. This code has a version 20100308. 372 373 Concept Code.......: PHC40 374 Concept Name.......: Org Membership 375 Code System OID....: 2.16.840.1.114222.4.5.274 376 Code System Name...: PHIN VS (CDC Local Coding 377 System) 378 Code System Code...: PH_PHINVS_CDC 379 Code System Version: 20100308 380 HL70396 Table Code.: CDCPHINVS 381 382 383 260.001,.12 STATUS DATE 1;2 DATE 384 385 INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:2500101>X X 386 LAST EDITED: MAY 29, 2011 387 HELP-PROMPT: Type a date not earlier than JAN 01, 1950. 263 INPUT TRANSFORM: S DIC("S")="I $P(^VWLEX(260,Y,0),U,3)=""HL70396""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X 264 LAST EDITED: OCT 25, 2011 265 HELP-PROMPT: Select the coding system this code is a member. 266 SCREEN: S DIC("S")="I $P(^VWLEX(260,Y,0),U,3)=""HL70396""" 267 EXPLANATION: Only select entries that represent name of coding systems 268 RECORD INDEXES: AC (#884) (WHOLE FILE #260), AD (#885) (WHOLE FILE #260) 269 270 260.001,.05 CODE SYSTEM NAME 0;5 FREE TEXT 271 272 INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X 273 LAST EDITED: OCT 25, 2011 274 HELP-PROMPT: Answer must be 1-20 characters in length 275 RECORD INDEXES: AE (#886) (WHOLE FILE #260), AE1 (#893) (WHOLE FILE #260), CC (#894) (WHOLE FILE #260) 276 277 260.001,.06 CODE SYSTEM OID 0;6 FREE TEXT 278 279 INPUT TRANSFORM: K:$L(X)>64!($L(X)<3) X 280 LAST EDITED: FEB 03, 2011 281 HELP-PROMPT: Answer must be 3-64 characters in length 282 283 260.001,.07 CODE STATUS 0;7 SET 284 285 '0' FOR ACTIVE; 286 '1' FOR INACTIVE; 287 '2' FOR DEPRECATED; 288 '3' FOR NEVER USED; 289 LAST EDITED: MAY 29, 2011 290 DESCRIPTION: Indicates the status of this code and it's use in messaging. 291 292 CODE: 0 will be used for codes currently being used. 293 294 CODE: 1 will not be used for current codes however they are still used 295 for historical purposes. 296 297 CODE: 2 will be used for codes that have been deprecated and should no 298 longer be assigned. Sometimes they have a new code issued 299 which replaces the deprecated term. 300 301 302 260.001,.08 EFFECTIVE DATE 0;8 DATE 303 304 INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:X<1 X 305 LAST EDITED: MAR 18, 2011 306 HELP-PROMPT: (No range limit on date) 388 307 DESCRIPTION: 389 This is the date of this code version 308 The date this code was first active/effective if applicable. 309 310 311 260.001,.09 EXPIRATION DATE 0;9 DATE 312 313 INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:X<1 X 314 LAST EDITED: MAR 18, 2011 315 HELP-PROMPT: (No range limit on date) 316 DESCRIPTION: 317 The date this code was no longer valid active/effective if applicable. 318 319 320 260.001,.1 CHECK DIGIT SCHEME 0;10 SET 321 322 '1' FOR ISO; 323 '2' FOR M10; 324 '3' FOR M11; 325 '4' FOR NPI; 326 '5' FOR BCV; 327 LAST EDITED: MAR 18, 2011 328 HELP-PROMPT: Enter the code identifying the check digit scheme employed. 329 DESCRIPTION: 330 Contains the code identifying the check digit scheme employed. 331 332 TECHNICAL DESCR: HL7 Table 0061 - Check digit scheme 333 334 Value Description Comment 335 BCV Bank Card Validation Number A non-embossed number included on 336 bank cards and used to validate 337 authenticity of the card and the 338 person presenting the card 339 NPI Check digit algorithm in the 340 US National Provider Identifier 341 ISO ISO 7064: 1983 342 M10 Mod 10 algorithm 343 M11 Mod 11 algorithm 344 345 346 260.001,.11 CODE SYSTEM VERSION 1;1 FREE TEXT 347 348 INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X 349 LAST EDITED: MAR 19, 2011 350 HELP-PROMPT: Answer must be 1-20 characters in length 351 DESCRIPTION: When the code refers to a user defined or other code system then the version of the code system 352 is recorded here. 353 354 This field is different from the table version which usually refers to the version of the HL7 355 standard which this entry supports. 356 357 Example is HL7 table 0203 (IDENTIFIER TYPE) has a user defined code issued by CDC for Org 358 Membership. This code has a version 20100308. 359 360 Concept Code.......: PHC40 361 Concept Name.......: Org Membership 362 Code System OID....: 2.16.840.1.114222.4.5.274 363 Code System Name...: PHIN VS (CDC Local Coding System) 364 Code System Code...: PH_PHINVS_CDC 365 Code System Version: 20100308 366 HL70396 Table Code.: CDCPHINVS 367 368 369 260.001,.12 STATUS DATE 1;2 DATE 370 371 INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:2500101>X X 372 LAST EDITED: MAY 29, 2011 373 HELP-PROMPT: Type a date not earlier than JAN 01, 1950. 374 DESCRIPTION: 375 This is the date of this code version 376 377 378 260.001,.13 ULMS CUI 1;3 FREE TEXT 379 380 INPUT TRANSFORM: K:$L(X)>30!($L(X)<2)!'(X?1"C"1.29N) X 381 LAST EDITED: OCT 10, 2011 382 HELP-PROMPT: Answer must be letter 'C' followed by number 1-29 digits 383 FIELD INDEX: CUI (#895) REGULAR IR LOOKUP & SORTING WHOLE FILE (#260) 384 Short Descr: Index on the CUI associated with a term. 385 Description: Index of UMLS CUI assigned to a term. 386 Set Logic: S ^VWLEX(260,"CUI",$E(X,1,30),DA(1),DA)="" 387 Kill Logic: K ^VWLEX(260,"CUI",$E(X,1,30),DA(1),DA) 388 Whole Kill: K ^VWLEX(260,"CUI") 389 X(1): ULMS CUI (260.001,.13) (Subscr 1) (Len 30) (forwards) 390 390 391 391 … … 399 399 INPUT TRANSFORM: K:$L(X)>4!($L(X)<2)!'(X?2.4U) X 400 400 LAST EDITED: MAY 30, 2011 401 HELP-PROMPT: A 'NAMESPACE' (2-4 BYTES) indicating a 402 package screening this entry. 403 DESCRIPTION: Allows a 'package" to selectively screen the 404 codes that it uses/supports within a HL7 405 table. Useful when an application only uses a 406 subset of a HL7 or other user defined 407 table/code system. 401 HELP-PROMPT: A 'NAMESPACE' (2-4 BYTES) indicating a package screening this entry. 402 DESCRIPTION: Allows a 'package" to selectively screen the codes that it uses/supports within a HL7 table. 403 Useful when an application only uses a subset of a HL7 or other user defined table/code system. 408 404 409 405 CROSS-REFERENCE: 260.002^B 410 1)= S ^VWLEX(260,DA(1),2,"B",$E(X,1,30),DA)=" 411 " 412 406 1)= S ^VWLEX(260,DA(1),2,"B",$E(X,1,30),DA)="" 413 407 2)= K ^VWLEX(260,DA(1),2,"B",$E(X,1,30),DA) 414 408 … … 420 414 '1' FOR SELECTABLE; 421 415 LAST EDITED: MAY 30, 2011 422 HELP-PROMPT: Specify if this code or table element is 423 restricted or enabled. 424 DESCRIPTION: An application in conjunction with the 425 "APPLICATION GROUP" field can enable/disable 426 a specific member of an HL7 table or other 427 code system from use within the application. 428 429 Example is IMMUNIZATION may utilize the HL7 430 table 0163 (Body Site) and only uses a subset 431 of this table to indicate the site a vaccine 432 was administered. Or limit the vaccines (CVX) 433 or manufacturer codes (MVX) that can be 434 linked/used. 416 HELP-PROMPT: Specify if this code or table element is restricted or enabled. 417 DESCRIPTION: An application in conjunction with the "APPLICATION GROUP" field can enable/disable a specific 418 member of an HL7 table or other code system from use within the application. 419 420 Example is IMMUNIZATION may utilize the HL7 table 0163 (Body Site) and only uses a subset of this 421 table to indicate the site a vaccine was administered. Or limit the vaccines (CVX) or 422 manufacturer codes (MVX) that can be linked/used. 435 423 436 424 RECORD INDEXES: AG (#887) (WHOLE FILE #260) 425 426 427 428 260,3 RELATED ENTRIES 3;0 VARIABLE POINTER Multiple #260.003 429 430 260.003,.01 RELATED ENTRIES 0;1 VARIABLE POINTER 431 432 FILE ORDER PREFIX LAYGO MESSAGE 433 .85 1 L n Language 434 435 LAST EDITED: SEP 13, 2011 436 HELP-PROMPT: Select the related entry in the file which is to be associated with this term. 437 DESCRIPTION: 438 Allows related terms in files that are associated with this term to be linked to a specific term. 439 440 441 TECHNICAL DESCR: Allows terms in certain files that should not point to this file via a normal "pointed to" 442 relationship to be associated with a term. Acts as a type of "backward" pointer to files this 443 file supports. 444 445 Example is the LANGUAGE file (#.85) which needs to be installed as a "base" file to FileMan and 446 cannot have external relations to files that do not exist at the time of initial installation. 447 448 CROSS-REFERENCE: 260.003^B 449 1)= S ^VWLEX(260,DA(1),3,"B",$E(X,1,30),DA)="" 450 2)= K ^VWLEX(260,DA(1),3,"B",$E(X,1,30),DA) 451 3)= Required for Variable Pointer 452 437 453 438 454 … … 451 467 AH (#888) RECORD REGULAR IR SORTING ONLY 452 468 Short Descr: Index of HL7 table and status. 453 Description: Cross-reference which indexes the entries by HL7 table 454 number and term status. 469 Description: Cross-reference which indexes the entries by HL7 table number and term status. 455 470 Set Logic: S ^VWLEX(260,"AH",$E(X(1),1,30),X(2),DA)="" 456 471 Kill Logic: K ^VWLEX(260,"AH",$E(X(1),1,30),X(2),DA) 457 472 Whole Kill: K ^VWLEX(260,"AH") 458 X(1): TABLE (260,.03) (Subscr 1) (Len 30) (forwards)473 X(1): HL7 TABLE (260,.03) (Subscr 1) (Len 30) (forwards) 459 474 X(2): TERM STATUS (260,.06) (Subscr 2) (forwards) 460 475 … … 465 480 AC (#884) RECORD REGULAR IR SORTING ONLY WHOLE FILE (#260) 466 481 Short Descr: Cross reference a code to it's table 467 Description: Set up a cross-reference to allow looking up a code by it's 468 components - HL7 table, code and code system. 482 Description: Set up a cross-reference to allow looking up a code by it's components - HL7 table, code and code system. 469 483 Set Logic: S ^VWLEX(260,"AC",$E(X(1),1,30),X(2),DA(1),DA)="" 470 484 Kill Logic: K ^VWLEX(260,"AC",$E(X(1),1,30),X(2),DA(1),DA) … … 475 489 AD (#885) RECORD REGULAR IR SORTING ONLY WHOLE FILE (#260) 476 490 Short Descr: Cross reference a code to it's table and HL7 version 477 Description: Set up a cross-reference to allow looking up a code by it's 478 components - HL7 version, code and code system. 479 Set Logic: S ^VWLEX(260,"AD",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30) 480 ,DA(1),DA)="" 481 Kill Logic: K ^VWLEX(260,"AD",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30) 482 ,DA(1),DA) 491 Description: Set up a cross-reference to allow looking up a code by it's components - HL7 version, code and code system. 492 Set Logic: S ^VWLEX(260,"AD",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30),DA(1),DA)="" 493 Kill Logic: K ^VWLEX(260,"AD",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30),DA(1),DA) 483 494 Whole Kill: K ^VWLEX(260,"AD") 484 X(1): TABLE VERSION (260.001,.01) (Subscr 1) (Len 30) 485 (forwards) 486 X(2): CODE SYSTEM (260.001,.04) (Subscr 2) (Len 30) 487 (forwards) 495 X(1): TABLE VERSION (260.001,.01) (Subscr 1) (Len 30) (forwards) 496 X(2): CODE SYSTEM (260.001,.04) (Subscr 2) (Len 30) (forwards) 488 497 X(3): CODE ID (260.001,.02) (Subscr 3) (Len 30) (forwards) 489 498 490 499 AE (#886) RECORD REGULAR IR SORTING ONLY WHOLE FILE (#260) 491 500 Short Descr: Cross reference a code to it's table 492 Description: Set up a cross-reference to allow looking up a code by it's 493 components - HL7 table, HL7 version, code and code system. 494 Set Logic: S ^VWLEX(260,"AE",$E(X(2),1,30),$E(X(1),1,30),$E(X(3),1,30) 495 ,$E(X(4),1,30),DA(1),DA)="" 496 Kill Logic: K ^VWLEX(260,"AE",$E(X(2),1,30),$E(X(1),1,30),$E(X(3),1,30) 497 ,$E(X(4),1,30),DA(1),DA) 501 Description: Set up a cross-reference to allow looking up a code by it's components - HL7 table, HL7 version, code and code 502 system. 503 Set Logic: S ^VWLEX(260,"AE",$E(X(2),1,30),$E(X(1),1,30),$E(X(3),1,30),$E(X(4),1,30),DA(1),DA)="" 504 Set Cond: S X=$S(X(2)="HL70000":0,1:1) 505 Kill Logic: K ^VWLEX(260,"AE",$E(X(2),1,30),$E(X(1),1,30),$E(X(3),1,30),$E(X(4),1,30),DA(1),DA) 498 506 Whole Kill: K ^VWLEX(260,"AE") 499 X(1): TABLE VERSION (260.001,.01) (Subscr 2) (Len 30) 500 (forwards) 501 X(2): Computed Code: S X=$P(^VWLEX(260,DA,0),U,3) 507 X(1): TABLE VERSION (260.001,.01) (Subscr 2) (Len 30) (forwards) 508 X(2): Computed Code: S X=$P(^VWLEX(260,DA(1),0),U,3) 502 509 (Subscr 1) (Len 30) 503 X(3): CODE SYSTEM (260.001,.04) (Subscr 3) (Len 30) 504 (forwards) 510 X(3): CODE SYSTEM NAME (260.001,.05) (Subscr 3) (Len 30) (forwards) 505 511 X(4): CODE ID (260.001,.02) (Subscr 4) (Len 30) (forwards) 512 513 AE1 (#893) RECORD REGULAR IR SORTING ONLY WHOLE FILE (#260) 514 Short Descr: Cross reference a code to it's non-HL7 table 515 Description: Set up a cross-reference to allow looking up a code by it's components - non-HL7 table, HL7 version, code and 516 code system. 517 Set Logic: S ^VWLEX(260,"AE1",$E(X(1),1,30),$E(X(3),1,30),$E(X(4),1,30),DA(1),DA)="" 518 Set Cond: S X=$S(X(2)="":0,1:1) 519 Kill Logic: K ^VWLEX(260,"AE1",$E(X(1),1,30),$E(X(3),1,30),$E(X(4),1,30),DA(1),DA) 520 Whole Kill: K ^VWLEX(260,"AE1") 521 X(1): TABLE VERSION (260.001,.01) (Subscr 1) (Len 30) (forwards) 522 X(2): Computed Code: S X=$P($G(^VWLEX(260,DA(1),.1)),U,2) 523 524 X(3): CODE SYSTEM NAME (260.001,.05) (Subscr 2) (Len 30) (forwards) 525 X(4): CODE ID (260.001,.02) (Subscr 3) (Len 30) (forwards) 526 527 CC (#894) RECORD REGULAR IR LOOKUP & SORTING WHOLE FILE (#260) 528 Short Descr: Enables lookup by coding system concatenated with code ID. 529 Description: Index based on code system and code id. Can be used to lookup a specific code within a code system when the 530 code id is common to multiple code systems. 531 532 Syntax is code system concatenated with the code id. 533 534 Example "UCUM/L" for UCUM code /L - per liter 535 Set Logic: S ^VWLEX(260,"CC",X(3),DA(1),DA)="" 536 Kill Logic: K ^VWLEX(260,"CC",X(3),DA(1),DA) 537 Whole Kill: K ^VWLEX(260,"CC") 538 X(1): CODE SYSTEM NAME (260.001,.05) (forwards) 539 X(2): CODE ID (260.001,.02) (forwards) 540 X(3): Computed Code: S X=X(1)_X(2) 541 (Subscr 1) 542 Lookup Prompt: Coding System/Code ID pair 506 543 507 544 Subfile #260.002 … … 511 548 AG (#887) RECORD REGULAR IR SORTING ONLY WHOLE FILE (#260) 512 549 Short Descr: Application group index 513 Description: Index of terms that have been assigned an application group 514 and corresponding selection status for that term. 550 Description: Index of terms that have been assigned an application group and corresponding selection status for that term. 515 551 Set Logic: S ^VWLEX(260,"AG",$E(X(1),1,30),X(2),DA(1),DA)="" 516 552 Kill Logic: K ^VWLEX(260,"AG",$E(X(1),1,30),X(2),DA(1),DA) 517 553 Whole Kill: K ^VWLEX(260,"AG") 518 X(1): APPLICATION GROUP (260.002,.01) (Subscr 1) (Len 30) 519 (forwards) 554 X(1): APPLICATION GROUP (260.002,.01) (Subscr 1) (Len 30) (forwards) 520 555 X(2): APPLICATION USE (260.002,.02) (Subscr 2) (forwards) 521 556 … … 525 560 PRINT TEMPLATE(S): 526 561 CAPTIONED USER #0 527 ZZNANCYVacMan AUG 13, 2011@11:21 USER #9 @562 ZZNANCYVacMan AUG 13, 2011@11:21 USER #9 @ 528 563 529 564 SORT TEMPLATE(S): … … 534 569 FORM(S)/BLOCK(S): 535 570 536 }}}
