1: PACKAGE BODY CSP_FORECAST_RULES_B_PKG as
2: /* $Header: csptpfrb.pls 115.8 2003/05/29 20:31:19 sunarasi ship $ */
3: -- Start of Comments
4: -- Package name : CSP_FORECAST_RULES_B_PKG
5: -- Purpose :
1: PACKAGE BODY CSP_FORECAST_RULES_B_PKG as
2: /* $Header: csptpfrb.pls 115.8 2003/05/29 20:31:19 sunarasi ship $ */
3: -- Start of Comments
4: -- Package name : CSP_FORECAST_RULES_B_PKG
5: -- Purpose :
6: -- History :
7: -- NOTE :
8: -- End of Comments
7: -- NOTE :
8: -- End of Comments
9:
10:
11: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSP_FORECAST_RULES_B_PKG';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csptpfrb.pls';
13:
14: PROCEDURE Insert_Row(
15: px_FORECAST_RULE_ID IN OUT NOCOPY NUMBER,
58: p_DESCRIPTION VARCHAR2)
59:
60:
61: IS
62: CURSOR C2 IS SELECT CSP_FORECAST_RULES_B_S1.nextval FROM sys.dual;
63: BEGIN
64: If (px_FORECAST_RULE_ID IS NULL) OR (px_FORECAST_RULE_ID = FND_API.G_MISS_NUM) then
65: OPEN C2;
66: FETCH C2 INTO px_FORECAST_RULE_ID;
65: OPEN C2;
66: FETCH C2 INTO px_FORECAST_RULE_ID;
67: CLOSE C2;
68: End If;
69: INSERT INTO CSP_FORECAST_RULES_B(
70: FORECAST_RULE_ID,
71: CREATED_BY,
72: CREATION_DATE,
73: LAST_UPDATED_BY,
232: p_DESCRIPTION VARCHAR2)
233:
234: IS
235: BEGIN
236: Update CSP_FORECAST_RULES_B
237: SET
238: CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY),
239: CREATION_DATE = decode(p_CREATION_DATE,fnd_api.g_miss_date,creation_date,p_creation_date),
240: LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
309: if (sql%notfound) then
310: raise no_data_found;
311: end if;
312:
313: DELETE FROM CSP_FORECAST_RULES_B
314: WHERE FORECAST_RULE_ID = p_FORECAST_RULE_ID;
315: If (SQL%NOTFOUND) then
316: RAISE NO_DATA_FOUND;
317: End If;
365:
366: IS
367: CURSOR C IS
368: SELECT *
369: FROM CSP_FORECAST_RULES_B
370: WHERE FORECAST_RULE_ID = p_FORECAST_RULE_ID
371: FOR UPDATE of FORECAST_RULE_ID NOWAIT;
372:
373: cursor c1 is select
546: begin
547: delete from CSP_FORECAST_RULES_TL T
548: where not exists
549: (select NULL
550: from CSP_FORECAST_RULES_B B
551: where B.FORECAST_RULE_ID = T.FORECAST_RULE_ID
552: );
553:
554: update CSP_FORECAST_RULES_TL T set (
757: RAISE;
758:
759: END Load_Row;
760:
761: End CSP_FORECAST_RULES_B_PKG;