[Home] [Help]
54: ) IS
55:
56: BEGIN
57: if gv_debug_flag then
58: fnd_file.put_line(fnd_file.log, 'insert_allocation_error - start');
59: end if;
60: /*
61: if gv_debug_flag then
62: fnd_file.put_line(fnd_file.log, 'pn_vat_transaction_id:'||pn_vat_transaction_id
58: fnd_file.put_line(fnd_file.log, 'insert_allocation_error - start');
59: end if;
60: /*
61: if gv_debug_flag then
62: fnd_file.put_line(fnd_file.log, 'pn_vat_transaction_id:'||pn_vat_transaction_id
63: ||', pv_allocation_error_code:'||pv_allocation_error_code
64: ||', pv_period_type:'||pv_period_type
65: ||', pn_created_by:'||pn_created_by
66: ||', pn_last_updated_by:'||pn_last_updated_by
289: l_trxs_csr trxs_for_alloc_csr_type;
290: begin
291:
292: if gv_debug_flag then
293: fnd_file.put_line(fnd_file.log, 'get_transactions_cursor-begin');
294: end if;
295:
296: if pv_fresh_allocation_flag = g_yes then
297:
295:
296: if pv_fresh_allocation_flag = g_yes then
297:
298: if gv_debug_flag then
299: fnd_file.put_line(fnd_file.log, 'get_transactions_cursor- pv_fresh_allocation_flag = g_yes');
300: end if;
301:
302: /*
303: NOTE: if any of the below cursor is changed to add/remove select columns,
334:
335: else /*return errors cursor */
336:
337: if gv_debug_flag then
338: fnd_file.put_line(fnd_file.log, 'get_transactions_cursor- pv_fresh_allocation_flag <> g_yes: returns errors only');
339: end if;
340:
341: OPEN l_trxs_csr FOR
342: SELECT
371:
372: end if;
373:
374: if gv_debug_flag then
375: fnd_file.put_line(fnd_file.log, 'get_transactions_cursor- return');
376: end if;
377:
378: return l_trxs_csr;
379:
382: BEGIN
383:
384: gv_debug_flag := true;
385: if gv_debug_flag then
386: fnd_file.put_line(fnd_file.log, 'run allocation - start');
387: end if;
388:
389:
390: /* Initializing Variables */
402: ln_upd_errored_cnt := 0;
403: ln_del_errored_cnt := 0;
404:
405: if gv_debug_flag then
406: fnd_file.put_line(fnd_file.log, 'run allocation - before JG_ZZ_VAT_REP_UTILITY.validate_process_initiation');
407: end if;
408:
409:
410: /* Make a call to utility package which validates and determines whether to proceed further with this process or not */
424:
425: /* raise error if validation failed */
426: if lv_return_flag in (fnd_api.g_ret_sts_error, fnd_api.g_ret_sts_unexp_error) then
427: if gv_debug_flag then
428: fnd_file.put_line(fnd_file.log, 'run allocation - Error JG_ZZ_VAT_REP_UTILITY.validate_process_initiation. value-'||lv_return_flag);
429: end if;
430:
431: /* print return message;
432: request WARNING (retcode=1), ERROR (retcode=2)*/
439: fetch c_get_alloc_flags into lv_enable_alloc_flag, lv_enable_annual_alloc_flag;
440: close c_get_alloc_flags;
441:
442: if gv_debug_flag then
443: fnd_file.put_line(fnd_file.log, 'run allocation - lv_enable_alloc_flag:'||lv_enable_alloc_flag ||', lv_enable_annual_alloc_flag:'||lv_enable_annual_alloc_flag);
444: end if;
445:
446: /* logic to set the variable that indicates the no of source ledgers the will be allocated */
447: ln_source_iterations := 1;
451:
452: FOR product IN 1..ln_source_iterations LOOP /* 1=AP, 2=AR, 3=GL */
453:
454: if gv_debug_flag then
455: fnd_file.put_line(fnd_file.log, ' product loop:'||product);
456: end if;
457:
458: /* initialization for SOURCE specific variables */
459: lv_curr_allocation_status := null;
480: ln_rep_status_id := ln_rep_status_id_gl;
481: end if;
482:
483: /*if gv_debug_flag then
484: fnd_file.put_line(fnd_file.log, 'run allocation - pl->bCallTo-get_allocation_status - ln_rep_status_id:'||ln_rep_status_id);
485: end if;
486: */
487: lv_curr_allocation_status := get_allocation_status(pn_reporting_status_id => ln_rep_status_id);
488:
486: */
487: lv_curr_allocation_status := get_allocation_status(pn_reporting_status_id => ln_rep_status_id);
488:
489: /*if gv_debug_flag then
490: fnd_file.put_line(fnd_file.log, 'run allocation - pl->aCallTo-get_allocation_status:'||lv_curr_allocation_status);
491: end if;
492: */
493: /* logic to say whether to execute cursor for first time allocation/reallocation or errored allocations*/
494: if pv_reallocate_flag = g_no and lv_curr_allocation_status = g_yes then
519: FETCH l_trxs_for_alloc_csr INTO l_trx_rec;
520: EXIT WHEN l_trxs_for_alloc_csr%NOTFOUND;
521:
522: if gv_debug_flag then
523: fnd_file.put_line(fnd_file.log, 'run allocation - trxloop 1. lv_fresh_allocation_flag:'||lv_fresh_allocation_flag);
524: end if;
525:
526:
527: /* should we loop here twice if it is fresh allocation */
539: ln_period_type_iterations := 1;
540: end if;
541:
542: if gv_debug_flag then
543: fnd_file.put_line(fnd_file.log, 'run allocation - trxloop 2. lv_fresh_allocation_flag:'||lv_fresh_allocation_flag
544: ||', entityCode:'||l_trx_rec.entity_code ||', trx_type_mng:'||l_trx_rec.trx_type_mng
545: );
546: end if;
547:
564: fetch c_sl_trx_type_dtl into l_sl_dtl_rec;
565: close c_sl_trx_type_dtl;
566:
567: if gv_debug_flag then
568: fnd_file.put_line(fnd_file.log, 'run allocation - trxloop 3. sl_trx_type:'
569: ||l_sl_dtl_rec.sl_trx_type ||', cr_rev_category:'||l_cr_dtl_rec.cr_rev_category
570: );
571: end if;
572:
639: lv_period_type := g_period_type_annual;
640: end if;
641:
642: /*if gv_debug_flag then
643: fnd_file.put_line(fnd_file.log, 'run allocation - periodTypeloop 1. BefAllocBox. lv_period_type:'||lv_period_type);
644: end if;
645: */
646:
647: -- Initialize the variable for counting the no. of transactions getting allocated
707: xv_return_message => lv_return_message
708: );
709:
710: if gv_debug_flag then
711: fnd_file.put_line(fnd_file.log, 'run allocation - periodTypeloop 2. AftAllocBox. lv_period_type:'||lv_period_type
712: ||', lv_return_flag:'||lv_return_flag
713: ||', lv_return_message:'||lv_return_message
714: ||', tax_box:'||lv_tax_box
715: ||', taxable_box:'||lv_taxable_box
763:
764: if lv_fresh_allocation_flag = g_yes then
765:
766: if gv_debug_flag then
767: fnd_file.put_line(fnd_file.log, 'run allocation - periodTypeloop. BefDML2 : '
768: ||' lv_allocation_errored_flag = g_yes and lv_fresh_allocation_flag = g_yes'
769: );
770: end if;
771: insert_allocation_error(
792:
793: elsif lv_fresh_allocation_flag = g_no then
794:
795: if gv_debug_flag then
796: fnd_file.put_line(fnd_file.log, 'run allocation - periodTypeloop. BefDML3 : '
797: ||' lv_allocation_errored_flag = g_yes and lv_fresh_allocation_flag = g_no'
798: );
799: end if;
800: update_allocation_error(
831: lv_allocation_status_flag := fnd_api.g_ret_sts_error;
832: end if;
833:
834: if gv_debug_flag then
835: fnd_file.put_line(fnd_file.log, 'run allocation - periodTypeloop 3. BefDML.'
836: ||' lv_allocation_errored_flag:'||lv_allocation_errored_flag
837: ||', lv_allocation_status_flag:'||lv_allocation_status_flag
838: );
839: end if;
850: /* i.e successfully found a reco. / non reco. Box */
851: if lv_allocation_errored_flag = g_no then
852:
853: if gv_debug_flag then
854: fnd_file.put_line(fnd_file.log, 'run allocation - periodTypeloop. BefDML1 : lv_allocation_errored_flag = g_no'
855: );
856: end if;
857:
858: ln_allocated_cnt := ln_allocated_cnt + 1;
893:
894: end loop; /* for JG transactions */
895:
896: if gv_debug_flag then
897: fnd_file.put_line(fnd_file.log, 'run allocation - EndLoop Trx. lv_allocation_status_flag:'||lv_allocation_status_flag );
898: end if;
899:
900: /* derive the sequence value for the allocation process that will be punched in the status table
901: Preparation for call to post process update */
909: lv_return_flag := null;
910: lv_return_message := null;
911:
912: if gv_debug_flag then
913: fnd_file.put_line(fnd_file.log, 'run allocation - before jg_zz_vat_rep_utility.post_process_update.'
914: );
915: end if;
916: /* Call the utility API to update allocation_process columns of jg_zz_vat_rep_status table by passing proper values.*/
917: jg_zz_vat_rep_utility.post_process_update(
926: xv_return_message => lv_return_message
927: );
928:
929: if gv_debug_flag then
930: fnd_file.put_line(fnd_file.log, 'run allocation - after jg_zz_vat_rep_utility.post_process_update.'
931: ||' lv_return_flag:'||lv_return_flag
932: );
933: end if;
934: /* raise error if validation failed */
943:
944: END LOOP; /* end for source */
945:
946: if gv_debug_flag then
947: fnd_file.put_line(fnd_file.log, 'run allocation - after EndLoop Source. ln_allocated_cnt:'||ln_allocated_cnt
948: ||', ln_ins_errored_cnt:'||ln_ins_errored_cnt
949: ||', ln_upd_errored_cnt:'||ln_upd_errored_cnt
950: ||', ln_del_errored_cnt:'||ln_del_errored_cnt
951: );
966: output_format => 'PDF'
967: );
968:
969: if gv_debug_flag then
970: fnd_file.put_line(fnd_file.log, 'run allocation - after fnd_request.add_layout'
971: );
972: end if;
973:
974: ln_errors_conc_request_id :=
986: '','','','','','','','','','',
987: '','','','','');
988:
989: if gv_debug_flag then
990: fnd_file.put_line(fnd_file.log, 'run allocation - after fnd_request.submit_request'
991: );
992: end if;
993:
994: end if;
1114:
1115: if gv_hierarchy_level = 0 then
1116:
1117: if gv_debug_flag then
1118: fnd_file.put_line(fnd_file.log, 'allocate_box - start' );
1119: end if;
1120: lv_statement := '1';
1121:
1122: if gv_debug_flag then
1119: end if;
1120: lv_statement := '1';
1121:
1122: if gv_debug_flag then
1123: fnd_file.put_line(fnd_file.log, 'Params-'
1124: ||', pn_vat_reporting_entity_id:'||pn_vat_reporting_entity_id
1125: ||', pv_period_type:'||pv_period_type
1126: ||', pv_source:'||pv_source
1127: ||', pv_event_class_code:'||pv_event_class_code
1191: null;
1192: end if;
1193:
1194: if gv_debug_flag then
1195: fnd_file.put_line(fnd_file.log, 'allocate_box - afterHierarchy. lv_rule_found:'||lv_rule_found
1196: ||', pv_tax_recoverable_flag:'||pv_tax_recoverable_flag
1197: );
1198: end if;
1199:
1235:
1236: EXCEPTION
1237: when others then
1238: if gv_debug_flag then
1239: fnd_file.put_line(fnd_file.log, 'Only one allocation rule applicable' );
1240: end if;
1241: gv_allocation_rule_id := lv_allocation_rule_id;
1242: END;
1243:
1245: end if;
1246: end loop;
1247: else
1248: if gv_debug_flag then
1249: fnd_file.put_line(fnd_file.log, 'Params-'
1250: ||', pn_vat_reporting_entity_id:'||pn_vat_reporting_entity_id
1251: ||', pv_period_type:'||pv_period_type
1252: ||', pv_source:'||pv_source
1253: ||', pv_event_class_code:'||pv_event_class_code
1289: return;
1290: end if;
1291:
1292: if gv_debug_flag then
1293: fnd_file.put_line(fnd_file.log, 'allocate_box - end. Hierarchy Path-'||lv_hierarchy_debug );
1294: end if;
1295:
1296: exception
1297: when others then
1295:
1296: exception
1297: when others then
1298: if gv_debug_flag then
1299: fnd_file.put_line(fnd_file.log, 'allocate_box - ERROR lv_statement:'||lv_statement );
1300: end if;
1301: xv_return_status := fnd_api.g_ret_sts_unexp_error;
1302: xv_return_message := 'jg_zz_vat_alloc_prc_pkg.allocate_box ~ Unexpected Error -' || sqlerrm;
1303:
1314: lv_allocation_status jg_zz_vat_rep_status.allocation_status_flag%TYPE;
1315:
1316: begin
1317: if gv_debug_flag then
1318: fnd_file.put_line(fnd_file.log, 'get_allocation_status - start ->'||lv_allocation_status );
1319: end if;
1320: open c_get_allocation_status;
1321: fetch c_get_allocation_status into lv_allocation_status;
1322: close c_get_allocation_status;
1321: fetch c_get_allocation_status into lv_allocation_status;
1322: close c_get_allocation_status;
1323:
1324: if gv_debug_flag then
1325: fnd_file.put_line(fnd_file.log, 'get_allocation_status - return ->'||lv_allocation_status );
1326: end if;
1327:
1328: return lv_allocation_status;
1329: end get_allocation_status;