[Home] [Help]
34: --
35: l_cost_center_error EXCEPTION;
36: l_finance_line_error EXCEPTION;
37: l_finance_header_error EXCEPTION;
38: l_amount ota_finance_lines.money_amount%TYPE;
39: -- l_success VARCHAR2(1) := 'T';
40: l_upd_header VARCHAR2(1);
41: l_upd_line VARCHAR2(1);
42: l_pay_desc VARCHAR2(35) := 'ota_paying_cc_batch_generated';
196:
197: /* Bug 3611693 Modified the cursor to take care of new Delivery Mode */
198: CURSOR FL IS
199: SELECT sum(fl.money_amount)
200: FROM ota_finance_lines fl,
201: ota_delegate_bookings tdb,
202: ota_booking_status_types bst,
203: ota_events evt,
204: ota_category_usages ocu,
233: ---*** commented out the definition of FL_CHK cursor. New definition is added
234: ---*** for the cursor FL_CHK for bug#2457158.
235: /* CURSOR FL_CHK IS
236: SELECT null
237: FROM ota_finance_lines fl,
238: ota_delegate_bookings tdb,
239: ota_booking_status_types bst,
240: ota_events evt
241: WHERE fl.finance_header_id = l_finance_header_id and
254:
255: /* bug no 3611693 Modified the cursor to take care of delivery mode*/
256: CURSOR FL_CHK IS
257: SELECT null
258: FROM ota_finance_lines fl,
259: ota_delegate_bookings tdb,
260: ota_booking_status_types bst,
261: ota_events evt,
262: ota_category_usages ocu,
303: ---*** Added FL_RESOURCE ,FL_CHECK and CHK_ENR_RES Cursor definitions --Bug#2457158
304:
305: CURSOR FL_RESOURCE IS
306: SELECT sum(fl.money_amount)
307: FROM ota_finance_lines fl,
308: ota_resource_bookings trb,
309: ota_suppliable_resources tsr
310: WHERE fl.finance_header_id = l_finance_header_id and
311: trb.resource_booking_id = fl.resource_booking_id and
317: tsr.business_group_id = l_business_group_id;
318:
319: CURSOR FL_CHECK IS
320: SELECT null
321: FROM ota_finance_lines fl
322: WHERE fl.finance_header_id = l_finance_header_id and
323: fl.resource_booking_id is not null and
324: fl.cancelled_flag = 'N';
325:
326: CURSOR chk_Enr_Res(p_finance_header_id ota_finance_headers.finance_header_id%TYPE)
327: IS
328: SELECT count(booking_id),
329: count(resource_booking_id)
330: FROM ota_finance_lines
331: WHERE finance_header_id=p_finance_header_id and
332: cancelled_flag = 'N'
333: GROUP BY finance_header_id;
334:
1114: SELECT finance_line_id,
1115: object_version_number,
1116: date_raised,
1117: sequence_number
1118: FROM ota_finance_lines
1119: WHERE finance_header_id = p_finance_header_id and
1120: booking_id in (Select Booking_id
1121: from OTA_DELEGATE_BOOKINGS
1122: WHERE booking_status_type_id in
1131: SELECT fl.finance_line_id,
1132: fl.object_version_number,
1133: fl.date_raised,
1134: fl.sequence_number
1135: FROM ota_finance_lines fl,
1136: ota_delegate_bookings tdb,
1137: ota_booking_status_types bst,
1138: ota_events evt,
1139: ota_category_usages ocu,
1173: SELECT fl.finance_line_id,
1174: fl.object_version_number,
1175: fl.date_raised,
1176: fl.sequence_number
1177: FROM ota_finance_lines fl,
1178: ota_resource_bookings trb
1179: WHERE fl.finance_header_id = p_finance_header_id and
1180: trb.resource_booking_id = fl.resource_booking_id and
1181: trb.required_date_to < (trunc(SYSDATE)+1) and
1206:
1207: FND_FILE.PUT_LINE(FND_FILE.LOG,'Updating Finance line: ' ||
1208: to_char(fl_rec.finance_line_id));
1209:
1210: UPDATE ota_finance_lines
1211: SET last_update_date = SYSDATE
1212: ,last_updated_by = v_user_id
1213: ,last_update_login = v_login_id
1214: ,transfer_status = 'ST'
1224: l_line_ovn := fl_rec.object_version_number;
1225: FND_FILE.PUT_LINE(FND_FILE.LOG,'Updating Finance line: ' ||
1226: to_char(fl_rec.finance_line_id));
1227:
1228: UPDATE ota_finance_lines
1229: SET last_update_date = SYSDATE
1230: ,last_updated_by = v_user_id
1231: ,last_update_login = v_login_id
1232: ,transfer_status = 'ST'