[Home] [Help]
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)
12: IS
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)
12: IS
13: SELECT pt.payment_term_id,
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)
12: IS
13: SELECT pt.payment_term_id,
14: pt.lease_id,
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
29: AND le.lease_class_code in ('THIRD_PARTY','SUB_LEASE')
30: AND LE.LEASE_ID BETWEEN P_LOW_LEASE_ID AND P_HIGH_LEASE_ID
31: AND ps.lease_id = le.lease_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)
56: IS
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)
56: IS
57: SELECT pt.payment_term_id payment_term_id,
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)
56: IS
57: SELECT pt.payment_term_id payment_term_id,
58: pt.legal_entity_id legal_entity_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
68: AND le.lease_class_code in ('THIRD_PARTY','SUB_LEASE')
69: AND LE.LEASE_ID BETWEEN P_LOW_LEASE_ID AND P_HIGH_LEASE_ID
70: AND ps.lease_id = le.lease_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)
96: IS
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)
96: IS
97: SELECT pt.payment_term_id,
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)
96: IS
97: SELECT pt.payment_term_id,
98: pt.lease_id,
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
113: AND le.lease_class_code = 'DIRECT'
114: and LE.LEASE_ID BETWEEN P_LOW_LEASE_ID AND P_HIGH_LEASE_ID
115: and ps.lease_id = le.lease_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)
141: IS
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)
141: IS
142: SELECT pt.payment_term_id payment_term_id,
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)
141: IS
142: SELECT pt.payment_term_id payment_term_id,
143: pt.legal_entity_id legal_entity_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
153: AND le.lease_class_code = 'DIRECT'
154: AND LE.LEASE_ID BETWEEN P_LOW_LEASE_ID AND P_HIGH_LEASE_ID
155: AND ps.lease_id = le.lease_id
186: -- 01-DEC-05 Hareesha o Changes for Lazy upgrade for LE uptake.
187: -- 12-MAY-06 sdmahesh o Bug # 5219481
188: -- Set transferred_to_ap_flag in PN_PAYMENT_ITEMS
189: -- Stamped xla_event_id PN_PAYMENT_ITEMS
190: -- Set transfer related information in PN_PAYMENT_SCHEDULES
191: -- 27-NOV-06 sdmahesh o Changed event_id_tbl_typ to NUMBER
192: -------------------------------------------------------------------------------
193:
194: PROCEDURE CREATE_AP_ACC_R12(
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;
210: l_created_by NUMBER;
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;
210: l_created_by NUMBER;
211: l_last_updated_by NUMBER;
214: l_creation_date DATE;
215:
216: TYPE NUMBER_tbl_typ IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
217: TYPE item_id_tbl_typ IS TABLE OF pn_payment_items_all.payment_item_id%TYPE INDEX BY BINARY_INTEGER;
218: TYPE schedule_id_tbl_typ IS TABLE OF pn_payment_schedules_all.payment_schedule_id%TYPE INDEX BY BINARY_INTEGER;
219: TYPE event_id_tbl_typ IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
220:
221: term_ID_tbl NUMBER_tbl_typ;
222: LE_tbl NUMBER_tbl_typ;
365:
366: IF schedule_id_tbl.COUNT > 0 THEN
367:
368: FORALL i IN schedule_id_tbl.FIRST..schedule_id_tbl.LAST
369: UPDATE PN_Payment_Schedules_all
370: SET Transferred_By_User_Id = l_last_updated_by,
371: Transfer_Date = l_last_update_date,
372: last_updated_by = l_last_updated_by,
373: last_update_login = l_last_update_login,
421:
422: IF schedule_id_tbl.COUNT > 0 THEN
423:
424: FORALL i IN schedule_id_tbl.FIRST..schedule_id_tbl.LAST
425: UPDATE PN_Payment_Schedules_all
426: SET Transferred_By_User_Id = l_last_updated_by,
427: Transfer_Date = l_last_update_date,
428: last_updated_by = l_last_updated_by,
429: last_update_login = l_last_update_login,
463: -- 01-DEC-05 Hareesha o Changes for Lazy upgrade for LE uptake.
464: -- 12-MAY-06 sdmahesh o Bug # 5219481
465: -- Set transferred_to_ar_flag in PN_PAYMENT_ITEMS
466: -- Stamped xla_event_id PN_PAYMENT_ITEMS
467: -- Set transfer related information in PN_PAYMENT_SCHEDULES
468: -- 27-NOV-06 sdmahesh o Changed event_id_tbl_typ to NUMBER
469: -------------------------------------------------------------------------------
470:
471: PROCEDURE CREATE_AR_ACC_R12(
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;
487: TYPE schedule_id_tbl_typ IS TABLE OF pn_payment_schedules_all.payment_schedule_id%TYPE INDEX BY BINARY_INTEGER;
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;
487: TYPE schedule_id_tbl_typ IS TABLE OF pn_payment_schedules_all.payment_schedule_id%TYPE INDEX BY BINARY_INTEGER;
488: TYPE NUMBER_tbl_typ IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
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;
487: TYPE schedule_id_tbl_typ IS TABLE OF pn_payment_schedules_all.payment_schedule_id%TYPE INDEX BY BINARY_INTEGER;
488: TYPE NUMBER_tbl_typ IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
489: TYPE event_id_tbl_typ IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
490:
491: term_ID_tbl NUMBER_tbl_typ;
634:
635: IF schedule_id_tbl.COUNT > 0 THEN
636:
637: FORALL i IN schedule_id_tbl.FIRST..schedule_id_tbl.LAST
638: UPDATE PN_Payment_Schedules_all
639: SET Transferred_By_User_Id = l_last_updated_by,
640: Transfer_Date = l_last_update_date,
641: last_updated_by = l_last_updated_by,
642: last_update_login = l_last_update_login,
691:
692: IF schedule_id_tbl.COUNT > 0 THEN
693:
694: FORALL i IN schedule_id_tbl.FIRST..schedule_id_tbl.LAST
695: UPDATE PN_Payment_Schedules_all
696: SET Transferred_By_User_Id = l_last_updated_by,
697: Transfer_Date = l_last_update_date,
698: last_updated_by = l_last_updated_by,
699: last_update_login = l_last_update_login,
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
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;
1064: v_transaction_date PN_PAYMENT_ITEMS.due_date%TYPE;
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
1172: AND le.lease_class_code in ('THIRD_PARTY','SUB_LEASE')
1173: AND LE.LEASE_ID BETWEEN L_LOW_LEASE_ID AND L_HIGH_LEASE_ID
1174: AND ps.lease_id = le.lease_id
1745: l_context := 'Updating Payment Schedules';
1746: pnp_debug_pkg.log('Updating billing schedules for billing sch id : ' ||
1747: to_char(V_PN_Payment_Schedule_Id) );
1748:
1749: UPDATE PN_Payment_Schedules_all
1750: SET Transferred_By_User_Id = l_last_updated_by,
1751: Transfer_Date = l_last_update_date,
1752: last_updated_by = l_last_updated_by,
1753: last_update_login = l_last_update_login,
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
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;
1817: v_transaction_date PN_PAYMENT_ITEMS.due_date%TYPE;
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
1925: AND le.lease_class_code = 'DIRECT'
1926: and LE.LEASE_ID BETWEEN L_LOW_LEASE_ID AND L_HIGH_LEASE_ID
1927: and ps.lease_id = le.lease_id
2506:
2507: pnp_debug_pkg.log('Updating Payment schedules for Payment sch id : ' ||
2508: to_char(V_PN_Payment_Schedule_Id) );
2509:
2510: UPDATE PN_Payment_Schedules_all
2511: SET Transferred_By_User_Id = l_last_updated_by,
2512: Transfer_Date = l_last_update_date,
2513: last_updated_by = l_last_updated_by,
2514: last_update_login = l_last_update_login,