1: PACKAGE BODY CSI_T_EXTEND_ATTRIBS_PKG as
2: /* $Header: csitteab.pls 115.4 2002/11/12 00:23:47 rmamidip noship $ */
3: -- Package name : CSI_T_EXTEND_ATTRIBS_PKG
4: -- Purpose : Table Handler for csi_t_extend_attribs
5: -- History : brmanesh created 12-MAY-2001
1: PACKAGE BODY CSI_T_EXTEND_ATTRIBS_PKG as
2: /* $Header: csitteab.pls 115.4 2002/11/12 00:23:47 rmamidip noship $ */
3: -- Package name : CSI_T_EXTEND_ATTRIBS_PKG
4: -- Purpose : Table Handler for csi_t_extend_attribs
5: -- History : brmanesh created 12-MAY-2001
6: -- NOTE :
7: -- End of Comments
1: PACKAGE BODY CSI_T_EXTEND_ATTRIBS_PKG as
2: /* $Header: csitteab.pls 115.4 2002/11/12 00:23:47 rmamidip noship $ */
3: -- Package name : CSI_T_EXTEND_ATTRIBS_PKG
4: -- Purpose : Table Handler for csi_t_extend_attribs
5: -- History : brmanesh created 12-MAY-2001
6: -- NOTE :
7: -- End of Comments
8:
6: -- NOTE :
7: -- End of Comments
8:
9:
10: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_T_EXTEND_ATTRIBS_PKG';
11: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csitteab.pls';
12:
13: PROCEDURE Insert_Row(
14: px_TXN_ATTRIB_DETAIL_ID IN OUT NOCOPY NUMBER,
43: p_OBJECT_VERSION_NUMBER NUMBER,
44: p_CONTEXT VARCHAR2)
45:
46: IS
47: CURSOR C2 IS SELECT CSI_T_EXTEND_ATTRIBS_S.nextval FROM sys.dual;
48: BEGIN
49: If (px_TXN_ATTRIB_DETAIL_ID IS NULL) OR (px_TXN_ATTRIB_DETAIL_ID = FND_API.G_MISS_NUM) then
50: OPEN C2;
51: FETCH C2 INTO px_TXN_ATTRIB_DETAIL_ID;
50: OPEN C2;
51: FETCH C2 INTO px_TXN_ATTRIB_DETAIL_ID;
52: CLOSE C2;
53: End If;
54: INSERT INTO CSI_T_EXTEND_ATTRIBS(
55: TXN_ATTRIB_DETAIL_ID,
56: TXN_LINE_DETAIL_ID,
57: ATTRIB_SOURCE_ID,
58: ATTRIB_SOURCE_TABLE,
151: p_CONTEXT VARCHAR2)
152:
153: IS
154: BEGIN
155: Update CSI_T_EXTEND_ATTRIBS
156: SET
157: TXN_LINE_DETAIL_ID = decode( p_TXN_LINE_DETAIL_ID, FND_API.G_MISS_NUM, TXN_LINE_DETAIL_ID, p_TXN_LINE_DETAIL_ID),
158: ATTRIB_SOURCE_ID = decode( p_ATTRIB_SOURCE_ID, FND_API.G_MISS_NUM, ATTRIB_SOURCE_ID, p_ATTRIB_SOURCE_ID),
159: ATTRIB_SOURCE_TABLE = decode( p_ATTRIB_SOURCE_TABLE, FND_API.G_MISS_CHAR, ATTRIB_SOURCE_TABLE, p_ATTRIB_SOURCE_TABLE),
194: PROCEDURE Delete_Row(
195: p_TXN_ATTRIB_DETAIL_ID NUMBER)
196: IS
197: BEGIN
198: DELETE FROM CSI_T_EXTEND_ATTRIBS
199: WHERE TXN_ATTRIB_DETAIL_ID = p_TXN_ATTRIB_DETAIL_ID;
200: If (SQL%NOTFOUND) then
201: RAISE NO_DATA_FOUND;
202: End If;
237:
238: IS
239: CURSOR C IS
240: SELECT *
241: FROM CSI_T_EXTEND_ATTRIBS
242: WHERE TXN_ATTRIB_DETAIL_ID = p_TXN_ATTRIB_DETAIL_ID
243: FOR UPDATE of TXN_ATTRIB_DETAIL_ID NOWAIT;
244: Recinfo C%ROWTYPE;
245: BEGIN
350: APP_EXCEPTION.RAISE_EXCEPTION;
351: End If;
352: END Lock_Row;
353:
354: End CSI_T_EXTEND_ATTRIBS_PKG;