32: ,p_init_msg_list IN VARCHAR2
33: ,x_return_status OUT NOCOPY VARCHAR2
34: ,x_msg_count OUT NOCOPY NUMBER
35: ,x_msg_data OUT NOCOPY VARCHAR2
36: ,p_chr_id IN okc_k_headers_b.id%type -- contract ID
37: ,p_credit_line_id IN okc_k_headers_b.id%type -- credit line ID
38: ,p_formula_name IN VARCHAR2
39: ,p_credit_flag IN BOOLEAN default false
40: )
33: ,x_return_status OUT NOCOPY VARCHAR2
34: ,x_msg_count OUT NOCOPY NUMBER
35: ,x_msg_data OUT NOCOPY VARCHAR2
36: ,p_chr_id IN okc_k_headers_b.id%type -- contract ID
37: ,p_credit_line_id IN okc_k_headers_b.id%type -- credit line ID
38: ,p_formula_name IN VARCHAR2
39: ,p_credit_flag IN BOOLEAN default false
40: )
41: is
52: x_chrv_rec chrv_rec_type;
53: x_khrv_rec khrv_rec_type;
54:
55:
56: cursor c_credit_tna (p_chr_id okc_k_headers_b.id%TYPE)
57: is
58: select NVL(khr.TOT_CL_NET_TRANSFER_AMT,0)
59: from okl_k_headers khr
60: where khr.id = p_chr_id
189: ,p_init_msg_list IN VARCHAR2
190: ,x_return_status OUT NOCOPY VARCHAR2
191: ,x_msg_count OUT NOCOPY NUMBER
192: ,x_msg_data OUT NOCOPY VARCHAR2
193: ,p_chr_id IN okc_k_headers_b.id%type
194: )
195: is
196: l_api_name CONSTANT VARCHAR2(30) := 'update_full_tna_creditline';
197: l_api_version CONSTANT NUMBER := 1.0;
201: l_dst_credit_id NUMBER;
202: l_src_chr_id NUMBER;
203: l_src_chr_not_found boolean := false;
204:
205: cursor c_src_chr (p_chr_id okc_k_headers_b.id%TYPE)
206: is
207: select chr.ORIG_SYSTEM_ID1
208: from okc_k_headers_b chr
209: where chr.id = p_chr_id
204:
205: cursor c_src_chr (p_chr_id okc_k_headers_b.id%TYPE)
206: is
207: select chr.ORIG_SYSTEM_ID1
208: from okc_k_headers_b chr
209: where chr.id = p_chr_id
210: ;
211:
212: begin
234: /*** Begin API body ****************************************************/
235: /*
236: -> contract T and A
237: 5.1 get credit line ID for destination contract if any (ignore if credit line not found?)
238: 5.2 get source contract's ID via okc_k_headers_b.ORIG_SYSTEM_ID1 (raise system error if not found)
239: 5.3 get credit line ID for source contract if any (ignore if credit line not found?)
240:
241: 5.4
242: IF source contract credit line exists THEN
256:
257: -- get credit line ID for destination contract if any (ignore if credit line not found?)
258: l_dst_credit_id := OKL_CREDIT_PUB.get_creditline_by_chrid(p_chr_id);
259:
260: -- get source contract's ID via okc_k_headers_b.ORIG_SYSTEM_ID1
261: open c_src_chr(p_chr_id);
262: fetch c_src_chr into l_src_chr_id;
263: l_src_chr_not_found := c_src_chr%notfound;
264: close c_src_chr;
378: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
379: ,x_return_status OUT NOCOPY VARCHAR2
380: ,x_msg_count OUT NOCOPY NUMBER
381: ,x_msg_data OUT NOCOPY VARCHAR2
382: ,p_chr_id IN okc_k_headers_b.id%type
383: )
384: is
385: l_api_name CONSTANT VARCHAR2(30) := 'update_partial_tna_creditline';
386: l_api_version CONSTANT NUMBER := 1.0;
400: x_chrv_rec chrv_rec_type;
401: x_khrv_rec khrv_rec_type;
402:
403:
404: cursor c_credit_tna (p_chr_id okc_k_headers_b.id%TYPE)
405: is
406: select NVL(khr.TOT_CL_NET_TRANSFER_AMT,0)
407: from okl_k_headers khr
408: where khr.id = p_chr_id
408: where khr.id = p_chr_id
409: ;
410:
411: -- source contarct and it's top line ids
412: cursor c_src_chr (p_chr_id okc_k_headers_b.id%TYPE)
413: is
414: select src_cle.dnz_chr_id,
415: src_cle.id cle_id
416: from okc_k_lines_b src_cle,