PACKAGE BODY: APPS.PA_BILLING_SEQ

Source

1 PACKAGE BODY pa_billing_seq AS
2 /* $Header: PAXISEQB.pls 115.0 99/07/16 15:26:38 porting ship $ */
3 
4 ---------------------
5 --  GLOBALS
6 --
7 status			VARCHAR2(240);     -- For error messages from subprogs
8 last_updated_by		NUMBER(15);	   --|
9 created_by   		NUMBER(15);        --|
10 last_update_login	NUMBER(15);        --|Standard Who Columns
11 request_id		NUMBER(15);        --|
12 program_application_id	NUMBER(15);        --|
13 program_id		NUMBER(15);        --|
14 
15 ------------------------
16 --  PROCEDURES AND FUNCTIONS
17 --
18 --
19 
20 FUNCTION next_eventnum(X2_project_id NUMBER, X2_task_id NUMBER)
21 	RETURN NUMBER IS
22 	eventnum NUMBER;
23 BEGIN
24 	SELECT max(event_num)
25 	INTO	eventnum
26 	FROM	pa_events
27 	WHERE	project_id = X2_project_id
28 	AND	nvl(task_id,-1) = nvl(X2_task_id,-1);
29 
30 	IF (eventnum IS NULL) THEN return 1;
31 	ELSE return (eventnum + 1);
32 	END IF;
33 
34 	EXCEPTION
35           WHEN NO_DATA_FOUND THEN
36                 return 1;
37 	  WHEN OTHERS THEN
38 		status := 'Error in next_eventnum function';
39                 RAISE;
40 END next_eventnum;
41 
42 
43 FUNCTION session_id RETURN NUMBER IS
44 
45 xo_sessionid NUMBER(10):=NULL;
46 BEGIN
47 	SELECT userenv('sessionid')
48 	INTO   xo_sessionid
49 	FROM	DUAL;
50 
51 	RETURN xo_sessionid;
52 
53 	EXCEPTION WHEN OTHERS THEN
54 		RAISE;
55 END session_id;
56 
57 END pa_billing_seq;