XLFNAME8 ;BPOIFO/KEITH/DW - NAME STANDARDIZATION ; 12 Aug 2002@20:20
Source file <XLFNAME8.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
FAMILY | ;Family name help text
|
|
GIVEN | ;Given name help text
|
|
MIDDLE | ;Middle name help text
|
|
PREFIX | ;Name prefix help text
|
|
SUFFIX | ;Name suffix help text
|
|
DEGREE | ;Name degree help text
|
|
CVALID(XUC,XUX,XUM) | ;Name component validation
; Input: XUC=name component (e.g. FAMILY, GIVEN, etc.) ; XUX=input value to validate ; XUM=array to return results and errors (pass by reference) |
|
NOTES() | ;Produce value for the file #20 NOTES ABOUT NAME field
|
|
COMP(XUX,XUDNC) | ;Use existing name array
|
|
F1(XUX,XUCOMA) | ||
CLAST(XUX,XUC) | ;Find last instance of character
|
|
FC1(XUC,XUCOMA) | ;Transform single character
|
|
CMP(XUNC) | ;Cleanup name components
|
|
BLDNAME(XUNC,XUMAX) | ;Build standard name from components
|