Changes between Version 14 and Version 15 of HL7TablesForVistA


Ignore:
Timestamp:
Nov 18, 2011, 3:23:33 PM (9 years ago)
Author:
Nancy Anthracite
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • HL7TablesForVistA

    v14 v15  
    1919== Data Dictionary for File 260 ==
    2020
    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 
     21STANDARD DATA DICTIONARY #260 -- VW HL7 TABLES FILE                                                    NOV 18,2011@15:16:01  PAGE 1
     22STORED IN ^VWLEX(260,  (9663 ENTRIES)   SITE: Vista-Office EHR   UCI: EHR,EHR                                                     
    2523
    2624DATA          NAME                  GLOBAL        DATA
    2725ELEMENT       TITLE                 LOCATION      TYPE
    28 -------------------------------------------------------------------------------
    29 
    30 
    31 IDENTIFIED BY: TABLE (#.03), NAME (#.04)
     26-----------------------------------------------------------------------------------------------------------------------------------
     27
     28
     29IDENTIFIED BY: HL7 TABLE (#.03), NAME (#.04)
    3230
    3331POINTED 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)
    4639               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)
    5343               
    5444
     
    5646REFERENCED BY: TERM(B)
    5747
    58 INDEXED BY:    CODE ID & CODE SYSTEM (AC), TABLE VERSION & CODE SYSTEM & CODE
    59                ID (AD), TABLE VERSION & CODE SYSTEM & CODE ID (AE), APPLICATION
    60                GROUP & APPLICATION USE (AG), TABLE & TERM STATUS (AH), TERM
    61                (C), NAME (D), NAME (E), TABLE (H)
     48INDEXED 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)
    6252
    6353
     
    6656              INPUT TRANSFORM:  K:+X'=X!(X>1000000)!(X<1)!(X?.E1"."1.N) X
    6757              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. 
    7461
    7562
     
    8572              FIELD INDEX:      C (#889)    REGULAR    IR    LOOKUP & SORTING
    8673                  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. 
    9076                    Set Logic:  S ^VWLEX(260,"C",$E(X,1,30),DA)=""
    9177                   Kill Logic:  K ^VWLEX(260,"C",$E(X,1,30),DA)
    9278                   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)
    9580                                  Transform (Storage):  S X=$$UP^XLFSTR(X)
    9681                                   Transform (Lookup):  S X=$$UP^XLFSTR(X)
     
    10388              LAST EDITED:      MAR 27, 2011
    10489
    105 260,.03       TABLE                  0;3 FREE TEXT
     90260,.03       HL7 TABLE              0;3 FREE TEXT
    10691
    10792              INPUT TRANSFORM:  K:$L(X)>7!($L(X)<7)!'(X?1"HL7"4N) X
    108               LAST EDITED:      MAR 27, 2011
     93              LAST EDITED:      SEP 13, 2011
    10994              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
    11296                                form HL7nnnn. 
    11397
    11498              FIELD INDEX:      H (#892)    REGULAR    IR    LOOKUP & SORTING
    11599                  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. 
    118101                    Set Logic:  S ^VWLEX(260,"H",$E(X,1,30),DA)=""
    119102                   Kill Logic:  K ^VWLEX(260,"H",$E(X,1,30),DA)
    120103                   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)
    123105
    124106              RECORD INDEXES:   AH (#888)
     107
     108260,.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
     127260,.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
    125144
    126145260,.04       NAME                   0;4 FREE TEXT
     
    131150              FIELD INDEX:      D (#890)    REGULAR    IR    LOOKUP & SORTING
    132151                  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). 
    135153                    Set Logic:  S ^VWLEX(260,"D",$E(X,1,100),DA)=""
    136154                   Kill Logic:  K ^VWLEX(260,"D",$E(X,1,100),DA)
    137155                   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)
    140157
    141158              FIELD INDEX:      E (#891)    REGULAR    IR    LOOKUP & SORTING
    142159                  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. 
    146162                    Set Logic:  S ^VWLEX(260,"E",$E(X,1,100),DA)=""
    147163                   Kill Logic:  K ^VWLEX(260,"E",$E(X,1,100),DA)
    148164                   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)
    151166                                  Transform (Storage):  S X=$$UP^XLFSTR(X)
    152167                                   Transform (Lookup):  S X=$$UP^XLFSTR(X)
     
    158173              LAST EDITED:      FEB 03, 2011
    159174              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. 
    163177
    164178
     
    171185              LAST EDITED:      MAY 29, 2011
    172186              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. 
    175188                                 
    176                                   CODE: 0   will be used for terms currently
    177                                 being used. 
     189                                  CODE: 0   will be used for terms currently being used. 
    178190                                 
    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
    181192                                            for historical purposes. 
    182193                                 
    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. 
    189197
    190198              RECORD INDEXES:   AH (#888)
     
    192200260,.07       REPLACEMENT TERM       0;7 POINTER TO VW HL7 TABLES FILE (#260)
    193201
    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
    196203              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. 
    201207
    202208              SCREEN:           S DIC("S")="I $P(^VWLEX(260,Y,0),U,6)<1"
     
    208214                                '1' FOR STANDARD;
    209215              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". 
    217219
    218220
     
    220222
    221223
    222 260,1         VERSION                1;0 Multiple #260.001
    223                                  (Add New Entry without Asking)
     224260,1         VERSION                1;0 Multiple #260.001 (Add New Entry without Asking)
    224225
    225226              LAST EDITED:      MAR 19, 2011
     
    228229
    229230                INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
    230                 LAST EDITED:      MAY 29, 2011
     231                LAST EDITED:      SEP 13, 2011
    231232                HELP-PROMPT:      Answer must be 1-10 characters in length
    232233                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)=""
    236235                                  2)= K ^VWLEX(260,DA(1),1,"B",$E(X,1,30),DA)
    237236
    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)
    240238
    241239260.001,.02     CODE ID                0;2 FREE TEXT
    242240
    243241                INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
    244                 LAST EDITED:      MAY 29, 2011
     242                LAST EDITED:      OCT 25, 2011
    245243                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)
    249254
    250255260.001,.03     CODE TEXT              0;3 FREE TEXT
     
    256261260.001,.04     CODE SYSTEM            0;4 POINTER TO VW HL7 TABLES FILE (#260)
    257262
    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
     270260.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
     277260.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
     283260.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
     302260.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)
    388307                DESCRIPTION:
    389                                 This is the date of this code version
     308                                  The date this code was first active/effective if applicable. 
     309
     310
     311260.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
     320260.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
     346260.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
     369260.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
     378260.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)
    390390
    391391
     
    399399                INPUT TRANSFORM:  K:$L(X)>4!($L(X)<2)!'(X?2.4U) X
    400400                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. 
    408404
    409405                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)=""
    413407                                  2)= K ^VWLEX(260,DA(1),2,"B",$E(X,1,30),DA)
    414408
     
    420414                                  '1' FOR SELECTABLE;
    421415                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. 
    435423
    436424                RECORD INDEXES:   AG (#887) (WHOLE FILE #260)
     425
     426
     427
     428260,3         RELATED ENTRIES        3;0          VARIABLE POINTER  Multiple #260.003
     429
     430260.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
    437453
    438454
     
    451467  AH (#888)    RECORD    REGULAR    IR    SORTING ONLY
    452468      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. 
    455470        Set Logic:  S ^VWLEX(260,"AH",$E(X(1),1,30),X(2),DA)=""
    456471       Kill Logic:  K ^VWLEX(260,"AH",$E(X(1),1,30),X(2),DA)
    457472       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)
    459474             X(2):  TERM STATUS  (260,.06)  (Subscr 2)  (forwards)
    460475
     
    465480  AC (#884)    RECORD    REGULAR    IR    SORTING ONLY    WHOLE FILE (#260)
    466481      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. 
    469483        Set Logic:  S ^VWLEX(260,"AC",$E(X(1),1,30),X(2),DA(1),DA)=""
    470484       Kill Logic:  K ^VWLEX(260,"AC",$E(X(1),1,30),X(2),DA(1),DA)
     
    475489  AD (#885)    RECORD    REGULAR    IR    SORTING ONLY    WHOLE FILE (#260)
    476490      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)
    483494       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)
    488497             X(3):  CODE ID  (260.001,.02)  (Subscr 3)  (Len 30)  (forwards)
    489498
    490499  AE (#886)    RECORD    REGULAR    IR    SORTING ONLY    WHOLE FILE (#260)
    491500      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)
    498506       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)
    502509                      (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)
    505511             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
    506543
    507544Subfile #260.002
     
    511548  AG (#887)    RECORD    REGULAR    IR    SORTING ONLY    WHOLE FILE (#260)
    512549      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. 
    515551        Set Logic:  S ^VWLEX(260,"AG",$E(X(1),1,30),X(2),DA(1),DA)=""
    516552       Kill Logic:  K ^VWLEX(260,"AG",$E(X(1),1,30),X(2),DA(1),DA)
    517553       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)
    520555             X(2):  APPLICATION USE  (260.002,.02)  (Subscr 2)  (forwards)
    521556
     
    525560PRINT TEMPLATE(S):
    526561CAPTIONED                                         USER #0   
    527 ZZNANCYVacMan                 AUG 13, 2011@11:21  USER #9                     @
     562ZZNANCYVacMan                 AUG 13, 2011@11:21  USER #9                                                                         @
    528563
    529564SORT TEMPLATE(S):
     
    534569FORM(S)/BLOCK(S):
    535570
    536 }}}