Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 2.01

Package: Registration

VA PATIENT(#2)-->2.01

Sub-Field: 2.01


Information

Parent File Name Number Package
VA PATIENT(#2) ALIAS 2.01 Registration

Details

Field # Name Loc Type Details
.01 ALIAS 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X I $D(X) K DG20NAME S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,30) K:'$L(X) X,DG20NAME
  • LAST EDITED:  MAY 27, 2004
  • HELP-PROMPT:  Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-30 characters in length.
  • DESCRIPTION:  Enter the alias name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters
    and parenthetical text will be removed.
  • TECHNICAL DESCR:  
    IHS/ITSC/LJF 2/5/2004: Changed Input Transform - added K DG20NAME before setting DG20NAME to kill any leftover array items from previous patient.
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^B^MNEMONIC
    1)= S:'$D(^DPT("B",$E(X,1,30),DA(1),DA)) ^(DA)=1
    2)= I $D(^DPT("B",$E(X,1,30),DA(1),DA)),^(DA) K ^(DA)
  • CROSS-REFERENCE:  2.01^AAVABDW15^MUMPS
    1)= D SET^AUPNDWXR(DA(1),"ALIAS")
    2)= D KILL^AUPNDWXR(DA(1),"ALIAS")
    Populates AUPNDWAF for the Data Warehouse export.  See routine AUPNDWXR for documentnation.
  • FIELD INDEX:  ANAM201 (#40) MUMPS IR ACTION WHOLE FILE (#2)
    Short Descr:  This index keeps the NAME COMPONENTS file in synch with the .01 field.
    Description:  This cross reference uses Kernel name standardization APIs to keep the NAME COMPONENTS (#20) file record associated with the #.01 field synchronized with the data value stored in that field.
    Set Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^DPTNAME(.DG20NAME),UPDCOMP^XLFNAME2(2.01,.DA,.01,.DG20NAME,100.03,,"CL30") K DG20NAME Q
    Kill Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2.01,.DA,.01,100.03) Q
    X(1):  ALIAS  (2.01,.01)  (Subscr 1)  (forwards)
1 ALIAS SSN 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9)!'(X?9N) X
  • LAST EDITED:  DEC 13, 1985
  • HELP-PROMPT:  ANSWER MUST BE 9 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    If the patient was also known under a name other than that listed in the NAME field of the PATIENT file, enter the social security number used when the patient used this alias.
100.03 ALIAS COMPONENTS 0;3 POINTER TO NAME COMPONENTS FILE (#20) NAME COMPONENTS(#20)

  • LAST EDITED:  APR 19, 2002
  • HELP-PROMPT:  This field contains a pointer to the NAME COMPONENTS record associated with ALIAS field #.01.
    WRITE AUTHORITY:  ^
    UNEDITABLE
Info |  Details |  All