1: PACKAGE BODY IBU_HZ_PERSON AS
2: /* $Header: ibuulngb.pls 120.1 2005/09/07 12:04:08 mkcyee noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'IBU_HZ_PERSON';
5: --G_CREATED_BY_MODULE VARCHAR2(30) := 'EMAIL SUBSCRIPTION';
1: PACKAGE BODY IBU_HZ_PERSON AS
2: /* $Header: ibuulngb.pls 120.1 2005/09/07 12:04:08 mkcyee noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'IBU_HZ_PERSON';
5: --G_CREATED_BY_MODULE VARCHAR2(30) := 'EMAIL SUBSCRIPTION';
6: G_APPLICATION_ID NUMBER := 672;
7:
8:
53: l_party_id NUMBER;
54:
55: BEGIN
56:
57: x_debug_buf := x_debug_buf || 'enter ibu_hz_person.update_person_language';
58:
59: x_debug_buf := x_debug_buf || 'finding party type';
60: OPEN c_party_type (p_party_id);
61: FETCH c_party_type into l_party_type;
211: ROLLBACK TO Update_Person_Language;
212:
213: END update_person_language;
214:
215: END IBU_HZ_PERSON;