[Home] [Help]
PACKAGE BODY: APPS.CSD_TASKS_PKG
Source
1 PACKAGE BODY CSD_TASKS_PKG as
2 /* $Header: csdttskb.pls 120.0 2005/06/26 14:57:49 sangigup noship $ csdtactb.pls */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_TASKS_PKG';
5 G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdtaskb.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_repair_TASK_ID IN OUT NOCOPY NUMBER
13 ,p_task_id NUMBER
14 ,p_REPAIR_LINE_ID NUMBER
15 ,p_APPLICABLE_QA_PLANS VARCHAR2
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 IS
25
26 CURSOR C2 IS SELECT CSD_TASKS_S.nextval FROM sys.dual;
27 BEGIN
28
29 If (px_REPAIR_TASK_ID IS NULL) OR (px_REPAIR_TASK_ID = FND_API.G_MISS_NUM) then
30 OPEN C2;
31 FETCH C2 INTO px_repair_task_ID;
32 CLOSE C2;
33 End If;
34
35 INSERT INTO CSD_TASKS(
36 REPAIR_TASK_ID
37 ,TASK_ID
38 ,OBJECT_VERSION_NUMBER
39 ,REPAIR_LINE_ID
40 ,APPLICABLE_QA_PLANS
41 ,CREATED_BY
42 ,CREATION_DATE
43 ,LAST_UPDATED_BY
44 ,LAST_UPDATE_DATE
45 ,LAST_UPDATE_LOGIN
46 ) VALUES (
47 px_repair_TASK_ID
48 ,decode( p_TASK_ID, FND_API.G_MISS_NUM, NULL, p_TASK_ID)
49 ,decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, p_OBJECT_VERSION_NUMBER)
50 ,decode( p_REPAIR_LINE_ID, FND_API.G_MISS_NUM, NULL, p_REPAIR_LINE_ID)
51 ,decode( p_APPLICABLE_QA_PLANS, FND_API.G_MISS_CHAR, NULL, p_APPLICABLE_QA_PLANS)
52 ,decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY)
53 ,decode( p_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_CREATION_DATE)
54 ,decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY)
55 ,decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_LAST_UPDATE_DATE)
56 ,decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN)
57 );
58 End Insert_Row;
59
60 PROCEDURE Update_Row(
61 px_repair_TASK_ID NUMBER
62 ,p_TASK_ID NUMBER
63 ,p_OBJECT_VERSION_NUMBER NUMBER
64 ,p_REPAIR_LINE_ID NUMBER
65 ,p_APPLICABLE_QA_PLANS VARCHAR2
66 ,p_CREATED_BY NUMBER
67 ,p_CREATION_DATE DATE
68 ,p_LAST_UPDATED_BY NUMBER
69 ,p_LAST_UPDATE_DATE DATE
70 ,p_LAST_UPDATE_LOGIN NUMBER
71 )
72
73 IS
74 BEGIN
75 Update CSD_TASKS
76 SET
77
78 TASK_ID = decode( p_TASK_ID, FND_API.G_MISS_NUM, NULL, NULL, TASK_ID, p_TASK_ID)
79 ,OBJECT_VERSION_NUMBER = decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, NULL, OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER)
80 ,REPAIR_LINE_ID = decode( p_REPAIR_LINE_ID, FND_API.G_MISS_NUM, NULL, NULL, REPAIR_LINE_ID, p_REPAIR_LINE_ID)
81 ,APPLICABLE_QA_PLANS = decode( p_APPLICABLE_QA_PLANS, FND_API.G_MISS_CHAR, NULL, p_APPLICABLE_QA_PLANS)
82 ,CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, NULL, CREATED_BY, p_CREATED_BY)
83 ,CREATION_DATE = decode( p_CREATION_DATE, FND_API.G_MISS_DATE, NULL, NULL, CREATION_DATE, p_CREATION_DATE)
84 ,LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, NULL, LAST_UPDATED_BY, p_LAST_UPDATED_BY)
85 ,LAST_UPDATE_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, NULL, NULL, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE)
86 ,LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, NULL, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN)
87 where REPAIR_TASK_ID = px_repair_TASK_ID
88 and OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER;
89
90 If (SQL%NOTFOUND) then
91 RAISE NO_DATA_FOUND;
92 End If;
93 END Update_Row;
94
95 PROCEDURE Delete_Row(
96 p_repair_TASK_ID NUMBER)
97 IS
98 BEGIN
99 DELETE FROM CSD_TASKS
100 WHERE REPAIR_TASK_ID = p_REPAIR_TASK_ID;
101
102 If (SQL%NOTFOUND) then
103 RAISE NO_DATA_FOUND;
104 End If;
105 END Delete_Row;
106
107
108 PROCEDURE Lock_Row(
109 p_REPAIR_TASK_ID NUMBER
110 ,p_OBJECT_VERSION_NUMBER NUMBER)
111
112 IS
113 CURSOR C IS
114 SELECT *
115 FROM CSD_TASKS
116 WHERE REPAIR_TASK_ID = p_REPAIR_TASK_ID
117 FOR UPDATE of REPAIR_TASK_ID NOWAIT;
118 Recinfo C%ROWTYPE;
119 BEGIN
120 OPEN C;
121 FETCH C INTO Recinfo;
122 If (C%NOTFOUND) then
123 CLOSE C;
124 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
125 APP_EXCEPTION.RAISE_EXCEPTION;
126 End If;
127 CLOSE C;
128 if ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER ) then
129 return;
130 else
131 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
132 APP_EXCEPTION.RAISE_EXCEPTION;
133 End If;
134 END Lock_Row;
135
136
137
138 End CSD_TASKS_PKG;