[Home] [Help]
1: PACKAGE BODY PSB_ALLOCRULE_PERCENTS_PVT AS
2: /* $Header: PSBVARPB.pls 120.2 2005/07/13 11:23:16 shtripat ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_ALLOCRULE_PERCENTS_PVT';
5: G_DBUG VARCHAR2(2000);
1: PACKAGE BODY PSB_ALLOCRULE_PERCENTS_PVT AS
2: /* $Header: PSBVARPB.pls 120.2 2005/07/13 11:23:16 shtripat ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_ALLOCRULE_PERCENTS_PVT';
5: G_DBUG VARCHAR2(2000);
6:
7: /* ----------------------------------------------------------------------- */
8:
38: l_allocation_rule_percent_id NUMBER ;
39:
40:
41: CURSOR C IS
42: select PSB_Allocrule_percents_S.NEXTVAL from DUAL ;
43: BEGIN
44:
45: -- Standard Start of API savepoint
46:
72: FETCH C into l_allocation_rule_percent_id;
73: P_allocation_rule_percent_id := l_allocation_rule_percent_id;
74: CLOSE C;
75:
76: INSERT INTO PSB_ALLOCRULE_PERCENTS (
77: allocation_rule_percent_id,
78: allocation_rule_id,
79: number_of_periods,
80: period_num,
113: FETCH C into l_allocation_rule_percent_id;
114: P_allocation_rule_percent_id := l_allocation_rule_percent_id;
115: CLOSE C;
116:
117: INSERT INTO PSB_ALLOCRULE_PERCENTS (
118: allocation_rule_percent_id,
119: allocation_rule_id,
120: number_of_periods,
121: period_num,
154: FETCH C into l_allocation_rule_percent_id;
155: P_allocation_rule_percent_id := l_allocation_rule_percent_id;
156: CLOSE C;
157:
158: INSERT INTO PSB_ALLOCRULE_PERCENTS (
159: allocation_rule_percent_id,
160: allocation_rule_id,
161: number_of_periods,
162: period_num,
297: p_return_status := FND_API.G_RET_STS_SUCCESS;
298:
299: -- API body
300:
301: UPDATE PSB_ALLOCRULE_PERCENTS
302: SET
303: percent = P_MONTHLY,
304: last_update_date = P_LAST_UPDATE_DATE,
305: last_updated_by = P_LAST_UPDATED_BY,
318: RAISE NO_DATA_FOUND;
319: END IF;
320:
321:
322: UPDATE PSB_ALLOCRULE_PERCENTS
323: SET
324: percent = P_QUARTERLY,
325: last_update_date = P_LAST_UPDATE_DATE,
326: last_updated_by = P_LAST_UPDATED_BY,
338: IF (SQL%NOTFOUND) THEN
339: RAISE NO_DATA_FOUND;
340: END IF;
341:
342: UPDATE PSB_ALLOCRULE_PERCENTS
343: SET
344: percent = P_SEMI_ANNUAL,
345: last_update_date = P_LAST_UPDATE_DATE,
346: last_updated_by = P_LAST_UPDATED_BY,
424: l_api_name CONSTANT VARCHAR2(30) := 'Delete_Row';
425: l_api_version CONSTANT NUMBER := 1.0;
426:
427: CURSOR C IS
428: select PSB_Allocrule_percents_S.NEXTVAL from DUAL ;
429: BEGIN
430:
431: -- Standard Start of API savepoint
432:
453: p_return_status := FND_API.G_RET_STS_SUCCESS;
454:
455: -- API body
456:
457: DELETE FROM PSB_ALLOCRULE_PERCENTS
458: WHERE ALLOCATION_RULE_ID = P_ALLOCATION_RULE_ID
459: AND PERIOD_NUM = P_PERIOD_NUM;
460:
461: IF (SQL%NOTFOUND) THEN
541: SELECT ALLOCATION_RULE_ID,
542: PERIOD_NUM,
543: NUMBER_OF_PERIODS,
544: PERCENT
545: FROM PSB_ALLOCRULE_PERCENTS
546: WHERE ALLOCATION_RULE_ID = P_ALLOCATION_RULE_ID
547: AND PERIOD_NUM = P_PERIOD_NUM
548: ORDER BY NUMBER_OF_PERIODS
549: FOR UPDATE OF PERCENT NOWAIT;
720: END get_debug;
721:
722: /* ----------------------------------------------------------------------- */
723:
724: END PSB_ALLOCRULE_PERCENTS_PVT;