[Home] [Help]
PACKAGE BODY: APPS.CSD_TASK_QUALITY_RESULTS_PKG
Source
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
9 G_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
10
11 PROCEDURE Insert_Row(
12 px_TASK_QUALITY_RESULT_ID IN OUT NOCOPY NUMBER
13 ,p_TASK_ID NUMBER
14 ,p_QA_COLLECTION_ID NUMBER
15 ,p_PLAN_ID NUMBER
16 ,p_OBJECT_VERSION_NUMBER NUMBER
17 ,p_CREATED_BY NUMBER
18 ,p_CREATION_DATE DATE
19 ,p_LAST_UPDATED_BY NUMBER
20 ,p_LAST_UPDATE_DATE DATE
21 ,p_LAST_UPDATE_LOGIN NUMBER
22 )
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
41 ,PLAN_ID
42 ,CREATED_BY
43 ,CREATION_DATE
44 ,LAST_UPDATED_BY
45 ,LAST_UPDATE_DATE
46 ,LAST_UPDATE_LOGIN
47 ) VALUES (
48 px_TASK_QUALITY_RESULT_ID
49 ,decode( p_TASK_ID, FND_API.G_MISS_NUM, NULL, p_TASK_ID)
50 ,decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, p_OBJECT_VERSION_NUMBER)
51 ,decode( p_QA_COLLECTION_ID, FND_API.G_MISS_NUM, NULL, p_QA_COLLECTION_ID)
52 ,decode( p_PLAN_ID, FND_API.G_MISS_NUM, NULL, p_PLAN_ID)
53 ,decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY)
54 ,decode( p_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_CREATION_DATE)
55 ,decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY)
56 ,decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_LAST_UPDATE_DATE)
57 ,decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN)
58 );
59 End Insert_Row;
60
61 PROCEDURE Update_Row(
62 px_TASK_QUALITY_RESULT_ID NUMBER
63 ,p_TASK_ID NUMBER
64 ,p_QA_COLLECTION_ID NUMBER
65 ,p_PLAN_ID NUMBER
66 ,p_OBJECT_VERSION_NUMBER NUMBER
67 ,p_CREATED_BY NUMBER
68 ,p_CREATION_DATE DATE
69 ,p_LAST_UPDATED_BY NUMBER
70 ,p_LAST_UPDATE_DATE DATE
71 ,p_LAST_UPDATE_LOGIN NUMBER
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)
81 ,QA_COLLECTION_ID = decode( p_QA_COLLECTION_ID, FND_API.G_MISS_NUM, NULL, NULL, QA_COLLECTION_ID, p_QA_COLLECTION_ID)
82 ,PLAN_ID = decode( p_PLAN_ID, FND_API.G_MISS_NUM, NULL, p_PLAN_ID)
83 ,CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, NULL, CREATED_BY, p_CREATED_BY)
84 ,CREATION_DATE = decode( p_CREATION_DATE, FND_API.G_MISS_DATE, NULL, NULL, CREATION_DATE, p_CREATION_DATE)
85 ,LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, NULL, LAST_UPDATED_BY, p_LAST_UPDATED_BY)
86 ,LAST_UPDATE_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, NULL, NULL, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE)
87 ,LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, NULL, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN)
88 where TASK_QUALITY_RESULT_ID = px_TASK_QUALITY_RESULT_ID
89 and OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER;
90
91 If (SQL%NOTFOUND) then
92 RAISE NO_DATA_FOUND;
93 End If;
94 END Update_Row;
95
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;
105 End If;
106 END Delete_Row;
107
108 PROCEDURE Lock_Row(
109 p_TASK_QUALITY_RESULT_ID NUMBER
110 ,p_OBJECT_VERSION_NUMBER NUMBER)
111
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
121 OPEN C;
122 FETCH C INTO Recinfo;
123 If (C%NOTFOUND) then
124 CLOSE C;
125 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
126 APP_EXCEPTION.RAISE_EXCEPTION;
127 End If;
128 CLOSE C;
129 if ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER ) then
130 return;
131 else
132 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
133 APP_EXCEPTION.RAISE_EXCEPTION;
134 End If;
135 END Lock_Row;
136
137
138
139 End CSD_TASK_QUALITY_RESULTS_PKG;