[Home] [Help]
1: Package body ota_enroll_in_training_ss as
2: /* $Header: otssetrn.pkb 120.3 2008/04/25 13:25:28 smahanka noship $ */
3:
4: g_package varchar2(33) := ' ota_enroll_in_training_ss.'; -- Global package name
5:
1: Package body ota_enroll_in_training_ss as
2: /* $Header: otssetrn.pkb 120.3 2008/04/25 13:25:28 smahanka noship $ */
3:
4: g_package varchar2(33) := ' ota_enroll_in_training_ss.'; -- Global package name
5:
6: --
7: --
8: -- ----------------------------------------------------------------------------
123:
124:
125: l_price_basis OTA_EVENTS.price_basis%TYPE;
126:
127: l_person_details OTA_ENROLL_IN_TRAINING_SS.csr_person_to_enroll_details%ROWTYPE;
128: --
129: l_booking_status_row OTA_BOOKING_STATUS_TYPES%ROWTYPE;
130: l_booking_id OTA_DELEGATE_BOOKINGS.booking_id%type := null;
131: l_object_version_number BINARY_INTEGER;
332: EXCEPTION
333: WHEN OTHERS THEN
334:
335: fnd_message.set_name ('OTA','OTA_13658_WF_ERR_GETTING_TYPE');
336: RAISE OTA_ENROLL_IN_TRAINING_SS.g_mesg_on_stack_exception ;
337: p_message_name := SUBSTR(SQLERRM, 1,300);
338: END; /* End Check booking Type */
339:
340:
409: END IF;
410: -- END IF;
411: IF l_booking_status_row.booking_Status_type_id is null then
412: fnd_message.set_name ('OTA','OTA_13667_WEB_STATUS_NOT_SEEDE');
413: RAISE OTA_ENROLL_IN_TRAINING_SS.g_mesg_on_stack_exception ;
414: ELSE
415: WF_ENGINE.setitemattrtext(p_item_type,
416: l_item_key,
417: 'ENROLL_IN_A_CLASS_STATUS',
427:
428: -- END IF;
429:
430: EXCEPTION
431: WHEN OTA_ENROLL_IN_TRAINING_SS.g_mesg_on_stack_exception THEN
432: --
433: -- Store the technical message which will have been seeded
434: -- if this exception has been raised. This will be used to provide
435: -- the code.
544: ,itemkey => l_item_key
545: ,aname => 'BOOKING_STATUS_TYPE_ID'
546: ,avalue => l_booking_status_row.booking_status_type_id); */
547:
548: l_object_version_number := OTA_ENROLL_IN_TRAINING_SS.Get_Booking_OVN (p_booking_id => l_booking_id);
549:
550: /* Call Cancel procedure to cancel the Finance if person Re-enroll */
551: cancel_finance(l_booking_id);
552:
1295: --
1296: IF csr_person_to_enroll_details%NOTFOUND THEN
1297: CLOSE csr_person_to_enroll_details;
1298: fnd_message.set_name('PER','HR_51396_WEB_PERSON_NOT_FND');
1299: RAISE OTA_ENROLL_IN_TRAINING_SS.g_mesg_on_stack_exception ;
1300: ELSE
1301: CLOSE csr_person_to_enroll_details;
1302: RETURN l_csr_person_to_enroll_details;
1303: END IF;
1302: RETURN l_csr_person_to_enroll_details;
1303: END IF;
1304:
1305: EXCEPTION
1306: WHEN OTA_ENROLL_IN_TRAINING_SS.g_mesg_on_stack_exception THEN
1307: --
1308: -- Handle the exception in the calling code.
1309: RAISE; --OTA_ENROLL_IN_TRAINING_SS.g_mesg_on_stack_exception ;
1310:
1305: EXCEPTION
1306: WHEN OTA_ENROLL_IN_TRAINING_SS.g_mesg_on_stack_exception THEN
1307: --
1308: -- Handle the exception in the calling code.
1309: RAISE; --OTA_ENROLL_IN_TRAINING_SS.g_mesg_on_stack_exception ;
1310:
1311: WHEN OTHERS THEN
1312: fnd_message.set_name('PER','HR_51396_WEB_PERSON_NOT_FND');
1313: RAISE;
1351:
1352: IS
1353:
1354: l_person_details
1355: OTA_ENROLL_IN_TRAINING_SS.csr_person_to_enroll_details%ROWTYPE;
1356: l_cancel_boolean boolean;
1357: l_dummy number;
1358: Begin
1359: p_double_book := 'N';
1356: l_cancel_boolean boolean;
1357: l_dummy number;
1358: Begin
1359: p_double_book := 'N';
1360: l_person_details := OTA_ENROLL_IN_TRAINING_SS.Get_Person_To_Enroll_Details(p_person_id => p_person_id);
1361:
1362: l_cancel_boolean :=
1363: Chk_Event_Cancelled_for_Person
1364: (p_event_id => p_event_id
2194: --
2195: END Get_Booking_OVN;
2196:
2197:
2198: end ota_enroll_in_training_ss;