Exchange AKA with NICK on Names.fh_lua

--[[
@Title: Exchange _ALIA for NICK
@Author: Jane Taubman
@LastUpdated: June 2011
@Description:
]]

-- Process through all elements in the Individual section
pi = fhNewItemPtr()
paka = fhNewItemPtr()
pnick = fhNewItemPtr()
pname = fhNewItemPtr()
pi:MoveToFirstRecord("INDI")
while not pi:IsNull() do
	paka:MoveTo(pi,'~._ALIA')
	if not paka:IsNull() then
		strName = fhGetValueAsText(paka)
		pname:MoveTo(pi,'~.NAME')  
		pnick = fhCreateItem('NICK',pname)
		fhSetValueAsText(pnick,strName)
		fhDeleteItem(paka)
	end
    pi:MoveNext()
end