INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,30) K:'$L(X) X,DG20NAME
LAST EDITED: JUL 14, 2009
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.
AUDIT: YES, ALWAYS
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)
FIELD INDEX: AVAFC20101 (#397) MUMPS I ACTION
Short Descr: This x-ref calls the DG FIELD MONITOR event point.
Description: This cross reference activates the DG FIELD MONITOR event point. Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
occur. Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
Set Logic: D FC^DGFCPROT(.DA,2.01,.01,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
Kill Logic: D FC^DGFCPROT(.DA,2.01,.01,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
X(1): ALIAS (2.01,.01) (forwards)
FIELD INDEX: ANAM201 (#598) 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^XLFNAME7(.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
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.