11: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PO_CREATE_REQUISITION_SV';
12: G_FILE_NAME CONSTANT VARCHAR2(30) := 'POXCARQB.pls';
13:
14: -- Logging global constants
15: D_PACKAGE_BASE CONSTANT VARCHAR2(100) := PO_LOG.get_package_base(G_PKG_NAME);
16:
17: -- This procedure is to get the Unit Price for Internal Requisition
18: -- If the Currency Code is same for both Source and Destination Organization
19: -- get the Unit Cost for the Source Organization, otherwise
92: UNIT_PRICE_LT_0 EXCEPTION;
93: INVALID_UNIT_PRICE EXCEPTION;
94:
95: l_module_name CONSTANT VARCHAR2(100) := 'get_unit_price_prc';
96: d_module_base CONSTANT VARCHAR2(100) := PO_LOG.get_subprogram_base(D_PACKAGE_BASE, l_module_name);
97: d_progress NUMBER;
98:
99: BEGIN
100:
97: d_progress NUMBER;
98:
99: BEGIN
100:
101: IF (PO_LOG.d_proc) THEN
102: PO_LOG.proc_begin(d_module_base);
103: PO_LOG.proc_begin(d_module_base, 'p_item_id', p_item_id);
104: PO_LOG.proc_begin(d_module_base, 'p_source_organization_id', p_source_organization_id);
105: PO_LOG.proc_begin(d_module_base, 'p_destination_organization_id', p_destination_organization_id);
98:
99: BEGIN
100:
101: IF (PO_LOG.d_proc) THEN
102: PO_LOG.proc_begin(d_module_base);
103: PO_LOG.proc_begin(d_module_base, 'p_item_id', p_item_id);
104: PO_LOG.proc_begin(d_module_base, 'p_source_organization_id', p_source_organization_id);
105: PO_LOG.proc_begin(d_module_base, 'p_destination_organization_id', p_destination_organization_id);
106: PO_LOG.proc_begin(d_module_base, 'p_set_of_books_id', p_set_of_books_id);
99: BEGIN
100:
101: IF (PO_LOG.d_proc) THEN
102: PO_LOG.proc_begin(d_module_base);
103: PO_LOG.proc_begin(d_module_base, 'p_item_id', p_item_id);
104: PO_LOG.proc_begin(d_module_base, 'p_source_organization_id', p_source_organization_id);
105: PO_LOG.proc_begin(d_module_base, 'p_destination_organization_id', p_destination_organization_id);
106: PO_LOG.proc_begin(d_module_base, 'p_set_of_books_id', p_set_of_books_id);
107: PO_LOG.proc_begin(d_module_base, 'x_chart_of_account_id', x_chart_of_account_id);
100:
101: IF (PO_LOG.d_proc) THEN
102: PO_LOG.proc_begin(d_module_base);
103: PO_LOG.proc_begin(d_module_base, 'p_item_id', p_item_id);
104: PO_LOG.proc_begin(d_module_base, 'p_source_organization_id', p_source_organization_id);
105: PO_LOG.proc_begin(d_module_base, 'p_destination_organization_id', p_destination_organization_id);
106: PO_LOG.proc_begin(d_module_base, 'p_set_of_books_id', p_set_of_books_id);
107: PO_LOG.proc_begin(d_module_base, 'x_chart_of_account_id', x_chart_of_account_id);
108: PO_LOG.proc_begin(d_module_base, 'x_currency_code', x_currency_code);
101: IF (PO_LOG.d_proc) THEN
102: PO_LOG.proc_begin(d_module_base);
103: PO_LOG.proc_begin(d_module_base, 'p_item_id', p_item_id);
104: PO_LOG.proc_begin(d_module_base, 'p_source_organization_id', p_source_organization_id);
105: PO_LOG.proc_begin(d_module_base, 'p_destination_organization_id', p_destination_organization_id);
106: PO_LOG.proc_begin(d_module_base, 'p_set_of_books_id', p_set_of_books_id);
107: PO_LOG.proc_begin(d_module_base, 'x_chart_of_account_id', x_chart_of_account_id);
108: PO_LOG.proc_begin(d_module_base, 'x_currency_code', x_currency_code);
109: PO_LOG.proc_begin(d_module_base, 'x_unit_price', x_unit_price);
102: PO_LOG.proc_begin(d_module_base);
103: PO_LOG.proc_begin(d_module_base, 'p_item_id', p_item_id);
104: PO_LOG.proc_begin(d_module_base, 'p_source_organization_id', p_source_organization_id);
105: PO_LOG.proc_begin(d_module_base, 'p_destination_organization_id', p_destination_organization_id);
106: PO_LOG.proc_begin(d_module_base, 'p_set_of_books_id', p_set_of_books_id);
107: PO_LOG.proc_begin(d_module_base, 'x_chart_of_account_id', x_chart_of_account_id);
108: PO_LOG.proc_begin(d_module_base, 'x_currency_code', x_currency_code);
109: PO_LOG.proc_begin(d_module_base, 'x_unit_price', x_unit_price);
110: END IF;
103: PO_LOG.proc_begin(d_module_base, 'p_item_id', p_item_id);
104: PO_LOG.proc_begin(d_module_base, 'p_source_organization_id', p_source_organization_id);
105: PO_LOG.proc_begin(d_module_base, 'p_destination_organization_id', p_destination_organization_id);
106: PO_LOG.proc_begin(d_module_base, 'p_set_of_books_id', p_set_of_books_id);
107: PO_LOG.proc_begin(d_module_base, 'x_chart_of_account_id', x_chart_of_account_id);
108: PO_LOG.proc_begin(d_module_base, 'x_currency_code', x_currency_code);
109: PO_LOG.proc_begin(d_module_base, 'x_unit_price', x_unit_price);
110: END IF;
111:
104: PO_LOG.proc_begin(d_module_base, 'p_source_organization_id', p_source_organization_id);
105: PO_LOG.proc_begin(d_module_base, 'p_destination_organization_id', p_destination_organization_id);
106: PO_LOG.proc_begin(d_module_base, 'p_set_of_books_id', p_set_of_books_id);
107: PO_LOG.proc_begin(d_module_base, 'x_chart_of_account_id', x_chart_of_account_id);
108: PO_LOG.proc_begin(d_module_base, 'x_currency_code', x_currency_code);
109: PO_LOG.proc_begin(d_module_base, 'x_unit_price', x_unit_price);
110: END IF;
111:
112: -- Get the SOB Currency Code of the Source Organization ID
105: PO_LOG.proc_begin(d_module_base, 'p_destination_organization_id', p_destination_organization_id);
106: PO_LOG.proc_begin(d_module_base, 'p_set_of_books_id', p_set_of_books_id);
107: PO_LOG.proc_begin(d_module_base, 'x_chart_of_account_id', x_chart_of_account_id);
108: PO_LOG.proc_begin(d_module_base, 'x_currency_code', x_currency_code);
109: PO_LOG.proc_begin(d_module_base, 'x_unit_price', x_unit_price);
110: END IF;
111:
112: -- Get the SOB Currency Code of the Source Organization ID
113: OPEN currency_code_cur(p_source_organization_id);
172: x_currency_code := d_currency_code;
173: x_unit_price := l_unit_price;
174: x_chart_of_account_id := d_chart_of_accounts_id; /* bug 5637277 replaced s_chart_of_accounts_id with d_chart_of_accounts_id */
175:
176: IF (PO_LOG.d_proc) THEN
177: PO_LOG.proc_end(d_module_base);
178: PO_LOG.proc_end(d_module_base, 'x_currency_code',x_currency_code);
179: PO_LOG.proc_end(d_module_base, 'x_unit_price',x_unit_price);
180: PO_LOG.proc_end(d_module_base, 'x_chart_of_account_id',x_chart_of_account_id);
173: x_unit_price := l_unit_price;
174: x_chart_of_account_id := d_chart_of_accounts_id; /* bug 5637277 replaced s_chart_of_accounts_id with d_chart_of_accounts_id */
175:
176: IF (PO_LOG.d_proc) THEN
177: PO_LOG.proc_end(d_module_base);
178: PO_LOG.proc_end(d_module_base, 'x_currency_code',x_currency_code);
179: PO_LOG.proc_end(d_module_base, 'x_unit_price',x_unit_price);
180: PO_LOG.proc_end(d_module_base, 'x_chart_of_account_id',x_chart_of_account_id);
181: END IF;
174: x_chart_of_account_id := d_chart_of_accounts_id; /* bug 5637277 replaced s_chart_of_accounts_id with d_chart_of_accounts_id */
175:
176: IF (PO_LOG.d_proc) THEN
177: PO_LOG.proc_end(d_module_base);
178: PO_LOG.proc_end(d_module_base, 'x_currency_code',x_currency_code);
179: PO_LOG.proc_end(d_module_base, 'x_unit_price',x_unit_price);
180: PO_LOG.proc_end(d_module_base, 'x_chart_of_account_id',x_chart_of_account_id);
181: END IF;
182:
175:
176: IF (PO_LOG.d_proc) THEN
177: PO_LOG.proc_end(d_module_base);
178: PO_LOG.proc_end(d_module_base, 'x_currency_code',x_currency_code);
179: PO_LOG.proc_end(d_module_base, 'x_unit_price',x_unit_price);
180: PO_LOG.proc_end(d_module_base, 'x_chart_of_account_id',x_chart_of_account_id);
181: END IF;
182:
183: EXCEPTION
176: IF (PO_LOG.d_proc) THEN
177: PO_LOG.proc_end(d_module_base);
178: PO_LOG.proc_end(d_module_base, 'x_currency_code',x_currency_code);
179: PO_LOG.proc_end(d_module_base, 'x_unit_price',x_unit_price);
180: PO_LOG.proc_end(d_module_base, 'x_chart_of_account_id',x_chart_of_account_id);
181: END IF;
182:
183: EXCEPTION
184:
279: l_item_type VARCHAR2(10);
280: l_subinventory_type VARCHAR2(10) := 'X';
281:
282: l_module_name CONSTANT VARCHAR2(100) := 'get_charge_account_fun';
283: d_module_base CONSTANT VARCHAR2(100) := PO_LOG.get_subprogram_base(D_PACKAGE_BASE, l_module_name);
284: d_progress NUMBER;
285:
286: BEGIN
287:
286: BEGIN
287:
288: d_progress := 10;
289:
290: IF (PO_LOG.d_proc) THEN
291: PO_LOG.proc_begin(d_module_base);
292: PO_LOG.proc_begin(d_module_base, 'p_destination_organization_id', p_destination_organization_id);
293: PO_LOG.proc_begin(d_module_base, 'p_item_id', p_item_id);
294: PO_LOG.proc_begin(d_module_base, 'p_destination_subinventory', p_destination_subinventory);
287:
288: d_progress := 10;
289:
290: IF (PO_LOG.d_proc) THEN
291: PO_LOG.proc_begin(d_module_base);
292: PO_LOG.proc_begin(d_module_base, 'p_destination_organization_id', p_destination_organization_id);
293: PO_LOG.proc_begin(d_module_base, 'p_item_id', p_item_id);
294: PO_LOG.proc_begin(d_module_base, 'p_destination_subinventory', p_destination_subinventory);
295: END IF;
288: d_progress := 10;
289:
290: IF (PO_LOG.d_proc) THEN
291: PO_LOG.proc_begin(d_module_base);
292: PO_LOG.proc_begin(d_module_base, 'p_destination_organization_id', p_destination_organization_id);
293: PO_LOG.proc_begin(d_module_base, 'p_item_id', p_item_id);
294: PO_LOG.proc_begin(d_module_base, 'p_destination_subinventory', p_destination_subinventory);
295: END IF;
296:
289:
290: IF (PO_LOG.d_proc) THEN
291: PO_LOG.proc_begin(d_module_base);
292: PO_LOG.proc_begin(d_module_base, 'p_destination_organization_id', p_destination_organization_id);
293: PO_LOG.proc_begin(d_module_base, 'p_item_id', p_item_id);
294: PO_LOG.proc_begin(d_module_base, 'p_destination_subinventory', p_destination_subinventory);
295: END IF;
296:
297: d_progress := 20;
290: IF (PO_LOG.d_proc) THEN
291: PO_LOG.proc_begin(d_module_base);
292: PO_LOG.proc_begin(d_module_base, 'p_destination_organization_id', p_destination_organization_id);
293: PO_LOG.proc_begin(d_module_base, 'p_item_id', p_item_id);
294: PO_LOG.proc_begin(d_module_base, 'p_destination_subinventory', p_destination_subinventory);
295: END IF;
296:
297: d_progress := 20;
298:
297: d_progress := 20;
298:
299: l_item_type := check_inv_item_type_fun (p_destination_organization_id, p_item_id);
300:
301: IF PO_LOG.d_stmt THEN
302: PO_LOG.stmt(d_module_base,d_progress,'l_item_type='||l_item_type);
303: END IF;
304:
305: d_progress := 30;
298:
299: l_item_type := check_inv_item_type_fun (p_destination_organization_id, p_item_id);
300:
301: IF PO_LOG.d_stmt THEN
302: PO_LOG.stmt(d_module_base,d_progress,'l_item_type='||l_item_type);
303: END IF;
304:
305: d_progress := 30;
306: IF l_item_type = 'EXPENSE' then
321: d_progress := 60;
322: END;
323: END IF;
324:
325: IF PO_LOG.d_stmt THEN
326: PO_LOG.stmt(d_module_base,d_progress,'l_charge_account',l_charge_account);
327: END IF;
328:
329: -- If Expense Account not available for the Subinventory and Org,
322: END;
323: END IF;
324:
325: IF PO_LOG.d_stmt THEN
326: PO_LOG.stmt(d_module_base,d_progress,'l_charge_account',l_charge_account);
327: END IF;
328:
329: -- If Expense Account not available for the Subinventory and Org,
330: -- get expense account from Item Master for the Item and the Org
342: d_progress := 80;
343: END;
344: END IF;
345:
346: IF PO_LOG.d_stmt THEN
347: PO_LOG.stmt(d_module_base,d_progress,'l_charge_account',l_charge_account);
348: END IF;
349:
350: -- If Expense Account not available in Item Master, get account
343: END;
344: END IF;
345:
346: IF PO_LOG.d_stmt THEN
347: PO_LOG.stmt(d_module_base,d_progress,'l_charge_account',l_charge_account);
348: END IF;
349:
350: -- If Expense Account not available in Item Master, get account
351: -- from MTL_PARAMETERS for the Destination Organization
362: d_progress := 100;
363: END;
364: END IF;
365:
366: IF PO_LOG.d_stmt THEN
367: PO_LOG.stmt(d_module_base,d_progress,'l_charge_account',l_charge_account);
368: END IF;
369:
370: ELSE -- item type is ASSET
363: END;
364: END IF;
365:
366: IF PO_LOG.d_stmt THEN
367: PO_LOG.stmt(d_module_base,d_progress,'l_charge_account',l_charge_account);
368: END IF;
369:
370: ELSE -- item type is ASSET
371:
376: l_subinventory_type := check_sub_inv_type_fun(p_destination_subinventory,
377: p_destination_organization_id);
378: END IF;
379:
380: IF PO_LOG.d_stmt THEN
381: PO_LOG.stmt(d_module_base,d_progress,'l_subinventory_type' , l_subinventory_type);
382: END IF;
383:
384: d_progress := 130;
377: p_destination_organization_id);
378: END IF;
379:
380: IF PO_LOG.d_stmt THEN
381: PO_LOG.stmt(d_module_base,d_progress,'l_subinventory_type' , l_subinventory_type);
382: END IF;
383:
384: d_progress := 130;
385: -- Get the default account from the Organization if Subinventory Type is NOT
396: NULL;
397: d_progress := 150;
398: END;
399:
400: IF PO_LOG.d_stmt THEN
401: PO_LOG.stmt(d_module_base,d_progress,'l_charge_account',l_charge_account);
402: END IF;
403:
404: ELSIF l_subinventory_type = 'EXPENSE' THEN
397: d_progress := 150;
398: END;
399:
400: IF PO_LOG.d_stmt THEN
401: PO_LOG.stmt(d_module_base,d_progress,'l_charge_account',l_charge_account);
402: END IF;
403:
404: ELSIF l_subinventory_type = 'EXPENSE' THEN
405: -- Get Expense Account for the Subinventory
415: NULL;
416: d_progress := 170;
417: END;
418:
419: IF PO_LOG.d_stmt THEN
420: PO_LOG.stmt(d_module_base,d_progress,'l_charge_account',l_charge_account);
421: END IF;
422:
423: -- If charge account is NULL for the Subinventory, get the default account
416: d_progress := 170;
417: END;
418:
419: IF PO_LOG.d_stmt THEN
420: PO_LOG.stmt(d_module_base,d_progress,'l_charge_account',l_charge_account);
421: END IF;
422:
423: -- If charge account is NULL for the Subinventory, get the default account
424: -- for the Organization from MTL_PARAMETERS
435: d_progress := 190;
436: END;
437: END IF;
438:
439: IF PO_LOG.d_stmt THEN
440: PO_LOG.stmt(d_module_base,d_progress,'l_charge_account',l_charge_account);
441: END IF;
442:
443: ELSE -- destination sub inventory type is ASSET
436: END;
437: END IF;
438:
439: IF PO_LOG.d_stmt THEN
440: PO_LOG.stmt(d_module_base,d_progress,'l_charge_account',l_charge_account);
441: END IF;
442:
443: ELSE -- destination sub inventory type is ASSET
444: -- Get the Charge_Account for the Subinventory
454: NULL;
455: d_progress := 210;
456: END;
457:
458: IF PO_LOG.d_stmt THEN
459: PO_LOG.stmt(d_module_base,d_progress,'l_charge_account',l_charge_account);
460: END IF;
461:
462: -- If Charge_account is not availabe for the Subinventory,
455: d_progress := 210;
456: END;
457:
458: IF PO_LOG.d_stmt THEN
459: PO_LOG.stmt(d_module_base,d_progress,'l_charge_account',l_charge_account);
460: END IF;
461:
462: -- If Charge_account is not availabe for the Subinventory,
463: -- get it for the Destination Organization from MTL_PARAMETERS
474: d_progress := 230;
475: END;
476: END IF;
477:
478: IF PO_LOG.d_stmt THEN
479: PO_LOG.stmt(d_module_base,d_progress,'l_charge_account',l_charge_account);
480: END IF;
481: END IF; /* Sub Inventory Type */
482: END IF; /* Item Type Check */
475: END;
476: END IF;
477:
478: IF PO_LOG.d_stmt THEN
479: PO_LOG.stmt(d_module_base,d_progress,'l_charge_account',l_charge_account);
480: END IF;
481: END IF; /* Sub Inventory Type */
482: END IF; /* Item Type Check */
483:
480: END IF;
481: END IF; /* Sub Inventory Type */
482: END IF; /* Item Type Check */
483:
484: IF (PO_LOG.d_proc) THEN
485: PO_LOG.proc_end(d_module_base);
486: PO_LOG.proc_end(d_module_base, 'l_charge_account',l_charge_account);
487: END IF;
488:
481: END IF; /* Sub Inventory Type */
482: END IF; /* Item Type Check */
483:
484: IF (PO_LOG.d_proc) THEN
485: PO_LOG.proc_end(d_module_base);
486: PO_LOG.proc_end(d_module_base, 'l_charge_account',l_charge_account);
487: END IF;
488:
489: RETURN (l_charge_account);
482: END IF; /* Item Type Check */
483:
484: IF (PO_LOG.d_proc) THEN
485: PO_LOG.proc_end(d_module_base);
486: PO_LOG.proc_end(d_module_base, 'l_charge_account',l_charge_account);
487: END IF;
488:
489: RETURN (l_charge_account);
490: EXCEPTION
488:
489: RETURN (l_charge_account);
490: EXCEPTION
491: WHEN OTHERS THEN
492: IF (PO_LOG.d_exc) THEN
493: PO_LOG.exc(d_module_base, d_progress, 'Unhandled exception in '||l_module_name||': '||SQLERRM);
494: END IF;
495: NULL;
496: END get_charge_account_fun;
489: RETURN (l_charge_account);
490: EXCEPTION
491: WHEN OTHERS THEN
492: IF (PO_LOG.d_exc) THEN
493: PO_LOG.exc(d_module_base, d_progress, 'Unhandled exception in '||l_module_name||': '||SQLERRM);
494: END IF;
495: NULL;
496: END get_charge_account_fun;
497:
507: RETURN BOOLEAN IS
508:
509:
510: l_module_name CONSTANT VARCHAR2(100) := 'valid_account_id_fun';
511: d_module_base CONSTANT VARCHAR2(100) := PO_LOG.get_subprogram_base(D_PACKAGE_BASE, l_module_name);
512: d_progress NUMBER;
513:
514: CURSOR validate_ccid_cur IS
515: SELECT 'X'
528: BEGIN
529:
530: d_progress := 10;
531:
532: IF (PO_LOG.d_proc) THEN
533: PO_LOG.proc_begin(d_module_base);
534: PO_LOG.proc_begin(d_module_base, 'p_ccid', p_ccid);
535: PO_LOG.proc_begin(d_module_base, 'p_gl_date', p_gl_date);
536: PO_LOG.proc_begin(d_module_base, 'p_chart_of_accounts_id', p_chart_of_accounts_id);
529:
530: d_progress := 10;
531:
532: IF (PO_LOG.d_proc) THEN
533: PO_LOG.proc_begin(d_module_base);
534: PO_LOG.proc_begin(d_module_base, 'p_ccid', p_ccid);
535: PO_LOG.proc_begin(d_module_base, 'p_gl_date', p_gl_date);
536: PO_LOG.proc_begin(d_module_base, 'p_chart_of_accounts_id', p_chart_of_accounts_id);
537: END IF;
530: d_progress := 10;
531:
532: IF (PO_LOG.d_proc) THEN
533: PO_LOG.proc_begin(d_module_base);
534: PO_LOG.proc_begin(d_module_base, 'p_ccid', p_ccid);
535: PO_LOG.proc_begin(d_module_base, 'p_gl_date', p_gl_date);
536: PO_LOG.proc_begin(d_module_base, 'p_chart_of_accounts_id', p_chart_of_accounts_id);
537: END IF;
538:
531:
532: IF (PO_LOG.d_proc) THEN
533: PO_LOG.proc_begin(d_module_base);
534: PO_LOG.proc_begin(d_module_base, 'p_ccid', p_ccid);
535: PO_LOG.proc_begin(d_module_base, 'p_gl_date', p_gl_date);
536: PO_LOG.proc_begin(d_module_base, 'p_chart_of_accounts_id', p_chart_of_accounts_id);
537: END IF;
538:
539: d_progress := 20;
532: IF (PO_LOG.d_proc) THEN
533: PO_LOG.proc_begin(d_module_base);
534: PO_LOG.proc_begin(d_module_base, 'p_ccid', p_ccid);
535: PO_LOG.proc_begin(d_module_base, 'p_gl_date', p_gl_date);
536: PO_LOG.proc_begin(d_module_base, 'p_chart_of_accounts_id', p_chart_of_accounts_id);
537: END IF;
538:
539: d_progress := 20;
540: OPEN validate_ccid_cur;
545: IF validate_ccid_cur%FOUND THEN
546: CLOSE validate_ccid_cur;
547:
548: d_progress := 50;
549: IF (PO_LOG.d_proc) THEN
550: PO_LOG.proc_end(d_module_base);
551: PO_LOG.proc_end(d_module_base, 'return TRUE',0);
552: END IF;
553:
546: CLOSE validate_ccid_cur;
547:
548: d_progress := 50;
549: IF (PO_LOG.d_proc) THEN
550: PO_LOG.proc_end(d_module_base);
551: PO_LOG.proc_end(d_module_base, 'return TRUE',0);
552: END IF;
553:
554:
547:
548: d_progress := 50;
549: IF (PO_LOG.d_proc) THEN
550: PO_LOG.proc_end(d_module_base);
551: PO_LOG.proc_end(d_module_base, 'return TRUE',0);
552: END IF;
553:
554:
555: RETURN TRUE;
556: ELSE
557: CLOSE validate_ccid_cur;
558:
559: d_progress := 60;
560: IF (PO_LOG.d_proc) THEN
561: PO_LOG.proc_end(d_module_base);
562: PO_LOG.proc_end(d_module_base, 'return FALSE',1);
563: END IF;
564:
557: CLOSE validate_ccid_cur;
558:
559: d_progress := 60;
560: IF (PO_LOG.d_proc) THEN
561: PO_LOG.proc_end(d_module_base);
562: PO_LOG.proc_end(d_module_base, 'return FALSE',1);
563: END IF;
564:
565: RETURN FALSE;
558:
559: d_progress := 60;
560: IF (PO_LOG.d_proc) THEN
561: PO_LOG.proc_end(d_module_base);
562: PO_LOG.proc_end(d_module_base, 'return FALSE',1);
563: END IF;
564:
565: RETURN FALSE;
566: END IF;
567:
568: EXCEPTION
569:
570: WHEN OTHERS THEN
571: IF (PO_LOG.d_exc) THEN
572: PO_LOG.exc(d_module_base, d_progress, 'Unhandled exception in '||l_module_name||': '||SQLERRM);
573: END IF;
574:
575: return (FALSE);
568: EXCEPTION
569:
570: WHEN OTHERS THEN
571: IF (PO_LOG.d_exc) THEN
572: PO_LOG.exc(d_module_base, d_progress, 'Unhandled exception in '||l_module_name||': '||SQLERRM);
573: END IF;
574:
575: return (FALSE);
576: