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;
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