[Home] [Help]
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;