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 |