[Home] [Help]
PACKAGE BODY: APPS.CSD_REPAIR_ACTUALS_PKG
Source
1 PACKAGE BODY CSD_REPAIR_ACTUALS_PKG as
2 /* $Header: csdtactb.pls 120.1 2008/02/09 01:01:50 takwong ship $ csdtactb.pls */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_REPAIR_ACTUALS_PKG';
5 G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdtactb.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_ACTUAL_ID IN OUT NOCOPY NUMBER
13 ,p_OBJECT_VERSION_NUMBER NUMBER
14 ,p_REPAIR_LINE_ID NUMBER
15 ,p_CREATED_BY NUMBER
16 ,p_CREATION_DATE DATE
17 ,p_LAST_UPDATED_BY NUMBER
18 ,p_LAST_UPDATE_DATE DATE
19 ,p_LAST_UPDATE_LOGIN NUMBER
20 ,p_ATTRIBUTE_CATEGORY VARCHAR2
21 ,p_ATTRIBUTE1 VARCHAR2
22 ,p_ATTRIBUTE2 VARCHAR2
23 ,p_ATTRIBUTE3 VARCHAR2
24 ,p_ATTRIBUTE4 VARCHAR2
25 ,p_ATTRIBUTE5 VARCHAR2
26 ,p_ATTRIBUTE6 VARCHAR2
27 ,p_ATTRIBUTE7 VARCHAR2
28 ,p_ATTRIBUTE8 VARCHAR2
29 ,p_ATTRIBUTE9 VARCHAR2
30 ,p_ATTRIBUTE10 VARCHAR2
31 ,p_ATTRIBUTE11 VARCHAR2
32 ,p_ATTRIBUTE12 VARCHAR2
33 ,p_ATTRIBUTE13 VARCHAR2
34 ,p_ATTRIBUTE14 VARCHAR2
35 ,p_ATTRIBUTE15 VARCHAR2
36 ,p_BILL_TO_ACCOUNT_ID NUMBER := null
37 ,p_BILL_TO_PARTY_ID NUMBER := null
38 ,p_BILL_TO_PARTY_SITE_ID NUMBER := null
39 )
40
41 IS
42 CURSOR C2 IS SELECT CSD_REPAIR_ACTUALS_S1.nextval FROM sys.dual;
43 BEGIN
44 If (px_REPAIR_ACTUAL_ID IS NULL) OR (px_REPAIR_ACTUAL_ID = FND_API.G_MISS_NUM) then
45 OPEN C2;
46 FETCH C2 INTO px_REPAIR_ACTUAL_ID;
47 CLOSE C2;
48 End If;
49 INSERT INTO CSD_REPAIR_ACTUALS(
50 REPAIR_ACTUAL_ID
51 ,OBJECT_VERSION_NUMBER
52 ,REPAIR_LINE_ID
53 ,CREATED_BY
54 ,CREATION_DATE
55 ,LAST_UPDATED_BY
56 ,LAST_UPDATE_DATE
57 ,LAST_UPDATE_LOGIN
58 ,ATTRIBUTE_CATEGORY
59 ,ATTRIBUTE1
60 ,ATTRIBUTE2
61 ,ATTRIBUTE3
62 ,ATTRIBUTE4
63 ,ATTRIBUTE5
64 ,ATTRIBUTE6
65 ,ATTRIBUTE7
66 ,ATTRIBUTE8
67 ,ATTRIBUTE9
68 ,ATTRIBUTE10
69 ,ATTRIBUTE11
70 ,ATTRIBUTE12
71 ,ATTRIBUTE13
72 ,ATTRIBUTE14
73 ,ATTRIBUTE15
74 ,BILL_TO_ACCOUNT_ID
75 ,BILL_TO_PARTY_ID
76 ,BILL_TO_PARTY_SITE_ID
77 ) VALUES (
78 px_REPAIR_ACTUAL_ID
79 ,decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, p_OBJECT_VERSION_NUMBER)
80 ,decode( p_REPAIR_LINE_ID, FND_API.G_MISS_NUM, NULL, p_REPAIR_LINE_ID)
81 ,decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY)
82 ,decode( p_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_CREATION_DATE)
83 ,decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY)
84 ,decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_LAST_UPDATE_DATE)
85 ,decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN)
86 ,decode( p_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE_CATEGORY)
87 ,decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE1)
88 ,decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE2)
89 ,decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE3)
90 ,decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE4)
91 ,decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE5)
92 ,decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE6)
93 ,decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE7)
94 ,decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE8)
95 ,decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE9)
96 ,decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE10)
97 ,decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE11)
98 ,decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE12)
99 ,decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE13)
100 ,decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE14)
101 ,decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE15)
102 ,decode( p_BILL_TO_ACCOUNT_ID, FND_API.G_MISS_NUM, NULL, p_BILL_TO_ACCOUNT_ID)
103 ,decode( p_BILL_TO_PARTY_ID, FND_API.G_MISS_NUM, NULL, p_BILL_TO_PARTY_ID)
104 ,decode( p_BILL_TO_PARTY_SITE_ID, FND_API.G_MISS_NUM, NULL, p_BILL_TO_PARTY_SITE_ID)
105 );
106 End Insert_Row;
107
108 PROCEDURE Update_Row(
109 p_REPAIR_ACTUAL_ID NUMBER
110 ,p_OBJECT_VERSION_NUMBER NUMBER
111 ,p_REPAIR_LINE_ID NUMBER
112 ,p_CREATED_BY NUMBER
113 ,p_CREATION_DATE DATE
114 ,p_LAST_UPDATED_BY NUMBER
115 ,p_LAST_UPDATE_DATE DATE
116 ,p_LAST_UPDATE_LOGIN NUMBER
117 ,p_ATTRIBUTE_CATEGORY VARCHAR2
118 ,p_ATTRIBUTE1 VARCHAR2
119 ,p_ATTRIBUTE2 VARCHAR2
120 ,p_ATTRIBUTE3 VARCHAR2
121 ,p_ATTRIBUTE4 VARCHAR2
122 ,p_ATTRIBUTE5 VARCHAR2
123 ,p_ATTRIBUTE6 VARCHAR2
124 ,p_ATTRIBUTE7 VARCHAR2
125 ,p_ATTRIBUTE8 VARCHAR2
126 ,p_ATTRIBUTE9 VARCHAR2
127 ,p_ATTRIBUTE10 VARCHAR2
128 ,p_ATTRIBUTE11 VARCHAR2
129 ,p_ATTRIBUTE12 VARCHAR2
130 ,p_ATTRIBUTE13 VARCHAR2
131 ,p_ATTRIBUTE14 VARCHAR2
132 ,p_ATTRIBUTE15 VARCHAR2
133 ,p_BILL_TO_ACCOUNT_ID NUMBER := null
134 ,p_BILL_TO_PARTY_ID NUMBER := null
135 ,p_BILL_TO_PARTY_SITE_ID NUMBER := null
136 )
137
138 IS
139 BEGIN
140 Update CSD_REPAIR_ACTUALS
141 SET
142 OBJECT_VERSION_NUMBER = decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER)
143 ,REPAIR_LINE_ID = decode( p_REPAIR_LINE_ID, FND_API.G_MISS_NUM, REPAIR_LINE_ID, p_REPAIR_LINE_ID)
144 ,CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY)
145 ,CREATION_DATE = decode( p_CREATION_DATE, FND_API.G_MISS_DATE, CREATION_DATE, p_CREATION_DATE)
146 ,LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY)
147 ,LAST_UPDATE_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE)
148 ,LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN)
149 ,ATTRIBUTE_CATEGORY = decode( p_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, ATTRIBUTE_CATEGORY, p_ATTRIBUTE_CATEGORY)
150 ,ATTRIBUTE1 = decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, ATTRIBUTE1, p_ATTRIBUTE1)
151 ,ATTRIBUTE2 = decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, ATTRIBUTE2, p_ATTRIBUTE2)
152 ,ATTRIBUTE3 = decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, ATTRIBUTE3, p_ATTRIBUTE3)
153 ,ATTRIBUTE4 = decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, ATTRIBUTE4, p_ATTRIBUTE4)
154 ,ATTRIBUTE5 = decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, ATTRIBUTE5, p_ATTRIBUTE5)
155 ,ATTRIBUTE6 = decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, ATTRIBUTE6, p_ATTRIBUTE6)
156 ,ATTRIBUTE7 = decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, ATTRIBUTE7, p_ATTRIBUTE7)
157 ,ATTRIBUTE8 = decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, ATTRIBUTE8, p_ATTRIBUTE8)
158 ,ATTRIBUTE9 = decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, ATTRIBUTE9, p_ATTRIBUTE9)
159 ,ATTRIBUTE10 = decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, ATTRIBUTE10, p_ATTRIBUTE10)
160 ,ATTRIBUTE11 = decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, ATTRIBUTE11, p_ATTRIBUTE11)
161 ,ATTRIBUTE12 = decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, ATTRIBUTE12, p_ATTRIBUTE12)
162 ,ATTRIBUTE13 = decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, ATTRIBUTE13, p_ATTRIBUTE13)
163 ,ATTRIBUTE14 = decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, ATTRIBUTE14, p_ATTRIBUTE14)
164 ,ATTRIBUTE15 = decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, ATTRIBUTE15, p_ATTRIBUTE15)
165 ,BILL_TO_ACCOUNT_ID = decode( p_BILL_TO_ACCOUNT_ID, FND_API.G_MISS_CHAR, BILL_TO_ACCOUNT_ID, p_BILL_TO_ACCOUNT_ID)
166 ,BILL_TO_PARTY_ID = decode( p_BILL_TO_PARTY_ID, FND_API.G_MISS_CHAR, BILL_TO_PARTY_ID, p_BILL_TO_PARTY_ID)
167 ,BILL_TO_PARTY_SITE_ID = decode( p_BILL_TO_PARTY_SITE_ID, FND_API.G_MISS_CHAR, BILL_TO_PARTY_SITE_ID, p_BILL_TO_PARTY_SITE_ID)
168 where REPAIR_ACTUAL_ID = p_REPAIR_ACTUAL_ID;
169
170 If (SQL%NOTFOUND) then
171 RAISE NO_DATA_FOUND;
172 End If;
173 END Update_Row;
174
175 PROCEDURE Delete_Row(
176 p_REPAIR_ACTUAL_ID NUMBER
177 ,p_OBJECT_VERSION_NUMBER NUMBER)
178 IS
179 BEGIN
180 DELETE FROM CSD_REPAIR_ACTUALS
181 WHERE REPAIR_ACTUAL_ID = p_REPAIR_ACTUAL_ID;
182 If (SQL%NOTFOUND) then
183 RAISE NO_DATA_FOUND;
184 End If;
185 END Delete_Row;
186
187 PROCEDURE Lock_Row(
188 p_REPAIR_ACTUAL_ID NUMBER
189 ,p_OBJECT_VERSION_NUMBER NUMBER)
190
191 IS
192
193 -- Variables used in FND Log
194 l_stat_level number := FND_LOG.LEVEL_STATEMENT;
195 l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
196 l_event_level number := FND_LOG.LEVEL_EVENT;
197 l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
198 l_error_level number := FND_LOG.LEVEL_ERROR;
199 l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
200 l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUALS_PKG.Lock_Row';
201
202 CURSOR C IS
203 SELECT *
204 FROM CSD_REPAIR_ACTUALS
205 WHERE REPAIR_ACTUAL_ID = p_REPAIR_ACTUAL_ID
206 FOR UPDATE of REPAIR_ACTUAL_ID NOWAIT;
207 Recinfo C%ROWTYPE;
208 BEGIN
209
210 OPEN C;
211 FETCH C INTO Recinfo;
212 If (C%NOTFOUND) then
213 CLOSE C;
214 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
215 APP_EXCEPTION.RAISE_EXCEPTION;
216 End If;
217 CLOSE C;
218
219 IF ( l_stat_level >= G_debug_level) THEN
220 FND_LOG.STRING(l_stat_level,l_mod_name,'CSD_REPAIR_ACTUALS_PKG Recinfo.OBJECT_VERSION_NUMBER : '||Recinfo.OBJECT_VERSION_NUMBER);
221 FND_LOG.STRING(l_stat_level,l_mod_name,'CSD_REPAIR_ACTUALS_PKG p_OBJECT_VERSION_NUMBER : '||p_OBJECT_VERSION_NUMBER);
222 END IF;
223
224 If ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER) then
225 return;
226 else
227 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
228 APP_EXCEPTION.RAISE_EXCEPTION;
229 End If;
230
231 END Lock_Row;
232
233 End CSD_REPAIR_ACTUALS_PKG;