PACKAGE BODY: APPS.GMS_BURDEN_COSTING

Source

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;