STANDARD DATA DICTIONARY #779.004 -- COUNTRY CODE FILE                                                            3/24/25    PAGE 1
STORED IN ^HL(779.004,  (228 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                   (VERSION 1.6)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Per VHA Directive 2005-044, this file has been "locked down" by Data Standardization (DS).  The file definition (i.e. data
dictionary) shall not be modified.  All additions, changes and deletions to entries in the file shall be done by Enterprise
Reference Terminology (ERT) using the Master File Server (MFS), provided by Common Services (CS).  Creating and/or editing locally
defined fields in the file are not permitted.  Use of locally defined fields that were created prior to the VHA Directive's 
2005-044 effective date shall not be supported.  
 
This file is a table of country codes that are used by the Messaging System when building message header segments.  
 
This file should not be modified locally.  


IDENTIFIED BY: DESCRIPTION (#2)[R]

POINTED TO BY: COUNTRY field (#.01) of the COUNTRY sub-field (#1.7111) of the TIMEFRAME sub-field (#1.711) of the WORLD TIMEZONES 
                   File (#1.71) 
               COUNTRY field (#.01) of the WORLD DAYLIGHT SAVINGS File (#1.72) 
               TIME SAME AS field (#.03) of the WORLD DAYLIGHT SAVINGS File (#1.72) 
               PLACE OF BIRTH COUNTRY field (#.0931) of the PATIENT File (#2) 
               RESIDENTIAL COUNTRY field (#.11573) of the PATIENT File (#2) 
               COUNTRY field (#.1173) of the PATIENT File (#2) 
               TEMPORARY ADDRESS COUNTRY field (#.1223) of the PATIENT File (#2) 
               CONFIDENTIAL ADDR COUNTRY field (#.14116) of the PATIENT File (#2) 
               K2-COUNTRY field (#.2101) of the PATIENT File (#2) 
               K-COUNTRY field (#.221) of the PATIENT File (#2) 
               E-COUNTRY field (#.3306) of the PATIENT File (#2) 
               E2-COUNTRY field (#.331012) of the PATIENT File (#2) 
               D-COUNTRY field (#.34012) of the PATIENT File (#2) 
               COUNTRY field (#801) of the INSTITUTION File (#4) 
               PRIOR COUNTRY field (#17) of the IVM ADDRESS CHANGE LOG File (#301.7) 
               COUNTRY field (#2.12) of the HCS REVIEW TRANSMISSION File (#356.22) 
               CONTACT COUNTRY CODE field (#5.05) of the PATIENT EVENT PROVIDER sub-field (#356.2213) of the HCS REVIEW 
                   TRANSMISSION File (#356.22) 
               CONTACT COUNTRY CODE field (#5.05) of the SERVICE PROVIDER sub-field (#356.22168) of the SERVICE LINE sub-field 
                   (#356.2216) of the HCS REVIEW TRANSMISSION File (#356.22) 
               PAYER RESP CONTACT COUNTRY [D] field (#120.06) of the HEALTH CARE CLAIM RFAI (277) File (#368) 
               TCSP COUNTRY CODE field (#169.3) of the ACCOUNTS RECEIVABLE File (#430) 
               COUNTRY CODE field (#7) of the HL7 APPLICATION PARAMETER File (#771) 
               

CROSS
REFERENCED BY: VUID(AVUID), CODE(B), POSTAL NAME(C), DESCRIPTION(D)

INDEXED BY:    VUID & MASTER ENTRY FOR VUID (AMASTERVUID)




779.004,.01   CODE                   0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X
              LAST EDITED:      JAN 11, 2006 
              HELP-PROMPT:      The code for the country.  Answer must be 1-3 characters in length. 
              DESCRIPTION:      The three-character alpha identifying code.  
                                 
                                The alpha 3 code for the USA is "USA".  

              PRE-LOOKUP:       I $G(DIC(0))["L",'$D(XUMF) K X D EN^DDIOL("Entries must be edited via the Master File Server (MFS).
                                ","","!?5,$C(7)")
              DELETE TEST:      1,0)= D:'$D(XUMF) EN^DDIOL("Entries must be inactivated via the Master File Server (MFS).","","!?5,
                                $C(7)") I $D(XUMF)

              LAYGO TEST:       1,0)= D:'$D(XUMF) EN^DDIOL("Entries must be added via the Master File Server (MFS).","","!?5,$C(7)"
                                ) I $D(XUMF)

              WRITE AUTHORITY:  ^
              CROSS-REFERENCE:  779.004^B 
                                1)= S ^HL(779.004,"B",$E(X,1,30),DA)=""
                                2)= K ^HL(779.004,"B",$E(X,1,30),DA)


779.004,1.1   NUMERIC CODE           SDS;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?3N) X
              LAST EDITED:      JAN 11, 2006 
              HELP-PROMPT:      Answer must be 3 numeric digits. 
              DESCRIPTION:      The three-digit numeric identifying code.  
                                 
                                The numeric code for the USA is "840".  


779.004,1.2   FIPS CODE              SDS;2 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2A) X
              LAST EDITED:      JAN 11, 2006 
              HELP-PROMPT:      Answer must be 2 characters in length. 
              DESCRIPTION:      The code assigned to this nation by US Government standard FIPS 10-4.  
                                 
                                The FIPS code for the USA is "US".  


779.004,1.3   POSTAL NAME            SDS;3 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>100!($L(X)<3) X
              LAST EDITED:      JAN 26, 2006 
              HELP-PROMPT:      Answer must be 3-100 characters in length. 
              DESCRIPTION:
                                The name used as the destination country for mail sent from the United States to this country.  

              CROSS-REFERENCE:  779.004^C 
                                1)= S ^HL(779.004,"C",$E(X,1,30),DA)=""
                                2)= K ^HL(779.004,"C",$E(X,1,30),DA)


779.004,2     DESCRIPTION            0;2 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1) X
              LAST EDITED:      FEB 28, 2006 
              HELP-PROMPT:      The name of the country.  Answer must be 1-100 characters in length. 
              WRITE AUTHORITY:  ^
              CROSS-REFERENCE:  779.004^D^MUMPS 
                                1)= S ^HL(779.004,"D",$E($$UP^XLFSTR(X),1,30),DA)=""
                                2)= K ^HL(779.004,"D",$E($$UP^XLFSTR(X),1,30),DA)


779.004,99.98 MASTER ENTRY FOR VUID  VUID;2 SET (Required)

                                '0' FOR NO; 
                                '1' FOR YES; 
              LAST EDITED:      JAN 11, 2006 
              DESCRIPTION:
                                This field identifies the Master entry for a VUID associated with a Term/Concept.  

              WRITE AUTHORITY:  ^
                                UNEDITABLE
              RECORD INDEXES:   AMASTERVUID (#654)

779.004,99.99 VUID                   VUID;1 FREE TEXT (Required)

              INPUT TRANSFORM:  S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X
              LAST EDITED:      JAN 11, 2006 
              HELP-PROMPT:      Answer must be 1-20 digits in length. 
              DESCRIPTION:
                                VHA Unique ID (VUID). A unique meaningless integer assigned to reference terms VHA wide.  

              WRITE AUTHORITY:  ^
                                UNEDITABLE
              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

              CROSS-REFERENCE:  779.004^AVUID 
                                1)= S ^HL(779.004,"AVUID",$E(X,1,30),DA)=""
                                2)= K ^HL(779.004,"AVUID",$E(X,1,30),DA)
                                3)= This cross-reference is by VUID.
                                This cross-reference is by VUID.  


              RECORD INDEXES:   AMASTERVUID (#654)

779.004,99.991EFFECTIVE DATE/TIME    TERMSTATUS;0 DATE Multiple #779.00409 (Add New Entry without Asking)

              LAST EDITED:      JAN 11, 2006 
              DESCRIPTION:
                                Describes the pair Status and Effective Date/Time for each reference term.  

              WRITE AUTHORITY:  ^

779.00409,.01   EFFECTIVE DATE/TIME    0;1 DATE (Required)

                INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
                LAST EDITED:      JAN 11, 2006 
                DESCRIPTION:
                                  This is the date/time when the Status of the reference term was established.  

                WRITE AUTHORITY:  ^
                CROSS-REFERENCE:  779.00409^B 
                                  1)= S ^HL(779.004,DA(1),"TERMSTATUS","B",$E(X,1,30),DA)=""
                                  2)= K ^HL(779.004,DA(1),"TERMSTATUS","B",$E(X,1,30),DA)
                                  This cross-reference is by Effective Date/Time.  



779.00409,.02   STATUS                 0;2 SET (Required)

                                  '1' FOR ACTIVE; 
                                  '0' FOR INACTIVE; 
                LAST EDITED:      JAN 11, 2006 
                DESCRIPTION:      The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If 'ACTIVE', then the term will
                                  be accessible by end-users to document a particular patient event. If 'INACTIVE', then the term
                                  will only be accessible by the application to display legacy data.  

                WRITE AUTHORITY:  ^
                                  UNEDITABLE



779.004,100   VERSION                1;0 POINTER Multiple #779.00401

              WRITE AUTHORITY:  ^

779.00401,.01   VERSION                0;1 POINTER TO HL7 VERSION FILE (#771.5) (Required)

                LAST EDITED:      SEP 28, 1994 
                HELP-PROMPT:      The version(s) of the standard in which this country code is used. 
                WRITE AUTHORITY:  ^
                CROSS-REFERENCE:  779.00401^B 
                                  1)= S ^HL(779.004,DA(1),1,"B",$E(X,1,30),DA)=""
                                  2)= K ^HL(779.004,DA(1),1,"B",$E(X,1,30),DA)





      FILES POINTED TO                      FIELDS

HL7 VERSION (#771.5)              VERSION:VERSION (#.01)


File #779.004

  Record Indexes:

  AMASTERVUID (#654)    RECORD    REGULAR    IR    SORTING ONLY
      Short Descr:  This cross-reference identifies the Master entry for a VUID.
      Description:  If multiple entries have the same VUID in the file, this cross-refernce can be used to identify the Master
                    entry for a VUID associated with a Term/Concept.  
        Set Logic:  S ^HL(779.004,"AMASTERVUID",$E(X(1),1,30),X(2),DA)=""
       Kill Logic:  K ^HL(779.004,"AMASTERVUID",$E(X(1),1,30),X(2),DA)
       Whole Kill:  K ^HL(779.004,"AMASTERVUID")
             X(1):  VUID  (779.004,99.99)  (Subscr 1)  (Len 30)  (forwards)
             X(2):  MASTER ENTRY FOR VUID  (779.004,99.98)  (Subscr 2)  (forwards)


INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):