1: PACKAGE BODY PSB_WS_Distributions_PVT AS
2: /* $Header: PSBVWDTB.pls 120.2 2005/07/13 11:31:01 shtripat ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_WS_Distributions_PVT';
5:
1: PACKAGE BODY PSB_WS_Distributions_PVT AS
2: /* $Header: PSBVWDTB.pls 120.2 2005/07/13 11:31:01 shtripat ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_WS_Distributions_PVT';
5:
6:
7: /*=======================================================================+
8: | PROCEDURE Insert_Row |
36: l_api_version CONSTANT NUMBER := 1.0;
37: --
38: CURSOR C IS
39: SELECT rowid
40: FROM psb_ws_distributions
41: WHERE distribution_id = p_distribution_id ;
42:
43: CURSOR C2 IS
44: SELECT psb_ws_distributions_s.nextval
40: FROM psb_ws_distributions
41: WHERE distribution_id = p_distribution_id ;
42:
43: CURSOR C2 IS
44: SELECT psb_ws_distributions_s.nextval
45: FROM dual;
46: BEGIN
47: --
48: SAVEPOINT Insert_Row_Pvt ;
69: FETCH C2 INTO p_distribution_id;
70: CLOSE C2;
71: END IF;
72:
73: INSERT INTO psb_ws_distributions
74: (
75: Distribution_Id,
76: Distribution_Rule_Id,
77: Worksheet_Id,
181: Distribution_Rule_Id,
182: Worksheet_Id,
183: Distribution_Date,
184: Distributed_Flag
185: FROM psb_ws_distributions
186: WHERE rowid = p_Row_Id
187: FOR UPDATE of Distribution_Id NOWAIT;
188: Recinfo C%ROWTYPE;
189:
338: --
339: p_return_status := FND_API.G_RET_STS_SUCCESS ;
340: --
341:
342: UPDATE psb_ws_distributions
343: SET
344: distribution_id = p_distribution_id,
345: distribution_rule_id = p_distribution_rule_id,
346: worksheet_id = p_worksheet_id,
419: l_api_name CONSTANT VARCHAR2(30) := 'Delete_Row';
420: l_api_version CONSTANT NUMBER := 1.0;
421: --
422: l_distribution_rule_id
423: psb_ws_distributions.distribution_rule_id%TYPE;
424: --
425: BEGIN
426: --
427: SAVEPOINT Delete_Row_Pvt ;
442: p_return_status := FND_API.G_RET_STS_SUCCESS ;
443: --
444:
445: --
446: -- Deleting the record in psb_ws_distributions.
447: --
448: DELETE psb_ws_distributions
449: WHERE rowid = p_Row_Id;
450:
444:
445: --
446: -- Deleting the record in psb_ws_distributions.
447: --
448: DELETE psb_ws_distributions
449: WHERE rowid = p_Row_Id;
450:
451: IF (SQL%NOTFOUND) THEN
452: RAISE NO_DATA_FOUND ;
492: END Delete_Row;
493: /* ----------------------------------------------------------------------- */
494:
495:
496: END PSB_WS_Distributions_PVT;