349:
350: BEGIN
351: IF PG_DEBUG in ('Y','C')
352: THEN
353: arp_debug.debug('arp_etax_services_pkg.record_tax_accounts()+');
354: END IF;
355:
356: OPEN tax_line_and_dist(P_CUSTOMER_TRX_ID);
357: FETCH tax_line_and_dist BULK COLLECT INTO
390: CLOSE tax_line_and_dist;
391:
392: IF PG_DEBUG in ('Y','C')
393: THEN
394: arp_debug.debug(' distribution(s) recorded = ' || l_rows);
395: arp_debug.debug('arp_etax_services_pkg.record_tax_accounts()-');
396: END IF;
397: END record_tax_accounts;
398:
391:
392: IF PG_DEBUG in ('Y','C')
393: THEN
394: arp_debug.debug(' distribution(s) recorded = ' || l_rows);
395: arp_debug.debug('arp_etax_services_pkg.record_tax_accounts()-');
396: END IF;
397: END record_tax_accounts;
398:
399: /* Uses tax account tables to bulk update ra_cust_trx_line_gl_dist with
404: l_rows NUMBER := 0;
405: BEGIN
406: IF PG_DEBUG in ('Y','C')
407: THEN
408: arp_debug.debug('arp_etax_services_pkg.replace_tax_accounts()+');
409:
410: /* Debug Code - start +/
411: -- this code dumps the cached accounting lines so we can
412: -- see what is happening during the caching process.
412: -- see what is happening during the caching process.
413: IF t_customer_trx_id.EXISTS(1)
414: THEN
415: FOR acc in t_customer_trx_id.FIRST .. t_customer_trx_id.LAST LOOP
416: arp_debug.debug(acc || ':' ||
417: t_customer_trx_id(acc) || '~' ||
418: t_customer_trx_line_id(acc) || '~' ||
419: t_cust_trx_line_salesrep_id(acc) || '~' ||
420: t_tax_regime_code(acc) || '~' ||
490:
491:
492: IF PG_DEBUG in ('Y','C')
493: THEN
494: arp_debug.debug(' distribution(s) updated = ' || l_rows);
495: arp_debug.debug('arp_etax_services_pkg.replace_tax_accounts()-');
496: END IF;
497:
498: EXCEPTION
491:
492: IF PG_DEBUG in ('Y','C')
493: THEN
494: arp_debug.debug(' distribution(s) updated = ' || l_rows);
495: arp_debug.debug('arp_etax_services_pkg.replace_tax_accounts()-');
496: END IF;
497:
498: EXCEPTION
499: WHEN NO_DATA_FOUND THEN
497:
498: EXCEPTION
499: WHEN NO_DATA_FOUND THEN
500: IF PG_DEBUG = 'Y' THEN
501: arp_debug.debug( 'no rows in tax account tables');
502: END IF;
503:
504: END replace_tax_accounts;
505:
3218:
3219: BEGIN
3220: IF PG_DEBUG in ('Y', 'C')
3221: THEN
3222: arp_debug.debug('arp_etax_services_pkg.validate_for_tax()+');
3223: END IF;
3224:
3225: /* Set l_trx_rec values before call to API */
3226: select t.customer_trx_id,
3285: THEN
3286: /* Retrieve and log errors */
3287: IF l_msg_count = 1
3288: THEN
3289: arp_debug.debug(l_msg_data);
3290: arp_trx_validate.add_to_error_list( -- Added for Bug 7260572
3291: p_error_mode,
3292: l_error_count,
3293: p_customer_trx_id,
3309: IF l_msg IS NULL
3310: THEN
3311: EXIT;
3312: ELSE
3313: arp_debug.debug(l_msg);
3314: arp_trx_validate.add_to_error_list( -- Added for Bug 7260572
3315: p_error_mode,
3316: l_error_count,
3317: p_customer_trx_id,
3335: THEN
3336: /* Do nothing, there was no problems with the validation */
3337: IF PG_DEBUG in ('Y','C')
3338: THEN
3339: arp_debug.debug(' transaction is valid');
3340: END IF;
3341:
3342: l_error_count := 0;
3343: ELSE
3345: much back to arp_trx_completion_chk so completion
3346: is not allowed */
3347: IF PG_DEBUG in ('Y','C')
3348: THEN
3349: arp_debug.debug(' transaction is invalid');
3350: END IF;
3351:
3352: FOR errors IN c_errors LOOP
3353:
3350: END IF;
3351:
3352: FOR errors IN c_errors LOOP
3353:
3354: arp_debug.debug(errors.trx_id || '-' || errors.message_text);
3355:
3356: arp_trx_validate.add_to_error_list(
3357: p_error_mode,
3358: l_error_count,
3378: END IF;
3379:
3380: IF PG_DEBUG in ('Y', 'C')
3381: THEN
3382: arp_debug.debug(' validation_status = ' || l_validation_status);
3383: arp_debug.debug('arp_etax_services_pkg.validate_for_tax()-');
3384: END IF;
3385:
3386: END validate_for_tax;
3379:
3380: IF PG_DEBUG in ('Y', 'C')
3381: THEN
3382: arp_debug.debug(' validation_status = ' || l_validation_status);
3383: arp_debug.debug('arp_etax_services_pkg.validate_for_tax()-');
3384: END IF;
3385:
3386: END validate_for_tax;
3387:
3424:
3425: BEGIN
3426:
3427: IF PG_DEBUG in ('Y','C') THEN
3428: arp_debug.debug('arp_etax_services_pkg.update_exchange_info (+)');
3429: END IF;
3430:
3431: l_success := arp_etax_util.get_event_information(
3432: p_customer_trx_id => p_customer_trx_id,
3443: l_transaction_rec.trx_id := p_customer_trx_id;
3444:
3445: IF PG_DEBUG in ('Y','C')
3446: THEN
3447: arp_debug.debug('Calling ZX_API_PUB.update_exchange_rate.');
3448: arp_debug.debug('Parameters within p_transaction_rec::');
3449: arp_debug.debug('======================================');
3450: arp_debug.debug('Internal_Organization_id: '|| l_transaction_rec.internal_organization_id);
3451: arp_debug.debug('Application_Id: '|| l_transaction_rec.application_id);
3444:
3445: IF PG_DEBUG in ('Y','C')
3446: THEN
3447: arp_debug.debug('Calling ZX_API_PUB.update_exchange_rate.');
3448: arp_debug.debug('Parameters within p_transaction_rec::');
3449: arp_debug.debug('======================================');
3450: arp_debug.debug('Internal_Organization_id: '|| l_transaction_rec.internal_organization_id);
3451: arp_debug.debug('Application_Id: '|| l_transaction_rec.application_id);
3452: arp_debug.debug('Entity_Code: '|| l_transaction_rec.entity_code);
3445: IF PG_DEBUG in ('Y','C')
3446: THEN
3447: arp_debug.debug('Calling ZX_API_PUB.update_exchange_rate.');
3448: arp_debug.debug('Parameters within p_transaction_rec::');
3449: arp_debug.debug('======================================');
3450: arp_debug.debug('Internal_Organization_id: '|| l_transaction_rec.internal_organization_id);
3451: arp_debug.debug('Application_Id: '|| l_transaction_rec.application_id);
3452: arp_debug.debug('Entity_Code: '|| l_transaction_rec.entity_code);
3453: arp_debug.debug('Event_Class_Code: '|| l_transaction_rec.event_class_code);
3446: THEN
3447: arp_debug.debug('Calling ZX_API_PUB.update_exchange_rate.');
3448: arp_debug.debug('Parameters within p_transaction_rec::');
3449: arp_debug.debug('======================================');
3450: arp_debug.debug('Internal_Organization_id: '|| l_transaction_rec.internal_organization_id);
3451: arp_debug.debug('Application_Id: '|| l_transaction_rec.application_id);
3452: arp_debug.debug('Entity_Code: '|| l_transaction_rec.entity_code);
3453: arp_debug.debug('Event_Class_Code: '|| l_transaction_rec.event_class_code);
3454: arp_debug.debug('Event_Type_Code: '|| l_transaction_rec.event_type_code);
3447: arp_debug.debug('Calling ZX_API_PUB.update_exchange_rate.');
3448: arp_debug.debug('Parameters within p_transaction_rec::');
3449: arp_debug.debug('======================================');
3450: arp_debug.debug('Internal_Organization_id: '|| l_transaction_rec.internal_organization_id);
3451: arp_debug.debug('Application_Id: '|| l_transaction_rec.application_id);
3452: arp_debug.debug('Entity_Code: '|| l_transaction_rec.entity_code);
3453: arp_debug.debug('Event_Class_Code: '|| l_transaction_rec.event_class_code);
3454: arp_debug.debug('Event_Type_Code: '|| l_transaction_rec.event_type_code);
3455: arp_debug.debug('Customer_trx_id:: '|| l_transaction_rec.trx_id);
3448: arp_debug.debug('Parameters within p_transaction_rec::');
3449: arp_debug.debug('======================================');
3450: arp_debug.debug('Internal_Organization_id: '|| l_transaction_rec.internal_organization_id);
3451: arp_debug.debug('Application_Id: '|| l_transaction_rec.application_id);
3452: arp_debug.debug('Entity_Code: '|| l_transaction_rec.entity_code);
3453: arp_debug.debug('Event_Class_Code: '|| l_transaction_rec.event_class_code);
3454: arp_debug.debug('Event_Type_Code: '|| l_transaction_rec.event_type_code);
3455: arp_debug.debug('Customer_trx_id:: '|| l_transaction_rec.trx_id);
3456: arp_debug.debug('======================================');
3449: arp_debug.debug('======================================');
3450: arp_debug.debug('Internal_Organization_id: '|| l_transaction_rec.internal_organization_id);
3451: arp_debug.debug('Application_Id: '|| l_transaction_rec.application_id);
3452: arp_debug.debug('Entity_Code: '|| l_transaction_rec.entity_code);
3453: arp_debug.debug('Event_Class_Code: '|| l_transaction_rec.event_class_code);
3454: arp_debug.debug('Event_Type_Code: '|| l_transaction_rec.event_type_code);
3455: arp_debug.debug('Customer_trx_id:: '|| l_transaction_rec.trx_id);
3456: arp_debug.debug('======================================');
3457: END IF;
3450: arp_debug.debug('Internal_Organization_id: '|| l_transaction_rec.internal_organization_id);
3451: arp_debug.debug('Application_Id: '|| l_transaction_rec.application_id);
3452: arp_debug.debug('Entity_Code: '|| l_transaction_rec.entity_code);
3453: arp_debug.debug('Event_Class_Code: '|| l_transaction_rec.event_class_code);
3454: arp_debug.debug('Event_Type_Code: '|| l_transaction_rec.event_type_code);
3455: arp_debug.debug('Customer_trx_id:: '|| l_transaction_rec.trx_id);
3456: arp_debug.debug('======================================');
3457: END IF;
3458:
3451: arp_debug.debug('Application_Id: '|| l_transaction_rec.application_id);
3452: arp_debug.debug('Entity_Code: '|| l_transaction_rec.entity_code);
3453: arp_debug.debug('Event_Class_Code: '|| l_transaction_rec.event_class_code);
3454: arp_debug.debug('Event_Type_Code: '|| l_transaction_rec.event_type_code);
3455: arp_debug.debug('Customer_trx_id:: '|| l_transaction_rec.trx_id);
3456: arp_debug.debug('======================================');
3457: END IF;
3458:
3459: ZX_API_PUB.update_exchange_rate(
3452: arp_debug.debug('Entity_Code: '|| l_transaction_rec.entity_code);
3453: arp_debug.debug('Event_Class_Code: '|| l_transaction_rec.event_class_code);
3454: arp_debug.debug('Event_Type_Code: '|| l_transaction_rec.event_type_code);
3455: arp_debug.debug('Customer_trx_id:: '|| l_transaction_rec.trx_id);
3456: arp_debug.debug('======================================');
3457: END IF;
3458:
3459: ZX_API_PUB.update_exchange_rate(
3460: p_api_version => 1.0,
3470: p_curr_conv_type => p_exchange_rate_type);
3471:
3472: IF (l_ret_status <> 'S') THEN
3473: IF PG_DEBUG in ('Y','C') THEN
3474: arp_debug.debug('ZX_API_PUB.update_exchange_rate returned error');
3475: END IF;
3476:
3477: IF ( l_msg_count = 1 ) THEN
3478:
3476:
3477: IF ( l_msg_count = 1 ) THEN
3478:
3479: IF PG_DEBUG in ('Y','C') THEN
3480: arp_debug.debug('API failed with : ' || l_msg_data);
3481: END IF;
3482:
3483: l_mesg := l_msg_data;
3484: ELSIF (l_msg_count > 1) THEN
3488: Exit;
3489: End IF;
3490:
3491: IF PG_DEBUG in ('Y','C') THEN
3492: arp_debug.debug('API failed with : ' || l_mesg);
3493: END IF;
3494: END LOOP;
3495: END IF;
3496:
3501: END IF;
3502:
3503: ELSE
3504: IF PG_DEBUG in ('Y','C') THEN
3505: arp_debug.debug('ERROR getting EVENT INFORMATION');
3506: END IF;
3507: END IF; -- END IF for l_success
3508:
3509: IF PG_DEBUG in ('Y','C') THEN
3506: END IF;
3507: END IF; -- END IF for l_success
3508:
3509: IF PG_DEBUG in ('Y','C') THEN
3510: arp_debug.debug('arp_etax_services_pkg.update_exchange_info (-)');
3511: END IF;
3512:
3513: END update_exchange_info;
3514: