[Home] [Help]
24: -- Pre-Req :
25: -- Parameters:
26: -- IN
27: -- p_api_version_number IN NUMBER Required
28: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
29: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
30: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
31: -- P_RO_BULLETIN_Rec IN CSD_RO_BULLETIN_REC_TYPE Required
32: --
25: -- Parameters:
26: -- IN
27: -- p_api_version_number IN NUMBER Required
28: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
29: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
30: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
31: -- P_RO_BULLETIN_Rec IN CSD_RO_BULLETIN_REC_TYPE Required
32: --
33: -- OUT:
26: -- IN
27: -- p_api_version_number IN NUMBER Required
28: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
29: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
30: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
31: -- P_RO_BULLETIN_Rec IN CSD_RO_BULLETIN_REC_TYPE Required
32: --
33: -- OUT:
34: -- x_return_status OUT NOCOPY VARCHAR2
40: -- End of Comments
41: -- -------------------
42: PROCEDURE CREATE_RO_BULLETIN(
43: p_api_version_number IN NUMBER,
44: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
45: p_commit IN VARCHAR2 := FND_API.G_FALSE,
46: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
47: p_ro_bulletin_rec IN RO_BULLETIN_REC_TYPE,
48: x_ro_bulletin_id OUT NOCOPY NUMBER,
41: -- -------------------
42: PROCEDURE CREATE_RO_BULLETIN(
43: p_api_version_number IN NUMBER,
44: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
45: p_commit IN VARCHAR2 := FND_API.G_FALSE,
46: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
47: p_ro_bulletin_rec IN RO_BULLETIN_REC_TYPE,
48: x_ro_bulletin_id OUT NOCOPY NUMBER,
49: x_return_status OUT NOCOPY VARCHAR2,
42: PROCEDURE CREATE_RO_BULLETIN(
43: p_api_version_number IN NUMBER,
44: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
45: p_commit IN VARCHAR2 := FND_API.G_FALSE,
46: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
47: p_ro_bulletin_rec IN RO_BULLETIN_REC_TYPE,
48: x_ro_bulletin_id OUT NOCOPY NUMBER,
49: x_return_status OUT NOCOPY VARCHAR2,
50: x_msg_count OUT NOCOPY NUMBER,
57: --* Standard Start of API savepoint
58: SAVEPOINT CREATE_RO_BULLETIN_PVT;
59:
60: --* Standard call to check for call compatibility.
61: IF NOT FND_API.Compatible_API_Call ( c_API_VERSION_NUMBER,
62: p_api_version_number,
63: c_API_NAME,
64: G_PKG_NAME)
65: THEN
62: p_api_version_number,
63: c_API_NAME,
64: G_PKG_NAME)
65: THEN
66: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
67: END IF;
68:
69: --* Initialize message list if p_init_msg_list is set to TRUE.
70: IF FND_API.to_Boolean( p_init_msg_list )
66: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
67: END IF;
68:
69: --* Initialize message list if p_init_msg_list is set to TRUE.
70: IF FND_API.to_Boolean( p_init_msg_list )
71: THEN
72: FND_MSG_PUB.initialize;
73: END IF;
74:
72: FND_MSG_PUB.initialize;
73: END IF;
74:
75: --* Initialize API return status to SUCCESS
76: x_return_status := FND_API.G_RET_STS_SUCCESS;
77:
78: --* logic starts here *--
79:
80:
93: ,p_last_updated_by => FND_GLOBAL.USER_ID
94: ,p_last_update_date => sysdate
95: ,p_last_update_login => FND_GLOBAL.LOGIN_ID);
96:
97: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
98: RAISE FND_API.G_EXC_ERROR;
99: END IF;
100:
101: --* logic ends here *--
94: ,p_last_update_date => sysdate
95: ,p_last_update_login => FND_GLOBAL.LOGIN_ID);
96:
97: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
98: RAISE FND_API.G_EXC_ERROR;
99: END IF;
100:
101: --* logic ends here *--
102:
100:
101: --* logic ends here *--
102:
103: --* Standard check for p_commit
104: IF FND_API.to_Boolean( p_commit ) THEN
105: COMMIT WORK;
106: END IF;
107:
108: --* Standard call to get message count and if count is 1, get message info.
111: p_data => x_msg_data
112: );
113:
114: EXCEPTION
115: WHEN FND_API.G_EXC_ERROR THEN
116: x_return_status := FND_API.G_RET_STS_ERROR;
117: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
118: P_API_NAME => c_API_NAME
119: ,P_PKG_NAME => G_PKG_NAME
112: );
113:
114: EXCEPTION
115: WHEN FND_API.G_EXC_ERROR THEN
116: x_return_status := FND_API.G_RET_STS_ERROR;
117: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
118: P_API_NAME => c_API_NAME
119: ,P_PKG_NAME => G_PKG_NAME
120: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
122: ,X_MSG_COUNT => X_MSG_COUNT
123: ,X_MSG_DATA => X_MSG_DATA
124: ,X_RETURN_STATUS => X_RETURN_STATUS);
125:
126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
127: x_return_status := FND_API.G_RET_STS_ERROR;
128: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
129: P_API_NAME => c_API_NAME
130: ,P_PKG_NAME => G_PKG_NAME
123: ,X_MSG_DATA => X_MSG_DATA
124: ,X_RETURN_STATUS => X_RETURN_STATUS);
125:
126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
127: x_return_status := FND_API.G_RET_STS_ERROR;
128: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
129: P_API_NAME => c_API_NAME
130: ,P_PKG_NAME => G_PKG_NAME
131: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
134: ,X_MSG_DATA => X_MSG_DATA
135: ,X_RETURN_STATUS => X_RETURN_STATUS);
136:
137: WHEN OTHERS THEN
138: x_return_status := FND_API.G_RET_STS_ERROR;
139: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
140: P_API_NAME => c_API_NAME
141: ,P_PKG_NAME => G_PKG_NAME
142: ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
157: -- Pre-Req :
158: -- Parameters:
159: -- IN
160: -- p_api_version_number IN NUMBER Required
161: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
162: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
163: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
164: -- P_RO_BULLETIN_Rec IN RO_BULLETIN_REC_TYPE Required
165: --
158: -- Parameters:
159: -- IN
160: -- p_api_version_number IN NUMBER Required
161: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
162: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
163: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
164: -- P_RO_BULLETIN_Rec IN RO_BULLETIN_REC_TYPE Required
165: --
166: -- OUT:
159: -- IN
160: -- p_api_version_number IN NUMBER Required
161: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
162: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
163: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
164: -- P_RO_BULLETIN_Rec IN RO_BULLETIN_REC_TYPE Required
165: --
166: -- OUT:
167: -- x_return_status OUT NOCOPY VARCHAR2
172: -- End of Comments
173: -- -------------------
174: PROCEDURE UPDATE_RO_BULLETIN(
175: p_api_version_number IN NUMBER,
176: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
177: p_commit IN VARCHAR2 := FND_API.G_FALSE,
178: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
179: p_ro_bulletin_rec IN RO_BULLETIN_Rec_Type,
180: x_return_status OUT NOCOPY VARCHAR2,
173: -- -------------------
174: PROCEDURE UPDATE_RO_BULLETIN(
175: p_api_version_number IN NUMBER,
176: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
177: p_commit IN VARCHAR2 := FND_API.G_FALSE,
178: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
179: p_ro_bulletin_rec IN RO_BULLETIN_Rec_Type,
180: x_return_status OUT NOCOPY VARCHAR2,
181: x_msg_count OUT NOCOPY NUMBER,
174: PROCEDURE UPDATE_RO_BULLETIN(
175: p_api_version_number IN NUMBER,
176: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
177: p_commit IN VARCHAR2 := FND_API.G_FALSE,
178: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
179: p_ro_bulletin_rec IN RO_BULLETIN_Rec_Type,
180: x_return_status OUT NOCOPY VARCHAR2,
181: x_msg_count OUT NOCOPY NUMBER,
182: x_msg_data OUT NOCOPY VARCHAR2
212: --* Standard Start of API savepoint
213: SAVEPOINT UPDATE_RO_BULLETIN_PVT;
214:
215: --* Standard call to check for call compatibility.
216: IF NOT FND_API.Compatible_API_Call ( c_API_VERSION_NUMBER,
217: p_api_version_number,
218: c_API_NAME,
219: G_PKG_NAME)
220: THEN
217: p_api_version_number,
218: c_API_NAME,
219: G_PKG_NAME)
220: THEN
221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
222: END IF;
223:
224: --* Initialize message list if p_init_msg_list is set to TRUE.
225: IF FND_API.to_Boolean( p_init_msg_list )
221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
222: END IF;
223:
224: --* Initialize message list if p_init_msg_list is set to TRUE.
225: IF FND_API.to_Boolean( p_init_msg_list )
226: THEN
227: FND_MSG_PUB.initialize;
228: END IF;
229:
227: FND_MSG_PUB.initialize;
228: END IF;
229:
230: --* Initialize API return status to SUCCESS
231: x_return_status := FND_API.G_RET_STS_SUCCESS;
232:
233: --* logic starts here *--
234:
235: OPEN cur_get_ro_bulletin( p_ro_bulletin_rec.RO_BULLETIN_ID);
254: FND_MESSAGE.set_token( 'BULLETIN_ID', p_ro_bulletin_rec.RO_BULLETIN_ID);
255: FND_MSG_PUB.Add;
256: END IF;
257: CLOSE cur_get_ro_bulletin;
258: RAISE FND_API.G_EXC_ERROR;
259: END IF;
260: CLOSE cur_get_ro_bulletin;
261:
262: --* NOTE: add validation logic here if needed
271: ,p_last_viewed_by => p_ro_bulletin_rec.last_viewed_by
272: ,p_source_type => p_ro_bulletin_rec.source_type
273: ,p_source_id => p_ro_bulletin_rec.source_id
274: ,p_object_version_number => p_ro_bulletin_rec.object_version_number
275: ,p_created_by => FND_API.G_MISS_NUM
276: ,p_creation_date => FND_API.G_MISS_DATE
277: ,p_last_updated_by => FND_GLOBAL.USER_ID
278: ,p_last_update_date => SYSDATE
279: ,p_last_update_login => p_ro_bulletin_rec.last_update_login);
272: ,p_source_type => p_ro_bulletin_rec.source_type
273: ,p_source_id => p_ro_bulletin_rec.source_id
274: ,p_object_version_number => p_ro_bulletin_rec.object_version_number
275: ,p_created_by => FND_API.G_MISS_NUM
276: ,p_creation_date => FND_API.G_MISS_DATE
277: ,p_last_updated_by => FND_GLOBAL.USER_ID
278: ,p_last_update_date => SYSDATE
279: ,p_last_update_login => p_ro_bulletin_rec.last_update_login);
280:
280:
281: --* logic ends here *--
282:
283: --* Standard check for p_commit
284: IF FND_API.to_Boolean( p_commit ) THEN
285: COMMIT WORK;
286: END IF;
287:
288:
292: p_data => x_msg_data
293: );
294:
295: EXCEPTION
296: WHEN FND_API.G_EXC_ERROR THEN
297: x_return_status := FND_API.G_RET_STS_ERROR;
298: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
299: P_API_NAME => c_API_NAME
300: ,P_PKG_NAME => G_PKG_NAME
293: );
294:
295: EXCEPTION
296: WHEN FND_API.G_EXC_ERROR THEN
297: x_return_status := FND_API.G_RET_STS_ERROR;
298: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
299: P_API_NAME => c_API_NAME
300: ,P_PKG_NAME => G_PKG_NAME
301: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
303: ,X_MSG_COUNT => X_MSG_COUNT
304: ,X_MSG_DATA => X_MSG_DATA
305: ,X_RETURN_STATUS => X_RETURN_STATUS);
306:
307: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
308: x_return_status := FND_API.G_RET_STS_ERROR;
309: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
310: P_API_NAME => c_API_NAME
311: ,P_PKG_NAME => G_PKG_NAME
304: ,X_MSG_DATA => X_MSG_DATA
305: ,X_RETURN_STATUS => X_RETURN_STATUS);
306:
307: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
308: x_return_status := FND_API.G_RET_STS_ERROR;
309: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
310: P_API_NAME => c_API_NAME
311: ,P_PKG_NAME => G_PKG_NAME
312: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
315: ,X_MSG_DATA => X_MSG_DATA
316: ,X_RETURN_STATUS => X_RETURN_STATUS);
317:
318: WHEN OTHERS THEN
319: x_return_status := FND_API.G_RET_STS_ERROR;
320: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
321: P_API_NAME => c_API_NAME
322: ,P_PKG_NAME => G_PKG_NAME
323: ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
338: -- Pre-Req :
339: -- Parameters:
340: -- IN
341: -- p_api_version_number IN NUMBER Required
342: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
343: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
344: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
345: -- p_ro_bulletin_id IN NUMBER Required
346: --
339: -- Parameters:
340: -- IN
341: -- p_api_version_number IN NUMBER Required
342: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
343: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
344: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
345: -- p_ro_bulletin_id IN NUMBER Required
346: --
347: -- OUT:
340: -- IN
341: -- p_api_version_number IN NUMBER Required
342: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
343: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
344: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
345: -- p_ro_bulletin_id IN NUMBER Required
346: --
347: -- OUT:
348: -- x_return_status OUT NOCOPY VARCHAR2
353: -- End of Comments
354: -- -------------------
355: PROCEDURE DELETE_RO_BULLETIN(
356: p_api_version_number IN NUMBER,
357: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
358: p_commit IN VARCHAR2 := FND_API.G_FALSE,
359: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
360: p_ro_bulletin_id IN NUMBER,
361: x_return_status OUT NOCOPY VARCHAR2,
354: -- -------------------
355: PROCEDURE DELETE_RO_BULLETIN(
356: p_api_version_number IN NUMBER,
357: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
358: p_commit IN VARCHAR2 := FND_API.G_FALSE,
359: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
360: p_ro_bulletin_id IN NUMBER,
361: x_return_status OUT NOCOPY VARCHAR2,
362: x_msg_count OUT NOCOPY NUMBER,
355: PROCEDURE DELETE_RO_BULLETIN(
356: p_api_version_number IN NUMBER,
357: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
358: p_commit IN VARCHAR2 := FND_API.G_FALSE,
359: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
360: p_ro_bulletin_id IN NUMBER,
361: x_return_status OUT NOCOPY VARCHAR2,
362: x_msg_count OUT NOCOPY NUMBER,
363: x_msg_data OUT NOCOPY VARCHAR2
370: --* Standard Start of API savepoint
371: SAVEPOINT DELETE_RO_BULLETIN_PVT;
372:
373: --* Standard call to check for call compatibility.
374: IF NOT FND_API.Compatible_API_Call ( c_API_VERSION_NUMBER,
375: p_api_version_number,
376: c_API_NAME,
377: G_PKG_NAME)
378: THEN
375: p_api_version_number,
376: c_API_NAME,
377: G_PKG_NAME)
378: THEN
379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
380: END IF;
381:
382: --* Initialize message list if p_init_msg_list is set to TRUE.
383: IF FND_API.to_Boolean( p_init_msg_list )
379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
380: END IF;
381:
382: --* Initialize message list if p_init_msg_list is set to TRUE.
383: IF FND_API.to_Boolean( p_init_msg_list )
384: THEN
385: FND_MSG_PUB.initialize;
386: END IF;
387:
385: FND_MSG_PUB.initialize;
386: END IF;
387:
388: --* Initialize API return status to SUCCESS
389: x_return_status := FND_API.G_RET_STS_SUCCESS;
390:
391: --* logic starts here *--
392:
393: --* Invoke table handler(CSD_RO_BULLETINS_PKG.Delete_Row)
396:
397: -- logic ends here *--
398:
399: --* Standard check for p_commit
400: IF FND_API.to_Boolean( p_commit ) THEN
401: COMMIT WORK;
402: END IF;
403:
404:
408: p_data => x_msg_data
409: );
410:
411: EXCEPTION
412: WHEN FND_API.G_EXC_ERROR THEN
413: x_return_status := FND_API.G_RET_STS_ERROR;
414: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
415: P_API_NAME => c_API_NAME
416: ,P_PKG_NAME => G_PKG_NAME
409: );
410:
411: EXCEPTION
412: WHEN FND_API.G_EXC_ERROR THEN
413: x_return_status := FND_API.G_RET_STS_ERROR;
414: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
415: P_API_NAME => c_API_NAME
416: ,P_PKG_NAME => G_PKG_NAME
417: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
419: ,X_MSG_COUNT => X_MSG_COUNT
420: ,X_MSG_DATA => X_MSG_DATA
421: ,X_RETURN_STATUS => X_RETURN_STATUS);
422:
423: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
424: x_return_status := FND_API.G_RET_STS_ERROR;
425: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
426: P_API_NAME => c_API_NAME
427: ,P_PKG_NAME => G_PKG_NAME
420: ,X_MSG_DATA => X_MSG_DATA
421: ,X_RETURN_STATUS => X_RETURN_STATUS);
422:
423: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
424: x_return_status := FND_API.G_RET_STS_ERROR;
425: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
426: P_API_NAME => c_API_NAME
427: ,P_PKG_NAME => G_PKG_NAME
428: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
431: ,X_MSG_DATA => X_MSG_DATA
432: ,X_RETURN_STATUS => X_RETURN_STATUS);
433:
434: WHEN OTHERS THEN
435: x_return_status := FND_API.G_RET_STS_ERROR;
436: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
437: P_API_NAME => c_API_NAME
438: ,P_PKG_NAME => G_PKG_NAME
439: ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
453: -- Pre-Req :
454: -- Parameters:
455: -- IN
456: -- p_api_version_number IN NUMBER Required
457: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
458: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
459: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
460: -- p_ro_bulletin_rec IN RO_BULLETIN_REC_TYPE Required
461: -- OUT:
454: -- Parameters:
455: -- IN
456: -- p_api_version_number IN NUMBER Required
457: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
458: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
459: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
460: -- p_ro_bulletin_rec IN RO_BULLETIN_REC_TYPE Required
461: -- OUT:
462: -- x_return_status OUT NOCOPY VARCHAR2
455: -- IN
456: -- p_api_version_number IN NUMBER Required
457: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
458: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
459: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
460: -- p_ro_bulletin_rec IN RO_BULLETIN_REC_TYPE Required
461: -- OUT:
462: -- x_return_status OUT NOCOPY VARCHAR2
463: -- x_msg_count OUT NOCOPY NUMBER
467: -- End of Comments
468: -- -------------------
469: PROCEDURE LOCK_RO_BULLETIN(
470: p_api_version_number IN NUMBER,
471: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
472: p_commit IN VARCHAR2 := FND_API.G_FALSE,
473: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
474: p_ro_bulletin_rec IN RO_BULLETIN_Rec_Type,
475: x_return_status OUT NOCOPY VARCHAR2,
468: -- -------------------
469: PROCEDURE LOCK_RO_BULLETIN(
470: p_api_version_number IN NUMBER,
471: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
472: p_commit IN VARCHAR2 := FND_API.G_FALSE,
473: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
474: p_ro_bulletin_rec IN RO_BULLETIN_Rec_Type,
475: x_return_status OUT NOCOPY VARCHAR2,
476: x_msg_count OUT NOCOPY NUMBER,
469: PROCEDURE LOCK_RO_BULLETIN(
470: p_api_version_number IN NUMBER,
471: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
472: p_commit IN VARCHAR2 := FND_API.G_FALSE,
473: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
474: p_ro_bulletin_rec IN RO_BULLETIN_Rec_Type,
475: x_return_status OUT NOCOPY VARCHAR2,
476: x_msg_count OUT NOCOPY NUMBER,
477: x_msg_data OUT NOCOPY VARCHAR2
484: --* Standard Start of API savepoint
485: SAVEPOINT DELETE_RO_BULLETIN_PVT;
486:
487: --* Standard call to check for call compatibility.
488: IF NOT FND_API.Compatible_API_Call ( c_API_VERSION_NUMBER,
489: p_api_version_number,
490: c_API_NAME,
491: G_PKG_NAME)
492: THEN
489: p_api_version_number,
490: c_API_NAME,
491: G_PKG_NAME)
492: THEN
493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
494: END IF;
495:
496: --* Initialize message list if p_init_msg_list is set to TRUE.
497: IF FND_API.to_Boolean( p_init_msg_list )
493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
494: END IF;
495:
496: --* Initialize message list if p_init_msg_list is set to TRUE.
497: IF FND_API.to_Boolean( p_init_msg_list )
498: THEN
499: FND_MSG_PUB.initialize;
500: END IF;
501:
499: FND_MSG_PUB.initialize;
500: END IF;
501:
502: --* Initialize API return status to SUCCESS
503: x_return_status := FND_API.G_RET_STS_SUCCESS;
504:
505: --* logic starts here *--
506:
507: -- Invoke table handler(CSD_RO_BULLETINS_PKG.Lock_Row)
511:
512: --* logic ends here *--
513:
514: --* Standard check for p_commit
515: IF FND_API.to_Boolean( p_commit ) THEN
516: COMMIT WORK;
517: END IF;
518:
519:
523: p_data => x_msg_data
524: );
525:
526: EXCEPTION
527: WHEN FND_API.G_EXC_ERROR THEN
528: x_return_status := FND_API.G_RET_STS_ERROR;
529: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
530: P_API_NAME => c_API_NAME
531: ,P_PKG_NAME => G_PKG_NAME
524: );
525:
526: EXCEPTION
527: WHEN FND_API.G_EXC_ERROR THEN
528: x_return_status := FND_API.G_RET_STS_ERROR;
529: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
530: P_API_NAME => c_API_NAME
531: ,P_PKG_NAME => G_PKG_NAME
532: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
534: ,X_MSG_COUNT => X_MSG_COUNT
535: ,X_MSG_DATA => X_MSG_DATA
536: ,X_RETURN_STATUS => X_RETURN_STATUS);
537:
538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
539: x_return_status := FND_API.G_RET_STS_ERROR;
540: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
541: P_API_NAME => c_API_NAME
542: ,P_PKG_NAME => G_PKG_NAME
535: ,X_MSG_DATA => X_MSG_DATA
536: ,X_RETURN_STATUS => X_RETURN_STATUS);
537:
538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
539: x_return_status := FND_API.G_RET_STS_ERROR;
540: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
541: P_API_NAME => c_API_NAME
542: ,P_PKG_NAME => G_PKG_NAME
543: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
546: ,X_MSG_DATA => X_MSG_DATA
547: ,X_RETURN_STATUS => X_RETURN_STATUS);
548:
549: WHEN OTHERS THEN
550: x_return_status := FND_API.G_RET_STS_ERROR;
551: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
552: P_API_NAME => c_API_NAME
553: ,P_PKG_NAME => G_PKG_NAME
554: ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
570: -- Pre-Req :
571: -- Parameters:
572: -- IN
573: -- p_api_version_number IN NUMBER Required
574: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
575: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
576: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
577: -- p_repair_line_id IN NUMBER Required
578: -- px_ro_sc_ids_tbl IN OUT NOCOPY CSD_RO_SC_IDS_TBL_TYPE Required
571: -- Parameters:
572: -- IN
573: -- p_api_version_number IN NUMBER Required
574: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
575: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
576: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
577: -- p_repair_line_id IN NUMBER Required
578: -- px_ro_sc_ids_tbl IN OUT NOCOPY CSD_RO_SC_IDS_TBL_TYPE Required
579: -- OUT:
572: -- IN
573: -- p_api_version_number IN NUMBER Required
574: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
575: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
576: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
577: -- p_repair_line_id IN NUMBER Required
578: -- px_ro_sc_ids_tbl IN OUT NOCOPY CSD_RO_SC_IDS_TBL_TYPE Required
579: -- OUT:
580: -- x_return_status OUT NOCOPY VARCHAR2
585: -- End of Comments
586: -- -------------------
587: PROCEDURE LINK_BULLETINS_TO_RO(
588: p_api_version_number IN NUMBER,
589: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
590: p_commit IN VARCHAR2 := FND_API.G_FALSE,
591: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
592: p_repair_line_id IN NUMBER,
593: px_ro_sc_ids_tbl IN OUT NOCOPY CSD_RO_SC_IDS_TBL_TYPE,
586: -- -------------------
587: PROCEDURE LINK_BULLETINS_TO_RO(
588: p_api_version_number IN NUMBER,
589: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
590: p_commit IN VARCHAR2 := FND_API.G_FALSE,
591: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
592: p_repair_line_id IN NUMBER,
593: px_ro_sc_ids_tbl IN OUT NOCOPY CSD_RO_SC_IDS_TBL_TYPE,
594: x_return_status OUT NOCOPY VARCHAR2,
587: PROCEDURE LINK_BULLETINS_TO_RO(
588: p_api_version_number IN NUMBER,
589: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
590: p_commit IN VARCHAR2 := FND_API.G_FALSE,
591: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
592: p_repair_line_id IN NUMBER,
593: px_ro_sc_ids_tbl IN OUT NOCOPY CSD_RO_SC_IDS_TBL_TYPE,
594: x_return_status OUT NOCOPY VARCHAR2,
595: x_msg_count OUT NOCOPY NUMBER,
614: --* Standard Start of API savepoint
615: SAVEPOINT LINK_BULLETINS_TO_RO_PVT;
616:
617: --* Standard call to check for call compatibility.
618: IF NOT FND_API.Compatible_API_Call ( c_API_VERSION_NUMBER,
619: p_api_version_number,
620: c_API_NAME,
621: G_PKG_NAME)
622: THEN
619: p_api_version_number,
620: c_API_NAME,
621: G_PKG_NAME)
622: THEN
623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
624: END IF;
625:
626: --* Initialize message list if p_init_msg_list is set to TRUE.
627: IF FND_API.to_Boolean( p_init_msg_list )
623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
624: END IF;
625:
626: --* Initialize message list if p_init_msg_list is set to TRUE.
627: IF FND_API.to_Boolean( p_init_msg_list )
628: THEN
629: FND_MSG_PUB.initialize;
630: END IF;
631:
629: FND_MSG_PUB.initialize;
630: END IF;
631:
632: --* Initialize API return status to SUCCESS
633: x_return_status := FND_API.G_RET_STS_SUCCESS;
634:
635: --* logic starts here *--
636:
637: --* first update bulletin check date via pvt
652: x_return_status => x_return_status,
653: x_msg_count => x_msg_count,
654: x_msg_data => x_msg_data
655: );
656: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
657: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
658: FND_MESSAGE.Set_Name('CSD', 'CSD_UPDATE_REPAIR_FAILED');
659: FND_MSG_PUB.Add;
660: END IF;
657: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
658: FND_MESSAGE.Set_Name('CSD', 'CSD_UPDATE_REPAIR_FAILED');
659: FND_MSG_PUB.Add;
660: END IF;
661: RAISE FND_API.G_EXC_ERROR;
662: END IF; --* end IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) *--
663:
664: /* BEGIN: Algorithm:
665: * (1) init l_rule_matching_rec with
658: FND_MESSAGE.Set_Name('CSD', 'CSD_UPDATE_REPAIR_FAILED');
659: FND_MSG_PUB.Add;
660: END IF;
661: RAISE FND_API.G_EXC_ERROR;
662: END IF; --* end IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) *--
663:
664: /* BEGIN: Algorithm:
665: * (1) init l_rule_matching_rec with
666: * l_rule_matching_rec.rule_match_code := CSD_RULES_ENGINE_PVT.G_RULE_MATCH_ALL;
714: x_msg_count => x_msg_count,
715: x_msg_data => x_msg_data
716: );
717:
718: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
719: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
720: FND_MESSAGE.Set_Name('CSD', 'CSD_RULE_MATCH_FAILED');
721: FND_MSG_PUB.Add;
722: END IF;
719: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
720: FND_MESSAGE.Set_Name('CSD', 'CSD_RULE_MATCH_FAILED');
721: FND_MSG_PUB.Add;
722: END IF;
723: RAISE FND_API.G_EXC_ERROR;
724: END IF;
725:
726: --** debug starts!!
727: --dbms_output.put_line('in LINK_BULLETINS_TO_RO x_return_status = ' || x_return_status);
763: );
764: --** debug starts!!
765: -- dbms_output.put_line('in LINK_BULLETINS_TO_RO ONE_REPAIR - after create new link, x_return_status = ' || x_return_status);
766: --** debug ends!!
767: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
768: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
769: FND_MESSAGE.Set_Name('CSD', 'CSD_CREATE_RO_BLTN_LINK_FAILED');
770: FND_MSG_PUB.Add;
771: END IF;
768: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
769: FND_MESSAGE.Set_Name('CSD', 'CSD_CREATE_RO_BLTN_LINK_FAILED');
770: FND_MSG_PUB.Add;
771: END IF;
772: RAISE FND_API.G_EXC_ERROR;
773: END IF; -- end IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN --
774: --* loop logic ends
775:
776: l_rec_ind := l_rule_results_tbl.NEXT(l_rec_ind);
769: FND_MESSAGE.Set_Name('CSD', 'CSD_CREATE_RO_BLTN_LINK_FAILED');
770: FND_MSG_PUB.Add;
771: END IF;
772: RAISE FND_API.G_EXC_ERROR;
773: END IF; -- end IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN --
774: --* loop logic ends
775:
776: l_rec_ind := l_rule_results_tbl.NEXT(l_rec_ind);
777: END LOOP; --* END loop that loops through all recs in the tbl *--
777: END LOOP; --* END loop that loops through all recs in the tbl *--
778: --* logic ends here *--
779:
780: --* Standard check for p_commit
781: IF FND_API.to_Boolean( p_commit ) THEN
782: COMMIT WORK;
783: END IF;
784:
785: --* Standard call to get message count and if count is 1, get message info.
788: p_data => x_msg_data
789: );
790:
791: EXCEPTION
792: WHEN FND_API.G_EXC_ERROR THEN
793: x_return_status := FND_API.G_RET_STS_ERROR;
794: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
795: P_API_NAME => c_API_NAME
796: ,P_PKG_NAME => G_PKG_NAME
789: );
790:
791: EXCEPTION
792: WHEN FND_API.G_EXC_ERROR THEN
793: x_return_status := FND_API.G_RET_STS_ERROR;
794: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
795: P_API_NAME => c_API_NAME
796: ,P_PKG_NAME => G_PKG_NAME
797: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
799: ,X_MSG_COUNT => X_MSG_COUNT
800: ,X_MSG_DATA => X_MSG_DATA
801: ,X_RETURN_STATUS => X_RETURN_STATUS);
802:
803: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
804: x_return_status := FND_API.G_RET_STS_ERROR;
805: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
806: P_API_NAME => c_API_NAME
807: ,P_PKG_NAME => G_PKG_NAME
800: ,X_MSG_DATA => X_MSG_DATA
801: ,X_RETURN_STATUS => X_RETURN_STATUS);
802:
803: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
804: x_return_status := FND_API.G_RET_STS_ERROR;
805: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
806: P_API_NAME => c_API_NAME
807: ,P_PKG_NAME => G_PKG_NAME
808: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
811: ,X_MSG_DATA => X_MSG_DATA
812: ,X_RETURN_STATUS => X_RETURN_STATUS);
813:
814: WHEN OTHERS THEN
815: x_return_status := FND_API.G_RET_STS_ERROR;
816: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
817: P_API_NAME => c_API_NAME
818: ,P_PKG_NAME => G_PKG_NAME
819: ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
834: -- Pre-Req :
835: -- Parameters:
836: -- IN
837: -- p_api_version_number IN NUMBER Required
838: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
839: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
840: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
841: -- p_repair_line_id IN NUMBER Required
842: -- p_bulletin_id IN NUMBER Required
835: -- Parameters:
836: -- IN
837: -- p_api_version_number IN NUMBER Required
838: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
839: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
840: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
841: -- p_repair_line_id IN NUMBER Required
842: -- p_bulletin_id IN NUMBER Required
843: -- px_sc_ids_tbl IN OUT NOCOPY CSD_RO_SC_IDS_TBL_TYPE Required
836: -- IN
837: -- p_api_version_number IN NUMBER Required
838: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
839: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
840: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
841: -- p_repair_line_id IN NUMBER Required
842: -- p_bulletin_id IN NUMBER Required
843: -- px_sc_ids_tbl IN OUT NOCOPY CSD_RO_SC_IDS_TBL_TYPE Required
844: -- OUT:
879: l_wf_current_threshold NUMBER := NULL;
880: l_repln_rec CSD_REPAIRS_PUB.REPLN_Rec_Type;
881: l_instance_id NUMBER := NULL;
882: l_freq_code VARCHAR2(30) := NULL;
883: l_create_new_ro_bulletin_link VARCHAR2(1) := FND_API.G_FALSE;
884:
885: ---- cursors ----
886:
887: CURSOR cur_get_bulletin_info(p_bulletin_id NUMBER) IS
910: CURSOR cur_get_bulletin_freq_code(p_bulletin_id NUMBER) IS
911: SELECT frequency_code
912: FROM csd_bulletins_b
913: WHERE bulletin_id = p_bulletin_id
914: AND published_flag = FND_API.G_TRUE
915: AND sysdate BETWEEN NVL(active_from,sysdate)
916: AND NVL(active_to, sysdate)
917: ; --* end CURSOR cur_get_bulletin_freq_code *--
918:
940: --* Standard Start of API savepoint
941: SAVEPOINT CREATE_NEW_RO_BLTN_LINK_PVT;
942:
943: --* Standard call to check for call compatibility.
944: IF NOT FND_API.Compatible_API_Call ( c_API_VERSION_NUMBER,
945: p_api_version_number,
946: c_API_NAME,
947: G_PKG_NAME)
948: THEN
945: p_api_version_number,
946: c_API_NAME,
947: G_PKG_NAME)
948: THEN
949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
950: END IF;
951:
952: --* Initialize message list if p_init_msg_list is set to TRUE.
953: IF FND_API.to_Boolean( p_init_msg_list )
949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
950: END IF;
951:
952: --* Initialize message list if p_init_msg_list is set to TRUE.
953: IF FND_API.to_Boolean( p_init_msg_list )
954: THEN
955: FND_MSG_PUB.initialize;
956: END IF;
957:
955: FND_MSG_PUB.initialize;
956: END IF;
957:
958: --* Initialize API return status to SUCCESS
959: x_return_status := FND_API.G_RET_STS_SUCCESS;
960:
961: OPEN cur_get_bulletin_freq_code(p_bulletin_id); -- get freq code of active, published bulletins
962: FETCH cur_get_bulletin_freq_code
963: INTO l_freq_code;
982: IF ( cur_check_by_repair%NOTFOUND) THEN -- does not exist, so create new link
983: --** debug starts!!
984: --dbms_output.put_line('in LINK_BULLETINS_TO_RO ONE_REPAIR - not found');
985: --** debug ends!!
986: l_create_new_ro_bulletin_link := FND_API.G_TRUE;
987: END IF; -- end IF ( cur_check_by_repair%NOTFOUND) THEN --
988: CLOSE cur_check_by_repair; -- close cursor
989: ELSIF (l_freq_code = G_FREQ_ONE_INSTANCE) THEN
990: l_instance_id := CSD_RULES_ENGINE_PVT.GET_RO_INSTANCE_ID(p_repair_line_id);
991: --** debug starts!!
992: --dbms_output.put_line('in LINK_BULLETINS_TO_RO INSTANCE - l_instance_id = ' || l_instance_id);
993: --** debug ends!!
994:
995: IF (l_instance_id IS NOT NULL) AND (l_instance_Id <> FND_API.G_MISS_NUM) THEN
996: OPEN cur_check_by_instance(l_instance_id, p_bulletin_id);
997: FETCH cur_check_by_instance INTO l_ro_bulletin_id;
998:
999: --** debug starts!!
1009: IF ( cur_check_by_instance%NOTFOUND) THEN
1010: --** debug starts!!
1011: --dbms_output.put_line('in LINK_BULLETINS_TO_RO ONE_INSTANCE - before create_new_ro_bulletin_link ');
1012: --** debug ends!!
1013: l_create_new_ro_bulletin_link := FND_API.G_TRUE;
1014: END IF; --* end IF ( cur_check_by_instance%NOTFOUND) *--
1015: CLOSE cur_check_by_instance; -- close cursor
1016: END IF; --* end (l_instance_id IS NOT NULL)... *--
1017: ELSE --* unrecognized code
1014: END IF; --* end IF ( cur_check_by_instance%NOTFOUND) *--
1015: CLOSE cur_check_by_instance; -- close cursor
1016: END IF; --* end (l_instance_id IS NOT NULL)... *--
1017: ELSE --* unrecognized code
1018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1019: END IF; --* end IF (l_freq_code = G_FREQ_ONE_REPAIR) *--
1020: END IF; --* end IF ( cur_get_bulletin_freq_code%NOTFOUND) *--
1021:
1022: --* logic starts here *--
1031: * (4) check if work flow, if yes, place holder for launching workflow
1032: * cur_get_bulletin_info
1033: * (5) add associated SCs to SC list
1034: * END: Algorithm */
1035: IF (l_create_new_ro_bulletin_link = FND_API.G_TRUE) THEN
1036: --* link ro bulletin
1037: l_ro_bulletin_rec.repair_line_id := p_repair_line_id;
1038: l_ro_bulletin_rec.bulletin_id := p_bulletin_id;
1039: l_ro_bulletin_rec.source_type := G_SOURCE_TYPE_RULE;
1051: x_return_status => x_return_status,
1052: x_msg_count => x_msg_count,
1053: x_msg_data => x_msg_data
1054: );
1055: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1056: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1057: FND_MESSAGE.Set_Name('CSD', 'CSD_CREATE_RO_BLTN_FAILED');
1058: FND_MSG_PUB.Add;
1059: END IF;
1056: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1057: FND_MESSAGE.Set_Name('CSD', 'CSD_CREATE_RO_BLTN_FAILED');
1058: FND_MSG_PUB.Add;
1059: END IF;
1060: RAISE FND_API.G_EXC_ERROR;
1061: END IF; --* end IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) *--
1062:
1063: --* ##################Call csd_repairs_pvt to update Bulletin check date
1064:
1057: FND_MESSAGE.Set_Name('CSD', 'CSD_CREATE_RO_BLTN_FAILED');
1058: FND_MSG_PUB.Add;
1059: END IF;
1060: RAISE FND_API.G_EXC_ERROR;
1061: END IF; --* end IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) *--
1062:
1063: --* ##################Call csd_repairs_pvt to update Bulletin check date
1064:
1065: --** debug starts!!
1105:
1106: IF (l_escalation_code IS NOT NULL ) THEN --* pass in when not null
1107: l_repln_rec.escalation_code := l_escalation_code;
1108: ELSE
1109: l_repln_rec.escalation_code := FND_API.G_MISS_CHAR; --* don't wipe out old value
1110: END IF; --* end IF (l_escalation_code IS NOT NULL ) *--
1111:
1112: l_repln_rec.object_version_number := GET_CSD_REPAIRS_OBJ_VER_NUM(p_repair_line_id);
1113:
1122: x_return_status => x_return_status,
1123: x_msg_count => x_msg_count,
1124: x_msg_data => x_msg_data
1125: );
1126: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1127: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1128: FND_MESSAGE.Set_Name('CSD', 'CSD_UPDATE_REPAIR_FAILED');
1129: FND_MSG_PUB.Add;
1130: END IF;
1127: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1128: FND_MESSAGE.Set_Name('CSD', 'CSD_UPDATE_REPAIR_FAILED');
1129: FND_MSG_PUB.Add;
1130: END IF;
1131: RAISE FND_API.G_EXC_ERROR;
1132: END IF; --* end IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) *--
1133:
1134:
1135:
1128: FND_MESSAGE.Set_Name('CSD', 'CSD_UPDATE_REPAIR_FAILED');
1129: FND_MSG_PUB.Add;
1130: END IF;
1131: RAISE FND_API.G_EXC_ERROR;
1132: END IF; --* end IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) *--
1133:
1134:
1135:
1136: --* launch workflow
1166: --** debug starts!!
1167: --dbms_output.put_line('in CREATE_NEW_RO_BULLETIN_LINK after get_bulletin_info ');
1168: --** debug ends!!
1169:
1170: END IF; --* end IF (l_create_new_ro_bulletin_link = FND_API.G_TRUE) *--
1171: --* logic ends here *--
1172:
1173: --* Standard check for p_commit
1174: IF FND_API.to_Boolean( p_commit ) THEN
1170: END IF; --* end IF (l_create_new_ro_bulletin_link = FND_API.G_TRUE) *--
1171: --* logic ends here *--
1172:
1173: --* Standard check for p_commit
1174: IF FND_API.to_Boolean( p_commit ) THEN
1175: COMMIT WORK;
1176: END IF;
1177:
1178: --** debug starts!!
1189: --dbms_output.put_line('in CREATE_NEW_RO_BULLETIN_LINK after count_and_get x_return_statu = ' || x_return_status);
1190: --** debug ends!!
1191:
1192: EXCEPTION
1193: WHEN FND_API.G_EXC_ERROR THEN
1194: x_return_status := FND_API.G_RET_STS_ERROR;
1195: --** debug starts!!
1196: --dbms_output.put_line('in CREATE_NEW_RO_BULLETIN_LINK exception 1 ');
1197: --** debug ends!!
1190: --** debug ends!!
1191:
1192: EXCEPTION
1193: WHEN FND_API.G_EXC_ERROR THEN
1194: x_return_status := FND_API.G_RET_STS_ERROR;
1195: --** debug starts!!
1196: --dbms_output.put_line('in CREATE_NEW_RO_BULLETIN_LINK exception 1 ');
1197: --** debug ends!!
1198:
1204: ,X_MSG_COUNT => X_MSG_COUNT
1205: ,X_MSG_DATA => X_MSG_DATA
1206: ,X_RETURN_STATUS => X_RETURN_STATUS);
1207:
1208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1209: x_return_status := FND_API.G_RET_STS_ERROR;
1210: --** debug starts!!
1211: --dbms_output.put_line('in CREATE_NEW_RO_BULLETIN_LINK exception 2 ');
1212: --** debug ends!!
1205: ,X_MSG_DATA => X_MSG_DATA
1206: ,X_RETURN_STATUS => X_RETURN_STATUS);
1207:
1208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1209: x_return_status := FND_API.G_RET_STS_ERROR;
1210: --** debug starts!!
1211: --dbms_output.put_line('in CREATE_NEW_RO_BULLETIN_LINK exception 2 ');
1212: --** debug ends!!
1213:
1220: ,X_MSG_DATA => X_MSG_DATA
1221: ,X_RETURN_STATUS => X_RETURN_STATUS);
1222:
1223: WHEN OTHERS THEN
1224: x_return_status := FND_API.G_RET_STS_ERROR;
1225: --** debug starts!!
1226: --dbms_output.put_line('in CREATE_NEW_RO_BULLETIN_LINK exception 3 ');
1227: --** debug ends!!
1228:
1331: l_error_level NUMBER := FND_LOG.LEVEL_ERROR;
1332: l_mod_name VARCHAR2(2000) := 'csd.plsql.csd_ro_bulletins_pvt.link_bulletins_to_repairs_conc_prog';
1333:
1334: -- VARIABLES --
1335: l_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
1336: l_msg_count NUMBER;
1337: l_msg_data VARCHAR2(20000);
1338: l_current_bulletin_id NUMBER;
1339: l_bulletin_rule_id NUMBER;
1367: EXIT when c_bulletin_rules%NOTFOUND;
1368:
1369: -- Debug messages
1370: --dbms_output.put_line('Calling LINK_BULLETIN_FOR_RULE');
1371: l_return_status := FND_API.G_RET_STS_SUCCESS;
1372:
1373: LINK_BULLETIN_FOR_RULE(
1374: p_api_version_number => l_api_version,
1375: p_commit => FND_API.G_TRUE,
1371: l_return_status := FND_API.G_RET_STS_SUCCESS;
1372:
1373: LINK_BULLETIN_FOR_RULE(
1374: p_api_version_number => l_api_version,
1375: p_commit => FND_API.G_TRUE,
1376: p_init_msg_list => FND_API.G_TRUE,
1377: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1378: x_return_status => l_return_status,
1379: x_msg_count => l_msg_count,
1372:
1373: LINK_BULLETIN_FOR_RULE(
1374: p_api_version_number => l_api_version,
1375: p_commit => FND_API.G_TRUE,
1376: p_init_msg_list => FND_API.G_TRUE,
1377: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1378: x_return_status => l_return_status,
1379: x_msg_count => l_msg_count,
1380: x_msg_data => l_msg_data,
1373: LINK_BULLETIN_FOR_RULE(
1374: p_api_version_number => l_api_version,
1375: p_commit => FND_API.G_TRUE,
1376: p_init_msg_list => FND_API.G_TRUE,
1377: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1378: x_return_status => l_return_status,
1379: x_msg_count => l_msg_count,
1380: x_msg_data => l_msg_data,
1381: p_bulletin_id => l_current_bulletin_id,
1385:
1386: -- Debug messages
1387: --dbms_output.put_line('Return Status from LINK_BULLETIN_FOR_RULE :'||l_return_status);
1388:
1389: IF NOT(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1390: -- Concatenate the message from the message stack
1391: IF l_msg_count > 1 then
1392: FOR i IN 1..l_msg_count LOOP
1393: l_msg_data := l_msg_data||FND_MSG_PUB.Get(i,FND_API.G_FALSE) ;
1389: IF NOT(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1390: -- Concatenate the message from the message stack
1391: IF l_msg_count > 1 then
1392: FOR i IN 1..l_msg_count LOOP
1393: l_msg_data := l_msg_data||FND_MSG_PUB.Get(i,FND_API.G_FALSE) ;
1394: END LOOP ;
1395: END IF ;
1396: --dbms_output.put_line(l_msg_data);
1397: -- Do not exit out of loop:
1409: close c_all_active_bulletins;
1410: END IF;
1411:
1412: EXCEPTION
1413: WHEN FND_API.G_EXC_ERROR THEN
1414: retcode := l_error_status;
1415: errbuf := l_msg_data;
1416: WHEN Others then
1417: -- Handle others exception
1483: -- Standard Start of API savepoint
1484: SAVEPOINT LINK_BULLETIN_FOR_RULE;
1485:
1486: -- Initialize API return status to success
1487: x_return_status := FND_API.G_RET_STS_SUCCESS;
1488:
1489: -- Log the api name in the log file
1490: --dbms_output.put_line('At the Beginning of LINK_BULLETIN_FOR_RULE');
1491: --dbms_output.put_line('p_bulletin_id ='||p_bulletin_id);
1491: --dbms_output.put_line('p_bulletin_id ='||p_bulletin_id);
1492: --dbms_output.put_line('p_bulletin_rule_id ='||p_bulletin_rule_id);
1493:
1494: -- Standard call to check for call compatibility.
1495: IF NOT FND_API.Compatible_API_Call (l_api_version,
1496: p_api_version_number,
1497: l_api_name ,
1498: G_PKG_NAME )
1499: THEN
1496: p_api_version_number,
1497: l_api_name ,
1498: G_PKG_NAME )
1499: THEN
1500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1501: END IF;
1502:
1503: -- Initialize message list if p_init_msg_list is set to TRUE.
1504: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1501: END IF;
1502:
1503: -- Initialize message list if p_init_msg_list is set to TRUE.
1504: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1505: FND_MSG_PUB.initialize;
1506: END IF;
1507:
1508: -- initialize bulletin_id
1509: IF (p_bulletin_id is null) THEN
1510: OPEN c_get_bulletin_id(p_bulletin_rule_id);
1511: FETCH c_get_bulletin_id into l_bulletin_id;
1512: IF (c_get_bulletin_id%NOTFOUND) THEN
1513: RAISE FND_API.G_EXC_ERROR;
1514: CLOSE c_get_bulletin_id;
1515: END IF;
1516: CLOSE c_get_bulletin_id;
1517: ELSE
1565: FETCH l_repair_order_cursor INTO l_repair_line_id;
1566: EXIT WHEN l_repair_order_cursor%NOTFOUND;
1567: CREATE_NEW_RO_BULLETIN_LINK(
1568: p_api_version_number => 1.0,
1569: p_commit => FND_API.G_FALSE,
1570: p_init_msg_list => FND_API.G_FALSE,
1571: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1572: p_repair_line_id => l_repair_line_id,
1573: p_bulletin_id => l_bulletin_id,
1566: EXIT WHEN l_repair_order_cursor%NOTFOUND;
1567: CREATE_NEW_RO_BULLETIN_LINK(
1568: p_api_version_number => 1.0,
1569: p_commit => FND_API.G_FALSE,
1570: p_init_msg_list => FND_API.G_FALSE,
1571: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1572: p_repair_line_id => l_repair_line_id,
1573: p_bulletin_id => l_bulletin_id,
1574: p_rule_id => p_bulletin_rule_id,
1567: CREATE_NEW_RO_BULLETIN_LINK(
1568: p_api_version_number => 1.0,
1569: p_commit => FND_API.G_FALSE,
1570: p_init_msg_list => FND_API.G_FALSE,
1571: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1572: p_repair_line_id => l_repair_line_id,
1573: p_bulletin_id => l_bulletin_id,
1574: p_rule_id => p_bulletin_rule_id,
1575: px_ro_sc_ids_tbl => l_service_codes,
1576: x_return_status => x_return_status,
1577: x_msg_count => x_msg_count,
1578: x_msg_data => x_msg_data
1579: );
1580: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1581: --dbms_output.put_line('CREATE_NEW_RO_BULLETIN_LINK failed');
1582: RAISE FND_API.G_EXC_ERROR;
1583: END IF;
1584:
1578: x_msg_data => x_msg_data
1579: );
1580: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1581: --dbms_output.put_line('CREATE_NEW_RO_BULLETIN_LINK failed');
1582: RAISE FND_API.G_EXC_ERROR;
1583: END IF;
1584:
1585: -- Link the service codes from the bulletin to the repair order
1586: APPLY_BULLETIN_SCS_TO_RO (
1584:
1585: -- Link the service codes from the bulletin to the repair order
1586: APPLY_BULLETIN_SCS_TO_RO (
1587: p_api_version_number => 1.0,
1588: p_commit => FND_API.G_FALSE,
1589: p_init_msg_list => FND_API.G_FALSE,
1590: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1591: x_return_status => x_return_status,
1592: x_msg_count => x_msg_count,
1585: -- Link the service codes from the bulletin to the repair order
1586: APPLY_BULLETIN_SCS_TO_RO (
1587: p_api_version_number => 1.0,
1588: p_commit => FND_API.G_FALSE,
1589: p_init_msg_list => FND_API.G_FALSE,
1590: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1591: x_return_status => x_return_status,
1592: x_msg_count => x_msg_count,
1593: x_msg_data => x_msg_data,
1586: APPLY_BULLETIN_SCS_TO_RO (
1587: p_api_version_number => 1.0,
1588: p_commit => FND_API.G_FALSE,
1589: p_init_msg_list => FND_API.G_FALSE,
1590: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1591: x_return_status => x_return_status,
1592: x_msg_count => x_msg_count,
1593: x_msg_data => x_msg_data,
1594: p_service_codes => l_service_codes,
1592: x_msg_count => x_msg_count,
1593: x_msg_data => x_msg_data,
1594: p_service_codes => l_service_codes,
1595: p_repair_line_id => l_repair_line_id);
1596: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1597: --dbms_output.put_line('APPLY_BULLETIN_SCS_TO_RO failed');
1598: RAISE FND_API.G_EXC_ERROR;
1599: END IF;
1600: END LOOP;
1594: p_service_codes => l_service_codes,
1595: p_repair_line_id => l_repair_line_id);
1596: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1597: --dbms_output.put_line('APPLY_BULLETIN_SCS_TO_RO failed');
1598: RAISE FND_API.G_EXC_ERROR;
1599: END IF;
1600: END LOOP;
1601:
1602: -- Standard check of p_commit.
1599: END IF;
1600: END LOOP;
1601:
1602: -- Standard check of p_commit.
1603: IF FND_API.To_Boolean( p_commit ) THEN
1604: COMMIT WORK;
1605: END IF;
1606:
1607: -- Standard call to get message count and IF count is get message info.
1608: FND_MSG_PUB.Count_And_Get
1609: (p_count => x_msg_count,
1610: p_data => x_msg_data );
1611: EXCEPTION
1612: WHEN FND_API.G_EXC_ERROR THEN
1613: --dbms_output.put_line('In FND_API.G_EXC_ERROR exception');
1614: -- As we are committing the processed records in the inner APIs
1615: -- so we rollback only if the p_commit='F'
1616: IF NOT(FND_API.To_Boolean( p_commit )) THEN
1609: (p_count => x_msg_count,
1610: p_data => x_msg_data );
1611: EXCEPTION
1612: WHEN FND_API.G_EXC_ERROR THEN
1613: --dbms_output.put_line('In FND_API.G_EXC_ERROR exception');
1614: -- As we are committing the processed records in the inner APIs
1615: -- so we rollback only if the p_commit='F'
1616: IF NOT(FND_API.To_Boolean( p_commit )) THEN
1617: ROLLBACK TO LINK_BULLETIN_FOR_RULE;
1612: WHEN FND_API.G_EXC_ERROR THEN
1613: --dbms_output.put_line('In FND_API.G_EXC_ERROR exception');
1614: -- As we are committing the processed records in the inner APIs
1615: -- so we rollback only if the p_commit='F'
1616: IF NOT(FND_API.To_Boolean( p_commit )) THEN
1617: ROLLBACK TO LINK_BULLETIN_FOR_RULE;
1618: END IF;
1619: x_return_status := FND_API.G_RET_STS_ERROR ;
1620: FND_MSG_PUB.Count_And_Get
1615: -- so we rollback only if the p_commit='F'
1616: IF NOT(FND_API.To_Boolean( p_commit )) THEN
1617: ROLLBACK TO LINK_BULLETIN_FOR_RULE;
1618: END IF;
1619: x_return_status := FND_API.G_RET_STS_ERROR ;
1620: FND_MSG_PUB.Count_And_Get
1621: (p_count => x_msg_count,
1622: p_data => x_msg_data );
1623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1619: x_return_status := FND_API.G_RET_STS_ERROR ;
1620: FND_MSG_PUB.Count_And_Get
1621: (p_count => x_msg_count,
1622: p_data => x_msg_data );
1623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1624: --dbms_output.put_line('In FND_API.G_EXC_UNEXPECTED_ERROR exception');
1625: IF ( l_error_level >= G_debug_level) THEN
1626: fnd_message.set_name('CSD','CSD_SQL_ERROR');
1627: fnd_message.set_token('SQLERRM',SQLERRM);
1620: FND_MSG_PUB.Count_And_Get
1621: (p_count => x_msg_count,
1622: p_data => x_msg_data );
1623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1624: --dbms_output.put_line('In FND_API.G_EXC_UNEXPECTED_ERROR exception');
1625: IF ( l_error_level >= G_debug_level) THEN
1626: fnd_message.set_name('CSD','CSD_SQL_ERROR');
1627: fnd_message.set_token('SQLERRM',SQLERRM);
1628: fnd_message.set_token('SQLCODE',SQLCODE);
1629: fnd_log.message(l_error_level,l_mod_name,FALSE);
1630: END If;
1631: -- As we are committing the processed records in the inner APIs
1632: -- so we rollback only if the p_commit='F'
1633: IF NOT(FND_API.To_Boolean( p_commit )) THEN
1634: ROLLBACK TO LINK_BULLETIN_FOR_RULE;
1635: END IF;
1636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1637: FND_MSG_PUB.Count_And_Get
1632: -- so we rollback only if the p_commit='F'
1633: IF NOT(FND_API.To_Boolean( p_commit )) THEN
1634: ROLLBACK TO LINK_BULLETIN_FOR_RULE;
1635: END IF;
1636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1637: FND_MSG_PUB.Count_And_Get
1638: ( p_count => x_msg_count,
1639: p_data => x_msg_data );
1640: WHEN OTHERS THEN
1646: fnd_log.message(l_error_level,l_mod_name,FALSE);
1647: END If;
1648: -- As we are committing the processed records in the inner APIs
1649: -- so we rollback only if the p_commit='F'
1650: IF NOT(FND_API.To_Boolean( p_commit )) THEN
1651: ROLLBACK TO LINK_BULLETIN_FOR_RULE;
1652: END IF;
1653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1654: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1649: -- so we rollback only if the p_commit='F'
1650: IF NOT(FND_API.To_Boolean( p_commit )) THEN
1651: ROLLBACK TO LINK_BULLETIN_FOR_RULE;
1652: END IF;
1653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1654: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1655: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME ,
1656: l_api_name );
1657: END IF;
1762: -- Standard Start of API savepoint
1763: SAVEPOINT APPLY_BULLETIN_SCS_TO_RO;
1764:
1765: -- Initialize API return status to success
1766: x_return_status := FND_API.G_RET_STS_SUCCESS;
1767:
1768: -- Log the api name in the log file
1769: --dbms_output.put_line('At the Beginning of APPLY_BULLETIN_SCS_TO_RO');
1770: --dbms_output.put_line('p_repair_line_id ='||p_repair_line_id);
1769: --dbms_output.put_line('At the Beginning of APPLY_BULLETIN_SCS_TO_RO');
1770: --dbms_output.put_line('p_repair_line_id ='||p_repair_line_id);
1771:
1772: -- Standard call to check for call compatibility.
1773: IF NOT FND_API.Compatible_API_Call (l_api_version,
1774: p_api_version_number,
1775: l_api_name ,
1776: G_PKG_NAME )
1777: THEN
1774: p_api_version_number,
1775: l_api_name ,
1776: G_PKG_NAME )
1777: THEN
1778: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1779: END IF;
1780:
1781: -- Initialize message list if p_init_msg_list is set to TRUE.
1782: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1778: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1779: END IF;
1780:
1781: -- Initialize message list if p_init_msg_list is set to TRUE.
1782: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1783: FND_MSG_PUB.initialize;
1784: END IF;
1785:
1786: FOR i IN 1.. p_service_codes.count LOOP
1829: IF (nvl(l_ro_service_code_rec.applicable_flag, 'N') <> 'Y') THEN
1830: l_ro_service_code_rec.applicable_flag := 'Y';
1831: CSD_RO_SERVICE_CODES_PVT.Update_RO_Service_Code (
1832: p_api_version => l_api_version,
1833: p_commit => FND_API.G_FALSE,
1834: p_init_msg_list => FND_API.G_FALSE,
1835: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1836: x_return_status => x_return_status,
1837: x_msg_count => x_msg_count,
1830: l_ro_service_code_rec.applicable_flag := 'Y';
1831: CSD_RO_SERVICE_CODES_PVT.Update_RO_Service_Code (
1832: p_api_version => l_api_version,
1833: p_commit => FND_API.G_FALSE,
1834: p_init_msg_list => FND_API.G_FALSE,
1835: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1836: x_return_status => x_return_status,
1837: x_msg_count => x_msg_count,
1838: x_msg_data => x_msg_data,
1831: CSD_RO_SERVICE_CODES_PVT.Update_RO_Service_Code (
1832: p_api_version => l_api_version,
1833: p_commit => FND_API.G_FALSE,
1834: p_init_msg_list => FND_API.G_FALSE,
1835: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1836: x_return_status => x_return_status,
1837: x_msg_count => x_msg_count,
1838: x_msg_data => x_msg_data,
1839: p_ro_service_code_rec => l_ro_service_code_rec,
1850: CLOSE c_get_ro_item;
1851:
1852: CSD_RO_SERVICE_CODES_PVT.Create_RO_Service_Code (
1853: p_api_version => l_api_version,
1854: p_commit => FND_API.G_FALSE,
1855: p_init_msg_list => FND_API.G_FALSE,
1856: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1857: x_return_status => x_return_status,
1858: x_msg_count => x_msg_count,
1851:
1852: CSD_RO_SERVICE_CODES_PVT.Create_RO_Service_Code (
1853: p_api_version => l_api_version,
1854: p_commit => FND_API.G_FALSE,
1855: p_init_msg_list => FND_API.G_FALSE,
1856: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1857: x_return_status => x_return_status,
1858: x_msg_count => x_msg_count,
1859: x_msg_data => x_msg_data,
1852: CSD_RO_SERVICE_CODES_PVT.Create_RO_Service_Code (
1853: p_api_version => l_api_version,
1854: p_commit => FND_API.G_FALSE,
1855: p_init_msg_list => FND_API.G_FALSE,
1856: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1857: x_return_status => x_return_status,
1858: x_msg_count => x_msg_count,
1859: x_msg_data => x_msg_data,
1860: p_ro_service_code_rec => l_ro_service_code_rec ,
1860: p_ro_service_code_rec => l_ro_service_code_rec ,
1861: x_ro_service_code_id => l_ro_service_code_id
1862: );
1863: END IF;
1864: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1865: --dbms_output.put_line('CREATE_RO_SERVICE_CODE failed');
1866: RAISE FND_API.G_EXC_ERROR;
1867: END IF;
1868: END IF; -- end if (l_in_domain is not null)
1862: );
1863: END IF;
1864: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1865: --dbms_output.put_line('CREATE_RO_SERVICE_CODE failed');
1866: RAISE FND_API.G_EXC_ERROR;
1867: END IF;
1868: END IF; -- end if (l_in_domain is not null)
1869:
1870: END LOOP;
1869:
1870: END LOOP;
1871:
1872: -- Standard check of p_commit.
1873: IF FND_API.To_Boolean( p_commit ) THEN
1874: COMMIT WORK;
1875: END IF;
1876:
1877: -- Standard call to get message count and IF count is get message info.
1879: (p_count => x_msg_count,
1880: p_data => x_msg_data );
1881:
1882: EXCEPTION
1883: WHEN FND_API.G_EXC_ERROR THEN
1884: --dbms_output.put_line('In FND_API.G_EXC_ERROR exception');
1885: ROLLBACK TO APPLY_BULLETIN_SCS_TO_RO;
1886: x_return_status := FND_API.G_RET_STS_ERROR ;
1887: FND_MSG_PUB.Count_And_Get
1880: p_data => x_msg_data );
1881:
1882: EXCEPTION
1883: WHEN FND_API.G_EXC_ERROR THEN
1884: --dbms_output.put_line('In FND_API.G_EXC_ERROR exception');
1885: ROLLBACK TO APPLY_BULLETIN_SCS_TO_RO;
1886: x_return_status := FND_API.G_RET_STS_ERROR ;
1887: FND_MSG_PUB.Count_And_Get
1888: (p_count => x_msg_count,
1882: EXCEPTION
1883: WHEN FND_API.G_EXC_ERROR THEN
1884: --dbms_output.put_line('In FND_API.G_EXC_ERROR exception');
1885: ROLLBACK TO APPLY_BULLETIN_SCS_TO_RO;
1886: x_return_status := FND_API.G_RET_STS_ERROR ;
1887: FND_MSG_PUB.Count_And_Get
1888: (p_count => x_msg_count,
1889: p_data => x_msg_data );
1890: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1886: x_return_status := FND_API.G_RET_STS_ERROR ;
1887: FND_MSG_PUB.Count_And_Get
1888: (p_count => x_msg_count,
1889: p_data => x_msg_data );
1890: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1891: --dbms_output.put_line('In FND_API.G_EXC_UNEXPECTED_ERROR exception');
1892: IF ( l_error_level >= G_debug_level) THEN
1893: fnd_message.set_name('CSD','CSD_SQL_ERROR');
1894: fnd_message.set_token('SQLERRM',SQLERRM);
1887: FND_MSG_PUB.Count_And_Get
1888: (p_count => x_msg_count,
1889: p_data => x_msg_data );
1890: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1891: --dbms_output.put_line('In FND_API.G_EXC_UNEXPECTED_ERROR exception');
1892: IF ( l_error_level >= G_debug_level) THEN
1893: fnd_message.set_name('CSD','CSD_SQL_ERROR');
1894: fnd_message.set_token('SQLERRM',SQLERRM);
1895: fnd_message.set_token('SQLCODE',SQLCODE);
1895: fnd_message.set_token('SQLCODE',SQLCODE);
1896: fnd_log.message(l_error_level,l_mod_name,FALSE);
1897: END If;
1898: ROLLBACK TO APPLY_BULLETIN_SCS_TO_RO;
1899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1900: FND_MSG_PUB.Count_And_Get
1901: ( p_count => x_msg_count,
1902: p_data => x_msg_data );
1903: WHEN OTHERS THEN
1908: fnd_message.set_token('SQLCODE',SQLCODE);
1909: fnd_log.message(l_error_level,l_mod_name,FALSE);
1910: END If;
1911: ROLLBACK TO APPLY_BULLETIN_SCS_TO_RO;
1912: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1913: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1914: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME ,
1915: l_api_name );
1916: END IF;