[Home] [Help]
1: PACKAGE BODY CSD_TASK_QUALITY_RESULTS_PKG as
2: /* $Header: csdttqrb.pls 120.0 2005/06/27 16:10:51 sangigup noship $ csdtactb.pls */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_TASK_QUALITY_RESULTS_PKG';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdttqrb.pls';
1: PACKAGE BODY CSD_TASK_QUALITY_RESULTS_PKG as
2: /* $Header: csdttqrb.pls 120.0 2005/06/27 16:10:51 sangigup noship $ csdtactb.pls */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_TASK_QUALITY_RESULTS_PKG';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdttqrb.pls';
6: l_debug NUMBER := csd_gen_utility_pvt.g_debug_level;
7:
8: -- Global variable for storing the debug level
23:
24:
25: IS
26:
27: CURSOR C2 IS SELECT CSD_TASK_QUALITY_RESULTS_S.nextval FROM sys.dual;
28: BEGIN
29:
30: If (px_TASK_QUALITY_RESULT_ID IS NULL) OR (px_TASK_QUALITY_RESULT_ID = FND_API.G_MISS_NUM) then
31: OPEN C2;
32: FETCH C2 INTO px_task_quality_result_ID;
33: CLOSE C2;
34: End If;
35:
36: INSERT INTO CSD_TASK_QUALITY_RESULTS(
37: TASK_QUALITY_RESULT_ID
38: ,TASK_ID
39: ,OBJECT_VERSION_NUMBER
40: ,QA_COLLECTION_ID
72: )
73:
74: IS
75: BEGIN
76: Update CSD_TASK_QUALITY_RESULTS
77: SET
78:
79: TASK_ID = decode( p_TASK_ID, FND_API.G_MISS_NUM, NULL, NULL, TASK_ID, p_TASK_ID)
80: ,OBJECT_VERSION_NUMBER = decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, NULL, OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER)
96: PROCEDURE Delete_Row(
97: p_TASK_ID NUMBER)
98: IS
99: BEGIN
100: DELETE FROM CSD_TASK_QUALITY_RESULTS
101: WHERE TASK_ID = p_TASK_ID;
102:
103: If (SQL%NOTFOUND) then
104: RAISE NO_DATA_FOUND;
112:
113: IS
114: CURSOR C IS
115: SELECT *
116: FROM CSD_TASK_QUALITY_RESULTS
117: WHERE TASK_QUALITY_RESULT_ID = p_TASK_QUALITY_RESULT_ID
118: FOR UPDATE of TASK_QUALITY_RESULT_ID NOWAIT;
119: Recinfo C%ROWTYPE;
120: BEGIN
135: END Lock_Row;
136:
137:
138:
139: End CSD_TASK_QUALITY_RESULTS_PKG;