[Home] [Help]
178: EXCEPTION
179: WHEN others THEN
180: g_error_code := SQLCODE;
181: g_error_text := SUBSTR(SQLERRM,1,240);
182: FND_FILE.PUT_LINE(FND_FILE.log,'Insert_Error_Rec:'|| g_error_text);
183: RAISE;
184:
185: END Insert_Error_Rec;
186:
198: l_message_text jl_co_gl_conc_errs.message_text%TYPE := NULL;
199: l_add_text VARCHAR2(30):= NULL;
200:
201: BEGIN
202: FND_FILE.PUT_LINE(FND_FILE.log,'Inside Validate NIT');
203: -- add_text is populated only for external sources
204:
205: IF p_identifier_type = 'JL_CO_GL_NIT' THEN
206: l_add_text := 'JL_CO_GL_0_NIT_TRX_CREATED';
206: l_add_text := 'JL_CO_GL_0_NIT_TRX_CREATED';
207: END IF;
208:
209: BEGIN -- check if nit exists by nit number
210: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit : '||p_nit_rec.nit);
211:
212: SELECT nit_id,
213: nit,
214: name,
217: INTO l_master_nit_rec
218: FROM jl_co_gl_nits
219: WHERE nit = p_nit_rec.nit;
220: -- Bug 14283808 Start
221: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_id : '||l_master_nit_rec.nit_id);
222: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit : '||l_master_nit_rec.nit);
223: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_name : '||l_master_nit_rec.nit_name);
224: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_type : '||l_master_nit_rec.nit_type);
225: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.verifying_digit : '||l_master_nit_rec.verifying_digit);
218: FROM jl_co_gl_nits
219: WHERE nit = p_nit_rec.nit;
220: -- Bug 14283808 Start
221: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_id : '||l_master_nit_rec.nit_id);
222: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit : '||l_master_nit_rec.nit);
223: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_name : '||l_master_nit_rec.nit_name);
224: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_type : '||l_master_nit_rec.nit_type);
225: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.verifying_digit : '||l_master_nit_rec.verifying_digit);
226: -- Bug 14283808 End
219: WHERE nit = p_nit_rec.nit;
220: -- Bug 14283808 Start
221: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_id : '||l_master_nit_rec.nit_id);
222: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit : '||l_master_nit_rec.nit);
223: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_name : '||l_master_nit_rec.nit_name);
224: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_type : '||l_master_nit_rec.nit_type);
225: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.verifying_digit : '||l_master_nit_rec.verifying_digit);
226: -- Bug 14283808 End
227:
220: -- Bug 14283808 Start
221: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_id : '||l_master_nit_rec.nit_id);
222: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit : '||l_master_nit_rec.nit);
223: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_name : '||l_master_nit_rec.nit_name);
224: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_type : '||l_master_nit_rec.nit_type);
225: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.verifying_digit : '||l_master_nit_rec.verifying_digit);
226: -- Bug 14283808 End
227:
228: EXCEPTION
221: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_id : '||l_master_nit_rec.nit_id);
222: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit : '||l_master_nit_rec.nit);
223: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_name : '||l_master_nit_rec.nit_name);
224: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_type : '||l_master_nit_rec.nit_type);
225: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.verifying_digit : '||l_master_nit_rec.verifying_digit);
226: -- Bug 14283808 End
227:
228: EXCEPTION
229: WHEN no_data_found THEN
240: INTO l_master_nit_rec
241: FROM jl_co_gl_nits
242: WHERE name = p_nit_rec.nit_name; -- Bug 8589204 Removed the UPPER fn
243:
244: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit_name : '||p_nit_rec.nit_name);
245:
246: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_NAME_EXISTS');
247: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
248: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
258: NULL;
259: END;
260:
261: IF l_master_nit_rec.nit IS NULL THEN
262: FND_FILE.PUT_LINE(FND_FILE.log,'master : p_nit_rec.nit : '||p_nit_rec.nit);
263:
264: -- master NIT does not exist
265: -- validate NIT and insert new NIT record
266: IF jg_taxid_val_pkg.check_length('CO',14,p_nit_rec.nit) = 'FALSE' THEN
273: l_nit_valid := FALSE;
274: END IF; /*check_length*/
275:
276: IF p_nit_rec.nit IS NULL THEN
277: FND_FILE.PUT_LINE(FND_FILE.log,'NIT Null Check : p_nit_rec.nit : '||p_nit_rec.nit);
278:
279: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_REQUIRED');
280: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
281: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
377:
378: ELSIF l_nit_valid THEN
379: -- nit exists verify if the info matches master nit
380: -- Bug 14283808 Start
381: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit : '||p_nit_rec.nit);
382: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit : '||l_master_nit_rec.nit);
383: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit_name : '||p_nit_rec.nit_name);
384: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_name : '||l_master_nit_rec.nit_name);
385: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit_type : '||p_nit_rec.nit_type);
378: ELSIF l_nit_valid THEN
379: -- nit exists verify if the info matches master nit
380: -- Bug 14283808 Start
381: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit : '||p_nit_rec.nit);
382: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit : '||l_master_nit_rec.nit);
383: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit_name : '||p_nit_rec.nit_name);
384: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_name : '||l_master_nit_rec.nit_name);
385: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit_type : '||p_nit_rec.nit_type);
386: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_type : '||l_master_nit_rec.nit_type);
379: -- nit exists verify if the info matches master nit
380: -- Bug 14283808 Start
381: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit : '||p_nit_rec.nit);
382: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit : '||l_master_nit_rec.nit);
383: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit_name : '||p_nit_rec.nit_name);
384: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_name : '||l_master_nit_rec.nit_name);
385: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit_type : '||p_nit_rec.nit_type);
386: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_type : '||l_master_nit_rec.nit_type);
387: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.verifying_digit : '|| p_nit_rec.verifying_digit);
380: -- Bug 14283808 Start
381: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit : '||p_nit_rec.nit);
382: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit : '||l_master_nit_rec.nit);
383: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit_name : '||p_nit_rec.nit_name);
384: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_name : '||l_master_nit_rec.nit_name);
385: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit_type : '||p_nit_rec.nit_type);
386: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_type : '||l_master_nit_rec.nit_type);
387: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.verifying_digit : '|| p_nit_rec.verifying_digit);
388: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.verifying_digit : '||l_master_nit_rec.verifying_digit);
381: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit : '||p_nit_rec.nit);
382: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit : '||l_master_nit_rec.nit);
383: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit_name : '||p_nit_rec.nit_name);
384: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_name : '||l_master_nit_rec.nit_name);
385: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit_type : '||p_nit_rec.nit_type);
386: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_type : '||l_master_nit_rec.nit_type);
387: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.verifying_digit : '|| p_nit_rec.verifying_digit);
388: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.verifying_digit : '||l_master_nit_rec.verifying_digit);
389: -- Bug 14283808 End
382: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit : '||l_master_nit_rec.nit);
383: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit_name : '||p_nit_rec.nit_name);
384: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_name : '||l_master_nit_rec.nit_name);
385: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit_type : '||p_nit_rec.nit_type);
386: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_type : '||l_master_nit_rec.nit_type);
387: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.verifying_digit : '|| p_nit_rec.verifying_digit);
388: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.verifying_digit : '||l_master_nit_rec.verifying_digit);
389: -- Bug 14283808 End
390:
383: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit_name : '||p_nit_rec.nit_name);
384: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_name : '||l_master_nit_rec.nit_name);
385: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit_type : '||p_nit_rec.nit_type);
386: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_type : '||l_master_nit_rec.nit_type);
387: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.verifying_digit : '|| p_nit_rec.verifying_digit);
388: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.verifying_digit : '||l_master_nit_rec.verifying_digit);
389: -- Bug 14283808 End
390:
391: IF (p_nit_rec.nit <> l_master_nit_rec.nit) OR
384: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_name : '||l_master_nit_rec.nit_name);
385: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit_type : '||p_nit_rec.nit_type);
386: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.nit_type : '||l_master_nit_rec.nit_type);
387: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.verifying_digit : '|| p_nit_rec.verifying_digit);
388: FND_FILE.PUT_LINE(FND_FILE.log,'l_master_nit_rec.verifying_digit : '||l_master_nit_rec.verifying_digit);
389: -- Bug 14283808 End
390:
391: IF (p_nit_rec.nit <> l_master_nit_rec.nit) OR
392: (UPPER(p_nit_rec.nit_name) <> UPPER(l_master_nit_rec.nit_name)) OR
392: (UPPER(p_nit_rec.nit_name) <> UPPER(l_master_nit_rec.nit_name)) OR
393: (UPPER(p_nit_rec.nit_type) <> UPPER(l_master_nit_rec.nit_type)) OR
394: (p_nit_rec.verifying_digit <> l_master_nit_rec.verifying_digit) THEN
395:
396: FND_FILE.PUT_LINE(FND_FILE.log,'in the conditoin l_nit valid and p_nit_rec.nit <> l_master_nit_rec.nit');
397:
398:
399: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_MASTER_NIT_MISMATCH');
400: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
401: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
402: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
403: l_message_text := FND_MESSAGE.GET;
404: Insert_Error_Rec(l_message_text);
405: FND_FILE.PUT_LINE(FND_FILE.log,'inserted in insert_error_rec');
406: l_nit_valid := FALSE;
407: END IF;
408: END IF;
409:
407: END IF;
408: END IF;
409:
410: RETURN(l_nit_valid);
411: FND_FILE.PUT_LINE(FND_FILE.log,'Returning from Validate NIT');
412: EXCEPTION
413: WHEN no_data_found THEN
414: NULL;
415:
415:
416: WHEN others THEN
417: g_error_code := SQLCODE;
418: g_error_text := SUBSTR(SQLERRM,1,240);
419: FND_FILE.PUT_LINE(FND_FILE.log,'Validate_NIT:'|| g_error_text);
420: RAISE;
421:
422: END Validate_NIT;
423:
496: And imr.je_header_id = p_journal_rec.je_header_id
497: And imr.je_line_num = p_journal_rec.je_line_num;
498: Exception
499: When Others Then
500: Fnd_file.Put_Line(Fnd_file.log, 'Exception occured in the Select Statement');
501: Null;
502: End;
503: If l_entity_code = 'MANUAL' Then
504: l_flag := 1;
653: EXCEPTION
654: WHEN others THEN
655: g_error_code := SQLCODE;
656: g_error_text := SUBSTR(SQLERRM,1,240);
657: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_GL_trx:'|| g_error_text);
658: RAISE;
659:
660: END Generate_GL_trx;
661:
926: p_journal_rec.ext_nit
927: INTO g_gl_je_rec
928: FROM DUAL;
929:
930: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx : Begin ');
931:
932: FOR ap_trx IN ap_detail_lines LOOP
933: l_err_flag := l_err_flag + 1;
934: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx : After ap_trx cursor call : ' ||ap_trx.source_table);
930: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx : Begin ');
931:
932: FOR ap_trx IN ap_detail_lines LOOP
933: l_err_flag := l_err_flag + 1;
934: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx : After ap_trx cursor call : ' ||ap_trx.source_table);
935: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx :Dist ID' ||to_char(ap_trx.trx_dist_id));
936: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx :i Trx ID' ||to_char(ap_trx.trx_hdr_id));
937: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Credit Amount : ' ||ap_trx.ACCOUNTED_CR); --Bug 16036092
938: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Debit Amount :' ||to_char(ap_trx.ACCOUNTED_DR)); --Bug 16036092
931:
932: FOR ap_trx IN ap_detail_lines LOOP
933: l_err_flag := l_err_flag + 1;
934: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx : After ap_trx cursor call : ' ||ap_trx.source_table);
935: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx :Dist ID' ||to_char(ap_trx.trx_dist_id));
936: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx :i Trx ID' ||to_char(ap_trx.trx_hdr_id));
937: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Credit Amount : ' ||ap_trx.ACCOUNTED_CR); --Bug 16036092
938: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Debit Amount :' ||to_char(ap_trx.ACCOUNTED_DR)); --Bug 16036092
939: FND_FILE.PUT_LINE(FND_FILE.log,'Transaction Number :' ||to_char(ap_trx.TRX_NUMBER_C)); --Bug 16036092
932: FOR ap_trx IN ap_detail_lines LOOP
933: l_err_flag := l_err_flag + 1;
934: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx : After ap_trx cursor call : ' ||ap_trx.source_table);
935: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx :Dist ID' ||to_char(ap_trx.trx_dist_id));
936: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx :i Trx ID' ||to_char(ap_trx.trx_hdr_id));
937: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Credit Amount : ' ||ap_trx.ACCOUNTED_CR); --Bug 16036092
938: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Debit Amount :' ||to_char(ap_trx.ACCOUNTED_DR)); --Bug 16036092
939: FND_FILE.PUT_LINE(FND_FILE.log,'Transaction Number :' ||to_char(ap_trx.TRX_NUMBER_C)); --Bug 16036092
940: FND_FILE.PUT_LINE(FND_FILE.log,'Upgrade Batch Id : ' ||to_char(ap_trx.UPG_BATCH_ID)); --Bug 16036092
933: l_err_flag := l_err_flag + 1;
934: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx : After ap_trx cursor call : ' ||ap_trx.source_table);
935: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx :Dist ID' ||to_char(ap_trx.trx_dist_id));
936: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx :i Trx ID' ||to_char(ap_trx.trx_hdr_id));
937: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Credit Amount : ' ||ap_trx.ACCOUNTED_CR); --Bug 16036092
938: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Debit Amount :' ||to_char(ap_trx.ACCOUNTED_DR)); --Bug 16036092
939: FND_FILE.PUT_LINE(FND_FILE.log,'Transaction Number :' ||to_char(ap_trx.TRX_NUMBER_C)); --Bug 16036092
940: FND_FILE.PUT_LINE(FND_FILE.log,'Upgrade Batch Id : ' ||to_char(ap_trx.UPG_BATCH_ID)); --Bug 16036092
941: FND_FILE.PUT_LINE(FND_FILE.log,'Credit Amount : ' ||ap_trx.ENTERED_CR); --Bug 16036092
934: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx : After ap_trx cursor call : ' ||ap_trx.source_table);
935: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx :Dist ID' ||to_char(ap_trx.trx_dist_id));
936: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx :i Trx ID' ||to_char(ap_trx.trx_hdr_id));
937: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Credit Amount : ' ||ap_trx.ACCOUNTED_CR); --Bug 16036092
938: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Debit Amount :' ||to_char(ap_trx.ACCOUNTED_DR)); --Bug 16036092
939: FND_FILE.PUT_LINE(FND_FILE.log,'Transaction Number :' ||to_char(ap_trx.TRX_NUMBER_C)); --Bug 16036092
940: FND_FILE.PUT_LINE(FND_FILE.log,'Upgrade Batch Id : ' ||to_char(ap_trx.UPG_BATCH_ID)); --Bug 16036092
941: FND_FILE.PUT_LINE(FND_FILE.log,'Credit Amount : ' ||ap_trx.ENTERED_CR); --Bug 16036092
942: FND_FILE.PUT_LINE(FND_FILE.log,'Debit Amount :' ||to_char(ap_trx.ENTERED_DR)); --Bug 16036092
935: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx :Dist ID' ||to_char(ap_trx.trx_dist_id));
936: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx :i Trx ID' ||to_char(ap_trx.trx_hdr_id));
937: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Credit Amount : ' ||ap_trx.ACCOUNTED_CR); --Bug 16036092
938: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Debit Amount :' ||to_char(ap_trx.ACCOUNTED_DR)); --Bug 16036092
939: FND_FILE.PUT_LINE(FND_FILE.log,'Transaction Number :' ||to_char(ap_trx.TRX_NUMBER_C)); --Bug 16036092
940: FND_FILE.PUT_LINE(FND_FILE.log,'Upgrade Batch Id : ' ||to_char(ap_trx.UPG_BATCH_ID)); --Bug 16036092
941: FND_FILE.PUT_LINE(FND_FILE.log,'Credit Amount : ' ||ap_trx.ENTERED_CR); --Bug 16036092
942: FND_FILE.PUT_LINE(FND_FILE.log,'Debit Amount :' ||to_char(ap_trx.ENTERED_DR)); --Bug 16036092
943: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Class Code :' ||ap_trx.ACCT_LINE_TYPE); --Bug 16036092
936: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx :i Trx ID' ||to_char(ap_trx.trx_hdr_id));
937: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Credit Amount : ' ||ap_trx.ACCOUNTED_CR); --Bug 16036092
938: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Debit Amount :' ||to_char(ap_trx.ACCOUNTED_DR)); --Bug 16036092
939: FND_FILE.PUT_LINE(FND_FILE.log,'Transaction Number :' ||to_char(ap_trx.TRX_NUMBER_C)); --Bug 16036092
940: FND_FILE.PUT_LINE(FND_FILE.log,'Upgrade Batch Id : ' ||to_char(ap_trx.UPG_BATCH_ID)); --Bug 16036092
941: FND_FILE.PUT_LINE(FND_FILE.log,'Credit Amount : ' ||ap_trx.ENTERED_CR); --Bug 16036092
942: FND_FILE.PUT_LINE(FND_FILE.log,'Debit Amount :' ||to_char(ap_trx.ENTERED_DR)); --Bug 16036092
943: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Class Code :' ||ap_trx.ACCT_LINE_TYPE); --Bug 16036092
944:
937: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Credit Amount : ' ||ap_trx.ACCOUNTED_CR); --Bug 16036092
938: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Debit Amount :' ||to_char(ap_trx.ACCOUNTED_DR)); --Bug 16036092
939: FND_FILE.PUT_LINE(FND_FILE.log,'Transaction Number :' ||to_char(ap_trx.TRX_NUMBER_C)); --Bug 16036092
940: FND_FILE.PUT_LINE(FND_FILE.log,'Upgrade Batch Id : ' ||to_char(ap_trx.UPG_BATCH_ID)); --Bug 16036092
941: FND_FILE.PUT_LINE(FND_FILE.log,'Credit Amount : ' ||ap_trx.ENTERED_CR); --Bug 16036092
942: FND_FILE.PUT_LINE(FND_FILE.log,'Debit Amount :' ||to_char(ap_trx.ENTERED_DR)); --Bug 16036092
943: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Class Code :' ||ap_trx.ACCT_LINE_TYPE); --Bug 16036092
944:
945: g_nit_rec := NULL;
938: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Debit Amount :' ||to_char(ap_trx.ACCOUNTED_DR)); --Bug 16036092
939: FND_FILE.PUT_LINE(FND_FILE.log,'Transaction Number :' ||to_char(ap_trx.TRX_NUMBER_C)); --Bug 16036092
940: FND_FILE.PUT_LINE(FND_FILE.log,'Upgrade Batch Id : ' ||to_char(ap_trx.UPG_BATCH_ID)); --Bug 16036092
941: FND_FILE.PUT_LINE(FND_FILE.log,'Credit Amount : ' ||ap_trx.ENTERED_CR); --Bug 16036092
942: FND_FILE.PUT_LINE(FND_FILE.log,'Debit Amount :' ||to_char(ap_trx.ENTERED_DR)); --Bug 16036092
943: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Class Code :' ||ap_trx.ACCT_LINE_TYPE); --Bug 16036092
944:
945: g_nit_rec := NULL;
946: l_supplier_num := NULL;
939: FND_FILE.PUT_LINE(FND_FILE.log,'Transaction Number :' ||to_char(ap_trx.TRX_NUMBER_C)); --Bug 16036092
940: FND_FILE.PUT_LINE(FND_FILE.log,'Upgrade Batch Id : ' ||to_char(ap_trx.UPG_BATCH_ID)); --Bug 16036092
941: FND_FILE.PUT_LINE(FND_FILE.log,'Credit Amount : ' ||ap_trx.ENTERED_CR); --Bug 16036092
942: FND_FILE.PUT_LINE(FND_FILE.log,'Debit Amount :' ||to_char(ap_trx.ENTERED_DR)); --Bug 16036092
943: FND_FILE.PUT_LINE(FND_FILE.log,'Acc Class Code :' ||ap_trx.ACCT_LINE_TYPE); --Bug 16036092
944:
945: g_nit_rec := NULL;
946: l_supplier_num := NULL;
947:
944:
945: g_nit_rec := NULL;
946: l_supplier_num := NULL;
947:
948: FND_FILE.PUT_LINE(FND_FILE.log,'Invoice Distribution ID '||ap_trx.trx_dist_id);
949: FND_FILE.PUT_LINE(FND_FILE.log,'Invoice ID '||ap_trx.trx_hdr_id);
950:
951: IF (ap_trx.source_table = 'AP_INV_DIST' OR (ap_trx.source_table = 'AP_INVOICE_DISTRIBUTIONS' AND ap_trx.UPG_BATCH_ID IS NOT NULL )) THEN
952: FND_FILE.PUT_LINE(FND_FILE.log,'Source table is AP_INV_DIST');
945: g_nit_rec := NULL;
946: l_supplier_num := NULL;
947:
948: FND_FILE.PUT_LINE(FND_FILE.log,'Invoice Distribution ID '||ap_trx.trx_dist_id);
949: FND_FILE.PUT_LINE(FND_FILE.log,'Invoice ID '||ap_trx.trx_hdr_id);
950:
951: IF (ap_trx.source_table = 'AP_INV_DIST' OR (ap_trx.source_table = 'AP_INVOICE_DISTRIBUTIONS' AND ap_trx.UPG_BATCH_ID IS NOT NULL )) THEN
952: FND_FILE.PUT_LINE(FND_FILE.log,'Source table is AP_INV_DIST');
953: BEGIN
948: FND_FILE.PUT_LINE(FND_FILE.log,'Invoice Distribution ID '||ap_trx.trx_dist_id);
949: FND_FILE.PUT_LINE(FND_FILE.log,'Invoice ID '||ap_trx.trx_hdr_id);
950:
951: IF (ap_trx.source_table = 'AP_INV_DIST' OR (ap_trx.source_table = 'AP_INVOICE_DISTRIBUTIONS' AND ap_trx.UPG_BATCH_ID IS NOT NULL )) THEN
952: FND_FILE.PUT_LINE(FND_FILE.log,'Source table is AP_INV_DIST');
953: BEGIN
954: SELECT DECODE(ap_trx.acct_line_type,'LIABILITY',NULL,NVL(global_attribute2,NULL)), invoice_line_number
955: INTO l_supplier_num, l_invoice_line_number
956: FROM ap_invoice_distributions_all apida
963: WHERE to_ledger_id = g_parameter_rec.set_of_books_id));*/
964: EXCEPTION
965: WHEN OTHERS THEN
966: --l_supplier_num := NULL;
967: FND_FILE.PUT_LINE(FND_FILE.log,'INSIDE EXCEPTION '||SQLERRM);
968: END;
969: /* ER 9435028 changes start*/
970: IF(ap_trx.trx_source in('SelfService','XpenseXpress') AND ap_trx.trx_type in ('EXPENSE REPORT','PAYMENT REQUEST')) THEN
971: FND_FILE.PUT_LINE(FND_FILE.log,'Deriving Merchant NIT information');
967: FND_FILE.PUT_LINE(FND_FILE.log,'INSIDE EXCEPTION '||SQLERRM);
968: END;
969: /* ER 9435028 changes start*/
970: IF(ap_trx.trx_source in('SelfService','XpenseXpress') AND ap_trx.trx_type in ('EXPENSE REPORT','PAYMENT REQUEST')) THEN
971: FND_FILE.PUT_LINE(FND_FILE.log,'Deriving Merchant NIT information');
972: BEGIN
973: SELECT trim(merchant_taxpayer_id), trim(merchant_name)
974: INTO l_nit, l_nit_name
975: FROM ap_invoice_lines_all lines
977: AND lines.line_number = l_invoice_line_number;
978:
979: EXCEPTION
980: WHEN OTHERS THEN
981: FND_FILE.PUT_LINE(FND_FILE.log,'INSIDE EXCEPTION of Deriving Merchant NIT '||SQLERRM);
982: END;
983:
984: END IF;
985: /* ER 9435028 changes end*/
985: /* ER 9435028 changes end*/
986:
987: END IF;
988:
989: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx : After ap_trx cursor call : ' ||l_supplier_num);
990: FND_FILE.PUT_LINE(FND_FILE.log,'After ap_trx cursor call : merchant_taxpayer_id - ' ||l_nit);
991: FND_FILE.PUT_LINE(FND_FILE.log,'After ap_trx cursor call : merchant_name - ' ||l_nit_name);
992:
993: /* ER 9435028 changes start*/
986:
987: END IF;
988:
989: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx : After ap_trx cursor call : ' ||l_supplier_num);
990: FND_FILE.PUT_LINE(FND_FILE.log,'After ap_trx cursor call : merchant_taxpayer_id - ' ||l_nit);
991: FND_FILE.PUT_LINE(FND_FILE.log,'After ap_trx cursor call : merchant_name - ' ||l_nit_name);
992:
993: /* ER 9435028 changes start*/
994: IF(ap_trx.trx_source in('SelfService','XpenseXpress') AND ap_trx.trx_type in ('EXPENSE REPORT','PAYMENT REQUEST')) THEN
987: END IF;
988:
989: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx : After ap_trx cursor call : ' ||l_supplier_num);
990: FND_FILE.PUT_LINE(FND_FILE.log,'After ap_trx cursor call : merchant_taxpayer_id - ' ||l_nit);
991: FND_FILE.PUT_LINE(FND_FILE.log,'After ap_trx cursor call : merchant_name - ' ||l_nit_name);
992:
993: /* ER 9435028 changes start*/
994: IF(ap_trx.trx_source in('SelfService','XpenseXpress') AND ap_trx.trx_type in ('EXPENSE REPORT','PAYMENT REQUEST')) THEN
995: IF l_nit IS NOT NULL THEN
992:
993: /* ER 9435028 changes start*/
994: IF(ap_trx.trx_source in('SelfService','XpenseXpress') AND ap_trx.trx_type in ('EXPENSE REPORT','PAYMENT REQUEST')) THEN
995: IF l_nit IS NOT NULL THEN
996: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx : Merchant NIT IS NOT NULL ');
997:
998: BEGIN
999: FND_FILE.PUT_LINE(FND_FILE.log,'Deriving Merchant NIT information ');
1000: IF INSTR(l_nit,'-') > 0 THEN
995: IF l_nit IS NOT NULL THEN
996: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx : Merchant NIT IS NOT NULL ');
997:
998: BEGIN
999: FND_FILE.PUT_LINE(FND_FILE.log,'Deriving Merchant NIT information ');
1000: IF INSTR(l_nit,'-') > 0 THEN
1001: BEGIN
1002: FND_FILE.PUT_LINE(FND_FILE.log,'Merchant NIT has validation digit ');
1003: SELECT jlcgn.nit_id
998: BEGIN
999: FND_FILE.PUT_LINE(FND_FILE.log,'Deriving Merchant NIT information ');
1000: IF INSTR(l_nit,'-') > 0 THEN
1001: BEGIN
1002: FND_FILE.PUT_LINE(FND_FILE.log,'Merchant NIT has validation digit ');
1003: SELECT jlcgn.nit_id
1004: INTO g_nit_rec.nit_id
1005: FROM jl_co_gl_nits jlcgn
1006: WHERE jlcgn.nit = substr(l_nit,1,instr(l_nit,'-')-1);
1006: WHERE jlcgn.nit = substr(l_nit,1,instr(l_nit,'-')-1);
1007:
1008: EXCEPTION
1009: WHEN OTHERS THEN
1010: FND_FILE.PUT_LINE(FND_FILE.log,'Exception while extracting NIT_ID from jl_co_gl_nits '||SQLERRM);
1011: END;
1012:
1013: BEGIN
1014: SELECT substr(l_nit,1,instr(l_nit,'-')-1),
1022: FROM dual;
1023:
1024: EXCEPTION
1025: WHEN OTHERS THEN
1026: FND_FILE.PUT_LINE(FND_FILE.log,'Exception while inserting NIT information into g_nit_rec '||SQLERRM);
1027: END;
1028:
1029: ELSE
1030: BEGIN
1027: END;
1028:
1029: ELSE
1030: BEGIN
1031: FND_FILE.PUT_LINE(FND_FILE.log,'Merchant NIT do not have validation digit ');
1032: SELECT jlcgn.nit_id
1033: INTO g_nit_rec.nit_id
1034: FROM jl_co_gl_nits jlcgn
1035: WHERE jlcgn.nit = l_nit;
1035: WHERE jlcgn.nit = l_nit;
1036:
1037: EXCEPTION
1038: WHEN OTHERS THEN
1039: FND_FILE.PUT_LINE(FND_FILE.log,'Exception while extracting NIT_ID from jl_co_gl_nits '||SQLERRM);
1040: END;
1041:
1042: BEGIN
1043: SELECT l_nit,
1048: g_nit_rec.nit_type
1049: FROM dual;
1050: EXCEPTION
1051: WHEN OTHERS THEN
1052: FND_FILE.PUT_LINE(FND_FILE.log,'Exception while inserting NIT information into g_nit_rec '||SQLERRM);
1053: END;
1054:
1055:
1056: END IF;
1056: END IF;
1057:
1058: EXCEPTION
1059: WHEN OTHERS THEN
1060: FND_FILE.PUT_LINE(FND_FILE.log,'INSIDE Deriving Verifying digit of Merchant NIT EXCEPTION '||SQLERRM);
1061: END;
1062: END IF;
1063: /* ER 9435028 changes end*/
1064:
1063: /* ER 9435028 changes end*/
1064:
1065:
1066: ELSE IF l_supplier_num IS NULL THEN
1067: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx : l_supplier_num IS NULL ');
1068: SELECT jlcgn.nit_id,
1069: REPLACE(povapf.num_1099,'-'),
1070: povapf.vendor_name,
1071: SUBSTR(povapf.global_attribute10,1,30),
1091: AND jlcgn.nit(+) = REPLACE(povapf.num_1099,'-') ;
1092:
1093: ELSE
1094:
1095: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_ap_trx : l_supplier_num IS NOT NULL ');
1096: SELECT jlcgn.nit_id,
1097: REPLACE(povapf.num_1099,'-'),
1098: povapf.vendor_name,
1099: SUBSTR(povapf.global_attribute10,1,30),
1122: END IF;
1123:
1124: g_gl_je_rec.identifier := l_supplier_num;
1125:
1126: FND_FILE.PUT_LINE(FND_FILE.log,'Before Validate Call for AP : JE Line NUM, Header_id : '||to_char(p_journal_rec.je_line_num)||'-'||to_char(p_journal_rec.je_header_id));
1127: IF Validate_NIT(g_nit_rec, 'JL_CO_GL_SUPPLIER') THEN
1128: FND_FILE.PUT_LINE(FND_FILE.log,'After AP NIT Validate : JE Line NUM, Header_id : '||to_char(p_journal_rec.je_line_num)||'-'||to_char(p_journal_rec.je_header_id));
1129: FND_FILE.PUT_LINE(FND_FILE.log,'CCID, account code : '||to_char(p_journal_rec.code_combination_id)
1130: ||'-'||p_journal_rec.account_code);
1124: g_gl_je_rec.identifier := l_supplier_num;
1125:
1126: FND_FILE.PUT_LINE(FND_FILE.log,'Before Validate Call for AP : JE Line NUM, Header_id : '||to_char(p_journal_rec.je_line_num)||'-'||to_char(p_journal_rec.je_header_id));
1127: IF Validate_NIT(g_nit_rec, 'JL_CO_GL_SUPPLIER') THEN
1128: FND_FILE.PUT_LINE(FND_FILE.log,'After AP NIT Validate : JE Line NUM, Header_id : '||to_char(p_journal_rec.je_line_num)||'-'||to_char(p_journal_rec.je_header_id));
1129: FND_FILE.PUT_LINE(FND_FILE.log,'CCID, account code : '||to_char(p_journal_rec.code_combination_id)
1130: ||'-'||p_journal_rec.account_code);
1131: FND_FILE.PUT_LINE(FND_FILE.log,' : '||g_nit_rec.nit||'-'||g_nit_rec.nit_name);
1132: FND_FILE.PUT_LINE(FND_FILE.log,'AP : acc_dr, acc_cr,ent_dr, ent_dr : '
1125:
1126: FND_FILE.PUT_LINE(FND_FILE.log,'Before Validate Call for AP : JE Line NUM, Header_id : '||to_char(p_journal_rec.je_line_num)||'-'||to_char(p_journal_rec.je_header_id));
1127: IF Validate_NIT(g_nit_rec, 'JL_CO_GL_SUPPLIER') THEN
1128: FND_FILE.PUT_LINE(FND_FILE.log,'After AP NIT Validate : JE Line NUM, Header_id : '||to_char(p_journal_rec.je_line_num)||'-'||to_char(p_journal_rec.je_header_id));
1129: FND_FILE.PUT_LINE(FND_FILE.log,'CCID, account code : '||to_char(p_journal_rec.code_combination_id)
1130: ||'-'||p_journal_rec.account_code);
1131: FND_FILE.PUT_LINE(FND_FILE.log,' : '||g_nit_rec.nit||'-'||g_nit_rec.nit_name);
1132: FND_FILE.PUT_LINE(FND_FILE.log,'AP : acc_dr, acc_cr,ent_dr, ent_dr : '
1133: ||to_char(ap_trx.accounted_dr)||'-'||to_char(ap_trx.accounted_cr)
1127: IF Validate_NIT(g_nit_rec, 'JL_CO_GL_SUPPLIER') THEN
1128: FND_FILE.PUT_LINE(FND_FILE.log,'After AP NIT Validate : JE Line NUM, Header_id : '||to_char(p_journal_rec.je_line_num)||'-'||to_char(p_journal_rec.je_header_id));
1129: FND_FILE.PUT_LINE(FND_FILE.log,'CCID, account code : '||to_char(p_journal_rec.code_combination_id)
1130: ||'-'||p_journal_rec.account_code);
1131: FND_FILE.PUT_LINE(FND_FILE.log,' : '||g_nit_rec.nit||'-'||g_nit_rec.nit_name);
1132: FND_FILE.PUT_LINE(FND_FILE.log,'AP : acc_dr, acc_cr,ent_dr, ent_dr : '
1133: ||to_char(ap_trx.accounted_dr)||'-'||to_char(ap_trx.accounted_cr)
1134: ||'-'||to_char(ap_trx.entered_dr)||'-'||to_char(ap_trx.entered_cr));
1135:
1128: FND_FILE.PUT_LINE(FND_FILE.log,'After AP NIT Validate : JE Line NUM, Header_id : '||to_char(p_journal_rec.je_line_num)||'-'||to_char(p_journal_rec.je_header_id));
1129: FND_FILE.PUT_LINE(FND_FILE.log,'CCID, account code : '||to_char(p_journal_rec.code_combination_id)
1130: ||'-'||p_journal_rec.account_code);
1131: FND_FILE.PUT_LINE(FND_FILE.log,' : '||g_nit_rec.nit||'-'||g_nit_rec.nit_name);
1132: FND_FILE.PUT_LINE(FND_FILE.log,'AP : acc_dr, acc_cr,ent_dr, ent_dr : '
1133: ||to_char(ap_trx.accounted_dr)||'-'||to_char(ap_trx.accounted_cr)
1134: ||'-'||to_char(ap_trx.entered_dr)||'-'||to_char(ap_trx.entered_cr));
1135:
1136: INSERT INTO jl_co_gl_trx (transaction_id,
1250: WHERE jlcgce.je_header_id = p_journal_rec.je_header_id
1251: AND jlcgce.je_line_num = p_journal_rec.je_line_num);
1252: EXCEPTION
1253: WHEN no_data_found THEN
1254: FND_FILE.PUT_LINE(FND_FILE.log,'no_data_found exception');
1255: NULL;
1256: END;
1257:
1258: IF NVL(g_error_exists,'FALSE') = 'TRUE' THEN
1263: AND EXISTS (SELECT 'Y'
1264: FROM jl_co_gl_trx jlcgt
1265: WHERE jlcgt.je_header_id = gljl.je_header_id
1266: AND jlcgt.je_line_num = gljl.je_line_num);
1267: FND_FILE.PUT_LINE(FND_FILE.log,'Delete jl_co_gl_trx');
1268: DELETE FROM jl_co_gl_trx jlcgt
1269: WHERE jlcgt.je_header_id = p_journal_rec.je_header_id
1270: AND jlcgt.je_line_num = p_journal_rec.je_line_num;
1271: END IF;
1272:
1273: COMMIT;
1274: --bug8499774
1275: IF l_err_flag = 0 THEN
1276: FND_FILE.PUT_LINE(FND_FILE.log,'Call Generate_GL_trx');
1277: Generate_GL_trx(g_journal_rec);
1278: END IF;
1279:
1280: EXCEPTION
1279:
1280: EXCEPTION
1281: WHEN no_data_found THEN
1282: -- import references don't exist or are summarized for journal
1283: FND_FILE.PUT_LINE(FND_FILE.log,'No data Call Generate_GL_trx');
1284: Generate_GL_trx(g_journal_rec); -- Create with NIT 0
1285:
1286: WHEN others THEN
1287: g_error_code := SQLCODE;
1285:
1286: WHEN others THEN
1287: g_error_code := SQLCODE;
1288: g_error_text := SUBSTR(SQLERRM,1,240);
1289: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_AP_trx:'|| g_error_text);
1290: RAISE;
1291:
1292: END Generate_AP_trx;
1293:
1368: AND cwo.po_distribution_id = podis.PO_DISTRIBUTION_ID
1369: AND podis.po_header_id = poha.po_header_id;
1370:
1371: BEGIN
1372: FND_FILE.PUT_LINE(FND_FILE.log,'Inside Generate PO transaction');
1373: g_error_exists := 'FALSE';
1374: g_nit_rec := NULL;
1375: g_gl_je_rec := NULL;
1376:
1374: g_nit_rec := NULL;
1375: g_gl_je_rec := NULL;
1376:
1377: IF p_journal_rec.category in ('Accrual','Receiving') THEN
1378: FND_FILE.PUT_LINE(FND_FILE.log,'Inside PO - 001');
1379:
1380: --BUG 9078068
1381: --Begin
1382: OPEN po_detail_lines;
1379:
1380: --BUG 9078068
1381: --Begin
1382: OPEN po_detail_lines;
1383: FND_FILE.PUT_LINE(FND_FILE.log,'Opened PO Cursor');
1384: FETCH po_detail_lines
1385: INTO g_nit_rec.nit_id,
1386: g_nit_rec.nit,
1387: g_nit_rec.nit_name,
1389: g_nit_rec.verifying_digit,
1390: g_gl_je_rec.identifier,
1391: g_gl_je_rec.je_header_id,
1392: g_gl_je_rec.je_line_num;
1393: FND_FILE.PUT_LINE(FND_FILE.log,'Fetched PO Cursor');
1394: CLOSE po_detail_lines;
1395: --End
1396:
1397: FND_FILE.PUT_LINE(FND_FILE.log,'Closed PO Cursor');
1393: FND_FILE.PUT_LINE(FND_FILE.log,'Fetched PO Cursor');
1394: CLOSE po_detail_lines;
1395: --End
1396:
1397: FND_FILE.PUT_LINE(FND_FILE.log,'Closed PO Cursor');
1398: FND_FILE.PUT_LINE(FND_FILE.log,'Inside PO Before Validate - 002');
1399:
1400: IF Validate_NIT(g_nit_rec, 'JL_CO_GL_SUPPLIER') THEN
1401: FND_FILE.PUT_LINE(FND_FILE.log,'Inside Validate');
1394: CLOSE po_detail_lines;
1395: --End
1396:
1397: FND_FILE.PUT_LINE(FND_FILE.log,'Closed PO Cursor');
1398: FND_FILE.PUT_LINE(FND_FILE.log,'Inside PO Before Validate - 002');
1399:
1400: IF Validate_NIT(g_nit_rec, 'JL_CO_GL_SUPPLIER') THEN
1401: FND_FILE.PUT_LINE(FND_FILE.log,'Inside Validate');
1402: INSERT INTO jl_co_gl_trx (transaction_id,
1397: FND_FILE.PUT_LINE(FND_FILE.log,'Closed PO Cursor');
1398: FND_FILE.PUT_LINE(FND_FILE.log,'Inside PO Before Validate - 002');
1399:
1400: IF Validate_NIT(g_nit_rec, 'JL_CO_GL_SUPPLIER') THEN
1401: FND_FILE.PUT_LINE(FND_FILE.log,'Inside Validate');
1402: INSERT INTO jl_co_gl_trx (transaction_id,
1403: process_id,
1404: set_of_books_id,
1405: code_combination_id,
1472: DECODE(sign(p_journal_rec.entered_cr),-1,
1473: NULL,p_journal_rec.entered_cr)) );
1474:
1475: BEGIN
1476: FND_FILE.PUT_LINE(FND_FILE.log,'Inside PO - 003');
1477: SELECT 'TRUE'
1478: INTO g_error_exists
1479: FROM DUAL
1480: WHERE EXISTS (SELECT '1'
1487: NULL;
1488: END;
1489:
1490: IF NVL(g_error_exists,'FALSE') = 'TRUE' THEN
1491: FND_FILE.PUT_LINE(FND_FILE.log,'Inside PO - 004.1');
1492: UPDATE gl_je_lines gljl
1493: SET co_processed_flag = 'N'
1494: WHERE gljl.je_header_id = p_journal_rec.je_header_id
1495: AND gljl.je_line_num = p_journal_rec.je_line_num
1502: WHERE jlcgt.je_header_id = p_journal_rec.je_header_id
1503: AND jlcgt.je_line_num = p_journal_rec.je_line_num;
1504:
1505: ELSE
1506: FND_FILE.PUT_LINE(FND_FILE.log,'Inside PO - 004.2');
1507: UPDATE gl_je_lines gljl
1508: SET co_processed_flag = 'Y'
1509: WHERE gljl.je_header_id = p_journal_rec.je_header_id
1510: AND gljl.je_line_num = p_journal_rec.je_line_num
1517: END IF;
1518: END IF;
1519:
1520: COMMIT;
1521: FND_FILE.PUT_LINE(FND_FILE.log,'Inside PO - 005');
1522:
1523: EXCEPTION
1524: WHEN no_data_found THEN
1525: FND_FILE.PUT_LINE(FND_FILE.log,'Inside PO - EXCEPTION no data found');
1521: FND_FILE.PUT_LINE(FND_FILE.log,'Inside PO - 005');
1522:
1523: EXCEPTION
1524: WHEN no_data_found THEN
1525: FND_FILE.PUT_LINE(FND_FILE.log,'Inside PO - EXCEPTION no data found');
1526: -- import references don't exist or are summarized for journal
1527: Generate_GL_trx(g_journal_rec); -- Create with NIT 0
1528:
1529: WHEN others THEN
1526: -- import references don't exist or are summarized for journal
1527: Generate_GL_trx(g_journal_rec); -- Create with NIT 0
1528:
1529: WHEN others THEN
1530: FND_FILE.PUT_LINE(FND_FILE.log,'Inside PO - EXCEPTION others');
1531: g_error_code := SQLCODE;
1532: g_error_text := SUBSTR(SQLERRM,1,240);
1533: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_PO_trx:'|| g_error_text);
1534: RAISE;
1529: WHEN others THEN
1530: FND_FILE.PUT_LINE(FND_FILE.log,'Inside PO - EXCEPTION others');
1531: g_error_code := SQLCODE;
1532: g_error_text := SUBSTR(SQLERRM,1,240);
1533: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_PO_trx:'|| g_error_text);
1534: RAISE;
1535:
1536: END Generate_PO_trx;
1537:
1544: g_error_exists := 'FALSE';
1545: g_nit_rec := NULL;
1546: g_gl_je_rec := NULL;
1547:
1548: FND_FILE.PUT_LINE(FND_FILE.log,'Executing Generate_11i_PO_trx procedure for category ' || p_journal_rec.category);
1549: IF p_journal_rec.category in ('Accrual','Receiving') THEN
1550:
1551: SELECT jlcgn.nit_id,
1552: REPLACE(povpapf.num_1099,'-'),
1579: WHERE poha.po_header_id = TO_NUMBER(p_journal_rec.ref_2)
1580: AND povpapf.vendor_id = poha.vendor_id
1581: AND REPLACE(povpapf.num_1099,'-') = jlcgn.nit(+);
1582:
1583: FND_FILE.PUT_LINE(FND_FILE.log,'Select successfull for 11i PO, executing Validate_NIT');
1584: IF Validate_NIT(g_nit_rec, 'JL_CO_GL_SUPPLIER') THEN
1585:
1586: INSERT INTO jl_co_gl_trx (
1587: transaction_id,
1655: NVL(DECODE(sign(p_journal_rec.entered_cr),
1656: 1,p_journal_rec.entered_cr,NULL),0)),
1657: DECODE(sign(p_journal_rec.entered_cr),-1,
1658: NULL,p_journal_rec.entered_cr)) );
1659: FND_FILE.PUT_LINE(FND_FILE.log,'11i PO, insered record into jl_co_gl_trx');
1660:
1661: END IF;
1662:
1663: END IF;
1663: END IF;
1664:
1665: COMMIT;
1666:
1667: FND_FILE.PUT_LINE(FND_FILE.log,'Ended Generate_11i_PO_trx procedure');
1668: EXCEPTION
1669: WHEN no_data_found THEN
1670: -- import references don't exist or are summarized for journal
1671: Generate_GL_trx(g_journal_rec); -- Create with NIT 0
1671: Generate_GL_trx(g_journal_rec); -- Create with NIT 0
1672: WHEN others THEN
1673: g_error_code := SQLCODE;
1674: g_error_text := SUBSTR(SQLERRM,1,240);
1675: FND_FILE.PUT_LINE(FND_FILE.log,'Generate__11i_PO_trx:'|| g_error_text);
1676: RAISE;
1677:
1678: END Generate_11i_PO_trx;
1679: -- Bug 16097573 End
1907: Generate_GL_trx(g_journal_rec); -- Create with NIT 0
1908: WHEN others THEN
1909: g_error_code := SQLCODE;
1910: g_error_text := SUBSTR(SQLERRM,1,240);
1911: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_AR_trx:'|| g_error_text);
1912: RAISE;
1913: END Generate_11i_AR_trx;
1914: -- Bug 16030118 End
1915:
1986:
1987: g_error_exists := 'FALSE';
1988: l_err_flag := 0;
1989:
1990: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_AR_trx(+)');
1991:
1992: SELECT p_journal_rec.je_header_id,
1993: p_journal_rec.je_line_num,
1994: p_journal_rec.ext_nit
1993: p_journal_rec.je_line_num,
1994: p_journal_rec.ext_nit
1995: INTO g_gl_je_rec
1996: FROM DUAL;
1997: FND_FILE.PUT_LINE(FND_FILE.log,'je_header_id, je_line_num : '||to_char(p_journal_rec.je_header_id)
1998: ||'-'||to_char(p_journal_rec.je_line_num));
1999:
2000: FND_FILE.PUT_LINE(FND_FILE.log,'Opening AR Cursor');
2001:
1996: FROM DUAL;
1997: FND_FILE.PUT_LINE(FND_FILE.log,'je_header_id, je_line_num : '||to_char(p_journal_rec.je_header_id)
1998: ||'-'||to_char(p_journal_rec.je_line_num));
1999:
2000: FND_FILE.PUT_LINE(FND_FILE.log,'Opening AR Cursor');
2001:
2002: FOR ar_trx IN ar_detail_lines LOOP
2003: FND_FILE.PUT_LINE(FND_FILE.log,'Inside AR Cursor');
2004: -- Bug 14283808 Start
1999:
2000: FND_FILE.PUT_LINE(FND_FILE.log,'Opening AR Cursor');
2001:
2002: FOR ar_trx IN ar_detail_lines LOOP
2003: FND_FILE.PUT_LINE(FND_FILE.log,'Inside AR Cursor');
2004: -- Bug 14283808 Start
2005: FND_FILE.PUT_LINE(FND_FILE.log,'Accounted Dr ' || ar_trx.accounted_dr);
2006: FND_FILE.PUT_LINE(FND_FILE.log,'Accounted Cr ' || ar_trx.accounted_cr);
2007: FND_FILE.PUT_LINE(FND_FILE.log,'Entered Dr ' || ar_trx.accounted_dr);
2001:
2002: FOR ar_trx IN ar_detail_lines LOOP
2003: FND_FILE.PUT_LINE(FND_FILE.log,'Inside AR Cursor');
2004: -- Bug 14283808 Start
2005: FND_FILE.PUT_LINE(FND_FILE.log,'Accounted Dr ' || ar_trx.accounted_dr);
2006: FND_FILE.PUT_LINE(FND_FILE.log,'Accounted Cr ' || ar_trx.accounted_cr);
2007: FND_FILE.PUT_LINE(FND_FILE.log,'Entered Dr ' || ar_trx.accounted_dr);
2008: FND_FILE.PUT_LINE(FND_FILE.log,'Entered Cr ' || ar_trx.accounted_cr);
2009: FND_FILE.PUT_LINE(FND_FILE.log,'Source Id Int 1 ' || ar_trx.source_id_int_1);
2002: FOR ar_trx IN ar_detail_lines LOOP
2003: FND_FILE.PUT_LINE(FND_FILE.log,'Inside AR Cursor');
2004: -- Bug 14283808 Start
2005: FND_FILE.PUT_LINE(FND_FILE.log,'Accounted Dr ' || ar_trx.accounted_dr);
2006: FND_FILE.PUT_LINE(FND_FILE.log,'Accounted Cr ' || ar_trx.accounted_cr);
2007: FND_FILE.PUT_LINE(FND_FILE.log,'Entered Dr ' || ar_trx.accounted_dr);
2008: FND_FILE.PUT_LINE(FND_FILE.log,'Entered Cr ' || ar_trx.accounted_cr);
2009: FND_FILE.PUT_LINE(FND_FILE.log,'Source Id Int 1 ' || ar_trx.source_id_int_1);
2010: FND_FILE.PUT_LINE(FND_FILE.log,'Transaction Number ' || ar_trx.transaction_number);
2003: FND_FILE.PUT_LINE(FND_FILE.log,'Inside AR Cursor');
2004: -- Bug 14283808 Start
2005: FND_FILE.PUT_LINE(FND_FILE.log,'Accounted Dr ' || ar_trx.accounted_dr);
2006: FND_FILE.PUT_LINE(FND_FILE.log,'Accounted Cr ' || ar_trx.accounted_cr);
2007: FND_FILE.PUT_LINE(FND_FILE.log,'Entered Dr ' || ar_trx.accounted_dr);
2008: FND_FILE.PUT_LINE(FND_FILE.log,'Entered Cr ' || ar_trx.accounted_cr);
2009: FND_FILE.PUT_LINE(FND_FILE.log,'Source Id Int 1 ' || ar_trx.source_id_int_1);
2010: FND_FILE.PUT_LINE(FND_FILE.log,'Transaction Number ' || ar_trx.transaction_number);
2011: FND_FILE.PUT_LINE(FND_FILE.log,'Entity Code ' || ar_trx.entity_code);
2004: -- Bug 14283808 Start
2005: FND_FILE.PUT_LINE(FND_FILE.log,'Accounted Dr ' || ar_trx.accounted_dr);
2006: FND_FILE.PUT_LINE(FND_FILE.log,'Accounted Cr ' || ar_trx.accounted_cr);
2007: FND_FILE.PUT_LINE(FND_FILE.log,'Entered Dr ' || ar_trx.accounted_dr);
2008: FND_FILE.PUT_LINE(FND_FILE.log,'Entered Cr ' || ar_trx.accounted_cr);
2009: FND_FILE.PUT_LINE(FND_FILE.log,'Source Id Int 1 ' || ar_trx.source_id_int_1);
2010: FND_FILE.PUT_LINE(FND_FILE.log,'Transaction Number ' || ar_trx.transaction_number);
2011: FND_FILE.PUT_LINE(FND_FILE.log,'Entity Code ' || ar_trx.entity_code);
2012: FND_FILE.PUT_LINE(FND_FILE.log,'Party ID ' || ar_trx.party_id);
2005: FND_FILE.PUT_LINE(FND_FILE.log,'Accounted Dr ' || ar_trx.accounted_dr);
2006: FND_FILE.PUT_LINE(FND_FILE.log,'Accounted Cr ' || ar_trx.accounted_cr);
2007: FND_FILE.PUT_LINE(FND_FILE.log,'Entered Dr ' || ar_trx.accounted_dr);
2008: FND_FILE.PUT_LINE(FND_FILE.log,'Entered Cr ' || ar_trx.accounted_cr);
2009: FND_FILE.PUT_LINE(FND_FILE.log,'Source Id Int 1 ' || ar_trx.source_id_int_1);
2010: FND_FILE.PUT_LINE(FND_FILE.log,'Transaction Number ' || ar_trx.transaction_number);
2011: FND_FILE.PUT_LINE(FND_FILE.log,'Entity Code ' || ar_trx.entity_code);
2012: FND_FILE.PUT_LINE(FND_FILE.log,'Party ID ' || ar_trx.party_id);
2013: FND_FILE.PUT_LINE(FND_FILE.log,'Event Class code ' || ar_trx.event_class_code);
2006: FND_FILE.PUT_LINE(FND_FILE.log,'Accounted Cr ' || ar_trx.accounted_cr);
2007: FND_FILE.PUT_LINE(FND_FILE.log,'Entered Dr ' || ar_trx.accounted_dr);
2008: FND_FILE.PUT_LINE(FND_FILE.log,'Entered Cr ' || ar_trx.accounted_cr);
2009: FND_FILE.PUT_LINE(FND_FILE.log,'Source Id Int 1 ' || ar_trx.source_id_int_1);
2010: FND_FILE.PUT_LINE(FND_FILE.log,'Transaction Number ' || ar_trx.transaction_number);
2011: FND_FILE.PUT_LINE(FND_FILE.log,'Entity Code ' || ar_trx.entity_code);
2012: FND_FILE.PUT_LINE(FND_FILE.log,'Party ID ' || ar_trx.party_id);
2013: FND_FILE.PUT_LINE(FND_FILE.log,'Event Class code ' || ar_trx.event_class_code);
2014: -- Bug 14283808 End
2007: FND_FILE.PUT_LINE(FND_FILE.log,'Entered Dr ' || ar_trx.accounted_dr);
2008: FND_FILE.PUT_LINE(FND_FILE.log,'Entered Cr ' || ar_trx.accounted_cr);
2009: FND_FILE.PUT_LINE(FND_FILE.log,'Source Id Int 1 ' || ar_trx.source_id_int_1);
2010: FND_FILE.PUT_LINE(FND_FILE.log,'Transaction Number ' || ar_trx.transaction_number);
2011: FND_FILE.PUT_LINE(FND_FILE.log,'Entity Code ' || ar_trx.entity_code);
2012: FND_FILE.PUT_LINE(FND_FILE.log,'Party ID ' || ar_trx.party_id);
2013: FND_FILE.PUT_LINE(FND_FILE.log,'Event Class code ' || ar_trx.event_class_code);
2014: -- Bug 14283808 End
2015: l_err_flag := l_err_flag + 1;
2008: FND_FILE.PUT_LINE(FND_FILE.log,'Entered Cr ' || ar_trx.accounted_cr);
2009: FND_FILE.PUT_LINE(FND_FILE.log,'Source Id Int 1 ' || ar_trx.source_id_int_1);
2010: FND_FILE.PUT_LINE(FND_FILE.log,'Transaction Number ' || ar_trx.transaction_number);
2011: FND_FILE.PUT_LINE(FND_FILE.log,'Entity Code ' || ar_trx.entity_code);
2012: FND_FILE.PUT_LINE(FND_FILE.log,'Party ID ' || ar_trx.party_id);
2013: FND_FILE.PUT_LINE(FND_FILE.log,'Event Class code ' || ar_trx.event_class_code);
2014: -- Bug 14283808 End
2015: l_err_flag := l_err_flag + 1;
2016: g_nit_rec := NULL;
2009: FND_FILE.PUT_LINE(FND_FILE.log,'Source Id Int 1 ' || ar_trx.source_id_int_1);
2010: FND_FILE.PUT_LINE(FND_FILE.log,'Transaction Number ' || ar_trx.transaction_number);
2011: FND_FILE.PUT_LINE(FND_FILE.log,'Entity Code ' || ar_trx.entity_code);
2012: FND_FILE.PUT_LINE(FND_FILE.log,'Party ID ' || ar_trx.party_id);
2013: FND_FILE.PUT_LINE(FND_FILE.log,'Event Class code ' || ar_trx.event_class_code);
2014: -- Bug 14283808 End
2015: l_err_flag := l_err_flag + 1;
2016: g_nit_rec := NULL;
2017: l_customer_num := NULL;
2029: l_acc_cr := ar_trx.accounted_cr; --bug 7169346
2030: END IF;
2031:
2032: IF ( ar_trx.event_class_code = 'MISC_RECEIPT' ) THEN
2033: FND_FILE.PUT_LINE(FND_FILE.log,'Event Class Code IS Misc Receipts');
2034: FND_FILE.PUT_LINE(FND_FILE.log,'Misc Receipts Query(+)');
2035: SELECT nit.nit_id,
2036: -- Bug 14283808 Start
2037: substr(party.jgzz_fiscal_code,1,decode(instr(party.jgzz_fiscal_code,'-'),0,length(party.jgzz_fiscal_code)-1,instr(party.jgzz_fiscal_code,'-')-1)), --bug9078068
2030: END IF;
2031:
2032: IF ( ar_trx.event_class_code = 'MISC_RECEIPT' ) THEN
2033: FND_FILE.PUT_LINE(FND_FILE.log,'Event Class Code IS Misc Receipts');
2034: FND_FILE.PUT_LINE(FND_FILE.log,'Misc Receipts Query(+)');
2035: SELECT nit.nit_id,
2036: -- Bug 14283808 Start
2037: substr(party.jgzz_fiscal_code,1,decode(instr(party.jgzz_fiscal_code,'-'),0,length(party.jgzz_fiscal_code)-1,instr(party.jgzz_fiscal_code,'-')-1)), --bug9078068
2038: -- Bug 14283808 End
2067: -- Bug 14283808 Start
2068: AND BankOrgProfile.party_id = party.party_id
2069: AND SYSDATE BETWEEN TRUNC(BankOrgProfile.effective_start_date) AND NVL(TRUNC(BankOrgProfile.effective_end_date), SYSDATE+1)
2070: AND nit.nit = substr(party.jgzz_fiscal_code,1,decode(instr(party.jgzz_fiscal_code,'-'),0,length(party.jgzz_fiscal_code)-1, instr(party.jgzz_fiscal_code,'-')-1));
2071: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_id ' || g_nit_rec.nit_id);
2072: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit ' || g_nit_rec.nit);
2073: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_name ' || g_nit_rec.nit_name);
2074: FND_FILE.PUT_LINE(FND_FILE.log,'l_branch_country_code ' || l_branch_country_code);
2075: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.verifying_digit ' || g_nit_rec.verifying_digit);
2068: AND BankOrgProfile.party_id = party.party_id
2069: AND SYSDATE BETWEEN TRUNC(BankOrgProfile.effective_start_date) AND NVL(TRUNC(BankOrgProfile.effective_end_date), SYSDATE+1)
2070: AND nit.nit = substr(party.jgzz_fiscal_code,1,decode(instr(party.jgzz_fiscal_code,'-'),0,length(party.jgzz_fiscal_code)-1, instr(party.jgzz_fiscal_code,'-')-1));
2071: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_id ' || g_nit_rec.nit_id);
2072: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit ' || g_nit_rec.nit);
2073: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_name ' || g_nit_rec.nit_name);
2074: FND_FILE.PUT_LINE(FND_FILE.log,'l_branch_country_code ' || l_branch_country_code);
2075: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.verifying_digit ' || g_nit_rec.verifying_digit);
2076: FND_FILE.PUT_LINE(FND_FILE.log,'g_gl_je_rec.identifier ' || g_gl_je_rec.identifier);
2069: AND SYSDATE BETWEEN TRUNC(BankOrgProfile.effective_start_date) AND NVL(TRUNC(BankOrgProfile.effective_end_date), SYSDATE+1)
2070: AND nit.nit = substr(party.jgzz_fiscal_code,1,decode(instr(party.jgzz_fiscal_code,'-'),0,length(party.jgzz_fiscal_code)-1, instr(party.jgzz_fiscal_code,'-')-1));
2071: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_id ' || g_nit_rec.nit_id);
2072: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit ' || g_nit_rec.nit);
2073: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_name ' || g_nit_rec.nit_name);
2074: FND_FILE.PUT_LINE(FND_FILE.log,'l_branch_country_code ' || l_branch_country_code);
2075: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.verifying_digit ' || g_nit_rec.verifying_digit);
2076: FND_FILE.PUT_LINE(FND_FILE.log,'g_gl_je_rec.identifier ' || g_gl_je_rec.identifier);
2077: -- Bug 14283808 End
2070: AND nit.nit = substr(party.jgzz_fiscal_code,1,decode(instr(party.jgzz_fiscal_code,'-'),0,length(party.jgzz_fiscal_code)-1, instr(party.jgzz_fiscal_code,'-')-1));
2071: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_id ' || g_nit_rec.nit_id);
2072: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit ' || g_nit_rec.nit);
2073: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_name ' || g_nit_rec.nit_name);
2074: FND_FILE.PUT_LINE(FND_FILE.log,'l_branch_country_code ' || l_branch_country_code);
2075: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.verifying_digit ' || g_nit_rec.verifying_digit);
2076: FND_FILE.PUT_LINE(FND_FILE.log,'g_gl_je_rec.identifier ' || g_gl_je_rec.identifier);
2077: -- Bug 14283808 End
2078:
2071: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_id ' || g_nit_rec.nit_id);
2072: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit ' || g_nit_rec.nit);
2073: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_name ' || g_nit_rec.nit_name);
2074: FND_FILE.PUT_LINE(FND_FILE.log,'l_branch_country_code ' || l_branch_country_code);
2075: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.verifying_digit ' || g_nit_rec.verifying_digit);
2076: FND_FILE.PUT_LINE(FND_FILE.log,'g_gl_je_rec.identifier ' || g_gl_je_rec.identifier);
2077: -- Bug 14283808 End
2078:
2079: FND_FILE.PUT_LINE(FND_FILE.log,'Misc Receipts Query(-)');
2072: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit ' || g_nit_rec.nit);
2073: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_name ' || g_nit_rec.nit_name);
2074: FND_FILE.PUT_LINE(FND_FILE.log,'l_branch_country_code ' || l_branch_country_code);
2075: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.verifying_digit ' || g_nit_rec.verifying_digit);
2076: FND_FILE.PUT_LINE(FND_FILE.log,'g_gl_je_rec.identifier ' || g_gl_je_rec.identifier);
2077: -- Bug 14283808 End
2078:
2079: FND_FILE.PUT_LINE(FND_FILE.log,'Misc Receipts Query(-)');
2080:
2075: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.verifying_digit ' || g_nit_rec.verifying_digit);
2076: FND_FILE.PUT_LINE(FND_FILE.log,'g_gl_je_rec.identifier ' || g_gl_je_rec.identifier);
2077: -- Bug 14283808 End
2078:
2079: FND_FILE.PUT_LINE(FND_FILE.log,'Misc Receipts Query(-)');
2080:
2081: l_country_code := fnd_profile.value ('JGZZ_COUNTRY_CODE');
2082:
2083: FND_FILE.PUT_LINE(FND_FILE.log,'l_country_code - l_branch_country_code : '
2079: FND_FILE.PUT_LINE(FND_FILE.log,'Misc Receipts Query(-)');
2080:
2081: l_country_code := fnd_profile.value ('JGZZ_COUNTRY_CODE');
2082:
2083: FND_FILE.PUT_LINE(FND_FILE.log,'l_country_code - l_branch_country_code : '
2084: ||l_country_code||'--'||l_branch_country_code);
2085:
2086: IF l_country_code = l_branch_country_code THEN
2087: g_nit_rec.nit_type := 'LEGAL_ENTITY';
2088: ELSE
2089: g_nit_rec.nit_type := 'FOREIGN_ENTITY';
2090: END IF;
2091:
2092: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_type : '||g_nit_rec.nit_type);
2093: l_identifier_type := 'JL_CO_GL_BANK';
2094:
2095: ELSIF (( l_customer_num IS NULL ) AND
2096: ( nvl(ar_trx.event_class_code,'$') <> 'MISC_RECEIPT' )) THEN
2093: l_identifier_type := 'JL_CO_GL_BANK';
2094:
2095: ELSIF (( l_customer_num IS NULL ) AND
2096: ( nvl(ar_trx.event_class_code,'$') <> 'MISC_RECEIPT' )) THEN
2097: FND_FILE.PUT_LINE(FND_FILE.log,'Event Class Code IS NOT Misc Receipts');
2098: BEGIN
2099: FND_FILE.PUT_LINE(FND_FILE.log,'Query(+)');
2100: SELECT jlcgn.nit_id,
2101: substr(jgzz_fiscal_code,1,decode(instr(jgzz_fiscal_code,'-'),0,14,instr(jgzz_fiscal_code,'-')-1)), --bug8685975
2095: ELSIF (( l_customer_num IS NULL ) AND
2096: ( nvl(ar_trx.event_class_code,'$') <> 'MISC_RECEIPT' )) THEN
2097: FND_FILE.PUT_LINE(FND_FILE.log,'Event Class Code IS NOT Misc Receipts');
2098: BEGIN
2099: FND_FILE.PUT_LINE(FND_FILE.log,'Query(+)');
2100: SELECT jlcgn.nit_id,
2101: substr(jgzz_fiscal_code,1,decode(instr(jgzz_fiscal_code,'-'),0,14,instr(jgzz_fiscal_code,'-')-1)), --bug8685975
2102: rac.party_name,
2103: SUBSTR(custacct.global_attribute10,1,30),
2114: hz_cust_accounts custacct
2115: WHERE custacct.cust_account_id = ar_trx.party_id
2116: AND substr(jgzz_fiscal_code,1,decode(instr(jgzz_fiscal_code,'-'),0,14,instr(jgzz_fiscal_code,'-')-1)) = jlcgn.nit(+) --bug8685975
2117: AND custacct.party_id=rac.party_id;
2118: FND_FILE.PUT_LINE(FND_FILE.log,'Query(-)');
2119: FND_FILE.PUT_LINE(FND_FILE.log,'Non Misc : g_nit_rec : '||g_nit_rec.nit||'-'||g_nit_rec.nit_name);
2120: EXCEPTION
2121: WHEN no_data_found THEN
2122: FND_FILE.PUT_LINE(FND_FILE.log,'Exception no data found in NOT Misc receipts');
2115: WHERE custacct.cust_account_id = ar_trx.party_id
2116: AND substr(jgzz_fiscal_code,1,decode(instr(jgzz_fiscal_code,'-'),0,14,instr(jgzz_fiscal_code,'-')-1)) = jlcgn.nit(+) --bug8685975
2117: AND custacct.party_id=rac.party_id;
2118: FND_FILE.PUT_LINE(FND_FILE.log,'Query(-)');
2119: FND_FILE.PUT_LINE(FND_FILE.log,'Non Misc : g_nit_rec : '||g_nit_rec.nit||'-'||g_nit_rec.nit_name);
2120: EXCEPTION
2121: WHEN no_data_found THEN
2122: FND_FILE.PUT_LINE(FND_FILE.log,'Exception no data found in NOT Misc receipts');
2123: SELECT nit_id,
2118: FND_FILE.PUT_LINE(FND_FILE.log,'Query(-)');
2119: FND_FILE.PUT_LINE(FND_FILE.log,'Non Misc : g_nit_rec : '||g_nit_rec.nit||'-'||g_nit_rec.nit_name);
2120: EXCEPTION
2121: WHEN no_data_found THEN
2122: FND_FILE.PUT_LINE(FND_FILE.log,'Exception no data found in NOT Misc receipts');
2123: SELECT nit_id,
2124: nit,
2125: name,
2126: type,
2131: g_nit_rec.nit_type,
2132: g_nit_rec.verifying_digit
2133: FROM jl_co_gl_nits
2134: WHERE nit_id = g_default_nit_id;
2135: FND_FILE.PUT_LINE(FND_FILE.log,'Exception Non Misc : g_nit_rec : '||g_nit_rec.nit||'-'||g_nit_rec.nit_name);
2136:
2137: END;
2138:
2139: g_gl_je_rec.identifier := l_customer_num;
2138:
2139: g_gl_je_rec.identifier := l_customer_num;
2140: END IF;
2141:
2142: FND_FILE.PUT_LINE(FND_FILE.log,'Call To Validate_NIT in Generate_AR :'||g_gl_je_rec.identifier);
2143:
2144: IF Validate_NIT(g_nit_rec,l_identifier_type) THEN
2145: FND_FILE.PUT_LINE(FND_FILE.log,'After Validate :'||g_gl_je_rec.identifier);
2146:
2141:
2142: FND_FILE.PUT_LINE(FND_FILE.log,'Call To Validate_NIT in Generate_AR :'||g_gl_je_rec.identifier);
2143:
2144: IF Validate_NIT(g_nit_rec,l_identifier_type) THEN
2145: FND_FILE.PUT_LINE(FND_FILE.log,'After Validate :'||g_gl_je_rec.identifier);
2146:
2147: INSERT INTO jl_co_gl_trx (transaction_id,
2148: process_id,
2149: set_of_books_id,
2199: l_ent_dr,
2200: l_ent_cr );
2201:
2202: BEGIN
2203: FND_FILE.PUT_LINE(FND_FILE.log,'Stage 1');
2204: SELECT 'TRUE'
2205: INTO g_error_exists
2206: FROM DUAL
2207: WHERE EXISTS (SELECT '1'
2210: AND jlcgce.je_line_num = p_journal_rec.je_line_num);
2211:
2212: EXCEPTION
2213: WHEN no_data_found THEN
2214: FND_FILE.PUT_LINE(FND_FILE.log,'Exception in Stage 1');
2215: NULL;
2216: END;
2217:
2218: IF NVL(g_error_exists,'FALSE') = 'TRUE' THEN
2215: NULL;
2216: END;
2217:
2218: IF NVL(g_error_exists,'FALSE') = 'TRUE' THEN
2219: FND_FILE.PUT_LINE(FND_FILE.log,'Stage 2.1');
2220: UPDATE gl_je_lines gljl
2221: SET co_processed_flag = 'N'
2222: WHERE gljl.je_header_id = p_journal_rec.je_header_id
2223: AND gljl.je_line_num = p_journal_rec.je_line_num
2229: DELETE FROM jl_co_gl_trx jlcgt
2230: WHERE jlcgt.je_header_id = p_journal_rec.je_header_id
2231: AND jlcgt.je_line_num = p_journal_rec.je_line_num;
2232: ELSE
2233: FND_FILE.PUT_LINE(FND_FILE.log,'Stage2.2');
2234: UPDATE gl_je_lines gljl
2235: SET co_processed_flag = 'Y'
2236: WHERE gljl.je_header_id = p_journal_rec.je_header_id
2237: AND gljl.je_line_num = p_journal_rec.je_line_num
2244:
2245: END IF;
2246:
2247: END LOOP;
2248: FND_FILE.PUT_LINE(FND_FILE.log,'After MAIN LOOP');
2249: -- since these are summary JE lines that are being processed,
2250: -- if any detail trx associated with the JE line fails then
2251: -- none of the trx should be processed
2252:
2250: -- if any detail trx associated with the JE line fails then
2251: -- none of the trx should be processed
2252:
2253: BEGIN
2254: FND_FILE.PUT_LINE(FND_FILE.log,'Stage 3');
2255: SELECT 'TRUE'
2256: INTO g_error_exists
2257: FROM DUAL
2258: WHERE EXISTS (SELECT '1'
2261: AND jlcgce.je_line_num = p_journal_rec.je_line_num);
2262:
2263: EXCEPTION
2264: WHEN no_data_found THEN
2265: FND_FILE.PUT_LINE(FND_FILE.log,'Exception in Stage 3');
2266: NULL;
2267: END;
2268:
2269: IF NVL(g_error_exists,'FALSE') = 'TRUE' THEN
2266: NULL;
2267: END;
2268:
2269: IF NVL(g_error_exists,'FALSE') = 'TRUE' THEN
2270: FND_FILE.PUT_LINE(FND_FILE.log,'Stage 4');
2271: UPDATE gl_je_lines gljl
2272: SET co_processed_flag = 'N'
2273: WHERE gljl.je_header_id = p_journal_rec.je_header_id
2274: AND gljl.je_line_num = p_journal_rec.je_line_num
2289: END IF;
2290:
2291: EXCEPTION
2292: WHEN no_data_found THEN
2293: FND_FILE.PUT_LINE(FND_FILE.log,'EXCEPTION no data found in Generate AR Transactions');
2294: -- import references don't exist or are summarized for journal
2295: Generate_GL_trx(g_journal_rec); -- Create with NIT 0
2296:
2297: WHEN others THEN
2294: -- import references don't exist or are summarized for journal
2295: Generate_GL_trx(g_journal_rec); -- Create with NIT 0
2296:
2297: WHEN others THEN
2298: FND_FILE.PUT_LINE(FND_FILE.log,'EXCEPTION others in Generate AR Transactions');
2299: g_error_code := SQLCODE;
2300: g_error_text := SUBSTR(SQLERRM,1,240);
2301: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_AR_trx:'|| g_error_text);
2302: RAISE;
2297: WHEN others THEN
2298: FND_FILE.PUT_LINE(FND_FILE.log,'EXCEPTION others in Generate AR Transactions');
2299: g_error_code := SQLCODE;
2300: g_error_text := SUBSTR(SQLERRM,1,240);
2301: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_AR_trx:'|| g_error_text);
2302: RAISE;
2303: END Generate_AR_trx;
2304:
2305:
2305:
2306: PROCEDURE Generate_Non_Oracle_trx(p_journal_rec IN journals%ROWTYPE) IS
2307:
2308: BEGIN
2309: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_Non_Oracle_trx: start - Before select into g_nit_rec ');
2310: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.extgl_nit_id '|| p_journal_rec.extgl_nit_id);
2311: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit '|| p_journal_rec.ext_nit);
2312: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit_name '|| p_journal_rec.ext_nit_name);
2313: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit_type '|| p_journal_rec.ext_nit_type);
2306: PROCEDURE Generate_Non_Oracle_trx(p_journal_rec IN journals%ROWTYPE) IS
2307:
2308: BEGIN
2309: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_Non_Oracle_trx: start - Before select into g_nit_rec ');
2310: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.extgl_nit_id '|| p_journal_rec.extgl_nit_id);
2311: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit '|| p_journal_rec.ext_nit);
2312: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit_name '|| p_journal_rec.ext_nit_name);
2313: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit_type '|| p_journal_rec.ext_nit_type);
2314: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit_v_digit '|| p_journal_rec.ext_nit_v_digit);
2307:
2308: BEGIN
2309: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_Non_Oracle_trx: start - Before select into g_nit_rec ');
2310: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.extgl_nit_id '|| p_journal_rec.extgl_nit_id);
2311: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit '|| p_journal_rec.ext_nit);
2312: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit_name '|| p_journal_rec.ext_nit_name);
2313: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit_type '|| p_journal_rec.ext_nit_type);
2314: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit_v_digit '|| p_journal_rec.ext_nit_v_digit);
2315:
2308: BEGIN
2309: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_Non_Oracle_trx: start - Before select into g_nit_rec ');
2310: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.extgl_nit_id '|| p_journal_rec.extgl_nit_id);
2311: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit '|| p_journal_rec.ext_nit);
2312: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit_name '|| p_journal_rec.ext_nit_name);
2313: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit_type '|| p_journal_rec.ext_nit_type);
2314: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit_v_digit '|| p_journal_rec.ext_nit_v_digit);
2315:
2316: SELECT p_journal_rec.extgl_nit_id,
2309: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_Non_Oracle_trx: start - Before select into g_nit_rec ');
2310: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.extgl_nit_id '|| p_journal_rec.extgl_nit_id);
2311: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit '|| p_journal_rec.ext_nit);
2312: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit_name '|| p_journal_rec.ext_nit_name);
2313: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit_type '|| p_journal_rec.ext_nit_type);
2314: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit_v_digit '|| p_journal_rec.ext_nit_v_digit);
2315:
2316: SELECT p_journal_rec.extgl_nit_id,
2317: p_journal_rec.ext_nit,
2310: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.extgl_nit_id '|| p_journal_rec.extgl_nit_id);
2311: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit '|| p_journal_rec.ext_nit);
2312: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit_name '|| p_journal_rec.ext_nit_name);
2313: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit_type '|| p_journal_rec.ext_nit_type);
2314: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit_v_digit '|| p_journal_rec.ext_nit_v_digit);
2315:
2316: SELECT p_journal_rec.extgl_nit_id,
2317: p_journal_rec.ext_nit,
2318: p_journal_rec.ext_nit_name,
2322: FROM DUAL;
2323:
2324:
2325:
2326: FND_FILE.PUT_LINE(FND_FILE.log,'Values after select into g_nit_rec ');
2327: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_id '|| g_nit_rec.nit_id);
2328: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit '|| g_nit_rec.nit);
2329: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_name '|| g_nit_rec.nit_name);
2330: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_type '|| g_nit_rec.nit_type);
2323:
2324:
2325:
2326: FND_FILE.PUT_LINE(FND_FILE.log,'Values after select into g_nit_rec ');
2327: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_id '|| g_nit_rec.nit_id);
2328: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit '|| g_nit_rec.nit);
2329: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_name '|| g_nit_rec.nit_name);
2330: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_type '|| g_nit_rec.nit_type);
2331: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.verifying_digit '|| g_nit_rec.verifying_digit);
2324:
2325:
2326: FND_FILE.PUT_LINE(FND_FILE.log,'Values after select into g_nit_rec ');
2327: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_id '|| g_nit_rec.nit_id);
2328: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit '|| g_nit_rec.nit);
2329: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_name '|| g_nit_rec.nit_name);
2330: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_type '|| g_nit_rec.nit_type);
2331: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.verifying_digit '|| g_nit_rec.verifying_digit);
2332:
2325:
2326: FND_FILE.PUT_LINE(FND_FILE.log,'Values after select into g_nit_rec ');
2327: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_id '|| g_nit_rec.nit_id);
2328: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit '|| g_nit_rec.nit);
2329: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_name '|| g_nit_rec.nit_name);
2330: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_type '|| g_nit_rec.nit_type);
2331: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.verifying_digit '|| g_nit_rec.verifying_digit);
2332:
2333: BEGIN
2326: FND_FILE.PUT_LINE(FND_FILE.log,'Values after select into g_nit_rec ');
2327: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_id '|| g_nit_rec.nit_id);
2328: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit '|| g_nit_rec.nit);
2329: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_name '|| g_nit_rec.nit_name);
2330: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_type '|| g_nit_rec.nit_type);
2331: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.verifying_digit '|| g_nit_rec.verifying_digit);
2332:
2333: BEGIN
2334: SELECT nit_id
2327: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_id '|| g_nit_rec.nit_id);
2328: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit '|| g_nit_rec.nit);
2329: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_name '|| g_nit_rec.nit_name);
2330: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_type '|| g_nit_rec.nit_type);
2331: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.verifying_digit '|| g_nit_rec.verifying_digit);
2332:
2333: BEGIN
2334: SELECT nit_id
2335: INTO g_nit_rec.nit_id
2335: INTO g_nit_rec.nit_id
2336: FROM jl_co_gl_nits jlcgn
2337: WHERE nit = p_journal_rec.ext_nit;
2338:
2339: FND_FILE.PUT_LINE(FND_FILE.log,'After select into g_nit_rec.nit_id from jl_co_gl_nits.nit_id');
2340: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_id '|| g_nit_rec.nit_id);
2341:
2342:
2343:
2336: FROM jl_co_gl_nits jlcgn
2337: WHERE nit = p_journal_rec.ext_nit;
2338:
2339: FND_FILE.PUT_LINE(FND_FILE.log,'After select into g_nit_rec.nit_id from jl_co_gl_nits.nit_id');
2340: FND_FILE.PUT_LINE(FND_FILE.log,'g_nit_rec.nit_id '|| g_nit_rec.nit_id);
2341:
2342:
2343:
2344: EXCEPTION
2345: WHEN no_data_found THEN
2346: NULL;
2347: END;
2348:
2349: FND_FILE.PUT_LINE(FND_FILE.log,'Before select into g_gl_je_rec from p_journal_rec');
2350: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_header_id '|| p_journal_rec.je_header_id);
2351: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_line_num '|| p_journal_rec.je_line_num);
2352: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit '|| p_journal_rec.ext_nit);
2353:
2346: NULL;
2347: END;
2348:
2349: FND_FILE.PUT_LINE(FND_FILE.log,'Before select into g_gl_je_rec from p_journal_rec');
2350: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_header_id '|| p_journal_rec.je_header_id);
2351: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_line_num '|| p_journal_rec.je_line_num);
2352: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit '|| p_journal_rec.ext_nit);
2353:
2354:
2347: END;
2348:
2349: FND_FILE.PUT_LINE(FND_FILE.log,'Before select into g_gl_je_rec from p_journal_rec');
2350: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_header_id '|| p_journal_rec.je_header_id);
2351: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_line_num '|| p_journal_rec.je_line_num);
2352: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit '|| p_journal_rec.ext_nit);
2353:
2354:
2355: SELECT p_journal_rec.je_header_id,
2348:
2349: FND_FILE.PUT_LINE(FND_FILE.log,'Before select into g_gl_je_rec from p_journal_rec');
2350: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_header_id '|| p_journal_rec.je_header_id);
2351: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_line_num '|| p_journal_rec.je_line_num);
2352: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_nit '|| p_journal_rec.ext_nit);
2353:
2354:
2355: SELECT p_journal_rec.je_header_id,
2356: p_journal_rec.je_line_num,
2356: p_journal_rec.je_line_num,
2357: p_journal_rec.ext_nit
2358: INTO g_gl_je_rec FROM DUAL;
2359:
2360: FND_FILE.PUT_LINE(FND_FILE.log,'After select into g_gl_je_rec from p_journal_rec');
2361: FND_FILE.PUT_LINE(FND_FILE.log,'g_gl_je_rec.je_header_id '|| g_gl_je_rec.je_header_id);
2362: FND_FILE.PUT_LINE(FND_FILE.log,'g_gl_je_rec.je_line_num '|| g_gl_je_rec.je_line_num);
2363: FND_FILE.PUT_LINE(FND_FILE.log,'g_gl_je_rec.identifier '|| g_gl_je_rec.identifier);
2364:
2357: p_journal_rec.ext_nit
2358: INTO g_gl_je_rec FROM DUAL;
2359:
2360: FND_FILE.PUT_LINE(FND_FILE.log,'After select into g_gl_je_rec from p_journal_rec');
2361: FND_FILE.PUT_LINE(FND_FILE.log,'g_gl_je_rec.je_header_id '|| g_gl_je_rec.je_header_id);
2362: FND_FILE.PUT_LINE(FND_FILE.log,'g_gl_je_rec.je_line_num '|| g_gl_je_rec.je_line_num);
2363: FND_FILE.PUT_LINE(FND_FILE.log,'g_gl_je_rec.identifier '|| g_gl_je_rec.identifier);
2364:
2365:
2358: INTO g_gl_je_rec FROM DUAL;
2359:
2360: FND_FILE.PUT_LINE(FND_FILE.log,'After select into g_gl_je_rec from p_journal_rec');
2361: FND_FILE.PUT_LINE(FND_FILE.log,'g_gl_je_rec.je_header_id '|| g_gl_je_rec.je_header_id);
2362: FND_FILE.PUT_LINE(FND_FILE.log,'g_gl_je_rec.je_line_num '|| g_gl_je_rec.je_line_num);
2363: FND_FILE.PUT_LINE(FND_FILE.log,'g_gl_je_rec.identifier '|| g_gl_je_rec.identifier);
2364:
2365:
2366: IF Validate_NIT(g_nit_rec,'JL_CO_GL_NIT') THEN
2359:
2360: FND_FILE.PUT_LINE(FND_FILE.log,'After select into g_gl_je_rec from p_journal_rec');
2361: FND_FILE.PUT_LINE(FND_FILE.log,'g_gl_je_rec.je_header_id '|| g_gl_je_rec.je_header_id);
2362: FND_FILE.PUT_LINE(FND_FILE.log,'g_gl_je_rec.je_line_num '|| g_gl_je_rec.je_line_num);
2363: FND_FILE.PUT_LINE(FND_FILE.log,'g_gl_je_rec.identifier '|| g_gl_je_rec.identifier);
2364:
2365:
2366: IF Validate_NIT(g_nit_rec,'JL_CO_GL_NIT') THEN
2367: NULL;
2373: -- with the interfaced records */
2374: g_nit_rec.nit_id := g_default_nit_id;
2375: END IF;
2376:
2377: FND_FILE.PUT_LINE(FND_FILE.log,'Before insert into jl_co_gl_trx');
2378:
2379:
2380: FND_FILE.PUT_LINE(FND_FILE.log,'g_parameter_rec.cid '|| g_parameter_rec.cid);
2381: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_batch_id '|| p_journal_rec.je_batch_id);
2376:
2377: FND_FILE.PUT_LINE(FND_FILE.log,'Before insert into jl_co_gl_trx');
2378:
2379:
2380: FND_FILE.PUT_LINE(FND_FILE.log,'g_parameter_rec.cid '|| g_parameter_rec.cid);
2381: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_batch_id '|| p_journal_rec.je_batch_id);
2382:
2383: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_header_id '|| p_journal_rec.je_header_id);
2384: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.subl_doc_num '|| p_journal_rec.subl_doc_num);
2377: FND_FILE.PUT_LINE(FND_FILE.log,'Before insert into jl_co_gl_trx');
2378:
2379:
2380: FND_FILE.PUT_LINE(FND_FILE.log,'g_parameter_rec.cid '|| g_parameter_rec.cid);
2381: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_batch_id '|| p_journal_rec.je_batch_id);
2382:
2383: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_header_id '|| p_journal_rec.je_header_id);
2384: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.subl_doc_num '|| p_journal_rec.subl_doc_num);
2385: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_doc_num '|| p_journal_rec.ext_doc_num);
2379:
2380: FND_FILE.PUT_LINE(FND_FILE.log,'g_parameter_rec.cid '|| g_parameter_rec.cid);
2381: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_batch_id '|| p_journal_rec.je_batch_id);
2382:
2383: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_header_id '|| p_journal_rec.je_header_id);
2384: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.subl_doc_num '|| p_journal_rec.subl_doc_num);
2385: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_doc_num '|| p_journal_rec.ext_doc_num);
2386: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.accounting_date '|| p_journal_rec.accounting_date);
2387: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.subl_doc_num'|| p_journal_rec.category);
2380: FND_FILE.PUT_LINE(FND_FILE.log,'g_parameter_rec.cid '|| g_parameter_rec.cid);
2381: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_batch_id '|| p_journal_rec.je_batch_id);
2382:
2383: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_header_id '|| p_journal_rec.je_header_id);
2384: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.subl_doc_num '|| p_journal_rec.subl_doc_num);
2385: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_doc_num '|| p_journal_rec.ext_doc_num);
2386: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.accounting_date '|| p_journal_rec.accounting_date);
2387: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.subl_doc_num'|| p_journal_rec.category);
2388:
2381: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_batch_id '|| p_journal_rec.je_batch_id);
2382:
2383: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_header_id '|| p_journal_rec.je_header_id);
2384: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.subl_doc_num '|| p_journal_rec.subl_doc_num);
2385: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_doc_num '|| p_journal_rec.ext_doc_num);
2386: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.accounting_date '|| p_journal_rec.accounting_date);
2387: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.subl_doc_num'|| p_journal_rec.category);
2388:
2389: INSERT INTO jl_co_gl_trx (transaction_id,
2382:
2383: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_header_id '|| p_journal_rec.je_header_id);
2384: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.subl_doc_num '|| p_journal_rec.subl_doc_num);
2385: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_doc_num '|| p_journal_rec.ext_doc_num);
2386: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.accounting_date '|| p_journal_rec.accounting_date);
2387: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.subl_doc_num'|| p_journal_rec.category);
2388:
2389: INSERT INTO jl_co_gl_trx (transaction_id,
2390: process_id,
2383: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.je_header_id '|| p_journal_rec.je_header_id);
2384: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.subl_doc_num '|| p_journal_rec.subl_doc_num);
2385: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.ext_doc_num '|| p_journal_rec.ext_doc_num);
2386: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.accounting_date '|| p_journal_rec.accounting_date);
2387: FND_FILE.PUT_LINE(FND_FILE.log,'p_journal_rec.subl_doc_num'|| p_journal_rec.category);
2388:
2389: INSERT INTO jl_co_gl_trx (transaction_id,
2390: process_id,
2391: set_of_books_id,
2499: WHEN others THEN
2500: BEGIN
2501: g_error_code := SQLCODE;
2502: g_error_text := SUBSTR(SQLERRM,1,240);
2503: FND_FILE.PUT_LINE(FND_FILE.log,'Generate_Non_Oracle_trx:'
2504: || g_error_text);
2505: RAISE;
2506: END;
2507:
2590: WHERE (bal.period_year * 100 + bal.period_num) = l_pre_period_num
2591: AND bal.code_combination_id = glcc.code_combination_id --bug 10207969
2592: AND bal.set_of_books_id = p_sobid);
2593:
2594: FND_FILE.PUT_LINE(FND_FILE.log,'p_sobid :'||to_char(p_sobid)||'-'||to_char(l_pre_period_num));
2595:
2596:
2597: EXCEPTION
2598: WHEN others THEN
2598: WHEN others THEN
2599: BEGIN
2600: g_error_code := SQLCODE;
2601: g_error_text := SUBSTR(SQLERRM,1,240);
2602: FND_FILE.PUT_LINE(FND_FILE.log,'create_balances:'
2603: || g_error_text);
2604: RAISE;
2605: END;
2606: END;
2699: -- balance records IN a specific period unless there is activity
2700: -- IN that period. This decision was made to avoid creating
2701: -- too many records IN jl_co_balances (unlike gl_balances)
2702:
2703: FND_FILE.PUT_LINE(FND_FILE.log,
2704: 'If l_balance_id is 0 then insert ');
2705: BEGIN
2706:
2707: SELECT begin_balance_dr,
2788: g_login_id);
2789:
2790: ELSE
2791: -- Balance record exists - Update period_net of current record
2792: FND_FILE.PUT_LINE(FND_FILE.log,
2793: 'If l_balance_id is non 0 then update :' ||to_char(trx.acc_dr));
2794: UPDATE jl_co_gl_balances jlcgb
2795: SET period_net_dr = (period_net_dr + trx.acc_dr) ,
2796: period_net_cr = (period_net_cr + trx.acc_cr),
2841: EXCEPTION
2842: WHEN others THEN
2843: g_error_code := SQLCODE;
2844: g_error_text := SUBSTR(SQLERRM,1,240);
2845: FND_FILE.PUT_LINE(FND_FILE.log,'Calculate_Balance:'
2846: || g_error_text);
2847: RAISE;
2848:
2849: END Calculate_Balance;
2978: EXCEPTION
2979: WHEN others THEN
2980: g_error_code := SQLCODE;
2981: g_error_text := SUBSTR(SQLERRM,1,240);
2982: FND_FILE.PUT_LINE(FND_FILE.log,'Reverse_Balance:'|| g_error_text);
2983: RAISE;
2984:
2985: END Reverse_Balance;
2986:
2998: l_rows NUMBER := 0;
2999: l_message_text jl_co_gl_conc_errs.message_text%TYPE := NULL;
3000:
3001: BEGIN
3002: FND_FILE.PUT_LINE(FND_FILE.log,'Create_Trx_Balance: Start');
3003: FND_FILE.PUT_LINE(FND_FILE.log,'Ledger ID: '||p_sobid);
3004:
3005: -- Bug 9078068, to access all sources data from xla_transaction_entities.
3006:
2999: l_message_text jl_co_gl_conc_errs.message_text%TYPE := NULL;
3000:
3001: BEGIN
3002: FND_FILE.PUT_LINE(FND_FILE.log,'Create_Trx_Balance: Start');
3003: FND_FILE.PUT_LINE(FND_FILE.log,'Ledger ID: '||p_sobid);
3004:
3005: -- Bug 9078068, to access all sources data from xla_transaction_entities.
3006:
3007: xla_security_pkg.set_security_context(602);
3118:
3119: IF p_proc_type = 'GENERATE' THEN
3120:
3121: -- Generate Transactions AND calculate balance
3122: FND_FILE.PUT_LINE(FND_FILE.log,'Create_Trx_Balance: Entering FOR LOOP');
3123:
3124: FOR j_line IN journals(p_period,p_sobid,p_batchid) LOOP
3125: FND_FILE.PUT_LINE(FND_FILE.log,'p_period :'||p_period||'-'||to_char(p_sobid)||'-'||to_char(p_batchid)||j_line.source||'-'||j_line.je_header_id||'-'||j_line.je_line_num);
3126: FND_FILE.PUT_LINE(FND_FILE.log,'Journal Source :'||j_line.source || 'Category : ' || j_line.category || 'Reference 1 ' || j_line.ref_1);
3121: -- Generate Transactions AND calculate balance
3122: FND_FILE.PUT_LINE(FND_FILE.log,'Create_Trx_Balance: Entering FOR LOOP');
3123:
3124: FOR j_line IN journals(p_period,p_sobid,p_batchid) LOOP
3125: FND_FILE.PUT_LINE(FND_FILE.log,'p_period :'||p_period||'-'||to_char(p_sobid)||'-'||to_char(p_batchid)||j_line.source||'-'||j_line.je_header_id||'-'||j_line.je_line_num);
3126: FND_FILE.PUT_LINE(FND_FILE.log,'Journal Source :'||j_line.source || 'Category : ' || j_line.category || 'Reference 1 ' || j_line.ref_1);
3127:
3128: g_journal_rec := j_line;
3129:
3122: FND_FILE.PUT_LINE(FND_FILE.log,'Create_Trx_Balance: Entering FOR LOOP');
3123:
3124: FOR j_line IN journals(p_period,p_sobid,p_batchid) LOOP
3125: FND_FILE.PUT_LINE(FND_FILE.log,'p_period :'||p_period||'-'||to_char(p_sobid)||'-'||to_char(p_batchid)||j_line.source||'-'||j_line.je_header_id||'-'||j_line.je_line_num);
3126: FND_FILE.PUT_LINE(FND_FILE.log,'Journal Source :'||j_line.source || 'Category : ' || j_line.category || 'Reference 1 ' || j_line.ref_1);
3127:
3128: g_journal_rec := j_line;
3129:
3130: IF (j_line.source IN ('Payables') AND
3134: j_line.ref_3 IS NULL AND
3135: j_line.ref_4 IS NULL AND
3136: j_line.ref_5 IS NULL )) AND*/
3137: j_line.reversed_je_header_id IS NULL) THEN
3138: FND_FILE.PUT_LINE(FND_FILE.log, 'Call to Generate_AP_trx :');
3139: Generate_AP_trx(g_journal_rec);
3140: ELSIF (j_line.source IN ('Cost Management') AND
3141: --(j_line.ref_1 = 'PO') AND
3142: -- Bug 16529685 Start
3183: For Upg_Batch_ID_Rec in C_Upg_Batch_ID Loop
3184: l_upg_batch_id := Upg_Batch_ID_Rec.upg_batch_id;
3185: End Loop;
3186: If l_upg_batch_id is not null Then
3187: FND_FILE.PUT_LINE(FND_FILE.log, 'gl_sl_link_id is not null, Calling to R111i Generate_AR_trx :');
3188: Generate_11i_AR_trx(g_journal_rec);
3189: Else
3190: FND_FILE.PUT_LINE(FND_FILE.log, 'gl_sl_link_id is null, Calling to R111i Generate_AR_trx :');
3191: Generate_AR_trx(g_journal_rec);
3186: If l_upg_batch_id is not null Then
3187: FND_FILE.PUT_LINE(FND_FILE.log, 'gl_sl_link_id is not null, Calling to R111i Generate_AR_trx :');
3188: Generate_11i_AR_trx(g_journal_rec);
3189: Else
3190: FND_FILE.PUT_LINE(FND_FILE.log, 'gl_sl_link_id is null, Calling to R111i Generate_AR_trx :');
3191: Generate_AR_trx(g_journal_rec);
3192: End If;
3193: Exception
3194: When Others Then
3191: Generate_AR_trx(g_journal_rec);
3192: End If;
3193: Exception
3194: When Others Then
3195: FND_FILE.PUT_LINE(FND_FILE.log, 'Exception in Generate_AR_trx calling R12 Generate_AR_trx :');
3196: Generate_AR_trx(g_journal_rec);
3197: End;
3198: -- Bug 16030118 End
3199:
3328: -- committed after they are created, committing
3329: -- also Reversed trxs to be in synch.
3330:
3331: -- Now that all the transactions are created - calculate balance
3332: FND_FILE.PUT_LINE(FND_FILE.log,
3333: 'Create_Trx_Balance: Calling Calculate Balance');
3334:
3335:
3336: Create_Balances( p_period,
3352: FALSE,
3353: p_sobid,
3354: g_parameter_rec.cid);
3355: IF l_request_id = 0 THEN
3356: FND_FILE.PUT_LINE(FND_FILE.log,
3357: 'CONC-REQUEST SUBMISSION FAILED');
3358: ELSE
3359: FND_MESSAGE.SET_NAME('SQLGL','GL_REQUEST_SUBMITTED');
3360: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id,FALSE);
3358: ELSE
3359: FND_MESSAGE.SET_NAME('SQLGL','GL_REQUEST_SUBMITTED');
3360: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id,FALSE);
3361: l_message_text := FND_MESSAGE.GET;
3362: FND_FILE.PUT_LINE(FND_FILE.log,
3363: 'Submitted Third Party Balances Error Report. '
3364: || l_message_text);
3365: END IF;
3366:
3366:
3367: ELSIF p_proc_type = 'REVERSE' THEN
3368:
3369: -- call Reverse Balances routine with the RCID
3370: FND_FILE.PUT_LINE(FND_FILE.log,'Create_Trx_Balance: Calling Reverse Balance');
3371:
3372: Reverse_Balance(p_rcid,
3373: g_parameter_rec.cid,
3374: p_sobid,
3374: p_sobid,
3375: g_parameter_rec.user_id);
3376: END IF; -- if p_proc_type
3377:
3378: FND_FILE.PUT_LINE(FND_FILE.log,'Create_Trx_Balance: Process completed successfully');
3379:
3380: EXCEPTION
3381: WHEN others THEN
3382: g_error_code := SQLCODE;
3380: EXCEPTION
3381: WHEN others THEN
3382: g_error_code := SQLCODE;
3383: g_error_text := SUBSTR(SQLERRM,1,240);
3384: FND_FILE.PUT_LINE(FND_FILE.log,'Create_Trx_Balance:'|| g_error_text);
3385: RAISE;
3386:
3387: END create_trx_balance;
3388: