6: g_chart_of_accounts_id fnd_segment_attribute_values.id_flex_num%TYPE;
7: g_period_num gl_periods.period_num%TYPE;
8: g_period_year gl_periods.period_year%TYPE;
9: g_func_currency gl_sets_of_books.currency_code%TYPE;
10: g_default_nit_id jl_co_gl_nits.nit_id%TYPE;
11: g_login_id jl_co_gl_trx.last_update_login%TYPE;
12:
13: PROCEDURE Create_Balances(
14: p_period IN VARCHAR2,
128: set_of_books_id jl_co_gl_conc_ctrl.set_of_books_id%type,
129: user_id jl_co_gl_conc_ctrl.created_by%type,
130: rev_cid jl_co_gl_conc_ctrl.reversed_process_id%type);
131:
132: TYPE t_nits IS RECORD (nit_id jl_co_gl_nits.nit_id%type,
133: nit jl_co_gl_nits.nit%type,
134: nit_name jl_co_gl_nits.name%type,
135: nit_type jl_co_gl_nits.type%type,
136: verifying_digit jl_co_gl_nits.verifying_digit%type);
129: user_id jl_co_gl_conc_ctrl.created_by%type,
130: rev_cid jl_co_gl_conc_ctrl.reversed_process_id%type);
131:
132: TYPE t_nits IS RECORD (nit_id jl_co_gl_nits.nit_id%type,
133: nit jl_co_gl_nits.nit%type,
134: nit_name jl_co_gl_nits.name%type,
135: nit_type jl_co_gl_nits.type%type,
136: verifying_digit jl_co_gl_nits.verifying_digit%type);
137:
130: rev_cid jl_co_gl_conc_ctrl.reversed_process_id%type);
131:
132: TYPE t_nits IS RECORD (nit_id jl_co_gl_nits.nit_id%type,
133: nit jl_co_gl_nits.nit%type,
134: nit_name jl_co_gl_nits.name%type,
135: nit_type jl_co_gl_nits.type%type,
136: verifying_digit jl_co_gl_nits.verifying_digit%type);
137:
138: TYPE t_gl_je IS RECORD (je_header_id jl_co_gl_trx.je_header_id%type,
131:
132: TYPE t_nits IS RECORD (nit_id jl_co_gl_nits.nit_id%type,
133: nit jl_co_gl_nits.nit%type,
134: nit_name jl_co_gl_nits.name%type,
135: nit_type jl_co_gl_nits.type%type,
136: verifying_digit jl_co_gl_nits.verifying_digit%type);
137:
138: TYPE t_gl_je IS RECORD (je_header_id jl_co_gl_trx.je_header_id%type,
139: je_line_num jl_co_gl_trx.je_line_num%type,
132: TYPE t_nits IS RECORD (nit_id jl_co_gl_nits.nit_id%type,
133: nit jl_co_gl_nits.nit%type,
134: nit_name jl_co_gl_nits.name%type,
135: nit_type jl_co_gl_nits.type%type,
136: verifying_digit jl_co_gl_nits.verifying_digit%type);
137:
138: TYPE t_gl_je IS RECORD (je_header_id jl_co_gl_trx.je_header_id%type,
139: je_line_num jl_co_gl_trx.je_line_num%type,
140: identifier jl_co_gl_conc_errs.identifier%type);
188: FUNCTION Validate_NIT
189: (p_nit_rec IN OUT NOCOPY t_nits,
190: p_identifier_type IN VARCHAR2 ) RETURN BOOLEAN IS
191:
192: -- Validate nit information against jl_co_gl_nits.
193: -- If a corresponding record does not exist in jl_co_gl_nits,
194: -- insert a new nit record
195:
196: l_master_nit_rec t_nits;
189: (p_nit_rec IN OUT NOCOPY t_nits,
190: p_identifier_type IN VARCHAR2 ) RETURN BOOLEAN IS
191:
192: -- Validate nit information against jl_co_gl_nits.
193: -- If a corresponding record does not exist in jl_co_gl_nits,
194: -- insert a new nit record
195:
196: l_master_nit_rec t_nits;
197: l_nit_valid BOOLEAN := TRUE;
214: name,
215: type,
216: verifying_digit
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);
237: nit,name,
238: type,
239: verifying_digit
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:
347:
348: -- insert validated NIT record
349: IF l_nit_valid THEN
350:
351: INSERT INTO jl_co_gl_nits (nit_id,
352: nit,
353: type,
354: verifying_digit,
355: name,
357: created_by,
358: last_update_date,
359: last_updated_by,
360: last_update_login)
361: VALUES (jl_co_gl_nits_s.nextval,
362: p_nit_rec.nit,
363: p_nit_rec.nit_type,
364: p_nit_rec.verifying_digit,
365: p_nit_rec.nit_name,
368: sysdate,
369: NVL(g_parameter_rec.user_id,-1),
370: g_login_id);
371:
372: SELECT jl_co_gl_nits_s.currval
373: INTO p_nit_rec.nit_id
374: FROM DUAL ;
375:
376: END IF;
439: -- Bug 9710493 End
440: BEGIN
441: SELECT nit_id
442: INTO g_nit_rec.nit_id
443: FROM jl_co_gl_nits jlcgn
444: WHERE nit = DECODE(p_journal_rec.source,
445: 'Payables','0',
446: 'Purchasing','0',
447: 'Receivables','0',
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);
1007:
1008: EXCEPTION
1009: WHEN OTHERS THEN
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),
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;
1036:
1037: EXCEPTION
1038: WHEN OTHERS THEN
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,
1076: g_nit_rec.nit_name,
1077: g_nit_rec.nit_type,
1078: g_nit_rec.verifying_digit,
1079: l_supplier_num
1080: FROM jl_co_gl_nits jlcgn, (SELECT nvl(papf.national_identifier,nvl(aps.individual_1099,aps.num_1099)) num_1099,
1081: aps.vendor_name,
1082: aps.global_attribute10,
1083: aps.global_attribute12,
1084: aps.segment1,
1104: g_nit_rec.nit_name,
1105: g_nit_rec.nit_type,
1106: g_nit_rec.verifying_digit,
1107: l_supplier_num
1108: FROM jl_co_gl_nits jlcgn, (SELECT nvl(papf.national_identifier,nvl(aps.individual_1099,aps.num_1099)) num_1099,
1109: aps.vendor_name,
1110: aps.global_attribute10,
1111: aps.global_attribute12,
1112: aps.segment1,
1305: povapf.global_attribute12,
1306: povapf.segment1,
1307: p_journal_rec.je_header_id,
1308: p_journal_rec.je_line_num
1309: FROM jl_co_gl_nits jlcgn,
1310: po_headers_all poha,
1311: PO_DISTRIBUTIONS_ALL podis,
1312: (SELECT nvl(papf.national_identifier,nvl(aps.individual_1099,aps.num_1099)) num_1099,
1313: aps.vendor_name,aps.global_attribute10,aps.global_attribute12,aps.segment1,
1342: povapf.global_attribute12,
1343: povapf.segment1,
1344: p_journal_rec.je_header_id,
1345: p_journal_rec.je_line_num
1346: FROM jl_co_gl_nits jlcgn,
1347: po_headers_all poha,
1348: PO_DISTRIBUTIONS_ALL podis,
1349: cst_write_offs cwo,
1350: xla_ae_lines AEL, gl_import_references gir,
1563: g_nit_rec.verifying_digit,
1564: g_gl_je_rec.identifier,
1565: g_gl_je_rec.je_header_id,
1566: g_gl_je_rec.je_line_num
1567: FROM jl_co_gl_nits jlcgn,
1568: po_headers_all poha ,
1569: (SELECT nvl(papf.national_identifier,nvl(pov.individual_1099,pov.num_1099)) num_1099,
1570: pov.vendor_name,
1571: pov.global_attribute10,
1749: g_nit_rec.nit_name,
1750: g_nit_rec.nit_type,
1751: g_nit_rec.verifying_digit,
1752: g_gl_je_rec.identifier
1753: FROM jl_co_gl_nits jlcgn1,
1754: jl_co_gl_nits jlcgn,
1755: ap_bank_branches apbb1,
1756: ap_bank_branches apbb,
1757: ap_bank_accounts_all apbaa,
1750: g_nit_rec.nit_type,
1751: g_nit_rec.verifying_digit,
1752: g_gl_je_rec.identifier
1753: FROM jl_co_gl_nits jlcgn1,
1754: jl_co_gl_nits jlcgn,
1755: ap_bank_branches apbb1,
1756: ap_bank_branches apbb,
1757: ap_bank_accounts_all apbaa,
1758: ar_cash_receipts_all arcra
1783: g_nit_rec.nit_name,
1784: g_nit_rec.nit_type,
1785: g_nit_rec.verifying_digit,
1786: l_customer_num
1787: FROM jl_co_gl_nits jlcgn,
1788: hz_parties rac,
1789: hz_cust_accounts custacct
1790: WHERE custacct.cust_account_id = TO_NUMBER(ar_trx.reference_7)
1791: AND REPLACE(rac.jgzz_fiscal_code,'-') = jlcgn.nit(+)
1803: g_nit_rec.nit,
1804: g_nit_rec.nit_name,
1805: g_nit_rec.nit_type,
1806: g_nit_rec.verifying_digit
1807: FROM jl_co_gl_nits
1808: WHERE nit_id = g_default_nit_id;
1809:
1810: END;
1811:
2048: g_nit_rec.nit_name,
2049: l_branch_country_code, --g_nit_rec.nit_type,
2050: g_nit_rec.verifying_digit,
2051: g_gl_je_rec.identifier
2052: FROM jl_co_gl_nits nit,
2053: hz_parties party,
2054: ce_bank_branches_v br,
2055: ce_bank_accounts ce_accts,
2056: ce_bank_acct_uses_all acctuse,
2108: g_nit_rec.nit_name,
2109: g_nit_rec.nit_type,
2110: g_nit_rec.verifying_digit,
2111: l_customer_num
2112: FROM jl_co_gl_nits jlcgn,
2113: hz_parties rac,
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
2129: g_nit_rec.nit,
2130: g_nit_rec.nit_name,
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;
2332:
2333: BEGIN
2334: SELECT 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);
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:
3065:
3066: BEGIN
3067: SELECT nit_id
3068: INTO g_default_nit_id
3069: FROM jl_co_gl_nits
3070: WHERE nit = '0';
3071:
3072: EXCEPTION
3073: WHEN no_data_found THEN
3071:
3072: EXCEPTION
3073: WHEN no_data_found THEN
3074: BEGIN
3075: INSERT INTO jl_co_gl_nits (
3076: nit_id,
3077: nit,
3078: type,
3079: verifying_digit,
3082: created_by,
3083: last_update_date,
3084: last_updated_by,
3085: last_update_login)
3086: VALUES ( jl_co_gl_nits_s.nextval,
3087: 0,
3088: 'LEGAL_ENTITY',
3089: '0',
3090: 'Default',
3095: null);
3096:
3097: SELECT nit_id
3098: INTO g_default_nit_id
3099: FROM jl_co_gl_nits
3100: WHERE nit = '0';
3101: END;
3102: END;
3103: