[Home] [Help]
PACKAGE BODY: APPS.HZ_TIMEZONE_MAPPING_PKG
Source
1 PACKAGE BODY HZ_TIMEZONE_MAPPING_PKG as
2 /*$Header: ARHTZMPB.pls 120.2 2005/10/30 03:55:20 appldev ship $ */
3
4
5 PROCEDURE Insert_Row(
6 x_Rowid VARCHAR2,
7 x_MAPPING_ID NUMBER,
8 x_AREA_CODE VARCHAR2,
9 x_POSTAL_CODE VARCHAR2,
10 x_CITY VARCHAR2,
11 x_STATE VARCHAR2,
12 x_PROVINCE VARCHAR2,
13 x_COUNTRY VARCHAR2,
14 x_TIMEZONE_ID NUMBER,
15 x_CREATION_DATE DATE,
16 x_CREATED_BY NUMBER,
17 x_LAST_UPDATE_DATE DATE,
18 x_LAST_UPDATED_BY NUMBER,
19 x_LAST_UPDATE_LOGIN NUMBER
20 ) IS
21 CURSOR C IS SELECT rowid FROM HZ_TIMEZONE_MAPPING
22 WHERE MAPPING_ID = x_MAPPING_ID;
23 CURSOR C2 IS SELECT HZ_TIMEZONE_MAP_s.nextval FROM sys.dual;
24 v_MAPPING_ID number;
25 v_ROWID varchar2(30);
26 BEGIN
27 If (x_MAPPING_ID IS NULL) then
28 OPEN C2;
29 FETCH C2 INTO v_MAPPING_ID;
30 CLOSE C2;
31 End If;
32 INSERT INTO HZ_TIMEZONE_MAPPING(
33 MAPPING_ID,
34 AREA_CODE,
35 POSTAL_CODE,
36 CITY,
37 STATE,
38 PROVINCE,
39 COUNTRY,
40 TIMEZONE_ID,
41 CREATION_DATE,
42 CREATED_BY,
43 LAST_UPDATE_DATE,
44 LAST_UPDATED_BY,
45 LAST_UPDATE_LOGIN
46 ) VALUES (
47 v_MAPPING_ID,
48 decode( x_AREA_CODE, FND_API.G_MISS_CHAR, NULL,x_AREA_CODE),
49 decode( x_POSTAL_CODE, FND_API.G_MISS_CHAR, NULL,x_POSTAL_CODE),
50 decode( x_CITY, FND_API.G_MISS_CHAR, NULL,x_CITY),
51 decode( x_STATE, FND_API.G_MISS_CHAR, NULL,x_STATE),
52 decode( x_PROVINCE, FND_API.G_MISS_CHAR, NULL,x_PROVINCE),
53 decode( x_COUNTRY, FND_API.G_MISS_CHAR, NULL,x_COUNTRY),
54 decode( x_TIMEZONE_ID, FND_API.G_MISS_NUM, NULL,x_TIMEZONE_ID),
55 decode( x_CREATION_DATE, FND_API.G_MISS_DATE, NULL,x_CREATION_DATE),
56 decode( x_CREATED_BY, FND_API.G_MISS_NUM, NULL,x_CREATED_BY),
57 decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, NULL,x_LAST_UPDATE_DATE),
58 decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL,x_LAST_UPDATED_BY),
59 decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL,x_LAST_UPDATE_LOGIN));
60 OPEN C;
61 FETCH C INTO v_Rowid;
62 If (C%NOTFOUND) then
63 CLOSE C;
64 RAISE NO_DATA_FOUND;
65 End If;
66 End Insert_Row;
67
68
69
70 PROCEDURE Delete_Row( x_MAPPING_ID NUMBER
71 ) IS
72 BEGIN
73 DELETE FROM HZ_TIMEZONE_MAPPING
74 WHERE MAPPING_ID = x_MAPPING_ID;
75 If (SQL%NOTFOUND) then
76 RAISE NO_DATA_FOUND;
77 End If;
78 END Delete_Row;
79
80
81
82 PROCEDURE Update_Row(
83 x_Rowid VARCHAR2,
84 x_MAPPING_ID NUMBER,
85 x_AREA_CODE VARCHAR2,
86 x_POSTAL_CODE VARCHAR2,
87 x_CITY VARCHAR2,
88 x_STATE VARCHAR2,
89 x_PROVINCE VARCHAR2,
90 x_COUNTRY VARCHAR2,
91 x_TIMEZONE_ID NUMBER,
92 x_CREATION_DATE DATE,
93 x_CREATED_BY NUMBER,
94 x_LAST_UPDATE_DATE DATE,
95 x_LAST_UPDATED_BY NUMBER,
96 x_LAST_UPDATE_LOGIN NUMBER
97 ) IS
98 BEGIN
99 Update HZ_TIMEZONE_MAPPING
100 SET
101 MAPPING_ID = decode( x_MAPPING_ID, FND_API.G_MISS_NUM,MAPPING_ID,x_MAPPING_ID),
102 AREA_CODE = decode( x_AREA_CODE, FND_API.G_MISS_CHAR,AREA_CODE,x_AREA_CODE),
103 POSTAL_CODE = decode( x_POSTAL_CODE, FND_API.G_MISS_CHAR,POSTAL_CODE,x_POSTAL_CODE),
104 CITY = decode( x_CITY, FND_API.G_MISS_CHAR,CITY,x_CITY),
105 STATE = decode( x_STATE, FND_API.G_MISS_CHAR,STATE,x_STATE),
106 PROVINCE = decode( x_PROVINCE, FND_API.G_MISS_CHAR,PROVINCE,x_PROVINCE),
107 COUNTRY = decode( x_COUNTRY, FND_API.G_MISS_CHAR,COUNTRY,x_COUNTRY),
108 TIMEZONE_ID = decode( x_TIMEZONE_ID, FND_API.G_MISS_NUM,TIMEZONE_ID,x_TIMEZONE_ID),
109 -- Bug 3032780
110 /*
111 CREATION_DATE = decode( x_CREATION_DATE, FND_API.G_MISS_DATE,CREATION_DATE,x_CREATION_DATE),
112 CREATED_BY = decode( x_CREATED_BY, FND_API.G_MISS_NUM,CREATED_BY,x_CREATED_BY),
113 */
114 LAST_UPDATE_DATE = decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE,LAST_UPDATE_DATE,x_LAST_UPDATE_DATE),
115 LAST_UPDATED_BY = decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM,LAST_UPDATED_BY,x_LAST_UPDATED_BY),
116 LAST_UPDATE_LOGIN = decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM,LAST_UPDATE_LOGIN,x_LAST_UPDATE_LOGIN)
117 where rowid = X_RowId;
118
119 If (SQL%NOTFOUND) then
120 RAISE NO_DATA_FOUND;
121 End If;
122 END Update_Row;
123
124
125
126 PROCEDURE Lock_Row(
127 x_Rowid VARCHAR2,
128 x_MAPPING_ID NUMBER,
129 x_AREA_CODE VARCHAR2,
130 x_POSTAL_CODE VARCHAR2,
131 x_CITY VARCHAR2,
132 x_STATE VARCHAR2,
133 x_PROVINCE VARCHAR2,
134 x_COUNTRY VARCHAR2,
135 x_TIMEZONE_ID NUMBER,
136 x_CREATION_DATE DATE,
137 x_CREATED_BY NUMBER,
138 x_LAST_UPDATE_DATE DATE,
139 x_LAST_UPDATED_BY NUMBER,
140 x_LAST_UPDATE_LOGIN NUMBER
141 ) IS
142 CURSOR C IS
143 SELECT *
144 FROM HZ_TIMEZONE_MAPPING
145 WHERE rowid = x_Rowid
146 FOR UPDATE of MAPPING_ID NOWAIT;
147 Recinfo C%ROWTYPE;
148 BEGIN
149 OPEN C;
150 FETCH C INTO Recinfo;
151 If (C%NOTFOUND) then
152 CLOSE C;
153 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
154 APP_EXCEPTION.RAISE_EXCEPTION;
155 End If;
156 CLOSE C;
157 if (
158 ( ( Recinfo.MAPPING_ID = x_MAPPING_ID)
159 OR ( ( Recinfo.MAPPING_ID = NULL )
160 AND ( x_MAPPING_ID = NULL )))
161 AND ( ( Recinfo.AREA_CODE = x_AREA_CODE)
162 OR ( ( Recinfo.AREA_CODE = NULL )
163 AND ( x_AREA_CODE = NULL )))
164 AND ( ( Recinfo.POSTAL_CODE = x_POSTAL_CODE)
165 OR ( ( Recinfo.POSTAL_CODE = NULL )
166 AND ( x_POSTAL_CODE = NULL )))
167 AND ( ( Recinfo.CITY = x_CITY)
168 OR ( ( Recinfo.CITY = NULL )
169 AND ( x_CITY = NULL )))
170 AND ( ( Recinfo.STATE = x_STATE)
171 OR ( ( Recinfo.STATE = NULL )
172 AND ( x_STATE = NULL )))
173 AND ( ( Recinfo.PROVINCE = x_PROVINCE)
174 OR ( ( Recinfo.PROVINCE = NULL )
175 AND ( x_PROVINCE = NULL )))
176 AND ( ( Recinfo.COUNTRY = x_COUNTRY)
177 OR ( ( Recinfo.COUNTRY = NULL )
178 AND ( x_COUNTRY = NULL )))
179 AND ( ( Recinfo.TIMEZONE_ID = x_TIMEZONE_ID)
180 OR ( ( Recinfo.TIMEZONE_ID = NULL )
181 AND ( x_TIMEZONE_ID = NULL )))
182 AND ( ( Recinfo.CREATION_DATE = x_CREATION_DATE)
183 OR ( ( Recinfo.CREATION_DATE = NULL )
184 AND ( x_CREATION_DATE = NULL )))
185 AND ( ( Recinfo.CREATED_BY = x_CREATED_BY)
186 OR ( ( Recinfo.CREATED_BY = NULL )
187 AND ( x_CREATED_BY = NULL )))
188 AND ( ( Recinfo.LAST_UPDATE_DATE = x_LAST_UPDATE_DATE)
189 OR ( ( Recinfo.LAST_UPDATE_DATE = NULL )
190 AND ( x_LAST_UPDATE_DATE = NULL )))
191 AND ( ( Recinfo.LAST_UPDATED_BY = x_LAST_UPDATED_BY)
192 OR ( ( Recinfo.LAST_UPDATED_BY = NULL )
193 AND ( x_LAST_UPDATED_BY = NULL )))
194 AND ( ( Recinfo.LAST_UPDATE_LOGIN = x_LAST_UPDATE_LOGIN)
195 OR ( ( Recinfo.LAST_UPDATE_LOGIN = NULL )
196 AND ( x_LAST_UPDATE_LOGIN = NULL )))
197 ) then
198 return;
199 else
200 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
201 APP_EXCEPTION.RAISE_EXCEPTION;
202 End If;
203 END Lock_Row;
204
205 END HZ_TIMEZONE_MAPPING_PKG;