Changes between Version 13 and Version 14 of HL7TablesForVistA
- Timestamp:
- Aug 17, 2011, 11:36:25 PM (13 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
HL7TablesForVistA
v13 v14 22 22 STANDARD DATA DICTIONARY #260 -- VW HL7 TABLES FILE 23 23 AUG 17,2011@23:00:56 PAGE 1 24 STORED IN `^`VWLEX(260, (8671 ENTRIES) SITE: Vista-Office EHR UCI: EHR,EHR 25 26 ` DATA NAME GLOBAL DATA` 27 `ELEMENT TITLE LOCATION TYPE` 28 ---- 29 24 STORED IN ^VWLEX(260, (8671 ENTRIES) SITE: Vista-Office EHR UCI: EHR,EHR 25 26 DATA NAME GLOBAL DATA 27 ELEMENT TITLE LOCATION TYPE 28 ------------------------------------------------------------------------------- 30 29 31 30 … … 80 79 LAST EDITED: MAR 27, 2011 81 80 HELP-PROMPT: Answer must be 1-30 characters in length 82 CROSS-REFERENCE: 260 `^`B83 1)= S `^`VWLEX(260,"B",$E(X,1,30),DA)=""84 2)= K `^`VWLEX(260,"B",$E(X,1,30),DA)81 CROSS-REFERENCE: 260^B 82 1)= S ^VWLEX(260,"B",$E(X,1,30),DA)="" 83 2)= K ^VWLEX(260,"B",$E(X,1,30),DA) 85 84 86 85 FIELD INDEX: C (#889) REGULAR IR LOOKUP & SORTING … … 89 88 lookups using uppercase when #.01 field is 90 89 mixed/lower case. 91 Set Logic: S `^`VWLEX(260,"C",$E(X,1,30),DA)=""92 Kill Logic: K `^`VWLEX(260,"C",$E(X,1,30),DA)93 Whole Kill: K `^`VWLEX(260,"C")90 Set Logic: S ^VWLEX(260,"C",$E(X,1,30),DA)="" 91 Kill Logic: K ^VWLEX(260,"C",$E(X,1,30),DA) 92 Whole Kill: K ^VWLEX(260,"C") 94 93 X(1): TERM (260,.01) (Subscr 1) (Len 30) 95 94 (forwards) 96 Transform (Storage): S X=$$UP `^`XLFSTR(X)97 Transform (Lookup): S X=$$UP `^`XLFSTR(X)95 Transform (Storage): S X=$$UP^XLFSTR(X) 96 Transform (Lookup): S X=$$UP^XLFSTR(X) 98 97 99 98 … … 117 116 Description: Index of entries cross-referenced by the 118 117 assigned HL7 table designation. 119 Set Logic: S `^`VWLEX(260,"H",$E(X,1,30),DA)=""120 Kill Logic: K `^`VWLEX(260,"H",$E(X,1,30),DA)121 Whole Kill: K `^`VWLEX(260,"H")118 Set Logic: S ^VWLEX(260,"H",$E(X,1,30),DA)="" 119 Kill Logic: K ^VWLEX(260,"H",$E(X,1,30),DA) 120 Whole Kill: K ^VWLEX(260,"H") 122 121 X(1): TABLE (260,.03) (Subscr 1) (Len 30) 123 122 (forwards) … … 134 133 Description: Whole file cross-reference to allow lookups on 135 134 the NAME field (#.04). 136 Set Logic: S `^`VWLEX(260,"D",$E(X,1,100),DA)=""137 Kill Logic: K `^`VWLEX(260,"D",$E(X,1,100),DA)138 Whole Kill: K `^`VWLEX(260,"D")135 Set Logic: S ^VWLEX(260,"D",$E(X,1,100),DA)="" 136 Kill Logic: K ^VWLEX(260,"D",$E(X,1,100),DA) 137 Whole Kill: K ^VWLEX(260,"D") 139 138 X(1): NAME (260,.04) (Subscr 1) (Len 100) 140 139 (forwards) … … 145 144 lookups using uppercase when #.04 field is 146 145 mixed/lower case. 147 Set Logic: S `^`VWLEX(260,"E",$E(X,1,100),DA)=""148 Kill Logic: K `^`VWLEX(260,"E",$E(X,1,100),DA)149 Whole Kill: K `^`VWLEX(260,"E")146 Set Logic: S ^VWLEX(260,"E",$E(X,1,100),DA)="" 147 Kill Logic: K ^VWLEX(260,"E",$E(X,1,100),DA) 148 Whole Kill: K ^VWLEX(260,"E") 150 149 X(1): NAME (260,.04) (Subscr 1) (Len 100) 151 150 (forwards) 152 Transform (Storage): S X=$$UP `^`XLFSTR(X)153 Transform (Lookup): S X=$$UP `^`XLFSTR(X)151 Transform (Storage): S X=$$UP^XLFSTR(X) 152 Transform (Lookup): S X=$$UP^XLFSTR(X) 154 153 155 154 … … 193 192 260,.07 REPLACEMENT TERM 0;7 POINTER TO VW HL7 TABLES FILE (#260) 194 193 195 INPUT TRANSFORM: S DIC("S")="I $P( `^`VWLEX(260,Y,0),U,6)<1" D `^`DIC194 INPUT TRANSFORM: S DIC("S")="I $P(^VWLEX(260,Y,0),U,6)<1" D ^DIC 196 195 K DIC S DIC=$G(DIE),X=+Y K:Y<0 X 197 196 LAST EDITED: MAR 29, 2011 … … 201 200 deprecated term. 202 201 203 SCREEN: S DIC("S")="I $P( `^`VWLEX(260,Y,0),U,6)<1"202 SCREEN: S DIC("S")="I $P(^VWLEX(260,Y,0),U,6)<1" 204 203 EXPLANATION: Only allow replacement terms to be active. 205 204 … … 231 230 LAST EDITED: MAY 29, 2011 232 231 HELP-PROMPT: Answer must be 1-10 characters in length 233 CROSS-REFERENCE: 260.001 `^`B234 1)= S `^`VWLEX(260,DA(1),1,"B",$E(X,1,30),DA)="232 CROSS-REFERENCE: 260.001^B 233 1)= S ^VWLEX(260,DA(1),1,"B",$E(X,1,30),DA)=" 235 234 " 236 235 237 2)= K `^`VWLEX(260,DA(1),1,"B",$E(X,1,30),DA)236 2)= K ^VWLEX(260,DA(1),1,"B",$E(X,1,30),DA) 238 237 239 238 RECORD INDEXES: AD (#885) (WHOLE FILE #260), AE (#886) … … 257 256 260.001,.04 CODE SYSTEM 0;4 POINTER TO VW HL7 TABLES FILE (#260) 258 257 259 INPUT TRANSFORM:S DIC("S")="I $P( `^`VWLEX(260,Y,0),U,3)=""HL70396260 """ D `^`DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X258 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 261 260 LAST EDITED: MAY 29, 2011 262 261 HELP-PROMPT: Select the coding system this code is a member. 263 SCREEN: S DIC("S")="I $P( `^`VWLEX(260,Y,0),U,3)=""HL70396262 SCREEN: S DIC("S")="I $P(^VWLEX(260,Y,0),U,3)=""HL70396 264 263 """ 265 264 EXPLANATION: Only select entries that represent name of codi … … 307 306 260.001,.08 EFFECTIVE DATE 0;8 DATE 308 307 309 INPUT TRANSFORM:S %DT="E" D `^`%DT S X=Y K:X<1 X308 INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:X<1 X 310 309 LAST EDITED: MAR 18, 2011 311 310 HELP-PROMPT: (No range limit on date) … … 316 315 260.001,.09 EXPIRATION DATE 0;9 DATE 317 316 318 INPUT TRANSFORM:S %DT="E" D `^`%DT S X=Y K:X<1 X317 INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:X<1 X 319 318 LAST EDITED: MAR 18, 2011 320 319 HELP-PROMPT: (No range limit on date) … … 384 383 260.001,.12 STATUS DATE 1;2 DATE 385 384 386 INPUT TRANSFORM:S %DT="E" D `^`%DT S X=Y K:2500101>X X385 INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:2500101>X X 387 386 LAST EDITED: MAY 29, 2011 388 387 HELP-PROMPT: Type a date not earlier than JAN 01, 1950. … … 408 407 table/code system. 409 408 410 CROSS-REFERENCE: 260.002 `^`B411 1)= S `^`VWLEX(260,DA(1),2,"B",$E(X,1,30),DA)="409 CROSS-REFERENCE: 260.002^B 410 1)= S ^VWLEX(260,DA(1),2,"B",$E(X,1,30),DA)=" 412 411 " 413 412 414 2)= K `^`VWLEX(260,DA(1),2,"B",$E(X,1,30),DA)413 2)= K ^VWLEX(260,DA(1),2,"B",$E(X,1,30),DA) 415 414 416 415 RECORD INDEXES: AG (#887) (WHOLE FILE #260) … … 454 453 Description: Cross-reference which indexes the entries by HL7 table 455 454 number and term status. 456 Set Logic: S `^`VWLEX(260,"AH",$E(X(1),1,30),X(2),DA)=""457 Kill Logic: K `^`VWLEX(260,"AH",$E(X(1),1,30),X(2),DA)458 Whole Kill: K `^`VWLEX(260,"AH")455 Set Logic: S ^VWLEX(260,"AH",$E(X(1),1,30),X(2),DA)="" 456 Kill Logic: K ^VWLEX(260,"AH",$E(X(1),1,30),X(2),DA) 457 Whole Kill: K ^VWLEX(260,"AH") 459 458 X(1): TABLE (260,.03) (Subscr 1) (Len 30) (forwards) 460 459 X(2): TERM STATUS (260,.06) (Subscr 2) (forwards) … … 468 467 Description: Set up a cross-reference to allow looking up a code by it's 469 468 components - HL7 table, code and code system. 470 Set Logic: S `^`VWLEX(260,"AC",$E(X(1),1,30),X(2),DA(1),DA)=""471 Kill Logic: K `^`VWLEX(260,"AC",$E(X(1),1,30),X(2),DA(1),DA)472 Whole Kill: K `^`VWLEX(260,"AC")469 Set Logic: S ^VWLEX(260,"AC",$E(X(1),1,30),X(2),DA(1),DA)="" 470 Kill Logic: K ^VWLEX(260,"AC",$E(X(1),1,30),X(2),DA(1),DA) 471 Whole Kill: K ^VWLEX(260,"AC") 473 472 X(1): CODE ID (260.001,.02) (Subscr 1) (Len 30) (forwards) 474 473 X(2): CODE SYSTEM (260.001,.04) (Subscr 2) (forwards) … … 478 477 Description: Set up a cross-reference to allow looking up a code by it's 479 478 components - HL7 version, code and code system. 480 Set Logic: S `^`VWLEX(260,"AD",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30)479 Set Logic: S ^VWLEX(260,"AD",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30) 481 480 ,DA(1),DA)="" 482 Kill Logic: K `^`VWLEX(260,"AD",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30)481 Kill Logic: K ^VWLEX(260,"AD",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30) 483 482 ,DA(1),DA) 484 Whole Kill: K `^`VWLEX(260,"AD")483 Whole Kill: K ^VWLEX(260,"AD") 485 484 X(1): TABLE VERSION (260.001,.01) (Subscr 1) (Len 30) 486 485 (forwards) … … 493 492 Description: Set up a cross-reference to allow looking up a code by it's 494 493 components - HL7 table, HL7 version, code and code system. 495 Set Logic: S `^`VWLEX(260,"AE",$E(X(2),1,30),$E(X(1),1,30),$E(X(3),1,30)494 Set Logic: S ^VWLEX(260,"AE",$E(X(2),1,30),$E(X(1),1,30),$E(X(3),1,30) 496 495 ,$E(X(4),1,30),DA(1),DA)="" 497 Kill Logic: K `^`VWLEX(260,"AE",$E(X(2),1,30),$E(X(1),1,30),$E(X(3),1,30)496 Kill Logic: K ^VWLEX(260,"AE",$E(X(2),1,30),$E(X(1),1,30),$E(X(3),1,30) 498 497 ,$E(X(4),1,30),DA(1),DA) 499 Whole Kill: K `^`VWLEX(260,"AE")498 Whole Kill: K ^VWLEX(260,"AE") 500 499 X(1): TABLE VERSION (260.001,.01) (Subscr 2) (Len 30) 501 500 (forwards) 502 X(2): Computed Code: S X=$P( `^`VWLEX(260,DA,0),U,3)501 X(2): Computed Code: S X=$P(^VWLEX(260,DA,0),U,3) 503 502 (Subscr 1) (Len 30) 504 503 X(3): CODE SYSTEM (260.001,.04) (Subscr 3) (Len 30) … … 514 513 Description: Index of terms that have been assigned an application group 515 514 and corresponding selection status for that term. 516 Set Logic: S `^`VWLEX(260,"AG",$E(X(1),1,30),X(2),DA(1),DA)=""517 Kill Logic: K `^`VWLEX(260,"AG",$E(X(1),1,30),X(2),DA(1),DA)518 Whole Kill: K `^`VWLEX(260,"AG")515 Set Logic: S ^VWLEX(260,"AG",$E(X(1),1,30),X(2),DA(1),DA)="" 516 Kill Logic: K ^VWLEX(260,"AG",$E(X(1),1,30),X(2),DA(1),DA) 517 Whole Kill: K ^VWLEX(260,"AG") 519 518 X(1): APPLICATION GROUP (260.002,.01) (Subscr 1) (Len 30) 520 519 (forwards) … … 536 535 537 536 }}} 538 {{{539 540 }}}
