[Home] [Help]
1: PACKAGE BODY CSI_I_VERSION_LABELS_PKG as
2: /* $Header: csitverb.pls 115.12 2003/09/04 00:23:50 sguthiva ship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_I_VERSION_LABELS_PKG';
1: PACKAGE BODY CSI_I_VERSION_LABELS_PKG as
2: /* $Header: csitverb.pls 115.12 2003/09/04 00:23:50 sguthiva ship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_I_VERSION_LABELS_PKG';
6: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csitverb.pls';
7:
8: PROCEDURE Insert_Row(
9: p_VERSION_LABEL_ID IN OUT NOCOPY NUMBER,
36: p_LAST_UPDATE_LOGIN NUMBER,
37: p_OBJECT_VERSION_NUMBER NUMBER)
38:
39: IS
40: CURSOR C2 IS SELECT CSI_I_VERSION_LABELS_S.nextval FROM sys.dual;
41: BEGIN
42: If (p_VERSION_LABEL_ID IS NULL) OR (p_VERSION_LABEL_ID = FND_API.G_MISS_NUM) then
43: OPEN C2;
44: FETCH C2 INTO p_VERSION_LABEL_ID;
43: OPEN C2;
44: FETCH C2 INTO p_VERSION_LABEL_ID;
45: CLOSE C2;
46: End If;
47: INSERT INTO CSI_I_VERSION_LABELS(
48: VERSION_LABEL_ID,
49: INSTANCE_ID,
50: VERSION_LABEL,
51: DATE_TIME_STAMP,
138: p_OBJECT_VERSION_NUMBER NUMBER)
139:
140: IS
141: BEGIN
142: Update CSI_I_VERSION_LABELS
143: SET
144: INSTANCE_ID = decode( p_INSTANCE_ID, FND_API.G_MISS_NUM, INSTANCE_ID, p_INSTANCE_ID),
145: VERSION_LABEL = decode( p_VERSION_LABEL, FND_API.G_MISS_CHAR, VERSION_LABEL, p_VERSION_LABEL),
146: DATE_TIME_STAMP = decode( p_DATE_TIME_STAMP, FND_API.G_MISS_DATE, DATE_TIME_STAMP, p_DATE_TIME_STAMP),
179: PROCEDURE Delete_Row(
180: p_VERSION_LABEL_ID NUMBER)
181: IS
182: BEGIN
183: DELETE FROM CSI_I_VERSION_LABELS
184: WHERE VERSION_LABEL_ID = p_VERSION_LABEL_ID;
185: If (SQL%NOTFOUND) then
186: RAISE NO_DATA_FOUND;
187: End If;
220:
221: IS
222: CURSOR C IS
223: SELECT *
224: FROM CSI_I_VERSION_LABELS
225: WHERE VERSION_LABEL_ID = p_VERSION_LABEL_ID
226: FOR UPDATE of VERSION_LABEL_ID NOWAIT;
227: Recinfo C%ROWTYPE;
228: BEGIN
327: APP_EXCEPTION.RAISE_EXCEPTION;
328: End If;
329: END Lock_Row;
330:
331: End CSI_I_VERSION_LABELS_PKG;
332: