Changes between Version 8 and Version 9 of HL7TablesForVistA


Ignore:
Timestamp:
Aug 17, 2011, 11:11:05 PM (13 years ago)
Author:
Nancy Anthracite
Comment:

--

Legend:

Unmodified
Added
Removed
Modified

  • HL7TablesForVistA

    v8 v9  
    1919== Data Dictionary for File 260 ==
    2020
    21 Select OPTION: 8  DATA DICTIONARY UTILITIES
    22 Select DATA DICTIONARY UTILITY OPTION: 1  LIST FILE ATTRIBUTES
    23  START WITH WHAT FILE: VW HL7 TABLES//
    24       GO TO WHAT FILE: VW HL7 TABLES//
    25       Select SUB-FILE:
    26 Select LISTING FORMAT: STANDARD//   
    27 Start with field: FIRST//
    28 DEVICE: ;;999  TELNET
    2921STANDARD DATA DICTIONARY #260 -- VW HL7 TABLES FILE   
    30                                                    AUG 17,2011@11:31:09  PAGE 1
    31 STORED IN `^`VWLEX(260,  (8671 ENTRIES)   SITE: Vista-Office EHR   UCI: EHR,EHR 
     22                                                   AUG 17,2011@23:00:56  PAGE 1
     23STORED IN ``^``VWLEX(260,  (8671 ENTRIES)   SITE: Vista-Office EHR   UCI: EHR,EHR 
    3224
    3325DATA          NAME                  GLOBAL        DATA
    … …  
    8678              LAST EDITED:      MAR 27, 2011
    8779              HELP-PROMPT:      Answer must be 1-30 characters in length
    88               CROSS-REFERENCE:  260^B
    89                                 1)= S ^VWLEX(260,"B",$E(X,1,30),DA)=""
    90                                 2)= K ^VWLEX(260,"B",$E(X,1,30),DA)
     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)
    9183
    9284              FIELD INDEX:      C (#889)    REGULAR    IR    LOOKUP & SORTING
    … …  
    9587                                lookups using uppercase when #.01 field is
    9688                                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")
    10092                         X(1):  TERM  (260,.01)  (Subscr 1)  (Len 30)
    10193                                (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)
    10496
    10597
    … …  
    123115                  Description:  Index of entries cross-referenced by the
    124116                                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")
    128120                         X(1):  TABLE  (260,.03)  (Subscr 1)  (Len 30)
    129121                                (forwards)
    … …  
    140132                  Description:  Whole file cross-reference to allow lookups on
    141133                                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")
    145137                         X(1):  NAME  (260,.04)  (Subscr 1)  (Len 100)
    146138                                (forwards)
    … …  
    151143                                lookups using uppercase when #.04 field is
    152144                                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")
    156148                         X(1):  NAME  (260,.04)  (Subscr 1)  (Len 100)
    157149                                (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)
    160152
    161153
    … …  
    199191260,.07       REPLACEMENT TERM       0;7 POINTER TO VW HL7 TABLES FILE (#260)
    200192
    201               INPUT TRANSFORM:  S DIC("S")="I $P(^VWLEX(260,Y,0),U,6)<1" D ^DIC
     193              INPUT TRANSFORM:  S DIC("S")="I $P(`^`VWLEX(260,Y,0),U,6)<1" D `^`DIC
    202194                                 K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
    203195              LAST EDITED:      MAR 29, 2011
    … …  
    207199                                deprecated term. 
    208200
    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"
    210202              EXPLANATION:      Only allow replacement terms to be active.
    211203
    … …  
    237229                LAST EDITED:      MAY 29, 2011
    238230                HELP-PROMPT:      Answer must be 1-10 characters in length
    239                 CROSS-REFERENCE:  260.001^B
    240                                   1)= S ^VWLEX(260,DA(1),1,"B",$E(X,1,30),DA)="
     231                CROSS-REFERENCE:  260.001`^`B
     232                                  1)= S `^`VWLEX(260,DA(1),1,"B",$E(X,1,30),DA)="
    241233                                  "
    242234
    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)
    244236
    245237                RECORD INDEXES:   AD (#885) (WHOLE FILE #260), AE (#886)
    … …  
    263255260.001,.04     CODE SYSTEM            0;4 POINTER TO VW HL7 TABLES FILE (#260)
    264256
    265                 INPUT TRANSFORM:S DIC("S")="I $P(^VWLEX(260,Y,0),U,3)=""HL70396
    266                                 """ D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
     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
    267259                LAST EDITED:    MAY 29, 2011
    268260                HELP-PROMPT:    Select the coding system this code is a member.
    269                 SCREEN:         S DIC("S")="I $P(^VWLEX(260,Y,0),U,3)=""HL70396
     261                SCREEN:         S DIC("S")="I $P(`^`VWLEX(260,Y,0),U,3)=""HL70396
    270262                                """
    271263                EXPLANATION:    Only select entries that represent name of codi
    … …  
    313305260.001,.08     EFFECTIVE DATE       0;8 DATE
    314306
    315                 INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:X<1 X
     307                INPUT TRANSFORM:S %DT="E" D `^`%DT S X=Y K:X<1 X
    316308                LAST EDITED:    MAR 18, 2011
    317309                HELP-PROMPT:    (No range limit on date)
    … …  
    322314260.001,.09     EXPIRATION DATE      0;9 DATE
    323315
    324                 INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:X<1 X
     316                INPUT TRANSFORM:S %DT="E" D `^`%DT S X=Y K:X<1 X
    325317                LAST EDITED:    MAR 18, 2011
    326318                HELP-PROMPT:    (No range limit on date)
    … …  
    390382260.001,.12     STATUS DATE          1;2 DATE
    391383
    392                 INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:2500101>X X
     384                INPUT TRANSFORM:S %DT="E" D `^`%DT S X=Y K:2500101>X X
    393385                LAST EDITED:    MAY 29, 2011
    394386                HELP-PROMPT:    Type a date not earlier than JAN 01, 1950.
    … …  
    414406                                  table/code system. 
    415407
    416                 CROSS-REFERENCE:  260.002^B
    417                                   1)= S ^VWLEX(260,DA(1),2,"B",$E(X,1,30),DA)="
     408                CROSS-REFERENCE:  260.002`^`B
     409                                  1)= S `^`VWLEX(260,DA(1),2,"B",$E(X,1,30),DA)="
    418410                                  "
    419411
    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)
    421413
    422414                RECORD INDEXES:   AG (#887) (WHOLE FILE #260)
    … …  
    460452      Description:  Cross-reference which indexes the entries by HL7 table
    461453                    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")
    465457             X(1):  TABLE  (260,.03)  (Subscr 1)  (Len 30)  (forwards)
    466458             X(2):  TERM STATUS  (260,.06)  (Subscr 2)  (forwards)
    … …  
    474466      Description:  Set up a cross-reference to allow looking up a code by it's
    475467                    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")
    479471             X(1):  CODE ID  (260.001,.02)  (Subscr 1)  (Len 30)  (forwards)
    480472             X(2):  CODE SYSTEM  (260.001,.04)  (Subscr 2)  (forwards)
    … …  
    484476      Description:  Set up a cross-reference to allow looking up a code by it's
    485477                    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)
    487479                    ,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)
    489481                    ,DA(1),DA)
    490        Whole Kill:  K ^VWLEX(260,"AD")
     482       Whole Kill:  K `^`VWLEX(260,"AD")
    491483             X(1):  TABLE VERSION  (260.001,.01)  (Subscr 1)  (Len 30)
    492484                    (forwards)
    … …  
    499491      Description:  Set up a cross-reference to allow looking up a code by it's
    500492                    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)
    502494                    ,$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)
    504496                    ,$E(X(4),1,30),DA(1),DA)
    505        Whole Kill:  K ^VWLEX(260,"AE")
     497       Whole Kill:  K `^`VWLEX(260,"AE")
    506498             X(1):  TABLE VERSION  (260.001,.01)  (Subscr 2)  (Len 30)
    507499                    (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)
    509501                      (Subscr 1)  (Len 30)
    510502             X(3):  CODE SYSTEM  (260.001,.04)  (Subscr 3)  (Len 30)
    … …  
    520512      Description:  Index of terms that have been assigned an application group
    521513                    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")
    525517             X(1):  APPLICATION GROUP  (260.002,.01)  (Subscr 1)  (Len 30)
    526518                    (forwards)
    … …  
    540532
    541533FORM(S)/BLOCK(S):
    542