PACKAGE BODY: APPS.PA_BILLING_VALUES

Source

1 PACKAGE BODY pa_billing_values AS
2 /* $Header: PAXIVALB.pls 120.2 2005/08/19 17:15:12 mwasowic noship $ */
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 
21 FUNCTION funding_level(X2_project_id NUMBER)
22 	RETURN VARCHAR2 IS
23 	funding	VARCHAR2(12) := 'NO FUNDING';
24 BEGIN
25 	SELECT decode(project_level_funding_flag,
26 			'Y', 'PROJECT',
27 			'N','TASK',
28 			'NO FUNDING')
29 	INTO	funding
30 	FROM	pa_projects
31 	WHERE	project_id = X2_project_id;
32 
33 	return funding;
34 END funding_level;
35 
36 FUNCTION get_dflt_org(X2_project_id NUMBER, X2_top_task_id NUMBER)
37 	RETURN NUMBER IS
38 	XO_organization_id	NUMBER(15);
39 BEGIN
40 	IF (X2_top_task_id IS NULL) THEN
41 		SELECT 	p.carrying_out_organization_id
42 		INTO	XO_organization_id
43 		FROM	pa_projects p
44 		WHERE	p.project_id = X2_project_id;
45 	ELSE
46 		SELECT 	t.carrying_out_organization_id
47 		INTO	XO_organization_id
48 		FROM	pa_tasks t
49 		WHERE	t.task_id = X2_top_task_id;
50 	END IF;
51 
52 	return XO_organization_id;
53 EXCEPTION
54 	WHEN OTHERS THEN
55 		/* DBMS_OUTPUT.PUT(SQLERRM); */
56 		RAISE;
57 END get_dflt_org;
58 
59 
60 PROCEDURE get_dflt_desc(X2_billing_assignment_id NUMBER,
61 			X2_event_type  OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
62 			X2_event_description  OUT NOCOPY VARCHAR2)  IS --File.Sql.39 bug 4440895
63 
64 XO_event_description 	VARCHAR2(240);
65 XO_event_type		VARCHAR2(30);
66 BEGIN
67 	SELECT  be.default_event_description, be.default_event_type
68 	INTO	XO_event_description, XO_event_type
69 	FROM	pa_billing_extensions be,
70 		pa_billing_assignments bea
71 	WHERE	bea.billing_assignment_id = X2_billing_assignment_id
72 	AND	bea.billing_extension_id = be.billing_extension_id;
73 
74 X2_event_description := XO_event_description;
75 X2_event_type := XO_event_type;
76 
77 END get_dflt_desc;
78 
79 FUNCTION get_message(X2_message_code VARCHAR2)
80 	RETURN VARCHAR2 IS
81 
82 message	VARCHAR2(240);
83 
84 BEGIN
85 	SELECT meaning
86 	INTO   message
87 	FROM   pa_lookups
88 	WHERE  lookup_type = 'BILLING EXTENSION MESSAGES'
89 	AND    lookup_code = X2_message_code;
90 
91 	RETURN message;
92 
93 EXCEPTION WHEN OTHERS THEN
94 	  /* DBMS_OUTPUT.PUT(SQLERRM); */
95 	  RAISE;
96 END get_message;
97 
98 
99 END pa_billing_values;