| FORMAT CODE |
N IBZ S IBZ=$$NOPUNCT^IBCEF(IBXDATA,1) S IBXDATA=$S(IBZ?10N:($E(IBZ,1,3)_" "_$E(IBZ,4,6)_"-"_$E(IBZ,7,10)),1:$J(IBXDATA,14)) |
| FORMAT CODE DESCRIPTION |
CMS-1500, Box 5 patient telephone with area code.
Strip out all punctuation. If you have exactly 10 numbers left, then
format as nnn nnn-nnnn because the form already has the area code
parenthesis pre-printed.
If you have something other than 10 numbers, then just display the raw
data right justified so as to not overwrite those pre-printed parenthesis.
|
