XLFNAME ;CIOFO-SF/TKW,MKO-Utilities for person name fields ;03/31/15 09:30
Source file <XLFNAME.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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 |
|
| BLDSTD(XUNAME,XUNM,XUOUT,XUAUD) | ;Build standard name in XUNAME
|
|
| GIVFRST | ;Come here if name has no comma.
|
|
| NAMECOMP(XUNM) | ;Build components from standard name
|
|
| MOVSUF(XUREST,XUOUT,XURESTO,XUAUD,XUMOV) | ;Move suffixes immediately in front to the end
|
|
| PUNC(XUNAME,XUAUD) | ;Remove name pieces that are purely punctuation
|
|
| N2(XUREST,XUNM,XUOUT,XURESTO,XUAUD,XUFLAG) | ;Build components from non-family name
|
|
| JOIN(S1,S2) | ;Return S1 joined with S2 (separate by a space)
|
|
| NAMEFMT(XUNAME,XUFMT,XUFLAG,XUDLM) | ;Name formatting routine
|
|
| CLEANC(XUPART,XUFLAG,XUAUD) | ;Component standardization
|
|
| BLDNAME(XUNC,XUMAX) | ;Build standard name from components
|
|
| HLNAME(XUNAME,XUFLAG,XUDLM) | ;Convert name to HL7 format
|
|
| FMNAME(XUNAME,XUFLAG,XUDLM) | ;Convert HL7 name string to standard name or name components
|
|
| PRE | ;Pre-install for patch XU*8.0*134
|
|
| POST | ;Post-install for XU*8.0*134 (conversion)
|
|
| GENERATE | ;Generate information in ^XTMP about changes that will take
|
|
| ;Print the information in ^XTMP
|
||
| CONVERT | ;Convert the Names in the New Person file
|
