48:
49:
50: BEGIN
51: IF (G_DEBUG_ENABLED = 'Y') THEN
52: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
53: END IF;
54:
55: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
56: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'okl_cons_bill'
51: IF (G_DEBUG_ENABLED = 'Y') THEN
52: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
53: END IF;
54:
55: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
56: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'okl_cons_bill'
57: ,'Process_Break Begin(+)');
58: END IF;
59:
52: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
53: END IF;
54:
55: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
56: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'okl_cons_bill'
57: ,'Process_Break Begin(+)');
58: END IF;
59:
60: -- ------------------------------------
65: IF l_update_tbl.COUNT > 0 THEN
66:
67: FOR m in l_update_tbl.FIRST..l_update_tbl.LAST LOOP
68: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
69: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.cnr_id '||l_update_tbl(m).cnr_id);
70: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.cons_inv_number '||l_update_tbl(m).cons_inv_number);
71: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lln_id '||l_update_tbl(m).lln_id);
72: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lsm_id '||l_update_tbl(m).lsm_id);
73: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.asset_number '||l_update_tbl(m).asset_number);
66:
67: FOR m in l_update_tbl.FIRST..l_update_tbl.LAST LOOP
68: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
69: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.cnr_id '||l_update_tbl(m).cnr_id);
70: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.cons_inv_number '||l_update_tbl(m).cons_inv_number);
71: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lln_id '||l_update_tbl(m).lln_id);
72: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lsm_id '||l_update_tbl(m).lsm_id);
73: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.asset_number '||l_update_tbl(m).asset_number);
74: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.invoice_format '||l_update_tbl(m).invoice_format);
67: FOR m in l_update_tbl.FIRST..l_update_tbl.LAST LOOP
68: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
69: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.cnr_id '||l_update_tbl(m).cnr_id);
70: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.cons_inv_number '||l_update_tbl(m).cons_inv_number);
71: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lln_id '||l_update_tbl(m).lln_id);
72: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lsm_id '||l_update_tbl(m).lsm_id);
73: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.asset_number '||l_update_tbl(m).asset_number);
74: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.invoice_format '||l_update_tbl(m).invoice_format);
75: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.line_type '||l_update_tbl(m).line_type);
68: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
69: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.cnr_id '||l_update_tbl(m).cnr_id);
70: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.cons_inv_number '||l_update_tbl(m).cons_inv_number);
71: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lln_id '||l_update_tbl(m).lln_id);
72: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lsm_id '||l_update_tbl(m).lsm_id);
73: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.asset_number '||l_update_tbl(m).asset_number);
74: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.invoice_format '||l_update_tbl(m).invoice_format);
75: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.line_type '||l_update_tbl(m).line_type);
76: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.sty_name '||l_update_tbl(m).sty_name);
69: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.cnr_id '||l_update_tbl(m).cnr_id);
70: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.cons_inv_number '||l_update_tbl(m).cons_inv_number);
71: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lln_id '||l_update_tbl(m).lln_id);
72: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lsm_id '||l_update_tbl(m).lsm_id);
73: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.asset_number '||l_update_tbl(m).asset_number);
74: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.invoice_format '||l_update_tbl(m).invoice_format);
75: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.line_type '||l_update_tbl(m).line_type);
76: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.sty_name '||l_update_tbl(m).sty_name);
77: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.contract_number '||l_update_tbl(m).contract_number);
70: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.cons_inv_number '||l_update_tbl(m).cons_inv_number);
71: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lln_id '||l_update_tbl(m).lln_id);
72: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lsm_id '||l_update_tbl(m).lsm_id);
73: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.asset_number '||l_update_tbl(m).asset_number);
74: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.invoice_format '||l_update_tbl(m).invoice_format);
75: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.line_type '||l_update_tbl(m).line_type);
76: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.sty_name '||l_update_tbl(m).sty_name);
77: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.contract_number '||l_update_tbl(m).contract_number);
78: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lsm_amount '||l_update_tbl(m).lsm_amount);
71: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lln_id '||l_update_tbl(m).lln_id);
72: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lsm_id '||l_update_tbl(m).lsm_id);
73: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.asset_number '||l_update_tbl(m).asset_number);
74: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.invoice_format '||l_update_tbl(m).invoice_format);
75: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.line_type '||l_update_tbl(m).line_type);
76: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.sty_name '||l_update_tbl(m).sty_name);
77: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.contract_number '||l_update_tbl(m).contract_number);
78: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lsm_amount '||l_update_tbl(m).lsm_amount);
79: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.xsi_id '||l_update_tbl(m).xsi_id);
72: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lsm_id '||l_update_tbl(m).lsm_id);
73: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.asset_number '||l_update_tbl(m).asset_number);
74: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.invoice_format '||l_update_tbl(m).invoice_format);
75: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.line_type '||l_update_tbl(m).line_type);
76: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.sty_name '||l_update_tbl(m).sty_name);
77: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.contract_number '||l_update_tbl(m).contract_number);
78: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lsm_amount '||l_update_tbl(m).lsm_amount);
79: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.xsi_id '||l_update_tbl(m).xsi_id);
80: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.xls_id '||l_update_tbl(m).xls_id);
73: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.asset_number '||l_update_tbl(m).asset_number);
74: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.invoice_format '||l_update_tbl(m).invoice_format);
75: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.line_type '||l_update_tbl(m).line_type);
76: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.sty_name '||l_update_tbl(m).sty_name);
77: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.contract_number '||l_update_tbl(m).contract_number);
78: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lsm_amount '||l_update_tbl(m).lsm_amount);
79: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.xsi_id '||l_update_tbl(m).xsi_id);
80: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.xls_id '||l_update_tbl(m).xls_id);
81: END IF;
74: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.invoice_format '||l_update_tbl(m).invoice_format);
75: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.line_type '||l_update_tbl(m).line_type);
76: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.sty_name '||l_update_tbl(m).sty_name);
77: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.contract_number '||l_update_tbl(m).contract_number);
78: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lsm_amount '||l_update_tbl(m).lsm_amount);
79: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.xsi_id '||l_update_tbl(m).xsi_id);
80: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.xls_id '||l_update_tbl(m).xls_id);
81: END IF;
82: END LOOP;
75: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.line_type '||l_update_tbl(m).line_type);
76: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.sty_name '||l_update_tbl(m).sty_name);
77: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.contract_number '||l_update_tbl(m).contract_number);
78: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lsm_amount '||l_update_tbl(m).lsm_amount);
79: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.xsi_id '||l_update_tbl(m).xsi_id);
80: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.xls_id '||l_update_tbl(m).xls_id);
81: END IF;
82: END LOOP;
83:
76: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.sty_name '||l_update_tbl(m).sty_name);
77: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.contract_number '||l_update_tbl(m).contract_number);
78: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.lsm_amount '||l_update_tbl(m).lsm_amount);
79: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.xsi_id '||l_update_tbl(m).xsi_id);
80: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'l_update_tbl.xls_id '||l_update_tbl(m).xls_id);
81: END IF;
82: END LOOP;
83:
84: IF saved_bill_rec.l_overall_status IS NULL THEN
84: IF saved_bill_rec.l_overall_status IS NULL THEN
85:
86: l_old_cnr_id := -9;
87: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
88: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Updating Consolidated Invoice Header');
89: END IF;
90: FOR m in l_update_tbl.FIRST..l_update_tbl.LAST LOOP
91: IF l_update_tbl(m).cnr_id <> l_old_cnr_id THEN
92: l_cnr_amount := NULL;
105: l_old_cnr_id := l_update_tbl(m).cnr_id;
106: END IF;
107: END LOOP;
108: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
109: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Done updating Consolidated Invoice Header');
110: END IF;
111:
112: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
113: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Updating Consolidated Invoice Line');
109: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Done updating Consolidated Invoice Header');
110: END IF;
111:
112: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
113: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Updating Consolidated Invoice Line');
114: END IF;
115: l_old_lln_id := -9;
116: FOR m in l_update_tbl.FIRST..l_update_tbl.LAST LOOP
117: IF l_update_tbl(m).lln_id <> l_old_lln_id THEN
130: l_old_lln_id := l_update_tbl(m).lln_id;
131: END IF;
132: END LOOP;
133: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
134: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Done updating Consolidated Invoice Line');
135: END IF;
136:
137: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
138: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Updating External Transaction Header');
134: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Done updating Consolidated Invoice Line');
135: END IF;
136:
137: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
138: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Updating External Transaction Header');
139: END IF;
140: IF p_contract_number IS NULL THEN
141: FOR m in l_update_tbl.FIRST..l_update_tbl.LAST LOOP
142: UPDATE Okl_Ext_Sell_Invs_b
158: WHERE id = l_update_tbl(m).xsi_id;
159: END LOOP;
160: END IF;
161: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
162: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Done updating External Transaction Header');
163: END IF;
164:
165: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
166: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Updating External Transaction Line');
162: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Done updating External Transaction Header');
163: END IF;
164:
165: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
166: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Updating External Transaction Line');
167: END IF;
168: FOR m in l_update_tbl.FIRST..l_update_tbl.LAST LOOP
169: UPDATE Okl_Ext_Sell_Invs_tl
170: SET XTRX_CONS_INVOICE_NUMBER = l_update_tbl(m).cons_inv_number,
194: last_update_login = Fnd_Global.LOGIN_ID
195: WHERE id = l_update_tbl(m).xls_id;
196: END LOOP;
197: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
198: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Done updating External Transaction Line');
199: END IF;
200: ELSE -- goes with check of overall status
201:
202: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
199: END IF;
200: ELSE -- goes with check of overall status
201:
202: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
203: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Updating Concolidated Header Status to Error');
204: END IF;
205: l_old_cnr_id := -9;
206: FOR m in l_update_tbl.FIRST..l_update_tbl.LAST LOOP
207: IF l_update_tbl(m).cnr_id <> l_old_cnr_id THEN
259: END IF;
260: saved_bill_rec.l_commit_cnt := 0;
261: END IF;
262:
263: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
264: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'okl_cons_bill'
265: ,'Process_Break End(-)');
266: END IF;
267:
260: saved_bill_rec.l_commit_cnt := 0;
261: END IF;
262:
263: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
264: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'okl_cons_bill'
265: ,'Process_Break End(-)');
266: END IF;
267:
268: EXCEPTION
266: END IF;
267:
268: EXCEPTION
269: WHEN OTHERS THEN
270: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
271: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'okl_cons_bill',
272: 'EXCEPTION (OTHERS) :'||SQLERRM);
273: END IF;
274:
267:
268: EXCEPTION
269: WHEN OTHERS THEN
270: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
271: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'okl_cons_bill',
272: 'EXCEPTION (OTHERS) :'||SQLERRM);
273: END IF;
274:
275: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
272: 'EXCEPTION (OTHERS) :'||SQLERRM);
273: END IF;
274:
275: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
276: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'EXCEPTION in Procedure Process_Break: '||SQLERRM);
277: END IF;
278: END process_break;
279:
280: FUNCTION get_invoice_group(p_khr_id NUMBER)
367:
368:
369: BEGIN
370: IF (G_DEBUG_ENABLED = 'Y') THEN
371: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
372: END IF;
373: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
374: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** HEADER RECORD CREATION FOR : ***');
375: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
370: IF (G_DEBUG_ENABLED = 'Y') THEN
371: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
372: END IF;
373: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
374: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** HEADER RECORD CREATION FOR : ***');
375: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
376: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_ixx_id||' CURRENCY: '||p_currency_code);
377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_ibt_id||' PAYMENT_METHOD: '||p_irm_id);
378: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||p_private_label||' DATE_CONSOLIDATED: '||p_date_consolidated);
371: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
372: END IF;
373: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
374: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** HEADER RECORD CREATION FOR : ***');
375: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
376: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_ixx_id||' CURRENCY: '||p_currency_code);
377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_ibt_id||' PAYMENT_METHOD: '||p_irm_id);
378: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||p_private_label||' DATE_CONSOLIDATED: '||p_date_consolidated);
379: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> INF_ID: '||p_inf_id||' SET_OF_BOOKS_ID: '||p_set_of_books_id);
372: END IF;
373: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
374: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** HEADER RECORD CREATION FOR : ***');
375: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
376: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_ixx_id||' CURRENCY: '||p_currency_code);
377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_ibt_id||' PAYMENT_METHOD: '||p_irm_id);
378: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||p_private_label||' DATE_CONSOLIDATED: '||p_date_consolidated);
379: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> INF_ID: '||p_inf_id||' SET_OF_BOOKS_ID: '||p_set_of_books_id);
380: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ORG_ID: '||p_org_id);
373: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
374: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** HEADER RECORD CREATION FOR : ***');
375: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
376: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_ixx_id||' CURRENCY: '||p_currency_code);
377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_ibt_id||' PAYMENT_METHOD: '||p_irm_id);
378: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||p_private_label||' DATE_CONSOLIDATED: '||p_date_consolidated);
379: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> INF_ID: '||p_inf_id||' SET_OF_BOOKS_ID: '||p_set_of_books_id);
380: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ORG_ID: '||p_org_id);
381: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
374: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** HEADER RECORD CREATION FOR : ***');
375: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
376: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_ixx_id||' CURRENCY: '||p_currency_code);
377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_ibt_id||' PAYMENT_METHOD: '||p_irm_id);
378: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||p_private_label||' DATE_CONSOLIDATED: '||p_date_consolidated);
379: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> INF_ID: '||p_inf_id||' SET_OF_BOOKS_ID: '||p_set_of_books_id);
380: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ORG_ID: '||p_org_id);
381: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
382: END IF;
375: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
376: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_ixx_id||' CURRENCY: '||p_currency_code);
377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_ibt_id||' PAYMENT_METHOD: '||p_irm_id);
378: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||p_private_label||' DATE_CONSOLIDATED: '||p_date_consolidated);
379: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> INF_ID: '||p_inf_id||' SET_OF_BOOKS_ID: '||p_set_of_books_id);
380: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ORG_ID: '||p_org_id);
381: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
382: END IF;
383:
376: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_ixx_id||' CURRENCY: '||p_currency_code);
377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_ibt_id||' PAYMENT_METHOD: '||p_irm_id);
378: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||p_private_label||' DATE_CONSOLIDATED: '||p_date_consolidated);
379: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> INF_ID: '||p_inf_id||' SET_OF_BOOKS_ID: '||p_set_of_books_id);
380: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ORG_ID: '||p_org_id);
381: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
382: END IF;
383:
384: p_cnrv_rec.IBT_ID := p_ibt_id;
377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_ibt_id||' PAYMENT_METHOD: '||p_irm_id);
378: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||p_private_label||' DATE_CONSOLIDATED: '||p_date_consolidated);
379: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> INF_ID: '||p_inf_id||' SET_OF_BOOKS_ID: '||p_set_of_books_id);
380: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ORG_ID: '||p_org_id);
381: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
382: END IF;
383:
384: p_cnrv_rec.IBT_ID := p_ibt_id;
385: p_cnrv_rec.IXX_ID := p_ixx_id;
395:
396:
397: -- DB generated sequence number for the Consolidated Invoice
398: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
399: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Generating Cons Bill SEQUENCE');
400: END IF;
401: l_Invoice_Number := Fnd_Seqnum.get_next_sequence (l_application_id,
402: l_document_category,
403: p_set_of_books_id,
408:
409: p_cnrv_rec.CONSOLIDATED_INVOICE_NUMBER := TO_CHAR(l_invoice_number);
410:
411: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
412: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Cons Bill Number: '||p_cnrv_rec.CONSOLIDATED_INVOICE_NUMBER);
413: END IF;
414:
415: p_cnrv_rec.INVOICE_PULL_YN := 'Y';
416: p_cnrv_rec.PRIVATE_LABEL_LOGO_URL := p_private_label;
417: p_cnrv_rec.trx_status_code := 'SUBMITTED';
418:
419: -- Start of wraper code generated automatically by Debug code generator for Okl_Cnsld_Ar_Hdrs_Pub.INSERT_CNSLD_AR_HDRS
420: IF(L_DEBUG_ENABLED='Y') THEN
421: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
422: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
423: END IF;
424: IF(IS_DEBUG_PROCEDURE_ON) THEN
425: BEGIN
444:
445: IF ( x_return_status = 'S' ) THEN
446: BEGIN
447: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
448: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====> Consolidated Header Record Created');
449: END IF;
450:
451: -- Find message with the highest priority
452: l_save_priority := NULL;
459: l_pkg_name := msg_csr_rec.pkg_name;
460: l_proc_name := msg_csr_rec.proc_name;
461:
462: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
463: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====> IMS_ID: '||l_ims_id);
464: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====> PKG: '||l_pkg_name);
465: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====> PROC: '||l_proc_name);
466: END IF;
467:
460: l_proc_name := msg_csr_rec.proc_name;
461:
462: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
463: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====> IMS_ID: '||l_ims_id);
464: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====> PKG: '||l_pkg_name);
465: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====> PROC: '||l_proc_name);
466: END IF;
467:
468: l_bind_proc := 'BEGIN OKL_QUAL_INV_MSGS.'||l_proc_name||'(:1,:2); END;';
461:
462: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
463: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====> IMS_ID: '||l_ims_id);
464: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====> PKG: '||l_pkg_name);
465: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====> PROC: '||l_proc_name);
466: END IF;
467:
468: l_bind_proc := 'BEGIN OKL_QUAL_INV_MSGS.'||l_proc_name||'(:1,:2); END;';
469:
473: EXECUTE IMMEDIATE l_bind_proc USING IN x_cnrv_rec.id, OUT l_msg_return;
474: EXCEPTION
475: WHEN OTHERS THEN
476: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
477: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Invoice Message error -- '||SQLERRM);
478: END IF;
479: END;
480:
481:
518: END IF;
519: -- End of wraper code generated automatically by Debug code generator for okl_inv_mssg_att_pub.INSERT_INV_MSSG_ATT
520: IF ( x_return_status = 'S' ) THEN
521: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
522: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====> Message Created.');
523: END IF;
524: ELSE
525: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
526: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'*=> FAILED:Message Creation');
522: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====> Message Created.');
523: END IF;
524: ELSE
525: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
526: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'*=> FAILED:Message Creation');
527: END IF;
528: END IF;
529: ELSE
530: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
527: END IF;
528: END IF;
529: ELSE
530: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
531: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====> NO Message Qualified');
532: END IF;
533: END IF;
534: EXCEPTION
535: WHEN OTHERS THEN
533: END IF;
534: EXCEPTION
535: WHEN OTHERS THEN
536: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
537: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====> PROBLEMS WITH MESSAGING');
538: END IF;
539: END;
540: ELSE
541: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
538: END IF;
539: END;
540: ELSE
541: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
542: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'*=> FAILED: Consolidated Header NOT Created.');
543: END IF;
544: END IF;
545:
546: x_cnr_id := x_cnrv_rec.id;
549: EXCEPTION
550: --Seed FND_MESSAGE like 'Could NOT CREATE Header RECORD'
551: WHEN OTHERS THEN
552: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
553: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'*=> Error Message(H1): '||SQLERRM);
554: END IF;
555: Okl_Api.SET_MESSAGE( p_app_name => G_APP_NAME,
556: p_msg_name => G_OTHERS);
557: END create_new_invoice;
606:
607:
608: BEGIN
609: IF (G_DEBUG_ENABLED = 'Y') THEN
610: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
611: END IF;
612: -- Prime Local Variable
613: exists_flag := 'Y';
614: x_lln_id := NULL;
613: exists_flag := 'Y';
614: x_lln_id := NULL;
615:
616: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
617: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CONSOLIDATED LINES CHECK: if a line exists for the following: ***');
618: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CNR_ID: '||p_cnr_id);
619: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KHR_ID: '||p_khr_id);
620: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KLE_ID: '||p_kle_id);
621: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ILT_ID: '||p_ilt_id);
614: x_lln_id := NULL;
615:
616: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
617: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CONSOLIDATED LINES CHECK: if a line exists for the following: ***');
618: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CNR_ID: '||p_cnr_id);
619: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KHR_ID: '||p_khr_id);
620: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KLE_ID: '||p_kle_id);
621: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ILT_ID: '||p_ilt_id);
622: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE_NUMBER: '||p_sequence_number);
615:
616: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
617: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CONSOLIDATED LINES CHECK: if a line exists for the following: ***');
618: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CNR_ID: '||p_cnr_id);
619: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KHR_ID: '||p_khr_id);
620: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KLE_ID: '||p_kle_id);
621: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ILT_ID: '||p_ilt_id);
622: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE_NUMBER: '||p_sequence_number);
623: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_CONTRACT_YN: '||p_group_by_contract_yn);
616: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
617: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CONSOLIDATED LINES CHECK: if a line exists for the following: ***');
618: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CNR_ID: '||p_cnr_id);
619: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KHR_ID: '||p_khr_id);
620: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KLE_ID: '||p_kle_id);
621: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ILT_ID: '||p_ilt_id);
622: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE_NUMBER: '||p_sequence_number);
623: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_CONTRACT_YN: '||p_group_by_contract_yn);
624: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_ASSETS_YN: '||p_group_by_assets_yn);
617: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CONSOLIDATED LINES CHECK: if a line exists for the following: ***');
618: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CNR_ID: '||p_cnr_id);
619: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KHR_ID: '||p_khr_id);
620: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KLE_ID: '||p_kle_id);
621: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ILT_ID: '||p_ilt_id);
622: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE_NUMBER: '||p_sequence_number);
623: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_CONTRACT_YN: '||p_group_by_contract_yn);
624: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_ASSETS_YN: '||p_group_by_assets_yn);
625: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_ASSETS_YN: '||p_group_by_assets_yn);
618: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CNR_ID: '||p_cnr_id);
619: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KHR_ID: '||p_khr_id);
620: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KLE_ID: '||p_kle_id);
621: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ILT_ID: '||p_ilt_id);
622: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE_NUMBER: '||p_sequence_number);
623: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_CONTRACT_YN: '||p_group_by_contract_yn);
624: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_ASSETS_YN: '||p_group_by_assets_yn);
625: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_ASSETS_YN: '||p_group_by_assets_yn);
626: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** End Invoice Group Details ***');
619: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KHR_ID: '||p_khr_id);
620: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KLE_ID: '||p_kle_id);
621: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ILT_ID: '||p_ilt_id);
622: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE_NUMBER: '||p_sequence_number);
623: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_CONTRACT_YN: '||p_group_by_contract_yn);
624: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_ASSETS_YN: '||p_group_by_assets_yn);
625: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_ASSETS_YN: '||p_group_by_assets_yn);
626: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** End Invoice Group Details ***');
627: END IF;
620: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KLE_ID: '||p_kle_id);
621: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ILT_ID: '||p_ilt_id);
622: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE_NUMBER: '||p_sequence_number);
623: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_CONTRACT_YN: '||p_group_by_contract_yn);
624: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_ASSETS_YN: '||p_group_by_assets_yn);
625: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_ASSETS_YN: '||p_group_by_assets_yn);
626: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** End Invoice Group Details ***');
627: END IF;
628:
621: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ILT_ID: '||p_ilt_id);
622: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE_NUMBER: '||p_sequence_number);
623: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_CONTRACT_YN: '||p_group_by_contract_yn);
624: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_ASSETS_YN: '||p_group_by_assets_yn);
625: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_ASSETS_YN: '||p_group_by_assets_yn);
626: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** End Invoice Group Details ***');
627: END IF;
628:
629:
622: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE_NUMBER: '||p_sequence_number);
623: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_CONTRACT_YN: '||p_group_by_contract_yn);
624: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_ASSETS_YN: '||p_group_by_assets_yn);
625: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_BY_ASSETS_YN: '||p_group_by_assets_yn);
626: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** End Invoice Group Details ***');
627: END IF;
628:
629:
630: --Consider making this a cursor
631: IF p_group_by_contract_yn = 'Y' THEN
632: IF p_group_by_assets_yn = 'Y' THEN
633:
634: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
635: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Using SQL in check_line1 ');
636: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
637: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
638: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> khr_id = '||p_khr_id||' AND ');
639: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
632: IF p_group_by_assets_yn = 'Y' THEN
633:
634: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
635: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Using SQL in check_line1 ');
636: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
637: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
638: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> khr_id = '||p_khr_id||' AND ');
639: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
640: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> sequence_number = '||p_sequence_number||';');
633:
634: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
635: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Using SQL in check_line1 ');
636: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
637: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
638: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> khr_id = '||p_khr_id||' AND ');
639: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
640: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> sequence_number = '||p_sequence_number||';');
641: END IF;
634: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
635: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Using SQL in check_line1 ');
636: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
637: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
638: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> khr_id = '||p_khr_id||' AND ');
639: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
640: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> sequence_number = '||p_sequence_number||';');
641: END IF;
642:
635: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Using SQL in check_line1 ');
636: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
637: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
638: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> khr_id = '||p_khr_id||' AND ');
639: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
640: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> sequence_number = '||p_sequence_number||';');
641: END IF;
642:
643:
636: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
637: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
638: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> khr_id = '||p_khr_id||' AND ');
639: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
640: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> sequence_number = '||p_sequence_number||';');
641: END IF;
642:
643:
644: OPEN check_line1 ( p_cnr_id, p_khr_id, p_ilt_id, p_sequence_number );
647:
648: ELSE
649: IF p_kle_id IS NOT NULL THEN
650: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
651: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Using SQL in check_line2 ');
652: END IF;
653:
654: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
655: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
651: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Using SQL in check_line2 ');
652: END IF;
653:
654: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
655: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
656: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
657: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> khr_id = '||p_khr_id||' AND ');
658: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> kle_id = '||p_kle_id||' AND ');
659: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
652: END IF;
653:
654: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
655: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
656: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
657: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> khr_id = '||p_khr_id||' AND ');
658: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> kle_id = '||p_kle_id||' AND ');
659: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> sequence_number = '||p_sequence_number||';');
653:
654: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
655: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
656: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
657: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> khr_id = '||p_khr_id||' AND ');
658: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> kle_id = '||p_kle_id||' AND ');
659: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> sequence_number = '||p_sequence_number||';');
661: END IF;
654: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
655: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
656: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
657: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> khr_id = '||p_khr_id||' AND ');
658: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> kle_id = '||p_kle_id||' AND ');
659: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> sequence_number = '||p_sequence_number||';');
661: END IF;
662:
655: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
656: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
657: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> khr_id = '||p_khr_id||' AND ');
658: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> kle_id = '||p_kle_id||' AND ');
659: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> sequence_number = '||p_sequence_number||';');
661: END IF;
662:
663: OPEN check_line2 ( p_cnr_id, p_khr_id, p_kle_id, p_ilt_id );
656: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
657: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> khr_id = '||p_khr_id||' AND ');
658: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> kle_id = '||p_kle_id||' AND ');
659: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> sequence_number = '||p_sequence_number||';');
661: END IF;
662:
663: OPEN check_line2 ( p_cnr_id, p_khr_id, p_kle_id, p_ilt_id );
664: FETCH check_line2 INTO x_lln_id;
665: CLOSE check_line2;
666:
667: ELSE
668: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
669: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Using SQL in check_line3 ');
670: END IF;
671:
672: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
673: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
669: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Using SQL in check_line3 ');
670: END IF;
671:
672: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
673: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
674: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
675: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> khr_id = '||p_khr_id||' AND ');
676: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> kle_id is null AND ');
677: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
670: END IF;
671:
672: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
673: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
674: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
675: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> khr_id = '||p_khr_id||' AND ');
676: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> kle_id is null AND ');
677: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
678: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> sequence_number = '||p_sequence_number||';');
671:
672: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
673: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
674: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
675: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> khr_id = '||p_khr_id||' AND ');
676: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> kle_id is null AND ');
677: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
678: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> sequence_number = '||p_sequence_number||';');
679: END IF;
672: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
673: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
674: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
675: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> khr_id = '||p_khr_id||' AND ');
676: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> kle_id is null AND ');
677: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
678: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> sequence_number = '||p_sequence_number||';');
679: END IF;
680:
673: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
674: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
675: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> khr_id = '||p_khr_id||' AND ');
676: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> kle_id is null AND ');
677: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
678: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> sequence_number = '||p_sequence_number||';');
679: END IF;
680:
681: OPEN check_line3 ( p_cnr_id, p_khr_id, p_ilt_id, p_sequence_number );
674: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
675: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> khr_id = '||p_khr_id||' AND ');
676: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> kle_id is null AND ');
677: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
678: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> sequence_number = '||p_sequence_number||';');
679: END IF;
680:
681: OPEN check_line3 ( p_cnr_id, p_khr_id, p_ilt_id, p_sequence_number );
682: FETCH check_line3 INTO x_lln_id;
685: END IF;
686: END IF;
687: ELSE
688: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
689: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Using SQL in check_line4 ');
690: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
691: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
692: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
693: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> sequence_number = '||p_sequence_number||';');
686: END IF;
687: ELSE
688: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
689: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Using SQL in check_line4 ');
690: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
691: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
692: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
693: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> sequence_number = '||p_sequence_number||';');
694: END IF;
687: ELSE
688: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
689: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Using SQL in check_line4 ');
690: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
691: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
692: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
693: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> sequence_number = '||p_sequence_number||';');
694: END IF;
695:
688: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
689: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Using SQL in check_line4 ');
690: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
691: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
692: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
693: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> sequence_number = '||p_sequence_number||';');
694: END IF;
695:
696: OPEN check_line4 ( p_cnr_id, p_ilt_id, p_sequence_number );
689: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Using SQL in check_line4 ');
690: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> SELECT id FROM okl_cnsld_ar_lines_v');
691: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> WHERE cnr_id = '||p_cnr_id||' AND ');
692: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> ilt_id = '||p_ilt_id||' AND ');
693: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=***********> sequence_number = '||p_sequence_number||';');
694: END IF;
695:
696: OPEN check_line4 ( p_cnr_id, p_ilt_id, p_sequence_number );
697: FETCH check_line4 INTO x_lln_id;
701:
702: IF ( x_lln_id IS NULL ) THEN
703: exists_flag := 'N';
704: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
705: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> No Line Exists for this combination. ');
706: END IF;
707: ELSE
708: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
709: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Found an existing line for this combination. The id is '||x_lln_id);
705: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> No Line Exists for this combination. ');
706: END IF;
707: ELSE
708: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
709: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Found an existing line for this combination. The id is '||x_lln_id);
710: END IF;
711: END IF;
712:
713: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
710: END IF;
711: END IF;
712:
713: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
714: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** END CONSOLIDATED LINES CHECK ***');
715: END IF;
716: EXCEPTION
717: WHEN NO_DATA_FOUND THEN
718: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
715: END IF;
716: EXCEPTION
717: WHEN NO_DATA_FOUND THEN
718: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
719: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'*=> Error Message(L1): '||SQLERRM);
720: END IF;
721: Okl_Api.SET_MESSAGE( p_app_name => G_APP_NAME,
722: p_msg_name => G_NO_DATA_FOUND);
723:
723:
724: exists_flag := 'N';
725: WHEN TOO_MANY_ROWS THEN
726: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
727: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'*=> Error Message(L2): '||SQLERRM);
728: END IF;
729: Okl_Api.SET_MESSAGE( p_app_name => G_APP_NAME,
730: p_msg_name => G_TOO_MANY_ROWS);
731:
731:
732: exists_flag := NULL;
733: WHEN OTHERS THEN
734: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
735: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'*=> Error Message(L3): '||SQLERRM);
736: END IF;
737: Okl_Api.SET_MESSAGE( p_app_name => G_APP_NAME,
738: p_msg_name => G_OTHERS);
739: exists_flag := NULL;
772: x_msg_data VARCHAR2(2000);
773:
774: BEGIN
775: IF (G_DEBUG_ENABLED = 'Y') THEN
776: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
777: END IF;
778:
779: -- Null out values for khr_id and kle_id so that
780: -- it doesn't get set to g_miss_num
800:
801: p_llnv_rec.LINE_TYPE := SUBSTR(p_line_type,1,50);
802:
803: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
804: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** LINE RECORD CREATION FOR : ***');
805: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
806: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KHR_ID: '||p_llnv_rec.KHR_ID||' KLE_ID: '||p_llnv_rec.KLE_ID);
807: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CNR_ID: '||p_llnv_rec.CNR_ID||' ILT_ID: '||p_llnv_rec.ILT_ID);
808: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE_NUMBER: '||p_llnv_rec.SEQUENCE_NUMBER||' LINE_TYPE: '||p_llnv_rec.LINE_TYPE);
801: p_llnv_rec.LINE_TYPE := SUBSTR(p_line_type,1,50);
802:
803: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
804: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** LINE RECORD CREATION FOR : ***');
805: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
806: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KHR_ID: '||p_llnv_rec.KHR_ID||' KLE_ID: '||p_llnv_rec.KLE_ID);
807: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CNR_ID: '||p_llnv_rec.CNR_ID||' ILT_ID: '||p_llnv_rec.ILT_ID);
808: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE_NUMBER: '||p_llnv_rec.SEQUENCE_NUMBER||' LINE_TYPE: '||p_llnv_rec.LINE_TYPE);
809: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
802:
803: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
804: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** LINE RECORD CREATION FOR : ***');
805: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
806: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KHR_ID: '||p_llnv_rec.KHR_ID||' KLE_ID: '||p_llnv_rec.KLE_ID);
807: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CNR_ID: '||p_llnv_rec.CNR_ID||' ILT_ID: '||p_llnv_rec.ILT_ID);
808: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE_NUMBER: '||p_llnv_rec.SEQUENCE_NUMBER||' LINE_TYPE: '||p_llnv_rec.LINE_TYPE);
809: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
810: END IF;
803: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
804: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** LINE RECORD CREATION FOR : ***');
805: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
806: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KHR_ID: '||p_llnv_rec.KHR_ID||' KLE_ID: '||p_llnv_rec.KLE_ID);
807: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CNR_ID: '||p_llnv_rec.CNR_ID||' ILT_ID: '||p_llnv_rec.ILT_ID);
808: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE_NUMBER: '||p_llnv_rec.SEQUENCE_NUMBER||' LINE_TYPE: '||p_llnv_rec.LINE_TYPE);
809: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
810: END IF;
811:
804: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** LINE RECORD CREATION FOR : ***');
805: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
806: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KHR_ID: '||p_llnv_rec.KHR_ID||' KLE_ID: '||p_llnv_rec.KLE_ID);
807: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CNR_ID: '||p_llnv_rec.CNR_ID||' ILT_ID: '||p_llnv_rec.ILT_ID);
808: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE_NUMBER: '||p_llnv_rec.SEQUENCE_NUMBER||' LINE_TYPE: '||p_llnv_rec.LINE_TYPE);
809: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
810: END IF;
811:
812:
805: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
806: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KHR_ID: '||p_llnv_rec.KHR_ID||' KLE_ID: '||p_llnv_rec.KLE_ID);
807: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CNR_ID: '||p_llnv_rec.CNR_ID||' ILT_ID: '||p_llnv_rec.ILT_ID);
808: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE_NUMBER: '||p_llnv_rec.SEQUENCE_NUMBER||' LINE_TYPE: '||p_llnv_rec.LINE_TYPE);
809: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
810: END IF;
811:
812:
813: -- Start of wraper code generated automatically by Debug code generator for Okl_Cnsld_Ar_Lines_Pub.INSERT_CNSLD_AR_LINES
811:
812:
813: -- Start of wraper code generated automatically by Debug code generator for Okl_Cnsld_Ar_Lines_Pub.INSERT_CNSLD_AR_LINES
814: IF(L_DEBUG_ENABLED='Y') THEN
815: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
816: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
817: END IF;
818: IF(IS_DEBUG_PROCEDURE_ON) THEN
819: BEGIN
837: -- End of wraper code generated automatically by Debug code generator for Okl_Cnsld_Ar_Lines_Pub.INSERT_CNSLD_AR_LINES
838:
839: IF ( x_return_status = 'S' ) THEN
840: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
841: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====> Consolidated Line Created.');
842: END IF;
843: ELSE
844: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
845: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'*=> FAILED: Consolidated Line NOT Created.');
841: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====> Consolidated Line Created.');
842: END IF;
843: ELSE
844: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
845: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'*=> FAILED: Consolidated Line NOT Created.');
846: END IF;
847: END IF;
848:
849: x_lln_id := x_llnv_rec.id;
851: EXCEPTION
852: --Seed FND_MESSAGE like 'Could NOT CREATE Line RECORD'
853: WHEN OTHERS THEN
854: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
855: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'*=> Error Message(L1): '||SQLERRM);
856: END IF;
857: Okl_Api.SET_MESSAGE( p_app_name => G_APP_NAME,
858: p_msg_name => G_OTHERS);
859: END create_new_line;
888:
889:
890: BEGIN
891: IF (G_DEBUG_ENABLED = 'Y') THEN
892: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
893: END IF;
894:
895: p_lsmv_rec.KLE_ID := p_kle_id;
896: p_lsmv_rec.KHR_ID := p_khr_id;
900: p_lsmv_rec.SEL_ID := p_sel_id;
901: p_lsmv_rec.receivables_invoice_id := -99999;
902:
903: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
904: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** STREAM RECORD CREATION FOR : ***');
905: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
906: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KHR_ID: '||p_lsmv_rec.KHR_ID||' KLE_ID: '||p_lsmv_rec.KLE_ID);
907: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> STY_ID: '||p_lsmv_rec.STY_ID||' LLN_ID: '||p_lsmv_rec.LLN_ID);
908: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> AMOUNT: '||p_lsmv_rec.AMOUNT);
901: p_lsmv_rec.receivables_invoice_id := -99999;
902:
903: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
904: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** STREAM RECORD CREATION FOR : ***');
905: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
906: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KHR_ID: '||p_lsmv_rec.KHR_ID||' KLE_ID: '||p_lsmv_rec.KLE_ID);
907: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> STY_ID: '||p_lsmv_rec.STY_ID||' LLN_ID: '||p_lsmv_rec.LLN_ID);
908: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> AMOUNT: '||p_lsmv_rec.AMOUNT);
909: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
902:
903: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
904: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** STREAM RECORD CREATION FOR : ***');
905: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
906: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KHR_ID: '||p_lsmv_rec.KHR_ID||' KLE_ID: '||p_lsmv_rec.KLE_ID);
907: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> STY_ID: '||p_lsmv_rec.STY_ID||' LLN_ID: '||p_lsmv_rec.LLN_ID);
908: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> AMOUNT: '||p_lsmv_rec.AMOUNT);
909: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
910: END IF;
903: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
904: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** STREAM RECORD CREATION FOR : ***');
905: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
906: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KHR_ID: '||p_lsmv_rec.KHR_ID||' KLE_ID: '||p_lsmv_rec.KLE_ID);
907: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> STY_ID: '||p_lsmv_rec.STY_ID||' LLN_ID: '||p_lsmv_rec.LLN_ID);
908: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> AMOUNT: '||p_lsmv_rec.AMOUNT);
909: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
910: END IF;
911:
904: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** STREAM RECORD CREATION FOR : ***');
905: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
906: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KHR_ID: '||p_lsmv_rec.KHR_ID||' KLE_ID: '||p_lsmv_rec.KLE_ID);
907: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> STY_ID: '||p_lsmv_rec.STY_ID||' LLN_ID: '||p_lsmv_rec.LLN_ID);
908: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> AMOUNT: '||p_lsmv_rec.AMOUNT);
909: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
910: END IF;
911:
912: -- Start of wraper code generated automatically by Debug code generator for Okl_Cnsld_Ar_Strms_Pub.INSERT_CNSLD_AR_STRMS
905: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
906: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> KHR_ID: '||p_lsmv_rec.KHR_ID||' KLE_ID: '||p_lsmv_rec.KLE_ID);
907: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> STY_ID: '||p_lsmv_rec.STY_ID||' LLN_ID: '||p_lsmv_rec.LLN_ID);
908: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> AMOUNT: '||p_lsmv_rec.AMOUNT);
909: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
910: END IF;
911:
912: -- Start of wraper code generated automatically by Debug code generator for Okl_Cnsld_Ar_Strms_Pub.INSERT_CNSLD_AR_STRMS
913: IF(L_DEBUG_ENABLED='Y') THEN
910: END IF;
911:
912: -- Start of wraper code generated automatically by Debug code generator for Okl_Cnsld_Ar_Strms_Pub.INSERT_CNSLD_AR_STRMS
913: IF(L_DEBUG_ENABLED='Y') THEN
914: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
915: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
916: END IF;
917: IF(IS_DEBUG_PROCEDURE_ON) THEN
918: BEGIN
936: -- End of wraper code generated automatically by Debug code generator for Okl_Cnsld_Ar_Strms_Pub.INSERT_CNSLD_AR_STRMS
937:
938: IF ( x_return_status = 'S' ) THEN
939: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
940: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====> Consolidated Streams Created.');
941: END IF;
942: ELSE
943: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
944: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'*=> FAILED: Consolidated Streams NOT Created.');
940: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====> Consolidated Streams Created.');
941: END IF;
942: ELSE
943: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
944: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'*=> FAILED: Consolidated Streams NOT Created.');
945: END IF;
946: END IF;
947:
948: x_lsm_id := x_lsmv_rec.id;
949: EXCEPTION
950: --Seed FND_MESSAGE like 'Could NOT CREATE Stream RECORD'
951: WHEN OTHERS THEN
952: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
953: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'*=> Error Message(D1): '||SQLERRM);
954: END IF;
955: Okl_Api.SET_MESSAGE( p_app_name => G_APP_NAME,
956: p_msg_name => G_OTHERS);
957: END create_new_streams;
1113: WHERE id = p_id;
1114:
1115: BEGIN
1116: IF (G_DEBUG_ENABLED = 'Y') THEN
1117: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1118: END IF;
1119:
1120: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1121:
1119:
1120: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1121:
1122: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1123: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Total rec count is : '||p_cons_bill_tbl.count);
1124: END IF;
1125:
1126: FOR k IN p_cons_bill_tbl.FIRST..p_cons_bill_tbl.LAST LOOP
1127:
1131: FETCH strm_csr INTO l_sty_name;
1132: CLOSE strm_csr;
1133:
1134: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1135: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CONSOLIDATION DETAILS ***');
1136: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** PREVIOUS RECORD WAS FOR: ***');
1137: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1138: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_saved_bill_rec.l_customer_id||' CURRENCY: '||p_saved_bill_rec.l_currency);
1139: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_saved_bill_rec.l_bill_to_site||' PAYMENT_METHOD: '||p_saved_bill_rec.l_payment_method);
1132: CLOSE strm_csr;
1133:
1134: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1135: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CONSOLIDATION DETAILS ***');
1136: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** PREVIOUS RECORD WAS FOR: ***');
1137: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1138: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_saved_bill_rec.l_customer_id||' CURRENCY: '||p_saved_bill_rec.l_currency);
1139: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_saved_bill_rec.l_bill_to_site||' PAYMENT_METHOD: '||p_saved_bill_rec.l_payment_method);
1140: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||NVL(p_saved_bill_rec.l_private_label,'N/A')||' DATE_CONSOLIDATED: '||TRUNC(p_saved_bill_rec.l_date_consolidated));
1133:
1134: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1135: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CONSOLIDATION DETAILS ***');
1136: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** PREVIOUS RECORD WAS FOR: ***');
1137: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1138: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_saved_bill_rec.l_customer_id||' CURRENCY: '||p_saved_bill_rec.l_currency);
1139: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_saved_bill_rec.l_bill_to_site||' PAYMENT_METHOD: '||p_saved_bill_rec.l_payment_method);
1140: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||NVL(p_saved_bill_rec.l_private_label,'N/A')||' DATE_CONSOLIDATED: '||TRUNC(p_saved_bill_rec.l_date_consolidated));
1141: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_ID: '||p_saved_bill_rec.l_prev_khr_id||' INVOICE GROUP ID: '||p_saved_bill_rec.l_saved_format_id);
1134: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1135: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CONSOLIDATION DETAILS ***');
1136: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** PREVIOUS RECORD WAS FOR: ***');
1137: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1138: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_saved_bill_rec.l_customer_id||' CURRENCY: '||p_saved_bill_rec.l_currency);
1139: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_saved_bill_rec.l_bill_to_site||' PAYMENT_METHOD: '||p_saved_bill_rec.l_payment_method);
1140: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||NVL(p_saved_bill_rec.l_private_label,'N/A')||' DATE_CONSOLIDATED: '||TRUNC(p_saved_bill_rec.l_date_consolidated));
1141: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_ID: '||p_saved_bill_rec.l_prev_khr_id||' INVOICE GROUP ID: '||p_saved_bill_rec.l_saved_format_id);
1142: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ORIGINAL CONS INV (For credit memos): '||p_saved_bill_rec.l_saved_prev_cons_num);
1135: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CONSOLIDATION DETAILS ***');
1136: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** PREVIOUS RECORD WAS FOR: ***');
1137: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1138: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_saved_bill_rec.l_customer_id||' CURRENCY: '||p_saved_bill_rec.l_currency);
1139: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_saved_bill_rec.l_bill_to_site||' PAYMENT_METHOD: '||p_saved_bill_rec.l_payment_method);
1140: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||NVL(p_saved_bill_rec.l_private_label,'N/A')||' DATE_CONSOLIDATED: '||TRUNC(p_saved_bill_rec.l_date_consolidated));
1141: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_ID: '||p_saved_bill_rec.l_prev_khr_id||' INVOICE GROUP ID: '||p_saved_bill_rec.l_saved_format_id);
1142: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ORIGINAL CONS INV (For credit memos): '||p_saved_bill_rec.l_saved_prev_cons_num);
1143: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> Overall Error Status: '||p_saved_bill_rec.l_overall_status);
1136: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** PREVIOUS RECORD WAS FOR: ***');
1137: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1138: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_saved_bill_rec.l_customer_id||' CURRENCY: '||p_saved_bill_rec.l_currency);
1139: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_saved_bill_rec.l_bill_to_site||' PAYMENT_METHOD: '||p_saved_bill_rec.l_payment_method);
1140: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||NVL(p_saved_bill_rec.l_private_label,'N/A')||' DATE_CONSOLIDATED: '||TRUNC(p_saved_bill_rec.l_date_consolidated));
1141: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_ID: '||p_saved_bill_rec.l_prev_khr_id||' INVOICE GROUP ID: '||p_saved_bill_rec.l_saved_format_id);
1142: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ORIGINAL CONS INV (For credit memos): '||p_saved_bill_rec.l_saved_prev_cons_num);
1143: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> Overall Error Status: '||p_saved_bill_rec.l_overall_status);
1144: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1137: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1138: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_saved_bill_rec.l_customer_id||' CURRENCY: '||p_saved_bill_rec.l_currency);
1139: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_saved_bill_rec.l_bill_to_site||' PAYMENT_METHOD: '||p_saved_bill_rec.l_payment_method);
1140: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||NVL(p_saved_bill_rec.l_private_label,'N/A')||' DATE_CONSOLIDATED: '||TRUNC(p_saved_bill_rec.l_date_consolidated));
1141: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_ID: '||p_saved_bill_rec.l_prev_khr_id||' INVOICE GROUP ID: '||p_saved_bill_rec.l_saved_format_id);
1142: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ORIGINAL CONS INV (For credit memos): '||p_saved_bill_rec.l_saved_prev_cons_num);
1143: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> Overall Error Status: '||p_saved_bill_rec.l_overall_status);
1144: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1145: END IF;
1138: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_saved_bill_rec.l_customer_id||' CURRENCY: '||p_saved_bill_rec.l_currency);
1139: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_saved_bill_rec.l_bill_to_site||' PAYMENT_METHOD: '||p_saved_bill_rec.l_payment_method);
1140: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||NVL(p_saved_bill_rec.l_private_label,'N/A')||' DATE_CONSOLIDATED: '||TRUNC(p_saved_bill_rec.l_date_consolidated));
1141: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_ID: '||p_saved_bill_rec.l_prev_khr_id||' INVOICE GROUP ID: '||p_saved_bill_rec.l_saved_format_id);
1142: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ORIGINAL CONS INV (For credit memos): '||p_saved_bill_rec.l_saved_prev_cons_num);
1143: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> Overall Error Status: '||p_saved_bill_rec.l_overall_status);
1144: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1145: END IF;
1146:
1139: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_saved_bill_rec.l_bill_to_site||' PAYMENT_METHOD: '||p_saved_bill_rec.l_payment_method);
1140: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||NVL(p_saved_bill_rec.l_private_label,'N/A')||' DATE_CONSOLIDATED: '||TRUNC(p_saved_bill_rec.l_date_consolidated));
1141: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_ID: '||p_saved_bill_rec.l_prev_khr_id||' INVOICE GROUP ID: '||p_saved_bill_rec.l_saved_format_id);
1142: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ORIGINAL CONS INV (For credit memos): '||p_saved_bill_rec.l_saved_prev_cons_num);
1143: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> Overall Error Status: '||p_saved_bill_rec.l_overall_status);
1144: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1145: END IF;
1146:
1147: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1140: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||NVL(p_saved_bill_rec.l_private_label,'N/A')||' DATE_CONSOLIDATED: '||TRUNC(p_saved_bill_rec.l_date_consolidated));
1141: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_ID: '||p_saved_bill_rec.l_prev_khr_id||' INVOICE GROUP ID: '||p_saved_bill_rec.l_saved_format_id);
1142: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ORIGINAL CONS INV (For credit memos): '||p_saved_bill_rec.l_saved_prev_cons_num);
1143: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> Overall Error Status: '||p_saved_bill_rec.l_overall_status);
1144: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1145: END IF;
1146:
1147: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1148: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CURRENT RECORD IS FOR: ***');
1144: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1145: END IF;
1146:
1147: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1148: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CURRENT RECORD IS FOR: ***');
1149: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1150: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_cons_bill_tbl(k).customer_id||' CURRENCY: '||p_cons_bill_tbl(k).currency);
1151: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_cons_bill_tbl(k).bill_to_site||' PAYMENT_METHOD: '||p_cons_bill_tbl(k).payment_method);
1152: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||NVL(p_cons_bill_tbl(k).private_label,'N/A')||' DATE_CONSOLIDATED: '||TRUNC(p_cons_bill_tbl(k).date_consolidated));
1145: END IF;
1146:
1147: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1148: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CURRENT RECORD IS FOR: ***');
1149: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1150: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_cons_bill_tbl(k).customer_id||' CURRENCY: '||p_cons_bill_tbl(k).currency);
1151: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_cons_bill_tbl(k).bill_to_site||' PAYMENT_METHOD: '||p_cons_bill_tbl(k).payment_method);
1152: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||NVL(p_cons_bill_tbl(k).private_label,'N/A')||' DATE_CONSOLIDATED: '||TRUNC(p_cons_bill_tbl(k).date_consolidated));
1153: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_ID: '||p_cons_bill_tbl(k).contract_id||' INVOICE GROUP ID: '||p_cons_bill_tbl(k).inf_id);
1146:
1147: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1148: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CURRENT RECORD IS FOR: ***');
1149: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1150: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_cons_bill_tbl(k).customer_id||' CURRENCY: '||p_cons_bill_tbl(k).currency);
1151: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_cons_bill_tbl(k).bill_to_site||' PAYMENT_METHOD: '||p_cons_bill_tbl(k).payment_method);
1152: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||NVL(p_cons_bill_tbl(k).private_label,'N/A')||' DATE_CONSOLIDATED: '||TRUNC(p_cons_bill_tbl(k).date_consolidated));
1153: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_ID: '||p_cons_bill_tbl(k).contract_id||' INVOICE GROUP ID: '||p_cons_bill_tbl(k).inf_id);
1154: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ORIGINAL CONS INV (For credit memos): '||p_cons_bill_tbl(k).prev_cons_invoice_num);
1147: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1148: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CURRENT RECORD IS FOR: ***');
1149: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1150: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_cons_bill_tbl(k).customer_id||' CURRENCY: '||p_cons_bill_tbl(k).currency);
1151: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_cons_bill_tbl(k).bill_to_site||' PAYMENT_METHOD: '||p_cons_bill_tbl(k).payment_method);
1152: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||NVL(p_cons_bill_tbl(k).private_label,'N/A')||' DATE_CONSOLIDATED: '||TRUNC(p_cons_bill_tbl(k).date_consolidated));
1153: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_ID: '||p_cons_bill_tbl(k).contract_id||' INVOICE GROUP ID: '||p_cons_bill_tbl(k).inf_id);
1154: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ORIGINAL CONS INV (For credit memos): '||p_cons_bill_tbl(k).prev_cons_invoice_num);
1155: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1148: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CURRENT RECORD IS FOR: ***');
1149: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1150: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_cons_bill_tbl(k).customer_id||' CURRENCY: '||p_cons_bill_tbl(k).currency);
1151: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_cons_bill_tbl(k).bill_to_site||' PAYMENT_METHOD: '||p_cons_bill_tbl(k).payment_method);
1152: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||NVL(p_cons_bill_tbl(k).private_label,'N/A')||' DATE_CONSOLIDATED: '||TRUNC(p_cons_bill_tbl(k).date_consolidated));
1153: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_ID: '||p_cons_bill_tbl(k).contract_id||' INVOICE GROUP ID: '||p_cons_bill_tbl(k).inf_id);
1154: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ORIGINAL CONS INV (For credit memos): '||p_cons_bill_tbl(k).prev_cons_invoice_num);
1155: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1156: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** END CONSOLIDATION DETAILS ***');
1149: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1150: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_cons_bill_tbl(k).customer_id||' CURRENCY: '||p_cons_bill_tbl(k).currency);
1151: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_cons_bill_tbl(k).bill_to_site||' PAYMENT_METHOD: '||p_cons_bill_tbl(k).payment_method);
1152: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||NVL(p_cons_bill_tbl(k).private_label,'N/A')||' DATE_CONSOLIDATED: '||TRUNC(p_cons_bill_tbl(k).date_consolidated));
1153: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_ID: '||p_cons_bill_tbl(k).contract_id||' INVOICE GROUP ID: '||p_cons_bill_tbl(k).inf_id);
1154: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ORIGINAL CONS INV (For credit memos): '||p_cons_bill_tbl(k).prev_cons_invoice_num);
1155: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1156: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** END CONSOLIDATION DETAILS ***');
1157: END IF;
1150: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CUSTOMER_ID: '||p_cons_bill_tbl(k).customer_id||' CURRENCY: '||p_cons_bill_tbl(k).currency);
1151: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_cons_bill_tbl(k).bill_to_site||' PAYMENT_METHOD: '||p_cons_bill_tbl(k).payment_method);
1152: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||NVL(p_cons_bill_tbl(k).private_label,'N/A')||' DATE_CONSOLIDATED: '||TRUNC(p_cons_bill_tbl(k).date_consolidated));
1153: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_ID: '||p_cons_bill_tbl(k).contract_id||' INVOICE GROUP ID: '||p_cons_bill_tbl(k).inf_id);
1154: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ORIGINAL CONS INV (For credit memos): '||p_cons_bill_tbl(k).prev_cons_invoice_num);
1155: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1156: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** END CONSOLIDATION DETAILS ***');
1157: END IF;
1158:
1151: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> BILL_TO_SITE: '||p_cons_bill_tbl(k).bill_to_site||' PAYMENT_METHOD: '||p_cons_bill_tbl(k).payment_method);
1152: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||NVL(p_cons_bill_tbl(k).private_label,'N/A')||' DATE_CONSOLIDATED: '||TRUNC(p_cons_bill_tbl(k).date_consolidated));
1153: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_ID: '||p_cons_bill_tbl(k).contract_id||' INVOICE GROUP ID: '||p_cons_bill_tbl(k).inf_id);
1154: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ORIGINAL CONS INV (For credit memos): '||p_cons_bill_tbl(k).prev_cons_invoice_num);
1155: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1156: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** END CONSOLIDATION DETAILS ***');
1157: END IF;
1158:
1159:
1152: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> PRIVATE_LABEL: '||NVL(p_cons_bill_tbl(k).private_label,'N/A')||' DATE_CONSOLIDATED: '||TRUNC(p_cons_bill_tbl(k).date_consolidated));
1153: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_ID: '||p_cons_bill_tbl(k).contract_id||' INVOICE GROUP ID: '||p_cons_bill_tbl(k).inf_id);
1154: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> ORIGINAL CONS INV (For credit memos): '||p_cons_bill_tbl(k).prev_cons_invoice_num);
1155: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1156: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** END CONSOLIDATION DETAILS ***');
1157: END IF;
1158:
1159:
1160: i:= 0;
1158:
1159:
1160: i:= 0;
1161: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1162: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Invoice Groups: Checking If Stream assigned to a Line Type.');
1163: END IF;
1164: FOR inv_format IN inv_format_csr (p_cons_bill_tbl(k).inf_id , p_cons_bill_tbl(k).sty_id) LOOP
1165: i := i+1;
1166: l_format_name := inv_format.inf_name;
1176: END LOOP;
1177:
1178: IF i = 0 THEN
1179: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1180: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Invoice Groups: Stream not assigned to a Line Type.');
1181: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Invoice Groups: Checking If Default Line Type exists. ');
1182: END IF;
1183: FOR inv_format_default IN inv_format_default_csr(p_cons_bill_tbl(k).inf_id) LOOP
1184: i := i + 1;
1177:
1178: IF i = 0 THEN
1179: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1180: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Invoice Groups: Stream not assigned to a Line Type.');
1181: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Invoice Groups: Checking If Default Line Type exists. ');
1182: END IF;
1183: FOR inv_format_default IN inv_format_default_csr(p_cons_bill_tbl(k).inf_id) LOOP
1184: i := i + 1;
1185:
1195: END LOOP;
1196: END IF;
1197:
1198: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1199: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** Qualifying Invoice Group Details ***');
1200: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> NAME: '||l_format_name);
1201: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_LEVEL_YN: '||l_contract_level_yn);
1202: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> INVOICE TYPE NAME: '||l_format_type||' With Id of: '||l_ity_id);
1203: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_ASSET_YN: '||l_group_asset_yn);
1196: END IF;
1197:
1198: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1199: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** Qualifying Invoice Group Details ***');
1200: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> NAME: '||l_format_name);
1201: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_LEVEL_YN: '||l_contract_level_yn);
1202: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> INVOICE TYPE NAME: '||l_format_type||' With Id of: '||l_ity_id);
1203: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_ASSET_YN: '||l_group_asset_yn);
1204: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> LINE NAME: '||l_cons_line_name||' With Id of: '||l_ilt_id);
1197:
1198: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1199: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** Qualifying Invoice Group Details ***');
1200: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> NAME: '||l_format_name);
1201: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_LEVEL_YN: '||l_contract_level_yn);
1202: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> INVOICE TYPE NAME: '||l_format_type||' With Id of: '||l_ity_id);
1203: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_ASSET_YN: '||l_group_asset_yn);
1204: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> LINE NAME: '||l_cons_line_name||' With Id of: '||l_ilt_id);
1205: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE NUMBER: '||l_sequence_number);
1198: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1199: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** Qualifying Invoice Group Details ***');
1200: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> NAME: '||l_format_name);
1201: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_LEVEL_YN: '||l_contract_level_yn);
1202: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> INVOICE TYPE NAME: '||l_format_type||' With Id of: '||l_ity_id);
1203: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_ASSET_YN: '||l_group_asset_yn);
1204: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> LINE NAME: '||l_cons_line_name||' With Id of: '||l_ilt_id);
1205: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE NUMBER: '||l_sequence_number);
1206: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** End Invoice Group Details ***');
1199: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** Qualifying Invoice Group Details ***');
1200: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> NAME: '||l_format_name);
1201: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_LEVEL_YN: '||l_contract_level_yn);
1202: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> INVOICE TYPE NAME: '||l_format_type||' With Id of: '||l_ity_id);
1203: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_ASSET_YN: '||l_group_asset_yn);
1204: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> LINE NAME: '||l_cons_line_name||' With Id of: '||l_ilt_id);
1205: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE NUMBER: '||l_sequence_number);
1206: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** End Invoice Group Details ***');
1207: END IF;
1200: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> NAME: '||l_format_name);
1201: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_LEVEL_YN: '||l_contract_level_yn);
1202: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> INVOICE TYPE NAME: '||l_format_type||' With Id of: '||l_ity_id);
1203: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_ASSET_YN: '||l_group_asset_yn);
1204: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> LINE NAME: '||l_cons_line_name||' With Id of: '||l_ilt_id);
1205: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE NUMBER: '||l_sequence_number);
1206: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** End Invoice Group Details ***');
1207: END IF;
1208:
1201: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> CONTRACT_LEVEL_YN: '||l_contract_level_yn);
1202: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> INVOICE TYPE NAME: '||l_format_type||' With Id of: '||l_ity_id);
1203: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_ASSET_YN: '||l_group_asset_yn);
1204: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> LINE NAME: '||l_cons_line_name||' With Id of: '||l_ilt_id);
1205: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE NUMBER: '||l_sequence_number);
1206: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** End Invoice Group Details ***');
1207: END IF;
1208:
1209: IF ( (p_cons_bill_tbl(k).customer_id = p_saved_bill_rec.l_customer_id)
1202: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> INVOICE TYPE NAME: '||l_format_type||' With Id of: '||l_ity_id);
1203: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> GROUP_ASSET_YN: '||l_group_asset_yn);
1204: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> LINE NAME: '||l_cons_line_name||' With Id of: '||l_ilt_id);
1205: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '* ====> SEQUENCE NUMBER: '||l_sequence_number);
1206: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** End Invoice Group Details ***');
1207: END IF;
1208:
1209: IF ( (p_cons_bill_tbl(k).customer_id = p_saved_bill_rec.l_customer_id)
1210: AND (p_cons_bill_tbl(k).currency = p_saved_bill_rec.l_currency)
1216: AND (p_cons_bill_tbl(k).prev_cons_invoice_num = p_saved_bill_rec.l_saved_prev_cons_num)
1217: )
1218: THEN
1219: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1220: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> No Break Detected, Check Contract Level YN: '||l_contract_level_yn);
1221: END IF;
1222: -- -------------------------------------------------------------------
1223: -- Check multi-contract invoices
1224: -- -------------------------------------------------------------------
1225: IF ( p_saved_bill_rec.l_prev_khr_id <> p_cons_bill_tbl(k).contract_id ) THEN
1226:
1227: IF (l_contract_level_yn = 'Y') THEN
1228: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1229: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Reusing CNR_ID, as Contract Level YN is Y : '||p_saved_bill_rec.l_cnr_id);
1230: END IF;
1231: ELSE
1232: -- ---------------------------
1233: -- Process Header Break Logic
1244: -- Finish post header break detection logic
1245: -- ------------------------------------
1246:
1247: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1248: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Create new Invoice as Contract Level YN is N.');
1249: END IF;
1250: l_cnr_id := NULL;
1251:
1252: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1249: END IF;
1250: l_cnr_id := NULL;
1251:
1252: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1253: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CREATE CONSOLIDATED INVOICE HEADER ***');
1254: END IF;
1255: l_cons_inv_num := NULL;
1256: -- for LE Uptake project 08-11-2006
1257: IF (p_cons_bill_tbl(k).legal_entity_id IS NULL OR (p_cons_bill_tbl(k).legal_entity_id = Okl_Api.G_MISS_NUM)) THEN
1277: p_saved_bill_rec.l_cnr_id := l_cnr_id;
1278: p_saved_bill_rec.l_cons_inv_num := l_cons_inv_num;
1279:
1280: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1281: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** DONE CREATION OF CONSOLIDATED INVOICE HEADER.Assigned Id: '
1282: ||l_cnr_id||' ***'||'p_saved_bill_rec.l_cons_inv_num: '||p_saved_bill_rec.l_cons_inv_num );
1283: END IF;
1284: END IF;
1285: ELSE
1283: END IF;
1284: END IF;
1285: ELSE
1286: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1287: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Reusing CNR_ID (Same Contract) : '||l_cnr_id);
1288: END IF;
1289: END IF;
1290:
1291: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1288: END IF;
1289: END IF;
1290:
1291: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1292: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1293: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CHECK IF A CONSOLIDATED LINE EXISTS ***');
1294: END IF;
1295: l_lln_id := NULL;
1296: line_exist (l_cnr_id,
1289: END IF;
1290:
1291: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1292: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1293: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CHECK IF A CONSOLIDATED LINE EXISTS ***');
1294: END IF;
1295: l_lln_id := NULL;
1296: line_exist (l_cnr_id,
1297: p_cons_bill_tbl(k).contract_id,
1306:
1307: p_saved_bill_rec.l_lln_id := l_lln_id;
1308:
1309: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1310: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** END CHECK FOR CONSOLIDATED LINE ***');
1311: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1312: END IF;
1313:
1314: IF l_funct_return = 'N' THEN
1307: p_saved_bill_rec.l_lln_id := l_lln_id;
1308:
1309: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1310: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** END CHECK FOR CONSOLIDATED LINE ***');
1311: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** ++++++++++++++++++++++++++++ ***');
1312: END IF;
1313:
1314: IF l_funct_return = 'N' THEN
1315: -- -----------------------------------------------------
1316: -- Line break detected, update LLN record with amount
1317: -- -----------------------------------------------------
1318:
1319: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1320: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CREATE CONSOLIDATED INVOICE LINE *** for CNR_ID: '||l_cnr_id);
1321: END IF;
1322: l_lln_id := NULL;
1323: l_cnr_id := p_saved_bill_rec.l_cnr_id;
1324:
1336: l_lln_id
1337: );
1338: p_saved_bill_rec.l_lln_id := l_lln_id;
1339: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1340: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** DONE CREATION OF CONSOLIDATED INVOICE LINE.Assigned Id: '||l_lln_id||' ***');
1341: END IF;
1342: END IF;
1343: ELSE -- 'ELSE' for the Uppermost level 'IF' for hierarchy checks
1344:
1363: -- Break detected
1364: -- -----------------------------------
1365:
1366: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1367: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Break Detected.');
1368: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CREATE CONSOLIDATED INVOICE HEADER ***');
1369: END IF;
1370: -- Null out current value in local variable.
1371: l_cnr_id := NULL;
1364: -- -----------------------------------
1365:
1366: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1367: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '====> Break Detected.');
1368: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CREATE CONSOLIDATED INVOICE HEADER ***');
1369: END IF;
1370: -- Null out current value in local variable.
1371: l_cnr_id := NULL;
1372: l_cons_inv_num := NULL;
1394: p_saved_bill_rec.l_cnr_id := l_cnr_id;
1395: p_saved_bill_rec.l_cons_inv_num := l_cons_inv_num;
1396:
1397: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1398: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** DONE CREATION OF CONSOLIDATED INVOICE HEADER.Assigned Id: '||l_cnr_id||' ***'||'p_saved_bill_rec.l_cons_inv_num: '||p_saved_bill_rec.l_cons_inv_num );
1399: END IF;
1400:
1401: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1402: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CREATE CONSOLIDATED INVOICE LINE *** for CNR_ID '||l_cnr_id);
1398: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** DONE CREATION OF CONSOLIDATED INVOICE HEADER.Assigned Id: '||l_cnr_id||' ***'||'p_saved_bill_rec.l_cons_inv_num: '||p_saved_bill_rec.l_cons_inv_num );
1399: END IF;
1400:
1401: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1402: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CREATE CONSOLIDATED INVOICE LINE *** for CNR_ID '||l_cnr_id);
1403: END IF;
1404: -- Null out current value in local variable.
1405: l_lln_id := NULL;
1406:
1420:
1421: p_saved_bill_rec.l_lln_id := l_lln_id;
1422:
1423: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1424: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** DONE CREATION OF CONSOLIDATED INVOICE LINE.Assigned Id: '||l_lln_id||' ***');
1425: END IF;
1426: END IF;
1427:
1428: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1425: END IF;
1426: END IF;
1427:
1428: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1429: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CREATE CONSOLIDATED INVOICE STREAMS *** for CNR_ID: '||l_cnr_id||' and LLN_ID: '||l_lln_id);
1430: END IF;
1431: --Null out local variable.
1432: l_lsm_id := null;
1433:
1443: l_lsm_id,
1444: x_return_status);
1445:
1446: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1447: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** DONE CREATION OF CONSOLIDATED INVOICE STREAMS.Assigned Id: '||l_lsm_id||' ***');
1448: END IF;
1449:
1450:
1451:
1492: l_cnt := p_update_tbl.count;
1493: l_cnt := l_cnt + 1;
1494:
1495: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1496: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'DEL Updates (p_saved_bill_rec.l_cons_inv_num)'||p_saved_bill_rec.l_cons_inv_num);
1497: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'DEL Updates (l_format_name)'||l_format_name);
1498: END IF;
1499:
1500: p_update_tbl(l_cnt).cnr_id := p_saved_bill_rec.l_cnr_id;
1493: l_cnt := l_cnt + 1;
1494:
1495: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1496: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'DEL Updates (p_saved_bill_rec.l_cons_inv_num)'||p_saved_bill_rec.l_cons_inv_num);
1497: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'DEL Updates (l_format_name)'||l_format_name);
1498: END IF;
1499:
1500: p_update_tbl(l_cnt).cnr_id := p_saved_bill_rec.l_cnr_id;
1501: p_update_tbl(l_cnt).cons_inv_number := p_saved_bill_rec.l_cons_inv_num;
1523: -- Exception handling
1524: ------------------------------------------------------------
1525:
1526: WHEN OTHERS THEN
1527: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1528: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'okl_cons_bill',
1529: 'EXCEPTION :'||'OTHERS');
1530: END IF;
1531:
1524: ------------------------------------------------------------
1525:
1526: WHEN OTHERS THEN
1527: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1528: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'okl_cons_bill',
1529: 'EXCEPTION :'||'OTHERS');
1530: END IF;
1531:
1532: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1529: 'EXCEPTION :'||'OTHERS');
1530: END IF;
1531:
1532: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1533: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'*=> Error Message(O3): '||SQLERRM);
1534: END IF;
1535: x_return_status := 'E';
1536:
1537: END process_cons_bill_tbl;
2114:
2115:
2116: BEGIN
2117: IF (G_DEBUG_ENABLED = 'Y') THEN
2118: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2119: END IF;
2120:
2121: L_DEBUG_ENABLED := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
2122:
2119: END IF;
2120:
2121: L_DEBUG_ENABLED := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
2122:
2123: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2124: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'okl_cons_bill'
2125: ,'Begin(+)');
2126: END IF;
2127:
2120:
2121: L_DEBUG_ENABLED := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
2122:
2123: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2124: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'okl_cons_bill'
2125: ,'Begin(+)');
2126: END IF;
2127:
2128: -- ------------------------
2128: -- ------------------------
2129: -- Print Input variables
2130: -- ------------------------
2131: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2132: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_commit '||p_commit);
2133: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_contract_number '||p_contract_number);
2134: END IF;
2135:
2136: ------------------------------------------------------------
2129: -- Print Input variables
2130: -- ------------------------
2131: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2132: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_commit '||p_commit);
2133: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_contract_number '||p_contract_number);
2134: END IF;
2135:
2136: ------------------------------------------------------------
2137: -- Start processing
2154: RAISE Okl_Api.G_EXCEPTION_ERROR;
2155: END IF;
2156:
2157: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2158: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '========== **** BEGIN PROGRAM EXECUTION **** ============');
2159: END IF;
2160:
2161: -- IF p_contract_number IS NULL THEN
2162:
2160:
2161: -- IF p_contract_number IS NULL THEN
2162:
2163: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2164: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '========== START: Three LEVEL Processing ============');
2165: END IF;
2166: -- ---------------------------------------
2167: -- Initialize table and record parameters
2168: -- ---------------------------------------
2315: COMMIT;
2316: END IF;
2317:
2318: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2319: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '========== END: CREDIT MEMO Two LEVEL Processing ============');
2320: END IF;
2321:
2322: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2323: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '========== START: CREDIT MEMO Three LEVEL Processing ============');
2319: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '========== END: CREDIT MEMO Two LEVEL Processing ============');
2320: END IF;
2321:
2322: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2323: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '========== START: CREDIT MEMO Three LEVEL Processing ============');
2324: END IF;
2325:
2326: -- ---------------------------------------
2327: -- Initialize table and record parameters
2365: COMMIT;
2366: END IF;
2367:
2368: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2369: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '========== END: CREDIT MEMO Three LEVEL Processing ============');
2370: END IF;
2371:
2372: -- ELSE -- Null value for contract specific consolidation
2373: -- NULL;
2390: ------------------------------------------------------------
2391: l_clg_id := -1;
2392: l_cnr_id := NULL;
2393: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2394: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '========== START: UBB Processing ============');
2395: END IF;
2396:
2397: l_commit_cnt := 0;
2398:
2410: FETCH strm_csr INTO l_stream_name1;
2411: CLOSE strm_csr;
2412:
2413: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2414: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, ' Processing Contract: '||l_contract_number||' ,Stream: '||l_stream_name1);
2415: END IF;
2416:
2417: -- Start Fresh for Creating next UBB
2418: l_lln_id := NULL;
2435: l_commit_cnt := 0;
2436: END IF;
2437:
2438: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2439: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CREATE CONSOLIDATED INVOICE HEADER ***');
2440: END IF;
2441: l_cnr_id := NULL;
2442: create_new_invoice(
2443: ubb_rec.bill_to_site,
2455: ubb_rec.legal_entity_id, -- for LE Uptake project 08-11-2006
2456: l_cnr_id,
2457: l_cons_inv_num);
2458: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2459: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** DONE CREATION OF CONSOLIDATED INVOICE HEADER.Assigned Id: '||l_cnr_id||' ***');
2460: END IF;
2461:
2462:
2463: -----------------------------------
2468: END IF;
2469:
2470:
2471: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2472: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CREATE CONSOLIDATED INVOICE LINE *** for CNR_ID '||l_cnr_id);
2473: END IF;
2474: -- Null out current value in local variable.
2475: l_lln_id := NULL;
2476: create_new_line(
2486: 'N',
2487: l_lln_id
2488: );
2489: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2490: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** DONE CREATION OF CONSOLIDATED INVOICE LINE.Assigned Id: '||l_lln_id||' ***');
2491: END IF;
2492:
2493:
2494:
2492:
2493:
2494:
2495: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2496: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CREATE CONSOLIDATED INVOICE STREAMS *** for CNR_ID: '||l_cnr_id||' and LLN_ID: '||l_lln_id);
2497: END IF;
2498: --Null out local variable.
2499: l_lsm_id := null;
2500: create_new_streams(
2506: ubb_rec.sel_id,
2507: l_lsm_id,
2508: x_return_status);
2509: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2510: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** DONE CREATION OF CONSOLIDATED INVOICE STREAMS.Assigned Id: '||l_lsm_id||' ***');
2511: END IF;
2512:
2513: -- Build a PL/SQL table for later Updates
2514: cnr_update_tbl(cnr_tab_idx).cnr_id := l_cnr_id;
2526: COMMIT;
2527: END IF;
2528:
2529: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2530: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '========== END: UBB Processing ============');
2531: END IF;
2532:
2533: ---------------------------------------------------
2534: -- Process all Termination Quote requests --
2545: -- Start Bug 4731187
2546: l_qte_trx_date := (sysdate - 732000);
2547: -- End Bug 4731187
2548: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2549: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '========== START: TERMINATION QUOTE Processing ============');
2550: END IF;
2551:
2552: l_commit_cnt := 0;
2553:
2566: FETCH strm_csr INTO l_stream_name1;
2567: CLOSE strm_csr;
2568:
2569: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2570: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, ' Processing Contract: '||l_contract_number||' ,Stream: '||l_stream_name1);
2571: END IF;
2572:
2573: -- Start Fresh for Creating next UBB
2574: l_lln_id := NULL;
2597: l_commit_cnt := 0;
2598: END IF;
2599:
2600: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2601: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CREATE CONSOLIDATED INVOICE HEADER ***');
2602: END IF;
2603: l_cnr_id := NULL;
2604: create_new_invoice(
2605: qte_rec.bill_to_site,
2617: qte_rec.legal_entity_id, -- for LE Uptake project 08-11-2006
2618: l_cnr_id,
2619: l_cons_inv_num);
2620: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2621: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** DONE CREATION OF CONSOLIDATED INVOICE HEADER.Assigned Id: '||l_cnr_id||' ***');
2622: END IF;
2623:
2624:
2625: -----------------------------------
2634: END IF;
2635:
2636:
2637: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2638: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CREATE CONSOLIDATED INVOICE LINE *** for CNR_ID '||l_cnr_id);
2639: END IF;
2640: -- Null out current value in local variable.
2641: l_lln_id := NULL;
2642: create_new_line(
2652: 'N',
2653: l_lln_id
2654: );
2655: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2656: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** DONE CREATION OF CONSOLIDATED INVOICE LINE.Assigned Id: '||l_lln_id||' ***');
2657: END IF;
2658:
2659:
2660:
2658:
2659:
2660:
2661: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2662: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CREATE CONSOLIDATED INVOICE STREAMS *** for CNR_ID: '||l_cnr_id||' and LLN_ID: '||l_lln_id);
2663: END IF;
2664: --Null out local variable.
2665: l_lsm_id := null;
2666: create_new_streams(
2672: qte_rec.sel_id,
2673: l_lsm_id,
2674: x_return_status);
2675: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2676: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** DONE CREATION OF CONSOLIDATED INVOICE STREAMS.Assigned Id: '||l_lsm_id||' ***');
2677: END IF;
2678:
2679: -- Build a PL/SQL table for later Updates
2680: cnr_update_tbl(cnr_tab_idx).cnr_id := l_cnr_id;
2692: COMMIT;
2693: END IF;
2694:
2695: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2696: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '========== END: TERMINATION QUOTE Processing ============');
2697: END IF;
2698:
2699: -----------------------------------
2700: --Processing Collections Records
2708: ------------------------------------------------------------
2709: l_cpy_id := -1;
2710:
2711: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2712: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '========== START: Collections Records Processing ============');
2713: END IF;
2714:
2715: l_commit_cnt := 0;
2716:
2729: FETCH strm_csr INTO l_stream_name1;
2730: CLOSE strm_csr;
2731:
2732: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2733: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, ' Processing Contract: '||l_contract_number||' ,Stream: '||l_stream_name1);
2734: END IF;
2735:
2736: -- Start Fresh for Creating next UBB
2737: l_lln_id := NULL;
2753: l_commit_cnt := 0;
2754: END IF;
2755:
2756: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2757: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CREATE CONSOLIDATED INVOICE HEADER ***');
2758: END IF;
2759: l_cnr_id := NULL;
2760: create_new_invoice(
2761: cpy_rec.bill_to_site,
2773: cpy_rec.legal_entity_id, -- for LE Uptake project 08-11-2006
2774: l_cnr_id,
2775: l_cons_inv_num);
2776: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2777: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** DONE CREATION OF CONSOLIDATED INVOICE HEADER.Assigned Id: '||l_cnr_id||' ***');
2778: END IF;
2779:
2780:
2781: -----------------------------------
2785:
2786: END IF;
2787:
2788: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2789: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CREATE CONSOLIDATED INVOICE LINE *** for CNR_ID '||l_cnr_id);
2790: END IF;
2791: -- Null out current value in local variable.
2792: l_lln_id := NULL;
2793: create_new_line(
2803: 'N',
2804: l_lln_id
2805: );
2806: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2807: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** DONE CREATION OF CONSOLIDATED INVOICE LINE.Assigned Id: '||l_lln_id||' ***');
2808: END IF;
2809:
2810: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2811: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CREATE CONSOLIDATED INVOICE STREAMS *** for CNR_ID: '||l_cnr_id||' and LLN_ID: '||l_lln_id);
2807: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** DONE CREATION OF CONSOLIDATED INVOICE LINE.Assigned Id: '||l_lln_id||' ***');
2808: END IF;
2809:
2810: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2811: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** CREATE CONSOLIDATED INVOICE STREAMS *** for CNR_ID: '||l_cnr_id||' and LLN_ID: '||l_lln_id);
2812: END IF;
2813: --Null out local variable.
2814: l_lsm_id := null;
2815: create_new_streams(
2821: cpy_rec.sel_id,
2822: l_lsm_id,
2823: x_return_status);
2824: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2825: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '*** DONE CREATION OF CONSOLIDATED INVOICE STREAMS.Assigned Id: '||l_lsm_id||' ***');
2826: END IF;
2827:
2828: -- Build a PL/SQL table for later Updates
2829: cnr_update_tbl(cnr_tab_idx).cnr_id := l_cnr_id;
2841: COMMIT;
2842: END IF;
2843:
2844: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2845: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '========== END: Collections Records Processing ============');
2846: END IF;
2847:
2848: -- Update the XTRX columns in XSI and XLS and Resequence the
2849: -- Consolidated bill lines
2850:
2851: l_cnr_id := -1;
2852:
2853: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2854: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '========== START: UPDATING Processed Records ============');
2855: END IF;
2856:
2857: l_commit_cnt := 0;
2858:
3120: COMMIT;
3121: END IF;
3122:
3123: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3124: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '========== END: UPDATING Processed Records ============');
3125: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '========== **** END PROGRAM EXECUTION **** ============');
3126: END IF;
3127:
3128: -- ----------------------------------------------------------
3121: END IF;
3122:
3123: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3124: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '========== END: UPDATING Processed Records ============');
3125: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, '========== **** END PROGRAM EXECUTION **** ============');
3126: END IF;
3127:
3128: -- ----------------------------------------------------------
3129: -- Print net output by currency
3207: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,TO_CHAR(i) || ': ' || lx_msg_data);
3208: END LOOP;
3209: END IF;
3210:
3211: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3212: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'okl_cons_bill'
3213: ,'End(-)');
3214: END IF;
3215:
3208: END LOOP;
3209: END IF;
3210:
3211: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3212: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'okl_cons_bill'
3213: ,'End(-)');
3214: END IF;
3215:
3216: -- -------------------------------------------
3248: WHERE assigned_process = p_assigned_process;
3249: COMMIT;
3250: END IF;
3251:
3252: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3253: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'okl_cons_bill',
3254: 'EXCEPTION :'||'Okl_Api.G_EXCEPTION_ERROR');
3255: END IF;
3256:
3249: COMMIT;
3250: END IF;
3251:
3252: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3253: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'okl_cons_bill',
3254: 'EXCEPTION :'||'Okl_Api.G_EXCEPTION_ERROR');
3255: END IF;
3256:
3257: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3254: 'EXCEPTION :'||'Okl_Api.G_EXCEPTION_ERROR');
3255: END IF;
3256:
3257: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3258: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'*=> Error Message(O1): '||SQLERRM);
3259: END IF;
3260: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
3261: p_api_name => l_api_name,
3262: p_pkg_name => G_PKG_NAME,
3275: WHERE assigned_process = p_assigned_process;
3276: COMMIT;
3277: END IF;
3278:
3279: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3280: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'okl_cons_bill',
3281: 'EXCEPTION :'||'Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR');
3282: END IF;
3283:
3276: COMMIT;
3277: END IF;
3278:
3279: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3280: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'okl_cons_bill',
3281: 'EXCEPTION :'||'Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR');
3282: END IF;
3283:
3284: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3281: 'EXCEPTION :'||'Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR');
3282: END IF;
3283:
3284: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3285: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'*=> Error Message(O2): '||SQLERRM);
3286: END IF;
3287: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
3288: p_api_name => l_api_name,
3289: p_pkg_name => G_PKG_NAME,
3302: WHERE assigned_process = p_assigned_process;
3303: COMMIT;
3304: END IF;
3305:
3306: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3307: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'okl_cons_bill',
3308: 'EXCEPTION :'||'OTHERS');
3309: END IF;
3310:
3303: COMMIT;
3304: END IF;
3305:
3306: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3307: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'okl_cons_bill',
3308: 'EXCEPTION :'||'OTHERS');
3309: END IF;
3310:
3311: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3308: 'EXCEPTION :'||'OTHERS');
3309: END IF;
3310:
3311: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3312: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'*=> Error Message(O3): '||SQLERRM);
3313: END IF;
3314: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
3315: p_api_name => l_api_name,
3316: p_pkg_name => G_PKG_NAME,