Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: XLFNAME1

Package: Kernel

Routine: XLFNAME1


Information

XLFNAME1 ;CIOFO-SF/TKW,MKO-Utilities for person name fields ;05/05/2010

Source Information

Source file <XLFNAME1.m>

Entry Points

Name Comments DBIA/ICR reference
REMDBL(X,S) ;For each char in S, remove double chars
REMBE(X,S) ;Remove each char in S from the beg and end of X
ROMAN(X) ; Replace numeric suffixes to Roman Numeral equivalents
CHKSUF(X) ;Return X if it looks like a suffix; otherwise, return null
CHKSUF1(X) ; Return X if it looks like a suffix, but not I, V, X
PERIOD(X) ; Change X so that there is a space after every period
PARENS(X) ;Strip parenthetical part(s) from X
SUFEND(XUN,XUNO,XUNM,XUOUT,XUAUD) ;Look for suffixes at end of XUN
CLEANC(XUPART,XUFLAG,XUAUD) ; Component standardization
CLEANCX ; Entry point from CLEANC^XLFNAME
NAMEFMT(XUNAME,XUFMT,XUFLAG,XUDLM) ; Name formatting routine (extrinsic)
NAMEFMTX ;
; XUNAME: Input name components array or Name Components Key fields
; XUFMT: F=Family name first,G=Given name first,H=HL7 (default G)
; XUFLAG: P=Include prefix,D=Include degree,S=Standardize components,M=Mixed case
; XUDLM: Delimiter if HL7 message (def = ^)
MIX(X) ; Return name part with only first letter upper-case
MIX2(XUN) ; Properly capitalize suffixes, degrees
O(N) ;O format
F(N,F) ;F format
G(N,F) ;G format
H(N,D) ;H format
SPD(NAM,N,F) ;Add Suffix, Prefix, and Degree
JOIN(S1,S2,D) ;Return S1 joined with S2 (separate by D)
TRUNC(NC,OVR) ;Truncate component
Info |  Source |  Entry Points