PACKAGE BODY: APPS.CE_FORECAST_ERRORS_PKG

Source

1 PACKAGE BODY CE_FORECAST_ERRORS_PKG AS
2 /* $Header: cefcerrb.pls 120.0 2002/08/24 02:34:25 appldev noship $ */
3 PROCEDURE Insert_Row(	X_forecast_id		NUMBER,
4 			X_forecast_header_id	NUMBER,
5 			X_forecast_row_id	NUMBER,
6 			X_message_name	        VARCHAR2,
7 			X_message_text		VARCHAR2) IS
8    BEGIN
9      INSERT INTO CE_FORECAST_ERRORS(
10 		application_short_name,
11 		forecast_header_id,
12 		forecast_id,
13 		forecast_row_id,
14 		message_name,
15 		message_text,
16 		creation_date,
17 		created_by)
18               VALUES (
19 		'CE',
20 		X_forecast_header_id,
21 		X_forecast_id,
22 		X_forecast_row_id,
23 		X_message_name,
24 		X_message_text,
25 		sysdate,
26 		NVL(FND_GLOBAL.user_id,-1));
27   END Insert_Row;
28 
29   PROCEDURE Insert_Row(	X_forecast_id		NUMBER,
30 			X_forecast_header_id	NUMBER,
31 			X_forecast_row_id	NUMBER,
32 			X_message_name	         VARCHAR2,
33 			X_message_text			VARCHAR2,
34 			X_application_short_name	 VARCHAR2) IS
35    BEGIN
36      INSERT INTO CE_FORECAST_ERRORS(
37 		application_short_name,
38 		forecast_header_id,
39 		forecast_id,
40 		forecast_row_id,
41 	        message_name,
42 		message_text,
43 		creation_date,
44 		created_by)
45               VALUES (
46 		X_application_short_name,
47 		X_forecast_header_id,
48 		X_forecast_id,
49 		X_forecast_row_id,
50 		X_message_name,
51 		X_message_text,
52 		sysdate,
53 		NVL(FND_GLOBAL.user_id,-1));
54   END Insert_Row;
55 
56   PROCEDURE Delete_Row(X_forecast_id NUMBER) IS
57   BEGIN
58     DELETE FROM CE_FORECAST_ERRORS
59     WHERE forecast_id  = X_forecast_id;
60   END Delete_Row;
61 
62 
63 END CE_FORECAST_ERRORS_PKG;