[Home] [Help]
PACKAGE BODY: APPS.HZ_PHONE_FORMATS_PKG
Source
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,
6 p_PHONE_FORMAT_STYLE VARCHAR2,
7 p_COUNTRY_CODE_DISPLAY_FLAG VARCHAR2,
8 p_AREA_CODE_SIZE NUMBER,
9 p_FORMAT_NAME VARCHAR2,
10 p_DESCRIPTION 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 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
23
24 insert into HZ_PHONE_FORMATS(
25 TERRITORY_CODE,
26 PHONE_FORMAT_STYLE,
27 COUNTRY_CODE_DISPLAY_FLAG,
28 AREA_CODE_SIZE,
29 FORMAT_NAME,
30 DESCRIPTION ,
31 CREATED_BY,
32 CREATION_DATE,
33 LAST_UPDATE_LOGIN,
34 LAST_UPDATE_DATE,
35 LAST_UPDATED_BY,
36 OBJECT_VERSION_NUMBER ) VALUES(
37 p_TERRITORY_CODE,
38 decode(p_PHONE_FORMAT_STYLE, FND_API.G_MISS_CHAR, NULL, p_PHONE_FORMAT_STYLE),
39 decode(p_COUNTRY_CODE_DISPLAY_FLAG, FND_API.G_MISS_CHAR, NULL,
40 p_COUNTRY_CODE_DISPLAY_FLAG),
41 decode(p_AREA_CODE_SIZE, FND_API.G_MISS_NUM, NULL, p_AREA_CODE_SIZE),
42 decode(p_FORMAT_NAME, FND_API.G_MISS_CHAR, NULL, p_FORMAT_NAME),
43 decode(p_DESCRIPTION, FND_API.G_MISS_CHAR, NULL, p_DESCRIPTION),
44 decode(p_created_by, FND_API.G_MISS_NUM, NULL, p_created_by),
45 decode(p_creation_date, FND_API.G_MISS_DATE, to_date(NULL), p_creation_date),
46 decode(p_last_update_login,FND_API.G_MISS_NUM, NULL, p_last_update_login),
47 decode(p_last_update_date, FND_API.G_MISS_DATE, to_date(NULL), p_last_update_date),
48 decode(p_last_updated_by, FND_API.G_MISS_NUM, NULL, p_last_updated_by),
49 1
50 );
51
52 OPEN C;
53 FETCH C INTO p_Rowid;
54 If (C%NOTFOUND) then
55 CLOSE C;
56 RAISE NO_DATA_FOUND;
57 End If;
58
59 end;
60
61 PROCEDURE Update_Row(
62 p_rowid VARCHAR2,
63 p_TERRITORY_CODE VARCHAR2,
64 p_PHONE_FORMAT_STYLE VARCHAR2,
65 p_COUNTRY_CODE_DISPLAY_FLAG VARCHAR2,
66 p_AREA_CODE_SIZE NUMBER,
67 p_FORMAT_NAME VARCHAR2,
68 p_DESCRIPTION VARCHAR2,
69 p_CREATED_BY NUMBER,
70 p_CREATION_DATE DATE,
71 p_LAST_UPDATE_LOGIN NUMBER,
72 p_LAST_UPDATE_DATE DATE,
73 p_LAST_UPDATED_BY NUMBER,
74 p_OBJECT_VERSION_NUMBER IN OUT NOCOPY NUMBER) IS
75 l_object_version_number number;
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,
85 PHONE_FORMAT_STYLE, p_PHONE_FORMAT_STYLE),
86 COUNTRY_CODE_DISPLAY_FLAG = decode(p_COUNTRY_CODE_DISPLAY_FLAG,
87 FND_API.G_MISS_CHAR, COUNTRY_CODE_DISPLAY_FLAG, p_COUNTRY_CODE_DISPLAY_FLAG),
88 AREA_CODE_SIZE = decode(p_AREA_CODE_SIZE, FND_API.G_MISS_NUM,
89 AREA_CODE_SIZE, p_AREA_CODE_SIZE),
90 FORMAT_NAME = decode(p_FORMAT_NAME, FND_API.G_MISS_CHAR,
91 FORMAT_NAME, p_FORMAT_NAME),
92 DESCRIPTION = decode(p_DESCRIPTION, FND_API.G_MISS_CHAR,
93 DESCRIPTION, p_DESCRIPTION),
94 -- bug 3032780
95 /*
96 CREATED_BY = decode(p_created_by,FND_API.G_MISS_NUM,
97 CREATED_BY, p_created_by),
98 CREATION_DATE = decode(p_CREATION_DATE, FND_API.G_MISS_DATE,
99 CREATION_DATE,p_CREATION_DATE),
100 */
101 LAST_UPDATE_LOGIN = decode(p_LAST_UPDATE_LOGIN,FND_API.G_MISS_NUM,
102 LAST_UPDATE_LOGIN,p_LAST_UPDATE_LOGIN),
103 LAST_UPDATE_DATE = decode(p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE,
104 LAST_UPDATE_DATE,p_LAST_UPDATE_DATE),
105 LAST_UPDATED_BY = decode(p_LAST_UPDATED_BY, FND_API.G_MISS_NUM,
106 LAST_UPDATED_BY,p_LAST_UPDATED_BY),
107 OBJECT_VERSION_NUMBER = decode(l_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM,
108 OBJECT_VERSION_NUMBER,l_object_version_number)
109 WHERE rowid = p_RowId;
110
111 p_OBJECT_VERSION_NUMBER := l_OBJECT_VERSION_NUMBER;
112
113
114 If (SQL%NOTFOUND) then
115 RAISE NO_DATA_FOUND;
116
117 End If;
118 END Update_Row;
119
120 PROCEDURE Lock_Row(
121 p_TERRITORY_CODE IN OUT NOCOPY VARCHAR2,
122 p_PHONE_FORMAT_STYLE IN OUT NOCOPY VARCHAR2,
123 p_OBJECT_VERSION_NUMBER IN NUMBER)
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;
133 BEGIN
134 OPEN C;
135 FETCH C INTO Recinfo;
136 If (C%NOTFOUND) then
137 CLOSE C;
138 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
139 APP_EXCEPTION.RAISE_EXCEPTION;
140 End If;
141 CLOSE C;
142
143 if (
144 ( Recinfo.OBJECT_VERSION_NUMBER IS NOT NULL AND p_OBJECT_VERSION_NUMBER IS NOT NULL
145 AND Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER )
146 OR ((Recinfo.OBJECT_VERSION_NUMBER IS NULL)AND (p_OBJECT_VERSION_NUMBER IS NULL ))
147
148 ) then
149 return;
150 else
151 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
152 APP_EXCEPTION.RAISE_EXCEPTION;
153 End If;
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
163 RAISE NO_DATA_FOUND;
164 End If;
165 END Delete_Row;
166
167
168 END;