2: -- $Header: PNCRACCB.pls 120.6.12010000.1 2008/07/30 18:18:45 appldev ship $
3:
4:
5: CURSOR c_ar_data (
6: p_low_lease_id pn_leases.lease_id%TYPE,
7: p_high_lease_id pn_leases.lease_id%TYPE,
8: p_sch_start_date pn_payment_schedules.schedule_date%TYPE,
9: p_sch_end_date pn_payment_schedules.schedule_date%TYPE,
10: p_period_name pn_payment_schedules.period_name%TYPE,
3:
4:
5: CURSOR c_ar_data (
6: p_low_lease_id pn_leases.lease_id%TYPE,
7: p_high_lease_id pn_leases.lease_id%TYPE,
8: p_sch_start_date pn_payment_schedules.schedule_date%TYPE,
9: p_sch_end_date pn_payment_schedules.schedule_date%TYPE,
10: p_period_name pn_payment_schedules.period_name%TYPE,
11: p_customer_id pn_payment_terms.customer_id%TYPE)
20: pi.org_id,
21: ps.payment_schedule_id,
22: pi1.actual_amount
23: FROM PN_PAYMENT_TERMS pt,
24: PN_LEASES_ALL le ,
25: PN_PAYMENT_ITEMS_ALL pi,
26: PN_PAYMENT_ITEMS_ALL pi1,
27: PN_PAYMENT_SCHEDULES_ALL ps
28: WHERE pt.lease_id = le.lease_id
46: OR (pi.transferred_to_ar_flag IS NULL AND pi1.actual_Amount = 0 ))
47: ORDER BY ps.payment_schedule_id;
48:
49: CURSOR c_ar_data_le_upg (
50: p_low_lease_id pn_leases.lease_id%TYPE,
51: p_high_lease_id pn_leases.lease_id%TYPE,
52: p_sch_start_date pn_payment_schedules.schedule_date%TYPE,
53: p_sch_end_date pn_payment_schedules.schedule_date%TYPE,
54: p_period_name pn_payment_schedules.period_name%TYPE,
47: ORDER BY ps.payment_schedule_id;
48:
49: CURSOR c_ar_data_le_upg (
50: p_low_lease_id pn_leases.lease_id%TYPE,
51: p_high_lease_id pn_leases.lease_id%TYPE,
52: p_sch_start_date pn_payment_schedules.schedule_date%TYPE,
53: p_sch_end_date pn_payment_schedules.schedule_date%TYPE,
54: p_period_name pn_payment_schedules.period_name%TYPE,
55: p_customer_id pn_payment_terms.customer_id%TYPE)
59: pt.org_id org_id,
60: pt.customer_id customer_id,
61: pt.cust_trx_type_id cust_trx_type_id
62: FROM PN_PAYMENT_TERMS pt,
63: PN_LEASES_ALL le ,
64: PN_PAYMENT_ITEMS_ALL pi,
65: PN_PAYMENT_ITEMS_ALL pi1,
66: PN_PAYMENT_SCHEDULES_ALL ps
67: WHERE pt.lease_id = le.lease_id
86: AND pt.legal_entity_id IS NULL
87: ORDER BY pt.payment_term_id ;
88:
89: CURSOR c_ap_data(
90: p_low_lease_id pn_leases.lease_id%TYPE,
91: p_high_lease_id pn_leases.lease_id%TYPE,
92: p_sch_start_date pn_payment_schedules.schedule_date%TYPE,
93: p_sch_end_date pn_payment_schedules.schedule_date%TYPE,
94: p_period_name pn_payment_schedules.period_name%TYPE,
87: ORDER BY pt.payment_term_id ;
88:
89: CURSOR c_ap_data(
90: p_low_lease_id pn_leases.lease_id%TYPE,
91: p_high_lease_id pn_leases.lease_id%TYPE,
92: p_sch_start_date pn_payment_schedules.schedule_date%TYPE,
93: p_sch_end_date pn_payment_schedules.schedule_date%TYPE,
94: p_period_name pn_payment_schedules.period_name%TYPE,
95: p_vendor_id pn_payment_terms.vendor_id%TYPE)
104: pi.org_id,
105: ps.payment_schedule_id,
106: pi1.actual_amount
107: FROM pn_payment_terms pt,
108: pn_leases_all le ,
109: pn_payment_items_all pi,
110: pn_payment_items_all pi1,
111: pn_payment_schedules_all ps
112: WHERE pt.lease_id = le.lease_id
131: OR (pi.transferred_to_ap_flag IS NULL AND pi1.actual_Amount = 0 ))
132: ORDER BY ps.payment_schedule_id;
133:
134: CURSOR c_ap_data_le_upg(
135: p_low_lease_id pn_leases.lease_id%TYPE,
136: p_high_lease_id pn_leases.lease_id%TYPE,
137: p_sch_start_date pn_payment_schedules.schedule_date%TYPE,
138: p_sch_end_date pn_payment_schedules.schedule_date%TYPE,
139: p_period_name pn_payment_schedules.period_name%TYPE,
132: ORDER BY ps.payment_schedule_id;
133:
134: CURSOR c_ap_data_le_upg(
135: p_low_lease_id pn_leases.lease_id%TYPE,
136: p_high_lease_id pn_leases.lease_id%TYPE,
137: p_sch_start_date pn_payment_schedules.schedule_date%TYPE,
138: p_sch_end_date pn_payment_schedules.schedule_date%TYPE,
139: p_period_name pn_payment_schedules.period_name%TYPE,
140: p_vendor_id pn_payment_terms.vendor_id%TYPE)
144: pt.org_id org_id,
145: pt.vendor_id vendor_id,
146: pt.vendor_site_id vendor_site_id
147: FROM pn_payment_terms pt,
148: pn_leases_all le ,
149: pn_payment_items_all pi,
150: pn_payment_items_all pi1,
151: pn_payment_schedules_all ps
152: WHERE pt.lease_id = le.lease_id
171: OR (pi.transferred_to_ap_flag IS NULL AND pi1.actual_Amount = 0 ))
172: AND pt.legal_entity_id IS NULL
173: ORDER BY pt.payment_term_id;
174:
175: CURSOR c_lease_num(p_lease_id pn_leases.lease_id%TYPE)
176: IS
177: SELECT lease_num
178: FROM pn_leases_all
179: WHERE lease_id = p_lease_id;
174:
175: CURSOR c_lease_num(p_lease_id pn_leases.lease_id%TYPE)
176: IS
177: SELECT lease_num
178: FROM pn_leases_all
179: WHERE lease_id = p_lease_id;
180:
181: -------------------------------------------------------------------------------
182: -- PROCEDURE : CREATE_AP_ACC_R12
200: p_vendor_id IN NUMBER ,
201: P_Org_id IN NUMBER
202: ) AS
203:
204: l_low_lease_id pn_leases.lease_id%TYPE;
205: l_high_lease_id pn_leases.lease_id%TYPE;
206: l_sch_start_date pn_payment_schedules.schedule_date%TYPE;
207: l_sch_end_date pn_payment_schedules.schedule_date%TYPE;
208: l_lia_account NUMBER;
201: P_Org_id IN NUMBER
202: ) AS
203:
204: l_low_lease_id pn_leases.lease_id%TYPE;
205: l_high_lease_id pn_leases.lease_id%TYPE;
206: l_sch_start_date pn_payment_schedules.schedule_date%TYPE;
207: l_sch_end_date pn_payment_schedules.schedule_date%TYPE;
208: l_lia_account NUMBER;
209: l_prior_payment_schedule_id NUMBER;
477: p_customer_id IN NUMBER ,
478: P_Org_id IN NUMBER
479: ) AS
480:
481: l_low_lease_id pn_leases.lease_id%TYPE;
482: l_high_lease_id pn_leases.lease_id%TYPE;
483: l_sch_start_date pn_payment_schedules.schedule_date%TYPE;
484: l_sch_end_date pn_payment_schedules.schedule_date%TYPE;
485:
478: P_Org_id IN NUMBER
479: ) AS
480:
481: l_low_lease_id pn_leases.lease_id%TYPE;
482: l_high_lease_id pn_leases.lease_id%TYPE;
483: l_sch_start_date pn_payment_schedules.schedule_date%TYPE;
484: l_sch_end_date pn_payment_schedules.schedule_date%TYPE;
485:
486: TYPE item_id_tbl_typ IS TABLE OF pn_payment_items_all.payment_item_id%TYPE INDEX BY BINARY_INTEGER;
1032: -- o Added code to split accounted_Amount per
1033: -- distributions
1034: -- o indented code - bug # 3446951
1035: -- 14-jul-2005 SatyaDeep o replaced pn_distributions,pn_payment_terms,
1036: -- pn_leases,pn__payment_items,pn_payment_schedules
1037: -- with their respective _ALL tables
1038: -- 01-DEC-05 Hareesha o Passed pn_mo_cache_utils.get_current_org_id
1039: -- to get_profile_value.
1040: -- Inserted pn_mo_cache_utils.get_current_org_id as
1055: p_customer_id IN NUMBER ,
1056: P_Org_id IN NUMBER
1057: )
1058: AS
1059: v_pn_lease_id PN_LEASES.lease_id%TYPE;
1060: v_pn_period_name PN_PAYMENT_SCHEDULES.period_name%TYPE;
1061: v_pn_code_combination_id PN_PAYMENT_TERMS.code_combination_id%TYPE;
1062: v_pn_term_id PN_PAYMENT_TERMS.ap_ar_term_id%TYPE;
1063: v_pn_trx_type_id PN_PAYMENT_TERMS.cust_trx_type_id%TYPE;
1108: v_cash_actual_amount NUMBER := 0;
1109: l_start_date RA_CUST_TRX_LINE_GL_DIST.gl_date%type ;
1110: l_sch_start_date DATE ;
1111: l_sch_end_date DATE;
1112: l_low_lease_id PN_LEASES.lease_id%TYPE;
1113: l_high_lease_id PN_LEASES.lease_id%TYPE;
1114: l_total_acc_amt NUMBER := 0;
1115: l_total_acc_percent NUMBER := 0;
1116: l_header_desc VARCHAR2(240);
1109: l_start_date RA_CUST_TRX_LINE_GL_DIST.gl_date%type ;
1110: l_sch_start_date DATE ;
1111: l_sch_end_date DATE;
1112: l_low_lease_id PN_LEASES.lease_id%TYPE;
1113: l_high_lease_id PN_LEASES.lease_id%TYPE;
1114: l_total_acc_amt NUMBER := 0;
1115: l_total_acc_percent NUMBER := 0;
1116: l_header_desc VARCHAR2(240);
1117: l_line_desc VARCHAR2(240);
1115: l_total_acc_percent NUMBER := 0;
1116: l_header_desc VARCHAR2(240);
1117: l_line_desc VARCHAR2(240);
1118: l_message VARCHAR2(2000);
1119: v_pn_lease_num PN_LEASES.lease_num%TYPE; --Bug#5739873
1120:
1121: CURSOR get_func_curr_code(p_set_of_books_id IN NUMBER) IS
1122: SELECT currency_code ,chart_of_accounts_id
1123: FROM gl_sets_of_books
1163: pi.accounted_amount,
1164: pi1.actual_amount,
1165: ps.schedule_date
1166: FROM PN_PAYMENT_TERMS pt,
1167: PN_LEASES_ALL le ,
1168: PN_PAYMENT_ITEMS_ALL pi,
1169: PN_PAYMENT_ITEMS_ALL pi1,
1170: PN_PAYMENT_SCHEDULES_ALL ps
1171: WHERE pt.lease_id = le.lease_id
1784: -- o Added code to split accounted_Amount per
1785: -- distributions
1786: -- o indented code - bug # 3446951
1787: -- 14-jul-2005 SatyaDeep o replaced pn_distributions,pn_payment_terms,
1788: -- pn_leases,pn__payment_items,pn_payment_schedules
1789: -- with their respective _ALL tables
1790: -- 01-DEC-05 Hareesha o Passed pn_mo_cache_utils.get_current_org_id to
1791: -- get_profile_value.
1792: -- Inserted pn_mo_cache_utils.get_current_org_id
1808: p_vendor_id IN NUMBER ,
1809: P_Org_id IN NUMBER
1810: )
1811: AS
1812: v_pn_lease_id PN_LEASES.lease_id%TYPE;
1813: v_pn_period_name PN_PAYMENT_SCHEDULES.period_name%TYPE;
1814: v_pn_code_combination_id PN_PAYMENT_TERMS.code_combination_id%TYPE;
1815: v_pn_distribution_set_id pn_payment_terms.distribution_set_id%TYPE;
1816: v_pn_project_id pn_payment_terms.project_id%type;
1861: v_cash_actual_amount number := 0;
1862: l_start_date RA_CUST_TRX_LINE_GL_DIST.gl_date%type ;
1863: l_sch_start_date date ;
1864: l_sch_end_date date;
1865: l_low_lease_id PN_LEASES.lease_id%TYPE;
1866: l_high_lease_id PN_LEASES.lease_id%TYPE;
1867: l_total_acc_amt NUMBER := 0;
1868: l_total_acc_percent NUMBER := 0;
1869: l_header_desc varchar2(240);
1862: l_start_date RA_CUST_TRX_LINE_GL_DIST.gl_date%type ;
1863: l_sch_start_date date ;
1864: l_sch_end_date date;
1865: l_low_lease_id PN_LEASES.lease_id%TYPE;
1866: l_high_lease_id PN_LEASES.lease_id%TYPE;
1867: l_total_acc_amt NUMBER := 0;
1868: l_total_acc_percent NUMBER := 0;
1869: l_header_desc varchar2(240);
1870: l_line_desc varchar2(240);
1868: l_total_acc_percent NUMBER := 0;
1869: l_header_desc varchar2(240);
1870: l_line_desc varchar2(240);
1871: l_message VARCHAR2(250);
1872: v_pn_lease_num PN_LEASES.lease_num%TYPE; --Bug#5739873
1873:
1874: CURSOR get_func_curr_code(p_set_of_books_id IN NUMBER) IS
1875: SELECT currency_code ,chart_of_accounts_id
1876: FROM gl_sets_of_books
1916: pi.accounted_amount,
1917: pi1.actual_amount,
1918: ps.schedule_date
1919: FROM pn_payment_terms pt,
1920: pn_leases_all le ,
1921: pn_payment_items_all pi,
1922: pn_payment_items_all pi1,
1923: pn_payment_schedules_all ps
1924: WHERE pt.lease_id = le.lease_id