[Home] [Help]
PACKAGE BODY: APPS.RCV_PARAMETERS_PKG
Source
1 PACKAGE BODY RCV_PARAMETERS_PKG as
2 /* $Header: RCVTIRPB.pls 120.0 2005/06/01 15:50:17 appldev noship $ */
3
4
5 PROCEDURE Insert_Row( X_Rowid IN OUT NOCOPY VARCHAR2,
6 X_Organization_Id NUMBER,
7 X_Last_Update_Date DATE,
8 X_Last_Updated_By NUMBER,
9 X_Creation_Date DATE,
10 X_Created_By NUMBER,
11 X_Last_Updated_Login NUMBER,
12 X_Qty_Rcv_Tolerance NUMBER,
13 X_Qty_Rcv_Exception_Code VARCHAR2,
14 X_Enforce_Ship_To_Loc_Code VARCHAR2,
15 X_Allow_Express_Del_Flag VARCHAR2,
16 X_Days_Early_Rec_Allowed NUMBER,
17 X_Days_Late_Rec_Allowed NUMBER,
18 X_Rec_Days_Exception_Code VARCHAR2,
19 X_Receiving_Routing_Id NUMBER,
20 X_RMA_routing_id NUMBER DEFAULT 1,
21 X_Allow_Substitute_Rec_Flag VARCHAR2,
22 X_Allow_Unordered_Rec_Flag VARCHAR2,
23 X_Blind_Receiving_Flag VARCHAR2,
24 X_Request_Id NUMBER,
25 X_Program_Application_ID NUMBER,
26 X_Program_Id NUMBER,
27 X_Program_Update_Date DATE,
28 X_Receiving_Account_Id NUMBER,
29 X_Adjustment_Account_Id NUMBER,
30 X_Clearing_Account_Id NUMBER,
31 X_Allow_Cascade_Trans VARCHAR2,
32 X_Receipt_Asn_Exists_Code VARCHAR2,
33 X_Receipt_Num_Code VARCHAR2,
34 X_Manual_Receipt_Num_Type VARCHAR2,
35 X_Next_Receipt_Num NUMBER,
36 X_Enforce_RMA_Serial_Num VARCHAR2 DEFAULT NULL,
37 X_Enforce_RMA_Lot_Num VARCHAR2 DEFAULT NULL --INVCONV
38
39 ) IS
40 CURSOR C IS SELECT rowid FROM RCV_PARAMETERS
41 WHERE organization_id = X_Organization_Id;
42
43
44
45
46 BEGIN
47
48
49 INSERT INTO RCV_PARAMETERS(
50 organization_id,
51 last_update_date,
52 last_updated_by,
53 creation_date,
54 created_by,
55 last_updated_login,
56 qty_rcv_tolerance,
57 qty_rcv_exception_code,
58 enforce_ship_to_location_code,
59 allow_express_delivery_flag,
60 days_early_receipt_allowed,
61 days_late_receipt_allowed,
62 receipt_days_exception_code,
63 receiving_routing_id,
64 rma_receipt_routing_id, /* 3124881 */
65 allow_substitute_receipts_flag,
66 allow_unordered_receipts_flag,
67 blind_receiving_flag,
68 request_id,
69 program_application_id,
70 program_id,
71 program_update_date,
72 receiving_account_id,
73 retroprice_adj_account_id,
74 clearing_account_id,
75 allow_cascade_transactions,
76 receipt_asn_exists_code,
77 user_defined_receipt_num_code,
78 manual_receipt_num_type,
79 next_receipt_num,
80 enforce_rma_serial_num,
81 enforce_rma_lot_num --INVCONV
82 ) VALUES (
83 X_Organization_Id,
84 X_Last_Update_Date,
85 X_Last_Updated_By,
86 X_Creation_Date,
87 X_Created_By,
88 X_Last_Updated_Login,
89 X_Qty_Rcv_Tolerance,
90 X_Qty_Rcv_Exception_Code,
91 X_Enforce_Ship_To_Loc_Code,
92 X_Allow_Express_Del_Flag,
93 X_Days_Early_Rec_Allowed,
94 X_Days_Late_Rec_Allowed,
95 X_Rec_Days_Exception_Code,
96 X_Receiving_Routing_Id,
97 X_RMA_routing_id, /*3124881 */
98 X_Allow_Substitute_Rec_Flag,
99 X_Allow_Unordered_Rec_Flag,
100 X_Blind_Receiving_Flag,
101 X_Request_Id,
102 X_Program_Application_Id,
103 X_Program_Id,
104 X_Program_Update_date,
105 X_Receiving_Account_Id,
106 X_Adjustment_Account_Id,
107 X_Clearing_Account_Id,
108 X_Allow_Cascade_Trans,
109 X_receipt_asn_exists_code,
110 X_Receipt_Num_Code,
111 X_Manual_Receipt_Num_Type,
112 X_Next_Receipt_Num,
113 X_Enforce_RMA_Serial_Num,
114 X_Enforce_RMA_Lot_Num --INVCONV
115 );
116
117 OPEN C;
118 FETCH C INTO X_Rowid;
119 if (C%NOTFOUND) then
120 CLOSE C;
121 Raise NO_DATA_FOUND;
122 end if;
123 CLOSE C;
124 END Insert_Row;
125
126
127
128 PROCEDURE Lock_Row (X_Rowid VARCHAR2,
129 X_Organization_Id NUMBER,
130 X_Last_Update_Date DATE,
131 X_Last_Updated_By NUMBER,
132 X_Creation_Date DATE,
133 X_Created_By NUMBER,
134 X_Last_Updated_Login NUMBER,
135 X_Qty_Rcv_Tolerance NUMBER,
136 X_Qty_Rcv_Exception_Code VARCHAR2,
137 X_Enforce_Ship_To_Loc_Code VARCHAR2,
138 X_Allow_Express_Del_Flag VARCHAR2,
139 X_Days_Early_Rec_Allowed NUMBER,
140 X_Days_Late_Rec_Allowed NUMBER,
141 X_Rec_Days_Exception_Code VARCHAR2,
142 X_Receiving_Routing_Id NUMBER,
143 X_RMA_routing_id NUMBER, /* 3124881 */
144 X_Allow_Substitute_Rec_Flag VARCHAR2,
145 X_Allow_Unordered_Rec_Flag VARCHAR2,
146 X_Blind_Receiving_Flag VARCHAR2,
147 X_Request_Id NUMBER,
148 X_Program_Application_ID NUMBER,
149 X_Program_Id NUMBER,
150 X_Program_Update_Date DATE,
151 X_Receiving_Account_Id NUMBER,
152 X_Adjustment_Account_Id NUMBER,
153 X_Clearing_Account_Id NUMBER,
154 X_Allow_Cascade_Trans VARCHAR2,
155 X_receipt_asn_exists_code VARCHAR2,
156 X_Receipt_Num_Code VARCHAR2,
157 X_Manual_Receipt_Num_Type VARCHAR2,
158 X_Next_Receipt_Num NUMBER,
159 X_Enforce_RMA_Serial_Num VARCHAR2 DEFAULT NULL ,
160 X_Enforce_RMA_Lot_Num VARCHAR2 DEFAULT NULL --INVCONV
161
162 ) IS
163 CURSOR C IS
164 SELECT *
165 FROM RCV_PARAMETERS
166 WHERE rowid = X_Rowid
167 FOR UPDATE of Organization_Id NOWAIT;
168 Recinfo C%ROWTYPE;
169 BEGIN
170 OPEN C;
171 FETCH C INTO Recinfo;
172 if (C%NOTFOUND) then
173 CLOSE C;
174 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
175 APP_EXCEPTION.Raise_Exception;
176 end if;
177 CLOSE C;
178 if (
179
180 (Recinfo.organization_id = X_Organization_Id)
181 AND ( (Recinfo.last_updated_login = X_Last_Updated_Login)
182 OR ( (Recinfo.last_updated_login IS NULL)
183 AND (X_Last_Updated_Login IS NULL)))
184 AND ( (Recinfo.qty_rcv_tolerance = X_Qty_Rcv_Tolerance)
185 OR ( (Recinfo.qty_rcv_tolerance IS NULL)
186 AND (X_Qty_Rcv_Tolerance IS NULL)))
187 AND ( (Recinfo.qty_rcv_exception_code = X_Qty_Rcv_Exception_Code)
188 OR ( (Recinfo.qty_rcv_exception_code IS NULL)
189 AND (X_Qty_Rcv_Exception_Code IS NULL)))
190 AND ( (Recinfo.enforce_ship_to_location_code = X_Enforce_Ship_To_Loc_Code)
191 OR ( (Recinfo.enforce_ship_to_location_code IS NULL)
192 AND (X_Enforce_Ship_To_Loc_Code IS NULL)))
193 AND ( (Recinfo.allow_express_delivery_flag = X_Allow_Express_Del_Flag)
194 OR ( (Recinfo.allow_express_delivery_flag IS NULL)
195 AND (X_Allow_Express_Del_Flag IS NULL)))
196 AND ( (Recinfo.days_early_receipt_allowed = X_Days_Early_Rec_Allowed)
197 OR ( (Recinfo.days_early_receipt_allowed IS NULL)
198 AND (X_Days_Early_Rec_Allowed IS NULL)))
199 AND ( (Recinfo.days_late_receipt_allowed = X_Days_Late_Rec_Allowed)
200 OR ( (Recinfo.days_late_receipt_allowed IS NULL)
201 AND (X_Days_Late_Rec_Allowed IS NULL)))
202 AND ( (Recinfo.receipt_days_exception_code = X_Rec_Days_Exception_Code)
203 OR ( (Recinfo.receipt_days_exception_code IS NULL)
204 AND (X_Rec_Days_Exception_Code IS NULL)))
205 AND ( (Recinfo.receiving_routing_id = X_Receiving_Routing_Id)
206 OR ( (Recinfo.receiving_routing_id IS NULL)
207 AND (X_Receiving_Routing_Id IS NULL)))
208 AND ( (Recinfo.rma_receipt_routing_id = X_rma_Routing_Id)
209 OR ( (Recinfo.rma_receipt_routing_id IS NULL)
210 AND (X_rma_Routing_Id IS NULL)))
211 AND ( (Recinfo.allow_substitute_receipts_flag = X_Allow_Substitute_Rec_Flag)
212 OR ( (Recinfo.allow_substitute_receipts_flag IS NULL)
213 AND (X_Allow_Substitute_Rec_Flag IS NULL)))
214 AND ( (Recinfo.allow_unordered_receipts_flag = X_Allow_Unordered_Rec_Flag)
215 OR ( (Recinfo.allow_unordered_receipts_flag IS NULL)
216 AND (X_Allow_Unordered_Rec_Flag IS NULL)))
217 AND ( (Recinfo.blind_receiving_flag = X_Blind_Receiving_Flag)
218 OR ( (Recinfo.blind_receiving_flag IS NULL)
219 AND (X_Blind_Receiving_Flag IS NULL)))
220 AND ( (Recinfo.receiving_account_id = X_Receiving_Account_Id)
221 OR ( (Recinfo.receiving_account_id IS NULL)
222 AND (X_Receiving_Account_Id IS NULL)))
223 AND ( (Recinfo.retroprice_adj_account_id = X_Adjustment_Account_Id)
224 OR ( (Recinfo.retroprice_adj_account_id IS NULL)
225 AND (X_Adjustment_Account_Id IS NULL)))
226 AND ( (Recinfo.clearing_account_id = X_Clearing_Account_Id)
227 OR ( (Recinfo.clearing_account_id IS NULL)
228 AND (X_Clearing_Account_Id IS NULL)))
229 AND ( (Recinfo.allow_cascade_transactions = X_Allow_Cascade_Trans)
230 OR ( (Recinfo.allow_cascade_transactions IS NULL)
231 AND (X_Allow_Cascade_Trans IS NULL)))
232 AND ( (Recinfo.receipt_asn_exists_code = X_Receipt_Asn_Exists_Code)
233 OR ( (Recinfo.receipt_asn_exists_code IS NULL)
234 AND (X_Receipt_Asn_Exists_Code IS NULL)))
235 AND ( (Recinfo.user_defined_receipt_num_code = X_Receipt_Num_Code)
236 OR ( (Recinfo.user_defined_receipt_num_code IS NULL)
237 AND (X_Receipt_Num_Code IS NULL)))
238 AND ( (Recinfo.manual_receipt_num_type = X_Manual_Receipt_Num_Type)
239 OR ( (Recinfo.manual_receipt_num_type IS NULL)
240 AND (X_Manual_Receipt_Num_Type IS NULL)))
241 AND ( (Recinfo.next_receipt_num = X_Next_Receipt_Num)
242 OR ( (Recinfo.next_receipt_num IS NULL)
243 AND (X_Next_Receipt_Num IS NULL)))
244 AND ( (Recinfo.enforce_rma_serial_num = X_Enforce_RMA_Serial_Num)
245 OR ( (Recinfo.enforce_rma_serial_num IS NULL)
246 AND (X_Enforce_RMA_Serial_Num IS NULL)))
247 AND ( (Recinfo.enforce_rma_lot_num = X_Enforce_RMA_Lot_Num) --INVCONV
248 OR ( (Recinfo.enforce_rma_lot_num IS NULL)
249 AND (X_Enforce_RMA_Lot_Num IS NULL)))
250 ) then
251 return;
252 else
253 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
254 APP_EXCEPTION.RAISE_EXCEPTION;
255 end if;
256 END Lock_Row;
257
258
259
260 PROCEDURE Update_Row( X_Rowid VARCHAR2,
261 X_Organization_Id NUMBER,
262 X_Last_Update_Date DATE,
263 X_Last_Updated_By NUMBER,
264 X_Last_Updated_Login NUMBER,
265 X_Qty_Rcv_Tolerance NUMBER,
266 X_Qty_Rcv_Exception_Code VARCHAR2,
267 X_Enforce_Ship_To_Loc_Code VARCHAR2,
268 X_Allow_Express_Del_Flag VARCHAR2,
269 X_Days_Early_Rec_Allowed NUMBER,
270 X_Days_Late_Rec_Allowed NUMBER,
271 X_Rec_Days_Exception_Code VARCHAR2,
272 X_Receiving_Routing_Id NUMBER,
273 X_RMA_routing_id NUMBER DEFAULT 1,
274 X_Allow_Substitute_Rec_Flag VARCHAR2,
275 X_Allow_Unordered_Rec_Flag VARCHAR2,
276 X_Blind_Receiving_Flag VARCHAR2,
277 X_Request_Id NUMBER,
278 X_Program_Application_ID NUMBER,
279 X_Program_Id NUMBER,
280 X_Program_Update_Date DATE,
281 X_Receiving_Account_Id NUMBER,
282 X_Adjustment_Account_Id NUMBER,
283 X_Clearing_Account_Id NUMBER,
284 X_Allow_Cascade_Trans VARCHAR2,
285 X_Receipt_Asn_Exists_Code VARCHAR2,
286 X_Receipt_Num_Code VARCHAR2,
287 X_Manual_Receipt_Num_Type VARCHAR2,
288 X_Next_Receipt_Num NUMBER,
289 X_Enforce_RMA_Serial_Num VARCHAR2 DEFAULT NULL,
290 X_Enforce_RMA_Lot_Num VARCHAR2 DEFAULT NULL --INVCONV
291
292 ) IS
293 BEGIN
294 UPDATE RCV_PARAMETERS
295 SET
296 organization_id = X_Organization_Id,
297 last_update_date = X_Last_Update_Date,
298 last_updated_by = X_Last_Updated_By,
299 last_updated_login = X_Last_Updated_Login,
300 qty_rcv_tolerance = X_Qty_Rcv_Tolerance,
301 qty_rcv_exception_code = X_Qty_Rcv_Exception_Code,
302 enforce_ship_to_location_code = X_Enforce_Ship_To_Loc_Code,
303 allow_express_delivery_flag = X_Allow_Express_Del_Flag,
304 days_early_receipt_allowed = X_Days_Early_Rec_Allowed,
305 days_late_receipt_allowed = X_Days_Late_Rec_Allowed,
306 receipt_days_exception_code = X_Rec_Days_Exception_Code,
307 receiving_routing_id = X_Receiving_Routing_Id,
308 rma_receipt_routing_id = X_RMA_routing_id, /* 3124881 */
309 allow_substitute_receipts_flag = X_Allow_Substitute_Rec_Flag,
310 allow_unordered_receipts_flag = X_Allow_Unordered_Rec_Flag,
311 blind_receiving_flag = X_Blind_Receiving_Flag,
312 request_id = X_Request_Id,
313 program_application_id = X_Program_Application_Id,
314 program_id = X_Program_Id,
315 program_update_date = X_Program_Update_Date,
316 receiving_account_id = X_Receiving_Account_Id,
317 retroprice_adj_account_id = X_Adjustment_Account_Id,
318 clearing_account_id = X_Clearing_Account_Id,
319 allow_cascade_transactions = X_Allow_Cascade_Trans,
320 receipt_asn_exists_code = X_Receipt_Asn_Exists_Code,
321 user_defined_receipt_num_code = X_Receipt_Num_Code,
322 manual_receipt_num_type = X_Manual_Receipt_Num_Type,
323 next_receipt_num = X_Next_Receipt_Num,
324 enforce_rma_serial_num = X_Enforce_RMA_Serial_Num,
325 enforce_rma_lot_num = X_Enforce_RMA_Lot_Num --INVCONV
326 WHERE rowid = X_rowid;
327
328 if (SQL%NOTFOUND) then
329 Raise NO_DATA_FOUND;
330 end if;
331
332 END Update_Row;
333
334 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
335 BEGIN
336 DELETE FROM RCV_PARAMETERS
337 WHERE rowid = X_Rowid;
338
339 if (SQL%NOTFOUND) then
340 Raise NO_DATA_FOUND;
341 end if;
342 END Delete_Row;
343
344 END RCV_PARAMETERS_PKG;