[Home] [Help]
PACKAGE BODY: APPS.HZ_BILLING_PREFERENCES_PKG
Source
1 PACKAGE BODY HZ_BILLING_PREFERENCES_PKG as
2 /* $Header: ARHABFTB.pls 120.3 2005/10/30 03:50:18 appldev ship $ */
3
4
5 PROCEDURE Insert_Row(
6 x_Rowid IN OUT NOCOPY VARCHAR2,
7 x_BILLING_PREFERENCES_ID NUMBER,
8 x_BILL_LANGUAGE VARCHAR2,
9 x_BILL_ROUND_NUMBER VARCHAR2,
10 x_BILL_TYPE VARCHAR2,
11 x_MEDIA_FORMAT VARCHAR2,
12 x_SITE_USE_ID NUMBER,
13 x_MEDIA_TYPE VARCHAR2,
14 x_CUST_ACCOUNT_ID NUMBER,
15 x_NUMBER_OF_COPIES NUMBER,
16 x_CURRENCY_CODE VARCHAR2,
17 x_CREATED_BY NUMBER,
18 x_CREATION_DATE DATE,
19 x_LAST_UPDATE_LOGIN NUMBER,
20 x_LAST_UPDATE_DATE DATE,
21 x_LAST_UPDATED_BY NUMBER,
22 x_REQUEST_ID NUMBER,
23 x_PROGRAM_APPLICATION_ID NUMBER,
24 x_PROGRAM_ID NUMBER,
25 x_PROGRAM_UPDATE_DATE DATE,
26 x_WH_UPDATE_DATE DATE
27 ) IS
28 CURSOR C IS SELECT rowid FROM HZ_BILLING_PREFERENCES
29 WHERE BILLING_PREFERENCES_ID = x_BILLING_PREFERENCES_ID;
30 BEGIN
31 INSERT INTO HZ_BILLING_PREFERENCES(
32 BILLING_PREFERENCES_ID,
33 BILL_LANGUAGE,
34 BILL_ROUND_NUMBER,
35 BILL_TYPE,
36 MEDIA_FORMAT,
37 SITE_USE_ID,
38 MEDIA_TYPE,
39 CUST_ACCOUNT_ID,
40 NUMBER_OF_COPIES,
41 CURRENCY_CODE,
42 CREATED_BY,
43 CREATION_DATE,
44 LAST_UPDATE_LOGIN,
45 LAST_UPDATE_DATE,
46 LAST_UPDATED_BY,
47 REQUEST_ID,
48 PROGRAM_APPLICATION_ID,
49 PROGRAM_ID,
50 PROGRAM_UPDATE_DATE,
51 WH_UPDATE_DATE
52 ) VALUES (
53 x_BILLING_PREFERENCES_ID,
54 decode( x_BILL_LANGUAGE, FND_API.G_MISS_CHAR, NULL,x_BILL_LANGUAGE),
55 decode( x_BILL_ROUND_NUMBER, FND_API.G_MISS_CHAR, NULL,x_BILL_ROUND_NUMBER),
56 decode( x_BILL_TYPE, FND_API.G_MISS_CHAR, NULL,x_BILL_TYPE),
57 decode( x_MEDIA_FORMAT, FND_API.G_MISS_CHAR, NULL,x_MEDIA_FORMAT),
58 decode( x_SITE_USE_ID, FND_API.G_MISS_NUM, NULL,x_SITE_USE_ID),
59 decode( x_MEDIA_TYPE, FND_API.G_MISS_CHAR, NULL,x_MEDIA_TYPE),
60 decode( x_CUST_ACCOUNT_ID, FND_API.G_MISS_NUM, NULL,x_CUST_ACCOUNT_ID),
61 decode( x_NUMBER_OF_COPIES, FND_API.G_MISS_NUM, NULL,x_NUMBER_OF_COPIES),
62 decode( x_CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL,x_CURRENCY_CODE),
63 decode( x_CREATED_BY, FND_API.G_MISS_NUM, NULL,x_CREATED_BY),
64 decode( x_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_CREATION_DATE),
65 decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL,x_LAST_UPDATE_LOGIN),
66 decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_LAST_UPDATE_DATE),
67 decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL,x_LAST_UPDATED_BY),
68 decode( x_REQUEST_ID, FND_API.G_MISS_NUM, NULL,x_REQUEST_ID),
69 decode( x_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, NULL,x_PROGRAM_APPLICATION_ID),
70 decode( x_PROGRAM_ID, FND_API.G_MISS_NUM, NULL,x_PROGRAM_ID),
71 decode( x_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_PROGRAM_UPDATE_DATE),
72 decode( x_WH_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_WH_UPDATE_DATE));
73 OPEN C;
74 FETCH C INTO x_Rowid;
75 If (C%NOTFOUND) then
76 CLOSE C;
77 RAISE NO_DATA_FOUND;
78 End If;
79 End Insert_Row;
80
81
82
83 PROCEDURE Delete_Row( x_BILLING_PREFERENCES_ID NUMBER
84 ) IS
85 BEGIN
86 DELETE FROM HZ_BILLING_PREFERENCES
87 WHERE BILLING_PREFERENCES_ID = x_BILLING_PREFERENCES_ID;
88 If (SQL%NOTFOUND) then
89 RAISE NO_DATA_FOUND;
90 End If;
91 END Delete_Row;
92
93
94
95 PROCEDURE Update_Row(
96 x_Rowid IN OUT NOCOPY VARCHAR2,
97 x_BILLING_PREFERENCES_ID NUMBER,
98 x_BILL_LANGUAGE VARCHAR2,
99 x_BILL_ROUND_NUMBER VARCHAR2,
100 x_BILL_TYPE VARCHAR2,
101 x_MEDIA_FORMAT VARCHAR2,
102 x_SITE_USE_ID NUMBER,
103 x_MEDIA_TYPE VARCHAR2,
104 x_CUST_ACCOUNT_ID NUMBER,
105 x_NUMBER_OF_COPIES NUMBER,
106 x_CURRENCY_CODE VARCHAR2,
107 x_CREATED_BY NUMBER,
108 x_CREATION_DATE DATE,
109 x_LAST_UPDATE_LOGIN NUMBER,
110 x_LAST_UPDATE_DATE DATE,
111 x_LAST_UPDATED_BY NUMBER,
112 x_REQUEST_ID NUMBER,
113 x_PROGRAM_APPLICATION_ID NUMBER,
114 x_PROGRAM_ID NUMBER,
115 x_PROGRAM_UPDATE_DATE DATE,
116 x_WH_UPDATE_DATE DATE
117 ) IS
118 BEGIN
119 Update HZ_BILLING_PREFERENCES
120 SET
121 BILLING_PREFERENCES_ID = decode( x_BILLING_PREFERENCES_ID, FND_API.G_MISS_NUM,BILLING_PREFERENCES_ID,x_BILLING_PREFERENCES_ID),
122 BILL_LANGUAGE = decode( x_BILL_LANGUAGE, FND_API.G_MISS_CHAR,BILL_LANGUAGE,x_BILL_LANGUAGE),
123 BILL_ROUND_NUMBER = decode( x_BILL_ROUND_NUMBER, FND_API.G_MISS_CHAR,BILL_ROUND_NUMBER,x_BILL_ROUND_NUMBER),
124 BILL_TYPE = decode( x_BILL_TYPE, FND_API.G_MISS_CHAR,BILL_TYPE,x_BILL_TYPE),
125 MEDIA_FORMAT = decode( x_MEDIA_FORMAT, FND_API.G_MISS_CHAR,MEDIA_FORMAT,x_MEDIA_FORMAT),
126 SITE_USE_ID = decode( x_SITE_USE_ID, FND_API.G_MISS_NUM,SITE_USE_ID,x_SITE_USE_ID),
127 MEDIA_TYPE = decode( x_MEDIA_TYPE, FND_API.G_MISS_CHAR,MEDIA_TYPE,x_MEDIA_TYPE),
128 CUST_ACCOUNT_ID = decode( x_CUST_ACCOUNT_ID, FND_API.G_MISS_NUM,CUST_ACCOUNT_ID,x_CUST_ACCOUNT_ID),
129 NUMBER_OF_COPIES = decode( x_NUMBER_OF_COPIES, FND_API.G_MISS_NUM,NUMBER_OF_COPIES,x_NUMBER_OF_COPIES),
130 CURRENCY_CODE = decode( x_CURRENCY_CODE, FND_API.G_MISS_CHAR,CURRENCY_CODE,x_CURRENCY_CODE),
131 -- Bug 3032780
132 /*
133 CREATED_BY = decode( x_CREATED_BY, FND_API.G_MISS_NUM,CREATED_BY,x_CREATED_BY),
134 CREATION_DATE = decode( x_CREATION_DATE, FND_API.G_MISS_DATE,CREATION_DATE,x_CREATION_DATE),
135 */
136 LAST_UPDATE_LOGIN = decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM,LAST_UPDATE_LOGIN,x_LAST_UPDATE_LOGIN),
137 LAST_UPDATE_DATE = decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE,LAST_UPDATE_DATE,x_LAST_UPDATE_DATE),
138 LAST_UPDATED_BY = decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM,LAST_UPDATED_BY,x_LAST_UPDATED_BY),
139 REQUEST_ID = decode( x_REQUEST_ID, FND_API.G_MISS_NUM,REQUEST_ID,x_REQUEST_ID),
140 PROGRAM_APPLICATION_ID = decode( x_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM,PROGRAM_APPLICATION_ID,x_PROGRAM_APPLICATION_ID),
141 PROGRAM_ID = decode( x_PROGRAM_ID, FND_API.G_MISS_NUM,PROGRAM_ID,x_PROGRAM_ID),
142 PROGRAM_UPDATE_DATE = decode( x_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE,PROGRAM_UPDATE_DATE,x_PROGRAM_UPDATE_DATE),
143 WH_UPDATE_DATE = decode( x_WH_UPDATE_DATE, FND_API.G_MISS_DATE,WH_UPDATE_DATE,x_WH_UPDATE_DATE)
144 where rowid = X_RowId;
145
146 If (SQL%NOTFOUND) then
147 RAISE NO_DATA_FOUND;
148 End If;
149 END Update_Row;
150
151
152
153 PROCEDURE Lock_Row(
154 x_Rowid VARCHAR2,
155 x_BILLING_PREFERENCES_ID NUMBER,
156 x_BILL_LANGUAGE VARCHAR2,
157 x_BILL_ROUND_NUMBER VARCHAR2,
158 x_BILL_TYPE VARCHAR2,
159 x_MEDIA_FORMAT VARCHAR2,
160 x_SITE_USE_ID NUMBER,
161 x_MEDIA_TYPE VARCHAR2,
162 x_CUST_ACCOUNT_ID NUMBER,
163 x_NUMBER_OF_COPIES NUMBER,
164 x_CURRENCY_CODE VARCHAR2,
165 x_CREATED_BY NUMBER,
166 x_CREATION_DATE DATE,
167 x_LAST_UPDATE_LOGIN NUMBER,
168 x_LAST_UPDATE_DATE DATE,
169 x_LAST_UPDATED_BY NUMBER,
170 x_REQUEST_ID NUMBER,
171 x_PROGRAM_APPLICATION_ID NUMBER,
172 x_PROGRAM_ID NUMBER,
173 x_PROGRAM_UPDATE_DATE DATE,
174 x_WH_UPDATE_DATE DATE
175 ) IS
176 CURSOR C IS
177 SELECT *
178 FROM HZ_BILLING_PREFERENCES
179 WHERE rowid = x_Rowid
180 FOR UPDATE of BILLING_PREFERENCES_ID NOWAIT;
181 Recinfo C%ROWTYPE;
182 BEGIN
183 OPEN C;
184 FETCH C INTO Recinfo;
185 If (C%NOTFOUND) then
186 CLOSE C;
187 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
188 APP_EXCEPTION.RAISE_EXCEPTION;
189 End If;
190 CLOSE C;
191 if (
192 ( ( Recinfo.BILLING_PREFERENCES_ID = x_BILLING_PREFERENCES_ID)
193 OR ( ( Recinfo.BILLING_PREFERENCES_ID IS NULL )
194 AND ( x_BILLING_PREFERENCES_ID IS NULL )))
195 AND ( ( Recinfo.BILL_LANGUAGE = x_BILL_LANGUAGE)
196 OR ( ( Recinfo.BILL_LANGUAGE IS NULL )
197 AND ( x_BILL_LANGUAGE IS NULL )))
198 AND ( ( Recinfo.BILL_ROUND_NUMBER = x_BILL_ROUND_NUMBER)
199 OR ( ( Recinfo.BILL_ROUND_NUMBER IS NULL )
200 AND ( x_BILL_ROUND_NUMBER IS NULL )))
201 AND ( ( Recinfo.BILL_TYPE = x_BILL_TYPE)
202 OR ( ( Recinfo.BILL_TYPE IS NULL )
203 AND ( x_BILL_TYPE IS NULL )))
204 AND ( ( Recinfo.MEDIA_FORMAT = x_MEDIA_FORMAT)
205 OR ( ( Recinfo.MEDIA_FORMAT IS NULL )
206 AND ( x_MEDIA_FORMAT IS NULL )))
207 AND ( ( Recinfo.SITE_USE_ID = x_SITE_USE_ID)
208 OR ( ( Recinfo.SITE_USE_ID IS NULL )
209 AND ( x_SITE_USE_ID IS NULL )))
210 AND ( ( Recinfo.MEDIA_TYPE = x_MEDIA_TYPE)
211 OR ( ( Recinfo.MEDIA_TYPE IS NULL )
212 AND ( x_MEDIA_TYPE IS NULL )))
213 AND ( ( Recinfo.CUST_ACCOUNT_ID = x_CUST_ACCOUNT_ID)
214 OR ( ( Recinfo.CUST_ACCOUNT_ID IS NULL )
215 AND ( x_CUST_ACCOUNT_ID IS NULL )))
216 AND ( ( Recinfo.NUMBER_OF_COPIES = x_NUMBER_OF_COPIES)
217 OR ( ( Recinfo.NUMBER_OF_COPIES IS NULL )
218 AND ( x_NUMBER_OF_COPIES IS NULL )))
219 AND ( ( Recinfo.CURRENCY_CODE = x_CURRENCY_CODE)
220 OR ( ( Recinfo.CURRENCY_CODE IS NULL )
221 AND ( x_CURRENCY_CODE IS NULL )))
222 AND ( ( Recinfo.CREATED_BY = x_CREATED_BY)
223 OR ( ( Recinfo.CREATED_BY IS NULL )
224 AND ( x_CREATED_BY IS NULL )))
225 AND ( ( Recinfo.CREATION_DATE = x_CREATION_DATE)
226 OR ( ( Recinfo.CREATION_DATE IS NULL )
227 AND ( x_CREATION_DATE IS NULL )))
228 AND ( ( Recinfo.LAST_UPDATE_LOGIN = x_LAST_UPDATE_LOGIN)
229 OR ( ( Recinfo.LAST_UPDATE_LOGIN IS NULL )
230 AND ( x_LAST_UPDATE_LOGIN IS NULL )))
231 AND ( ( Recinfo.LAST_UPDATE_DATE = x_LAST_UPDATE_DATE)
232 OR ( ( Recinfo.LAST_UPDATE_DATE IS NULL )
233 AND ( x_LAST_UPDATE_DATE IS NULL )))
234 AND ( ( Recinfo.LAST_UPDATED_BY = x_LAST_UPDATED_BY)
235 OR ( ( Recinfo.LAST_UPDATED_BY IS NULL )
236 AND ( x_LAST_UPDATED_BY IS NULL )))
237 AND ( ( Recinfo.REQUEST_ID = x_REQUEST_ID)
238 OR ( ( Recinfo.REQUEST_ID IS NULL )
239 AND ( x_REQUEST_ID IS NULL )))
240 AND ( ( Recinfo.PROGRAM_APPLICATION_ID = x_PROGRAM_APPLICATION_ID)
241 OR ( ( Recinfo.PROGRAM_APPLICATION_ID IS NULL )
242 AND ( x_PROGRAM_APPLICATION_ID IS NULL )))
243 AND ( ( Recinfo.PROGRAM_ID = x_PROGRAM_ID)
244 OR ( ( Recinfo.PROGRAM_ID IS NULL )
245 AND ( x_PROGRAM_ID IS NULL )))
246 AND ( ( Recinfo.PROGRAM_UPDATE_DATE = x_PROGRAM_UPDATE_DATE)
247 OR ( ( Recinfo.PROGRAM_UPDATE_DATE IS NULL )
248 AND ( x_PROGRAM_UPDATE_DATE IS NULL )))
249 AND ( ( Recinfo.WH_UPDATE_DATE = x_WH_UPDATE_DATE)
250 OR ( ( Recinfo.WH_UPDATE_DATE IS NULL )
251 AND ( x_WH_UPDATE_DATE IS NULL )))
252 ) then
253 return;
254 else
255 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
256 APP_EXCEPTION.RAISE_EXCEPTION;
257 End If;
258 END Lock_Row;
259
260 END HZ_BILLING_PREFERENCES_PKG;