XLFNAME ;CIOFO-SF/TKW,MKO-Utilities for person name fields ;10:12 AM 29 Jan 2003 [ 07/29/2004 9:01 AM ]
Source file <XLFNAME.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PRE | ;Pre-install for patch XU*8.0*134
|
|
BLDNAME(XUNC,XUMAX) | ;Build standard name from components
|
|
BLDSTD(XUNAME,XUNM,XUOUT,XUAUD) | ;Build standard name in XUNAME
|
|
MOVSUF(XUREST,XUOUT,XURESTO,XUAUD,XUMOV) | ;Move suffixes immediately in front to the end
|
|
PUNC(XUNAME,XUAUD) | ;Remove name pieces that are purely punctuation
|
|
CLEANC(XUPART,XUFLAG,XUAUD) | ;Component standardization
|
|
NAMEFMT(XUNAME,XUFMT,XUFLAG,XUDLM) | ;Name formatting routine
|
|
NAMECOMP(XUNM) | ;Build components from standard name
|
|
STDNAME(XUNAME,XUFLAG,XUAUD) | ;Standardize name XUNAME
; XUNAME - In, name to be standardized. Out, standardized name ; XUFLAG - In, "C" : return components in XUNAME array ; "F" : Assume input is in general form ; Family,Given Middle Suffix ; "G" : Don't return XUAUD("GIVEN") ; "P" : Remove parenthetical text |
|
HLNAME(XUNAME,XUFLAG,XUDLM) | ;Convert name to HL7 format
|
|
CONVERT | ;Convert the Names in the New Person file
|
|
JOIN(S1,S2) | ;Return S1 joined with S2 (separate by a space)
|
|
;Print the information in ^XTMP
|
||
POST | ;Post-install for XU*8.0*134 (conversion)
|
|
FMNAME(XUNAME,XUFLAG,XUDLM) | ;Convert HL7 name string to standard name or name components
|
|
GIVFRST | ;Come here if name has no comma.
|
|
GENERATE | ;Generate information in ^XTMP about changes that will take
|
|
N2(XUREST,XUNM,XUOUT,XURESTO,XUAUD,XUFLAG) | ;Build components from non-family name
|
Name | Field # of Occurrence |
---|---|
$$NAMEFMT^XLFNAME | HLNAME+4 |
$$CHKSUF^XLFNAME1 | STDNAME+54, N2+20 |
$$CHKSUF1^XLFNAME1 | MOVSUF+3 |
$$CLEANC^XLFNAME1 | STDNAME+31, STDNAME+34, STDNAME+46, STDNAME+48, GIVFRST+4, GIVFRST+7 |
$$PARENS^XLFNAME1 | STDNAME+20 |
$$ROMAN^XLFNAME1 | STDNAME+60, N2+21 |
CLEANCX^XLFNAME1 | CLEANC+1 |
NAMEFMTX^XLFNAME1 | NAMEFMT+1 |
SUFEND^XLFNAME1 | STDNAME+38, GIVFRST+11 |
POST^XLFNAME3 | POST+1 |
PRE^XLFNAME3 | PRE+1 |
PRINT^XLFNAME4 | PRINT+1 |
CONVERT^XLFNAME5 | CONVERT+1 |
GENERATE^XLFNAME5 | GENERATE+2 |
F^XLFNAME6 | FMNAME+1 |
Name | Line Occurrences |
---|---|
$$JOIN | STDNAME+60, STDNAME+65, PUNC+6, N2+23, N2+24, N2+31, N2+32, N2+35, N2+36 |
$$NAMEFMT | BLDNAME+1 |
$$PUNC | STDNAME+32, STDNAME+35, STDNAME+47, STDNAME+49, GIVFRST+5, GIVFRST+8 |
BLDSTD | STDNAME+68, GIVFRST+22, GIVFRST+30 |
GIVFRST | STDNAME+26 |
MOVSUF | STDNAME+50 |
N2 | STDNAME+51, GIVFRST+29, NAMECOMP+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
I | STDNAME+11~, STDNAME+16*, BLDSTD+2~, BLDSTD+16*, BLDSTD+17, BLDSTD+18 |
J | BLDSTD+2~, BLDSTD+18~* |
S1 | JOIN~, JOIN+1 |
S2 | JOIN~, JOIN+1 |
U | N2+40 |
X | N2+1~, N2+21*, N2+22 |
XUAUD | STDNAME~, STDNAME+14!*, STDNAME+21, STDNAME+31, STDNAME+32, STDNAME+34, STDNAME+35, STDNAME+38, STDNAME+46, STDNAME+47 , STDNAME+48, STDNAME+49, STDNAME+50, STDNAME+51, STDNAME+68, BLDSTD~, GIVFRST+4, GIVFRST+5, GIVFRST+7, GIVFRST+8 , GIVFRST+11, GIVFRST+22, GIVFRST+29, GIVFRST+30, MOVSUF~, PUNC~, N2~, CLEANC~ |
XUAUD("FAMILY" | STDNAME+30* |
XUAUD("GIVEN" | STDNAME+69!, BLDSTD+9*, GIVFRST+18*, GIVFRST+31! |
XUAUD("MIDDLE" | N2+30* |
XUAUD("NM" | N2+42* |
XUAUD("NOTE" | STDNAME+23* |
XUAUD("NUMBER" | BLDSTD+13* |
XUAUD("PUNC" | PUNC+5* |
XUAUD("SPACE" | BLDSTD+6* |
XUAUD("STRIP" | STDNAME+21* |
XUAUD("SUFFIX" | STDNAME+39*, MOVSUF+8*, N2+18*, N2+19*, N2+22* |
XUC | PUNC+1~, PUNC+4*, PUNC+5, PUNC+6 |
XUCNT | STDNAME+55~, STDNAME+57*, STDNAME+58, STDNAME+59, STDNAME+63, STDNAME+64, GIVFRST+1~, GIVFRST+12*, GIVFRST+15, GIVFRST+25 , GIVFRST+26, MOVSUF+1~, MOVSUF+2*, MOVSUF+3, MOVSUF+4, N2+1~, N2+3*, N2+7, N2+11 |
XUDLM | NAMEFMT~, HLNAME~, HLNAME+4, FMNAME~ |
XUF | HLNAME+1~, HLNAME+2*, HLNAME+3*, HLNAME+4 |
XUFAM | STDNAME+11~, STDNAME+31*, STDNAME+32*, STDNAME+38, STDNAME+40 |
XUFAMO | STDNAME+13~, STDNAME+34*, STDNAME+35*, STDNAME+38, STDNAME+40 |
XUFLAG | STDNAME~, STDNAME+12, STDNAME+19, STDNAME+26, STDNAME+69, GIVFRST+18, GIVFRST+31, N2~, N2+16, NAMEFMT~ , CLEANC~, HLNAME~, HLNAME+2, HLNAME+3, FMNAME~ |
XUFMT | NAMEFMT~ |
XUGIVEN | N2+1~, N2+9*, N2+31*, N2+44, N2+45 |
XUGIVENO | N2+2~, N2+9*, N2+32*, N2+46 |
XUI | MOVSUF+1~, MOVSUF+3*, MOVSUF+4, MOVSUF+5, MOVSUF+6, MOVSUF+7, PUNC+1~, PUNC+3*, PUNC+4, N2+1~ , N2+11*, N2+12, N2+13, N2+18, N2+19, N2+22, N2+30 |
XUMAX | BLDNAME~, BLDNAME+1 |
XUMIDDLE | N2+1~, N2+9*, N2+16, N2+27*, N2+38 |
XUMIDO | N2+2~, N2+9*, N2+27*, N2+39 |
XUMOV | STDNAME+11~, STDNAME+50, STDNAME+58, STDNAME+59, STDNAME+63, STDNAME+64, MOVSUF~, MOVSUF+2*, MOVSUF+5* |
XUNAM | GIVFRST+1~, GIVFRST+4*, GIVFRST+5*, GIVFRST+11, GIVFRST+12, GIVFRST+25 |
XUNAME | STDNAME~, STDNAME+14, STDNAME+17*, STDNAME+19, STDNAME+20*, STDNAME+21, STDNAME+23, STDNAME+26, STDNAME+30, STDNAME+31 , STDNAME+34, STDNAME+43, STDNAME+68, BLDSTD~, BLDSTD+3!*, BLDSTD+5*, BLDSTD+6*, BLDSTD+8*, BLDSTD+10*, BLDSTD+11* , BLDSTD+12*, BLDSTD+13, GIVFRST+4, GIVFRST+5, GIVFRST+7, GIVFRST+22, GIVFRST+30, PUNC~, PUNC+3, PUNC+4 , NAMEFMT~, HLNAME~, HLNAME+4, FMNAME~ |
XUNAME( | BLDSTD+16, BLDSTD+17*, BLDSTD+18* |
XUNAMO | GIVFRST+1~, GIVFRST+7*, GIVFRST+8*, GIVFRST+11, GIVFRST+26 |
XUNC | BLDNAME~, BLDNAME+1 |
XUNEW | PUNC+1~, PUNC+2*, PUNC+6*, PUNC+7 |
XUNM | STDNAME+11~, STDNAME+38, STDNAME+51, STDNAME+68, BLDSTD~, GIVFRST+11, GIVFRST+22, GIVFRST+29, GIVFRST+30, NAMECOMP~ , NAMECOMP+1, NAMECOMP+2, N2~ |
XUNM( | STDNAME+16* |
XUNM("FAMILY" | STDNAME+40*, BLDSTD+5, GIVFRST+16*, GIVFRST+25*, NAMECOMP+1* |
XUNM("GIVEN" | STDNAME+54, STDNAME+56, STDNAME+60, STDNAME+61*, BLDSTD+8, N2+6*, N2+45* |
XUNM("MIDDLE" | STDNAME+54, BLDSTD+10, NAMECOMP+3*, N2+38*, N2+40, N2+41* |
XUNM("SUFFIX" | STDNAME+39, STDNAME+57, STDNAME+58, STDNAME+59, STDNAME+60*, BLDSTD+11, GIVFRST+16, GIVFRST+17*, NAMECOMP+4*, N2+35* |
XUOUT | STDNAME+11~, STDNAME+12*, STDNAME+13, STDNAME+16, STDNAME+33, STDNAME+38, STDNAME+40, STDNAME+45, STDNAME+50, STDNAME+51 , STDNAME+62, STDNAME+68, BLDSTD~, BLDSTD+3, BLDSTD+16, GIVFRST+6, GIVFRST+11, GIVFRST+19, GIVFRST+22, GIVFRST+26 , GIVFRST+29, GIVFRST+30, MOVSUF~, MOVSUF+7, N2~, N2+2*, N2+6, N2+9, N2+13, N2+24 , N2+27, N2+32, N2+36, N2+39, N2+41, N2+46 |
XUOUT( | STDNAME+16* |
XUOUT("FAMILY" | STDNAME+40*, GIVFRST+20*, GIVFRST+26* |
XUOUT("GIVEN" | STDNAME+65, STDNAME+66*, N2+6*, N2+46* |
XUOUT("MIDDLE" | N2+39*, N2+41* |
XUOUT("SUFFIX" | STDNAME+63, STDNAME+64, STDNAME+65*, GIVFRST+20, GIVFRST+21*, N2+36* |
XUPART | CLEANC~ |
XUREST | STDNAME+11~, STDNAME+43*, STDNAME+44, STDNAME+46, STDNAME+47, STDNAME+48*, STDNAME+49*, STDNAME+50, STDNAME+51, GIVFRST+25* , GIVFRST+29, MOVSUF~, MOVSUF+2, MOVSUF+3, MOVSUF+6*, N2~, N2+3, N2+6, N2+12, N2+19 |
XURESTO | STDNAME+13~, STDNAME+46*, STDNAME+47*, STDNAME+50, STDNAME+51, GIVFRST+26*, GIVFRST+29, MOVSUF~, MOVSUF+7*, N2~ , N2+6, N2+13 |
XUSP | STDNAME+11~, STDNAME+44*, STDNAME+56 |
XUSUF | N2+1~, N2+9*, N2+23*, N2+34, N2+35 |
XUSUF1 | STDNAME+55~, STDNAME+58*, STDNAME+60, STDNAME+63*, STDNAME+65 |
XUSUF2 | STDNAME+55~, STDNAME+59*, STDNAME+60, STDNAME+64*, STDNAME+65 |
XUSUFFIX | N2+1~, N2+16, N2+17*, N2+20*, N2+21*, N2+22, N2+23 |
XUSUFO | N2+2~, N2+9*, N2+24*, N2+36 |
XUX | N2+1~, N2+12*, N2+18, N2+19, N2+20, N2+27, N2+31 |
XUXO | N2+2~, N2+13*, N2+24, N2+27, N2+32 |