93: WHEN others THEN
94:
95: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
96:
97: Fnd_Msg_Pub.Add_Exc_Msg
98: (
99: p_pkg_name => G_PKG_NAME,
100: p_procedure_name => l_api_name
101: );
136:
137: ELSIF p_mode <> 'R' THEN
138:
139: Fnd_Message.Set_Name('FND','SYSTEM-INVALID ARGS');
140: Fnd_Msg_Pub.Add;
141: App_Exception.Raise_Exception;
142:
143: END IF;
144:
156:
157: IF SQL%NotFound THEN
158:
159: Fnd_Message.Set_Name('IGW','IGW_SS_RECORD_CHANGED');
160: Fnd_Msg_Pub.Add;
161: App_Exception.Raise_Exception;
162:
163: END IF;
164:
167: WHEN others THEN
168:
169: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
170:
171: Fnd_Msg_Pub.Add_Exc_Msg
172: (
173: p_pkg_name => G_PKG_NAME,
174: p_procedure_name => l_api_name
175: );