38: ------------------------------------------------------------------------------
39: --Added by dpsingh for LE uptake
40: CURSOR contract_num_csr (p_ctr_id1 NUMBER) IS
41: SELECT contract_number
42: FROM OKC_K_HEADERS_B
43: WHERE id = p_ctr_id1;
44:
45: PROCEDURE Report_Error(
46: x_msg_count OUT NOCOPY NUMBER,
170: 'Error');
171: populate_failed EXCEPTION;
172:
173: --Added by dpsingh for LE uptake
174: l_cntrct_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
175: l_legal_entity_id NUMBER;
176:
177: BEGIN
178: IF (G_DEBUG_ENABLED = 'Y') THEN
599:
600: l_tcnv_rec tcnv_rec_type;
601: l_out_tcnv_rec tcnv_rec_type;
602:
603: CURSOR con_eff_csr (p_chr_id OKC_K_HEADERS_B.ID%TYPE) IS
604: SELECT start_date,
605: end_date
606: FROM okc_k_headers_b
607: WHERE id = p_chr_id;
602:
603: CURSOR con_eff_csr (p_chr_id OKC_K_HEADERS_B.ID%TYPE) IS
604: SELECT start_date,
605: end_date
606: FROM okc_k_headers_b
607: WHERE id = p_chr_id;
608:
609: CURSOR check_date_csr (p_start_date DATE,
610: p_end_date DATE,
635: AND trx.tas_type = 'ALG'
636: AND trx.id = itm.tas_id ;
637:
638: l_rebook_allowed VARCHAR2(1) := 'Y';
639: l_contract_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
640: --akrangan end
641: /*
642: -- mvasudev, 08/30/2004
643: -- Added PROCEDURE to enable Business Event
1221:
1222: l_try_id NUMBER;
1223: service_txn_failed EXCEPTION;
1224: --Added by dpsingh for LE Uptake
1225: l_cntrct_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
1226: l_legal_entity_id NUMBER;
1227:
1228: BEGIN -- main process begins here
1229: IF (G_DEBUG_ENABLED = 'Y') THEN
1426:
1427: l_try_id NUMBER;
1428: ppd_txn_failed EXCEPTION;
1429: --Added by dpsingh for LE Uptake
1430: l_cntrct_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
1431: l_legal_entity_id NUMBER;
1432:
1433: BEGIN -- main process begins here
1434: IF (G_DEBUG_ENABLED = 'Y') THEN