3>
4> /*******************************************************************
5~ Accepts FirstName,
6~ Returns new ID, Int
7~ 6-12-04 by F S
8~ Revisions:
9~ 7-12-04 PT Changed data type from Int to Decimal
10~ ********************************************************************/
11>