Changes between Version 8 and Version 9 of HL7TablesForVistA
 Timestamp:
 Aug 17, 2011, 11:11:05 PM (13 years ago)
Legend:
 Unmodified
 Added
 Removed
 Modified

HL7TablesForVistA
v8 v9 19 19 == Data Dictionary for File 260 == 20 20 21 Select OPTION: 8 DATA DICTIONARY UTILITIES22 Select DATA DICTIONARY UTILITY OPTION: 1 LIST FILE ATTRIBUTES23 START WITH WHAT FILE: VW HL7 TABLES//24 GO TO WHAT FILE: VW HL7 TABLES//25 Select SUBFILE:26 Select LISTING FORMAT: STANDARD//27 Start with field: FIRST//28 DEVICE: ;;999 TELNET29 21 STANDARD DATA DICTIONARY #260  VW HL7 TABLES FILE 30 AUG 17,2011@ 11:31:09PAGE 131 STORED IN ` ^`VWLEX(260, (8671 ENTRIES) SITE: VistaOffice EHR UCI: EHR,EHR22 AUG 17,2011@23:00:56 PAGE 1 23 STORED IN ``^``VWLEX(260, (8671 ENTRIES) SITE: VistaOffice EHR UCI: EHR,EHR 32 24 33 25 DATA NAME GLOBAL DATA … … 86 78 LAST EDITED: MAR 27, 2011 87 79 HELPPROMPT: Answer must be 130 characters in length 88 CROSSREFERENCE: 260 ^B89 1)= S ^VWLEX(260,"B",$E(X,1,30),DA)=""90 2)= K ^VWLEX(260,"B",$E(X,1,30),DA)80 CROSSREFERENCE: 260`^`B 81 1)= S `^`VWLEX(260,"B",$E(X,1,30),DA)="" 82 2)= K `^`VWLEX(260,"B",$E(X,1,30),DA) 91 83 92 84 FIELD INDEX: C (#889) REGULAR IR LOOKUP & SORTING … … 95 87 lookups using uppercase when #.01 field is 96 88 mixed/lower case. 97 Set Logic: S ^VWLEX(260,"C",$E(X,1,30),DA)=""98 Kill Logic: K ^VWLEX(260,"C",$E(X,1,30),DA)99 Whole Kill: K ^VWLEX(260,"C")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") 100 92 X(1): TERM (260,.01) (Subscr 1) (Len 30) 101 93 (forwards) 102 Transform (Storage): S X=$$UP ^XLFSTR(X)103 Transform (Lookup): S X=$$UP ^XLFSTR(X)94 Transform (Storage): S X=$$UP`^`XLFSTR(X) 95 Transform (Lookup): S X=$$UP`^`XLFSTR(X) 104 96 105 97 … … 123 115 Description: Index of entries crossreferenced by the 124 116 assigned HL7 table designation. 125 Set Logic: S ^VWLEX(260,"H",$E(X,1,30),DA)=""126 Kill Logic: K ^VWLEX(260,"H",$E(X,1,30),DA)127 Whole Kill: K ^VWLEX(260,"H")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") 128 120 X(1): TABLE (260,.03) (Subscr 1) (Len 30) 129 121 (forwards) … … 140 132 Description: Whole file crossreference to allow lookups on 141 133 the NAME field (#.04). 142 Set Logic: S ^VWLEX(260,"D",$E(X,1,100),DA)=""143 Kill Logic: K ^VWLEX(260,"D",$E(X,1,100),DA)144 Whole Kill: K ^VWLEX(260,"D")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") 145 137 X(1): NAME (260,.04) (Subscr 1) (Len 100) 146 138 (forwards) … … 151 143 lookups using uppercase when #.04 field is 152 144 mixed/lower case. 153 Set Logic: S ^VWLEX(260,"E",$E(X,1,100),DA)=""154 Kill Logic: K ^VWLEX(260,"E",$E(X,1,100),DA)155 Whole Kill: K ^VWLEX(260,"E")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") 156 148 X(1): NAME (260,.04) (Subscr 1) (Len 100) 157 149 (forwards) 158 Transform (Storage): S X=$$UP ^XLFSTR(X)159 Transform (Lookup): S X=$$UP ^XLFSTR(X)150 Transform (Storage): S X=$$UP`^`XLFSTR(X) 151 Transform (Lookup): S X=$$UP`^`XLFSTR(X) 160 152 161 153 … … 199 191 260,.07 REPLACEMENT TERM 0;7 POINTER TO VW HL7 TABLES FILE (#260) 200 192 201 INPUT TRANSFORM: S DIC("S")="I $P( ^VWLEX(260,Y,0),U,6)<1" D ^DIC193 INPUT TRANSFORM: S DIC("S")="I $P(`^`VWLEX(260,Y,0),U,6)<1" D `^`DIC 202 194 K DIC S DIC=$G(DIE),X=+Y K:Y<0 X 203 195 LAST EDITED: MAR 29, 2011 … … 207 199 deprecated term. 208 200 209 SCREEN: S DIC("S")="I $P( ^VWLEX(260,Y,0),U,6)<1"201 SCREEN: S DIC("S")="I $P(`^`VWLEX(260,Y,0),U,6)<1" 210 202 EXPLANATION: Only allow replacement terms to be active. 211 203 … … 237 229 LAST EDITED: MAY 29, 2011 238 230 HELPPROMPT: Answer must be 110 characters in length 239 CROSSREFERENCE: 260.001 ^B240 1)= S ^VWLEX(260,DA(1),1,"B",$E(X,1,30),DA)="231 CROSSREFERENCE: 260.001`^`B 232 1)= S `^`VWLEX(260,DA(1),1,"B",$E(X,1,30),DA)=" 241 233 " 242 234 243 2)= K ^VWLEX(260,DA(1),1,"B",$E(X,1,30),DA)235 2)= K `^`VWLEX(260,DA(1),1,"B",$E(X,1,30),DA) 244 236 245 237 RECORD INDEXES: AD (#885) (WHOLE FILE #260), AE (#886) … … 263 255 260.001,.04 CODE SYSTEM 0;4 POINTER TO VW HL7 TABLES FILE (#260) 264 256 265 INPUT TRANSFORM:S DIC("S")="I $P( ^VWLEX(260,Y,0),U,3)=""HL70396266 """ D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X257 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 267 259 LAST EDITED: MAY 29, 2011 268 260 HELPPROMPT: Select the coding system this code is a member. 269 SCREEN: S DIC("S")="I $P( ^VWLEX(260,Y,0),U,3)=""HL70396261 SCREEN: S DIC("S")="I $P(`^`VWLEX(260,Y,0),U,3)=""HL70396 270 262 """ 271 263 EXPLANATION: Only select entries that represent name of codi … … 313 305 260.001,.08 EFFECTIVE DATE 0;8 DATE 314 306 315 INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:X<1 X307 INPUT TRANSFORM:S %DT="E" D `^`%DT S X=Y K:X<1 X 316 308 LAST EDITED: MAR 18, 2011 317 309 HELPPROMPT: (No range limit on date) … … 322 314 260.001,.09 EXPIRATION DATE 0;9 DATE 323 315 324 INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:X<1 X316 INPUT TRANSFORM:S %DT="E" D `^`%DT S X=Y K:X<1 X 325 317 LAST EDITED: MAR 18, 2011 326 318 HELPPROMPT: (No range limit on date) … … 390 382 260.001,.12 STATUS DATE 1;2 DATE 391 383 392 INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:2500101>X X384 INPUT TRANSFORM:S %DT="E" D `^`%DT S X=Y K:2500101>X X 393 385 LAST EDITED: MAY 29, 2011 394 386 HELPPROMPT: Type a date not earlier than JAN 01, 1950. … … 414 406 table/code system. 415 407 416 CROSSREFERENCE: 260.002 ^B417 1)= S ^VWLEX(260,DA(1),2,"B",$E(X,1,30),DA)="408 CROSSREFERENCE: 260.002`^`B 409 1)= S `^`VWLEX(260,DA(1),2,"B",$E(X,1,30),DA)=" 418 410 " 419 411 420 2)= K ^VWLEX(260,DA(1),2,"B",$E(X,1,30),DA)412 2)= K `^`VWLEX(260,DA(1),2,"B",$E(X,1,30),DA) 421 413 422 414 RECORD INDEXES: AG (#887) (WHOLE FILE #260) … … 460 452 Description: Crossreference which indexes the entries by HL7 table 461 453 number and term status. 462 Set Logic: S ^VWLEX(260,"AH",$E(X(1),1,30),X(2),DA)=""463 Kill Logic: K ^VWLEX(260,"AH",$E(X(1),1,30),X(2),DA)464 Whole Kill: K ^VWLEX(260,"AH")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") 465 457 X(1): TABLE (260,.03) (Subscr 1) (Len 30) (forwards) 466 458 X(2): TERM STATUS (260,.06) (Subscr 2) (forwards) … … 474 466 Description: Set up a crossreference to allow looking up a code by it's 475 467 components  HL7 table, code and code system. 476 Set Logic: S ^VWLEX(260,"AC",$E(X(1),1,30),X(2),DA(1),DA)=""477 Kill Logic: K ^VWLEX(260,"AC",$E(X(1),1,30),X(2),DA(1),DA)478 Whole Kill: K ^VWLEX(260,"AC")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") 479 471 X(1): CODE ID (260.001,.02) (Subscr 1) (Len 30) (forwards) 480 472 X(2): CODE SYSTEM (260.001,.04) (Subscr 2) (forwards) … … 484 476 Description: Set up a crossreference to allow looking up a code by it's 485 477 components  HL7 version, code and code system. 486 Set Logic: S ^VWLEX(260,"AD",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30)478 Set Logic: S `^`VWLEX(260,"AD",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30) 487 479 ,DA(1),DA)="" 488 Kill Logic: K ^VWLEX(260,"AD",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30)480 Kill Logic: K `^`VWLEX(260,"AD",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30) 489 481 ,DA(1),DA) 490 Whole Kill: K ^VWLEX(260,"AD")482 Whole Kill: K `^`VWLEX(260,"AD") 491 483 X(1): TABLE VERSION (260.001,.01) (Subscr 1) (Len 30) 492 484 (forwards) … … 499 491 Description: Set up a crossreference to allow looking up a code by it's 500 492 components  HL7 table, HL7 version, code and code system. 501 Set Logic: S ^VWLEX(260,"AE",$E(X(2),1,30),$E(X(1),1,30),$E(X(3),1,30)493 Set Logic: S `^`VWLEX(260,"AE",$E(X(2),1,30),$E(X(1),1,30),$E(X(3),1,30) 502 494 ,$E(X(4),1,30),DA(1),DA)="" 503 Kill Logic: K ^VWLEX(260,"AE",$E(X(2),1,30),$E(X(1),1,30),$E(X(3),1,30)495 Kill Logic: K `^`VWLEX(260,"AE",$E(X(2),1,30),$E(X(1),1,30),$E(X(3),1,30) 504 496 ,$E(X(4),1,30),DA(1),DA) 505 Whole Kill: K ^VWLEX(260,"AE")497 Whole Kill: K `^`VWLEX(260,"AE") 506 498 X(1): TABLE VERSION (260.001,.01) (Subscr 2) (Len 30) 507 499 (forwards) 508 X(2): Computed Code: S X=$P( ^VWLEX(260,DA,0),U,3)500 X(2): Computed Code: S X=$P(`^`VWLEX(260,DA,0),U,3) 509 501 (Subscr 1) (Len 30) 510 502 X(3): CODE SYSTEM (260.001,.04) (Subscr 3) (Len 30) … … 520 512 Description: Index of terms that have been assigned an application group 521 513 and corresponding selection status for that term. 522 Set Logic: S ^VWLEX(260,"AG",$E(X(1),1,30),X(2),DA(1),DA)=""523 Kill Logic: K ^VWLEX(260,"AG",$E(X(1),1,30),X(2),DA(1),DA)524 Whole Kill: K ^VWLEX(260,"AG")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") 525 517 X(1): APPLICATION GROUP (260.002,.01) (Subscr 1) (Len 30) 526 518 (forwards) … … 540 532 541 533 FORM(S)/BLOCK(S): 542