207: l_is_formula_based VARCHAR2(1) := 'N';
208:
209: CURSOR is_formula_based IS
210: select nvl(typ.FORMULA_YN,'N')
211: from okl_trx_contracts khr,
212: okl_trx_types_b typ
213: where khr.try_id=typ.id
214: and khr.id = p_id;
215: BEGIN
233: l_trx_type_class okl_trx_types_b.trx_type_class%type := null;
234:
235: CURSOR is_line_based IS
236: select trx_type_class
237: from okl_trx_contracts khr,
238: okl_trx_types_b typ
239: where khr.try_id=typ.id
240: and khr.id = p_id;
241: BEGIN
489: WHERE id = l_sty_type_id ;
490:
491: CURSOR get_kle_ids_csr (l_id NUMBER) IS
492: select distinct lns.kle_id
493: from okl_trx_contracts khr,
494: OKL_TXL_CNTRCT_LNS lns
495: where khr.id = l_id
496: and khr.id = lns.tcn_id;
497:
634:
635:
636: -- create the secondary transaction header
637: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
638: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Prior to the call to OKL_TRX_CONTRACTS_PUB.create_trx_contracts');
639: END IF;
640:
641:
642: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(p_api_version => l_api_version,
638: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Prior to the call to OKL_TRX_CONTRACTS_PUB.create_trx_contracts');
639: END IF;
640:
641:
642: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(p_api_version => l_api_version,
643: p_init_msg_list => p_init_msg_list,
644: x_return_status => x_return_status,
645: x_msg_count => x_msg_count,
646: x_msg_data => x_msg_data,
647: p_tcnv_rec => l_sec_trx_tcnv_tbl(1),
648: x_tcnv_rec => x_sec_trx_tcnv_tbl(1));
649:
650: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
651: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After the call to OKL_TRX_CONTRACTS_PUB.create_trx_contracts, the return status is :'||x_return_status);
652: END IF;
653:
654: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
672: RAISE OKL_API.G_EXCEPTION_ERROR;
673: END IF;
674:
675: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
676: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After the call to OKL_TRX_CONTRACTS_PUB.create_trx_contracts'||to_char(l_valid_gl_date));
677: END IF;
678:
679: -- FOR m IN 1.. x_sec_trx_tcnv_tbl.COUNT -- this for loop is to handle multiple secondary trxs
680: -- LOOP
810:
811: END IF;
812:
813: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
814: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Prior to the call to OKL_TRX_CONTRACTS_PUB.create_trx_cntrct_lines');
815: END IF;
816:
817: -- create the secondary transaction lines for each acc tmpl
818: OKL_TRX_CONTRACTS_PUB.create_trx_cntrct_lines
814: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Prior to the call to OKL_TRX_CONTRACTS_PUB.create_trx_cntrct_lines');
815: END IF;
816:
817: -- create the secondary transaction lines for each acc tmpl
818: OKL_TRX_CONTRACTS_PUB.create_trx_cntrct_lines
819: (p_api_version => l_api_version,
820: p_init_msg_list => p_init_msg_list,
821: x_return_status => l_return_status,
822: x_msg_count => x_msg_count,
830: RAISE OKL_API.G_EXCEPTION_ERROR;
831: END IF;
832:
833: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
834: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After the call to OKL_TRX_CONTRACTS_PUB.create_trx_cntrct_lines :'||l_return_status);
835: END IF;
836:
837: -- accounting distributiions
838:
923: END LOOP; -- For i in
924: End If; -- If l_tclv_tbl.COUNT
925:
926: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
927: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Prior to the call to OKL_TRX_CONTRACTS_PUB.update_trx_cntrct_lines');
928: END IF;
929: --Update the lines with the amount
930: OKL_TRX_CONTRACTS_PUB.update_trx_cntrct_lines
931: (p_api_version => l_api_version,
926: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
927: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Prior to the call to OKL_TRX_CONTRACTS_PUB.update_trx_cntrct_lines');
928: END IF;
929: --Update the lines with the amount
930: OKL_TRX_CONTRACTS_PUB.update_trx_cntrct_lines
931: (p_api_version => l_api_version,
932: p_init_msg_list => p_init_msg_list,
933: x_return_status => x_return_status,
934: x_msg_count => x_msg_count,
936: p_tclv_tbl => x_sec_trx_tclv_tbl,
937: x_tclv_tbl => l_sec_trx_tclv_tbl);
938:
939: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
940: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After the call to OKL_TRX_CONTRACTS_PUB.update_trx_cntrct_lines :'||x_return_status);
941: END IF;
942:
943: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
950: x_sec_trx_tcnv_tbl(1).tsu_code := 'PROCESSED';
951: x_sec_trx_tcnv_tbl(1).amount := x_sec_trx_tcnv_tbl(1).amount;
952:
953: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
954: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Prior to the call to OKL_TRX_CONTRACTS_PUB.update_trx_contracts');
955: END IF;
956:
957: OKL_TRX_CONTRACTS_PUB.update_trx_contracts(p_api_version => l_api_version,
958: p_init_msg_list => p_init_msg_list,
953: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
954: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Prior to the call to OKL_TRX_CONTRACTS_PUB.update_trx_contracts');
955: END IF;
956:
957: OKL_TRX_CONTRACTS_PUB.update_trx_contracts(p_api_version => l_api_version,
958: p_init_msg_list => p_init_msg_list,
959: x_return_status => x_return_status,
960: x_msg_count => x_msg_count,
961: x_msg_data => x_msg_data,
963: x_tcnv_rec => x_sec_trx_tcnv_tbl(1));
964:
965:
966: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
967: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After the call to OKL_TRX_CONTRACTS_PUB.update_trx_contracts :'||x_return_status);
968: END IF;
969:
970: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1019:
1020: END LOOP;
1021:
1022: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1023: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Prior to the call to OKL_TRX_CONTRACTS_PUB.create_trx_cntrct_lines');
1024: END IF;
1025:
1026: -- create the secondary transaction lines for each acc tmpl
1027: OKL_TRX_CONTRACTS_PUB.create_trx_cntrct_lines
1023: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Prior to the call to OKL_TRX_CONTRACTS_PUB.create_trx_cntrct_lines');
1024: END IF;
1025:
1026: -- create the secondary transaction lines for each acc tmpl
1027: OKL_TRX_CONTRACTS_PUB.create_trx_cntrct_lines
1028: (p_api_version => l_api_version,
1029: p_init_msg_list => p_init_msg_list,
1030: x_return_status => x_return_status,
1031: x_msg_count => x_msg_count,
1033: p_tclv_tbl => l_sec_trx_tclv_tbl,
1034: x_tclv_tbl => x_sec_trx_tclv_tbl);
1035:
1036: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1037: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After the call to OKL_TRX_CONTRACTS_PUB.update_trx_cntrct_lines :'||x_return_status);
1038: END IF;
1039:
1040: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1119: RAISE OKL_API.G_EXCEPTION_ERROR;
1120: END IF;
1121:
1122: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1123: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Prior to the call to OKL_TRX_CONTRACTS_PUB.update_trx_contracts');
1124: END IF;
1125:
1126: --Update the header with the amount
1127: x_sec_trx_tcnv_tbl(1).tsu_code := 'PROCESSED';
1124: END IF;
1125:
1126: --Update the header with the amount
1127: x_sec_trx_tcnv_tbl(1).tsu_code := 'PROCESSED';
1128: OKL_TRX_CONTRACTS_PUB.update_trx_contracts(p_api_version => l_api_version,
1129: p_init_msg_list => p_init_msg_list,
1130: x_return_status => x_return_status,
1131: x_msg_count => x_msg_count,
1132: x_msg_data => x_msg_data,
1134: x_tcnv_rec => x_sec_trx_tcnv_tbl(1));
1135:
1136:
1137: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1138: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After the call to OKL_TRX_CONTRACTS_PUB.update_trx_contracts :'||x_return_status);
1139: END IF;
1140:
1141: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1142: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1200: l_sysdate DATE := SYSDATE;
1201: l_reversal_date DATE;
1202: l_COUNT NUMBER :=0;
1203: /* record and table structure variables */
1204: l_pri_tcnv_rec OKL_TRX_CONTRACTS_PUB.tcnv_rec_type := P_TCNV_REC;
1205: l_tcnv_rec OKL_TRX_CONTRACTS_PUB.tcnv_rec_type;
1206: x_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type;
1207: l_tcnv_tbl OKL_TRX_CONTRACTS_PUB.tcnv_tbl_type;
1208: x_tcnv_tbl OKL_TRX_CONTRACTS_PUB.tcnv_tbl_type;
1201: l_reversal_date DATE;
1202: l_COUNT NUMBER :=0;
1203: /* record and table structure variables */
1204: l_pri_tcnv_rec OKL_TRX_CONTRACTS_PUB.tcnv_rec_type := P_TCNV_REC;
1205: l_tcnv_rec OKL_TRX_CONTRACTS_PUB.tcnv_rec_type;
1206: x_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type;
1207: l_tcnv_tbl OKL_TRX_CONTRACTS_PUB.tcnv_tbl_type;
1208: x_tcnv_tbl OKL_TRX_CONTRACTS_PUB.tcnv_tbl_type;
1209: l_source_id_tbl OKL_REVERSAL_PUB.source_id_tbl_type;
1202: l_COUNT NUMBER :=0;
1203: /* record and table structure variables */
1204: l_pri_tcnv_rec OKL_TRX_CONTRACTS_PUB.tcnv_rec_type := P_TCNV_REC;
1205: l_tcnv_rec OKL_TRX_CONTRACTS_PUB.tcnv_rec_type;
1206: x_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type;
1207: l_tcnv_tbl OKL_TRX_CONTRACTS_PUB.tcnv_tbl_type;
1208: x_tcnv_tbl OKL_TRX_CONTRACTS_PUB.tcnv_tbl_type;
1209: l_source_id_tbl OKL_REVERSAL_PUB.source_id_tbl_type;
1210: --
1203: /* record and table structure variables */
1204: l_pri_tcnv_rec OKL_TRX_CONTRACTS_PUB.tcnv_rec_type := P_TCNV_REC;
1205: l_tcnv_rec OKL_TRX_CONTRACTS_PUB.tcnv_rec_type;
1206: x_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type;
1207: l_tcnv_tbl OKL_TRX_CONTRACTS_PUB.tcnv_tbl_type;
1208: x_tcnv_tbl OKL_TRX_CONTRACTS_PUB.tcnv_tbl_type;
1209: l_source_id_tbl OKL_REVERSAL_PUB.source_id_tbl_type;
1210: --
1211: TYPE t_date IS TABLE OF DATE INDEX BY BINARY_INTEGER;
1204: l_pri_tcnv_rec OKL_TRX_CONTRACTS_PUB.tcnv_rec_type := P_TCNV_REC;
1205: l_tcnv_rec OKL_TRX_CONTRACTS_PUB.tcnv_rec_type;
1206: x_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type;
1207: l_tcnv_tbl OKL_TRX_CONTRACTS_PUB.tcnv_tbl_type;
1208: x_tcnv_tbl OKL_TRX_CONTRACTS_PUB.tcnv_tbl_type;
1209: l_source_id_tbl OKL_REVERSAL_PUB.source_id_tbl_type;
1210: --
1211: TYPE t_date IS TABLE OF DATE INDEX BY BINARY_INTEGER;
1212: l_trx_date_tbl t_date;
1213: --
1214: -- Cursor to select transaction headers for reversal
1215: CURSOR reverse_trx_csr(p_id NUMBER) IS
1216: SELECT id, date_transaction_occurred, transaction_date
1217: FROM OKL_TRX_CONTRACTS trx
1218: WHERE trx.primary_rep_trx_id = p_id
1219: AND trx.tsu_code = 'PROCESSED'
1220: AND trx.representation_type = G_SECONDARY;
1221:
1222: -- Cursor to select transaction lines for reversal
1223: CURSOR reverse_txl_csr(p_tcn_id NUMBER) IS
1224: SELECT txl.id, txl.amount, txl.currency_code
1225: FROM OKL_TXL_CNTRCT_LNS txl,
1226: OKL_TRX_CONTRACTS trx
1227: WHERE txl.tcn_id = trx.id
1228: AND txl.tcn_id = p_tcn_id
1229: AND trx.tsu_code = 'PROCESSED'
1230: AND trx.representation_type = G_SECONDARY;
1311:
1312: END LOOP; -- new logic for reversing by tcn_id.
1313:
1314: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1315: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Prior to the call to Okl_Trx_Contracts_Pub.update_trx_contracts');
1316: END IF;
1317: --Call the transaction public api to update tsu_code
1318: Okl_Trx_Contracts_Pub.update_trx_contracts
1319: (p_api_version => p_api_version,
1314: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1315: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Prior to the call to Okl_Trx_Contracts_Pub.update_trx_contracts');
1316: END IF;
1317: --Call the transaction public api to update tsu_code
1318: Okl_Trx_Contracts_Pub.update_trx_contracts
1319: (p_api_version => p_api_version,
1320: p_init_msg_list => p_init_msg_list,
1321: x_return_status => l_return_status,
1322: x_msg_count => x_msg_count,
1324: p_tcnv_tbl => l_tcnv_tbl,
1325: x_tcnv_tbl => x_tcnv_tbl);
1326:
1327: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1328: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After the call to Okl_Trx_Contracts_Pub.update_trx_contracts :'||l_return_status);
1329: END IF;
1330:
1331: -- store the highest degree of error
1332: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN