PACKAGE BODY: APPS.GCS_CONS_ENG_RUNS_PKG

Source

1 PACKAGE BODY GCS_CONS_ENG_RUNS_PKG AS
2 /* $Header: gcs_eng_runb.pls 120.1 2005/10/30 05:18:01 appldev noship $ */
3 
4   -- Declaration of Global Variables
5   	g_api	VARCHAR2(200) := 'gcs.plsql.GCS_CONS_ENG_RUNS_PKG';
6   -- End of Global Variables
7 
8   PROCEDURE	insert_row	(	p_run_name		IN VARCHAR2,
9   					p_hierarchy_id		IN NUMBER,
10   					p_process_method_code	IN VARCHAR2,
11   					p_run_entity_id		IN NUMBER,
12   					p_cal_period_id		IN NUMBER,
13   					p_balance_type_code	IN VARCHAR2,
14   					p_parent_entity_id	IN NUMBER,
15   					p_item_key		IN VARCHAR2,
16 					p_request_id		IN NUMBER)
17 
18   IS PRAGMA AUTONOMOUS_TRANSACTION;
19 
20   BEGIN
21     IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL 	<=	FND_LOG.LEVEL_PROCEDURE) THEN
22       FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.INSERT_ROW', '<<Enter>>');
23     END IF;
24 
25     INSERT INTO gcs_cons_eng_runs
26     (
27     	RUN_NAME,
28     	HIERARCHY_ID,
29     	PROCESS_METHOD,
30     	RUN_ENTITY_ID,
31     	CAL_PERIOD_ID,
32     	BALANCE_TYPE_CODE,
33     	STATUS_CODE,
34     	OBJECT_VERSION_NUMBER,
35     	CREATION_DATE,
36     	CREATED_BY,
37     	LAST_UPDATED_BY,
38     	LAST_UPDATE_DATE,
39     	LAST_UPDATE_LOGIN,
40     	PARENT_ENTITY_ID,
41     	ITEM_KEY,
42 	LOCKED_FLAG,
43 	IMPACTED_FLAG,
44         MOST_RECENT_FLAG,
45     -- Bugfix 3692336 : Add the START_TIME for the Consolidation Process
46         START_TIME,
47     -- Bugfix 4269147 : Added request_id
48         REQUEST_ID
49 
50     )
51     VALUES
52     (
53     	p_run_name,
54     	p_hierarchy_id,
55     	p_process_method_code,
56     	p_run_entity_id,
57     	p_cal_period_id,
58     	p_balance_type_code,
59     	'IN_PROGRESS',
60     	1,
61     	sysdate,
62     	fnd_global.user_id,
63     	fnd_global.user_id,
64     	sysdate,
65     	fnd_global.login_id,
66     	p_parent_entity_id,
67     	p_item_key,
68 	'N',
69 	'N',
70 	'N',
71 	sysdate,
72         p_request_id
73     );
74 
75     IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL 	<=	FND_LOG.LEVEL_PROCEDURE) THEN
76       FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.INSERT_ROW', '<<Exit>>');
77     END IF;
78 
79     COMMIT;
80 
81   END;
82 
83   PROCEDURE	update_status	(	p_run_name		IN VARCHAR2,
84   					p_most_recent_flag	IN VARCHAR2,
85   					p_status_code		IN VARCHAR2,
86   					p_run_entity_id		IN NUMBER,
87 					p_end_time		IN DATE)
88 
89   IS PRAGMA AUTONOMOUS_TRANSACTION;
90 
91   BEGIN
92     IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL 	<=	FND_LOG.LEVEL_PROCEDURE) THEN
93       FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.UPDATE_STATUS', '<<Enter>>');
94     END IF;
95 
96     UPDATE gcs_cons_eng_runs
97     SET    most_recent_flag	=	p_most_recent_flag,
98     	   status_code		=	NVL(p_status_code,status_code),
99 	   end_time		=	NVL(p_end_time,end_time),
100 	   last_update_date	=	sysdate,
101 	   last_updated_by	=	FND_GLOBAL.USER_ID
102     WHERE  run_name		=	p_run_name
103     AND	   run_entity_id	=	p_run_entity_id;
104 
105     IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL 	<=	FND_LOG.LEVEL_PROCEDURE) THEN
106       FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.UPDATE_STATUS', '<<Exit>>');
107     END IF;
108 
109 
110     COMMIT;
111 
112   END;
113 
114 END GCS_CONS_ENG_RUNS_PKG;
115