[Home] [Help]
PACKAGE BODY: APPS.CSD_RO_BULLETINS_PKG
Source
1 PACKAGE BODY CSD_RO_BULLETINS_PKG as
2 /* $Header: csdtrobb.pls 120.0 2008/01/12 02:24:57 rfieldma noship $ */
3 -- Start of Comments
4 -- Package name : CSD_RO_BULLETINS_PKG
5 -- Purpose : table handler for CSD_RO_BULLETINS
6 -- History : Jan-10-2008 rfieldma created
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSD_RO_BULLETINS_PKG';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdtrobb.pls';
13 /*--------------------------------------------------*/
14 /* procedure name: Insert_Row */
15 /* description : Inserts a row */
16 /* CSD_RO_BULLETINS */
17 /* params: p_RO_BULLETIN_ID NUMBER not req */
18 /* p_REPAIR_LINE_ID NUMBER not req */
19 /* p_BULLETIN_ID NUMBER not req */
20 /* p_LAST_VIEWED_DATE DATE not req */
21 /* p_SOURCE_TYPE VARCHAR2 not req */
22 /* p_SOURCE_ID VARCHAR2 not req */
23 /* p_OBJECT_VERSION_NUMBER NUMBER req */
24 /* p_CREATED_BY NUMBER req */
25 /* p_CREATION_DATE DATE req */
26 /* p_LAST_UPDATED_BY NUMBER req */
27 /* p_LAST_UPDATE_DATE DATE req */
28 /* p_LAST_UPDATE_LOGIN not req */
29 /* */
30 /*--------------------------------------------------*/
31 PROCEDURE Insert_Row(
32 px_RO_BULLETIN_ID IN OUT NOCOPY NUMBER
33 ,p_REPAIR_LINE_ID IN NUMBER
34 ,p_BULLETIN_ID IN NUMBER
35 ,p_LAST_VIEWED_DATE IN DATE
36 ,p_LAST_VIEWED_BY IN NUMBER
37 ,p_SOURCE_TYPE IN VARCHAR2
38 ,p_SOURCE_ID IN NUMBER
39 ,p_OBJECT_VERSION_NUMBER IN NUMBER
40 ,p_CREATED_BY IN NUMBER
41 ,p_CREATION_DATE IN DATE
42 ,p_LAST_UPDATED_BY IN NUMBER
43 ,p_LAST_UPDATE_DATE IN DATE
44 ,p_LAST_UPDATE_LOGIN IN NUMBER)
45 IS
46 CURSOR C2 IS SELECT CSD_RO_BULLETINS_S1.nextval FROM sys.dual;
47 BEGIN
48 If (px_RO_BULLETIN_ID IS NULL) OR (px_RO_BULLETIN_ID = FND_API.G_MISS_NUM) THEN
49 OPEN C2;
50 FETCH C2 INTO px_RO_BULLETIN_ID;
51 CLOSE C2;
52 END IF;
53 INSERT INTO CSD_RO_BULLETINS(
54 RO_BULLETIN_ID
55 ,REPAIR_LINE_ID
56 ,BULLETIN_ID
57 ,LAST_VIEWED_DATE
58 ,LAST_VIEWED_BY
59 ,SOURCE_TYPE
60 ,SOURCE_ID
61 ,OBJECT_VERSION_NUMBER
62 ,CREATED_BY
63 ,CREATION_DATE
64 ,LAST_UPDATED_BY
65 ,LAST_UPDATE_DATE
66 ,LAST_UPDATE_LOGIN
67 ) VALUES (
68 px_RO_BULLETIN_ID
69 ,decode( p_REPAIR_LINE_ID, FND_API.G_MISS_NUM, NULL, p_REPAIR_LINE_ID)
70 ,decode( p_BULLETIN_ID, FND_API.G_MISS_NUM, NULL, p_BULLETIN_ID)
71 ,decode( p_LAST_VIEWED_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_LAST_VIEWED_DATE)
72 ,decode( p_LAST_VIEWED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_VIEWED_BY)
73 ,decode( p_SOURCE_TYPE, FND_API.G_MISS_CHAR, NULL, p_SOURCE_TYPE)
74 ,decode( p_SOURCE_ID, FND_API.G_MISS_NUM, NULL, p_SOURCE_ID)
75 ,decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, p_OBJECT_VERSION_NUMBER)
76 ,decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY)
77 ,decode( p_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_CREATION_DATE)
78 ,decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY)
79 ,decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_LAST_UPDATE_DATE)
80 ,decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN));
81 END Insert_Row;
82
83 /*--------------------------------------------------*/
84 /* procedure name: Update_Row */
85 /* description : Updates a row */
86 /* CSD_RO_BULLETINS */
87 /* params: p_RO_BULLETIN_ID NUMBER required */
88 /* p_REPAIR_LINE_ID NUMBER not req */
89 /* p_BULLETIN_ID NUMBER not req */
90 /* p_LAST_VIEWED_DATE DATE not req */
91 /* p_SOURCE_TYPE VARCHAR2 not req */
92 /* p_SOURCE_ID VARCHAR2 not req */
93 /* p_OBJECT_VERSION_NUMBER NUMBER req */
94 /* p_CREATED_BY NUMBER req */
95 /* p_CREATION_DATE DATE req */
96 /* p_LAST_UPDATED_BY NUMBER req */
97 /* p_LAST_UPDATE_DATE DATE req */
98 /* p_LAST_UPDATE_LOGIN not req */
99 /* */
100 /*--------------------------------------------------*/
101 PROCEDURE Update_Row(
102 p_RO_BULLETIN_ID IN NUMBER
103 ,p_REPAIR_LINE_ID IN NUMBER
104 ,p_BULLETIN_ID IN NUMBER
105 ,p_LAST_VIEWED_DATE IN DATE
106 ,p_LAST_VIEWED_BY IN NUMBER
107 ,p_SOURCE_TYPE IN VARCHAR2
108 ,p_SOURCE_ID IN NUMBER
109 ,p_OBJECT_VERSION_NUMBER IN NUMBER
110 ,p_CREATED_BY IN NUMBER
111 ,p_CREATION_DATE IN DATE
112 ,p_LAST_UPDATED_BY IN NUMBER
113 ,p_LAST_UPDATE_DATE IN DATE
114 ,p_LAST_UPDATE_LOGIN IN NUMBER)
115 IS
116 BEGIN
117 Update CSD_RO_BULLETINS
118 SET
119 REPAIR_LINE_ID = decode( p_REPAIR_LINE_ID, FND_API.G_MISS_NUM, REPAIR_LINE_ID, p_REPAIR_LINE_ID)
120 ,BULLETIN_ID = decode( p_BULLETIN_ID, FND_API.G_MISS_NUM, BULLETIN_ID, p_BULLETIN_ID)
121 ,LAST_VIEWED_DATE = decode( p_LAST_VIEWED_DATE, FND_API.G_MISS_DATE, LAST_VIEWED_DATE, p_LAST_VIEWED_DATE)
122 ,LAST_VIEWED_BY = decode( p_LAST_VIEWED_BY, FND_API.G_MISS_NUM, LAST_VIEWED_BY, p_LAST_VIEWED_BY)
123 ,SOURCE_TYPE = decode( p_SOURCE_TYPE, FND_API.G_MISS_CHAR, SOURCE_TYPE, p_SOURCE_TYPE)
124 ,SOURCE_ID = decode( p_SOURCE_ID, FND_API.G_MISS_NUM, SOURCE_ID, p_SOURCE_ID)
125 ,OBJECT_VERSION_NUMBER = decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER)
126 ,CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY)
127 ,CREATION_DATE = decode( p_CREATION_DATE, FND_API.G_MISS_DATE, CREATION_DATE, p_CREATION_DATE)
128 ,LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY)
129 ,LAST_UPDATE_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE)
130 ,LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN)
131 where RO_BULLETIN_ID = p_RO_BULLETIN_ID;
132
133 IF (SQL%NOTFOUND) THEN
134 RAISE NO_DATA_FOUND;
135 End IF;
136 END Update_Row;
137
138
139
140 /*-------------------------------------------------- */
141 /* procedure name: Delete_Row */
142 /* description : Deletes a row in CSD_RO_BULLETINS */
143 /* params: P_RO_BULLETIN_ID NUMBER required */
144 /* */
145 /*-------------------------------------------------- */
146 PROCEDURE Delete_Row(
147 p_RO_BULLETIN_ID IN NUMBER)
148 IS
149 BEGIN
150 DELETE FROM CSD_RO_BULLETINS
151 WHERE RO_BULLETIN_ID = p_RO_BULLETIN_ID;
152 If (SQL%NOTFOUND) then
153 RAISE NO_DATA_FOUND;
154 End If;
155 END Delete_Row;
156
157
158 /*-------------------------------------------------- */
159 /* procedure name: Lock_Row */
160 /* description : Locks ro */
161 /* CSD_RO_BULLETINS */
162 /* params: p_RO_BULLETIN_ID NUMBER required */
163 /* p_OBJECT_VERSION_NUMBER NUMBER required */
164 /*-------------------------------------------------- */
165 PROCEDURE Lock_Row(
166 p_RO_BULLETIN_ID IN NUMBER
167 ,p_OBJECT_VERSION_NUMBER IN NUMBER)
168
169 IS
170 CURSOR C IS
171 SELECT *
172 FROM CSD_RO_BULLETINS
173 WHERE RO_BULLETIN_ID = p_RO_BULLETIN_ID
174 FOR UPDATE of RO_BULLETIN_ID NOWAIT;
175 Recinfo C%ROWTYPE;
176 BEGIN
177 OPEN C;
178 FETCH C INTO Recinfo;
179 IF (C%NOTFOUND) THEN
180 CLOSE C;
181 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
182 APP_EXCEPTION.RAISE_EXCEPTION;
183 End IF;
184 CLOSE C;
185 /* only compare ro_bulletin_id and object version number */
186 /* This follows the convetion of most Table handlers in Depot */
187 IF (
188 ( Recinfo.RO_BULLETIN_ID = p_RO_BULLETIN_ID)
189 /* AND ( ( Recinfo.REPAIR_LINE_ID = p_REPAIR_LINE_ID)
190 OR ( ( Recinfo.REPAIR_LINE_ID IS NULL )
191 AND ( p_REPAIR_LINE_ID IS NULL )))
192 AND ( ( Recinfo.BULLETIN_ID = p_BULLETIN_ID)
193 OR ( ( Recinfo.BULLETIN_ID IS NULL )
194 AND ( p_BULLETIN_ID IS NULL )))
195 AND ( ( Recinfo.LAST_VIEWED_DATE = p_LAST_VIEWED_DATE)
196 OR ( ( Recinfo.LAST_VIEWED_DATE IS NULL )
197 AND ( p_LAST_VIEWED_DATE IS NULL )))
198 AND ( ( Recinfo.LAST_VIEWED_BY = p_LAST_VIEWED_BY)
199 OR ( ( Recinfo.LAST_VIEWED_BY IS NULL )
200 AND ( p_LAST_VIEWED_BY IS NULL )))
201 AND ( ( Recinfo.SOURCE_TYPE = p_SOURCE_TYPE)
202 OR ( ( Recinfo.SOURCE_TYPE IS NULL )
203 AND ( p_SOURCE_TYPE IS NULL )))
204 AND ( ( Recinfo.SOURCE_ID = p_SOURCE_ID)
205 OR ( ( Recinfo.SOURCE_ID IS NULL )
206 AND ( p_SOURCE_ID IS NULL ))) */
207 AND ( ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER)
208 OR ( ( Recinfo.OBJECT_VERSION_NUMBER IS NULL )
209 AND ( p_OBJECT_VERSION_NUMBER IS NULL )))
210 /* AND ( ( Recinfo.CREATED_BY = p_CREATED_BY)
211 OR ( ( Recinfo.CREATED_BY IS NULL )
212 AND ( p_CREATED_BY IS NULL )))
213 AND ( ( Recinfo.CREATION_DATE = p_CREATION_DATE)
214 OR ( ( Recinfo.CREATION_DATE IS NULL )
215 AND ( p_CREATION_DATE IS NULL )))
216 AND ( ( Recinfo.LAST_UPDATED_BY = p_LAST_UPDATED_BY)
217 OR ( ( Recinfo.LAST_UPDATED_BY IS NULL )
218 AND ( p_LAST_UPDATED_BY IS NULL )))
219 AND ( ( Recinfo.LAST_UPDATE_DATE = p_LAST_UPDATE_DATE)
220 OR ( ( Recinfo.LAST_UPDATE_DATE IS NULL )
221 AND ( p_LAST_UPDATE_DATE IS NULL )))
222 AND ( ( Recinfo.LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN)
223 OR ( ( Recinfo.LAST_UPDATE_LOGIN IS NULL )
224 AND ( p_LAST_UPDATE_LOGIN IS NULL )))*/
225 ) /*END: if (...)*/ THEN
226 return;
227 ELSE
228 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
229 APP_EXCEPTION.RAISE_EXCEPTION;
230 End IF;
231 END Lock_Row;
232
233 END CSD_RO_BULLETINS_PKG;