XLFNAME8 ;BPOIFO/KEITH/DW - NAME STANDARDIZATION ; 12 Aug 2002@20:20
Source file <XLFNAME8.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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
|
Name | Line Occurrences |
---|---|
$$CLAST | F1+50 |
$$FC1 | F1+9 |
@( | CVALID+14 |
CMP | BLDNAME+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DIERR | CVALID+11~ |
DUZ | NOTES+5, NOTES+6 |
U | CVALID+13, CVALID+15, CVALID+19, CVALID+26, NOTES+7, COMP+7, F1+15, F1+18, F1+36, CMP+6 |
>> XQY0 | NOTES+7 |
>> XUAUDIT(2 | F1+55* |
XUC | CVALID~, CVALID+13, CVALID+14, CVALID+17, F1+5~, F1+9*, F1+10, F1+15*, F1+16, F1+17 , F1+18, F1+23*, F1+24, F1+25, F1+27*, F1+28*, F1+29, F1+35*, F1+36, F1+37 , F1+42*, F1+56*, F1+57, CLAST~, CLAST+2, CLAST+3, FC1~, FC1+5*, FC1+7, FC1+9 , FC1+11, FC1+13*, FC1+15* |
XUC(1 | F1+49*, F1+50 |
XUC(2 | F1+49*, F1+50 |
XUCH | F1+47~*, F1+48*, F1+52* |
XUCOM | CMP+2~, CMP+4*, CMP+6 |
XUCOMA | F1~, F1+9, F1+22, FC1~, FC1+7 |
XUCOMP | CMP+2~, CMP+6*, CMP+7, CMP+8 |
XUDNC | COMP~, COMP+5, COMP+6* |
XUF | CVALID+11~, CVALID+12*, CVALID+13*, CVALID+21 |
XUHOW | NOTES+3~, NOTES+7*, NOTES+8 |
XUI | CVALID+11~, CVALID+23*, CVALID+24, COMP+4~, COMP+7*, F1+5~, F1+9*, F1+10, F1+15*, F1+18 , F1+35*, F1+36, F1+37*, F1+38, F1+42*, F1+43, F1+44*, F1+49*, F1+56*, CMP+2~ , CMP+5*, CMP+6 |
XUII | F1+5~, F1+17*, F1+18 |
XUL | CVALID+11~, CVALID+15*, CVALID+19 |
XUM | CVALID~, CMP+2~, CMP+7 |
XUM("ERROR" | CVALID+24* |
XUM("LENGTH" | FAMILY+1*, GIVEN+1*, MIDDLE+1*, PREFIX+1*, SUFFIX+1*, DEGREE+1*, CVALID+15 |
XUM("RESULT" | CVALID+26*, CMP+8 |
XUMAX | BLDNAME~, BLDNAME+5 |
XUMSG | CVALID+11~ |
XUMSG("DIERR" | CVALID+22, CVALID+23, CVALID+24 |
XUNC | CMP~, BLDNAME~, BLDNAME+4, BLDNAME+5 |
XUNC( | CMP+7, CMP+8* |
XUOLDX | F1+5~*, F1+62 |
XUOLDX(1 | F1+48*, F1+52 |
XUOLDX(2 | F1+47*, F1+55 |
XUR | CVALID+11~, CVALID+21, CVALID+26 |
XUWHEN | NOTES+3~, NOTES+4*, NOTES+8 |
XUWHO | NOTES+3~, NOTES+5*, NOTES+6*, NOTES+8 |
XUX | CVALID~, CVALID+17*, CVALID+19*, CVALID+21, COMP~, COMP+5, F1~, F1+5, F1+7*, F1+9 , F1+10*, F1+16, F1+17, F1+18*, F1+22, F1+23, F1+24, F1+25*, F1+26, F1+27* , F1+28, F1+29*, F1+33, F1+35, F1+36, F1+37, F1+38*, F1+42, F1+43, F1+44* , F1+47, F1+48, F1+50, F1+51*, F1+52, F1+55, F1+57*, F1+60*, F1+61*, F1+62 , CLAST~, CLAST+2, CLAST+3 |
XUX( | COMP+7* |
XUY | COMP+4~, COMP+6*, COMP+7, F1+5~, F1+13*, F1+15, F1+22*, F1+23, F1+26*, F1+27 , F1+34*, F1+36, F1+48*, F1+49, F1+56, CLAST+1~, CLAST+3* |
XUZ | COMP+4~, COMP+7*, F1+5~, F1+14*, F1+18, F1+28*, F1+29, CLAST+1~, CLAST+2*, CLAST+3* , CLAST+4 |
XUZ(1 | F1+50*, F1+51 |
XUZ(2 | F1+50*, F1+51 |