Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^HL(779.004

Package: Health Level Seven

Global: ^HL(779.004


Information

FileMan FileNo FileMan Filename Package
779.004 COUNTRY CODE Health Level Seven

Description

Directly Accessed By Routines, Total: 20

Package Total Routines
Registration 11 DG53807P    DGADDUT2    DGADDUTL    DGREGAED    DGREGTE2    DGREGTED    DGRPC    DGRPC2
DGRPC3    DGRPE    VADPT1    
Health Level Seven 5 ^HL(779.004    EFFECTIVE DATE/TIME    HLFNC2    HLUTIL2    VERSION    
Contract Health Management Information System 1 ACHSWDCS    
IHS RPMS CHR System 1 BCHPOS1    
IHS Support HL7 Interfaces 1 BHLRXPS1    
Radiology Nuclear Medicine 1 RA25PRE1    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
IHS Changes To Lab 3 BLR7OGMP    BLRRLMUC    BLRRLMUM    
Lab Service 1 LR7OGMG    
Registration 1 DGPTR0    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
Health Level Seven 1 HL7 APPLICATION PARAMETER(#771)[7]    
Lab Service 1 LAB DATA(#63)[#63.04(9999997), #63.05(9999997)]    
Utility Tables 1 VENDOR(#9999999.11)[2401, 2402, 2403]

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Health Level Seven 1 HL7 VERSION(#771.5)[#779.00401(.01)]    

Fields, Total: 9

Field # Name Loc Type Details
.01 CODE 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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)





1.1
NUMERIC CODE
SDS;1
FREE TEXT 

************************REQUIRED FIELD************************
  • 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".





1.2
FIPS CODE
SDS;2
FREE TEXT 

************************REQUIRED FIELD************************
  • 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".





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)





2
DESCRIPTION
0;2
FREE TEXT 

************************REQUIRED FIELD************************
  • 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)





99.98
MASTER ENTRY FOR VUID
VUID;2
SET 

************************REQUIRED FIELD************************
  • '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 (#224)





99.99
VUID
VUID;1
FREE TEXT 

************************REQUIRED FIELD************************
  • 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 (#224)





99.991
EFFECTIVE DATE/TIME
TERMSTATUS;0
DATE Multiple #779.00409 
779.00409
  • LAST EDITED:  JAN 11, 2006
  • DESCRIPTION:  
    Describes the pair Status and Effective Date/Time for each reference term.
    WRITE AUTHORITY:  ^





100
VERSION
1;0
POINTER Multiple #779.00401
779.00401






ICR, Total: 2





ICR LINK
Subscribing Package(s)
Fields Referenced
Description




ICR #5530

  • LAB SERVICE
    		• 
CODE (.01). 
     Access: Read w/Fileman

    DESCRIPTION (2). 
     Access: Read w/Fileman

    		


    

    
ICR #5768

CODE (.01). 
     Access: Read w/Fileman

    DESCRIPTION (2). 
     Access: Read w/Fileman

    VERSION (.01). 
     Access: Read w/Fileman

    NUMERIC CODE (1.1). 
     Access: Read w/Fileman

    FIPS CODE (1.2). 
     Access: Read w/Fileman

    POSTAL NAME (1.3). 
     Access: Read w/Fileman

    EFFECTIVE DATE/TIME (.01). 
     Access: Read w/Fileman

    STATUS (.02). 
     Access: Read w/Fileman

    VUID (99.99). 
     Access: Read w/Fileman

    MASTER ENTRY FOR VUID (99.98). 
     Access: Read w/Fileman

    		


    

    


    External References
    

    

    

    
Name
Field # of Occurrence

    

    
EN^DDIOL
.01TPL+1, .01DEL1+1, .01LAYGO1+1

    

    
$$UP^XLFSTR
2(XREF 1S), 2(XREF 1K)

    

    

    


    Global Variables Directly Accessed
    

    

    

    
Name
Line Occurrences  (* Changed,  ! Killed)

    

    
^HL(779.004 - [#779.004]
.01(XREF 1S), .01(XREF 1K), 1.3(XREF 1S), 1.3(XREF 1K), 2(XREF 1S), 2(XREF 1K), 99.99(XREF 1S), 99.99(XREF 1K)

    

    

    


    Naked Globals
    

    

    

    
Name
Field # of Occurrence

    

    
^(0
ID2+1

    

    

    


    Local Variables
    

    

  
    
    
    Legend:
    
    
    
      
        
    
           >> 
           Not killed explicitly
          
    
           * 
          Changed
          
    
           ! 
          Killed
          
    
          ~
          Newed
        
    
          
    
    
    
    
  
    

    

    
Name
Field # of Occurrence

    

    
>> DA
.01(XREF 1S), .01(XREF 1K), 1.3(XREF 1S), 1.3(XREF 1K), 2(XREF 1S), 2(XREF 1K), 99.99(XREF 1S), 99.99(XREF 1K)

    

    
>> DIC(0
.01TPL+1

    

    
U
ID2+1

    

    
X
.01+1!, .01TPL+1!, .01(XREF 1S), .01(XREF 1K), 1.1+1!, 1.2+1!, 1.3+1!, 1.3(XREF 1S), 1.3(XREF 1K), 2+1!
    , 2(XREF 1S), 2(XREF 1K), 99.99+1*!, 99.99(XREF 1S), 99.99(XREF 1K)    		

    

    
>> XUMF
.01TPL+1, .01DEL1+1, .01LAYGO1+1

    

    

    


    


    
Info | 
Desc | 
Directly Accessed By Routines | 
Accessed By FileMan Db Calls | 
Pointed To By FileMan Files | 
Pointer To FileMan Files | 
Fields | 
ICR | 
External References | 
Global Variables Directly Accessed | 
Naked Globals | 
Local Variables | 
All