1 package body ota_definitions as
2 /* $Header: otobk01t.pkb 115.0 99/07/16 00:52:40 porting ship $ */
3 --
4 -- |--------------------------------------------------------------------------|
5 -- |-----------------------< status_usage >-----------------------------------|
6 -- |--------------------------------------------------------------------------|
7 --
8 /*
9 Contains code to determine the meaning of booking status types defined
10 by the user
11
12 PLACE_USED - determines the list of Booking_Status_Type_IDs
13 that constitute the use of a place on a course
14 */
15 --
16 function status_usage(p_usage_type in varchar2
17 ,p_booking_status_type_id in number)
18 return number is
19 --
20 l_proc varchar2(72) := 'status_usage';
21 --
22 begin
23 --
24 --
25 if p_usage_type = 'PLACE_USED' then
26 if p_booking_status_type_id in
27 --
28 /* --------------------------------------------------------------------
29 Modify this list to include the Booking Status Type IDs that you want
30 to be taken into account when calculating whether a an enrolment
31 uses places on an event
32 --------------------------------------------------------------------*/
33 --
34 (59,32,31)
35 --
36 then return(1);
37 else
38 return(0);
39 end if;
40 else
41 return(0);
42 end if;
43 --
44 end;
45 --
46 end ota_definitions;