1 PACKAGE BODY GMS_BURDEN_COSTING AS
2 /* $Header: gmscbcab.pls 120.1 2005/07/26 14:21:33 appldev ship $ */
3
4 -- Global variables/cursors used within the package --
5
6 current_project_id pa_projects_all.project_id%type;
7 ------------------------------------------------------------------
8
9 -- Procedure to set the current project_id in package variable
10 PROCEDURE set_current_project_id(x_project_id in number) IS
11 current_project_id number(15);
12 BEGIN
13 current_project_id := x_project_id;
14 END set_current_project_id;
15
16 ------------------------------------------------------------------
17
18 -- Procedure to get the current project_id in package variable
19 FUNCTION get_current_project_id RETURN NUMBER IS
20 BEGIN
21 return current_project_id;
22 END get_current_project_id;
23
24 ------------------------------------------------------------------
25 END GMS_BURDEN_COSTING;