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 |  Fields |  All
Print Page as PDF
Global: ^AUTTLANG

Package: Utility Tables

Global: ^AUTTLANG


Information

FileMan FileNo FileMan Filename Package
9999999.99 LANGUAGES Utility Tables

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
iCare 3 BQIDCAH5    BQIPTTR    BQIUTB3    
Patient Care Component Reports 1 APCLAPI7    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
IHS Patient Registration 1 AGED10B    
Utility Tables 1 AUT98P25    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
IHS Patient 1 PATIENT(#9000001)[#9000001.86(.02), #9000001.86(.04), #9000001.8605(.01)]
Patient Care Component 1 PCC MAN REPORTS VISIT SORT(#9001003.7)[999923]    

Fields, Total: 4

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

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  FEB 19, 2010
  • HELP-PROMPT:  Enter the name of the language (2-30 characters)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9999999.99^B
    1)= S ^AUTTLANG("B",$E(X,1,30),DA)=""
    2)= K ^AUTTLANG("B",$E(X,1,30),DA)
1 CENSUS CODE 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?3N) X
  • LAST EDITED:  FEB 19, 2010
  • HELP-PROMPT:  Enter a 3-digit numeric code (000-999).
  • CROSS-REFERENCE:  9999999.99^C
    1)= S ^AUTTLANG("C",$E(X,1,30),DA)=""
    2)= K ^AUTTLANG("C",$E(X,1,30),DA)
2 ISO 639-1 CODE 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  FEB 24, 2010
  • HELP-PROMPT:  Answer must be 2 characters in length
  • CROSS-REFERENCE:  9999999.99^ISO1
    1)= S ^AUTTLANG("ISO1",$E(X,1,30),DA)=""
    2)= K ^AUTTLANG("ISO1",$E(X,1,30),DA)
3 ISO 639-2 CODE 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  FEB 24, 2010
  • HELP-PROMPT:  Answer must be one or more 3 character entries separated by spaces.
  • CROSS-REFERENCE:  9999999.99^ISO2^KWIC
    1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I " "[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^AUTTLANG("ISO2",I,DA)=""
    2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I " "[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^AUTTLANG("ISO2",I,DA)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Fields |  All