PACKAGE BODY: APPS.PA_BILLING_VALIDATE

Source

1 PACKAGE BODY pa_billing_validate AS
2 /* $Header: PAXIVLDB.pls 115.0 99/07/16 15:27:22 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 automatic_event (X2_event_type VARCHAR2)
21 	 RETURN BOOLEAN IS
22 	is_automatic 	BOOLEAN;
23 	classification  VARCHAR2(30);
24 BEGIN
25 	SELECT  event_type_classification
26 	INTO	classification
27 	FROM	pa_event_types
28 	WHERE	event_type = X2_event_type;
29 
30 	IF (classification = 'AUTOMATIC') THEN
31 		is_automatic := TRUE;
32 	ELSE
33 		is_automatic := FALSE;
34 	END IF;
35 
36 	return is_automatic;
37 
38 	EXCEPTION
39 	  WHEN NO_DATA_FOUND THEN
40 		status := 'Not a valid event type';
41 		return FALSE;
42 	  WHEN OTHERS THEN
43 		status := 'Error in automatic_event function';
44 		return FALSE;
45 END automatic_event;
46 
47 
48 FUNCTION valid_proj_task_extn (X2_project_id NUMBER, X2_top_task_id NUMBER,
49 			X2_billing_assignment_id NUMBER)
50 	RETURN BOOLEAN IS
51 	dummy	VARCHAR2(30);
52 BEGIN
53 	SELECT 	'Valid Proj/Task/Assgn'
54 	INTO	dummy
55 	FROM	pa_tasks t, pa_projects p
56 	WHERE	t.project_id = X2_project_id
57 	AND	t.top_task_id = nvl(X2_top_task_id, t.top_task_id)
58 	AND	t.project_id = p.project_id
59 	AND	rownum = 1;
60 
61 	return TRUE;
62 
63 	EXCEPTION
64 	WHEN NO_DATA_FOUND THEN
65 		return FALSE;
66 END valid_proj_task_extn;
67 
68 
69 FUNCTION valid_organization (X2_organization_id	NUMBER)
70 	RETURN BOOLEAN IS
71 	dummy	VARCHAR2(30);
72 BEGIN
73 	SELECT 	'Valid Org'
74 	INTO	dummy
75 	FROM	hr_organization_units
76 	WHERE	organization_id = X2_organization_id;
77 
78 	return TRUE;
79 
80 	EXCEPTION
81 	WHEN NO_DATA_FOUND THEN
82 		return FALSE;
83 END valid_organization;
84 
85 END pa_billing_validate;