1: PACKAGE BODY HZ_PHONE_FORMATS_PKG AS
2: /*$Header: ARHPHFPB.pls 120.2 2005/06/16 21:14:11 jhuang noship $ */
3: PROCEDURE Insert_Row(
4: p_rowid IN OUT NOCOPY VARCHAR2,
5: p_TERRITORY_CODE VARCHAR2,
14: p_LAST_UPDATE_DATE DATE,
15: p_LAST_UPDATED_BY NUMBER,
16: p_OBJECT_VERSION_NUMBER NUMBER) IS
17:
18: CURSOR C IS SELECT rowid FROM HZ_PHONE_FORMATS
19: WHERE TERRITORY_CODE = p_TERRITORY_CODE
20: AND PHONE_FORMAT_STYLE = p_PHONE_FORMAT_STYLE;
21:
22: begin
20: AND PHONE_FORMAT_STYLE = p_PHONE_FORMAT_STYLE;
21:
22: begin
23:
24: insert into HZ_PHONE_FORMATS(
25: TERRITORY_CODE,
26: PHONE_FORMAT_STYLE,
27: COUNTRY_CODE_DISPLAY_FLAG,
28: AREA_CODE_SIZE,
76:
77: BEGIN
78:
79: l_object_version_number := NVL(p_object_version_number, 1) + 1;
80: UPDATE HZ_PHONE_FORMATS
81: SET
82: TERRITORY_CODE = decode(p_TERRITORY_CODE, FND_API.G_MISS_CHAR,
83: TERRITORY_CODE, p_TERRITORY_CODE),
84: PHONE_FORMAT_STYLE = decode(p_PHONE_FORMAT_STYLE, FND_API.G_MISS_CHAR,
124: IS
125: CURSOR C IS
126:
127: SELECT OBJECT_VERSION_NUMBER
128: FROM HZ_PHONE_FORMATS
129: WHERE TERRITORY_CODE = p_TERRITORY_CODE
130: AND PHONE_FORMAT_STYLE = p_PHONE_FORMAT_STYLE
131: FOR UPDATE OF TERRITORY_CODE , PHONE_FORMAT_STYLE NOWAIT;
132: Recinfo C%ROWTYPE;
154: END Lock_Row;
155:
156: PROCEDURE Delete_Row(p_TERRITORY_CODE VARCHAR2, P_PHONE_FORMAT_STYLE VARCHAR2 ) IS
157: BEGIN
158: DELETE FROM HZ_PHONE_FORMATS
159: WHERE TERRITORY_CODE = p_TERRITORY_CODE
160: AND PHONE_FORMAT_STYLE = p_PHONE_FORMAT_STYLE;
161:
162: If (SQL%NOTFOUND) then