eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PO_R12_CAT_UPG_DEF_PVT dependencies on PO_R12_CAT_UPG_DEBUG

Line 7: g_debug BOOLEAN := PO_R12_CAT_UPG_DEBUG.is_logging_enabled;

3:
4: g_pkg_name CONSTANT VARCHAR2(30) := 'PO_R12_CAT_UPG_DEF_PVT';
5: g_module_prefix CONSTANT VARCHAR2(100) := 'po.plsql.' || g_pkg_name || '.';
6:
7: g_debug BOOLEAN := PO_R12_CAT_UPG_DEBUG.is_logging_enabled;
8: g_err_num NUMBER := PO_R12_CAT_UPG_PVT.g_application_err_num;
9:
10: -- BEGIN: Forward function declarations
11:

Line 109: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;

105: i NUMBER;
106: rate NUMBER;
107: BEGIN
108: l_progress := '010';
109: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;
110:
111: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.interface_header_id.COUNT='||p_headers_rec.interface_header_id.COUNT); END IF;
112:
113: -- pick a new key from temp table which will be used in all default logic

Line 111: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.interface_header_id.COUNT='||p_headers_rec.interface_header_id.COUNT); END IF;

107: BEGIN
108: l_progress := '010';
109: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;
110:
111: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.interface_header_id.COUNT='||p_headers_rec.interface_header_id.COUNT); END IF;
112:
113: -- pick a new key from temp table which will be used in all default logic
114: --l_key := PO_CORE_S.get_session_gt_nextval;
115: SELECT PO_SESSION_GT_S.nextval

Line 129: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.interface_header_id.COUNT='||p_headers_rec.interface_header_id.COUNT); END IF;

125: x_invoice_currency_codes => l_vendor_currency_codes,
126: x_terms_ids => l_vendor_terms_ids
127: );
128:
129: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.interface_header_id.COUNT='||p_headers_rec.interface_header_id.COUNT); END IF;
130:
131: l_progress := '030';
132: -- Default Vendor Site, if only 1 site exist for the vendor
133: -- The vendor site id will be populated in the p_header_rec

Line 140: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.interface_header_id.COUNT='||p_headers_rec.interface_header_id.COUNT); END IF;

136: p_key => l_key, -- IN
137: p_headers_rec => p_headers_rec -- IN OUT
138: );
139:
140: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.interface_header_id.COUNT='||p_headers_rec.interface_header_id.COUNT); END IF;
141:
142: l_progress := '040';
143: -- default information from vendor site
144: default_info_from_vendor_site

Line 159: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.interface_header_id.COUNT='||p_headers_rec.interface_header_id.COUNT); END IF;

155: x_pay_on_codes => l_site_pay_on_codes,
156: x_shipping_controls => l_site_shipping_controls
157: );
158:
159: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.interface_header_id.COUNT='||p_headers_rec.interface_header_id.COUNT); END IF;
160:
161: l_progress := '050';
162: -- default vendor contact information
163: default_vendor_contact_info

Line 169: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.interface_header_id.COUNT='||p_headers_rec.interface_header_id.COUNT); END IF;

165: p_key => l_key, -- IN
166: p_headers_rec => p_headers_rec -- IN OUT
167: );
168:
169: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.interface_header_id.COUNT='||p_headers_rec.interface_header_id.COUNT); END IF;
170:
171: l_progress := '055';
172: -- default buyer
173: default_buyer

Line 186: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Skipping rec#'||i||' has_errors='||p_headers_rec.has_errors(i)||'action='||p_headers_rec.action(i)); END IF;

182: LOOP
183: l_progress := '070';
184: IF (--p_headers_rec.has_errors(i) = 'Y' OR
185: p_headers_rec.action(i) <> PO_R12_CAT_UPG_PVT.g_action_header_create) THEN
186: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Skipping rec#'||i||' has_errors='||p_headers_rec.has_errors(i)||'action='||p_headers_rec.action(i)); END IF;
187: goto END_OF_HEADERS_LOOP;
188: END IF;
189:
190: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'i='||i); END IF;

Line 190: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'i='||i); END IF;

186: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Skipping rec#'||i||' has_errors='||p_headers_rec.has_errors(i)||'action='||p_headers_rec.action(i)); END IF;
187: goto END_OF_HEADERS_LOOP;
188: END IF;
189:
190: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'i='||i); END IF;
191:
192: --p_headers_rec.po_header_id(i) := NULL; -- From sequence PO_HEADERS_S
193:
194: l_progress := '071';

Line 370: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'PO_R12_CAT_UPG_PVT.g_sys.fob_lookup_code='||PO_R12_CAT_UPG_PVT.g_sys.fob_lookup_code); END IF;

366: --p_headers_rec.last_updated_program(i) := 'CATALOG_MIGRATION'; -- TODO: Confirm with Sareddy. Not present in interface tables
367: --p_headers_rec.style_id(i) := NULL; -- Not present in 11.5.9, 11.5.10 Not present in interface tables
368:
369: l_progress := '080';
370: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'PO_R12_CAT_UPG_PVT.g_sys.fob_lookup_code='||PO_R12_CAT_UPG_PVT.g_sys.fob_lookup_code); END IF;
371: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'l_site_fob_lookup_codes(i)='||l_site_fob_lookup_codes(i)); END IF;
372: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.fob(i)='||p_headers_rec.fob(i)); END IF;
373:
374: p_headers_rec.fob(i) :=

Line 371: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'l_site_fob_lookup_codes(i)='||l_site_fob_lookup_codes(i)); END IF;

367: --p_headers_rec.style_id(i) := NULL; -- Not present in 11.5.9, 11.5.10 Not present in interface tables
368:
369: l_progress := '080';
370: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'PO_R12_CAT_UPG_PVT.g_sys.fob_lookup_code='||PO_R12_CAT_UPG_PVT.g_sys.fob_lookup_code); END IF;
371: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'l_site_fob_lookup_codes(i)='||l_site_fob_lookup_codes(i)); END IF;
372: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.fob(i)='||p_headers_rec.fob(i)); END IF;
373:
374: p_headers_rec.fob(i) :=
375: NVL(p_headers_rec.fob(i),

Line 372: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.fob(i)='||p_headers_rec.fob(i)); END IF;

368:
369: l_progress := '080';
370: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'PO_R12_CAT_UPG_PVT.g_sys.fob_lookup_code='||PO_R12_CAT_UPG_PVT.g_sys.fob_lookup_code); END IF;
371: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'l_site_fob_lookup_codes(i)='||l_site_fob_lookup_codes(i)); END IF;
372: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.fob(i)='||p_headers_rec.fob(i)); END IF;
373:
374: p_headers_rec.fob(i) :=
375: NVL(p_headers_rec.fob(i),
376: NVL(l_site_fob_lookup_codes(i),

Line 379: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.fob(i)='||p_headers_rec.fob(i)); END IF;

375: NVL(p_headers_rec.fob(i),
376: NVL(l_site_fob_lookup_codes(i),
377: PO_R12_CAT_UPG_PVT.g_sys.fob_lookup_code));
378:
379: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.fob(i)='||p_headers_rec.fob(i)); END IF;
380:
381: l_progress := '082';
382: -- default freight_carrier(ship_via_lookup_code)
383: p_headers_rec.freight_carrier(i) :=

Line 397: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'PO_R12_CAT_UPG_PVT.g_sys.ship_to_location_id='||PO_R12_CAT_UPG_PVT.g_sys.ship_to_location_id); END IF;

393: PO_R12_CAT_UPG_PVT.g_sys.freight_terms_lookup_code));
394:
395: l_progress := '084';
396: -- default ship_to_location_id
397: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'PO_R12_CAT_UPG_PVT.g_sys.ship_to_location_id='||PO_R12_CAT_UPG_PVT.g_sys.ship_to_location_id); END IF;
398: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'l_site_ship_to_location_ids(i)='||l_site_ship_to_location_ids(i)); END IF;
399: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.ship_to_location_id(i)='||p_headers_rec.ship_to_location_id(i)); END IF;
400:
401: p_headers_rec.ship_to_location_id(i) :=

Line 398: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'l_site_ship_to_location_ids(i)='||l_site_ship_to_location_ids(i)); END IF;

394:
395: l_progress := '084';
396: -- default ship_to_location_id
397: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'PO_R12_CAT_UPG_PVT.g_sys.ship_to_location_id='||PO_R12_CAT_UPG_PVT.g_sys.ship_to_location_id); END IF;
398: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'l_site_ship_to_location_ids(i)='||l_site_ship_to_location_ids(i)); END IF;
399: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.ship_to_location_id(i)='||p_headers_rec.ship_to_location_id(i)); END IF;
400:
401: p_headers_rec.ship_to_location_id(i) :=
402: NVL(p_headers_rec.ship_to_location_id(i),

Line 399: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.ship_to_location_id(i)='||p_headers_rec.ship_to_location_id(i)); END IF;

395: l_progress := '084';
396: -- default ship_to_location_id
397: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'PO_R12_CAT_UPG_PVT.g_sys.ship_to_location_id='||PO_R12_CAT_UPG_PVT.g_sys.ship_to_location_id); END IF;
398: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'l_site_ship_to_location_ids(i)='||l_site_ship_to_location_ids(i)); END IF;
399: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.ship_to_location_id(i)='||p_headers_rec.ship_to_location_id(i)); END IF;
400:
401: p_headers_rec.ship_to_location_id(i) :=
402: NVL(p_headers_rec.ship_to_location_id(i),
403: NVL(l_site_ship_to_location_ids(i),

Line 406: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.ship_to_location_id(i)=<'||p_headers_rec.ship_to_location_id(i)||'>'); END IF;

402: NVL(p_headers_rec.ship_to_location_id(i),
403: NVL(l_site_ship_to_location_ids(i),
404: PO_R12_CAT_UPG_PVT.g_sys.ship_to_location_id));
405:
406: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.ship_to_location_id(i)=<'||p_headers_rec.ship_to_location_id(i)||'>'); END IF;
407:
408: l_progress := '085';
409: -- default bill_to_location_id
410: p_headers_rec.bill_to_location_id(i) :=

Line 449: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Calling GL_CURRENCY_API.is_fixed_rate()'); END IF;

445: -- deafult rate_date
446: p_headers_rec.rate_date(i) := sysdate;
447:
448: l_progress := '110';
449: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Calling GL_CURRENCY_API.is_fixed_rate()'); END IF;
450: -- default rate_type
451: l_is_fixed_rate := 'N';
452: BEGIN
453: l_is_fixed_rate := GL_CURRENCY_API.is_fixed_rate

Line 461: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception from GL_CURRENCY_API.is_fixed_rate(): '|| SQLERRM(SQLCODE)); END IF;

457: x_effective_date => p_headers_rec.rate_date(i)
458: );
459: EXCEPTION
460: WHEN OTHERS THEN
461: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception from GL_CURRENCY_API.is_fixed_rate(): '|| SQLERRM(SQLCODE)); END IF;
462: -- Mark this record as errored and continue. Do not raise the exception
463: -- because we want to procss as many records as possible.
464: p_headers_rec.has_errors(i) := 'Y';
465:

Line 496: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Calling GL_CURRENCY_API.get_rate()'); END IF;

492: IF (p_headers_rec.has_errors(i) <> 'Y' AND
493: (p_headers_rec.rate(i) IS NULL OR
494: p_headers_rec.rate_type_code(i) = 'EMU FIXED')) THEN
495: l_progress := '130';
496: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Calling GL_CURRENCY_API.get_rate()'); END IF;
497: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_set_of_books_id='||PO_R12_CAT_UPG_PVT.g_sys.sob_id); END IF;
498: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_from_currency='||p_headers_rec.currency_code(i)); END IF;
499: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_conversion_date='||p_headers_rec.rate_date(i)); END IF;
500: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_conversion_type='||p_headers_rec.rate_type_code(i)); END IF;

Line 497: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_set_of_books_id='||PO_R12_CAT_UPG_PVT.g_sys.sob_id); END IF;

493: (p_headers_rec.rate(i) IS NULL OR
494: p_headers_rec.rate_type_code(i) = 'EMU FIXED')) THEN
495: l_progress := '130';
496: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Calling GL_CURRENCY_API.get_rate()'); END IF;
497: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_set_of_books_id='||PO_R12_CAT_UPG_PVT.g_sys.sob_id); END IF;
498: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_from_currency='||p_headers_rec.currency_code(i)); END IF;
499: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_conversion_date='||p_headers_rec.rate_date(i)); END IF;
500: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_conversion_type='||p_headers_rec.rate_type_code(i)); END IF;
501:

Line 498: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_from_currency='||p_headers_rec.currency_code(i)); END IF;

494: p_headers_rec.rate_type_code(i) = 'EMU FIXED')) THEN
495: l_progress := '130';
496: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Calling GL_CURRENCY_API.get_rate()'); END IF;
497: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_set_of_books_id='||PO_R12_CAT_UPG_PVT.g_sys.sob_id); END IF;
498: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_from_currency='||p_headers_rec.currency_code(i)); END IF;
499: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_conversion_date='||p_headers_rec.rate_date(i)); END IF;
500: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_conversion_type='||p_headers_rec.rate_type_code(i)); END IF;
501:
502: BEGIN

Line 499: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_conversion_date='||p_headers_rec.rate_date(i)); END IF;

495: l_progress := '130';
496: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Calling GL_CURRENCY_API.get_rate()'); END IF;
497: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_set_of_books_id='||PO_R12_CAT_UPG_PVT.g_sys.sob_id); END IF;
498: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_from_currency='||p_headers_rec.currency_code(i)); END IF;
499: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_conversion_date='||p_headers_rec.rate_date(i)); END IF;
500: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_conversion_type='||p_headers_rec.rate_type_code(i)); END IF;
501:
502: BEGIN
503: rate := NULL; -- Bug 5461235

Line 500: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_conversion_type='||p_headers_rec.rate_type_code(i)); END IF;

496: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Calling GL_CURRENCY_API.get_rate()'); END IF;
497: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_set_of_books_id='||PO_R12_CAT_UPG_PVT.g_sys.sob_id); END IF;
498: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_from_currency='||p_headers_rec.currency_code(i)); END IF;
499: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_conversion_date='||p_headers_rec.rate_date(i)); END IF;
500: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'x_conversion_type='||p_headers_rec.rate_type_code(i)); END IF;
501:
502: BEGIN
503: rate := NULL; -- Bug 5461235
504: rate := GL_CURRENCY_API.get_rate

Line 513: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'GL_CURRENCY_API.get_rate() returned rate='||rate); END IF;

509: x_conversion_type => p_headers_rec.rate_type_code(i)
510: );
511: -- Bug 5461235: Start
512: l_progress := '132';
513: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'GL_CURRENCY_API.get_rate() returned rate='||rate); END IF;
514:
515: l_progress := '134';
516: IF (rate IS NULL) THEN
517: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'GL_CURRENCY_API.get_rate() returned rate as NULL, raising NO_RATE exception.'); END IF;

Line 517: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'GL_CURRENCY_API.get_rate() returned rate as NULL, raising NO_RATE exception.'); END IF;

513: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'GL_CURRENCY_API.get_rate() returned rate='||rate); END IF;
514:
515: l_progress := '134';
516: IF (rate IS NULL) THEN
517: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'GL_CURRENCY_API.get_rate() returned rate as NULL, raising NO_RATE exception.'); END IF;
518: RAISE GL_CURRENCY_API.NO_RATE;
519: END IF;
520: -- Bug 5461235: End
521: EXCEPTION

Line 525: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'GL_CURRENCY_API.get_rate() throws GL_CURRENCY_API.NO_RATE exception'); END IF;

521: EXCEPTION
522: -- Bug 5461235: Start
523: WHEN GL_CURRENCY_API.NO_RATE THEN
524: l_progress := '136';
525: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'GL_CURRENCY_API.get_rate() throws GL_CURRENCY_API.NO_RATE exception'); END IF;
526: p_headers_rec.has_errors(i) := 'Y';
527: -- Add error message into INTERFACE_ERRORS table
528: -- ICX_CAT_RATE_REQD
529: -- "There is no rate for the rate date and type default combination."

Line 541: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'GL_CURRENCY_API.get_rate() throws GL_CURRENCY_API.INVALID_CURRENCY exception'); END IF;

537: p_token1_value => 'GL_CURRENCY_API.get_rate'
538: );
539: WHEN GL_CURRENCY_API.INVALID_CURRENCY THEN
540: l_progress := '138';
541: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'GL_CURRENCY_API.get_rate() throws GL_CURRENCY_API.INVALID_CURRENCY exception'); END IF;
542: p_headers_rec.has_errors(i) := 'Y';
543: -- Add error message into INTERFACE_ERRORS table
544: -- ICX_CAT_INVALID_CURRENCY
545: -- "Default currency code is inactive or invalid."

Line 558: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception from GL_CURRENCY_API.get_rate(): '|| SQLERRM(SQLCODE)); END IF;

554: );
555: -- Bug 5461235: End
556: WHEN OTHERS THEN
557: l_progress := '139';
558: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception from GL_CURRENCY_API.get_rate(): '|| SQLERRM(SQLCODE)); END IF;
559: -- Mark this record as errored and continue. Do not raise the exception
560: -- because we want to procss as many records as possible.
561: p_headers_rec.has_errors(i) := 'Y';
562:

Line 578: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Return Value, rate='||rate); END IF;

574: p_token1_value => 'GL_CURRENCY_API.get_rate'
575: );
576: END; -- Exception block around GL_CURRENCY_API.get_rate API
577:
578: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Return Value, rate='||rate); END IF;
579:
580: l_progress := '140';
581: p_headers_rec.rate(i) := ROUND(rate, 15);
582: END IF; -- IF (p_headers_rec.has_errors(i) <> 'Y' AND

Line 593: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;

589: l_progress := '150';
590: END LOOP;
591:
592: l_progress := '160';
593: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
594: EXCEPTION
595: WHEN OTHERS THEN
596: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'|| ','|| SQLERRM(SQLCODE)); END IF;
597: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);

Line 596: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'|| ','|| SQLERRM(SQLCODE)); END IF;

592: l_progress := '160';
593: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
594: EXCEPTION
595: WHEN OTHERS THEN
596: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'|| ','|| SQLERRM(SQLCODE)); END IF;
597: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);
598: END default_headers;
599:
600: --------------------------------------------------------------------------------

Line 657: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;

653: i NUMBER;
654: l_subscript_array PO_R12_CAT_UPG_TYPES.PO_TBL_NUMBER;
655: BEGIN
656: l_progress := '010';
657: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;
658:
659: l_subscript_array := PO_R12_CAT_UPG_UTL.construct_subscript_array(l_size);
660:
661: l_progress := '020';

Line 680: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;

676: AND p_headers_rec.vendor_id(i) IS NOT NULL
677: --AND p_headers_rec.has_errors(i) = 'N'
678: AND p_headers_rec.action(i) = PO_R12_CAT_UPG_PVT.g_action_header_create;
679:
680: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;
681:
682: l_progress := '030';
683: -- SQL What: Transfer from session GT table to local arrays
684: -- SQL Why : It will be used to populate the OUT parameters.

Line 691: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;

687: WHERE key = p_key
688: RETURNING num1, char1, num2
689: BULK COLLECT INTO l_indexes, l_currency_codes, l_terms_ids;
690:
691: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;
692:
693: FOR i IN 1 .. p_headers_rec.vendor_id.COUNT
694: LOOP
695: x_invoice_currency_codes(i) := NULL;

Line 710: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;

706: x_terms_ids(l_index) := l_terms_ids(i);
707: END LOOP;
708:
709: l_progress := '050';
710: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
711: EXCEPTION
712: WHEN OTHERS THEN
713: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
714: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);

Line 713: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;

709: l_progress := '050';
710: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
711: EXCEPTION
712: WHEN OTHERS THEN
713: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
714: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);
715: END default_info_from_vendor;
716:
717: --------------------------------------------------------------------------------

Line 766: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;

762: l_subscript_array PO_R12_CAT_UPG_TYPES.PO_TBL_NUMBER;
763: BEGIN
764: l_progress := '010';
765:
766: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;
767:
768: l_subscript_array := PO_R12_CAT_UPG_UTL.construct_subscript_array(p_headers_rec.vendor_site_id.COUNT);
769:
770: l_progress := '020';

Line 794: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;

790: AND NVL(vendor_site.rfq_only_site_flag, 'N') <> 'Y'
791: GROUP BY vendor_site.vendor_id
792: HAVING count(vendor_site.vendor_site_id) = 1;
793:
794: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;
795:
796: l_progress := '030';
797: -- SQL What: Transfer from session GT table to local arrays
798: -- SQL Why : It will be used to populate the OUT parameters.

Line 806: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;

802: RETURNING num1,
803: num2
804: BULK COLLECT INTO l_indexes, l_vendor_site_ids;
805:
806: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;
807:
808: l_progress := '040';
809: -- transfer from local arrays to OUT parameters
810: FOR i IN 1 .. l_indexes.COUNT

Line 817: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;

813: p_headers_rec.vendor_site_id(l_index) := l_vendor_site_ids(i);
814: END LOOP;
815:
816: l_progress := '050';
817: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
818: EXCEPTION
819: WHEN OTHERS THEN
820: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
821: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);

Line 820: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;

816: l_progress := '050';
817: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
818: EXCEPTION
819: WHEN OTHERS THEN
820: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
821: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);
822: END default_vendor_sites;
823:
824: --------------------------------------------------------------------------------

Line 898: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;

894: l_subscript_array PO_R12_CAT_UPG_TYPES.PO_TBL_NUMBER;
895: BEGIN
896: l_progress := '010';
897:
898: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;
899:
900: l_subscript_array := PO_R12_CAT_UPG_UTL.construct_subscript_array(p_headers_rec.vendor_site_id.COUNT);
901:
902: l_progress := '020';

Line 939: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;

935: AND vendor_site.purchasing_site_flag = 'Y'
936: AND TRUNC(sysdate) < nvl(vendor_site.inactive_date, TRUNC(sysdate + 1))
937: AND NVL(vendor_site.rfq_only_site_flag, 'N') <> 'Y';
938:
939: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;
940:
941: l_progress := '030';
942: -- SQL What: Transfer from session GT table to local arrays
943: -- SQL Why : It will be used to populate the OUT parameters.

Line 962: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;

958: l_freight_terms_luc, l_ship_to_location_ids,
959: l_bill_to_location_ids, l_currency_codes, l_terms_ids,
960: l_pay_on_codes, l_shipping_controls;
961:
962: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;
963:
964: FOR i IN 1 .. p_headers_rec.vendor_id.COUNT
965: LOOP
966: x_fob_lookup_codes(i) := NULL;

Line 995: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;

991: x_shipping_controls(l_index) := l_shipping_controls(i);
992: END LOOP;
993:
994: l_progress := '050';
995: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
996: EXCEPTION
997: WHEN OTHERS THEN
998: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
999: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);

Line 998: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;

994: l_progress := '050';
995: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
996: EXCEPTION
997: WHEN OTHERS THEN
998: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
999: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);
1000: END default_info_from_vendor_site;
1001:
1002: --------------------------------------------------------------------------------

Line 1047: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;

1043: i NUMBER;
1044: l_subscript_array PO_R12_CAT_UPG_TYPES.PO_TBL_NUMBER;
1045: BEGIN
1046: l_progress := '010';
1047: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;
1048:
1049: l_subscript_array := PO_R12_CAT_UPG_UTL.construct_subscript_array(p_headers_rec.vendor_site_id.COUNT);
1050:
1051: l_progress := '020';

Line 1075: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;

1071: AND TRUNC(sysdate) < nvl(pvc.inactive_date, TRUNC(sysdate + 1))
1072: GROUP BY pvc.vendor_site_id
1073: HAVING count(pvc.vendor_contact_id) = 1;
1074:
1075: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;
1076:
1077: l_progress := '030';
1078: -- SQL What: Transfer from session GT table to local arrays
1079: -- SQL Why : It will be used to populate the OUT parameters.

Line 1086: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;

1082: WHERE key = p_key
1083: RETURNING num1, num2
1084: BULK COLLECT INTO l_indexes, l_contact_ids;
1085:
1086: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;
1087:
1088: l_progress := '040';
1089: -- transfer from local arrays to OUT parameters
1090: FOR i IN 1 .. l_indexes.COUNT

Line 1097: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;

1093: p_headers_rec.vendor_contact_id(l_index) := l_contact_ids(i);
1094: END LOOP;
1095:
1096: l_progress := '050';
1097: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
1098: EXCEPTION
1099: WHEN OTHERS THEN
1100: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
1101: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);

Line 1100: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;

1096: l_progress := '050';
1097: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
1098: EXCEPTION
1099: WHEN OTHERS THEN
1100: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
1101: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);
1102: END default_vendor_contact_info;
1103:
1104: --------------------------------------------------------------------------------

Line 1162: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;

1158: i NUMBER;
1159: l_subscript_array PO_R12_CAT_UPG_TYPES.PO_TBL_NUMBER;
1160: BEGIN
1161: l_progress := '010';
1162: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;
1163:
1164: l_subscript_array := PO_R12_CAT_UPG_UTL.construct_subscript_array(x_headers_rec.po_header_id.COUNT);
1165:
1166: l_progress := '020';

Line 1189: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;

1185: (SELECT 'Its a valid buyer'
1186: FROM PO_BUYERS_VAL_V VALID_BUYER
1187: WHERE VALID_BUYER.employee_id = POH.agent_id);
1188:
1189: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;
1190:
1191: l_progress := '030';
1192: -- SQL What: Transfer from session GT table to local arrays
1193: -- SQL Why : It will be used to populate the OUT parameters.

Line 1200: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;

1196: WHERE key = p_key
1197: RETURNING num1, num2
1198: BULK COLLECT INTO l_indexes, l_agent_ids;
1199:
1200: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;
1201:
1202: l_progress := '040';
1203: -- transfer from local arrays to OUT parameters
1204: FOR i IN 1 .. l_indexes.COUNT

Line 1255: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;

1251: WHERE x_headers_rec.agent_id(i) IS NULL
1252: --AND x_headers_rec.has_errors(i) = 'N'
1253: AND x_headers_rec.action(i) = PO_R12_CAT_UPG_PVT.g_action_header_create;
1254:
1255: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;
1256:
1257: l_progress := '060';
1258: -- SQL What: Transfer from session GT table to local arrays
1259: -- SQL Why : It will be used to populate the OUT parameters.

Line 1266: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;

1262: WHERE key = p_key
1263: RETURNING num1, num2
1264: BULK COLLECT INTO l_indexes, l_agent_ids;
1265:
1266: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;
1267:
1268: l_progress := '070';
1269: -- transfer from local arrays to OUT parameters
1270: FOR i IN 1 .. l_indexes.COUNT

Line 1315: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;

1311: WHERE x_headers_rec.agent_id(i) IS NULL
1312: --AND x_headers_rec.has_errors(i) = 'N'
1313: AND x_headers_rec.action(i) = PO_R12_CAT_UPG_PVT.g_action_header_create;
1314:
1315: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;
1316:
1317: l_progress := '090';
1318: -- SQL What: Transfer from session GT table to local arrays
1319: -- SQL Why : It will be used to populate the OUT parameters.

Line 1326: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;

1322: WHERE key = p_key
1323: RETURNING num1, num2
1324: BULK COLLECT INTO l_indexes, l_agent_ids;
1325:
1326: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;
1327:
1328: l_progress := '100';
1329: -- transfer from local arrays to OUT parameters
1330: FOR i IN 1 .. l_indexes.COUNT

Line 1337: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;

1333: x_headers_rec.agent_id(l_index) := l_agent_ids(i);
1334: END LOOP;
1335:
1336: l_progress := '110';
1337: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
1338: EXCEPTION
1339: WHEN OTHERS THEN
1340: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
1341: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);

Line 1340: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;

1336: l_progress := '110';
1337: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
1338: EXCEPTION
1339: WHEN OTHERS THEN
1340: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
1341: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);
1342: END default_buyer;
1343:
1344:

Line 1451: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;

1447: l_ship_to_org_ids PO_R12_CAT_UPG_TYPES.PO_TBL_NUMBER;
1448:
1449: BEGIN
1450: l_progress := '010';
1451: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;
1452:
1453: l_progress := '020';
1454: -- pick a new key from temp table which will be used in all default logic
1455: --l_key := PO_CORE_S.get_session_gt_nextval;

Line 1551: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Skipping rec#'||i||' has_errors='||p_lines_rec.has_errors(i)||'action='||p_lines_rec.action(i)); END IF;

1547: LOOP
1548: l_progress := '110';
1549: IF (--p_lines_rec.has_errors(i) = 'Y' OR
1550: p_lines_rec.action(i) <> PO_R12_CAT_UPG_PVT.g_action_line_create) THEN
1551: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Skipping rec#'||i||' has_errors='||p_lines_rec.has_errors(i)||'action='||p_lines_rec.action(i)); END IF;
1552: goto END_OF_LINES_LOOP;
1553: END IF;
1554:
1555: -- default base_unit_price

Line 1745: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;

1741: l_progress := '160';
1742: END LOOP;
1743:
1744: l_progress := '170';
1745: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
1746: EXCEPTION
1747: WHEN OTHERS THEN
1748: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
1749: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);

Line 1748: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;

1744: l_progress := '170';
1745: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
1746: EXCEPTION
1747: WHEN OTHERS THEN
1748: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
1749: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);
1750: END default_lines;
1751:
1752: --------------------------------------------------------------------------------

Line 1788: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;

1784:
1785: i NUMBER;
1786: BEGIN
1787: l_progress := '010';
1788: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;
1789:
1790: l_progress := '020';
1791: FOR i IN 1 .. x_lines_rec.interface_line_id.COUNT
1792: LOOP

Line 1801: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;

1797: END IF;
1798: END LOOP;
1799:
1800: l_progress := '030';
1801: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
1802: EXCEPTION
1803: WHEN OTHERS THEN
1804: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
1805: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);

Line 1804: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;

1800: l_progress := '030';
1801: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
1802: EXCEPTION
1803: WHEN OTHERS THEN
1804: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
1805: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);
1806: END copy_info_from_hdr;
1807:
1808: --------------------------------------------------------------------------------

Line 1853: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;

1849: i NUMBER;
1850: l_subscript_array PO_R12_CAT_UPG_TYPES.PO_TBL_NUMBER;
1851: BEGIN
1852: l_progress := '010';
1853: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;
1854:
1855: l_subscript_array := PO_R12_CAT_UPG_UTL.construct_subscript_array(x_lines_rec.interface_line_id.COUNT);
1856:
1857: l_progress := '030';

Line 1879: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;

1875: AND PSP.line_type_id = POLTB.line_type_id
1876: --AND x_lines_rec.has_errors(i) = 'N'
1877: AND x_lines_rec.action(i) = PO_R12_CAT_UPG_PVT.g_action_line_create;
1878:
1879: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;
1880:
1881: l_progress := '030';
1882: -- SQL What: Transfer from session GT table to local arrays
1883: -- SQL Why : It will be used to populate the OUT parameters.

Line 1890: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;

1886: WHERE key = p_key
1887: RETURNING num1, num2
1888: BULK COLLECT INTO l_indexes, l_line_type_ids;
1889:
1890: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;
1891:
1892: l_progress := '040';
1893: -- transfer from local arrays to OUT parameters
1894: FOR i IN 1 .. l_indexes.COUNT

Line 1901: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;

1897: x_lines_rec.line_type_id(l_index) := l_line_type_ids(i);
1898: END LOOP;
1899:
1900: l_progress := '050';
1901: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
1902: EXCEPTION
1903: WHEN OTHERS THEN
1904: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
1905: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);

Line 1904: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;

1900: l_progress := '050';
1901: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
1902: EXCEPTION
1903: WHEN OTHERS THEN
1904: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
1905: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);
1906: END default_line_type;
1907:
1908: --------------------------------------------------------------------------------

Line 1962: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;

1958: l_index NUMBER;
1959: i NUMBER;
1960: BEGIN
1961: l_progress := '010';
1962: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;
1963:
1964: l_subscript_array := PO_R12_CAT_UPG_UTL.construct_subscript_array(x_lines_rec.line_type_id.COUNT);
1965:
1966: l_progress := '020';

Line 1987: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;

1983: AND x_lines_rec.line_type_id(i) IS NOT NULL
1984: --AND x_lines_rec.has_errors(i) = 'N'
1985: AND x_lines_rec.action(i) = PO_R12_CAT_UPG_PVT.g_action_line_create;
1986:
1987: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;
1988:
1989: l_progress := '030';
1990: -- SQL What: Transfer from session GT table to local arrays
1991: -- SQL Why : It will be used to populate the OUT parameters.

Line 1999: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;

1995: RETURNING num1, char1, char2, char3
1996: BULK COLLECT INTO l_indexes, l_order_type_lookup_codes,
1997: l_purchase_basis, l_matching_basis;
1998:
1999: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;
2000:
2001: l_progress := '040';
2002: -- transfer from local arrays to OUT parameters
2003: FOR i IN 1 .. l_indexes.COUNT

Line 2012: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;

2008: x_lines_rec.matching_basis(l_index) := l_matching_basis(i);
2009: END LOOP;
2010:
2011: l_progress := '050';
2012: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
2013: EXCEPTION
2014: WHEN OTHERS THEN
2015: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
2016: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);

Line 2015: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;

2011: l_progress := '050';
2012: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
2013: EXCEPTION
2014: WHEN OTHERS THEN
2015: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
2016: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);
2017: END default_info_from_line_type;
2018:
2019: --------------------------------------------------------------------------------

Line 2070: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;

2066: l_index NUMBER;
2067: i NUMBER;
2068: BEGIN
2069: l_progress := '010';
2070: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;
2071:
2072: l_subscript_array := PO_R12_CAT_UPG_UTL.construct_subscript_array(x_lines_rec.line_type_id.COUNT);
2073:
2074: l_progress := '020';

Line 2098: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;

2094: AND x_lines_rec.item_id(i) IS NOT NULL
2095: --AND x_lines_rec.has_errors(i) = 'N'
2096: AND x_lines_rec.action(i) = PO_R12_CAT_UPG_PVT.g_action_line_create;
2097:
2098: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;
2099:
2100: l_progress := '030';
2101: -- SQL What: Transfer from session GT table to local arrays
2102: -- SQL Why : It will be used to populate the OUT parameters.

Line 2110: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;

2106: RETURNING num1, num2, num3, num4, char1
2107: BULK COLLECT INTO l_indexes, l_un_number_ids, l_hazard_class_ids,
2108: l_market_prices, l_inspection_required_flags;
2109:
2110: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;
2111:
2112: l_progress := '040';
2113: -- transfer from local arrays to OUT parameters
2114: FOR i IN 1 .. l_indexes.COUNT

Line 2124: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;

2120: x_lines_rec.inspection_required_flag(l_index) := l_inspection_required_flags(i);
2121: END LOOP;
2122:
2123: l_progress := '050';
2124: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
2125: EXCEPTION
2126: WHEN OTHERS THEN
2127: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
2128: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);

Line 2127: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;

2123: l_progress := '050';
2124: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
2125: EXCEPTION
2126: WHEN OTHERS THEN
2127: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
2128: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);
2129: END default_info_from_item;
2130:
2131: --------------------------------------------------------------------------------

Line 2177: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;

2173: l_index NUMBER;
2174: i NUMBER;
2175: BEGIN
2176: l_progress := '010';
2177: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;
2178:
2179: l_subscript_array := PO_R12_CAT_UPG_UTL.construct_subscript_array(p_location_ids.COUNT);
2180:
2181: IF (p_location_ids.COUNT > 0) THEN

Line 2182: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_location_ids(1)='||p_location_ids(1)); END IF;

2178:
2179: l_subscript_array := PO_R12_CAT_UPG_UTL.construct_subscript_array(p_location_ids.COUNT);
2180:
2181: IF (p_location_ids.COUNT > 0) THEN
2182: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_location_ids(1)='||p_location_ids(1)); END IF;
2183: END IF;
2184:
2185: l_progress := '020';
2186: -- SQL What: Default information from ship_to_location into session GT table.

Line 2201: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;

2197: WHERE location_id = p_location_ids(i)
2198: AND ship_to_site_flag = 'Y'
2199: AND p_location_ids(i) IS NOT NULL;
2200:
2201: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;
2202:
2203: l_progress := '030';
2204: -- SQL What: Transfer from session GT table to local arrays
2205: -- SQL Why : It will be used to populate the OUT parameters.

Line 2212: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;

2208: WHERE key = p_key
2209: RETURNING num1, num2
2210: BULK COLLECT INTO l_indexes, l_org_ids;
2211:
2212: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;
2213:
2214: l_progress := '040';
2215: FOR i IN 1 .. p_location_ids.COUNT
2216: LOOP

Line 2228: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;

2224: x_org_ids(l_index) := l_org_ids(i);
2225: END LOOP;
2226:
2227: l_progress := '050';
2228: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
2229: EXCEPTION
2230: WHEN OTHERS THEN
2231: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
2232: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);

Line 2231: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;

2227: l_progress := '050';
2228: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
2229: EXCEPTION
2230: WHEN OTHERS THEN
2231: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
2232: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);
2233: END get_ship_to_org_from_location;
2234:
2235:

Line 2279: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;

2275: l_index NUMBER;
2276: i NUMBER;
2277: BEGIN
2278: l_progress := '010';
2279: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;
2280:
2281: l_subscript_array := PO_R12_CAT_UPG_UTL.construct_subscript_array(x_lines_rec.ship_to_location_id.COUNT);
2282:
2283: l_progress := '020';

Line 2301: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;

2297: AND x_lines_rec.hazard_class_id(i) IS NULL
2298: --AND x_lines_rec.has_errors(i) = 'N'
2299: AND x_lines_rec.action(i) = PO_R12_CAT_UPG_PVT.g_action_line_create;
2300:
2301: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;
2302:
2303: l_progress := '030';
2304: -- SQL What: Transfer from session GT table to local arrays
2305: -- SQL Why : It will be used to populate the OUT parameters.

Line 2312: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;

2308: WHERE key = p_key
2309: RETURNING num1, num2
2310: BULK COLLECT INTO l_indexes, l_hazard_class_ids;
2311:
2312: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;
2313:
2314: l_progress := '040';
2315: -- transfer from local arrays to OUT parameters
2316: FOR i IN 1 .. l_indexes.COUNT

Line 2323: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;

2319: x_lines_rec.hazard_class_id(l_index) := l_hazard_class_ids(i);
2320: END LOOP;
2321:
2322: l_progress := '050';
2323: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
2324: EXCEPTION
2325: WHEN OTHERS THEN
2326: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
2327: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);

Line 2326: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;

2322: l_progress := '050';
2323: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
2324: EXCEPTION
2325: WHEN OTHERS THEN
2326: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
2327: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);
2328: END default_hzd_cls_from_un_num;
2329:
2330: --------------------------------------------------------------------------------

Line 2400: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;

2396: l_index NUMBER;
2397: i NUMBER;
2398: BEGIN
2399: l_progress := '010';
2400: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;
2401:
2402: l_subscript_array := PO_R12_CAT_UPG_UTL.construct_subscript_array(p_lines_rec.interface_line_id.COUNT);
2403:
2404: l_progress := '020';

Line 2432: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;

2428: AND POHI.interface_header_id = p_lines_rec.interface_header_id(i)
2429: --AND p_lines_rec.has_errors(i) = 'N'
2430: AND p_lines_rec.action(i) = PO_R12_CAT_UPG_PVT.g_action_line_create;
2431:
2432: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;
2433:
2434: l_progress := '030';
2435: -- SQL What: Transfer from session GT table to local arrays
2436: -- SQL Why : It will be used to populate the OUT parameters.

Line 2445: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;

2441: BULK COLLECT INTO l_indexes, l_org_ids, l_vendor_ids,
2442: l_vendor_site_ids, l_ship_to_location_ids,
2443: l_min_release_amounts, l_po_header_ids;
2444:
2445: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows deleted from GT table='||SQL%rowcount); END IF;
2446:
2447: l_progress := '040';
2448:
2449: FOR i IN 1 .. p_lines_rec.interface_line_id.COUNT

Line 2472: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;

2468: x_po_header_ids(l_index) := l_po_header_ids(i);
2469: END LOOP;
2470:
2471: l_progress := '050';
2472: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
2473: EXCEPTION
2474: WHEN OTHERS THEN
2475: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
2476: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);

Line 2475: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;

2471: l_progress := '050';
2472: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'END'); END IF;
2473: EXCEPTION
2474: WHEN OTHERS THEN
2475: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Unexpected exception'); END IF;
2476: RAISE_APPLICATION_ERROR(g_err_num,l_log_head||','||l_progress || ','|| SQLERRM);
2477: END default_hdr_info;
2478:
2479: END PO_R12_CAT_UPG_DEF_PVT;