1: PACKAGE BODY PSB_DEFAULT_ASSIGNMENTS_PVT AS
2: /* $Header: PSBVPDAB.pls 120.2 2005/07/13 11:27:57 shtripat ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_DEFAULT_ASSIGNMENTS_PVT';
5:
1: PACKAGE BODY PSB_DEFAULT_ASSIGNMENTS_PVT AS
2: /* $Header: PSBVPDAB.pls 120.2 2005/07/13 11:27:57 shtripat ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_DEFAULT_ASSIGNMENTS_PVT';
5:
6: /* ----------------------------------------------------------------------- */
7:
8: PROCEDURE INSERT_ROW
38: l_api_version CONSTANT NUMBER := 1.0;
39: l_row_id varchar2(40);
40: --
41: cursor c1 is
42: select ROWID from psb_default_assignments
43: where default_rule_id = p_default_rule_id
44: and default_assignment_id = p_default_assignment_id;
45:
46: BEGIN
70: p_return_status := FND_API.G_RET_STS_SUCCESS;
71:
72:
73: -- API body
74: INSERT INTO psb_default_assignments
75: (
76: DEFAULT_ASSIGNMENT_ID ,
77: DEFAULT_RULE_ID ,
78: ASSIGNMENT_TYPE ,
226:
227: p_return_status := FND_API.G_RET_STS_SUCCESS;
228:
229: -- API body
230: UPDATE psb_default_assignments SET
231: DEFAULT_ASSIGNMENT_ID = P_DEFAULT_ASSIGNMENT_ID,
232: DEFAULT_RULE_ID = P_DEFAULT_RULE_ID,
233: ASSIGNMENT_TYPE = P_ASSIGNMENT_TYPE,
234: ATTRIBUTE_ID = P_ATTRIBUTE_ID,
340: end if;
341:
342:
343: --Delete the record in the table
344: DELETE FROM psb_default_assignments
345: where rowid = p_row_id;
346:
347:
348: if (SQL%NOTFOUND) then
429: l_api_version CONSTANT NUMBER := 1.0;
430: --
431: counter number;
432:
433: CURSOR C IS SELECT * FROM psb_default_assignments
434: WHERE rowid = p_row_id
435: FOR UPDATE of default_assignment_id NOWAIT;
436: Recinfo C%ROWTYPE;
437:
582: l_tmp VARCHAR2(1);
583:
584: CURSOR c IS
585: SELECT '1'
586: FROM psb_default_assignments
587: WHERE ( attribute_id = p_attribute_id
588: OR pay_element_id = p_pay_element_id
589: OR (pay_element_option_id = p_pay_element_option_id
590: and pay_element_id = p_pay_element_id )
662: p_data => p_msg_data );
663: --
664: END Check_Unique;
665:
666: END PSB_DEFAULT_ASSIGNMENTS_PVT;