[Home] [Help]
1: PACKAGE BODY CSI_COUNTER_READINGS_PKG as
2: /* $Header: csitcrdb.pls 120.3 2008/04/03 21:51:55 devijay ship $*/
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_COUNTER_READINGS_PKG';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csitcrdb.pls';
1: PACKAGE BODY CSI_COUNTER_READINGS_PKG as
2: /* $Header: csitcrdb.pls 120.3 2008/04/03 21:51:55 devijay ship $*/
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_COUNTER_READINGS_PKG';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csitcrdb.pls';
6:
7: PROCEDURE Insert_Row(
8: px_COUNTER_VALUE_ID IN OUT NOCOPY NUMBER
64: ,p_INITIAL_READING_FLAG VARCHAR2
65: ) IS
66:
67: CURSOR C1 IS
68: SELECT CSI_COUNTER_READINGS_S.nextval
69: FROM dual;
70: BEGIN
71: IF (px_COUNTER_VALUE_ID IS NULL) OR (px_COUNTER_VALUE_ID = FND_API.G_MISS_NUM) THEN
72: OPEN C1;
73: FETCH C1 INTO px_COUNTER_VALUE_ID;
74: CLOSE C1;
75: END IF;
76:
77: INSERT INTO CSI_COUNTER_READINGS(
78: COUNTER_VALUE_ID
79: ,COUNTER_ID
80: ,VALUE_TIMESTAMP
81: ,COUNTER_READING
254: ,p_SOURCE_LINE_ID NUMBER
255: ,p_INITIAL_READING_FLAG VARCHAR2
256: ) IS
257: BEGIN
258: UPDATE CSI_COUNTER_READINGS
259: SET
260: COUNTER_ID = decode(p_COUNTER_ID, NULL, COUNTER_ID, FND_API.G_MISS_NUM, NULL, p_COUNTER_ID)
261: ,VALUE_TIMESTAMP = decode(p_VALUE_TIMESTAMP, NULL, VALUE_TIMESTAMP, FND_API.G_MISS_DATE, NULL, p_VALUE_TIMESTAMP)
262: ,COUNTER_READING = decode(p_COUNTER_READING, NULL, COUNTER_READING, FND_API.G_MISS_NUM, NULL, p_COUNTER_READING)
381: ) IS
382:
383: CURSOR C1 IS
384: SELECT *
385: FROM CSI_COUNTER_READINGS
386: WHERE COUNTER_VALUE_ID = p_COUNTER_VALUE_ID
387: FOR UPDATE of COUNTER_VALUE_ID NOWAIT;
388: Recinfo C1%ROWTYPE;
389: BEGIN
466: PROCEDURE Delete_Row(
467: p_COUNTER_VALUE_ID NUMBER
468: ) IS
469: BEGIN
470: DELETE FROM CSI_COUNTER_READINGS
471: WHERE COUNTER_VALUE_ID = p_COUNTER_VALUE_ID;
472: IF (SQL%NOTFOUND) then
473: RAISE NO_DATA_FOUND;
474: END IF;
473: RAISE NO_DATA_FOUND;
474: END IF;
475: END Delete_Row;
476:
477: End CSI_COUNTER_READINGS_PKG;