[Home] [Help]
PACKAGE BODY: APPS.HZ_PHONE_COUNTRY_CODES_PKG
Source
1 PACKAGE BODY HZ_PHONE_COUNTRY_CODES_PKG AS
2 /*$Header: ARHPHCCB.pls 120.5 2005/10/30 03:54:02 appldev noship $ */
3 PROCEDURE Update_Row(
4 p_TERRITORY_CODE VARCHAR2,
5 p_PHONE_COUNTRY_CODE VARCHAR2,
6 p_PHONE_LENGTH NUMBER,
7 p_AREA_CODE_LENGTH NUMBER,
8 p_TRUNK_PREFIX VARCHAR2,
9 p_INTL_PREFIX VARCHAR2,
10 p_VALIDATION_PROC VARCHAR2,
11 p_CREATED_BY NUMBER,
12 p_CREATION_DATE DATE,
13 p_LAST_UPDATE_LOGIN NUMBER,
14 p_LAST_UPDATE_DATE DATE,
15 p_LAST_UPDATED_BY NUMBER,
16 p_OBJECT_VERSION_NUMBER IN OUT NOCOPY NUMBER,
17 p_TIMEZONE_ID NUMBER DEFAULT NULL) IS
18
19 l_object_version_number number;
20
21 BEGIN
22
23 l_object_version_number := NVL(p_object_version_number, 1) + 1;
24
25 UPDATE HZ_PHONE_COUNTRY_CODES
26 SET
27 phone_country_code = decode(p_phone_country_code,FND_API.G_MISS_CHAR,
28 phone_country_code, p_phone_country_code),
29 PHONE_LENGTH =decode(p_PHONE_LENGTH,FND_API.G_MISS_NUM,
30 PHONE_LENGTH, p_PHONE_LENGTH),
31 AREA_CODE_LENGTH =decode(p_AREA_CODE_LENGTH,FND_API.G_MISS_NUM,
32 AREA_CODE_LENGTH, p_AREA_CODE_LENGTH),
33 TRUNK_PREFIX =decode(p_TRUNK_PREFIX,FND_API.G_MISS_CHAR,
34 TRUNK_PREFIX, p_TRUNK_PREFIX),
35 INTL_PREFIX =decode(p_INTL_PREFIX,FND_API.G_MISS_CHAR,
36 INTL_PREFIX, p_INTL_PREFIX),
37 VALIDATION_PROC =decode(p_VALIDATION_PROC,FND_API.G_MISS_CHAR,
38 VALIDATION_PROC, p_VALIDATION_PROC),
39 TIMEZONE_ID = decode(p_TIMEZONE_ID,FND_API.G_MISS_NUM,
40 TIMEZONE_ID, p_TIMEZONE_ID),
41 -- Bug 3032780
42 /*
43 CREATED_BY = decode(p_created_by,FND_API.G_MISS_NUM,
44 CREATED_BY, p_created_by),
45 CREATION_DATE = decode(p_CREATION_DATE, FND_API.G_MISS_DATE,
46 CREATION_DATE,p_CREATION_DATE),
47 */
48 LAST_UPDATE_LOGIN = decode(p_LAST_UPDATE_LOGIN,FND_API.G_MISS_NUM,
49 LAST_UPDATE_LOGIN,p_LAST_UPDATE_LOGIN),
50 LAST_UPDATE_DATE = decode(p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE,
51 LAST_UPDATE_DATE,p_LAST_UPDATE_DATE),
52 LAST_UPDATED_BY = decode(p_LAST_UPDATED_BY, FND_API.G_MISS_NUM,
53 LAST_UPDATED_BY,p_LAST_UPDATED_BY),
54 OBJECT_VERSION_NUMBER = decode(l_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM,
55 OBJECT_VERSION_NUMBER,l_object_version_number)
56 WHERE TERRITORY_CODE = P_TERRITORY_CODE;
57
58 p_OBJECT_VERSION_NUMBER := l_OBJECT_VERSION_NUMBER;
59
60 If (SQL%NOTFOUND) then
61 RAISE NO_DATA_FOUND;
62 End If;
63 END Update_Row;
64
65 PROCEDURE Lock_Row(
66 p_TERRITORY_CODE IN OUT NOCOPY VARCHAR2,
67 p_OBJECT_VERSION_NUMBER IN NUMBER)
68 IS
69 CURSOR C IS
70
71 SELECT OBJECT_VERSION_NUMBER
72 FROM HZ_PHONE_COUNTRY_CODES
73 WHERE TERRITORY_CODE = p_TERRITORY_CODE
74 FOR UPDATE OF TERRITORY_CODE NOWAIT;
75 Recinfo C%ROWTYPE;
76 BEGIN
77 OPEN C;
78 FETCH C INTO Recinfo;
79 If (C%NOTFOUND) then
80 CLOSE C;
81 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
82 APP_EXCEPTION.RAISE_EXCEPTION;
83 End If;
84 CLOSE C;
85
86 if (
87 ( Recinfo.OBJECT_VERSION_NUMBER IS NOT NULL AND p_OBJECT_VERSION_NUMBER IS NOT NULL
88 AND Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER )
89 OR ((Recinfo.OBJECT_VERSION_NUMBER IS NULL)AND (p_OBJECT_VERSION_NUMBER IS NULL ))
90
91 ) then
92 return;
93 else
94 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
95 APP_EXCEPTION.RAISE_EXCEPTION;
96 End If;
97 END Lock_Row;
98
99 END;