| | 1 | HL7 Messages including those for Meaningful Use require a lot of standardized entries that come from HL7 Tables. Those tables are often based on standards or information provided by others. For Meaningful Use, there were three HL7 messages required, one for Lab Results, one for Reporting Lab Results to Public Health Agencies and one for Immunization Reporting. There were two guides provided for the latter that are posted on the CDC web site and each contained a number of tables. |
| | 2 | |
| | 3 | John McCormack has created a new file, file 260 in the VW or WorldVistA namespace called the VW HL7 TABLES. A build has been loaded and as improvements are made, more will be uploaded here. |
| | 4 | |
| | 5 | The data dictionary for the current iteration follows. |
| | 6 | |
| | 7 | There are many more HL7 tables to be added, but this build contains several already. I am sure that when you review the data dictionary and all the contents you will realize that this work is substantial in size and usefulness and took a lot of work to build! |
| | 8 | |
| | 9 | We hope that you will try it, make suggestions and hopefully even adopt his file. |
| | 10 | |
| | 11 | - Nancy Anthracite |
| | 12 | |
| | 13 | Select OPTION: 8 DATA DICTIONARY UTILITIES |
| | 14 | Select DATA DICTIONARY UTILITY OPTION: 1 LIST FILE ATTRIBUTES |
| | 15 | START WITH WHAT FILE: VW HL7 TABLES// |
| | 16 | GO TO WHAT FILE: VW HL7 TABLES// |
| | 17 | Select SUB-FILE: |
| | 18 | Select LISTING FORMAT: STANDARD// |
| | 19 | Start with field: FIRST// |
| | 20 | DEVICE: ;;999 TELNET |
| | 21 | STANDARD DATA DICTIONARY #260 -- VW HL7 TABLES FILE |
| | 22 | AUG 17,2011@11:31:09 PAGE 1 |
| | 23 | STORED IN ^VWLEX(260, (8671 ENTRIES) SITE: Vista-Office EHR UCI: EHR,EHR |
| | 24 | |
| | 25 | DATA NAME GLOBAL DATA |
| | 26 | ELEMENT TITLE LOCATION TYPE |
| | 27 | ------------------------------------------------------------------------------- |
| | 28 | |
| | 29 | |
| | 30 | IDENTIFIED BY: TABLE (#.03), NAME (#.04) |
| | 31 | |
| | 32 | POINTED TO BY: ISO LANGUAGE CODE field (#250001) of the LANGUAGE File (#.85) |
| | 33 | IDENTIFIER TYPE CODE field (#.02) of the PATIENT IDENTIFIER |
| | 34 | sub-field (#2.000999999) of the PATIENT File (#2) |
| | 35 | ASSIGNING AUTHORITY field (#.04) of the PATIENT IDENTIFIER |
| | 36 | sub-field (#2.000999999) of the PATIENT File (#2) |
| | 37 | ASSIGNING JURISDICTION field (#.1) of the PATIENT IDENTIFIER |
| | 38 | sub-field (#2.000999999) of the PATIENT File (#2) |
| | 39 | ASSIGNING AGENCY OR DEPARTMENT field (#.11) of the PATIENT |
| | 40 | IDENTIFIER sub-field (#2.000999999) of the PATIENT File (#2) |
| | 41 | TYPE OF IDENTIFIER field (#250001) of the IDENTIFICATION FORMAT |
| | 42 | File (#8.2) |
| | 43 | VW HL7 SPECIMEN TYPE field (#250002) of the TOPOGRAPHY FIELD |
| | 44 | File (#61) |
| | 45 | REPLACEMENT TERM field (#.07) of the VW HL7 TABLES File (#260) |
| | 46 | CODE SYSTEM field (#.04) of the VERSION sub-field (#260.001) of |
| | 47 | the VW HL7 TABLES File (#260) |
| | 48 | RELATED COUNTRY CODE field (#250001) of the COUNTRY CODE File |
| | 49 | (#779.004) |
| | 50 | VW HL7 CVX CODE field (#250001) of the IMMUNIZATION File |
| | 51 | (#9999999.14) |
| | 52 | |
| | 53 | |
| | 54 | CROSS |
| | 55 | REFERENCED BY: TERM(B) |
| | 56 | |
| | 57 | INDEXED BY: CODE ID & CODE SYSTEM (AC), TABLE VERSION & CODE SYSTEM & CODE |
| | 58 | ID (AD), TABLE VERSION & CODE SYSTEM & CODE ID (AE), APPLICATION |
| | 59 | GROUP & APPLICATION USE (AG), TABLE & TERM STATUS (AH), TERM |
| | 60 | (C), NAME (D), NAME (E), TABLE (H) |
| | 61 | |
| | 62 | |
| | 63 | 260,.001 SEQUENCE NUMBER |
| | 64 | |
| | 65 | INPUT TRANSFORM: K:+X'=X!(X>1000000)!(X<1)!(X?.E1"."1.N) X |
| | 66 | LAST EDITED: MAY 29, 2011 |
| | 67 | HELP-PROMPT: Type a number between 1 and 1000000, 0 decimal |
| | 68 | digits. |
| | 69 | TECHNICAL DESCR: Sequence number (#.001) defined to insure that |
| | 70 | FileMan when installing/updating this file |
| | 71 | loads entries based on the internal entry |
| | 72 | number. |
| | 73 | |
| | 74 | |
| | 75 | 260,.01 TERM 0;1 FREE TEXT (Required) |
| | 76 | |
| | 77 | INPUT TRANSFORM: K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X |
| | 78 | LAST EDITED: MAR 27, 2011 |
| | 79 | HELP-PROMPT: Answer must be 1-30 characters in length |
| | 80 | CROSS-REFERENCE: 260^B |
| | 81 | 1)= S ^VWLEX(260,"B",$E(X,1,30),DA)="" |
| | 82 | 2)= K ^VWLEX(260,"B",$E(X,1,30),DA) |
| | 83 | |
| | 84 | FIELD INDEX: C (#889) REGULAR IR LOOKUP & SORTING |
| | 85 | Short Descr: Uppercase version of #.01 field |
| | 86 | Description: Uppercase version of #.01 field to allow |
| | 87 | lookups using uppercase when #.01 field is |
| | 88 | mixed/lower case. |
| | 89 | Set Logic: S ^VWLEX(260,"C",$E(X,1,30),DA)="" |
| | 90 | Kill Logic: K ^VWLEX(260,"C",$E(X,1,30),DA) |
| | 91 | Whole Kill: K ^VWLEX(260,"C") |
| | 92 | X(1): TERM (260,.01) (Subscr 1) (Len 30) |
| | 93 | (forwards) |
| | 94 | Transform (Storage): S X=$$UP^XLFSTR(X) |
| | 95 | Transform (Lookup): S X=$$UP^XLFSTR(X) |
| | 96 | |
| | 97 | |
| | 98 | 260,.02 CODE TYPE 0;2 SET |
| | 99 | |
| | 100 | '1' FOR HL7; |
| | 101 | '2' FOR USER; |
| | 102 | LAST EDITED: MAR 27, 2011 |
| | 103 | |
| | 104 | 260,.03 TABLE 0;3 FREE TEXT |
| | 105 | |
| | 106 | INPUT TRANSFORM: K:$L(X)>7!($L(X)<7)!'(X?1"HL7"4N) X |
| | 107 | LAST EDITED: MAR 27, 2011 |
| | 108 | HELP-PROMPT: Answer must be 7 characters in length |
| | 109 | DESCRIPTION: Indicates the HL7 table that is assocaited with |
| | 110 | this term. The HL7 table desgination is in the |
| | 111 | form HL7nnnn. |
| | 112 | |
| | 113 | FIELD INDEX: H (#892) REGULAR IR LOOKUP & SORTING |
| | 114 | Short Descr: Index of entries by HL7 table designation. |
| | 115 | Description: Index of entries cross-referenced by the |
| | 116 | assigned HL7 table designation. |
| | 117 | Set Logic: S ^VWLEX(260,"H",$E(X,1,30),DA)="" |
| | 118 | Kill Logic: K ^VWLEX(260,"H",$E(X,1,30),DA) |
| | 119 | Whole Kill: K ^VWLEX(260,"H") |
| | 120 | X(1): TABLE (260,.03) (Subscr 1) (Len 30) |
| | 121 | (forwards) |
| | 122 | |
| | 123 | RECORD INDEXES: AH (#888) |
| | 124 | |
| | 125 | 260,.04 NAME 0;4 FREE TEXT |
| | 126 | |
| | 127 | INPUT TRANSFORM: K:$L(X)>100!($L(X)<3) X |
| | 128 | LAST EDITED: FEB 06, 2011 |
| | 129 | HELP-PROMPT: Answer must be 3-100 characters in length |
| | 130 | FIELD INDEX: D (#890) REGULAR IR LOOKUP & SORTING |
| | 131 | Short Descr: Lookup on NAME field. |
| | 132 | Description: Whole file cross-reference to allow lookups on |
| | 133 | the NAME field (#.04). |
| | 134 | Set Logic: S ^VWLEX(260,"D",$E(X,1,100),DA)="" |
| | 135 | Kill Logic: K ^VWLEX(260,"D",$E(X,1,100),DA) |
| | 136 | Whole Kill: K ^VWLEX(260,"D") |
| | 137 | X(1): NAME (260,.04) (Subscr 1) (Len 100) |
| | 138 | (forwards) |
| | 139 | |
| | 140 | FIELD INDEX: E (#891) REGULAR IR LOOKUP & SORTING |
| | 141 | Short Descr: Uppercase version of NAME field (#.04) |
| | 142 | Description: Uppercase version of #.04 field to allow |
| | 143 | lookups using uppercase when #.04 field is |
| | 144 | mixed/lower case. |
| | 145 | Set Logic: S ^VWLEX(260,"E",$E(X,1,100),DA)="" |
| | 146 | Kill Logic: K ^VWLEX(260,"E",$E(X,1,100),DA) |
| | 147 | Whole Kill: K ^VWLEX(260,"E") |
| | 148 | X(1): NAME (260,.04) (Subscr 1) (Len 100) |
| | 149 | (forwards) |
| | 150 | Transform (Storage): S X=$$UP^XLFSTR(X) |
| | 151 | Transform (Lookup): S X=$$UP^XLFSTR(X) |
| | 152 | |
| | 153 | |
| | 154 | 260,.05 TABLE OID 0;5 FREE TEXT |
| | 155 | |
| | 156 | INPUT TRANSFORM: K:$L(X)>64!($L(X)<3) X |
| | 157 | LAST EDITED: FEB 03, 2011 |
| | 158 | HELP-PROMPT: Answer must be 3-64 characters in length. |
| | 159 | DESCRIPTION: Indicates OID which explicitly identifies an |
| | 160 | HL7 Version 2.x Table, as published in the HL7 |
| | 161 | Version 2 series of standards. |
| | 162 | |
| | 163 | |
| | 164 | 260,.06 TERM STATUS 0;6 SET |
| | 165 | |
| | 166 | '0' FOR ACTIVE; |
| | 167 | '1' FOR INACTIVE; |
| | 168 | '2' FOR DEPRECATED; |
| | 169 | '3' FOR NEVER USED; |
| | 170 | LAST EDITED: MAY 29, 2011 |
| | 171 | HELP-PROMPT: Enter the status of this term. |
| | 172 | DESCRIPTION: Indicates the status of this term and it's use |
| | 173 | in messaging. |
| | 174 | |
| | 175 | CODE: 0 will be used for terms currently |
| | 176 | being used. |
| | 177 | |
| | 178 | CODE: 1 will not be used for current terms |
| | 179 | however they are still used |
| | 180 | for historical purposes. |
| | 181 | |
| | 182 | CODE: 2 will be used for terms that have |
| | 183 | been deprecated and should no |
| | 184 | longer be assigned. Sometimes they |
| | 185 | have a new term issued |
| | 186 | which replaces the deprecated term. |
| | 187 | |
| | 188 | |
| | 189 | RECORD INDEXES: AH (#888) |
| | 190 | |
| | 191 | 260,.07 REPLACEMENT TERM 0;7 POINTER TO VW HL7 TABLES FILE (#260) |
| | 192 | |
| | 193 | INPUT TRANSFORM: S DIC("S")="I $P(^VWLEX(260,Y,0),U,6)<1" D ^DIC |
| | 194 | K DIC S DIC=$G(DIE),X=+Y K:Y<0 X |
| | 195 | LAST EDITED: MAR 29, 2011 |
| | 196 | HELP-PROMPT: Enter the term which replaces this term in |
| | 197 | current usage. |
| | 198 | DESCRIPTION: Specifies the term which has replaced the |
| | 199 | deprecated term. |
| | 200 | |
| | 201 | SCREEN: S DIC("S")="I $P(^VWLEX(260,Y,0),U,6)<1" |
| | 202 | EXPLANATION: Only allow replacement terms to be active. |
| | 203 | |
| | 204 | 260,.08 ENTRY STATUS 0;8 SET |
| | 205 | |
| | 206 | '0' FOR LOCAL; |
| | 207 | '1' FOR STANDARD; |
| | 208 | LAST EDITED: MAR 29, 2011 |
| | 209 | HELP-PROMPT: A term has a status of either standard or |
| | 210 | locally added. |
| | 211 | DESCRIPTION: Terms that are distributed with the file and/or |
| | 212 | centrally maintained have a status of |
| | 213 | "standard". Terms that are added for local |
| | 214 | purposes that are not standard will have a |
| | 215 | status of "local". |
| | 216 | |
| | 217 | |
| | 218 | 260,.99 DESCRIPTION .99;0 WORD-PROCESSING #260.0099 |
| | 219 | |
| | 220 | |
| | 221 | 260,1 VERSION 1;0 Multiple #260.001 |
| | 222 | (Add New Entry without Asking) |
| | 223 | |
| | 224 | LAST EDITED: MAR 19, 2011 |
| | 225 | |
| | 226 | 260.001,.01 TABLE VERSION 0;1 FREE TEXT (Multiply asked) |
| | 227 | |
| | 228 | INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X |
| | 229 | LAST EDITED: MAY 29, 2011 |
| | 230 | HELP-PROMPT: Answer must be 1-10 characters in length |
| | 231 | CROSS-REFERENCE: 260.001^B |
| | 232 | 1)= S ^VWLEX(260,DA(1),1,"B",$E(X,1,30),DA)=" |
| | 233 | " |
| | 234 | |
| | 235 | 2)= K ^VWLEX(260,DA(1),1,"B",$E(X,1,30),DA) |
| | 236 | |
| | 237 | RECORD INDEXES: AD (#885) (WHOLE FILE #260), AE (#886) |
| | 238 | (WHOLE FILE #260) |
| | 239 | |
| | 240 | 260.001,.02 CODE ID 0;2 FREE TEXT |
| | 241 | |
| | 242 | INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X |
| | 243 | LAST EDITED: MAY 29, 2011 |
| | 244 | HELP-PROMPT: Answer must be 1-15 characters in length |
| | 245 | RECORD INDEXES: AC (#884) (WHOLE FILE #260), AD (#885) |
| | 246 | (WHOLE FILE #260), AE (#886) (WHOLE FILE |
| | 247 | #260) |
| | 248 | |
| | 249 | 260.001,.03 CODE TEXT 0;3 FREE TEXT |
| | 250 | |
| | 251 | INPUT TRANSFORM: K:$L(X)>100!($L(X)<1) X |
| | 252 | LAST EDITED: MAR 19, 2011 |
| | 253 | HELP-PROMPT: Answer must be 1-100 characters in length |
| | 254 | |
| | 255 | 260.001,.04 CODE SYSTEM 0;4 POINTER TO VW HL7 TABLES FILE (#260) |
| | 256 | |
| | 257 | INPUT TRANSFORM:S DIC("S")="I $P(^VWLEX(260,Y,0),U,3)=""HL70396 |
| | 258 | """ D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X |
| | 259 | LAST EDITED: MAY 29, 2011 |
| | 260 | HELP-PROMPT: Select the coding system this code is a member. |
| | 261 | SCREEN: S DIC("S")="I $P(^VWLEX(260,Y,0),U,3)=""HL70396 |
| | 262 | """ |
| | 263 | EXPLANATION: Only select entries that represent name of codi |
| | 264 | ng systems |
| | 265 | RECORD INDEXES: AC (#884) (WHOLE FILE #260), AD (#885) |
| | 266 | (WHOLE FILE #260), AE (#886) (WHOLE FILE #260) |
| | 267 | |
| | 268 | 260.001,.05 CODE SYSTEM NAME 0;5 FREE TEXT |
| | 269 | |
| | 270 | INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X |
| | 271 | LAST EDITED: MAR 19, 2011 |
| | 272 | HELP-PROMPT: Answer must be 1-20 characters in length |
| | 273 | |
| | 274 | 260.001,.06 CODE SYSTEM OID 0;6 FREE TEXT |
| | 275 | |
| | 276 | INPUT TRANSFORM:K:$L(X)>64!($L(X)<3) X |
| | 277 | LAST EDITED: FEB 03, 2011 |
| | 278 | HELP-PROMPT: Answer must be 3-64 characters in length |
| | 279 | |
| | 280 | 260.001,.07 CODE STATUS 0;7 SET |
| | 281 | |
| | 282 | '0' FOR ACTIVE; |
| | 283 | '1' FOR INACTIVE; |
| | 284 | '2' FOR DEPRECATED; |
| | 285 | '3' FOR NEVER USED; |
| | 286 | LAST EDITED: MAY 29, 2011 |
| | 287 | DESCRIPTION: Indicates the status of this code and it's use |
| | 288 | in messaging. |
| | 289 | |
| | 290 | CODE: 0 will be used for codes currently |
| | 291 | being used. |
| | 292 | |
| | 293 | CODE: 1 will not be used for current codes |
| | 294 | however they are still used |
| | 295 | for historical purposes. |
| | 296 | |
| | 297 | CODE: 2 will be used for codes that have |
| | 298 | been deprecated and should no |
| | 299 | longer be assigned. Sometimes they |
| | 300 | have a new code issued |
| | 301 | which replaces the deprecated term. |
| | 302 | |
| | 303 | |
| | 304 | |
| | 305 | 260.001,.08 EFFECTIVE DATE 0;8 DATE |
| | 306 | |
| | 307 | INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:X<1 X |
| | 308 | LAST EDITED: MAR 18, 2011 |
| | 309 | HELP-PROMPT: (No range limit on date) |
| | 310 | DESCRIPTION: The date this code was first active/effective |
| | 311 | if applicable. |
| | 312 | |
| | 313 | |
| | 314 | 260.001,.09 EXPIRATION DATE 0;9 DATE |
| | 315 | |
| | 316 | INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:X<1 X |
| | 317 | LAST EDITED: MAR 18, 2011 |
| | 318 | HELP-PROMPT: (No range limit on date) |
| | 319 | DESCRIPTION: The date this code was no longer valid |
| | 320 | active/effective if applicable. |
| | 321 | |
| | 322 | |
| | 323 | 260.001,.1 CHECK DIGIT SCHEME 0;10 SET |
| | 324 | |
| | 325 | '1' FOR ISO; |
| | 326 | '2' FOR M10; |
| | 327 | '3' FOR M11; |
| | 328 | '4' FOR NPI; |
| | 329 | '5' FOR BCV; |
| | 330 | LAST EDITED: MAR 18, 2011 |
| | 331 | HELP-PROMPT: Enter the code identifying the check digit |
| | 332 | scheme employed. |
| | 333 | DESCRIPTION: Contains the code identifying the check digit |
| | 334 | scheme employed. |
| | 335 | |
| | 336 | TECHNICAL DESCR: HL7 Table 0061 - Check digit scheme |
| | 337 | |
| | 338 | Value Description |
| | 339 | Comment |
| | 340 | BCV Bank Card Validation Number A |
| | 341 | non-embossed number included on |
| | 342 | bank |
| | 343 | cards and used to validate |
| | 344 | |
| | 345 | authenticity of the card and the |
| | 346 | person |
| | 347 | presenting the card |
| | 348 | NPI Check digit algorithm in the |
| | 349 | US National Provider Identifier |
| | 350 | ISO ISO 7064: 1983 |
| | 351 | M10 Mod 10 algorithm |
| | 352 | M11 Mod 11 algorithm |
| | 353 | |
| | 354 | |
| | 355 | 260.001,.11 CODE SYSTEM VERSION 1;1 FREE TEXT |
| | 356 | |
| | 357 | INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X |
| | 358 | LAST EDITED: MAR 19, 2011 |
| | 359 | HELP-PROMPT: Answer must be 1-20 characters in length |
| | 360 | DESCRIPTION: When the code refers to a user defined or other |
| | 361 | code system then the version of the code system |
| | 362 | is recorded here. |
| | 363 | |
| | 364 | This field is different from the table version |
| | 365 | which usually refers to the version of the HL7 |
| | 366 | standard which this entry supports. |
| | 367 | |
| | 368 | Example is HL7 table 0203 (IDENTIFIER TYPE) has |
| | 369 | a user defined code issued by CDC for Org |
| | 370 | Membership. This code has a version 20100308. |
| | 371 | |
| | 372 | Concept Code.......: PHC40 |
| | 373 | Concept Name.......: Org Membership |
| | 374 | Code System OID....: 2.16.840.1.114222.4.5.274 |
| | 375 | Code System Name...: PHIN VS (CDC Local Coding |
| | 376 | System) |
| | 377 | Code System Code...: PH_PHINVS_CDC |
| | 378 | Code System Version: 20100308 |
| | 379 | HL70396 Table Code.: CDCPHINVS |
| | 380 | |
| | 381 | |
| | 382 | 260.001,.12 STATUS DATE 1;2 DATE |
| | 383 | |
| | 384 | INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:2500101>X X |
| | 385 | LAST EDITED: MAY 29, 2011 |
| | 386 | HELP-PROMPT: Type a date not earlier than JAN 01, 1950. |
| | 387 | DESCRIPTION: |
| | 388 | This is the date of this code version |
| | 389 | |
| | 390 | |
| | 391 | |
| | 392 | |
| | 393 | 260,2 APPLICATION GROUP 2;0 Multiple #260.002 |
| | 394 | |
| | 395 | |
| | 396 | 260.002,.01 APPLICATION GROUP 0;1 FREE TEXT |
| | 397 | |
| | 398 | INPUT TRANSFORM: K:$L(X)>4!($L(X)<2)!'(X?2.4U) X |
| | 399 | LAST EDITED: MAY 30, 2011 |
| | 400 | HELP-PROMPT: A 'NAMESPACE' (2-4 BYTES) indicating a |
| | 401 | package screening this entry. |
| | 402 | DESCRIPTION: Allows a 'package" to selectively screen the |
| | 403 | codes that it uses/supports within a HL7 |
| | 404 | table. Useful when an application only uses a |
| | 405 | subset of a HL7 or other user defined |
| | 406 | table/code system. |
| | 407 | |
| | 408 | CROSS-REFERENCE: 260.002^B |
| | 409 | 1)= S ^VWLEX(260,DA(1),2,"B",$E(X,1,30),DA)=" |
| | 410 | " |
| | 411 | |
| | 412 | 2)= K ^VWLEX(260,DA(1),2,"B",$E(X,1,30),DA) |
| | 413 | |
| | 414 | RECORD INDEXES: AG (#887) (WHOLE FILE #260) |
| | 415 | |
| | 416 | 260.002,.02 APPLICATION USE 0;2 SET |
| | 417 | |
| | 418 | '0' FOR NOT SELECTABLE; |
| | 419 | '1' FOR SELECTABLE; |
| | 420 | LAST EDITED: MAY 30, 2011 |
| | 421 | HELP-PROMPT: Specify if this code or table element is |
| | 422 | restricted or enabled. |
| | 423 | DESCRIPTION: An application in conjunction with the |
| | 424 | "APPLICATION GROUP" field can enable/disable |
| | 425 | a specific member of an HL7 table or other |
| | 426 | code system from use within the application. |
| | 427 | |
| | 428 | Example is IMMUNIZATION may utilize the HL7 |
| | 429 | table 0163 (Body Site) and only uses a subset |
| | 430 | of this table to indicate the site a vaccine |
| | 431 | was administered. Or limit the vaccines (CVX) |
| | 432 | or manufacturer codes (MVX) that can be |
| | 433 | linked/used. |
| | 434 | |
| | 435 | RECORD INDEXES: AG (#887) (WHOLE FILE #260) |
| | 436 | |
| | 437 | |
| | 438 | |
| | 439 | |
| | 440 | FILES POINTED TO FIELDS |
| | 441 | |
| | 442 | VW HL7 TABLES (#260) REPLACEMENT TERM (#.07) |
| | 443 | VERSION:CODE SYSTEM (#.04) |
| | 444 | |
| | 445 | |
| | 446 | File #260 |
| | 447 | |
| | 448 | Record Indexes: |
| | 449 | |
| | 450 | AH (#888) RECORD REGULAR IR SORTING ONLY |
| | 451 | Short Descr: Index of HL7 table and status. |
| | 452 | Description: Cross-reference which indexes the entries by HL7 table |
| | 453 | number and term status. |
| | 454 | Set Logic: S ^VWLEX(260,"AH",$E(X(1),1,30),X(2),DA)="" |
| | 455 | Kill Logic: K ^VWLEX(260,"AH",$E(X(1),1,30),X(2),DA) |
| | 456 | Whole Kill: K ^VWLEX(260,"AH") |
| | 457 | X(1): TABLE (260,.03) (Subscr 1) (Len 30) (forwards) |
| | 458 | X(2): TERM STATUS (260,.06) (Subscr 2) (forwards) |
| | 459 | |
| | 460 | Subfile #260.001 |
| | 461 | |
| | 462 | Record Indexes: |
| | 463 | |
| | 464 | AC (#884) RECORD REGULAR IR SORTING ONLY WHOLE FILE (#260) |
| | 465 | Short Descr: Cross reference a code to it's table |
| | 466 | Description: Set up a cross-reference to allow looking up a code by it's |
| | 467 | components - HL7 table, code and code system. |
| | 468 | Set Logic: S ^VWLEX(260,"AC",$E(X(1),1,30),X(2),DA(1),DA)="" |
| | 469 | Kill Logic: K ^VWLEX(260,"AC",$E(X(1),1,30),X(2),DA(1),DA) |
| | 470 | Whole Kill: K ^VWLEX(260,"AC") |
| | 471 | X(1): CODE ID (260.001,.02) (Subscr 1) (Len 30) (forwards) |
| | 472 | X(2): CODE SYSTEM (260.001,.04) (Subscr 2) (forwards) |
| | 473 | |
| | 474 | AD (#885) RECORD REGULAR IR SORTING ONLY WHOLE FILE (#260) |
| | 475 | Short Descr: Cross reference a code to it's table and HL7 version |
| | 476 | Description: Set up a cross-reference to allow looking up a code by it's |
| | 477 | components - HL7 version, code and code system. |
| | 478 | Set Logic: S ^VWLEX(260,"AD",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30) |
| | 479 | ,DA(1),DA)="" |
| | 480 | Kill Logic: K ^VWLEX(260,"AD",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30) |
| | 481 | ,DA(1),DA) |
| | 482 | Whole Kill: K ^VWLEX(260,"AD") |
| | 483 | X(1): TABLE VERSION (260.001,.01) (Subscr 1) (Len 30) |
| | 484 | (forwards) |
| | 485 | X(2): CODE SYSTEM (260.001,.04) (Subscr 2) (Len 30) |
| | 486 | (forwards) |
| | 487 | X(3): CODE ID (260.001,.02) (Subscr 3) (Len 30) (forwards) |
| | 488 | |
| | 489 | AE (#886) RECORD REGULAR IR SORTING ONLY WHOLE FILE (#260) |
| | 490 | Short Descr: Cross reference a code to it's table |
| | 491 | Description: Set up a cross-reference to allow looking up a code by it's |
| | 492 | components - HL7 table, HL7 version, code and code system. |
| | 493 | Set Logic: S ^VWLEX(260,"AE",$E(X(2),1,30),$E(X(1),1,30),$E(X(3),1,30) |
| | 494 | ,$E(X(4),1,30),DA(1),DA)="" |
| | 495 | Kill Logic: K ^VWLEX(260,"AE",$E(X(2),1,30),$E(X(1),1,30),$E(X(3),1,30) |
| | 496 | ,$E(X(4),1,30),DA(1),DA) |
| | 497 | Whole Kill: K ^VWLEX(260,"AE") |
| | 498 | X(1): TABLE VERSION (260.001,.01) (Subscr 2) (Len 30) |
| | 499 | (forwards) |
| | 500 | X(2): Computed Code: S X=$P(^VWLEX(260,DA,0),U,3) |
| | 501 | (Subscr 1) (Len 30) |
| | 502 | X(3): CODE SYSTEM (260.001,.04) (Subscr 3) (Len 30) |
| | 503 | (forwards) |
| | 504 | X(4): CODE ID (260.001,.02) (Subscr 4) (Len 30) (forwards) |
| | 505 | |
| | 506 | Subfile #260.002 |
| | 507 | |
| | 508 | Record Indexes: |
| | 509 | |
| | 510 | AG (#887) RECORD REGULAR IR SORTING ONLY WHOLE FILE (#260) |
| | 511 | Short Descr: Application group index |
| | 512 | Description: Index of terms that have been assigned an application group |
| | 513 | and corresponding selection status for that term. |
| | 514 | Set Logic: S ^VWLEX(260,"AG",$E(X(1),1,30),X(2),DA(1),DA)="" |
| | 515 | Kill Logic: K ^VWLEX(260,"AG",$E(X(1),1,30),X(2),DA(1),DA) |
| | 516 | Whole Kill: K ^VWLEX(260,"AG") |
| | 517 | X(1): APPLICATION GROUP (260.002,.01) (Subscr 1) (Len 30) |
| | 518 | (forwards) |
| | 519 | X(2): APPLICATION USE (260.002,.02) (Subscr 2) (forwards) |
| | 520 | |
| | 521 | |
| | 522 | INPUT TEMPLATE(S): |
| | 523 | |
| | 524 | PRINT TEMPLATE(S): |
| | 525 | CAPTIONED USER #0 |
| | 526 | ZZNANCYVacMan AUG 13, 2011@11:21 USER #9 @ |
| | 527 | |
| | 528 | SORT TEMPLATE(S): |
| | 529 | ZZNANCYVacMan AUG 13, 2011@11:06 USER #9 |
| | 530 | SORT BY: TABLE// (TABLE equals HL70227) |
| | 531 | |
| | 532 | |
| | 533 | FORM(S)/BLOCK(S): |
| | 534 | |
