63: END IF;
64:
65: EXCEPTION
66: WHEN CST_PKG_FAIL THEN
67: fnd_file.put_line(fnd_file.log,o_err_msg);
68: fnd_file.put_line(fnd_file.log,'CSTPALPC.dyn_proc_call : Error Calling Package');
69: WHEN CST_PKG_FAIL2 THEN
70: o_err_num := l_err;
71: o_err_code := SQLCODE;
64:
65: EXCEPTION
66: WHEN CST_PKG_FAIL THEN
67: fnd_file.put_line(fnd_file.log,o_err_msg);
68: fnd_file.put_line(fnd_file.log,'CSTPALPC.dyn_proc_call : Error Calling Package');
69: WHEN CST_PKG_FAIL2 THEN
70: o_err_num := l_err;
71: o_err_code := SQLCODE;
72: o_err_msg := 'CSTPALPC.dyn_proc_call ('||l_err||'): Error Calling Package';
69: WHEN CST_PKG_FAIL2 THEN
70: o_err_num := l_err;
71: o_err_code := SQLCODE;
72: o_err_msg := 'CSTPALPC.dyn_proc_call ('||l_err||'): Error Calling Package';
73: fnd_file.put_line(fnd_file.log,o_err_msg);
74: WHEN OTHERS THEN
75: o_err_num := 30002;
76: o_err_code := SQLCODE;
77: o_err_msg := 'CSTPALPC.dyn_proc_call : ' || to_char(l_stmt_num) || ':'|| substr(SQLERRM,1,180);
74: WHEN OTHERS THEN
75: o_err_num := 30002;
76: o_err_code := SQLCODE;
77: o_err_msg := 'CSTPALPC.dyn_proc_call : ' || to_char(l_stmt_num) || ':'|| substr(SQLERRM,1,180);
78: fnd_file.put_line(fnd_file.log,o_err_msg);
79: END dyn_proc_call;
80:
81:
82: PROCEDURE create_acct_entry (
93: l_err_rec CSTPALTY.CST_AE_ERR_REC_TYPE;
94: l_stmt_num NUMBER;
95: BEGIN
96: IF l_debug_flag = 'Y' THEN
97: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Create_Acct_Entry <<< ');
98: END IF;
99:
100: IF (i_mode = 0) THEN
101: /* Normal Mode */
122: o_err_code => o_err_code,
123: o_err_msg => o_err_msg);
124: END IF;
125: IF l_debug_flag = 'Y' THEN
126: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Create_Acct_Entry >>> ');
127: END IF;
128: EXCEPTION
129: WHEN OTHERS THEN
130: o_err_num := 30001;
129: WHEN OTHERS THEN
130: o_err_num := 30001;
131: o_err_code := SQLCODE;
132: o_err_msg := 'CSTPALPC.create_acct_entry : ' || to_char(l_stmt_num) || ' :'|| substr(SQLERRM,1,180);
133: fnd_file.put_line(fnd_file.log,l_err_rec.l_err_msg);
134:
135: END create_acct_entry;
136:
137: PROCEDURE create_dist_entry (
460: BEGIN
461:
462: l_stmt_num := 5;
463: IF l_debug_flag = 'Y' THEN
464: fnd_file.put_line(fnd_file.log, 'Create_Dist_Entry <<< ');
465: END IF;
466: l_txn_count := 0;
467:
468: FOR c_txns_rec IN c_txns LOOP
467:
468: FOR c_txns_rec IN c_txns LOOP
469: l_stmt_num := 10;
470: IF l_debug_flag = 'Y' THEN
471: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transaction: '||to_char(c_txns_rec.transaction_id));
472: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transaction Type: '||c_txns_rec.transaction_type);
473: END IF;
474: l_transaction_type_flag := c_txns_rec.transaction_type_flag;
475: l_event_type_id := c_txns_rec.event_type;
468: FOR c_txns_rec IN c_txns LOOP
469: l_stmt_num := 10;
470: IF l_debug_flag = 'Y' THEN
471: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transaction: '||to_char(c_txns_rec.transaction_id));
472: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transaction Type: '||c_txns_rec.transaction_type);
473: END IF;
474: l_transaction_type_flag := c_txns_rec.transaction_type_flag;
475: l_event_type_id := c_txns_rec.event_type;
476:
523: cap.accounting_package_id = calp.accounting_package_id;
524:
525: END IF;
526: IF l_debug_flag = 'Y' THEN
527: fnd_file.put_line(fnd_file.log,'Calling Package '||(l_package_name) ||' ...');
528: END IF;
529:
530: l_so_issue_exists := 1;
531:
571: l_txn_count := l_txn_count + 1;
572: END LOOP;
573:
574: IF l_debug_flag = 'Y' THEN
575: fnd_file.put_line(fnd_file.log,'Total Transactions processed : '||to_char(l_txn_count));
576: fnd_file.put_line(fnd_file.log, 'Create_Dist_Entry >>> ');
577: END IF;
578:
579: COMMIT;
572: END LOOP;
573:
574: IF l_debug_flag = 'Y' THEN
575: fnd_file.put_line(fnd_file.log,'Total Transactions processed : '||to_char(l_txn_count));
576: fnd_file.put_line(fnd_file.log, 'Create_Dist_Entry >>> ');
577: END IF;
578:
579: COMMIT;
580:
582: WHEN CST_PKG_CALL_FAIL THEN
583: o_err_num := l_err_rec.l_err_num;
584: o_err_code := l_err_rec.l_err_code;
585: o_err_msg := l_err_rec.l_err_msg || ': CSTPALPC.create_dist_entry : ' || to_char(l_stmt_num);
586: fnd_file.put_line(fnd_file.log,o_err_msg);
587: WHEN OTHERS THEN
588: o_err_num := 30002;
589: o_err_code := SQLCODE;
590: o_err_msg := 'CSTPALPC.create_dist_entry : ' || to_char(l_stmt_num) || ':'|| substr(SQLERRM,1,180);
587: WHEN OTHERS THEN
588: o_err_num := 30002;
589: o_err_code := SQLCODE;
590: o_err_msg := 'CSTPALPC.create_dist_entry : ' || to_char(l_stmt_num) || ':'|| substr(SQLERRM,1,180);
591: fnd_file.put_line(fnd_file.log,l_err_rec.l_err_msg);
592:
593: END create_dist_entry;
594:
595: PROCEDURE create_per_end_entry (
672: CST_PKG_CALL_FAIL EXCEPTION;
673: BEGIN
674:
675:
676: fnd_file.put_line(fnd_file.log,'CSTPALPC.create_per_end_entries in');
677: l_txn_count := 0;
678:
679: FOR c_txns_rec IN c_txns LOOP
680:
678:
679: FOR c_txns_rec IN c_txns LOOP
680:
681: l_transaction_type_flag := c_txns_rec.transaction_type_flag;
682: fnd_file.put_line(fnd_file.log,'Processing Transaction : '||to_char(c_txns_rec.transaction_id));
683:
684: l_stmt_num := 10;
685: l_event_type_id := c_txns_rec.EVENT_TYPE;
686:
733: cap.accounting_package_id = calp.accounting_package_id;
734:
735: END IF;
736:
737: fnd_file.put_line(fnd_file.log,'Calling Package '||(l_package_name) ||' ...');
738:
739: dyn_proc_call(
740: l_package_name,
741: i_legal_entity,
755: END IF;
756: l_txn_count := l_txn_count + 1;
757:
758: END LOOP;
759: fnd_file.put_line(fnd_file.log,'Total Transactions processed : '||to_char(l_txn_count));
760:
761: --COMMIT;
762:
763: EXCEPTION
768: WHEN OTHERS THEN
769: o_err_num := 30002;
770: o_err_code := SQLCODE;
771: o_err_msg := 'CSTPALPC.create_per_end_entry : ' || to_char(l_stmt_num) || ':'|| substr(SQLERRM,1,180);
772: fnd_file.put_line(fnd_file.log,l_err_rec.l_err_msg);
773:
774: END create_per_end_entry;
775:
776:
793:
794:
795: BEGIN
796:
797: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CSTPALPC.Insert_Ae_Lines <<< ');
798:
799: l_request_id := FND_GLOBAL.conc_request_id;
800: l_user_id := FND_GLOBAL.user_id;
801: l_login_id := FND_GLOBAL.login_id;
813:
814:
815: IF i_ae_line_rec_tbl.EXISTS(1) THEN
816:
817: fnd_file.put_line(fnd_file.log,'Inserting in Headers table ...');
818:
819: l_stmt_num := 20;
820:
821: INSERT INTO
886: );
887:
888: FOR i IN i_ae_line_rec_tbl.FIRST..i_ae_line_rec_tbl.LAST LOOP
889:
890: fnd_file.put_line(fnd_file.log,'Inserting in Lines table ...');
891:
892: l_stmt_num := 30;
893: IF (i_ae_line_rec_tbl(i).actual_flag = 'E') then
894:
1128:
1129: END LOOP;
1130:
1131: END IF;
1132: FND_FILE.PUT_LINE(FND_FILE.LOG, 'CSTPALPC.Insert_Ae_Lines >>> ');
1133:
1134: EXCEPTION
1135: WHEN OTHERS THEN
1136: o_err_rec.l_err_num := 30001;
1136: o_err_rec.l_err_num := 30001;
1137: o_err_rec.l_err_code := SQLCODE;
1138: o_err_rec.l_err_msg := 'CSTPALPC.insert_ae_lines : ' || to_char(l_stmt_num) || ':'|| substr(SQLERRM,1,180);
1139: CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',o_err_rec.l_err_msg);
1140: fnd_file.put_line(fnd_file.log,o_err_rec.l_err_msg);
1141:
1142:
1143:
1144: END insert_ae_lines;