*! version 1.0.0  02/02/93 extrname <recase> utility; STB-13: dm13
program define _crcexnf /* fn md ln */
	local fn "`1'"
	local mn "`2'"
	local ln "`3'"

		/*
			Final cleaning (periods and capitalization)
		*/

	minlen 2 `fn' `mn'
	replace `fn' = `fn' + "." if length(`fn')==1
	replace `mn' = `mn' + "." if length(`mn')==1

	replace `fn'=upper(substr(`fn',1,1))+substr(`fn',2,.)
	replace `mn'=upper(substr(`mn',1,1))+substr(`mn',2,.)

	mixcase `ln'
	replace `ln'=substr(`ln',1,2)+upper(substr(`ln',3,1))+ /*
		*/ substr(`ln',4,.) if substr(`ln',1,2)=="Mc"
end