[Home] [Help]
31: /* API for 12.1 release */
32: /*--------------------------------------------------*/
33:
34: PROCEDURE PROCESS_ESTIMATE_LINES(p_api_version IN NUMBER,
35: p_commit IN VARCHAR2 := Fnd_Api.g_false,
36: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
37: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
38: p_action IN VARCHAR2,
39: p_cs_cost_flag IN VARCHAR2 := 'Y',
32: /*--------------------------------------------------*/
33:
34: PROCEDURE PROCESS_ESTIMATE_LINES(p_api_version IN NUMBER,
35: p_commit IN VARCHAR2 := Fnd_Api.g_false,
36: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
37: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
38: p_action IN VARCHAR2,
39: p_cs_cost_flag IN VARCHAR2 := 'Y',
40: x_Charges_Rec IN OUT NOCOPY Cs_Charge_Details_Pub.Charges_Rec_Type,
33:
34: PROCEDURE PROCESS_ESTIMATE_LINES(p_api_version IN NUMBER,
35: p_commit IN VARCHAR2 := Fnd_Api.g_false,
36: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
37: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
38: p_action IN VARCHAR2,
39: p_cs_cost_flag IN VARCHAR2 := 'Y',
40: x_Charges_Rec IN OUT NOCOPY Cs_Charge_Details_Pub.Charges_Rec_Type,
41: x_return_status OUT NOCOPY VARCHAR2,
55: -- Standard Start of API savepoint
56: SAVEPOINT process_estimate_lines;
57:
58: -- Standard call to check for call compatibility.
59: IF NOT Fnd_Api.Compatible_API_Call(l_api_version,
60: p_api_version,
61: l_api_name,
62: G_PKG_NAME)
63: THEN
60: p_api_version,
61: l_api_name,
62: G_PKG_NAME)
63: THEN
64: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
65: END IF;
66:
67: -- Initialize message list if p_init_msg_list is set to TRUE.
68: IF Fnd_Api.to_Boolean(p_init_msg_list)
64: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
65: END IF;
66:
67: -- Initialize message list if p_init_msg_list is set to TRUE.
68: IF Fnd_Api.to_Boolean(p_init_msg_list)
69: THEN
70: Fnd_Msg_Pub.initialize;
71: END IF;
72:
70: Fnd_Msg_Pub.initialize;
71: END IF;
72:
73: -- Initialize API return status to success
74: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
75:
76: -- Api body starts
77: IF (g_debug > 0)
78: THEN
97: Cs_Charge_Details_Pub.Create_Charge_Details(p_api_version => p_api_version,
98: p_init_msg_list => p_init_msg_list,
99: p_commit => p_commit,
100: p_validation_level => p_validation_level,
101: p_transaction_control => Fnd_Api.G_TRUE,
102: p_Charges_Rec => x_charges_rec,
103: p_create_cost_detail => p_cs_cost_flag, -- swai: 12.1 service costing uptake bug 6960295
104: x_object_version_number => x_object_version_number,
105: x_estimate_detail_id => l_estimate_detail_id,
108: x_msg_count => x_msg_count,
109: x_msg_data => x_msg_data,
110: x_cost_id => x_cost_id); -- swai: 12.1 service costing uptake bug 6960295
111:
112: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
113: THEN
114: IF (g_debug > 0)
115: THEN
116: Csd_Gen_Utility_Pvt.ADD('Create_Charge_Details failed ');
115: THEN
116: Csd_Gen_Utility_Pvt.ADD('Create_Charge_Details failed ');
117: END IF;
118:
119: RAISE Fnd_Api.G_EXC_ERROR;
120: END IF;
121:
122: x_charges_rec.estimate_detail_id := l_estimate_detail_id;
123:
142: Csd_Gen_Utility_Pvt.ADD('x_Charges_Rec.business_process_id=' ||
143: x_Charges_Rec.business_process_id);
144: END IF;
145:
146: IF ((NVL(x_Charges_Rec.business_process_id, Fnd_Api.G_MISS_NUM) =
147: Fnd_Api.G_MISS_NUM) AND
148: x_Charges_Rec.estimate_detail_id IS NOT NULL)
149: THEN
150: BEGIN
143: x_Charges_Rec.business_process_id);
144: END IF;
145:
146: IF ((NVL(x_Charges_Rec.business_process_id, Fnd_Api.G_MISS_NUM) =
147: Fnd_Api.G_MISS_NUM) AND
148: x_Charges_Rec.estimate_detail_id IS NOT NULL)
149: THEN
150: BEGIN
151: SELECT business_process_id
158: IF (g_debug > 0)
159: THEN
160: Csd_Gen_Utility_Pvt.ADD('No Business business_process_id');
161: END IF;
162: RAISE Fnd_Api.G_EXC_ERROR;
163: WHEN TOO_MANY_ROWS THEN
164: IF (g_debug > 0)
165: THEN
166: Csd_Gen_Utility_Pvt.ADD('Too many business_process_id');
164: IF (g_debug > 0)
165: THEN
166: Csd_Gen_Utility_Pvt.ADD('Too many business_process_id');
167: END IF;
168: RAISE Fnd_Api.G_EXC_ERROR;
169: END;
170: END IF;
171:
172: IF (g_debug > 0)
178: Cs_Charge_Details_Pub.Update_Charge_Details(p_api_version => p_api_version,
179: p_init_msg_list => p_init_msg_list,
180: p_commit => p_commit,
181: p_validation_level => p_validation_level,
182: p_transaction_control => Fnd_Api.G_TRUE,
183: p_Charges_Rec => x_Charges_Rec,
184: p_update_cost_detail => p_cs_cost_flag, -- swai: 12.1 service costing uptake bug 6960295
185: x_object_version_number => x_object_version_number,
186: x_return_status => x_return_status,
186: x_return_status => x_return_status,
187: x_msg_count => x_msg_count,
188: x_msg_data => x_msg_data);
189:
190: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
191: THEN
192: IF (g_debug > 0)
193: THEN
194: Csd_Gen_Utility_Pvt.ADD('update_charge_details failed');
193: THEN
194: Csd_Gen_Utility_Pvt.ADD('update_charge_details failed');
195: END IF;
196:
197: RAISE Fnd_Api.G_EXC_ERROR;
198: END IF;
199:
200: ELSIF p_action = 'DELETE'
201: THEN
216: Cs_Charge_Details_Pub.Delete_Charge_Details(p_api_version => p_api_version,
217: p_init_msg_list => p_init_msg_list,
218: p_commit => p_commit,
219: p_validation_level => p_validation_level,
220: p_transaction_control => Fnd_Api.G_TRUE,
221: p_estimate_detail_id => l_estimate_detail_id,
222: p_delete_cost_detail => p_cs_cost_flag, -- swai: 12.1 service costing uptake bug 6960295
223: x_return_status => x_return_status,
224: x_msg_count => x_msg_count,
223: x_return_status => x_return_status,
224: x_msg_count => x_msg_count,
225: x_msg_data => x_msg_data);
226:
227: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
228: THEN
229: IF (g_debug > 0)
230: THEN
231: Csd_Gen_Utility_Pvt.ADD('Delete_Charge_Details failed ');
230: THEN
231: Csd_Gen_Utility_Pvt.ADD('Delete_Charge_Details failed ');
232: END IF;
233:
234: RAISE Fnd_Api.G_EXC_ERROR;
235: END IF;
236:
237: ELSE
238: IF (g_debug > 0)
242:
243: Fnd_Message.SET_NAME('CSD', 'CSD_INVALID_ACTION');
244: Fnd_Message.SET_TOKEN('ACTION', p_action);
245: Fnd_Msg_Pub.ADD;
246: RAISE Fnd_Api.G_EXC_ERROR;
247:
248: END IF;
249:
250: -- Api body ends here
248: END IF;
249:
250: -- Api body ends here
251: -- Standard check of p_commit.
252: IF Fnd_Api.To_Boolean(p_commit)
253: THEN
254: COMMIT WORK;
255: END IF;
256:
257: -- Standard call to get message count and IF count is get message info.
258: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
259: p_data => x_msg_data);
260: EXCEPTION
261: WHEN Fnd_Api.G_EXC_ERROR THEN
262: ROLLBACK TO process_estimate_lines;
263: x_return_status := Fnd_Api.G_RET_STS_ERROR;
264: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
265: p_data => x_msg_data);
259: p_data => x_msg_data);
260: EXCEPTION
261: WHEN Fnd_Api.G_EXC_ERROR THEN
262: ROLLBACK TO process_estimate_lines;
263: x_return_status := Fnd_Api.G_RET_STS_ERROR;
264: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
265: p_data => x_msg_data);
266: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
267: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
262: ROLLBACK TO process_estimate_lines;
263: x_return_status := Fnd_Api.G_RET_STS_ERROR;
264: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
265: p_data => x_msg_data);
266: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
267: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
268: ROLLBACK TO process_estimate_lines;
269: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
270: p_data => x_msg_data);
263: x_return_status := Fnd_Api.G_RET_STS_ERROR;
264: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
265: p_data => x_msg_data);
266: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
267: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
268: ROLLBACK TO process_estimate_lines;
269: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
270: p_data => x_msg_data);
271: WHEN OTHERS THEN
268: ROLLBACK TO process_estimate_lines;
269: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
270: p_data => x_msg_data);
271: WHEN OTHERS THEN
272: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
273: ROLLBACK TO process_estimate_lines;
274: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
275: THEN
276: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
284: /* description : procedure used to update */
285: /* repair group for estimate changes*/
286: /*--------------------------------------------------*/
287: PROCEDURE UPDATE_RO_GROUP_ESTIMATE(p_api_version IN NUMBER,
288: p_commit IN VARCHAR2 := Fnd_Api.g_false,
289: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
290: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
291: p_repair_line_id IN NUMBER,
292: x_object_version_number OUT NOCOPY NUMBER,
285: /* repair group for estimate changes*/
286: /*--------------------------------------------------*/
287: PROCEDURE UPDATE_RO_GROUP_ESTIMATE(p_api_version IN NUMBER,
288: p_commit IN VARCHAR2 := Fnd_Api.g_false,
289: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
290: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
291: p_repair_line_id IN NUMBER,
292: x_object_version_number OUT NOCOPY NUMBER,
293: x_return_status OUT NOCOPY VARCHAR2,
286: /*--------------------------------------------------*/
287: PROCEDURE UPDATE_RO_GROUP_ESTIMATE(p_api_version IN NUMBER,
288: p_commit IN VARCHAR2 := Fnd_Api.g_false,
289: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
290: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
291: p_repair_line_id IN NUMBER,
292: x_object_version_number OUT NOCOPY NUMBER,
293: x_return_status OUT NOCOPY VARCHAR2,
294: x_msg_count OUT NOCOPY NUMBER,
319: -- Standard Start of API savepoint
320: SAVEPOINT UPDATE_RO_GROUP_ESTIMATE;
321:
322: -- Standard call to check for call compatibility.
323: IF NOT Fnd_Api.Compatible_API_Call(l_api_version,
324: p_api_version,
325: l_api_name,
326: G_PKG_NAME)
327: THEN
324: p_api_version,
325: l_api_name,
326: G_PKG_NAME)
327: THEN
328: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
329: END IF;
330:
331: -- Initialize message list if p_init_msg_list is set to TRUE.
332: IF Fnd_Api.to_Boolean(p_init_msg_list)
328: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
329: END IF;
330:
331: -- Initialize message list if p_init_msg_list is set to TRUE.
332: IF Fnd_Api.to_Boolean(p_init_msg_list)
333: THEN
334: Fnd_Msg_Pub.initialize;
335: END IF;
336:
334: Fnd_Msg_Pub.initialize;
335: END IF;
336:
337: -- Initialize API return status to success
338: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
339:
340: -- Api body starts
341: IF (g_debug > 0)
342: THEN
356: -- Validate the repair line ID
357: IF NOT
358: (Csd_Process_Util.Validate_rep_line_id(p_repair_line_id => p_repair_line_id))
359: THEN
360: RAISE Fnd_Api.G_EXC_ERROR;
361: END IF;
362:
363: BEGIN
364: SELECT grp.repair_group_id,
377: NULL;
378: -- FND_MESSAGE.SET_NAME('CSD','CSD_API_RO_GRP_UPD_NO_DATA');
379: -- FND_MESSAGE.SET_TOKEN('REPAIR_LINE_ID',p_repair_line_id);
380: -- FND_MSG_PUB.ADD;
381: -- RAISE FND_API.G_EXC_ERROR;
382: WHEN OTHERS THEN
383: NULL;
384: -- FND_MESSAGE.SET_NAME('CSD','CSD_API_RO_GRP_UPD_OTHERS');
385: -- FND_MESSAGE.SET_TOKEN('REPAIR_LINE_ID',p_repair_line_id);
383: NULL;
384: -- FND_MESSAGE.SET_NAME('CSD','CSD_API_RO_GRP_UPD_OTHERS');
385: -- FND_MESSAGE.SET_TOKEN('REPAIR_LINE_ID',p_repair_line_id);
386: -- FND_MSG_PUB.ADD;
387: -- RAISE FND_API.G_EXC_ERROR;
388: END;
389:
390: IF (l_repair_group_id IS NOT NULL)
391: THEN
526:
527: Csd_Repair_Groups_Pvt.UPDATE_REPAIR_GROUPS(p_api_version => 1.0,
528: p_commit => 'F',
529: p_init_msg_list => 'T',
530: p_validation_level => Fnd_Api.g_valid_level_full,
531: x_repair_order_group_rec => l_rep_group_rec,
532: x_return_status => l_return_status,
533: x_msg_count => l_msg_count,
534: x_msg_data => l_msg_data);
540: END IF;
541:
542: IF l_return_status <> 'S'
543: THEN
544: x_return_status := Fnd_Api.G_RET_STS_ERROR;
545: Fnd_Message.SET_NAME('CSD', 'CSD_API_RO_GROUP_EST_FAIL');
546: Fnd_Msg_Pub.ADD;
547: RAISE Fnd_Api.G_EXC_ERROR;
548: ELSIF l_return_status = 'S'
543: THEN
544: x_return_status := Fnd_Api.G_RET_STS_ERROR;
545: Fnd_Message.SET_NAME('CSD', 'CSD_API_RO_GROUP_EST_FAIL');
546: Fnd_Msg_Pub.ADD;
547: RAISE Fnd_Api.G_EXC_ERROR;
548: ELSIF l_return_status = 'S'
549: THEN
550: x_object_version_number := l_rep_group_rec.object_version_number;
551: END IF;
552:
553: -- Api body ends here
554:
555: -- Standard check of p_commit.
556: IF Fnd_Api.To_Boolean(p_commit)
557: THEN
558: COMMIT WORK;
559: END IF;
560:
564:
565: END IF;
566:
567: EXCEPTION
568: WHEN Fnd_Api.G_EXC_ERROR THEN
569: ROLLBACK TO UPDATE_RO_GROUP_ESTIMATE;
570: x_return_status := Fnd_Api.G_RET_STS_ERROR;
571: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
572: p_data => x_msg_data);
566:
567: EXCEPTION
568: WHEN Fnd_Api.G_EXC_ERROR THEN
569: ROLLBACK TO UPDATE_RO_GROUP_ESTIMATE;
570: x_return_status := Fnd_Api.G_RET_STS_ERROR;
571: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
572: p_data => x_msg_data);
573: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
574: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
569: ROLLBACK TO UPDATE_RO_GROUP_ESTIMATE;
570: x_return_status := Fnd_Api.G_RET_STS_ERROR;
571: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
572: p_data => x_msg_data);
573: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
574: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
575: ROLLBACK TO UPDATE_RO_GROUP_ESTIMATE;
576: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
577: p_data => x_msg_data);
570: x_return_status := Fnd_Api.G_RET_STS_ERROR;
571: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
572: p_data => x_msg_data);
573: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
574: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
575: ROLLBACK TO UPDATE_RO_GROUP_ESTIMATE;
576: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
577: p_data => x_msg_data);
578: WHEN OTHERS THEN
575: ROLLBACK TO UPDATE_RO_GROUP_ESTIMATE;
576: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
577: p_data => x_msg_data);
578: WHEN OTHERS THEN
579: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
580: ROLLBACK TO UPDATE_RO_GROUP_ESTIMATE;
581: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
582: THEN
583: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
593: /* repair estimate headers */
594: /*--------------------------------------------------*/
595:
596: PROCEDURE CREATE_REPAIR_ESTIMATE(p_api_version IN NUMBER,
597: p_commit IN VARCHAR2 := Fnd_Api.g_false,
598: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
599: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
600: x_estimate_rec IN OUT NOCOPY REPAIR_ESTIMATE_REC,
601: x_estimate_id OUT NOCOPY NUMBER,
594: /*--------------------------------------------------*/
595:
596: PROCEDURE CREATE_REPAIR_ESTIMATE(p_api_version IN NUMBER,
597: p_commit IN VARCHAR2 := Fnd_Api.g_false,
598: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
599: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
600: x_estimate_rec IN OUT NOCOPY REPAIR_ESTIMATE_REC,
601: x_estimate_id OUT NOCOPY NUMBER,
602: x_return_status OUT NOCOPY VARCHAR2,
595:
596: PROCEDURE CREATE_REPAIR_ESTIMATE(p_api_version IN NUMBER,
597: p_commit IN VARCHAR2 := Fnd_Api.g_false,
598: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
599: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
600: x_estimate_rec IN OUT NOCOPY REPAIR_ESTIMATE_REC,
601: x_estimate_id OUT NOCOPY NUMBER,
602: x_return_status OUT NOCOPY VARCHAR2,
603: x_msg_count OUT NOCOPY NUMBER,
619: -- Standard Start of API savepoint
620: SAVEPOINT create_repair_estimate;
621:
622: -- Standard call to check for call compatibility.
623: IF NOT Fnd_Api.Compatible_API_Call(l_api_version,
624: p_api_version,
625: l_api_name,
626: G_PKG_NAME)
627: THEN
624: p_api_version,
625: l_api_name,
626: G_PKG_NAME)
627: THEN
628: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
629: END IF;
630:
631: -- Initialize message list if p_init_msg_list is set to TRUE.
632: IF Fnd_Api.to_Boolean(p_init_msg_list)
628: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
629: END IF;
630:
631: -- Initialize message list if p_init_msg_list is set to TRUE.
632: IF Fnd_Api.to_Boolean(p_init_msg_list)
633: THEN
634: Fnd_Msg_Pub.initialize;
635: END IF;
636:
634: Fnd_Msg_Pub.initialize;
635: END IF;
636:
637: -- Initialize API return status to success
638: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
639:
640: -- Api body starts
641: IF (g_debug > 0)
642: THEN
696: -- Validate the repair line ID
697: IF NOT
698: (Csd_Process_Util.Validate_rep_line_id(p_repair_line_id => x_estimate_rec.repair_line_id))
699: THEN
700: RAISE Fnd_Api.G_EXC_ERROR;
701: END IF;
702:
703: IF (g_debug > 0)
704: THEN
726: Fnd_Message.SET_NAME('CSD', 'CSD_API_ESTIMATE_EXISTS');
727: Fnd_Message.SET_TOKEN('REPAIR_LINE_ID',
728: x_estimate_rec.repair_line_id);
729: Fnd_Msg_Pub.ADD;
730: RAISE Fnd_Api.G_EXC_ERROR;
731: END IF;
732:
733: IF (g_debug > 0)
734: THEN
746: Fnd_Message.SET_NAME('CSD', 'CSD_EST_STATUS_MISSING');
747: Fnd_Message.SET_TOKEN('ESTIMATE_STATUS',
748: x_estimate_rec.estimate_status);
749: Fnd_Msg_Pub.ADD;
750: RAISE Fnd_Api.G_EXC_ERROR;
751: END;
752: /*
753: IF l_est_status_code in ('ACCEPTED','REJECTED') then
754:
756:
757: FND_MESSAGE.SET_NAME('CSD','CSD_EST_REASON_CODE__MISSING');
758: FND_MESSAGE.SET_TOKEN('REPAIR_ESTIMATE_ID',x_estimate_rec.repair_estimate_id);
759: FND_MSG_PUB.ADD;
760: RAISE FND_API.G_EXC_ERROR;
761:
762: END IF;
763:
764: END IF;
808: IF (x_estimate_rec.estimate_status IN ('ACCEPTED', 'REJECTED'))
809: THEN
810:
811: UPDATE_RO_GROUP_ESTIMATE(p_api_version => 1.0,
812: p_commit => Fnd_Api.g_false,
813: p_init_msg_list => Fnd_Api.g_true,
814: p_validation_level => Fnd_Api.g_valid_level_full,
815: p_repair_line_id => x_estimate_rec.repair_line_id,
816: x_object_version_number => l_group_obj_ver_num,
809: THEN
810:
811: UPDATE_RO_GROUP_ESTIMATE(p_api_version => 1.0,
812: p_commit => Fnd_Api.g_false,
813: p_init_msg_list => Fnd_Api.g_true,
814: p_validation_level => Fnd_Api.g_valid_level_full,
815: p_repair_line_id => x_estimate_rec.repair_line_id,
816: x_object_version_number => l_group_obj_ver_num,
817: x_return_status => l_api_return_status,
810:
811: UPDATE_RO_GROUP_ESTIMATE(p_api_version => 1.0,
812: p_commit => Fnd_Api.g_false,
813: p_init_msg_list => Fnd_Api.g_true,
814: p_validation_level => Fnd_Api.g_valid_level_full,
815: p_repair_line_id => x_estimate_rec.repair_line_id,
816: x_object_version_number => l_group_obj_ver_num,
817: x_return_status => l_api_return_status,
818: x_msg_count => x_msg_count,
819: x_msg_data => x_msg_data);
820:
821: IF (l_api_return_status <> 'S')
822: THEN
823: RAISE Fnd_Api.G_EXC_ERROR;
824: END IF;
825:
826: END IF;
827:
825:
826: END IF;
827:
828: -- Standard check of p_commit.
829: IF Fnd_Api.To_Boolean(p_commit)
830: THEN
831: COMMIT WORK;
832: END IF;
833:
834: -- Standard call to get message count and IF count is get message info.
835: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
836: p_data => x_msg_data);
837: EXCEPTION
838: WHEN Fnd_Api.G_EXC_ERROR THEN
839: x_return_status := Fnd_Api.G_RET_STS_ERROR;
840: ROLLBACK TO create_repair_estimate;
841: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
842: p_data => x_msg_data);
835: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
836: p_data => x_msg_data);
837: EXCEPTION
838: WHEN Fnd_Api.G_EXC_ERROR THEN
839: x_return_status := Fnd_Api.G_RET_STS_ERROR;
840: ROLLBACK TO create_repair_estimate;
841: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
842: p_data => x_msg_data);
843: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
839: x_return_status := Fnd_Api.G_RET_STS_ERROR;
840: ROLLBACK TO create_repair_estimate;
841: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
842: p_data => x_msg_data);
843: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
844: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
845: ROLLBACK TO create_repair_estimate;
846: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
847: p_data => x_msg_data);
840: ROLLBACK TO create_repair_estimate;
841: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
842: p_data => x_msg_data);
843: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
844: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
845: ROLLBACK TO create_repair_estimate;
846: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
847: p_data => x_msg_data);
848: WHEN OTHERS THEN
845: ROLLBACK TO create_repair_estimate;
846: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
847: p_data => x_msg_data);
848: WHEN OTHERS THEN
849: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
850: ROLLBACK TO create_repair_estimate;
851: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
852: THEN
853: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
863: /* */
864: /*--------------------------------------------------*/
865:
866: PROCEDURE UPDATE_REPAIR_ESTIMATE(p_api_version IN NUMBER,
867: p_commit IN VARCHAR2 := Fnd_Api.g_false,
868: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
869: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
870: x_estimate_rec IN OUT NOCOPY REPAIR_ESTIMATE_REC,
871: x_return_status OUT NOCOPY VARCHAR2,
864: /*--------------------------------------------------*/
865:
866: PROCEDURE UPDATE_REPAIR_ESTIMATE(p_api_version IN NUMBER,
867: p_commit IN VARCHAR2 := Fnd_Api.g_false,
868: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
869: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
870: x_estimate_rec IN OUT NOCOPY REPAIR_ESTIMATE_REC,
871: x_return_status OUT NOCOPY VARCHAR2,
872: x_msg_count OUT NOCOPY NUMBER,
865:
866: PROCEDURE UPDATE_REPAIR_ESTIMATE(p_api_version IN NUMBER,
867: p_commit IN VARCHAR2 := Fnd_Api.g_false,
868: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
869: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
870: x_estimate_rec IN OUT NOCOPY REPAIR_ESTIMATE_REC,
871: x_return_status OUT NOCOPY VARCHAR2,
872: x_msg_count OUT NOCOPY NUMBER,
873: x_msg_data OUT NOCOPY VARCHAR2) IS
897: -- Standard Start of API savepoint
898: SAVEPOINT update_repair_estimate;
899:
900: -- Standard call to check for call compatibility.
901: IF NOT Fnd_Api.Compatible_API_Call(l_api_version,
902: p_api_version,
903: l_api_name,
904: G_PKG_NAME)
905: THEN
902: p_api_version,
903: l_api_name,
904: G_PKG_NAME)
905: THEN
906: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
907: END IF;
908:
909: -- Initialize message list if p_init_msg_list is set to TRUE.
910: IF Fnd_Api.to_Boolean(p_init_msg_list)
906: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
907: END IF;
908:
909: -- Initialize message list if p_init_msg_list is set to TRUE.
910: IF Fnd_Api.to_Boolean(p_init_msg_list)
911: THEN
912: Fnd_Msg_Pub.initialize;
913: END IF;
914:
912: Fnd_Msg_Pub.initialize;
913: END IF;
914:
915: -- Initialize API return status to success
916: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
917:
918: -- Api body starts
919: IF (g_debug > 0)
920: THEN
944: Csd_Process_Util.Check_Reqd_Param(p_param_value => x_estimate_rec.repair_estimate_id,
945: p_param_name => 'REPAIR_ESTIMATE_ID',
946: p_api_name => l_api_name);
947:
948: IF NVL(x_estimate_rec.repair_estimate_id, Fnd_Api.G_MISS_NUM) <>
949: Fnd_Api.G_MISS_NUM
950: THEN
951:
952: OPEN repair_estimate(x_estimate_rec.repair_estimate_id);
945: p_param_name => 'REPAIR_ESTIMATE_ID',
946: p_api_name => l_api_name);
947:
948: IF NVL(x_estimate_rec.repair_estimate_id, Fnd_Api.G_MISS_NUM) <>
949: Fnd_Api.G_MISS_NUM
950: THEN
951:
952: OPEN repair_estimate(x_estimate_rec.repair_estimate_id);
953: FETCH repair_estimate
957: THEN
958: Fnd_Message.SET_NAME('CSD', 'CSD_API_ESTIMATE_MISSING');
959: Fnd_Message.SET_TOKEN('REPAIR_ESTIMATE_ID', l_estimate_id);
960: Fnd_Msg_Pub.ADD;
961: RAISE Fnd_Api.G_EXC_ERROR;
962: END IF;
963:
964: IF repair_estimate%ISOPEN
965: THEN
967: END IF;
968:
969: END IF;
970:
971: IF NVL(x_estimate_rec.object_version_number, Fnd_Api.G_MISS_NUM) <>
972: l_obj_ver_num
973: THEN
974: IF (g_debug > 0)
975: THEN
978:
979: Fnd_Message.SET_NAME('CSD', 'CSD_OBJ_VER_MISMATCH');
980: Fnd_Message.SET_TOKEN('REPAIR_ESTIMATE_ID', l_estimate_id);
981: Fnd_Msg_Pub.ADD;
982: RAISE Fnd_Api.G_EXC_ERROR;
983: END IF;
984:
985: IF (g_debug > 0)
986: THEN
998: Fnd_Message.SET_NAME('CSD', 'CSD_EST_STATUS_MISSING');
999: Fnd_Message.SET_TOKEN('ESTIMATE_STATUS',
1000: x_estimate_rec.estimate_status);
1001: Fnd_Msg_Pub.ADD;
1002: RAISE Fnd_Api.G_EXC_ERROR;
1003: END;
1004: /*
1005: IF l_est_status_code in ('ACCEPTED','REJECTED') then
1006:
1008:
1009: FND_MESSAGE.SET_NAME('CSD','CSD_EST_REASON_CODE__MISSING');
1010: FND_MESSAGE.SET_TOKEN('REPAIR_ESTIMATE_ID',x_estimate_rec.repair_estimate_id);
1011: FND_MSG_PUB.ADD;
1012: RAISE FND_API.G_EXC_ERROR;
1013:
1014: END IF;
1015: END IF;
1016: */
1075: IF (x_estimate_rec.estimate_status IN ('ACCEPTED', 'REJECTED'))
1076: THEN
1077:
1078: UPDATE_RO_GROUP_ESTIMATE(p_api_version => 1.0,
1079: p_commit => Fnd_Api.g_false,
1080: p_init_msg_list => Fnd_Api.g_true,
1081: p_validation_level => Fnd_Api.g_valid_level_full,
1082: p_repair_line_id => x_estimate_rec.repair_line_id,
1083: x_object_version_number => l_group_obj_ver_num,
1076: THEN
1077:
1078: UPDATE_RO_GROUP_ESTIMATE(p_api_version => 1.0,
1079: p_commit => Fnd_Api.g_false,
1080: p_init_msg_list => Fnd_Api.g_true,
1081: p_validation_level => Fnd_Api.g_valid_level_full,
1082: p_repair_line_id => x_estimate_rec.repair_line_id,
1083: x_object_version_number => l_group_obj_ver_num,
1084: x_return_status => l_api_return_status,
1077:
1078: UPDATE_RO_GROUP_ESTIMATE(p_api_version => 1.0,
1079: p_commit => Fnd_Api.g_false,
1080: p_init_msg_list => Fnd_Api.g_true,
1081: p_validation_level => Fnd_Api.g_valid_level_full,
1082: p_repair_line_id => x_estimate_rec.repair_line_id,
1083: x_object_version_number => l_group_obj_ver_num,
1084: x_return_status => l_api_return_status,
1085: x_msg_count => x_msg_count,
1086: x_msg_data => x_msg_data);
1087:
1088: IF (l_api_return_status <> 'S')
1089: THEN
1090: RAISE Fnd_Api.G_EXC_ERROR;
1091: END IF;
1092:
1093: END IF;
1094:
1092:
1093: END IF;
1094:
1095: -- Standard check of p_commit.
1096: IF Fnd_Api.To_Boolean(p_commit)
1097: THEN
1098: COMMIT WORK;
1099: END IF;
1100:
1101: -- Standard call to get message count and IF count is get message info.
1102: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1103: p_data => x_msg_data);
1104: EXCEPTION
1105: WHEN Fnd_Api.G_EXC_ERROR THEN
1106: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1107: ROLLBACK TO update_repair_estimate;
1108: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1109: p_data => x_msg_data);
1102: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1103: p_data => x_msg_data);
1104: EXCEPTION
1105: WHEN Fnd_Api.G_EXC_ERROR THEN
1106: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1107: ROLLBACK TO update_repair_estimate;
1108: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1109: p_data => x_msg_data);
1110: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1106: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1107: ROLLBACK TO update_repair_estimate;
1108: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1109: p_data => x_msg_data);
1110: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1111: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1112: ROLLBACK TO update_repair_estimate;
1113: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1114: p_data => x_msg_data);
1107: ROLLBACK TO update_repair_estimate;
1108: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1109: p_data => x_msg_data);
1110: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1111: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1112: ROLLBACK TO update_repair_estimate;
1113: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1114: p_data => x_msg_data);
1115: WHEN OTHERS THEN
1112: ROLLBACK TO update_repair_estimate;
1113: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1114: p_data => x_msg_data);
1115: WHEN OTHERS THEN
1116: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1117: ROLLBACK TO update_repair_estimate;
1118: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1119: THEN
1120: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1130: /* */
1131: /*--------------------------------------------------*/
1132:
1133: PROCEDURE DELETE_REPAIR_ESTIMATE(p_api_version IN NUMBER,
1134: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1135: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1136: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1137: p_estimate_id IN NUMBER,
1138: x_return_status OUT NOCOPY VARCHAR2,
1131: /*--------------------------------------------------*/
1132:
1133: PROCEDURE DELETE_REPAIR_ESTIMATE(p_api_version IN NUMBER,
1134: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1135: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1136: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1137: p_estimate_id IN NUMBER,
1138: x_return_status OUT NOCOPY VARCHAR2,
1139: x_msg_count OUT NOCOPY NUMBER,
1132:
1133: PROCEDURE DELETE_REPAIR_ESTIMATE(p_api_version IN NUMBER,
1134: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1135: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1136: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1137: p_estimate_id IN NUMBER,
1138: x_return_status OUT NOCOPY VARCHAR2,
1139: x_msg_count OUT NOCOPY NUMBER,
1140: x_msg_data OUT NOCOPY VARCHAR2) IS
1154: -- Standard Start of API savepoint
1155: SAVEPOINT delete_repair_estimate;
1156:
1157: -- Standard call to check for call compatibility.
1158: IF NOT Fnd_Api.Compatible_API_Call(l_api_version,
1159: p_api_version,
1160: l_api_name,
1161: G_PKG_NAME)
1162: THEN
1159: p_api_version,
1160: l_api_name,
1161: G_PKG_NAME)
1162: THEN
1163: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1164: END IF;
1165:
1166: -- Initialize message list if p_init_msg_list is set to TRUE.
1167: IF Fnd_Api.to_Boolean(p_init_msg_list)
1163: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1164: END IF;
1165:
1166: -- Initialize message list if p_init_msg_list is set to TRUE.
1167: IF Fnd_Api.to_Boolean(p_init_msg_list)
1168: THEN
1169: Fnd_Msg_Pub.initialize;
1170: END IF;
1171:
1169: Fnd_Msg_Pub.initialize;
1170: END IF;
1171:
1172: -- Initialize API return status to success
1173: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1174:
1175: -- Api body starts
1176: IF (g_debug > 0)
1177: THEN
1202: -- Validate the repair line ID
1203: IF NOT
1204: (Csd_Process_Util.Validate_estimate_id(p_estimate_id => p_estimate_id))
1205: THEN
1206: RAISE Fnd_Api.G_EXC_ERROR;
1207: END IF;
1208:
1209: BEGIN
1210: SELECT b.approval_status
1221:
1222: Fnd_Message.SET_NAME('CSD', 'CSD_API_ESTIMATE_MISSING');
1223: Fnd_Message.SET_TOKEN('REPAIR_ESTIMATE_ID', p_estimate_id);
1224: Fnd_Msg_Pub.ADD;
1225: RAISE Fnd_Api.G_EXC_ERROR;
1226: END;
1227:
1228: BEGIN
1229: SELECT COUNT(*)
1244:
1245: Fnd_Message.SET_NAME('CSD', 'CSD_ESTIMATE_LINE_EXISTS');
1246: Fnd_Message.SET_TOKEN('REPAIR_ESTIMATE_ID', p_estimate_id);
1247: Fnd_Msg_Pub.ADD;
1248: RAISE Fnd_Api.G_EXC_ERROR;
1249: END IF;
1250:
1251: IF NVL(l_approval_status, 'Z') <> 'A'
1252: THEN
1259: ELSE
1260: Fnd_Message.SET_NAME('CSD', 'CSD_EST_DELETE_NOT_ALLOWED');
1261: Fnd_Message.SET_TOKEN('REPAIR_ESTIMATE_ID', p_estimate_id);
1262: Fnd_Msg_Pub.ADD;
1263: RAISE Fnd_Api.G_EXC_ERROR;
1264: END IF;
1265:
1266: -- Api body ends here
1267: -- Standard check of p_commit.
1264: END IF;
1265:
1266: -- Api body ends here
1267: -- Standard check of p_commit.
1268: IF Fnd_Api.To_Boolean(p_commit)
1269: THEN
1270: COMMIT WORK;
1271: END IF;
1272:
1273: -- Standard call to get message count and IF count is get message info.
1274: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1275: p_data => x_msg_data);
1276: EXCEPTION
1277: WHEN Fnd_Api.G_EXC_ERROR THEN
1278: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1279: ROLLBACK TO delete_repair_estimate;
1280: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1281: p_data => x_msg_data);
1274: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1275: p_data => x_msg_data);
1276: EXCEPTION
1277: WHEN Fnd_Api.G_EXC_ERROR THEN
1278: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1279: ROLLBACK TO delete_repair_estimate;
1280: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1281: p_data => x_msg_data);
1282: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1278: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1279: ROLLBACK TO delete_repair_estimate;
1280: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1281: p_data => x_msg_data);
1282: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1283: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1284: ROLLBACK TO delete_repair_estimate;
1285: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1286: p_data => x_msg_data);
1279: ROLLBACK TO delete_repair_estimate;
1280: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1281: p_data => x_msg_data);
1282: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1283: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1284: ROLLBACK TO delete_repair_estimate;
1285: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1286: p_data => x_msg_data);
1287: WHEN OTHERS THEN
1284: ROLLBACK TO delete_repair_estimate;
1285: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1286: p_data => x_msg_data);
1287: WHEN OTHERS THEN
1288: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1289: ROLLBACK TO delete_repair_estimate;
1290: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1291: THEN
1292: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1301: /* repair estimate headers */
1302: /*--------------------------------------------------*/
1303:
1304: PROCEDURE lock_repair_estimate(p_api_version IN NUMBER,
1305: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1306: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1307: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1308: p_estimate_rec IN REPAIR_ESTIMATE_REC,
1309: x_return_status OUT NOCOPY VARCHAR2,
1302: /*--------------------------------------------------*/
1303:
1304: PROCEDURE lock_repair_estimate(p_api_version IN NUMBER,
1305: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1306: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1307: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1308: p_estimate_rec IN REPAIR_ESTIMATE_REC,
1309: x_return_status OUT NOCOPY VARCHAR2,
1310: x_msg_count OUT NOCOPY NUMBER,
1303:
1304: PROCEDURE lock_repair_estimate(p_api_version IN NUMBER,
1305: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1306: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1307: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1308: p_estimate_rec IN REPAIR_ESTIMATE_REC,
1309: x_return_status OUT NOCOPY VARCHAR2,
1310: x_msg_count OUT NOCOPY NUMBER,
1311: x_msg_data OUT NOCOPY VARCHAR2) IS
1320: -- Standard Start of API savepoint
1321: SAVEPOINT lock_repair_estimate;
1322:
1323: -- Standard call to check for call compatibility.
1324: IF NOT Fnd_Api.Compatible_API_Call(l_api_version,
1325: p_api_version,
1326: l_api_name,
1327: G_PKG_NAME)
1328: THEN
1325: p_api_version,
1326: l_api_name,
1327: G_PKG_NAME)
1328: THEN
1329: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1330: END IF;
1331:
1332: -- Initialize message list if p_init_msg_list is set to TRUE.
1333: IF Fnd_Api.to_Boolean(p_init_msg_list)
1329: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1330: END IF;
1331:
1332: -- Initialize message list if p_init_msg_list is set to TRUE.
1333: IF Fnd_Api.to_Boolean(p_init_msg_list)
1334: THEN
1335: Fnd_Msg_Pub.initialize;
1336: END IF;
1337:
1335: Fnd_Msg_Pub.initialize;
1336: END IF;
1337:
1338: -- Initialize API return status to success
1339: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1340:
1341: Csd_Repair_Estimate_Pkg.Lock_Row(p_REPAIR_ESTIMATE_ID => p_estimate_rec.repair_estimate_id,
1342: p_OBJECT_VERSION_NUMBER => p_estimate_rec.OBJECT_VERSION_NUMBER);
1343:
1341: Csd_Repair_Estimate_Pkg.Lock_Row(p_REPAIR_ESTIMATE_ID => p_estimate_rec.repair_estimate_id,
1342: p_OBJECT_VERSION_NUMBER => p_estimate_rec.OBJECT_VERSION_NUMBER);
1343:
1344: -- Standard check of p_commit.
1345: IF Fnd_Api.To_Boolean(p_commit)
1346: THEN
1347: COMMIT WORK;
1348: END IF;
1349:
1350: -- Standard call to get message count and IF count is get message info.
1351: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1352: p_data => x_msg_data);
1353: EXCEPTION
1354: WHEN Fnd_Api.G_EXC_ERROR THEN
1355: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1356: ROLLBACK TO lock_repair_estimate;
1357: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1358: p_data => x_msg_data);
1351: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1352: p_data => x_msg_data);
1353: EXCEPTION
1354: WHEN Fnd_Api.G_EXC_ERROR THEN
1355: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1356: ROLLBACK TO lock_repair_estimate;
1357: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1358: p_data => x_msg_data);
1359: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1355: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1356: ROLLBACK TO lock_repair_estimate;
1357: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1358: p_data => x_msg_data);
1359: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1360: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1361: ROLLBACK TO lock_repair_estimate;
1362: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1363: p_data => x_msg_data);
1356: ROLLBACK TO lock_repair_estimate;
1357: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1358: p_data => x_msg_data);
1359: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1360: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1361: ROLLBACK TO lock_repair_estimate;
1362: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1363: p_data => x_msg_data);
1364: WHEN OTHERS THEN
1361: ROLLBACK TO lock_repair_estimate;
1362: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1363: p_data => x_msg_data);
1364: WHEN OTHERS THEN
1365: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1366: ROLLBACK TO lock_repair_estimate;
1367: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1368: THEN
1369: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1378: /* repair estimate lines */
1379: /*--------------------------------------------------*/
1380:
1381: PROCEDURE CREATE_REPAIR_ESTIMATE_LINES(p_api_version IN NUMBER,
1382: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1383: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1384: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1385: x_estimate_line_rec IN OUT NOCOPY CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_REC,
1386: x_estimate_line_id OUT NOCOPY NUMBER,
1379: /*--------------------------------------------------*/
1380:
1381: PROCEDURE CREATE_REPAIR_ESTIMATE_LINES(p_api_version IN NUMBER,
1382: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1383: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1384: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1385: x_estimate_line_rec IN OUT NOCOPY CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_REC,
1386: x_estimate_line_id OUT NOCOPY NUMBER,
1387: x_return_status OUT NOCOPY VARCHAR2,
1380:
1381: PROCEDURE CREATE_REPAIR_ESTIMATE_LINES(p_api_version IN NUMBER,
1382: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1383: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1384: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1385: x_estimate_line_rec IN OUT NOCOPY CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_REC,
1386: x_estimate_line_id OUT NOCOPY NUMBER,
1387: x_return_status OUT NOCOPY VARCHAR2,
1388: x_msg_count OUT NOCOPY NUMBER,
1429: -- Standard Start of API savepoint
1430: SAVEPOINT create_repair_estimate_lines;
1431:
1432: -- Standard call to check for call compatibility.
1433: IF NOT Fnd_Api.Compatible_API_Call(l_api_version,
1434: p_api_version,
1435: l_api_name,
1436: G_PKG_NAME)
1437: THEN
1434: p_api_version,
1435: l_api_name,
1436: G_PKG_NAME)
1437: THEN
1438: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1439: END IF;
1440:
1441: -- Initialize message list if p_init_msg_list is set to TRUE.
1442: IF Fnd_Api.to_Boolean(p_init_msg_list)
1438: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1439: END IF;
1440:
1441: -- Initialize message list if p_init_msg_list is set to TRUE.
1442: IF Fnd_Api.to_Boolean(p_init_msg_list)
1443: THEN
1444: Fnd_Msg_Pub.initialize;
1445: END IF;
1446:
1444: Fnd_Msg_Pub.initialize;
1445: END IF;
1446:
1447: -- Initialize API return status to success
1448: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1449:
1450: -- Api body starts
1451: IF (g_debug > 0)
1452: THEN
1516: -- Validate the repair line ID
1517: IF NOT
1518: (Csd_Process_Util.Validate_estimate_id(p_estimate_id => x_estimate_line_rec.repair_estimate_id))
1519: THEN
1520: RAISE Fnd_Api.G_EXC_ERROR;
1521: END IF;
1522:
1523: IF (g_debug > 0)
1524: THEN
1528: -- Validate the repair line ID
1529: IF NOT
1530: (Csd_Process_Util.Validate_rep_line_id(p_repair_line_id => x_estimate_line_rec.repair_line_id))
1531: THEN
1532: RAISE Fnd_Api.G_EXC_ERROR;
1533: END IF;
1534:
1535: -- Get the service request
1536: BEGIN
1543: Fnd_Message.SET_NAME('CSD', 'CSD_API_INV_REP_LINE_ID');
1544: Fnd_Message.SET_TOKEN('REPAIR_LINE_ID',
1545: x_estimate_line_rec.repair_line_id);
1546: Fnd_Msg_Pub.ADD;
1547: RAISE Fnd_Api.G_EXC_ERROR;
1548: END;
1549:
1550: IF (g_debug > 0)
1551: THEN
1566:
1567: IF l_bus_process_id < 0
1568: THEN
1569: IF NVL(x_estimate_line_rec.business_process_id,
1570: Fnd_Api.G_MISS_NUM) <> Fnd_Api.G_MISS_NUM
1571: THEN
1572: l_bus_process_id := x_estimate_line_rec.business_process_id;
1573: ELSE
1574: IF (g_debug > 0)
1575: THEN
1576: Csd_Gen_Utility_Pvt.ADD('Business process does not exist ');
1577: END IF;
1578:
1579: RAISE Fnd_Api.G_EXC_ERROR;
1580: END IF;
1581: END IF;
1582:
1583: /* contract information passed from form
1589: csd_gen_utility_pvt.ADD('contract_line_id ='||x_estimate_line_rec.contract_id);
1590: END IF;
1591:
1592:
1593: IF NVL(x_estimate_line_rec.contract_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1594:
1595: Begin
1596: SELECT cov.actual_coverage_id ,
1597: cov.coverage_name,
1616: IF (g_debug > 0 ) THEN
1617: csd_gen_utility_pvt.ADD('Contract Line Id missing');
1618: END IF;
1619:
1620: RAISE FND_API.G_EXC_ERROR;
1621: End;
1622:
1623: x_estimate_line_rec.coverage_id := l_coverage_id;
1624: x_estimate_line_rec.coverage_txn_group_id := l_txn_group_id;
1645: THEN
1646: Fnd_Message.SET_NAME('CSD', 'CSD_API_PARTY_MISSING');
1647: Fnd_Message.SET_TOKEN('INCIDENT_ID', l_incident_id);
1648: Fnd_Msg_Pub.ADD;
1649: RAISE Fnd_Api.G_EXC_ERROR;
1650: END IF;
1651:
1652: IF order_rec%ISOPEN
1653: THEN
1690: x_line_type_id => l_line_type_id,
1691: x_line_category_code => l_line_category_code,
1692: x_return_status => x_return_status);
1693:
1694: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
1695: THEN
1696: RAISE Fnd_Api.G_EXC_ERROR;
1697: END IF;
1698:
1692: x_return_status => x_return_status);
1693:
1694: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
1695: THEN
1696: RAISE Fnd_Api.G_EXC_ERROR;
1697: END IF;
1698:
1699: IF (g_debug > 0)
1700: THEN
1721: Fnd_Message.SET_NAME('CSD', 'CSD_API_LINE_TYPE_MISSING');
1722: Fnd_Message.SET_TOKEN('TXN_BILLING_TYPE_ID',
1723: x_estimate_line_rec.txn_billing_type_id);
1724: Fnd_Msg_Pub.ADD;
1725: RAISE Fnd_Api.G_EXC_ERROR;
1726: END IF;
1727:
1728: -- Get the currency code
1729: IF NVL(x_estimate_line_rec.price_list_id, Fnd_Api.G_MISS_NUM) <>
1725: RAISE Fnd_Api.G_EXC_ERROR;
1726: END IF;
1727:
1728: -- Get the currency code
1729: IF NVL(x_estimate_line_rec.price_list_id, Fnd_Api.G_MISS_NUM) <>
1730: Fnd_Api.G_MISS_NUM
1731: THEN
1732: BEGIN
1733: SELECT currency_code
1726: END IF;
1727:
1728: -- Get the currency code
1729: IF NVL(x_estimate_line_rec.price_list_id, Fnd_Api.G_MISS_NUM) <>
1730: Fnd_Api.G_MISS_NUM
1731: THEN
1732: BEGIN
1733: SELECT currency_code
1734: INTO l_curr_code
1740: 'CSD_API_INV_PRICE_LIST_ID');
1741: Fnd_Message.SET_TOKEN('PRICE_LIST_ID',
1742: x_estimate_line_rec.price_list_id);
1743: Fnd_Msg_Pub.ADD;
1744: RAISE Fnd_Api.G_EXC_ERROR;
1745: END;
1746: END IF;
1747:
1748: IF (g_debug > 0)
1756: Fnd_Message.SET_NAME('CSD', 'CSD_API_INV_CURR_CODE');
1757: Fnd_Message.SET_TOKEN('PRICE_LIST_ID',
1758: x_estimate_line_rec.price_list_id);
1759: Fnd_Msg_Pub.ADD;
1760: RAISE Fnd_Api.G_EXC_ERROR;
1761: END IF;
1762:
1763: --
1764: -- Commented for bug# 2857134 (forward port bugfix from 11.5.8)
1762:
1763: --
1764: -- Commented for bug# 2857134 (forward port bugfix from 11.5.8)
1765: --
1766: -- IF NVL(x_estimate_line_rec.item_cost,FND_API.G_MISS_NUM)= FND_API.G_MISS_NUM THEN
1767: --IF (g_debug > 0 ) THEN
1768: -- csd_gen_utility_pvt.ADD('Get item cost' );
1769: --END IF;
1770: --
1786: --END IF;
1787: --
1788: -- FND_MESSAGE.SET_NAME('CSD','CSD_ITEM_COST_MISSING');
1789: -- FND_MSG_PUB.ADD;
1790: -- RAISE FND_API.G_EXC_ERROR;
1791: -- END;
1792: -- END IF;
1793: --
1794: --
1817: Csd_Process_Util.CONVERT_EST_TO_CHG_REC(p_estimate_line_rec => x_estimate_line_rec,
1818: x_charges_rec => l_Charges_Rec,
1819: x_return_status => x_return_status);
1820:
1821: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
1822: THEN
1823: RAISE Fnd_Api.G_EXC_ERROR;
1824: END IF;
1825:
1819: x_return_status => x_return_status);
1820:
1821: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
1822: THEN
1823: RAISE Fnd_Api.G_EXC_ERROR;
1824: END IF;
1825:
1826: IF (g_debug > 0)
1827: THEN
1828: Csd_Gen_Utility_Pvt.ADD('Call process_estimate_lines to create charge lines ');
1829: END IF;
1830:
1831: process_estimate_lines(p_api_version => 1.0,
1832: p_commit => Fnd_Api.g_false,
1833: p_init_msg_list => Fnd_Api.g_false, -- swai 11.5.10, set to g_false
1834: p_validation_level => Fnd_Api.g_valid_level_full,
1835: p_action => 'CREATE',
1836: x_Charges_Rec => l_Charges_Rec,
1829: END IF;
1830:
1831: process_estimate_lines(p_api_version => 1.0,
1832: p_commit => Fnd_Api.g_false,
1833: p_init_msg_list => Fnd_Api.g_false, -- swai 11.5.10, set to g_false
1834: p_validation_level => Fnd_Api.g_valid_level_full,
1835: p_action => 'CREATE',
1836: x_Charges_Rec => l_Charges_Rec,
1837: x_return_status => x_return_status,
1830:
1831: process_estimate_lines(p_api_version => 1.0,
1832: p_commit => Fnd_Api.g_false,
1833: p_init_msg_list => Fnd_Api.g_false, -- swai 11.5.10, set to g_false
1834: p_validation_level => Fnd_Api.g_valid_level_full,
1835: p_action => 'CREATE',
1836: x_Charges_Rec => l_Charges_Rec,
1837: x_return_status => x_return_status,
1838: x_msg_count => x_msg_count,
1837: x_return_status => x_return_status,
1838: x_msg_count => x_msg_count,
1839: x_msg_data => x_msg_data);
1840:
1841: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
1842: THEN
1843: RAISE Fnd_Api.G_EXC_ERROR;
1844: END IF;
1845:
1839: x_msg_data => x_msg_data);
1840:
1841: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
1842: THEN
1843: RAISE Fnd_Api.G_EXC_ERROR;
1844: END IF;
1845:
1846: IF (g_debug > 0)
1847: THEN
1893:
1894: -- Api body ends here
1895:
1896: -- Standard check of p_commit.
1897: IF Fnd_Api.To_Boolean(p_commit)
1898: THEN
1899: COMMIT WORK;
1900: END IF;
1901:
1902: -- Standard call to get message count and IF count is get message info.
1903: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1904: p_data => x_msg_data);
1905: EXCEPTION
1906: WHEN Fnd_Api.G_EXC_ERROR THEN
1907: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1908: ROLLBACK TO create_repair_estimate_lines;
1909: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1910: p_data => x_msg_data);
1903: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1904: p_data => x_msg_data);
1905: EXCEPTION
1906: WHEN Fnd_Api.G_EXC_ERROR THEN
1907: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1908: ROLLBACK TO create_repair_estimate_lines;
1909: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1910: p_data => x_msg_data);
1911: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1907: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1908: ROLLBACK TO create_repair_estimate_lines;
1909: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1910: p_data => x_msg_data);
1911: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1912: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1913: ROLLBACK TO create_repair_estimate_lines;
1914: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1915: p_data => x_msg_data);
1908: ROLLBACK TO create_repair_estimate_lines;
1909: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1910: p_data => x_msg_data);
1911: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1912: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1913: ROLLBACK TO create_repair_estimate_lines;
1914: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1915: p_data => x_msg_data);
1916: WHEN OTHERS THEN
1913: ROLLBACK TO create_repair_estimate_lines;
1914: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
1915: p_data => x_msg_data);
1916: WHEN OTHERS THEN
1917: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1918: ROLLBACK TO create_repair_estimate_lines;
1919: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1920: THEN
1921: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1931: /* */
1932: /*--------------------------------------------------*/
1933:
1934: PROCEDURE UPDATE_REPAIR_ESTIMATE_LINES(p_api_version IN NUMBER,
1935: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1936: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1937: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1938: x_estimate_line_rec IN OUT NOCOPY CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_REC,
1939: x_return_status OUT NOCOPY VARCHAR2,
1932: /*--------------------------------------------------*/
1933:
1934: PROCEDURE UPDATE_REPAIR_ESTIMATE_LINES(p_api_version IN NUMBER,
1935: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1936: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1937: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1938: x_estimate_line_rec IN OUT NOCOPY CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_REC,
1939: x_return_status OUT NOCOPY VARCHAR2,
1940: x_msg_count OUT NOCOPY NUMBER,
1933:
1934: PROCEDURE UPDATE_REPAIR_ESTIMATE_LINES(p_api_version IN NUMBER,
1935: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1936: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1937: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1938: x_estimate_line_rec IN OUT NOCOPY CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_REC,
1939: x_return_status OUT NOCOPY VARCHAR2,
1940: x_msg_count OUT NOCOPY NUMBER,
1941: x_msg_data OUT NOCOPY VARCHAR2) IS
1980: -- Standard Start of API savepoint
1981: SAVEPOINT update_repair_estimate_lines;
1982:
1983: -- Standard call to check for call compatibility.
1984: IF NOT Fnd_Api.Compatible_API_Call(l_api_version,
1985: p_api_version,
1986: l_api_name,
1987: G_PKG_NAME)
1988: THEN
1985: p_api_version,
1986: l_api_name,
1987: G_PKG_NAME)
1988: THEN
1989: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1990: END IF;
1991:
1992: -- Initialize message list if p_init_msg_list is set to TRUE.
1993: IF Fnd_Api.to_Boolean(p_init_msg_list)
1989: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1990: END IF;
1991:
1992: -- Initialize message list if p_init_msg_list is set to TRUE.
1993: IF Fnd_Api.to_Boolean(p_init_msg_list)
1994: THEN
1995: Fnd_Msg_Pub.initialize;
1996: END IF;
1997:
1995: Fnd_Msg_Pub.initialize;
1996: END IF;
1997:
1998: -- Initialize API return status to success
1999: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2000:
2001: -- Api body starts
2002: IF (g_debug > 0)
2003: THEN
2036: -- Validate the repair line ID
2037: IF NOT
2038: (Csd_Process_Util.Validate_estimate_line_id(p_estimate_line_id => x_estimate_line_rec.repair_estimate_line_id))
2039: THEN
2040: RAISE Fnd_Api.G_EXC_ERROR;
2041: END IF;
2042:
2043: IF NVL(x_estimate_line_rec.repair_estimate_line_id,
2044: Fnd_Api.G_MISS_NUM) <> Fnd_Api.G_MISS_NUM
2040: RAISE Fnd_Api.G_EXC_ERROR;
2041: END IF;
2042:
2043: IF NVL(x_estimate_line_rec.repair_estimate_line_id,
2044: Fnd_Api.G_MISS_NUM) <> Fnd_Api.G_MISS_NUM
2045: THEN
2046:
2047: OPEN estimate_line(x_estimate_line_rec.repair_estimate_line_id);
2048: FETCH estimate_line
2050: CLOSE estimate_line;
2051: END IF;
2052:
2053: IF NVL(x_estimate_line_rec.object_version_number,
2054: Fnd_Api.G_MISS_NUM) <> l_obj_ver_num
2055: THEN
2056: IF (g_debug > 0)
2057: THEN
2058: Csd_Gen_Utility_Pvt.ADD('object version number does not match');
2061: Fnd_Message.SET_NAME('CSD', 'CSD_OBJ_VER_MISMATCH');
2062: Fnd_Message.SET_TOKEN('REPAIR_ESTIMATE_LINE_ID',
2063: x_estimate_line_rec.repair_estimate_line_id);
2064: Fnd_Msg_Pub.ADD;
2065: RAISE Fnd_Api.G_EXC_ERROR;
2066: END IF;
2067:
2068: IF NVL(x_estimate_line_rec.estimate_detail_id, Fnd_Api.G_MISS_NUM) <>
2069: Fnd_Api.G_MISS_NUM
2064: Fnd_Msg_Pub.ADD;
2065: RAISE Fnd_Api.G_EXC_ERROR;
2066: END IF;
2067:
2068: IF NVL(x_estimate_line_rec.estimate_detail_id, Fnd_Api.G_MISS_NUM) <>
2069: Fnd_Api.G_MISS_NUM
2070: THEN
2071: IF x_estimate_line_rec.estimate_detail_id <> l_est_detail_id
2072: THEN
2065: RAISE Fnd_Api.G_EXC_ERROR;
2066: END IF;
2067:
2068: IF NVL(x_estimate_line_rec.estimate_detail_id, Fnd_Api.G_MISS_NUM) <>
2069: Fnd_Api.G_MISS_NUM
2070: THEN
2071: IF x_estimate_line_rec.estimate_detail_id <> l_est_detail_id
2072: THEN
2073: IF (g_debug > 0)
2074: THEN
2075: Csd_Gen_Utility_Pvt.ADD('The estimate detail id cannot to changed');
2076: END IF;
2077:
2078: RAISE Fnd_Api.G_EXC_ERROR;
2079: END IF;
2080: ELSE
2081: x_estimate_line_rec.estimate_detail_id := l_est_detail_id;
2082: END IF;
2080: ELSE
2081: x_estimate_line_rec.estimate_detail_id := l_est_detail_id;
2082: END IF;
2083:
2084: IF NVL(x_estimate_line_rec.repair_line_id, Fnd_Api.G_MISS_NUM) <>
2085: Fnd_Api.G_MISS_NUM
2086: THEN
2087: IF x_estimate_line_rec.repair_line_id <> l_repair_line_id
2088: THEN
2081: x_estimate_line_rec.estimate_detail_id := l_est_detail_id;
2082: END IF;
2083:
2084: IF NVL(x_estimate_line_rec.repair_line_id, Fnd_Api.G_MISS_NUM) <>
2085: Fnd_Api.G_MISS_NUM
2086: THEN
2087: IF x_estimate_line_rec.repair_line_id <> l_repair_line_id
2088: THEN
2089: IF (g_debug > 0)
2090: THEN
2091: Csd_Gen_Utility_Pvt.ADD('The repair line id cannot to changed');
2092: END IF;
2093:
2094: RAISE Fnd_Api.G_EXC_ERROR;
2095: END IF;
2096: ELSE
2097: x_estimate_line_rec.repair_line_id := l_repair_line_id;
2098: END IF;
2109: l_upd_charge_flag := 'N';
2110: END;
2111:
2112: /* contract information passed from form
2113: IF NVL(x_estimate_line_rec.contract_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
2114:
2115: IF (g_debug > 0 ) THEN
2116: csd_gen_utility_pvt.ADD('Getting the Coverage and txn Group Id');
2117: END IF;
2146: IF (g_debug > 0 ) THEN
2147: csd_gen_utility_pvt.ADD('Contract Line Id missing');
2148: END IF;
2149:
2150: RAISE FND_API.G_EXC_ERROR;
2151: End;
2152:
2153: x_estimate_line_rec.coverage_id := l_coverage_id;
2154: x_estimate_line_rec.coverage_txn_group_id := l_txn_group_id;
2194: Csd_Process_Util.CONVERT_EST_TO_CHG_REC(p_estimate_line_rec => x_estimate_line_rec,
2195: x_charges_rec => l_Charges_Rec,
2196: x_return_status => x_return_status);
2197:
2198: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
2199: THEN
2200: IF (g_debug > 0)
2201: THEN
2202: Csd_Gen_Utility_Pvt.ADD('csd_process_util.convert_to_chg_rec failed');
2201: THEN
2202: Csd_Gen_Utility_Pvt.ADD('csd_process_util.convert_to_chg_rec failed');
2203: END IF;
2204:
2205: RAISE Fnd_Api.G_EXC_ERROR;
2206: END IF;
2207:
2208: l_Charges_Rec.estimate_detail_id := l_est_detail_id;
2209:
2218: l_Charges_Rec.estimate_detail_id);
2219: END IF;
2220:
2221: process_estimate_lines(p_api_version => 1.0,
2222: p_commit => Fnd_Api.g_false,
2223: p_init_msg_list => Fnd_Api.g_true,
2224: p_validation_level => Fnd_Api.g_valid_level_full,
2225: p_action => 'UPDATE',
2226: x_Charges_Rec => l_Charges_Rec,
2219: END IF;
2220:
2221: process_estimate_lines(p_api_version => 1.0,
2222: p_commit => Fnd_Api.g_false,
2223: p_init_msg_list => Fnd_Api.g_true,
2224: p_validation_level => Fnd_Api.g_valid_level_full,
2225: p_action => 'UPDATE',
2226: x_Charges_Rec => l_Charges_Rec,
2227: x_return_status => x_return_status,
2220:
2221: process_estimate_lines(p_api_version => 1.0,
2222: p_commit => Fnd_Api.g_false,
2223: p_init_msg_list => Fnd_Api.g_true,
2224: p_validation_level => Fnd_Api.g_valid_level_full,
2225: p_action => 'UPDATE',
2226: x_Charges_Rec => l_Charges_Rec,
2227: x_return_status => x_return_status,
2228: x_msg_count => x_msg_count,
2227: x_return_status => x_return_status,
2228: x_msg_count => x_msg_count,
2229: x_msg_data => x_msg_data);
2230:
2231: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
2232: THEN
2233: IF (g_debug > 0)
2234: THEN
2235: Csd_Gen_Utility_Pvt.ADD('process_estimate_lines failed ');
2234: THEN
2235: Csd_Gen_Utility_Pvt.ADD('process_estimate_lines failed ');
2236: END IF;
2237:
2238: RAISE Fnd_Api.G_EXC_ERROR;
2239: END IF;
2240:
2241: END IF; -- end of update charge line
2242:
2290:
2291: -- Api body ends here
2292:
2293: -- Standard check of p_commit.
2294: IF Fnd_Api.To_Boolean(p_commit)
2295: THEN
2296: COMMIT WORK;
2297: END IF;
2298:
2299: -- Standard call to get message count and IF count is get message info.
2300: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2301: p_data => x_msg_data);
2302: EXCEPTION
2303: WHEN Fnd_Api.G_EXC_ERROR THEN
2304: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2305: ROLLBACK TO update_repair_estimate_lines;
2306: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2307: p_data => x_msg_data);
2300: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2301: p_data => x_msg_data);
2302: EXCEPTION
2303: WHEN Fnd_Api.G_EXC_ERROR THEN
2304: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2305: ROLLBACK TO update_repair_estimate_lines;
2306: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2307: p_data => x_msg_data);
2308: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2304: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2305: ROLLBACK TO update_repair_estimate_lines;
2306: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2307: p_data => x_msg_data);
2308: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2309: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2310: ROLLBACK TO update_repair_estimate_lines;
2311: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2312: p_data => x_msg_data);
2305: ROLLBACK TO update_repair_estimate_lines;
2306: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2307: p_data => x_msg_data);
2308: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2309: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2310: ROLLBACK TO update_repair_estimate_lines;
2311: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2312: p_data => x_msg_data);
2313: WHEN OTHERS THEN
2310: ROLLBACK TO update_repair_estimate_lines;
2311: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2312: p_data => x_msg_data);
2313: WHEN OTHERS THEN
2314: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2315: ROLLBACK TO update_repair_estimate_lines;
2316: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
2317: THEN
2318: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2328: /* */
2329: /*--------------------------------------------------*/
2330:
2331: PROCEDURE DELETE_REPAIR_ESTIMATE_LINES(p_api_version IN NUMBER,
2332: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2333: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2334: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2335: p_estimate_line_id IN NUMBER,
2336: x_return_status OUT NOCOPY VARCHAR2,
2329: /*--------------------------------------------------*/
2330:
2331: PROCEDURE DELETE_REPAIR_ESTIMATE_LINES(p_api_version IN NUMBER,
2332: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2333: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2334: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2335: p_estimate_line_id IN NUMBER,
2336: x_return_status OUT NOCOPY VARCHAR2,
2337: x_msg_count OUT NOCOPY NUMBER,
2330:
2331: PROCEDURE DELETE_REPAIR_ESTIMATE_LINES(p_api_version IN NUMBER,
2332: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2333: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2334: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2335: p_estimate_line_id IN NUMBER,
2336: x_return_status OUT NOCOPY VARCHAR2,
2337: x_msg_count OUT NOCOPY NUMBER,
2338: x_msg_data OUT NOCOPY VARCHAR2) IS
2350: -- Standard Start of API savepoint
2351: SAVEPOINT delete_repair_estimate_lines;
2352:
2353: -- Standard call to check for call compatibility.
2354: IF NOT Fnd_Api.Compatible_API_Call(l_api_version,
2355: p_api_version,
2356: l_api_name,
2357: G_PKG_NAME)
2358: THEN
2355: p_api_version,
2356: l_api_name,
2357: G_PKG_NAME)
2358: THEN
2359: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2360: END IF;
2361:
2362: -- Initialize message list if p_init_msg_list is set to TRUE.
2363: IF Fnd_Api.to_Boolean(p_init_msg_list)
2359: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2360: END IF;
2361:
2362: -- Initialize message list if p_init_msg_list is set to TRUE.
2363: IF Fnd_Api.to_Boolean(p_init_msg_list)
2364: THEN
2365: Fnd_Msg_Pub.initialize;
2366: END IF;
2367:
2365: Fnd_Msg_Pub.initialize;
2366: END IF;
2367:
2368: -- Initialize API return status to success
2369: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2370:
2371: -- Api body starts
2372: IF (g_debug > 0)
2373: THEN
2398: -- Validate the repair line ID
2399: IF NOT
2400: (Csd_Process_Util.Validate_estimate_line_id(p_estimate_line_id => p_estimate_line_id))
2401: THEN
2402: RAISE Fnd_Api.G_EXC_ERROR;
2403: END IF;
2404:
2405: IF (g_debug > 0)
2406: THEN
2428: Fnd_Message.SET_NAME('CSD', 'CSD_API_DELETE_NOT_ALLOWED');
2429: Fnd_Message.SET_TOKEN('REPAIR_ESTIMATE_LINE_ID',
2430: p_estimate_line_id);
2431: Fnd_Msg_Pub.ADD;
2432: RAISE Fnd_Api.G_EXC_ERROR;
2433: END;
2434:
2435: IF (g_debug > 0)
2436: THEN
2454: Csd_Gen_Utility_Pvt.ADD('Call process_estimate_lines to delete');
2455: END IF;
2456:
2457: process_estimate_lines(p_api_version => 1.0,
2458: p_commit => Fnd_Api.g_false,
2459: p_init_msg_list => Fnd_Api.g_true,
2460: p_validation_level => Fnd_Api.g_valid_level_full,
2461: p_action => 'DELETE',
2462: x_Charges_Rec => l_Charges_Rec,
2455: END IF;
2456:
2457: process_estimate_lines(p_api_version => 1.0,
2458: p_commit => Fnd_Api.g_false,
2459: p_init_msg_list => Fnd_Api.g_true,
2460: p_validation_level => Fnd_Api.g_valid_level_full,
2461: p_action => 'DELETE',
2462: x_Charges_Rec => l_Charges_Rec,
2463: x_return_status => x_return_status,
2456:
2457: process_estimate_lines(p_api_version => 1.0,
2458: p_commit => Fnd_Api.g_false,
2459: p_init_msg_list => Fnd_Api.g_true,
2460: p_validation_level => Fnd_Api.g_valid_level_full,
2461: p_action => 'DELETE',
2462: x_Charges_Rec => l_Charges_Rec,
2463: x_return_status => x_return_status,
2464: x_msg_count => x_msg_count,
2463: x_return_status => x_return_status,
2464: x_msg_count => x_msg_count,
2465: x_msg_data => x_msg_data);
2466:
2467: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
2468: THEN
2469: RAISE Fnd_Api.G_EXC_ERROR;
2470: END IF;
2471:
2465: x_msg_data => x_msg_data);
2466:
2467: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
2468: THEN
2469: RAISE Fnd_Api.G_EXC_ERROR;
2470: END IF;
2471:
2472: IF (g_debug > 0)
2473: THEN
2480:
2481: -- Api body ends here
2482:
2483: -- Standard check of p_commit.
2484: IF Fnd_Api.To_Boolean(p_commit)
2485: THEN
2486: COMMIT WORK;
2487: END IF;
2488:
2489: -- Standard call to get message count and IF count is get message info.
2490: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2491: p_data => x_msg_data);
2492: EXCEPTION
2493: WHEN Fnd_Api.G_EXC_ERROR THEN
2494: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2495: ROLLBACK TO delete_repair_estimate_lines;
2496: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2497: p_data => x_msg_data);
2490: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2491: p_data => x_msg_data);
2492: EXCEPTION
2493: WHEN Fnd_Api.G_EXC_ERROR THEN
2494: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2495: ROLLBACK TO delete_repair_estimate_lines;
2496: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2497: p_data => x_msg_data);
2498: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2494: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2495: ROLLBACK TO delete_repair_estimate_lines;
2496: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2497: p_data => x_msg_data);
2498: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2499: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2500: ROLLBACK TO delete_repair_estimate_lines;
2501: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2502: p_data => x_msg_data);
2495: ROLLBACK TO delete_repair_estimate_lines;
2496: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2497: p_data => x_msg_data);
2498: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2499: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2500: ROLLBACK TO delete_repair_estimate_lines;
2501: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2502: p_data => x_msg_data);
2503: WHEN OTHERS THEN
2500: ROLLBACK TO delete_repair_estimate_lines;
2501: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2502: p_data => x_msg_data);
2503: WHEN OTHERS THEN
2504: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2505: ROLLBACK TO delete_repair_estimate_lines;
2506: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
2507: THEN
2508: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2517: /* repair estimate lines */
2518: /*--------------------------------------------------*/
2519:
2520: PROCEDURE LOCK_REPAIR_ESTIMATE_LINES(p_api_version IN NUMBER,
2521: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2522: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2523: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2524: p_estimate_line_rec IN REPAIR_ESTIMATE_LINE_REC,
2525: x_return_status OUT NOCOPY VARCHAR2,
2518: /*--------------------------------------------------*/
2519:
2520: PROCEDURE LOCK_REPAIR_ESTIMATE_LINES(p_api_version IN NUMBER,
2521: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2522: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2523: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2524: p_estimate_line_rec IN REPAIR_ESTIMATE_LINE_REC,
2525: x_return_status OUT NOCOPY VARCHAR2,
2526: x_msg_count OUT NOCOPY NUMBER,
2519:
2520: PROCEDURE LOCK_REPAIR_ESTIMATE_LINES(p_api_version IN NUMBER,
2521: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2522: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2523: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2524: p_estimate_line_rec IN REPAIR_ESTIMATE_LINE_REC,
2525: x_return_status OUT NOCOPY VARCHAR2,
2526: x_msg_count OUT NOCOPY NUMBER,
2527: x_msg_data OUT NOCOPY VARCHAR2) IS
2536: -- Standard Start of API savepoint
2537: SAVEPOINT lock_repair_estimate_lines;
2538:
2539: -- Standard call to check for call compatibility.
2540: IF NOT Fnd_Api.Compatible_API_Call(l_api_version,
2541: p_api_version,
2542: l_api_name,
2543: G_PKG_NAME)
2544: THEN
2541: p_api_version,
2542: l_api_name,
2543: G_PKG_NAME)
2544: THEN
2545: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2546: END IF;
2547:
2548: -- Initialize message list if p_init_msg_list is set to TRUE.
2549: IF Fnd_Api.to_Boolean(p_init_msg_list)
2545: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2546: END IF;
2547:
2548: -- Initialize message list if p_init_msg_list is set to TRUE.
2549: IF Fnd_Api.to_Boolean(p_init_msg_list)
2550: THEN
2551: Fnd_Msg_Pub.initialize;
2552: END IF;
2553:
2551: Fnd_Msg_Pub.initialize;
2552: END IF;
2553:
2554: -- Initialize API return status to success
2555: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2556:
2557: Csd_Repair_Estimate_Lines_Pkg.Lock_Row(p_REPAIR_ESTIMATE_LINE_ID => p_estimate_line_rec.repair_estimate_line_id,
2558: p_OBJECT_VERSION_NUMBER => p_estimate_line_rec.object_version_number);
2559:
2557: Csd_Repair_Estimate_Lines_Pkg.Lock_Row(p_REPAIR_ESTIMATE_LINE_ID => p_estimate_line_rec.repair_estimate_line_id,
2558: p_OBJECT_VERSION_NUMBER => p_estimate_line_rec.object_version_number);
2559:
2560: -- Standard check of p_commit.
2561: IF Fnd_Api.To_Boolean(p_commit)
2562: THEN
2563: COMMIT WORK;
2564: END IF;
2565:
2566: -- Standard call to get message count and IF count is get message info.
2567: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2568: p_data => x_msg_data);
2569: EXCEPTION
2570: WHEN Fnd_Api.G_EXC_ERROR THEN
2571: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2572: ROLLBACK TO lock_repair_estimate_lines;
2573: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2574: p_data => x_msg_data);
2567: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2568: p_data => x_msg_data);
2569: EXCEPTION
2570: WHEN Fnd_Api.G_EXC_ERROR THEN
2571: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2572: ROLLBACK TO lock_repair_estimate_lines;
2573: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2574: p_data => x_msg_data);
2575: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2571: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2572: ROLLBACK TO lock_repair_estimate_lines;
2573: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2574: p_data => x_msg_data);
2575: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2576: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2577: ROLLBACK TO lock_repair_estimate_lines;
2578: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2579: p_data => x_msg_data);
2572: ROLLBACK TO lock_repair_estimate_lines;
2573: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2574: p_data => x_msg_data);
2575: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2576: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2577: ROLLBACK TO lock_repair_estimate_lines;
2578: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2579: p_data => x_msg_data);
2580: WHEN OTHERS THEN
2577: ROLLBACK TO lock_repair_estimate_lines;
2578: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2579: p_data => x_msg_data);
2580: WHEN OTHERS THEN
2581: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2582: ROLLBACK TO lock_repair_estimate_lines;
2583: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
2584: THEN
2585: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2588: p_data => x_msg_data);
2589: END lock_repair_estimate_lines;
2590:
2591: PROCEDURE REPAIR_ESTIMATE_PRINT(p_api_version IN NUMBER,
2592: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2593: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2594: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2595: p_repair_line_id IN NUMBER,
2596: x_request_id OUT NOCOPY NUMBER,
2589: END lock_repair_estimate_lines;
2590:
2591: PROCEDURE REPAIR_ESTIMATE_PRINT(p_api_version IN NUMBER,
2592: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2593: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2594: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2595: p_repair_line_id IN NUMBER,
2596: x_request_id OUT NOCOPY NUMBER,
2597: x_return_status OUT NOCOPY VARCHAR2,
2590:
2591: PROCEDURE REPAIR_ESTIMATE_PRINT(p_api_version IN NUMBER,
2592: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2593: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2594: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2595: p_repair_line_id IN NUMBER,
2596: x_request_id OUT NOCOPY NUMBER,
2597: x_return_status OUT NOCOPY VARCHAR2,
2598: x_msg_count OUT NOCOPY NUMBER,
2627: BEGIN
2628: -- Standard Start of API savepoint
2629: SAVEPOINT estimate_print;
2630: -- Standard call to check for call compatibility.
2631: IF NOT Fnd_Api.Compatible_API_Call(l_api_version,
2632: p_api_version,
2633: l_api_name,
2634: G_PKG_NAME)
2635: THEN
2632: p_api_version,
2633: l_api_name,
2634: G_PKG_NAME)
2635: THEN
2636: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2637: END IF;
2638: -- Initialize message list if p_init_msg_list is set to TRUE.
2639: IF Fnd_Api.to_Boolean(p_init_msg_list)
2640: THEN
2635: THEN
2636: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2637: END IF;
2638: -- Initialize message list if p_init_msg_list is set to TRUE.
2639: IF Fnd_Api.to_Boolean(p_init_msg_list)
2640: THEN
2641: Fnd_Msg_Pub.initialize;
2642: END IF;
2643: -- Initialize API return status to success
2640: THEN
2641: Fnd_Msg_Pub.initialize;
2642: END IF;
2643: -- Initialize API return status to success
2644: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2645: -- start of the concurrent submission
2646: l_printer_name := Fnd_Profile.value('CSD_PRINTER_NAME');
2647: IF (g_debug > 0)
2648: THEN
2707: Fnd_Message.SET_NAME('CSD', 'CSD_XDO_ESTRT_NO_TEMPLATE');
2708: Fnd_Message.SET_TOKEN('PROF_NAME', csd_repairs_util.get_user_profile_option_name('CSD_CUST_ESTRT_CON_NAME'));
2709: x_request_id := l_request_id;
2710: Fnd_Msg_Pub.ADD;
2711: RAISE Fnd_Api.G_EXC_ERROR;
2712: END IF;
2713: -- get current session language and territory
2714: OPEN get_lang_terr;
2715: FETCH get_lang_terr
2752: COMMIT;
2753: END IF;
2754: x_request_id := l_request_id;
2755: -- Standard check of p_commit.
2756: IF Fnd_Api.To_Boolean(p_commit)
2757: THEN
2758: COMMIT WORK;
2759: END IF;
2760: -- Standard call to get message count and IF count is get message info.
2760: -- Standard call to get message count and IF count is get message info.
2761: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2762: p_data => x_msg_data);
2763: EXCEPTION
2764: WHEN Fnd_Api.G_EXC_ERROR THEN
2765: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2766: ROLLBACK TO estimate_print;
2767: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2768: p_data => x_msg_data);
2761: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2762: p_data => x_msg_data);
2763: EXCEPTION
2764: WHEN Fnd_Api.G_EXC_ERROR THEN
2765: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2766: ROLLBACK TO estimate_print;
2767: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2768: p_data => x_msg_data);
2769: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2765: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2766: ROLLBACK TO estimate_print;
2767: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2768: p_data => x_msg_data);
2769: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2770: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2771: ROLLBACK TO estimate_print;
2772: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2773: p_data => x_msg_data);
2766: ROLLBACK TO estimate_print;
2767: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2768: p_data => x_msg_data);
2769: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2770: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2771: ROLLBACK TO estimate_print;
2772: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2773: p_data => x_msg_data);
2774: WHEN OTHERS THEN
2771: ROLLBACK TO estimate_print;
2772: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
2773: p_data => x_msg_data);
2774: WHEN OTHERS THEN
2775: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2776: ROLLBACK TO estimate_print;
2777: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
2778: THEN
2779: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2827: -- Standard Start of API savepoint
2828: SAVEPOINT submit_estimate_lines;
2829:
2830: -- Standard call to check for call compatibility.
2831: IF NOT Fnd_Api.Compatible_API_Call(l_api_version,
2832: p_api_version,
2833: l_api_name,
2834: G_PKG_NAME)
2835: THEN
2832: p_api_version,
2833: l_api_name,
2834: G_PKG_NAME)
2835: THEN
2836: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2837: END IF;
2838:
2839: -- Initialize message list if p_init_msg_list is set to TRUE.
2840: IF Fnd_Api.to_Boolean(p_init_msg_list)
2836: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2837: END IF;
2838:
2839: -- Initialize message list if p_init_msg_list is set to TRUE.
2840: IF Fnd_Api.to_Boolean(p_init_msg_list)
2841: THEN
2842: Fnd_Msg_Pub.initialize;
2843: END IF;
2844:
2842: Fnd_Msg_Pub.initialize;
2843: END IF;
2844:
2845: -- Initialize API return status to success
2846: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2847:
2848: BEGIN
2849: SELECT original_source_header_id, original_source_reference
2850: INTO l_org_src_header_id, l_org_src_ref
2854: WHEN NO_DATA_FOUND THEN
2855: Fnd_Message.SET_NAME('CSD', 'CSD_API_INV_REP_LINE_ID');
2856: Fnd_Message.SET_TOKEN('REPAIR_LINE_ID', p_repair_line_id);
2857: Fnd_Msg_Pub.ADD;
2858: RAISE Fnd_Api.G_EXC_ERROR;
2859: END;
2860:
2861: IF l_org_src_ref = 'RMA'
2862: THEN
2949: est.purchase_order_num;
2950: EXCEPTION
2951: WHEN NO_DATA_FOUND THEN
2952: l_est_line_rec.add_to_order_flag := 'F';
2953: l_est_line_rec.order_header_id := Fnd_Api.G_MISS_NUM;
2954: WHEN TOO_MANY_ROWS THEN
2955: NULL;
2956: END;
2957: END IF;
2956: END;
2957: END IF;
2958: ELSE
2959: l_est_line_rec.add_to_order_flag := 'F';
2960: l_est_line_rec.order_header_id := Fnd_Api.G_MISS_NUM;
2961: END IF;
2962: IF (g_debug > 0)
2963: THEN
2964: Csd_Gen_Utility_Pvt.ADD('Updating estimate lines with add to order flag for estimate_detail_id = ' ||
2965: est.estimate_detail_id);
2966: END IF;
2967:
2968: Csd_Process_Pvt.PROCESS_CHARGE_LINES(p_api_version => 1.0,
2969: p_commit => Fnd_Api.g_false,
2970: p_init_msg_list => Fnd_Api.g_true,
2971: p_validation_level => Fnd_Api.g_valid_level_full,
2972: p_action => 'UPDATE',
2973: p_Charges_Rec => l_est_line_rec,
2966: END IF;
2967:
2968: Csd_Process_Pvt.PROCESS_CHARGE_LINES(p_api_version => 1.0,
2969: p_commit => Fnd_Api.g_false,
2970: p_init_msg_list => Fnd_Api.g_true,
2971: p_validation_level => Fnd_Api.g_valid_level_full,
2972: p_action => 'UPDATE',
2973: p_Charges_Rec => l_est_line_rec,
2974: x_estimate_detail_id => l_estimate_detail_id,
2967:
2968: Csd_Process_Pvt.PROCESS_CHARGE_LINES(p_api_version => 1.0,
2969: p_commit => Fnd_Api.g_false,
2970: p_init_msg_list => Fnd_Api.g_true,
2971: p_validation_level => Fnd_Api.g_valid_level_full,
2972: p_action => 'UPDATE',
2973: p_Charges_Rec => l_est_line_rec,
2974: x_estimate_detail_id => l_estimate_detail_id,
2975: x_return_status => x_return_status,
2975: x_return_status => x_return_status,
2976: x_msg_count => x_msg_count,
2977: x_msg_data => x_msg_data);
2978:
2979: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
2980: THEN
2981: RAISE Fnd_Api.G_EXC_ERROR;
2982: END IF;
2983:
2977: x_msg_data => x_msg_data);
2978:
2979: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
2980: THEN
2981: RAISE Fnd_Api.G_EXC_ERROR;
2982: END IF;
2983:
2984: END LOOP;
2985:
2993: WHEN NO_DATA_FOUND THEN
2994: Fnd_Message.SET_NAME('CSD', 'CSD_API_INV_REP_LINE_ID');
2995: Fnd_Message.SET_TOKEN('REPAIR_LINE_ID', p_repair_line_id);
2996: Fnd_Msg_Pub.ADD;
2997: RAISE Fnd_Api.G_EXC_ERROR;
2998: END;
2999:
3000: IF (g_debug > 0)
3001: THEN
3007:
3008: Cs_Charge_Create_Order_Pub.Submit_Order(p_api_version => 1.0,
3009: p_init_msg_list => 'T',
3010: p_commit => 'F',
3011: p_validation_level => Fnd_Api.g_valid_level_full,
3012: p_incident_id => l_incident_id,
3013: p_party_id => l_party_id,
3014: p_account_id => l_account_id,
3015: p_book_order_flag => 'N',
3016: x_return_status => x_return_status,
3017: x_msg_count => x_msg_count,
3018: x_msg_data => x_msg_data);
3019:
3020: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
3021: THEN
3022: RAISE Fnd_Api.G_EXC_ERROR;
3023: END IF;
3024:
3018: x_msg_data => x_msg_data);
3019:
3020: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
3021: THEN
3022: RAISE Fnd_Api.G_EXC_ERROR;
3023: END IF;
3024:
3025: BEGIN
3026: SELECT oe.order_number
3041: END IF;
3042: END;
3043:
3044: -- Standard check of p_commit.
3045: IF Fnd_Api.To_Boolean(p_commit)
3046: THEN
3047: COMMIT WORK;
3048: END IF;
3049:
3050: -- Standard call to get message count and IF count is get message info.
3051: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
3052: p_data => x_msg_data);
3053: EXCEPTION
3054: WHEN Fnd_Api.G_EXC_ERROR THEN
3055: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3056: ROLLBACK TO submit_estimate_lines;
3057: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
3058: p_data => x_msg_data);
3051: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
3052: p_data => x_msg_data);
3053: EXCEPTION
3054: WHEN Fnd_Api.G_EXC_ERROR THEN
3055: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3056: ROLLBACK TO submit_estimate_lines;
3057: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
3058: p_data => x_msg_data);
3059: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3055: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3056: ROLLBACK TO submit_estimate_lines;
3057: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
3058: p_data => x_msg_data);
3059: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3060: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3061: ROLLBACK TO submit_estimate_lines;
3062: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
3063: p_data => x_msg_data);
3056: ROLLBACK TO submit_estimate_lines;
3057: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
3058: p_data => x_msg_data);
3059: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3060: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3061: ROLLBACK TO submit_estimate_lines;
3062: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
3063: p_data => x_msg_data);
3064: WHEN OTHERS THEN
3061: ROLLBACK TO submit_estimate_lines;
3062: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
3063: p_data => x_msg_data);
3064: WHEN OTHERS THEN
3065: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3066: ROLLBACK TO submit_estimate_lines;
3067: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
3068: THEN
3069: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3104: lc_mod_name || '.BEGIN',
3105: 'Entered get_total_estimated_charge');
3106: END IF;
3107:
3108: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3109:
3110: SELECT SUM(NVL(charge, 0))
3111: INTO x_estimated_charge
3112: FROM csd_repair_estimate_lines_v
3126: 'Leaving get_total_estimated_charge');
3127: END IF;
3128: EXCEPTION
3129: WHEN NO_DATA_FOUND THEN
3130: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3131: x_estimated_charge := NULL;
3132: WHEN OTHERS THEN
3133: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3134: x_estimated_charge := NULL;
3129: WHEN NO_DATA_FOUND THEN
3130: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3131: x_estimated_charge := NULL;
3132: WHEN OTHERS THEN
3133: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3134: x_estimated_charge := NULL;
3135: END; -- PROCEDURE get_total_estimated_charge
3136:
3137: /*--------------------------------------------------*/
3141: /* button on the `Estimates' tab. */
3142: /* Creates all the estimate lines */
3143: /* for TASK or BOM. */
3144: /* */
3145: /* x_warning_flag : FND_API.G_TRUE if any non-fatal */
3146: /* errors occured. FND_API.G_FALSE */
3147: /* if everything was successful. */
3148: /* Note that this value could be */
3149: /* G_TRUE even if x_return_status */
3142: /* Creates all the estimate lines */
3143: /* for TASK or BOM. */
3144: /* */
3145: /* x_warning_flag : FND_API.G_TRUE if any non-fatal */
3146: /* errors occured. FND_API.G_FALSE */
3147: /* if everything was successful. */
3148: /* Note that this value could be */
3149: /* G_TRUE even if x_return_status */
3150: /* is G_RET_STS_SUCCESS */
3193: l_ro_sc_rec_type Csd_Ro_Service_Codes_Pvt.RO_SERVICE_CODE_REC_TYPE;
3194: l_obj_ver_number NUMBER;
3195: l_prev_ro_sc_id NUMBER;
3196: l_item_name VARCHAR2(40);
3197: l_warning_flag VARCHAR2(1) := Fnd_Api.G_FALSE;
3198:
3199: -- EXCEPTIONS --
3200: CSD_EST_SC_NO_APPL EXCEPTION; -- no service codes to apply
3201: CSD_EST_DEF_PL EXCEPTION; -- no default price list
3211: -- Standard Start of API savepoint
3212: SAVEPOINT Autocreate_Estimate_Lines;
3213:
3214: -- Standard call to check for call compatibility.
3215: IF NOT Fnd_Api.Compatible_API_Call(lc_api_version,
3216: p_api_version,
3217: lc_api_name,
3218: G_PKG_NAME)
3219: THEN
3216: p_api_version,
3217: lc_api_name,
3218: G_PKG_NAME)
3219: THEN
3220: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3221: END IF;
3222:
3223: -- Initialize message list if p_init_msg_list is set to TRUE.
3224: IF Fnd_Api.to_Boolean(p_init_msg_list)
3220: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3221: END IF;
3222:
3223: -- Initialize message list if p_init_msg_list is set to TRUE.
3224: IF Fnd_Api.to_Boolean(p_init_msg_list)
3225: THEN
3226: Fnd_Msg_Pub.initialize;
3227: END IF;
3228:
3278: 'p_organization_id: ' || p_organization_id);
3279: END IF;
3280:
3281: -- Initialize API return status to success
3282: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3283:
3284: --
3285: -- Begin API Body
3286: --
3285: -- Begin API Body
3286: --
3287:
3288: -- initialize the warning flag
3289: x_warning_flag := Fnd_Api.G_FALSE;
3290:
3291: -- Check the required parameters
3292: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
3293: THEN
3422: 'Calling CSD_GEN_ERRMSGS_PVT.purge_entity_msgs');
3423: END IF;
3424:
3425: -- initialize local return status before calling procedures
3426: l_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3427:
3428: -- purge any existing messages before processing
3429: -- Module ACT (source entity ESTIMATE).
3430: Csd_Gen_Errmsgs_Pvt.purge_entity_msgs(p_api_version => 1.0,
3427:
3428: -- purge any existing messages before processing
3429: -- Module ACT (source entity ESTIMATE).
3430: Csd_Gen_Errmsgs_Pvt.purge_entity_msgs(p_api_version => 1.0,
3431: p_commit => Fnd_Api.G_TRUE,
3432: p_init_msg_list => Fnd_Api.G_FALSE,
3433: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3434: p_module_code => 'EST',
3435: p_source_entity_id1 => p_repair_line_id,
3428: -- purge any existing messages before processing
3429: -- Module ACT (source entity ESTIMATE).
3430: Csd_Gen_Errmsgs_Pvt.purge_entity_msgs(p_api_version => 1.0,
3431: p_commit => Fnd_Api.G_TRUE,
3432: p_init_msg_list => Fnd_Api.G_FALSE,
3433: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3434: p_module_code => 'EST',
3435: p_source_entity_id1 => p_repair_line_id,
3436: p_source_entity_type_code => NULL,
3429: -- Module ACT (source entity ESTIMATE).
3430: Csd_Gen_Errmsgs_Pvt.purge_entity_msgs(p_api_version => 1.0,
3431: p_commit => Fnd_Api.G_TRUE,
3432: p_init_msg_list => Fnd_Api.G_FALSE,
3433: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3434: p_module_code => 'EST',
3435: p_source_entity_id1 => p_repair_line_id,
3436: p_source_entity_type_code => NULL,
3437: p_source_entity_id2 => NULL,
3443: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
3444: lc_mod_name,
3445: 'Returned from CSD_GEN_ERRMSGS_PVT.purge_entity_msgs');
3446: END IF;
3447: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS)
3448: THEN
3449: RAISE Fnd_Api.G_EXC_ERROR;
3450: END IF;
3451:
3445: 'Returned from CSD_GEN_ERRMSGS_PVT.purge_entity_msgs');
3446: END IF;
3447: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS)
3448: THEN
3449: RAISE Fnd_Api.G_EXC_ERROR;
3450: END IF;
3451:
3452: -- Now, get info for estimate lines into l_est_lines_tbl
3453: IF p_repair_mode = 'TASK'
3459: 'Calling CSD_REPAIR_ESTIMATE_PVT.Get_Estimates_From_Task');
3460: END IF;
3461: Get_Estimates_From_Task(p_api_version => 1.0,
3462: p_commit => p_commit,
3463: p_init_msg_list => Fnd_Api.G_FALSE,
3464: p_validation_level => p_validation_level,
3465: x_return_status => l_return_status,
3466: x_msg_count => l_msg_count,
3467: x_msg_data => l_msg_data,
3493: 'Calling CSD_REPAIR_ESTIMATE_PVT.Get_Estimates_From_BOM');
3494: END IF;
3495: Get_Estimates_From_BOM(p_api_version => 1.0,
3496: p_commit => p_commit,
3497: p_init_msg_list => Fnd_Api.G_FALSE,
3498: p_validation_level => p_validation_level,
3499: x_return_status => l_return_status,
3500: x_msg_count => l_msg_count,
3501: x_msg_data => l_msg_data,
3528: RAISE CSD_EST_INAPPL_MODE;
3529: END IF;
3530:
3531: -- Loop through the estimates table of records and insert into Estimate lines and Charge lines.
3532: IF NOT (l_return_status = Fnd_Api.G_RET_STS_SUCCESS)
3533: THEN
3534: RAISE Fnd_Api.G_EXC_ERROR;
3535: ELSE
3536: -- if any warnings were raised already, then save them
3530:
3531: -- Loop through the estimates table of records and insert into Estimate lines and Charge lines.
3532: IF NOT (l_return_status = Fnd_Api.G_RET_STS_SUCCESS)
3533: THEN
3534: RAISE Fnd_Api.G_EXC_ERROR;
3535: ELSE
3536: -- if any warnings were raised already, then save them
3537: -- before attempting to create estimate lines
3538: IF (l_warning_flag = Fnd_Api.G_TRUE)
3534: RAISE Fnd_Api.G_EXC_ERROR;
3535: ELSE
3536: -- if any warnings were raised already, then save them
3537: -- before attempting to create estimate lines
3538: IF (l_warning_flag = Fnd_Api.G_TRUE)
3539: THEN
3540: x_warning_flag := l_warning_flag;
3541: IF (Fnd_Log.Level_Procedure >=
3542: Fnd_Log.G_Current_Runtime_Level)
3549: 'Number of messages in stack: ' ||
3550: Fnd_Msg_Pub.count_msg);
3551: END IF;
3552: Csd_Gen_Errmsgs_Pvt.Save_Fnd_Msgs(p_api_version => 1.0,
3553: p_commit => Fnd_Api.G_FALSE,
3554: p_init_msg_list => Fnd_Api.G_FALSE,
3555: p_validation_level => 0,
3556: p_module_code => 'EST',
3557: p_source_entity_id1 => p_repair_line_id,
3550: Fnd_Msg_Pub.count_msg);
3551: END IF;
3552: Csd_Gen_Errmsgs_Pvt.Save_Fnd_Msgs(p_api_version => 1.0,
3553: p_commit => Fnd_Api.G_FALSE,
3554: p_init_msg_list => Fnd_Api.G_FALSE,
3555: p_validation_level => 0,
3556: p_module_code => 'EST',
3557: p_source_entity_id1 => p_repair_line_id,
3558: p_source_entity_type_code => 'ESTIMATE',
3559: p_source_entity_id2 => p_estimate_id,
3560: x_return_status => l_return_status,
3561: x_msg_count => l_msg_count,
3562: x_msg_data => l_msg_data);
3563: IF NOT (l_return_status = Fnd_Api.G_RET_STS_SUCCESS)
3564: THEN
3565: RAISE Fnd_Api.G_EXC_ERROR;
3566: END IF;
3567: IF (Fnd_Log.Level_Procedure >=
3561: x_msg_count => l_msg_count,
3562: x_msg_data => l_msg_data);
3563: IF NOT (l_return_status = Fnd_Api.G_RET_STS_SUCCESS)
3564: THEN
3565: RAISE Fnd_Api.G_EXC_ERROR;
3566: END IF;
3567: IF (Fnd_Log.Level_Procedure >=
3568: Fnd_Log.G_Current_Runtime_Level)
3569: THEN
3593: lc_mod_name,
3594: 'Calling create_repair_estimate_lines for line ' || i);
3595: END IF;
3596: create_repair_estimate_lines(p_api_version => 1.0,
3597: p_commit => Fnd_Api.G_FALSE,
3598: p_init_msg_list => Fnd_Api.G_FALSE,
3599: p_validation_level => 0,
3600: x_estimate_line_rec => l_est_lines_tbl(i),
3601: x_estimate_line_id => l_estimate_line_id, -- throw away
3594: 'Calling create_repair_estimate_lines for line ' || i);
3595: END IF;
3596: create_repair_estimate_lines(p_api_version => 1.0,
3597: p_commit => Fnd_Api.G_FALSE,
3598: p_init_msg_list => Fnd_Api.G_FALSE,
3599: p_validation_level => 0,
3600: x_estimate_line_rec => l_est_lines_tbl(i),
3601: x_estimate_line_id => l_estimate_line_id, -- throw away
3602: x_return_status => l_return_status,
3602: x_return_status => l_return_status,
3603: x_msg_count => l_msg_count,
3604: x_msg_data => l_msg_data);
3605: EXCEPTION
3606: WHEN Fnd_Api.G_EXC_ERROR THEN
3607: l_return_status := Fnd_Api.G_RET_STS_ERROR;
3608: WHEN OTHERS THEN
3609: l_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3610: END;
3603: x_msg_count => l_msg_count,
3604: x_msg_data => l_msg_data);
3605: EXCEPTION
3606: WHEN Fnd_Api.G_EXC_ERROR THEN
3607: l_return_status := Fnd_Api.G_RET_STS_ERROR;
3608: WHEN OTHERS THEN
3609: l_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3610: END;
3611:
3605: EXCEPTION
3606: WHEN Fnd_Api.G_EXC_ERROR THEN
3607: l_return_status := Fnd_Api.G_RET_STS_ERROR;
3608: WHEN OTHERS THEN
3609: l_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3610: END;
3611:
3612: IF (Fnd_Log.Level_Statement >=
3613: Fnd_Log.G_Current_Runtime_Level)
3623:
3624: -- If SC have been applied to create estimate lines successfully,
3625: -- make sure to update CSD_RO_SERVICE_CODES table with the value `Y' for the
3626: -- column that indicates `applied to estimates'.
3627: IF (l_return_status = Fnd_Api.G_RET_STS_SUCCESS)
3628: THEN
3629: -- if previous ro_sc_id is same as current, no need to update
3630: -- ro_service_code id, since it should have been done already
3631: IF (NVL(l_prev_ro_sc_id, -999) <>
3663: lc_mod_name,
3664: 'Calling CSD_RO_SERVICE_CODES_PVT.Update_RO_Service_Code');
3665: END IF;
3666: Csd_Ro_Service_Codes_Pvt.Update_RO_Service_Code(p_api_version => 1.0,
3667: p_commit => Fnd_Api.G_FALSE,
3668: p_init_msg_list => Fnd_Api.G_FALSE,
3669: p_validation_level => 0,
3670: p_ro_service_code_rec => l_ro_sc_rec_type,
3671: x_obj_ver_number => l_obj_ver_number,
3664: 'Calling CSD_RO_SERVICE_CODES_PVT.Update_RO_Service_Code');
3665: END IF;
3666: Csd_Ro_Service_Codes_Pvt.Update_RO_Service_Code(p_api_version => 1.0,
3667: p_commit => Fnd_Api.G_FALSE,
3668: p_init_msg_list => Fnd_Api.G_FALSE,
3669: p_validation_level => 0,
3670: p_ro_service_code_rec => l_ro_sc_rec_type,
3671: x_obj_ver_number => l_obj_ver_number,
3672: x_return_status => l_return_status,
3672: x_return_status => l_return_status,
3673: x_msg_count => l_msg_count,
3674: x_msg_data => l_msg_data);
3675:
3676: IF (l_return_status = Fnd_Api.G_RET_STS_SUCCESS)
3677: THEN
3678: l_prev_ro_sc_id := l_est_lines_tbl(i)
3679: .RO_SERVICE_CODE_ID;
3680: ELSE
3678: l_prev_ro_sc_id := l_est_lines_tbl(i)
3679: .RO_SERVICE_CODE_ID;
3680: ELSE
3681: -- not able to update csd_ro_service_codes table to set as applied to est
3682: x_warning_flag := Fnd_Api.G_TRUE;
3683: IF (Fnd_Log.Level_Statement >=
3684: Fnd_Log.G_Current_Runtime_Level)
3685: THEN
3686: Fnd_Log.STRING(Fnd_Log.Level_Statement,
3701: 'Number of messages in stack: ' ||
3702: Fnd_Msg_Pub.count_msg);
3703: END IF;
3704: Csd_Gen_Errmsgs_Pvt.Save_Fnd_Msgs(p_api_version => 1.0,
3705: p_commit => Fnd_Api.G_FALSE,
3706: p_init_msg_list => Fnd_Api.G_FALSE,
3707: p_validation_level => 0,
3708: p_module_code => 'EST',
3709: p_source_entity_id1 => p_repair_line_id,
3702: Fnd_Msg_Pub.count_msg);
3703: END IF;
3704: Csd_Gen_Errmsgs_Pvt.Save_Fnd_Msgs(p_api_version => 1.0,
3705: p_commit => Fnd_Api.G_FALSE,
3706: p_init_msg_list => Fnd_Api.G_FALSE,
3707: p_validation_level => 0,
3708: p_module_code => 'EST',
3709: p_source_entity_id1 => p_repair_line_id,
3710: p_source_entity_type_code => l_est_lines_tbl(i)
3714: x_return_status => l_return_status,
3715: x_msg_count => l_msg_count,
3716: x_msg_data => l_msg_data);
3717: IF NOT
3718: (l_return_status = Fnd_Api.G_RET_STS_SUCCESS)
3719: THEN
3720: RAISE Fnd_Api.G_EXC_ERROR;
3721: END IF;
3722: IF (Fnd_Log.Level_Procedure >=
3716: x_msg_data => l_msg_data);
3717: IF NOT
3718: (l_return_status = Fnd_Api.G_RET_STS_SUCCESS)
3719: THEN
3720: RAISE Fnd_Api.G_EXC_ERROR;
3721: END IF;
3722: IF (Fnd_Log.Level_Procedure >=
3723: Fnd_Log.G_Current_Runtime_Level)
3724: THEN
3742: lc_mod_name,
3743: 'Unable to create repair estimate line for index ' || i);
3744: END IF;
3745:
3746: x_warning_flag := Fnd_Api.G_TRUE;
3747: BEGIN
3748: SELECT concatenated_segments
3749: INTO l_item_name
3750: FROM mtl_system_items_kfv
3782: 'Number of messages in stack: ' ||
3783: Fnd_Msg_Pub.count_msg);
3784: END IF;
3785: Csd_Gen_Errmsgs_Pvt.Save_Fnd_Msgs(p_api_version => 1.0,
3786: p_commit => Fnd_Api.G_FALSE,
3787: p_init_msg_list => Fnd_Api.G_FALSE,
3788: p_validation_level => 0,
3789: p_module_code => 'EST',
3790: p_source_entity_id1 => p_repair_line_id,
3783: Fnd_Msg_Pub.count_msg);
3784: END IF;
3785: Csd_Gen_Errmsgs_Pvt.Save_Fnd_Msgs(p_api_version => 1.0,
3786: p_commit => Fnd_Api.G_FALSE,
3787: p_init_msg_list => Fnd_Api.G_FALSE,
3788: p_validation_level => 0,
3789: p_module_code => 'EST',
3790: p_source_entity_id1 => p_repair_line_id,
3791: p_source_entity_type_code => l_est_lines_tbl(i)
3794: .est_line_source_id1,
3795: x_return_status => l_return_status,
3796: x_msg_count => l_msg_count,
3797: x_msg_data => l_msg_data);
3798: IF NOT (l_return_status = Fnd_Api.G_RET_STS_SUCCESS)
3799: THEN
3800: RAISE Fnd_Api.G_EXC_ERROR;
3801: END IF;
3802: IF (Fnd_Log.Level_Procedure >=
3796: x_msg_count => l_msg_count,
3797: x_msg_data => l_msg_data);
3798: IF NOT (l_return_status = Fnd_Api.G_RET_STS_SUCCESS)
3799: THEN
3800: RAISE Fnd_Api.G_EXC_ERROR;
3801: END IF;
3802: IF (Fnd_Log.Level_Procedure >=
3803: Fnd_Log.G_Current_Runtime_Level)
3804: THEN
3818: -- End API Body
3819: --
3820:
3821: -- Standard check of p_commit.
3822: IF Fnd_Api.To_Boolean(p_commit)
3823: THEN
3824: COMMIT WORK;
3825: END IF;
3826:
3845: EXCEPTION
3846: WHEN CSD_EST_SC_NO_APPL THEN
3847: ROLLBACK TO Autocreate_Estimate_Lines;
3848: -- No service codes found to apply
3849: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3850: x_warning_flag := Fnd_Api.G_FALSE;
3851:
3852: -- save message in fnd stack
3853: IF (Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level)
3846: WHEN CSD_EST_SC_NO_APPL THEN
3847: ROLLBACK TO Autocreate_Estimate_Lines;
3848: -- No service codes found to apply
3849: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3850: x_warning_flag := Fnd_Api.G_FALSE;
3851:
3852: -- save message in fnd stack
3853: IF (Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level)
3854: THEN
3870: END IF;
3871: WHEN CSD_EST_DEF_PL THEN
3872: -- Unable to determine default pricelist
3873: ROLLBACK TO Autocreate_Estimate_Lines;
3874: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3875: x_warning_flag := Fnd_Api.G_FALSE;
3876:
3877: -- save message in fnd stack
3878: IF (Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level)
3871: WHEN CSD_EST_DEF_PL THEN
3872: -- Unable to determine default pricelist
3873: ROLLBACK TO Autocreate_Estimate_Lines;
3874: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3875: x_warning_flag := Fnd_Api.G_FALSE;
3876:
3877: -- save message in fnd stack
3878: IF (Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level)
3879: THEN
3896:
3897: WHEN CSD_EST_INAPPL_MODE THEN
3898: -- cannot apply service code for repair mode
3899: ROLLBACK TO Autocreate_Estimate_Lines;
3900: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3901: x_warning_flag := Fnd_Api.G_FALSE;
3902:
3903: -- save message in fnd stack
3904: IF (Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level)
3897: WHEN CSD_EST_INAPPL_MODE THEN
3898: -- cannot apply service code for repair mode
3899: ROLLBACK TO Autocreate_Estimate_Lines;
3900: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3901: x_warning_flag := Fnd_Api.G_FALSE;
3902:
3903: -- save message in fnd stack
3904: IF (Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level)
3905: THEN
3931: Fnd_Log.STRING(Fnd_Log.Level_Exception,
3932: lc_mod_name,
3933: 'Cannot apply service code for repair mode');
3934: END IF;
3935: WHEN Fnd_Api.G_EXC_ERROR THEN
3936: ROLLBACK TO Autocreate_Estimate_Lines;
3937: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3938:
3939: /*
3933: 'Cannot apply service code for repair mode');
3934: END IF;
3935: WHEN Fnd_Api.G_EXC_ERROR THEN
3936: ROLLBACK TO Autocreate_Estimate_Lines;
3937: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3938:
3939: /*
3940: -- TO DO: Add seeded err message
3941: -- save message in fnd stack
3956: Fnd_Log.STRING(Fnd_Log.Level_Exception,
3957: lc_mod_name,
3958: 'EXC_ERROR[' || x_msg_data || ']');
3959: END IF;
3960: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3961: ROLLBACK TO Autocreate_Estimate_Lines;
3962: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3963:
3964: -- save message in fnd stack
3958: 'EXC_ERROR[' || x_msg_data || ']');
3959: END IF;
3960: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3961: ROLLBACK TO Autocreate_Estimate_Lines;
3962: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3963:
3964: -- save message in fnd stack
3965: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
3966: THEN
3984: 'EXC_UNEXPECTED_ERROR[' || x_msg_data || ']');
3985: END IF;
3986: WHEN OTHERS THEN
3987: ROLLBACK TO Autocreate_Estimate_Lines;
3988: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3989:
3990: -- save message in fnd stack
3991: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
3992: THEN
4018: /* description : Fetches ML lines for the tasks */
4019: /* associated via Service Codes and */
4020: /* (optionally) Solution. */
4021: /* */
4022: /* x_warning_flag : FND_API.G_TRUE if any non-fatal */
4023: /* errors occured. FND_API.G_FALSE */
4024: /* if everything was successful. */
4025: /* Note that this value could be */
4026: /* G_TRUE even if x_return_status */
4019: /* associated via Service Codes and */
4020: /* (optionally) Solution. */
4021: /* */
4022: /* x_warning_flag : FND_API.G_TRUE if any non-fatal */
4023: /* errors occured. FND_API.G_FALSE */
4024: /* if everything was successful. */
4025: /* Note that this value could be */
4026: /* G_TRUE even if x_return_status */
4027: /* is G_RET_STS_SUCCESS */
4611: -- Standard Start of API savepoint
4612: SAVEPOINT Get_Estimates_From_Task;
4613:
4614: -- Standard call to check for call compatibility.
4615: IF NOT Fnd_Api.Compatible_API_Call(lc_api_version,
4616: p_api_version,
4617: lc_api_name,
4618: G_PKG_NAME)
4619: THEN
4616: p_api_version,
4617: lc_api_name,
4618: G_PKG_NAME)
4619: THEN
4620: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4621: END IF;
4622:
4623: -- Initialize message list if p_init_msg_list is set to TRUE.
4624: IF Fnd_Api.to_Boolean(p_init_msg_list)
4620: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4621: END IF;
4622:
4623: -- Initialize message list if p_init_msg_list is set to TRUE.
4624: IF Fnd_Api.to_Boolean(p_init_msg_list)
4625: THEN
4626: Fnd_Msg_Pub.initialize;
4627: END IF;
4628:
4626: Fnd_Msg_Pub.initialize;
4627: END IF;
4628:
4629: -- Initialize API return status to success
4630: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4631:
4632: -- initialize the warning flag
4633: x_warning_flag := Fnd_Api.G_FALSE;
4634:
4629: -- Initialize API return status to success
4630: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4631:
4632: -- initialize the warning flag
4633: x_warning_flag := Fnd_Api.G_FALSE;
4634:
4635: --
4636: -- Begin API Body
4637: --
4772: -- bugfix 3543135, vkjain.
4773: l_No_Eligible_Lines := FALSE;
4774:
4775: Convert_To_Est_Lines(p_api_version => 1.0,
4776: p_commit => Fnd_Api.G_FALSE,
4777: p_init_msg_list => Fnd_Api.G_FALSE,
4778: p_validation_level => p_validation_level,
4779: x_return_status => x_return_status,
4780: x_msg_count => x_msg_count,
4773: l_No_Eligible_Lines := FALSE;
4774:
4775: Convert_To_Est_Lines(p_api_version => 1.0,
4776: p_commit => Fnd_Api.G_FALSE,
4777: p_init_msg_list => Fnd_Api.G_FALSE,
4778: p_validation_level => p_validation_level,
4779: x_return_status => x_return_status,
4780: x_msg_count => x_msg_count,
4781: x_msg_data => x_msg_data,
4790: p_contract_line_id => p_contract_line_id,
4791: p_MLE_lines_tbl => l_materials_from_sc_tbl,
4792: x_est_lines_tbl => x_est_lines_tbl,
4793: x_warning_flag => l_warning_flag);
4794: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
4795: THEN
4796: x_warning_flag := Fnd_Api.G_TRUE;
4797: END IF;
4798: IF l_warning_flag <> Fnd_Api.G_FALSE
4792: x_est_lines_tbl => x_est_lines_tbl,
4793: x_warning_flag => l_warning_flag);
4794: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
4795: THEN
4796: x_warning_flag := Fnd_Api.G_TRUE;
4797: END IF;
4798: IF l_warning_flag <> Fnd_Api.G_FALSE
4799: THEN
4800: x_warning_flag := l_warning_flag;
4794: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
4795: THEN
4796: x_warning_flag := Fnd_Api.G_TRUE;
4797: END IF;
4798: IF l_warning_flag <> Fnd_Api.G_FALSE
4799: THEN
4800: x_warning_flag := l_warning_flag;
4801: END IF;
4802: END IF;
4849: -- bugfix 3543135, vkjain.
4850: l_No_Eligible_Lines := FALSE;
4851:
4852: Convert_To_Est_Lines(p_api_version => 1.0,
4853: p_commit => Fnd_Api.G_FALSE,
4854: p_init_msg_list => Fnd_Api.G_FALSE,
4855: p_validation_level => p_validation_level,
4856: x_return_status => x_return_status,
4857: x_msg_count => x_msg_count,
4850: l_No_Eligible_Lines := FALSE;
4851:
4852: Convert_To_Est_Lines(p_api_version => 1.0,
4853: p_commit => Fnd_Api.G_FALSE,
4854: p_init_msg_list => Fnd_Api.G_FALSE,
4855: p_validation_level => p_validation_level,
4856: x_return_status => x_return_status,
4857: x_msg_count => x_msg_count,
4858: x_msg_data => x_msg_data,
4867: p_contract_line_id => p_contract_line_id,
4868: p_MLE_lines_tbl => l_labor_from_sc_tbl,
4869: x_est_lines_tbl => x_est_lines_tbl,
4870: x_warning_flag => l_warning_flag);
4871: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
4872: THEN
4873: x_warning_flag := Fnd_Api.G_TRUE;
4874: END IF;
4875: IF l_warning_flag <> Fnd_Api.G_FALSE
4869: x_est_lines_tbl => x_est_lines_tbl,
4870: x_warning_flag => l_warning_flag);
4871: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
4872: THEN
4873: x_warning_flag := Fnd_Api.G_TRUE;
4874: END IF;
4875: IF l_warning_flag <> Fnd_Api.G_FALSE
4876: THEN
4877: x_warning_flag := l_warning_flag;
4871: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
4872: THEN
4873: x_warning_flag := Fnd_Api.G_TRUE;
4874: END IF;
4875: IF l_warning_flag <> Fnd_Api.G_FALSE
4876: THEN
4877: x_warning_flag := l_warning_flag;
4878: END IF;
4879: END IF;
4902: 'Getting all solution tasks with no product template');
4903: END IF;
4904: FOR r1 IN c_sol_tasks_no_prod(p_repair_line_id)
4905: LOOP
4906: x_warning_flag := Fnd_Api.G_TRUE;
4907: IF (Fnd_Log.Level_Statement >=
4908: Fnd_Log.G_Current_Runtime_Level)
4909: THEN
4910: Fnd_Log.STRING(Fnd_Log.Level_Statement,
4930: 'Number of messages in stack: ' ||
4931: Fnd_Msg_Pub.count_msg);
4932: END IF;
4933: Csd_Gen_Errmsgs_Pvt.Save_Fnd_Msgs(p_api_version => 1.0,
4934: p_commit => Fnd_Api.G_FALSE,
4935: p_init_msg_list => Fnd_Api.G_FALSE,
4936: p_validation_level => 0,
4937: p_module_code => 'EST',
4938: p_source_entity_id1 => p_repair_line_id,
4931: Fnd_Msg_Pub.count_msg);
4932: END IF;
4933: Csd_Gen_Errmsgs_Pvt.Save_Fnd_Msgs(p_api_version => 1.0,
4934: p_commit => Fnd_Api.G_FALSE,
4935: p_init_msg_list => Fnd_Api.G_FALSE,
4936: p_validation_level => 0,
4937: p_module_code => 'EST',
4938: p_source_entity_id1 => p_repair_line_id,
4939: p_source_entity_type_code => 'SOLUTION',
4940: p_source_entity_id2 => r1.solution_id,
4941: x_return_status => l_return_status,
4942: x_msg_count => l_msg_count,
4943: x_msg_data => l_msg_data);
4944: IF NOT (l_return_status = Fnd_Api.G_RET_STS_SUCCESS)
4945: THEN
4946: RAISE Fnd_Api.G_EXC_ERROR;
4947: END IF;
4948: IF (Fnd_Log.Level_Procedure >=
4942: x_msg_count => l_msg_count,
4943: x_msg_data => l_msg_data);
4944: IF NOT (l_return_status = Fnd_Api.G_RET_STS_SUCCESS)
4945: THEN
4946: RAISE Fnd_Api.G_EXC_ERROR;
4947: END IF;
4948: IF (Fnd_Log.Level_Procedure >=
4949: Fnd_Log.G_Current_Runtime_Level)
4950: THEN
5016: -- bugfix 3543135, vkjain.
5017: l_No_Eligible_Lines := FALSE;
5018:
5019: Convert_To_Est_Lines(p_api_version => 1.0,
5020: p_commit => Fnd_Api.G_FALSE,
5021: p_init_msg_list => Fnd_Api.G_FALSE,
5022: p_validation_level => p_validation_level,
5023: x_return_status => x_return_status,
5024: x_msg_count => x_msg_count,
5017: l_No_Eligible_Lines := FALSE;
5018:
5019: Convert_To_Est_Lines(p_api_version => 1.0,
5020: p_commit => Fnd_Api.G_FALSE,
5021: p_init_msg_list => Fnd_Api.G_FALSE,
5022: p_validation_level => p_validation_level,
5023: x_return_status => x_return_status,
5024: x_msg_count => x_msg_count,
5025: x_msg_data => x_msg_data,
5034: p_contract_line_id => p_contract_line_id,
5035: p_MLE_lines_tbl => l_materials_from_sol_tbl,
5036: x_est_lines_tbl => x_est_lines_tbl,
5037: x_warning_flag => l_warning_flag);
5038: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
5039: THEN
5040: x_warning_flag := Fnd_Api.G_TRUE;
5041: END IF;
5042: IF l_warning_flag <> Fnd_Api.G_FALSE
5036: x_est_lines_tbl => x_est_lines_tbl,
5037: x_warning_flag => l_warning_flag);
5038: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
5039: THEN
5040: x_warning_flag := Fnd_Api.G_TRUE;
5041: END IF;
5042: IF l_warning_flag <> Fnd_Api.G_FALSE
5043: THEN
5044: x_warning_flag := l_warning_flag;
5038: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
5039: THEN
5040: x_warning_flag := Fnd_Api.G_TRUE;
5041: END IF;
5042: IF l_warning_flag <> Fnd_Api.G_FALSE
5043: THEN
5044: x_warning_flag := l_warning_flag;
5045: END IF;
5046: END IF;
5099: -- bugfix 3543135, vkjain.
5100: l_No_Eligible_Lines := FALSE;
5101:
5102: Convert_To_Est_Lines(p_api_version => 1.0,
5103: p_commit => Fnd_Api.G_FALSE,
5104: p_init_msg_list => Fnd_Api.G_FALSE,
5105: p_validation_level => p_validation_level,
5106: x_return_status => x_return_status,
5107: x_msg_count => x_msg_count,
5100: l_No_Eligible_Lines := FALSE;
5101:
5102: Convert_To_Est_Lines(p_api_version => 1.0,
5103: p_commit => Fnd_Api.G_FALSE,
5104: p_init_msg_list => Fnd_Api.G_FALSE,
5105: p_validation_level => p_validation_level,
5106: x_return_status => x_return_status,
5107: x_msg_count => x_msg_count,
5108: x_msg_data => x_msg_data,
5117: p_contract_line_id => p_contract_line_id,
5118: p_MLE_lines_tbl => l_labor_from_sol_tbl,
5119: x_est_lines_tbl => x_est_lines_tbl,
5120: x_warning_flag => l_warning_flag);
5121: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
5122: THEN
5123: x_warning_flag := Fnd_Api.G_TRUE;
5124: END IF;
5125: IF l_warning_flag <> Fnd_Api.G_FALSE
5119: x_est_lines_tbl => x_est_lines_tbl,
5120: x_warning_flag => l_warning_flag);
5121: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
5122: THEN
5123: x_warning_flag := Fnd_Api.G_TRUE;
5124: END IF;
5125: IF l_warning_flag <> Fnd_Api.G_FALSE
5126: THEN
5127: x_warning_flag := l_warning_flag;
5121: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
5122: THEN
5123: x_warning_flag := Fnd_Api.G_TRUE;
5124: END IF;
5125: IF l_warning_flag <> Fnd_Api.G_FALSE
5126: THEN
5127: x_warning_flag := l_warning_flag;
5128: END IF;
5129: END IF;
5158: -- End API Body
5159: --
5160:
5161: -- Standard check of p_commit.
5162: IF Fnd_Api.To_Boolean(p_commit)
5163: THEN
5164: COMMIT WORK;
5165: END IF;
5166:
5168: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5169: p_data => x_msg_data);
5170: EXCEPTION
5171: WHEN CSD_EST_NO_AUTOGEN THEN
5172: x_warning_flag := Fnd_Api.G_TRUE;
5173:
5174: -- save message in fnd stack
5175: IF (Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level)
5176: THEN
5190: lc_mod_name,
5191: 'No estimate lines autogenerated');
5192: END IF;
5193:
5194: WHEN Fnd_Api.G_EXC_ERROR THEN
5195: ROLLBACK TO Get_Estimates_From_Task;
5196: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5197:
5198: /*
5192: END IF;
5193:
5194: WHEN Fnd_Api.G_EXC_ERROR THEN
5195: ROLLBACK TO Get_Estimates_From_Task;
5196: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5197:
5198: /*
5199: -- TO DO: Add seeded err message
5200: -- save message in fnd stack
5216: lc_mod_name,
5217: 'EXC_ERROR[' || x_msg_data || ']');
5218: END IF;
5219:
5220: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5221: ROLLBACK TO Get_Estimates_From_Task;
5222: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5223:
5224: -- save message in fnd stack
5218: END IF;
5219:
5220: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5221: ROLLBACK TO Get_Estimates_From_Task;
5222: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5223:
5224: -- save message in fnd stack
5225: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5226: THEN
5245: END IF;
5246:
5247: WHEN OTHERS THEN
5248: ROLLBACK TO Get_Estimates_From_Task;
5249: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5250:
5251: -- save message in fnd stack
5252: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5253: THEN
5278: /* description : Fetches ML lines for the */
5279: /* BOM/Route references associated */
5280: /* via Service Codes. */
5281: /* */
5282: /* x_warning_flag : FND_API.G_TRUE if any non-fatal */
5283: /* errors occured. FND_API.G_FALSE */
5284: /* if everything was successful. */
5285: /* Note that this value could be */
5286: /* G_TRUE even if x_return_status */
5279: /* BOM/Route references associated */
5280: /* via Service Codes. */
5281: /* */
5282: /* x_warning_flag : FND_API.G_TRUE if any non-fatal */
5283: /* errors occured. FND_API.G_FALSE */
5284: /* if everything was successful. */
5285: /* Note that this value could be */
5286: /* G_TRUE even if x_return_status */
5287: /* is G_RET_STS_SUCCESS */
5556: -- Standard Start of API savepoint
5557: SAVEPOINT Get_Estimates_From_BOM;
5558:
5559: -- Standard call to check for call compatibility.
5560: IF NOT Fnd_Api.Compatible_API_Call(lc_api_version,
5561: p_api_version,
5562: lc_api_name,
5563: G_PKG_NAME)
5564: THEN
5561: p_api_version,
5562: lc_api_name,
5563: G_PKG_NAME)
5564: THEN
5565: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5566: END IF;
5567:
5568: -- Initialize message list if p_init_msg_list is set to TRUE.
5569: IF Fnd_Api.to_Boolean(p_init_msg_list)
5565: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5566: END IF;
5567:
5568: -- Initialize message list if p_init_msg_list is set to TRUE.
5569: IF Fnd_Api.to_Boolean(p_init_msg_list)
5570: THEN
5571: Fnd_Msg_Pub.initialize;
5572: END IF;
5573:
5628: 'p_contract_line_id: ' || p_contract_line_id);
5629: END IF;
5630:
5631: -- Initialize API return status to success
5632: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5633:
5634: -- initialize the warning flag
5635: x_warning_flag := Fnd_Api.G_FALSE;
5636:
5631: -- Initialize API return status to success
5632: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5633:
5634: -- initialize the warning flag
5635: x_warning_flag := Fnd_Api.G_FALSE;
5636:
5637: --
5638: -- Begin API Body
5639: --
5693: 'Calling Convert_To_Est_Lines');
5694: END IF;
5695:
5696: Convert_To_Est_Lines(p_api_version => 1.0,
5697: p_commit => Fnd_Api.G_FALSE,
5698: p_init_msg_list => Fnd_Api.G_FALSE,
5699: p_validation_level => p_validation_level,
5700: x_return_status => x_return_status,
5701: x_msg_count => x_msg_count,
5694: END IF;
5695:
5696: Convert_To_Est_Lines(p_api_version => 1.0,
5697: p_commit => Fnd_Api.G_FALSE,
5698: p_init_msg_list => Fnd_Api.G_FALSE,
5699: p_validation_level => p_validation_level,
5700: x_return_status => x_return_status,
5701: x_msg_count => x_msg_count,
5702: x_msg_data => x_msg_data,
5717: -- THEN
5718: -- Csd_Gen_Utility_Pvt.dump_repair_estimate_line_tbl(x_est_lines_tbl);
5719: -- END IF;
5720:
5721: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
5722: THEN
5723: RAISE Fnd_Api.G_EXC_ERROR;
5724: END IF;
5725:
5719: -- END IF;
5720:
5721: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
5722: THEN
5723: RAISE Fnd_Api.G_EXC_ERROR;
5724: END IF;
5725:
5726: IF l_warning_flag <> Fnd_Api.G_FALSE
5727: THEN
5722: THEN
5723: RAISE Fnd_Api.G_EXC_ERROR;
5724: END IF;
5725:
5726: IF l_warning_flag <> Fnd_Api.G_FALSE
5727: THEN
5728: x_warning_flag := l_warning_flag;
5729: END IF;
5730: --
5782: lc_mod_name,
5783: 'Calling Convert_To_Est_Lines');
5784: END IF;
5785: Convert_To_Est_Lines(p_api_version => 1.0,
5786: p_commit => Fnd_Api.G_FALSE,
5787: p_init_msg_list => Fnd_Api.G_FALSE,
5788: p_validation_level => p_validation_level,
5789: x_return_status => x_return_status,
5790: x_msg_count => x_msg_count,
5783: 'Calling Convert_To_Est_Lines');
5784: END IF;
5785: Convert_To_Est_Lines(p_api_version => 1.0,
5786: p_commit => Fnd_Api.G_FALSE,
5787: p_init_msg_list => Fnd_Api.G_FALSE,
5788: p_validation_level => p_validation_level,
5789: x_return_status => x_return_status,
5790: x_msg_count => x_msg_count,
5791: x_msg_data => x_msg_data,
5806: -- THEN
5807: -- Csd_Gen_Utility_Pvt.dump_repair_estimate_line_tbl(x_est_lines_tbl);
5808: -- END IF;
5809:
5810: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
5811: THEN
5812: RAISE Fnd_Api.G_EXC_ERROR;
5813: END IF;
5814: IF l_warning_flag <> Fnd_Api.G_FALSE
5808: -- END IF;
5809:
5810: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
5811: THEN
5812: RAISE Fnd_Api.G_EXC_ERROR;
5813: END IF;
5814: IF l_warning_flag <> Fnd_Api.G_FALSE
5815: THEN
5816: x_warning_flag := l_warning_flag;
5810: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
5811: THEN
5812: RAISE Fnd_Api.G_EXC_ERROR;
5813: END IF;
5814: IF l_warning_flag <> Fnd_Api.G_FALSE
5815: THEN
5816: x_warning_flag := l_warning_flag;
5817: END IF;
5818:
5846: -- End API Body
5847: --
5848:
5849: -- Standard check of p_commit.
5850: IF Fnd_Api.To_Boolean(p_commit)
5851: THEN
5852: COMMIT WORK;
5853: END IF;
5854:
5856: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5857: p_data => x_msg_data);
5858: EXCEPTION
5859: WHEN CSD_EST_NO_AUTOGEN THEN
5860: x_warning_flag := Fnd_Api.G_TRUE;
5861:
5862: -- save message in fnd stack
5863: IF (Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level)
5864: THEN
5877: Fnd_Log.STRING(Fnd_Log.Level_Exception,
5878: lc_mod_name,
5879: 'No estimate lines autogenerated');
5880: END IF;
5881: WHEN Fnd_Api.G_EXC_ERROR THEN
5882: ROLLBACK TO Get_Estimates_From_BOM;
5883: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5884:
5885: /*
5879: 'No estimate lines autogenerated');
5880: END IF;
5881: WHEN Fnd_Api.G_EXC_ERROR THEN
5882: ROLLBACK TO Get_Estimates_From_BOM;
5883: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5884:
5885: /*
5886: -- TO DO: Add seeded err message
5887: -- save message in fnd stack
5903: lc_mod_name,
5904: 'EXC_ERROR[' || x_msg_data || ']');
5905: END IF;
5906:
5907: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5908: ROLLBACK TO Get_Estimates_From_BOM;
5909: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5910:
5911: -- save message in fnd stack
5905: END IF;
5906:
5907: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5908: ROLLBACK TO Get_Estimates_From_BOM;
5909: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5910:
5911: -- save message in fnd stack
5912: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5913: THEN
5932: END IF;
5933:
5934: WHEN OTHERS THEN
5935: ROLLBACK TO Get_Estimates_From_BOM;
5936: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5937: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
5938: THEN
5939: IF (Fnd_Log.Level_Statement >=
5940: Fnd_Log.G_Current_Runtime_Level)
5966: /* REPAIR_ESTIMATE_LINE_REC. It also*/
5967: /* sets the item cost and logs */
5968: /* warnings. */
5969: /* */
5970: /* x_warning_flag : FND_API.G_TRUE if any non-fatal */
5971: /* errors occured. FND_API.G_FALSE */
5972: /* if everything was successful. */
5973: /* Note that this value could be */
5974: /* G_TRUE even if x_return_status */
5967: /* sets the item cost and logs */
5968: /* warnings. */
5969: /* */
5970: /* x_warning_flag : FND_API.G_TRUE if any non-fatal */
5971: /* errors occured. FND_API.G_FALSE */
5972: /* if everything was successful. */
5973: /* Note that this value could be */
5974: /* G_TRUE even if x_return_status */
5975: /* is G_RET_STS_SUCCESS */
6046: -- Standard Start of API savepoint
6047: SAVEPOINT Convert_To_Est_Lines;
6048:
6049: -- Standard call to check for call compatibility.
6050: IF NOT Fnd_Api.Compatible_API_Call(lc_api_version,
6051: p_api_version,
6052: lc_api_name,
6053: G_PKG_NAME)
6054: THEN
6051: p_api_version,
6052: lc_api_name,
6053: G_PKG_NAME)
6054: THEN
6055: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6056: END IF;
6057:
6058: -- Initialize message list if p_init_msg_list is set to TRUE.
6059: IF Fnd_Api.to_Boolean(p_init_msg_list)
6055: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6056: END IF;
6057:
6058: -- Initialize message list if p_init_msg_list is set to TRUE.
6059: IF Fnd_Api.to_Boolean(p_init_msg_list)
6060: THEN
6061: Fnd_Msg_Pub.initialize;
6062: END IF;
6063:
6112: 'p_contract_line_id: ' || p_contract_line_id);
6113: END IF;
6114:
6115: -- Initialize API return status to success
6116: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6117:
6118: -- initialize the warning flag
6119: x_warning_flag := Fnd_Api.G_FALSE;
6120:
6115: -- Initialize API return status to success
6116: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6117:
6118: -- initialize the warning flag
6119: x_warning_flag := Fnd_Api.G_FALSE;
6120:
6121: /* bug#3875036 */
6122: l_account_id := CSD_CHARGE_LINE_UTIL.Get_SR_AccountId(p_repair_line_id);
6123:
6178: lc_mod_name,
6179: 'l_selling_price = ' || l_selling_price);
6180: END IF;
6181: EXCEPTION
6182: WHEN Fnd_Api.G_EXC_ERROR THEN
6183: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6184: IF (Fnd_Log.Level_Procedure >=
6185: Fnd_Log.G_Current_Runtime_Level)
6186: THEN
6179: 'l_selling_price = ' || l_selling_price);
6180: END IF;
6181: EXCEPTION
6182: WHEN Fnd_Api.G_EXC_ERROR THEN
6183: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6184: IF (Fnd_Log.Level_Procedure >=
6185: Fnd_Log.G_Current_Runtime_Level)
6186: THEN
6187: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
6185: Fnd_Log.G_Current_Runtime_Level)
6186: THEN
6187: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
6188: lc_mod_name,
6189: 'Exception FND_API.G_EXC_ERROR occurred in CSD_PROCESS_UTIL.get_charge_selling_price');
6190: END IF;
6191: WHEN OTHERS THEN
6192: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6193: IF (Fnd_Log.Level_Procedure >=
6188: lc_mod_name,
6189: 'Exception FND_API.G_EXC_ERROR occurred in CSD_PROCESS_UTIL.get_charge_selling_price');
6190: END IF;
6191: WHEN OTHERS THEN
6192: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6193: IF (Fnd_Log.Level_Procedure >=
6194: Fnd_Log.G_Current_Runtime_Level)
6195: THEN
6196: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
6198: 'Exception OTHERS occurred in CSD_PROCESS_UTIL.get_charge_selling_price');
6199: END IF;
6200: END;
6201:
6202: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) OR
6203: (l_selling_price IS NULL)
6204: THEN
6205: IF (Fnd_Log.Level_Statement >=
6206: Fnd_Log.G_Current_Runtime_Level)
6380: .coverage_txn_group_id);
6381: END IF;
6382:
6383: EXCEPTION
6384: WHEN Fnd_Api.G_EXC_ERROR THEN
6385: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6386: WHEN OTHERS THEN
6387: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6388: END;
6381: END IF;
6382:
6383: EXCEPTION
6384: WHEN Fnd_Api.G_EXC_ERROR THEN
6385: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6386: WHEN OTHERS THEN
6387: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6388: END;
6389:
6383: EXCEPTION
6384: WHEN Fnd_Api.G_EXC_ERROR THEN
6385: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6386: WHEN OTHERS THEN
6387: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6388: END;
6389:
6390: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS)
6391: THEN
6386: WHEN OTHERS THEN
6387: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6388: END;
6389:
6390: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS)
6391: THEN
6392: l_error := TRUE;
6393: END IF;
6394:
6400: lc_mod_name,
6401: 'Calling CSD_CHARGE_LINE_UTIL.get_discountedprice');
6402: END IF;
6403: Csd_Charge_Line_Util.GET_DISCOUNTEDPRICE(p_api_version => 1.0,
6404: p_init_msg_list => Fnd_Api.G_FALSE,
6405: p_contract_line_id => p_contract_line_id,
6406: p_repair_type_id => p_repair_type_id,
6407: p_txn_billing_type_id => p_MLE_lines_tbl(i)
6408: .txn_billing_type_id,
6424: x_est_lines_tbl(l_curRow)
6425: .after_warranty_cost);
6426: END IF;
6427: EXCEPTION
6428: WHEN Fnd_Api.G_EXC_ERROR THEN
6429: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6430: WHEN OTHERS THEN
6431: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6432: END;
6425: .after_warranty_cost);
6426: END IF;
6427: EXCEPTION
6428: WHEN Fnd_Api.G_EXC_ERROR THEN
6429: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6430: WHEN OTHERS THEN
6431: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6432: END;
6433: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS)
6427: EXCEPTION
6428: WHEN Fnd_Api.G_EXC_ERROR THEN
6429: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6430: WHEN OTHERS THEN
6431: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6432: END;
6433: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS)
6434: THEN
6435: IF (Fnd_Log.Level_Statement >=
6429: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6430: WHEN OTHERS THEN
6431: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6432: END;
6433: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS)
6434: THEN
6435: IF (Fnd_Log.Level_Statement >=
6436: Fnd_Log.G_Current_Runtime_Level)
6437: THEN
6481: -- gets the item cost.
6482: -- CSD_COST_ANALYSIS_PVT.Get_InvItemCost(
6483: Csd_Cost_Analysis_Pvt.Get_ResItemCost(
6484: -- p_api_version => 1.0,
6485: -- p_commit => fnd_api.g_false,
6486: -- p_init_msg_list => fnd_api.g_false,
6487: -- p_validation_level => fnd_api.g_valid_level_full,
6488: x_return_status => l_return_status,
6489: x_msg_count => l_msg_count,
6482: -- CSD_COST_ANALYSIS_PVT.Get_InvItemCost(
6483: Csd_Cost_Analysis_Pvt.Get_ResItemCost(
6484: -- p_api_version => 1.0,
6485: -- p_commit => fnd_api.g_false,
6486: -- p_init_msg_list => fnd_api.g_false,
6487: -- p_validation_level => fnd_api.g_valid_level_full,
6488: x_return_status => l_return_status,
6489: x_msg_count => l_msg_count,
6490: x_msg_data => l_msg_data,
6483: Csd_Cost_Analysis_Pvt.Get_ResItemCost(
6484: -- p_api_version => 1.0,
6485: -- p_commit => fnd_api.g_false,
6486: -- p_init_msg_list => fnd_api.g_false,
6487: -- p_validation_level => fnd_api.g_valid_level_full,
6488: x_return_status => l_return_status,
6489: x_msg_count => l_msg_count,
6490: x_msg_data => l_msg_data,
6491: p_inventory_item_id => p_MLE_lines_tbl(i)
6506: 'x_item_cost = ' ||
6507: x_est_lines_tbl(l_curRow).item_cost);
6508: END IF;
6509: EXCEPTION
6510: WHEN Fnd_Api.G_EXC_ERROR THEN
6511: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6512: WHEN OTHERS THEN
6513: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6514: END;
6507: x_est_lines_tbl(l_curRow).item_cost);
6508: END IF;
6509: EXCEPTION
6510: WHEN Fnd_Api.G_EXC_ERROR THEN
6511: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6512: WHEN OTHERS THEN
6513: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6514: END;
6515:
6509: EXCEPTION
6510: WHEN Fnd_Api.G_EXC_ERROR THEN
6511: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6512: WHEN OTHERS THEN
6513: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6514: END;
6515:
6516: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS)
6517: THEN
6512: WHEN OTHERS THEN
6513: l_return_status := Fnd_Api.G_RET_STS_ERROR;
6514: END;
6515:
6516: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS)
6517: THEN
6518: x_est_lines_tbl(l_curRow).item_cost := NULL;
6519: --
6520: -- TO DO: give warning message that cost could not be determined?
6517: THEN
6518: x_est_lines_tbl(l_curRow).item_cost := NULL;
6519: --
6520: -- TO DO: give warning message that cost could not be determined?
6521: -- x_warning_flag := FND_API.G_TRUE;
6522: -- x_return_status := FND_API.G_RET_STS_ERROR;
6523: -- if (Fnd_Log.Level_Statement>= Fnd_Log.G_Current_Runtime_Level) then
6524: -- FND_LOG.STRING(Fnd_Log.Level_Statement, lc_mod_name,
6525: -- 'Adding message CSD_EST_ESTIMATED_CHARGE_ERR to FND_MSG stack');
6518: x_est_lines_tbl(l_curRow).item_cost := NULL;
6519: --
6520: -- TO DO: give warning message that cost could not be determined?
6521: -- x_warning_flag := FND_API.G_TRUE;
6522: -- x_return_status := FND_API.G_RET_STS_ERROR;
6523: -- if (Fnd_Log.Level_Statement>= Fnd_Log.G_Current_Runtime_Level) then
6524: -- FND_LOG.STRING(Fnd_Log.Level_Statement, lc_mod_name,
6525: -- 'Adding message CSD_EST_ESTIMATED_CHARGE_ERR to FND_MSG stack');
6526: -- end if;
6619: -- Note: Do NOT elsif this statement with the above "if (l_error = FALSE)",
6620: -- since the above section could potentially set l_error=TRUE as well.
6621: IF (l_error = TRUE)
6622: THEN
6623: x_warning_flag := Fnd_Api.G_TRUE;
6624: IF (Fnd_Log.Level_Procedure >=
6625: Fnd_Log.G_Current_Runtime_Level)
6626: THEN
6627: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
6632: 'Number of messages in stack: ' ||
6633: Fnd_Msg_Pub.count_msg);
6634: END IF;
6635: Csd_Gen_Errmsgs_Pvt.Save_Fnd_Msgs(p_api_version => 1.0,
6636: p_commit => Fnd_Api.G_FALSE,
6637: p_init_msg_list => Fnd_Api.G_FALSE,
6638: p_validation_level => 0,
6639: p_module_code => 'EST',
6640: p_source_entity_id1 => p_repair_line_id,
6633: Fnd_Msg_Pub.count_msg);
6634: END IF;
6635: Csd_Gen_Errmsgs_Pvt.Save_Fnd_Msgs(p_api_version => 1.0,
6636: p_commit => Fnd_Api.G_FALSE,
6637: p_init_msg_list => Fnd_Api.G_FALSE,
6638: p_validation_level => 0,
6639: p_module_code => 'EST',
6640: p_source_entity_id1 => p_repair_line_id,
6641: p_source_entity_type_code => p_MLE_lines_tbl(i)
6644: .est_line_source_id1,
6645: x_return_status => l_return_status,
6646: x_msg_count => l_msg_count,
6647: x_msg_data => l_msg_data);
6648: IF NOT (l_return_status = Fnd_Api.G_RET_STS_SUCCESS)
6649: THEN
6650: RAISE Fnd_Api.G_EXC_ERROR;
6651: END IF;
6652: IF (Fnd_Log.Level_Procedure >=
6646: x_msg_count => l_msg_count,
6647: x_msg_data => l_msg_data);
6648: IF NOT (l_return_status = Fnd_Api.G_RET_STS_SUCCESS)
6649: THEN
6650: RAISE Fnd_Api.G_EXC_ERROR;
6651: END IF;
6652: IF (Fnd_Log.Level_Procedure >=
6653: Fnd_Log.G_Current_Runtime_Level)
6654: THEN
6680: -- End API Body
6681: --
6682:
6683: -- Standard check of p_commit.
6684: IF Fnd_Api.To_Boolean(p_commit)
6685: THEN
6686: COMMIT WORK;
6687: END IF;
6688:
6689: -- Standard call to get message count and IF count is get message info.
6690: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
6691: p_data => x_msg_data);
6692: EXCEPTION
6693: WHEN Fnd_Api.G_EXC_ERROR THEN
6694: ROLLBACK TO Convert_To_Est_Lines;
6695: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6696:
6697: /*
6691: p_data => x_msg_data);
6692: EXCEPTION
6693: WHEN Fnd_Api.G_EXC_ERROR THEN
6694: ROLLBACK TO Convert_To_Est_Lines;
6695: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6696:
6697: /*
6698: -- TO DO: Add seeded err message
6699: -- save message in fnd stack
6714: Fnd_Log.STRING(Fnd_Log.Level_Exception,
6715: lc_mod_name,
6716: 'EXC_ERROR[' || x_msg_data || ']');
6717: END IF;
6718: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6719: ROLLBACK TO Convert_To_Est_Lines;
6720: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6721:
6722: -- save message in fnd stack
6716: 'EXC_ERROR[' || x_msg_data || ']');
6717: END IF;
6718: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6719: ROLLBACK TO Convert_To_Est_Lines;
6720: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6721:
6722: -- save message in fnd stack
6723: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
6724: THEN
6742: 'EXC_UNEXPECTED_ERROR[' || x_msg_data || ']');
6743: END IF;
6744: WHEN OTHERS THEN
6745: ROLLBACK TO Convert_To_Est_Lines;
6746: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6747:
6748: -- save message in fnd stack
6749: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
6750: THEN
6822: -- Standard Start of API savepoint
6823: SAVEPOINT CREATE_ESTIMATE_HEADER_PVT;
6824:
6825: -- Standard call to check for call compatibility.
6826: IF NOT Fnd_Api.Compatible_API_Call(l_api_version,
6827: p_api_version,
6828: l_api_name,
6829: G_PKG_NAME)
6830: THEN
6827: p_api_version,
6828: l_api_name,
6829: G_PKG_NAME)
6830: THEN
6831: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6832: END IF;
6833:
6834: -- Initialize message list if p_init_msg_list is set to TRUE.
6835: IF Fnd_Api.to_Boolean(p_init_msg_list)
6831: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6832: END IF;
6833:
6834: -- Initialize message list if p_init_msg_list is set to TRUE.
6835: IF Fnd_Api.to_Boolean(p_init_msg_list)
6836: THEN
6837: Fnd_Msg_Pub.initialize;
6838: END IF;
6839:
6837: Fnd_Msg_Pub.initialize;
6838: END IF;
6839:
6840: -- Initialize API return status to success
6841: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6842:
6843: debug('Start of estiamte hdr creation for repair lineid[=' ||
6844: p_estimate_hdr_rec.repair_line_id || ']');
6845:
6874: l_estimate_hdr_rec.estimate_status))
6875: THEN
6876: debug('Invalid estimate_reason_code[' ||
6877: l_estimate_hdr_rec.estimate_reason_code || ']');
6878: RAISE Fnd_Api.G_EXC_ERROR;
6879: END IF;
6880:
6881: Csd_Repairs_Grp.UPDATE_APPROVAL_STATUS(p_repair_line_id => l_estimate_hdr_rec.repair_line_id,
6882: p_new_approval_status => l_approval_Status,
6888: x_return_status => l_return_status,
6889: x_msg_count => l_msg_count,
6890: x_msg_data => l_msg_data);
6891: debug('Updated ro status');
6892: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS)
6893: THEN
6894: debug('Updated ro status failed, x_msg_data[' ||
6895: l_msg_data || ']');
6896: RAISE Fnd_Api.G_EXC_ERROR;
6892: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS)
6893: THEN
6894: debug('Updated ro status failed, x_msg_data[' ||
6895: l_msg_data || ']');
6896: RAISE Fnd_Api.G_EXC_ERROR;
6897: END IF;
6898:
6899: ELSE
6900: l_estimate_hdr_rec.estimate_reason_code := NULL;
6903:
6904: csd_estimate_utils_pvt.COPY_TO_EST_HDR_REC(l_estimate_hdr_rec,
6905: l_est_hdr_pvt_rec);
6906: Csd_Repair_Estimate_Pvt.create_repair_estimate(p_api_version => 1.0,
6907: p_commit => Fnd_Api.G_FALSE,
6908: p_init_msg_list => Fnd_Api.G_FALSE,
6909: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
6910: x_estimate_rec => l_est_hdr_pvt_rec,
6911: x_estimate_id => x_estimate_hdr_id,
6904: csd_estimate_utils_pvt.COPY_TO_EST_HDR_REC(l_estimate_hdr_rec,
6905: l_est_hdr_pvt_rec);
6906: Csd_Repair_Estimate_Pvt.create_repair_estimate(p_api_version => 1.0,
6907: p_commit => Fnd_Api.G_FALSE,
6908: p_init_msg_list => Fnd_Api.G_FALSE,
6909: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
6910: x_estimate_rec => l_est_hdr_pvt_rec,
6911: x_estimate_id => x_estimate_hdr_id,
6912: x_return_status => l_return_status,
6905: l_est_hdr_pvt_rec);
6906: Csd_Repair_Estimate_Pvt.create_repair_estimate(p_api_version => 1.0,
6907: p_commit => Fnd_Api.G_FALSE,
6908: p_init_msg_list => Fnd_Api.G_FALSE,
6909: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
6910: x_estimate_rec => l_est_hdr_pvt_rec,
6911: x_estimate_id => x_estimate_hdr_id,
6912: x_return_status => l_return_status,
6913: x_msg_count => l_msg_count,
6914: x_msg_data => l_msg_data);
6915:
6916: debug('after creating the estimate header');
6917:
6918: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS)
6919: THEN
6920: debug('create estiamte header failed, x_msg_data[' ||
6921: l_msg_data || ']');
6922: RAISE Fnd_Api.G_EXC_ERROR;
6918: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS)
6919: THEN
6920: debug('create estiamte header failed, x_msg_data[' ||
6921: l_msg_data || ']');
6922: RAISE Fnd_Api.G_EXC_ERROR;
6923: END IF;
6924:
6925: -- Standard check of p_commit.
6926: IF Fnd_Api.To_Boolean(p_commit)
6922: RAISE Fnd_Api.G_EXC_ERROR;
6923: END IF;
6924:
6925: -- Standard check of p_commit.
6926: IF Fnd_Api.To_Boolean(p_commit)
6927: THEN
6928: COMMIT WORK;
6929: END IF;
6930:
6938: -- Standard call to get message count and IF count is get message info.
6939: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
6940: p_data => x_msg_data);
6941: EXCEPTION
6942: WHEN Fnd_Api.G_EXC_ERROR THEN
6943: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6944: ROLLBACK TO create_estimate_header_pvt;
6945: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
6946: p_data => x_msg_data);
6939: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
6940: p_data => x_msg_data);
6941: EXCEPTION
6942: WHEN Fnd_Api.G_EXC_ERROR THEN
6943: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6944: ROLLBACK TO create_estimate_header_pvt;
6945: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
6946: p_data => x_msg_data);
6947: IF (Fnd_Log.level_error >= Fnd_Log.g_current_runtime_level)
6949: Fnd_Log.STRING(Fnd_Log.level_error,
6950: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_header',
6951: 'EXC_ERROR[' || x_msg_data || ']');
6952: END IF;
6953: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6954: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6955: ROLLBACK TO create_estimate_header_pvt;
6956: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
6957: p_data => x_msg_data);
6950: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_header',
6951: 'EXC_ERROR[' || x_msg_data || ']');
6952: END IF;
6953: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6954: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6955: ROLLBACK TO create_estimate_header_pvt;
6956: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
6957: p_data => x_msg_data);
6958: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level)
6961: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_header',
6962: 'EXC_UNEXP_ERROR[' || x_msg_data || ']');
6963: END IF;
6964: WHEN OTHERS THEN
6965: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6966: ROLLBACK TO create_estimate_header_pvt;
6967: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
6968: THEN
6969: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7015: -- Standard Start of API savepoint
7016: SAVEPOINT CREATE_ESTIMATE_LINE_PVT;
7017:
7018: -- Standard call to check for call compatibility.
7019: IF NOT Fnd_Api.Compatible_API_Call(l_api_version,
7020: p_api_version,
7021: l_api_name,
7022: G_PKG_NAME)
7023: THEN
7020: p_api_version,
7021: l_api_name,
7022: G_PKG_NAME)
7023: THEN
7024: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7025: END IF;
7026:
7027: -- Initialize message list if p_init_msg_list is set to TRUE.
7028: IF Fnd_Api.to_Boolean(p_init_msg_list)
7024: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7025: END IF;
7026:
7027: -- Initialize message list if p_init_msg_list is set to TRUE.
7028: IF Fnd_Api.to_Boolean(p_init_msg_list)
7029: THEN
7030: Fnd_Msg_Pub.initialize;
7031: END IF;
7032:
7030: Fnd_Msg_Pub.initialize;
7031: END IF;
7032:
7033: -- Initialize API return status to success
7034: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7035:
7036: debug('Start of estimate line creation for estimate id[=' ||
7037: p_estimate_line_rec.repair_estimate_id || ']');
7038:
7058:
7059: debug('Calling create estimate_lines...');
7060:
7061: create_repair_estimate_lines(p_api_version => 1.0,
7062: p_commit => Fnd_Api.G_FALSE,
7063: p_init_msg_list => Fnd_Api.G_FALSE,
7064: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
7065: x_estimate_line_rec => l_est_pvt_line_rec,
7066: x_estimate_line_id => x_estimate_line_id,
7059: debug('Calling create estimate_lines...');
7060:
7061: create_repair_estimate_lines(p_api_version => 1.0,
7062: p_commit => Fnd_Api.G_FALSE,
7063: p_init_msg_list => Fnd_Api.G_FALSE,
7064: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
7065: x_estimate_line_rec => l_est_pvt_line_rec,
7066: x_estimate_line_id => x_estimate_line_id,
7067: x_return_status => l_return_status,
7060:
7061: create_repair_estimate_lines(p_api_version => 1.0,
7062: p_commit => Fnd_Api.G_FALSE,
7063: p_init_msg_list => Fnd_Api.G_FALSE,
7064: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
7065: x_estimate_line_rec => l_est_pvt_line_rec,
7066: x_estimate_line_id => x_estimate_line_id,
7067: x_return_status => l_return_status,
7068: x_msg_count => l_msg_count,
7067: x_return_status => l_return_status,
7068: x_msg_count => l_msg_count,
7069: x_msg_data => l_msg_data);
7070:
7071: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS)
7072: THEN
7073: debug('create estimate_lines failed..');
7074: RAISE Fnd_Api.G_EXC_ERROR;
7075: END IF;
7070:
7071: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS)
7072: THEN
7073: debug('create estimate_lines failed..');
7074: RAISE Fnd_Api.G_EXC_ERROR;
7075: END IF;
7076:
7077: -- Standard check of p_commit.
7078: IF Fnd_Api.To_Boolean(p_commit)
7074: RAISE Fnd_Api.G_EXC_ERROR;
7075: END IF;
7076:
7077: -- Standard check of p_commit.
7078: IF Fnd_Api.To_Boolean(p_commit)
7079: THEN
7080: COMMIT WORK;
7081: END IF;
7082:
7090: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_line.end',
7091: 'leaving create_estimate_line');
7092: END IF;
7093: EXCEPTION
7094: WHEN Fnd_Api.G_EXC_ERROR THEN
7095: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7096: ROLLBACK TO CREATE_ESTIMATE_LINE_PVT;
7097: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7098: p_data => x_msg_data);
7091: 'leaving create_estimate_line');
7092: END IF;
7093: EXCEPTION
7094: WHEN Fnd_Api.G_EXC_ERROR THEN
7095: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7096: ROLLBACK TO CREATE_ESTIMATE_LINE_PVT;
7097: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7098: p_data => x_msg_data);
7099: IF (Fnd_Log.level_error >= Fnd_Log.g_current_runtime_level)
7102: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_line',
7103: 'EXC_ERROR[' || x_msg_data || ']');
7104: END IF;
7105:
7106: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
7107: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7108: ROLLBACK TO CREATE_ESTIMATE_LINE_PVT;
7109: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7110: p_data => x_msg_data);
7103: 'EXC_ERROR[' || x_msg_data || ']');
7104: END IF;
7105:
7106: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
7107: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7108: ROLLBACK TO CREATE_ESTIMATE_LINE_PVT;
7109: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7110: p_data => x_msg_data);
7111: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level)
7114: 'csd.plsql.csd_repair_estimate_pvt.create_estimate_line',
7115: 'EXC_UNEXP_ERROR[' || x_msg_data || ']');
7116: END IF;
7117: WHEN OTHERS THEN
7118: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7119: ROLLBACK TO CREATE_ESTIMATE_LINE_PVT;
7120: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
7121: THEN
7122: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7201: -- Standard Start of API savepoint
7202: SAVEPOINT UPDATE_ESTIMATE_HEADER_PVT;
7203:
7204: -- Standard call to check for call compatibility.
7205: IF NOT Fnd_Api.Compatible_API_Call(l_api_version,
7206: p_api_version,
7207: l_api_name,
7208: G_PKG_NAME)
7209: THEN
7206: p_api_version,
7207: l_api_name,
7208: G_PKG_NAME)
7209: THEN
7210: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7211: END IF;
7212:
7213: -- Initialize message list if p_init_msg_list is set to TRUE.
7214: IF Fnd_Api.to_Boolean(p_init_msg_list)
7210: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7211: END IF;
7212:
7213: -- Initialize message list if p_init_msg_list is set to TRUE.
7214: IF Fnd_Api.to_Boolean(p_init_msg_list)
7215: THEN
7216: Fnd_Msg_Pub.initialize;
7217: END IF;
7218:
7216: Fnd_Msg_Pub.initialize;
7217: END IF;
7218:
7219: -- Initialize API return status to success
7220: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7221:
7222: debug('Start of update estimate header for estimate id[=' ||
7223: p_estimate_hdr_rec.repair_estimate_id || ']');
7224:
7268: IF (CUR_EST_HDR%NOTFOUND)
7269: THEN
7270: Fnd_Message.SET_NAME('CSD', 'CSD_INV_ESTIMATE_HEADER');
7271: Fnd_Msg_Pub.ADD;
7272: RAISE Fnd_Api.G_EXC_ERROR;
7273: END IF;
7274:
7275: IF (l_est_pvt_hdr_Rec.repair_line_id <>
7276: p_Estimate_hdr_Rec.repair_line_id)
7276: p_Estimate_hdr_Rec.repair_line_id)
7277: THEN
7278: Fnd_Message.SET_NAME('CSD', 'CSD_INV_ESTIMATE_INPUT');
7279: Fnd_Msg_Pub.ADD;
7280: RAISE Fnd_Api.G_EXC_ERROR;
7281: END IF;
7282: CLOSE CUR_EST_HDR;
7283: l_est_status_changed := FALSE;
7284: IF (p_Estimate_hdr_Rec.estimate_status IS NOT NULL AND
7300: l_estimate_hdr_rec.estimate_status))
7301: THEN
7302: debug('Invalid estimate_reason_code[' ||
7303: l_estimate_hdr_rec.estimate_reason_code || ']');
7304: RAISE Fnd_Api.G_EXC_ERROR;
7305: END IF;
7306:
7307: Csd_Repairs_Grp.UPDATE_APPROVAL_STATUS(p_repair_line_id => l_estimate_hdr_rec.repair_line_id,
7308: p_new_approval_status => l_approval_Status,
7314: x_return_status => l_return_status,
7315: x_msg_count => l_msg_count,
7316: x_msg_data => l_msg_data);
7317: debug('Updated ro status');
7318: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS)
7319: THEN
7320: debug('Updated ro status failed, x_msg_data[' ||
7321: l_msg_data || ']');
7322: RAISE Fnd_Api.G_EXC_ERROR;
7318: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS)
7319: THEN
7320: debug('Updated ro status failed, x_msg_data[' ||
7321: l_msg_data || ']');
7322: RAISE Fnd_Api.G_EXC_ERROR;
7323: END IF;
7324:
7325: ELSE
7326: l_estimate_hdr_rec.estimate_reason_code := NULL;
7329: csd_estimate_utils_pvt.COPY_TO_EST_HDR_REC_UPD(l_estimate_hdr_rec,
7330: l_est_pvt_hdr_rec);
7331:
7332: Csd_Repair_Estimate_Pvt.update_repair_estimate(p_api_version => 1.0,
7333: p_commit => Fnd_Api.G_FALSE,
7334: p_init_msg_list => Fnd_Api.G_FALSE,
7335: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
7336: x_estimate_rec => l_est_pvt_hdr_rec,
7337: x_return_status => l_return_status,
7330: l_est_pvt_hdr_rec);
7331:
7332: Csd_Repair_Estimate_Pvt.update_repair_estimate(p_api_version => 1.0,
7333: p_commit => Fnd_Api.G_FALSE,
7334: p_init_msg_list => Fnd_Api.G_FALSE,
7335: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
7336: x_estimate_rec => l_est_pvt_hdr_rec,
7337: x_return_status => l_return_status,
7338: x_msg_count => l_msg_count,
7331:
7332: Csd_Repair_Estimate_Pvt.update_repair_estimate(p_api_version => 1.0,
7333: p_commit => Fnd_Api.G_FALSE,
7334: p_init_msg_list => Fnd_Api.G_FALSE,
7335: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
7336: x_estimate_rec => l_est_pvt_hdr_rec,
7337: x_return_status => l_return_status,
7338: x_msg_count => l_msg_count,
7339: x_msg_data => l_msg_data);
7340:
7341: debug('after creating the estimate header');
7342: x_object_version_number := l_estimate_hdr_rec.object_version_number;
7343:
7344: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS)
7345: THEN
7346: debug('update estiamte header failed, x_msg_data[' ||
7347: l_msg_data || ']');
7348: RAISE Fnd_Api.G_EXC_ERROR;
7344: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS)
7345: THEN
7346: debug('update estiamte header failed, x_msg_data[' ||
7347: l_msg_data || ']');
7348: RAISE Fnd_Api.G_EXC_ERROR;
7349: END IF;
7350:
7351: -- Standard check of p_commit.
7352: IF Fnd_Api.To_Boolean(p_commit)
7348: RAISE Fnd_Api.G_EXC_ERROR;
7349: END IF;
7350:
7351: -- Standard check of p_commit.
7352: IF Fnd_Api.To_Boolean(p_commit)
7353: THEN
7354: COMMIT WORK;
7355: END IF;
7356:
7364: 'csd.plsql.csd_repair_estimate_pvt.update_estimate_header.end',
7365: 'leaving update_estimate_header');
7366: END IF;
7367: EXCEPTION
7368: WHEN Fnd_Api.G_EXC_ERROR THEN
7369: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7370: ROLLBACK TO UPDATE_ESTIMATE_HEADER_PVT;
7371: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7372: p_data => x_msg_data);
7365: 'leaving update_estimate_header');
7366: END IF;
7367: EXCEPTION
7368: WHEN Fnd_Api.G_EXC_ERROR THEN
7369: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7370: ROLLBACK TO UPDATE_ESTIMATE_HEADER_PVT;
7371: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7372: p_data => x_msg_data);
7373: IF (Fnd_Log.level_error >= Fnd_Log.g_current_runtime_level)
7376: 'csd.plsql.csd_repair_estimate_pvt.update_estimate_header',
7377: 'EXC_ERROR[' || x_msg_data || ']');
7378: END IF;
7379:
7380: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
7381: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7382: ROLLBACK TO UPDATE_ESTIMATE_HEADER_PVT;
7383: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7384: p_data => x_msg_data);
7377: 'EXC_ERROR[' || x_msg_data || ']');
7378: END IF;
7379:
7380: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
7381: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7382: ROLLBACK TO UPDATE_ESTIMATE_HEADER_PVT;
7383: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
7384: p_data => x_msg_data);
7385: IF (Fnd_Log.level_exception >= Fnd_Log.g_current_runtime_level)
7388: 'csd.plsql.csd_repair_estimate_pvt.update_estimate_header',
7389: 'EXC_UNEXP_ERROR[' || x_msg_data || ']');
7390: END IF;
7391: WHEN OTHERS THEN
7392: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7393: Rollback TO UPDATE_ESTIMATE_HEADER_PVT;
7394: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
7395: THEN
7396: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);