[Home] [Help]
6: -- ---------------------------------------------------------
7:
8: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_REPAIR_ESTIMATE_PVT';
9: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdvestb.pls';
10: g_debug NUMBER := Csd_Gen_Utility_Pvt.g_debug_level;
11: ----Begin change for 3931317, wrpper aPI forward port
12:
13: C_EST_STATUS_ACCEPTED CONSTANT VARCHAR2(30) := 'ACCEPTED';
14: C_EST_STATUS_REJECTED CONSTANT VARCHAR2(30) := 'REJECTED';
75:
76: -- Api body starts
77: IF (g_debug > 0)
78: THEN
79: Csd_Gen_Utility_Pvt.dump_api_info(p_pkg_name => G_PKG_NAME,
80: p_api_name => l_api_name);
81: END IF;
82: IF (g_debug > 0)
83: THEN
80: p_api_name => l_api_name);
81: END IF;
82: IF (g_debug > 0)
83: THEN
84: Csd_Gen_Utility_Pvt.ADD('p_action =' || p_action);
85: END IF;
86:
87: -- Based on the action, call the respective charges public api to
88: -- to create/update/delete the charge lines.
90: THEN
91:
92: IF (g_debug > 0)
93: THEN
94: Csd_Gen_Utility_Pvt.ADD('Creating the charge lines ');
95: END IF;
96:
97: Cs_Charge_Details_Pub.Create_Charge_Details(p_api_version => p_api_version,
98: p_init_msg_list => p_init_msg_list,
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 ');
117: END IF;
118:
119: RAISE Fnd_Api.G_EXC_ERROR;
120: END IF;
125: THEN
126:
127: IF (g_debug > 0)
128: THEN
129: Csd_Gen_Utility_Pvt.ADD('l_Charges_Rec.estimate_detail_id =' ||
130: x_Charges_Rec.estimate_detail_id);
131: END IF;
132:
133: IF (g_debug > 0)
131: END IF;
132:
133: IF (g_debug > 0)
134: THEN
135: Csd_Gen_Utility_Pvt.ADD('Updating the charge lines ');
136: END IF;
137:
138: IF (g_debug > 0)
139: THEN
136: END IF;
137:
138: IF (g_debug > 0)
139: THEN
140: Csd_Gen_Utility_Pvt.ADD('Estimate Detail Id = ' ||
141: x_Charges_Rec.estimate_detail_id);
142: Csd_Gen_Utility_Pvt.ADD('x_Charges_Rec.business_process_id=' ||
143: x_Charges_Rec.business_process_id);
144: END IF;
138: IF (g_debug > 0)
139: THEN
140: Csd_Gen_Utility_Pvt.ADD('Estimate Detail Id = ' ||
141: x_Charges_Rec.estimate_detail_id);
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) =
156: EXCEPTION
157: WHEN NO_DATA_FOUND THEN
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)
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');
167: END IF;
168: RAISE Fnd_Api.G_EXC_ERROR;
169: END;
170: END IF;
170: END IF;
171:
172: IF (g_debug > 0)
173: THEN
174: Csd_Gen_Utility_Pvt.ADD('x_Charges_Rec.business_process_id=' ||
175: x_Charges_Rec.business_process_id);
176: END IF;
177:
178: Cs_Charge_Details_Pub.Update_Charge_Details(p_api_version => p_api_version,
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');
195: END IF;
196:
197: RAISE Fnd_Api.G_EXC_ERROR;
198: END IF;
201: THEN
202:
203: IF (g_debug > 0)
204: THEN
205: Csd_Gen_Utility_Pvt.ADD('l_estimate_detail_id =' ||
206: l_estimate_detail_id);
207: END IF;
208:
209: IF (g_debug > 0)
207: END IF;
208:
209: IF (g_debug > 0)
210: THEN
211: Csd_Gen_Utility_Pvt.ADD('Deleting the charge lines ');
212: END IF;
213:
214: l_estimate_detail_id := x_charges_rec.estimate_detail_id;
215:
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 ');
232: END IF;
233:
234: RAISE Fnd_Api.G_EXC_ERROR;
235: END IF;
236:
237: ELSE
238: IF (g_debug > 0)
239: THEN
240: Csd_Gen_Utility_Pvt.ADD('Invalid action is passed ');
241: END IF;
242:
243: Fnd_Message.SET_NAME('CSD', 'CSD_INVALID_ACTION');
244: Fnd_Message.SET_TOKEN('ACTION', p_action);
311: BEGIN
312:
313: IF (g_debug > 0)
314: THEN
315: Csd_Gen_Utility_Pvt.ADD('Inside UPDATE_RO_GROUP_ESTIMATE Procedure p_repair_line_id =' ||
316: p_repair_line_id);
317: END IF;
318:
319: -- Standard Start of API savepoint
339:
340: -- Api body starts
341: IF (g_debug > 0)
342: THEN
343: Csd_Gen_Utility_Pvt.dump_api_info(p_pkg_name => G_PKG_NAME,
344: p_api_name => l_api_name);
345: END IF;
346: -- Check the required parameter
347: Csd_Process_Util.Check_Reqd_Param(p_param_value => p_repair_line_id,
349: p_api_name => l_api_name);
350:
351: IF (g_debug > 0)
352: THEN
353: Csd_Gen_Utility_Pvt.ADD('Validate repair line id');
354: END IF;
355:
356: -- Validate the repair line ID
357: IF NOT
405: EXCEPTION
406: WHEN OTHERS THEN
407: IF (g_debug > 0)
408: THEN
409: Csd_Gen_Utility_Pvt.ADD(' OTHERS l_tot_approved =' ||
410: l_tot_approved);
411: END IF;
412:
413: END;
422: EXCEPTION
423: WHEN OTHERS THEN
424: IF (g_debug > 0)
425: THEN
426: Csd_Gen_Utility_Pvt.ADD(' OTHERS l_tot_rejected =' ||
427: l_tot_rejected);
428: END IF;
429:
430: END;
438: EXCEPTION
439: WHEN OTHERS THEN
440: IF (g_debug > 0)
441: THEN
442: Csd_Gen_Utility_Pvt.ADD(' OTHERS l_tot_no_approval =' ||
443: l_tot_no_approval);
444: END IF;
445:
446: END;
446: END;
447:
448: IF (g_debug > 0)
449: THEN
450: Csd_Gen_Utility_Pvt.ADD('l_tot_approved =' ||
451: l_tot_approved);
452: END IF;
453:
454: IF (g_debug > 0)
452: END IF;
453:
454: IF (g_debug > 0)
455: THEN
456: Csd_Gen_Utility_Pvt.ADD('l_tot_rejected =' ||
457: l_tot_rejected);
458: END IF;
459:
460: IF (g_debug > 0)
458: END IF;
459:
460: IF (g_debug > 0)
461: THEN
462: Csd_Gen_Utility_Pvt.ADD('l_tot_no_approval =' ||
463: l_tot_no_approval);
464: END IF;
465:
466: -- total of approved/rejected repairs with approval required = Y and approval required = N
476: IF (NVL(l_group_quantity, 0) = NVL(l_tot_no_approval, 0))
477: THEN
478: IF (g_debug > 0)
479: THEN
480: Csd_Gen_Utility_Pvt.ADD('EST_NOT_REQD ');
481: END IF;
482:
483: l_rep_group_rec.group_approval_status := 'EST_NOT_REQD';
484: l_rep_group_rec.approved_quantity := NVL(l_tot_no_approval,
486: ELSIF (l_group_quantity > l_count)
487: THEN
488: IF (g_debug > 0)
489: THEN
490: Csd_Gen_Utility_Pvt.ADD('PARTIAL_APPRD ');
491: END IF;
492:
493: l_rep_group_rec.group_approval_status := 'PARTIAL_APPRD';
494: l_rep_group_rec.approved_quantity := NVL(l_tot_approved,
499: NVL(l_tot_approved, 0) + NVL(l_tot_no_approval, 0))
500: THEN
501: IF (g_debug > 0)
502: THEN
503: Csd_Gen_Utility_Pvt.ADD('APPROVED ');
504: END IF;
505:
506: l_rep_group_rec.group_approval_status := 'APPROVED';
507: l_rep_group_rec.approved_quantity := NVL(l_tot_approved,
511: ELSIF (l_group_quantity = NVL(l_tot_rejected, 0))
512: THEN
513: IF (g_debug > 0)
514: THEN
515: Csd_Gen_Utility_Pvt.ADD('REJECTED ');
516: END IF;
517:
518: l_rep_group_rec.group_approval_status := 'REJECTED';
519: l_rep_group_rec.approved_quantity := 0;
520: END IF;
521:
522: IF (g_debug > 0)
523: THEN
524: Csd_Gen_Utility_Pvt.ADD('CSD_REPAIR_ESTIMATE_PVT.UPDATE_RO_GROUP_ESTIMATE Update Group RO call');
525: END IF;
526:
527: Csd_Repair_Groups_Pvt.UPDATE_REPAIR_GROUPS(p_api_version => 1.0,
528: p_commit => 'F',
534: x_msg_data => l_msg_data);
535:
536: IF (g_debug > 0)
537: THEN
538: Csd_Gen_Utility_Pvt.ADD('CSD_REPAIR_ESTIMATE_PVT.UPDATE_RO_GROUP_ESTIMATE UPDATE_REPAIR_GROUPS :' ||
539: x_return_status);
540: END IF;
541:
542: IF l_return_status <> 'S'
639:
640: -- Api body starts
641: IF (g_debug > 0)
642: THEN
643: Csd_Gen_Utility_Pvt.dump_api_info(p_pkg_name => G_PKG_NAME,
644: p_api_name => l_api_name);
645: END IF;
646: -- Dump the in parameters in the log file
647: -- if the debug level > 5
647: -- if the debug level > 5
648: -- If fnd_profile.value('CSD_DEBUG_LEVEL') > 5 then
649: -- IF (g_debug > 5)
650: -- THEN
651: -- Csd_Gen_Utility_Pvt.dump_estimate_rec(p_estimate_rec => x_estimate_rec);
652: -- END IF;
653:
654: IF (g_debug > 0)
655: THEN
652: -- END IF;
653:
654: IF (g_debug > 0)
655: THEN
656: Csd_Gen_Utility_Pvt.ADD('Check reqd parameter');
657: END IF;
658:
659: -- Check the required parameter
660: Csd_Process_Util.Check_Reqd_Param(p_param_value => x_estimate_rec.repair_line_id,
689: p_api_name => l_api_name);
690:
691: IF (g_debug > 0)
692: THEN
693: Csd_Gen_Utility_Pvt.ADD('Validate repair line id');
694: END IF;
695:
696: -- Validate the repair line ID
697: IF NOT
701: END IF;
702:
703: IF (g_debug > 0)
704: THEN
705: Csd_Gen_Utility_Pvt.ADD('Check if there is only one estimate per repair order');
706: END IF;
707:
708: BEGIN
709: SELECT COUNT(*)
718: IF l_est_count > 0
719: THEN
720: IF (g_debug > 0)
721: THEN
722: Csd_Gen_Utility_Pvt.ADD('Estimate already exists for the repair line Id: ' ||
723: x_estimate_rec.repair_line_id);
724: END IF;
725:
726: Fnd_Message.SET_NAME('CSD', 'CSD_API_ESTIMATE_EXISTS');
731: END IF;
732:
733: IF (g_debug > 0)
734: THEN
735: Csd_Gen_Utility_Pvt.ADD('Validate the estimate status');
736: END IF;
737:
738: BEGIN
739: SELECT lookup_code
917:
918: -- Api body starts
919: IF (g_debug > 0)
920: THEN
921: Csd_Gen_Utility_Pvt.dump_api_info(p_pkg_name => G_PKG_NAME,
922: p_api_name => l_api_name);
923: END IF;
924: -- Dump the in parameters in the log file
925: -- if the debug level > 5
925: -- if the debug level > 5
926: --If fnd_profile.value('CSD_DEBUG_LEVEL') > 5 then
927: -- IF (g_debug > 5)
928: -- THEN
929: -- Csd_Gen_Utility_Pvt.dump_estimate_rec(p_estimate_rec => x_estimate_rec);
930: -- END IF;
931:
932: IF (g_debug > 0)
933: THEN
930: -- END IF;
931:
932: IF (g_debug > 0)
933: THEN
934: Csd_Gen_Utility_Pvt.ADD('Check reqd parameter: Repair Estimate Id');
935: END IF;
936:
937: IF (g_debug > 0)
938: THEN
935: END IF;
936:
937: IF (g_debug > 0)
938: THEN
939: Csd_Gen_Utility_Pvt.ADD('Repair Estimate Id =' ||
940: x_estimate_rec.repair_estimate_id);
941: END IF;
942:
943: -- Check the required parameter
972: l_obj_ver_num
973: THEN
974: IF (g_debug > 0)
975: THEN
976: Csd_Gen_Utility_Pvt.ADD('object version number does not match');
977: END IF;
978:
979: Fnd_Message.SET_NAME('CSD', 'CSD_OBJ_VER_MISMATCH');
980: Fnd_Message.SET_TOKEN('REPAIR_ESTIMATE_ID', l_estimate_id);
983: END IF;
984:
985: IF (g_debug > 0)
986: THEN
987: Csd_Gen_Utility_Pvt.ADD('Validate the estimate status');
988: END IF;
989:
990: BEGIN
991: SELECT lookup_code
1016: */
1017:
1018: IF (g_debug > 0)
1019: THEN
1020: Csd_Gen_Utility_Pvt.ADD('l_approval_status =' ||
1021: l_approval_status);
1022: END IF;
1023:
1024: -- Estimate lines are allowed to update only
1027: -- IF NVL(l_approval_status,'Z') <> 'A' THEN
1028:
1029: IF (g_debug > 0)
1030: THEN
1031: Csd_Gen_Utility_Pvt.ADD('Calling CSD_REPAIR_ESTIMATE_PKG.Update_Row');
1032: END IF;
1033:
1034: Csd_Repair_Estimate_Pkg.Update_Row(p_REPAIR_ESTIMATE_ID => x_estimate_rec.repair_estimate_id,
1035: p_REPAIR_LINE_ID => x_estimate_rec.repair_line_id,
1174:
1175: -- Api body starts
1176: IF (g_debug > 0)
1177: THEN
1178: Csd_Gen_Utility_Pvt.dump_api_info(p_pkg_name => G_PKG_NAME,
1179: p_api_name => l_api_name);
1180: END IF;
1181: IF (g_debug > 0)
1182: THEN
1179: p_api_name => l_api_name);
1180: END IF;
1181: IF (g_debug > 0)
1182: THEN
1183: Csd_Gen_Utility_Pvt.ADD('Check reqd parameter: Estimate Id ');
1184: END IF;
1185:
1186: IF (g_debug > 0)
1187: THEN
1184: END IF;
1185:
1186: IF (g_debug > 0)
1187: THEN
1188: Csd_Gen_Utility_Pvt.ADD('Repair Estimate Id =' ||
1189: p_estimate_id);
1190: END IF;
1191:
1192: -- Check the required parameter
1195: p_api_name => l_api_name);
1196:
1197: IF (g_debug > 0)
1198: THEN
1199: Csd_Gen_Utility_Pvt.ADD('Validate repair estimate id');
1200: END IF;
1201:
1202: -- Validate the repair line ID
1203: IF NOT
1215: EXCEPTION
1216: WHEN NO_DATA_FOUND THEN
1217: IF (g_debug > 0)
1218: THEN
1219: Csd_Gen_Utility_Pvt.ADD('Estimate ID missing');
1220: END IF;
1221:
1222: Fnd_Message.SET_NAME('CSD', 'CSD_API_ESTIMATE_MISSING');
1223: Fnd_Message.SET_TOKEN('REPAIR_ESTIMATE_ID', p_estimate_id);
1238: IF l_est_line_count > 0
1239: THEN
1240: IF (g_debug > 0)
1241: THEN
1242: Csd_Gen_Utility_Pvt.ADD('Estimate Lines exists for this estimate');
1243: END IF;
1244:
1245: Fnd_Message.SET_NAME('CSD', 'CSD_ESTIMATE_LINE_EXISTS');
1246: Fnd_Message.SET_TOKEN('REPAIR_ESTIMATE_ID', p_estimate_id);
1251: IF NVL(l_approval_status, 'Z') <> 'A'
1252: THEN
1253: IF (g_debug > 0)
1254: THEN
1255: Csd_Gen_Utility_Pvt.ADD('Call CSD_REPAIR_ESTIMATE_PKG.Delete_Row');
1256: END IF;
1257:
1258: Csd_Repair_Estimate_Pkg.Delete_Row(p_REPAIR_ESTIMATE_ID => p_estimate_id);
1259: ELSE
1449:
1450: -- Api body starts
1451: IF (g_debug > 0)
1452: THEN
1453: Csd_Gen_Utility_Pvt.dump_api_info(p_pkg_name => G_PKG_NAME,
1454: p_api_name => l_api_name);
1455: END IF;
1456: -- Dump the in parameters in the log file
1457: -- if the debug level > 5
1457: -- if the debug level > 5
1458: -- If fnd_profile.value('CSD_DEBUG_LEVEL') > 5 then
1459: -- IF (g_debug > 5)
1460: -- THEN
1461: -- Csd_Gen_Utility_Pvt.dump_estimate_line_rec(p_estimate_line_rec => x_estimate_line_rec);
1462: -- END IF;
1463:
1464: IF (g_debug > 0)
1465: THEN
1462: -- END IF;
1463:
1464: IF (g_debug > 0)
1465: THEN
1466: Csd_Gen_Utility_Pvt.ADD('Check reqd parameter');
1467: END IF;
1468:
1469: IF (g_debug > 0)
1470: THEN
1467: END IF;
1468:
1469: IF (g_debug > 0)
1470: THEN
1471: Csd_Gen_Utility_Pvt.ADD('Repair Line ID =' ||
1472: x_estimate_line_rec.repair_line_id);
1473: END IF;
1474:
1475: IF (g_debug > 0)
1473: END IF;
1474:
1475: IF (g_debug > 0)
1476: THEN
1477: Csd_Gen_Utility_Pvt.ADD('txn_billing_type_id =' ||
1478: x_estimate_line_rec.txn_billing_type_id);
1479: END IF;
1480:
1481: -- Check the required parameter
1509: p_api_name => l_api_name);
1510:
1511: IF (g_debug > 0)
1512: THEN
1513: Csd_Gen_Utility_Pvt.ADD('Validate repair estimate id');
1514: END IF;
1515:
1516: -- Validate the repair line ID
1517: IF NOT
1521: END IF;
1522:
1523: IF (g_debug > 0)
1524: THEN
1525: Csd_Gen_Utility_Pvt.ADD('Validate repair line id');
1526: END IF;
1527:
1528: -- Validate the repair line ID
1529: IF NOT
1548: END;
1549:
1550: IF (g_debug > 0)
1551: THEN
1552: Csd_Gen_Utility_Pvt.ADD('l_incident_id =' || l_incident_id);
1553: END IF;
1554:
1555: -- Get the business process id
1556: -- Forward port bug fix# 2756313
1559: l_bus_process_id := Csd_Process_Util.GET_BUS_PROCESS(x_estimate_line_rec.repair_line_id);
1560:
1561: IF (g_debug > 0)
1562: THEN
1563: Csd_Gen_Utility_Pvt.ADD('l_bus_process_id =' ||
1564: l_bus_process_id);
1565: END IF;
1566:
1567: IF l_bus_process_id < 0
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
1584: IF (g_debug > 0 ) THEN
1585: csd_gen_utility_pvt.ADD('Getting the Coverage and txn Group Id');
1586: END IF;
1587:
1588: IF (g_debug > 0 ) THEN
1589: csd_gen_utility_pvt.ADD('contract_line_id ='||x_estimate_line_rec.contract_id);
1585: csd_gen_utility_pvt.ADD('Getting the Coverage and txn Group Id');
1586: END IF;
1587:
1588: IF (g_debug > 0 ) THEN
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
1613: FND_MESSAGE.SET_NAME('CSD','CSD_API_CONTRACT_MISSING');
1614: FND_MESSAGE.SET_TOKEN('CONTRACT_LINE_ID',x_estimate_line_rec.contract_id);
1615: FND_MSG_PUB.ADD;
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;
1623: x_estimate_line_rec.coverage_id := l_coverage_id;
1624: x_estimate_line_rec.coverage_txn_group_id := l_txn_group_id;
1625:
1626: IF (g_debug > 0 ) THEN
1627: csd_gen_utility_pvt.ADD('l_coverage_id ='||l_coverage_id);
1628: END IF;
1629:
1630: IF (g_debug > 0 ) THEN
1631: csd_gen_utility_pvt.ADD('l_txn_group_id ='||l_txn_group_id);
1627: csd_gen_utility_pvt.ADD('l_coverage_id ='||l_coverage_id);
1628: END IF;
1629:
1630: IF (g_debug > 0 ) THEN
1631: csd_gen_utility_pvt.ADD('l_txn_group_id ='||l_txn_group_id);
1632: END IF;
1633:
1634:
1635: End If;
1657: END IF;
1658:
1659: IF (g_debug > 0)
1660: THEN
1661: Csd_Gen_Utility_Pvt.ADD('l_party_id =' || l_party_id);
1662: END IF;
1663:
1664: IF (g_debug > 0)
1665: THEN
1662: END IF;
1663:
1664: IF (g_debug > 0)
1665: THEN
1666: Csd_Gen_Utility_Pvt.ADD('l_account_id =' || l_account_id);
1667: END IF;
1668:
1669: IF (g_debug > 0)
1670: THEN
1667: END IF;
1668:
1669: IF (g_debug > 0)
1670: THEN
1671: Csd_Gen_Utility_Pvt.ADD('x_estimate_line_rec.txn_billing_type_id =' ||
1672: x_estimate_line_rec.txn_billing_type_id);
1673: END IF;
1674:
1675: IF (g_debug > 0)
1673: END IF;
1674:
1675: IF (g_debug > 0)
1676: THEN
1677: Csd_Gen_Utility_Pvt.ADD('x_estimate_line_rec.organization_id =' ||
1678: x_estimate_line_rec.organization_id);
1679: END IF;
1680:
1681: -- Derive the txn_billing type and line category code
1697: END IF;
1698:
1699: IF (g_debug > 0)
1700: THEN
1701: Csd_Gen_Utility_Pvt.ADD('l_line_type_id =' ||
1702: l_line_type_id);
1703: END IF;
1704:
1705: IF (g_debug > 0)
1703: END IF;
1704:
1705: IF (g_debug > 0)
1706: THEN
1707: Csd_Gen_Utility_Pvt.ADD('l_line_category_code =' ||
1708: l_line_category_code);
1709: END IF;
1710:
1711: IF (g_debug > 0)
1709: END IF;
1710:
1711: IF (g_debug > 0)
1712: THEN
1713: Csd_Gen_Utility_Pvt.ADD('x_estimate_line_rec.price_list_id =' ||
1714: x_estimate_line_rec.price_list_id);
1715: END IF;
1716:
1717: -- If line_type_id Or line_category_code is null
1746: END IF;
1747:
1748: IF (g_debug > 0)
1749: THEN
1750: Csd_Gen_Utility_Pvt.ADD('l_curr_code =' || l_curr_code);
1751: END IF;
1752:
1753: -- If l_curr_code is null then raise error
1754: IF l_curr_code IS NULL
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: --
1771: --
1772: -- BEGIN
1781: --
1782: -- EXCEPTION
1783: -- WHEN NO_DATA_FOUND THEN
1784: --IF (g_debug > 0 ) THEN
1785: -- csd_gen_utility_pvt.ADD('Could not get item cost' );
1786: --END IF;
1787: --
1788: -- FND_MESSAGE.SET_NAME('CSD','CSD_ITEM_COST_MISSING');
1789: -- FND_MSG_PUB.ADD;
1805: --x_estimate_line_rec.apply_contract_discount := ;
1806:
1807: IF (g_debug > 0)
1808: THEN
1809: Csd_Gen_Utility_Pvt.ADD('Convert estimate line rec to charges rec');
1810: END IF;
1811:
1812: -- always create estimate lines with interface to OE flag as 'N'
1813: x_estimate_line_rec.interface_to_om_flag := 'N';
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,
1844: END IF;
1845:
1846: IF (g_debug > 0)
1847: THEN
1848: Csd_Gen_Utility_Pvt.ADD('NEW ESTIMATE DETAIL ID =' ||
1849: l_Charges_Rec.estimate_detail_id);
1850: END IF;
1851:
1852: IF (g_debug > 0)
1850: END IF;
1851:
1852: IF (g_debug > 0)
1853: THEN
1854: Csd_Gen_Utility_Pvt.ADD('Call csd_repair_estimate_lines_pkg.insert_row to create repair estimate lines ');
1855: END IF;
1856:
1857: -- travi forward port Bug # 2789754 fix added override_charge_flag
1858: Csd_Repair_Estimate_Lines_Pkg.Insert_Row(px_REPAIR_ESTIMATE_LINE_ID => x_estimate_line_rec.repair_estimate_line_id,
2000:
2001: -- Api body starts
2002: IF (g_debug > 0)
2003: THEN
2004: Csd_Gen_Utility_Pvt.dump_api_info(p_pkg_name => G_PKG_NAME,
2005: p_api_name => l_api_name);
2006: END IF;
2007: -- Dump the in parameters in the log file
2008: -- if the debug level > 5
2008: -- if the debug level > 5
2009: -- If fnd_profile.value('CSD_DEBUG_LEVEL') > 5 then
2010: -- IF (g_debug > 5)
2011: -- THEN
2012: -- Csd_Gen_Utility_Pvt.dump_estimate_line_rec(p_estimate_line_rec => x_estimate_line_rec);
2013: -- END IF;
2014:
2015: IF (g_debug > 0)
2016: THEN
2013: -- END IF;
2014:
2015: IF (g_debug > 0)
2016: THEN
2017: Csd_Gen_Utility_Pvt.ADD('Check reqd parameter: Repair Estimate Line id');
2018: END IF;
2019:
2020: IF (g_debug > 0)
2021: THEN
2018: END IF;
2019:
2020: IF (g_debug > 0)
2021: THEN
2022: Csd_Gen_Utility_Pvt.ADD('Repair Estimate Line Id =' ||
2023: x_estimate_line_rec.repair_estimate_line_id);
2024: END IF;
2025:
2026: -- Check the required parameter
2029: p_api_name => l_api_name);
2030:
2031: IF (g_debug > 0)
2032: THEN
2033: Csd_Gen_Utility_Pvt.ADD('Validate Estimate Line Id');
2034: END IF;
2035:
2036: -- Validate the repair line ID
2037: IF NOT
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');
2059: END IF;
2060:
2061: Fnd_Message.SET_NAME('CSD', 'CSD_OBJ_VER_MISMATCH');
2062: Fnd_Message.SET_TOKEN('REPAIR_ESTIMATE_LINE_ID',
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;
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;
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;
2118:
2119: IF (g_debug > 0 ) THEN
2120: csd_gen_utility_pvt.ADD('contract_line_id ='||x_estimate_line_rec.contract_id);
2116: csd_gen_utility_pvt.ADD('Getting the Coverage and txn Group Id');
2117: END IF;
2118:
2119: IF (g_debug > 0 ) THEN
2120: csd_gen_utility_pvt.ADD('contract_line_id ='||x_estimate_line_rec.contract_id);
2121: END IF;
2122:
2123: IF (g_debug > 0 ) THEN
2124: csd_gen_utility_pvt.ADD('l_bus_process_id ='||l_bus_process_id);
2120: csd_gen_utility_pvt.ADD('contract_line_id ='||x_estimate_line_rec.contract_id);
2121: END IF;
2122:
2123: IF (g_debug > 0 ) THEN
2124: csd_gen_utility_pvt.ADD('l_bus_process_id ='||l_bus_process_id);
2125: END IF;
2126:
2127:
2128: Begin
2143: FND_MESSAGE.SET_NAME('CSD','CSD_API_CONTRACT_MISSING');
2144: FND_MESSAGE.SET_TOKEN('CONTRACT_LINE_ID',x_estimate_line_rec.contract_id);
2145: FND_MSG_PUB.ADD;
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;
2155: IF (g_debug > 0 ) THEN
2156: csd_gen_utility_pvt.ADD('l_coverage_id ='||l_coverage_id);
2157: END IF;
2158:
2159: IF (g_debug > 0 ) THEN
2160: csd_gen_utility_pvt.ADD('l_txn_group_id ='||l_txn_group_id);
2156: csd_gen_utility_pvt.ADD('l_coverage_id ='||l_coverage_id);
2157: END IF;
2158:
2159: IF (g_debug > 0 ) THEN
2160: csd_gen_utility_pvt.ADD('l_txn_group_id ='||l_txn_group_id);
2161: END IF;
2162:
2163:
2164: End If;
2165: */
2166:
2167: IF (g_debug > 0)
2168: THEN
2169: Csd_Gen_Utility_Pvt.ADD('l_upd_charge_flag =' ||
2170: l_upd_charge_flag);
2171: END IF;
2172:
2173: IF x_estimate_line_rec.item_cost = 0
2173: IF x_estimate_line_rec.item_cost = 0
2174: THEN
2175: IF (g_debug > 0)
2176: THEN
2177: Csd_Gen_Utility_Pvt.ADD('item cost is zero');
2178: END IF;
2179:
2180: x_estimate_line_rec.item_cost := NULL;
2181: END IF;
2187: THEN
2188:
2189: IF (g_debug > 0)
2190: THEN
2191: Csd_Gen_Utility_Pvt.ADD('Convert estimate to charges rec');
2192: END IF;
2193:
2194: Csd_Process_Util.CONVERT_EST_TO_CHG_REC(p_estimate_line_rec => x_estimate_line_rec,
2195: x_charges_rec => l_Charges_Rec,
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');
2203: END IF;
2204:
2205: RAISE Fnd_Api.G_EXC_ERROR;
2206: END IF;
2208: l_Charges_Rec.estimate_detail_id := l_est_detail_id;
2209:
2210: IF (g_debug > 0)
2211: THEN
2212: Csd_Gen_Utility_Pvt.ADD('Call process_estimate_lines to update charge lines ');
2213: END IF;
2214:
2215: IF (g_debug > 0)
2216: THEN
2213: END IF;
2214:
2215: IF (g_debug > 0)
2216: THEN
2217: Csd_Gen_Utility_Pvt.ADD('Estimate Detail Id = ' ||
2218: l_Charges_Rec.estimate_detail_id);
2219: END IF;
2220:
2221: process_estimate_lines(p_api_version => 1.0,
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 ');
2236: END IF;
2237:
2238: RAISE Fnd_Api.G_EXC_ERROR;
2239: END IF;
2241: END IF; -- end of update charge line
2242:
2243: IF (g_debug > 0)
2244: THEN
2245: Csd_Gen_Utility_Pvt.ADD('Call csd_repair_estimate_line_pkg.update_row to update the repair estimate');
2246: END IF;
2247:
2248: IF (g_debug > 0)
2249: THEN
2246: END IF;
2247:
2248: IF (g_debug > 0)
2249: THEN
2250: Csd_Gen_Utility_Pvt.ADD('x_estimate_line_rec.repair_estimate_line_id =' ||
2251: x_estimate_line_rec.repair_estimate_line_id);
2252: END IF;
2253:
2254: -- travi forward port Bug # 2789754 fix added override_charge_flag
2370:
2371: -- Api body starts
2372: IF (g_debug > 0)
2373: THEN
2374: Csd_Gen_Utility_Pvt.dump_api_info(p_pkg_name => G_PKG_NAME,
2375: p_api_name => l_api_name);
2376: END IF;
2377: IF (g_debug > 0)
2378: THEN
2375: p_api_name => l_api_name);
2376: END IF;
2377: IF (g_debug > 0)
2378: THEN
2379: Csd_Gen_Utility_Pvt.ADD('Check reqd parameter: Estimate Line Id ');
2380: END IF;
2381:
2382: IF (g_debug > 0)
2383: THEN
2380: END IF;
2381:
2382: IF (g_debug > 0)
2383: THEN
2384: Csd_Gen_Utility_Pvt.ADD('Repair Estimate Line Id =' ||
2385: p_estimate_line_id);
2386: END IF;
2387:
2388: -- Check the required parameter
2391: p_api_name => l_api_name);
2392:
2393: IF (g_debug > 0)
2394: THEN
2395: Csd_Gen_Utility_Pvt.ADD('Validate repair estimate line id');
2396: END IF;
2397:
2398: -- Validate the repair line ID
2399: IF NOT
2403: END IF;
2404:
2405: IF (g_debug > 0)
2406: THEN
2407: Csd_Gen_Utility_Pvt.ADD('check if rocord is allowed to delete');
2408: END IF;
2409:
2410: -- The estimate line is allowed to delete
2411: -- only if it is not interfaced
2421: WHEN NO_DATA_FOUND THEN
2422: l_delete_allow := 'N';
2423: IF (g_debug > 0)
2424: THEN
2425: Csd_Gen_Utility_Pvt.ADD('Estimate Line is interfaced,so it cannot be deleted');
2426: END IF;
2427:
2428: Fnd_Message.SET_NAME('CSD', 'CSD_API_DELETE_NOT_ALLOWED');
2429: Fnd_Message.SET_TOKEN('REPAIR_ESTIMATE_LINE_ID',
2433: END;
2434:
2435: IF (g_debug > 0)
2436: THEN
2437: Csd_Gen_Utility_Pvt.ADD('l_delete_allow =' ||
2438: l_delete_allow);
2439: END IF;
2440:
2441: IF (g_debug > 0)
2439: END IF;
2440:
2441: IF (g_debug > 0)
2442: THEN
2443: Csd_Gen_Utility_Pvt.ADD('Estimate Detail Id =' ||
2444: l_est_detail_id);
2445: END IF;
2446:
2447: IF l_delete_allow = 'Y'
2450: l_Charges_Rec.estimate_detail_id := l_est_detail_id;
2451:
2452: IF (g_debug > 0)
2453: 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,
2470: END IF;
2471:
2472: IF (g_debug > 0)
2473: THEN
2474: Csd_Gen_Utility_Pvt.ADD('Call csd_product_transactions_pkg.Delete_Row');
2475: END IF;
2476:
2477: Csd_Repair_Estimate_Lines_Pkg.Delete_Row(p_REPAIR_ESTIMATE_LINE_ID => p_estimate_line_id);
2478:
2645: -- start of the concurrent submission
2646: l_printer_name := Fnd_Profile.value('CSD_PRINTER_NAME');
2647: IF (g_debug > 0)
2648: THEN
2649: Csd_Gen_Utility_Pvt.ADD('l_printer_name =' || l_printer_name);
2650: END IF;
2651: -- Check if the printer setup is required
2652: -- l_print_required := fnd_profile.value('CSD_EST_PRINTER_REQ');
2653: -- For bugfix 3398079. vkjain.
2654: -- The profile name was misspelt.
2655: l_print_required := Fnd_Profile.value('CSD_PRINTER_REQ');
2656: IF (g_debug > 0)
2657: THEN
2658: Csd_Gen_Utility_Pvt.ADD('l_print_required =' ||
2659: l_print_required);
2660: END IF;
2661: -- Check for the printer setup
2662: IF l_printer_name IS NOT NULL
2669: IF l_submit_status
2670: THEN
2671: IF (g_debug > 0)
2672: THEN
2673: Csd_Gen_Utility_Pvt.ADD('Set Print Option successfull');
2674: END IF;
2675: ELSE
2676: IF (g_debug > 0)
2677: THEN
2674: END IF;
2675: ELSE
2676: IF (g_debug > 0)
2677: THEN
2678: Csd_Gen_Utility_Pvt.ADD('Set Print Option Failed');
2679: END IF;
2680: Fnd_Message.SET_NAME('CSD', 'CSD_EST_PRINT_OPTION_ERROR');
2681: Fnd_Message.SET_TOKEN('REPAIR_LINE_ID', p_repair_line_id);
2682: Fnd_Msg_Pub.ADD;
2743: END IF;
2744: -- valase:6499519 above
2745: IF (g_debug > 0)
2746: THEN
2747: Csd_Gen_Utility_Pvt.ADD('Concurrent request Id =' ||
2748: TO_CHAR(l_request_id));
2749: END IF;
2750: IF (l_request_id <> 0)
2751: THEN
2873: WHEN OTHERS THEN
2874: l_add_to_same_order := FALSE;
2875: IF (g_debug > 0)
2876: THEN
2877: Csd_Gen_Utility_Pvt.ADD('in others exception ');
2878: END IF;
2879: END;
2880:
2881: ELSE
2899: EXCEPTION
2900: WHEN OTHERS THEN
2901: IF (g_debug > 0)
2902: THEN
2903: Csd_Gen_Utility_Pvt.ADD('in others exception ');
2904: END IF;
2905: END;
2906:
2907: IF l_order_header_id = 0
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,
2998: END;
2999:
3000: IF (g_debug > 0)
3001: THEN
3002: Csd_Gen_Utility_Pvt.ADD('Creating the Sales Order');
3003: Csd_Gen_Utility_Pvt.ADD('l_incident_id =' || l_incident_id);
3004: Csd_Gen_Utility_Pvt.ADD('l_party_id =' || l_party_id);
3005: Csd_Gen_Utility_Pvt.ADD('l_account_id =' || l_account_id);
3006: END IF;
2999:
3000: IF (g_debug > 0)
3001: THEN
3002: Csd_Gen_Utility_Pvt.ADD('Creating the Sales Order');
3003: Csd_Gen_Utility_Pvt.ADD('l_incident_id =' || l_incident_id);
3004: Csd_Gen_Utility_Pvt.ADD('l_party_id =' || l_party_id);
3005: Csd_Gen_Utility_Pvt.ADD('l_account_id =' || l_account_id);
3006: END IF;
3007:
3000: IF (g_debug > 0)
3001: THEN
3002: Csd_Gen_Utility_Pvt.ADD('Creating the Sales Order');
3003: Csd_Gen_Utility_Pvt.ADD('l_incident_id =' || l_incident_id);
3004: Csd_Gen_Utility_Pvt.ADD('l_party_id =' || l_party_id);
3005: Csd_Gen_Utility_Pvt.ADD('l_account_id =' || l_account_id);
3006: END IF;
3007:
3008: Cs_Charge_Create_Order_Pub.Submit_Order(p_api_version => 1.0,
3001: THEN
3002: Csd_Gen_Utility_Pvt.ADD('Creating the Sales Order');
3003: Csd_Gen_Utility_Pvt.ADD('l_incident_id =' || l_incident_id);
3004: Csd_Gen_Utility_Pvt.ADD('l_party_id =' || l_party_id);
3005: Csd_Gen_Utility_Pvt.ADD('l_account_id =' || l_account_id);
3006: END IF;
3007:
3008: Cs_Charge_Create_Order_Pub.Submit_Order(p_api_version => 1.0,
3009: p_init_msg_list => 'T',
3036: Fnd_Message.SET_NAME('CSD', 'CSD_EST_NOT_INTERFACED');
3037: Fnd_Msg_Pub.ADD;
3038: IF (g_debug > 0)
3039: THEN
3040: Csd_Gen_Utility_Pvt.ADD('Estimate not interfaced to OM ');
3041: END IF;
3042: END;
3043:
3044: -- Standard check of p_commit.
5678: END IF;
5679:
5680: -- IF (g_debug >= 5)
5681: -- THEN
5682: -- Csd_Gen_Utility_Pvt.dump_mle_lines_tbl_type(l_material_lines_tbl);
5683: -- END IF;
5684:
5685: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
5686: THEN
5714: x_warning_flag => l_warning_flag);
5715:
5716: -- IF (g_debug >= 5)
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
5769: END IF;
5770:
5771: -- IF (g_debug >= 5)
5772: -- THEN
5773: -- Csd_Gen_Utility_Pvt.dump_mle_lines_tbl_type(l_labor_lines_tbl);
5774: -- END IF;
5775:
5776: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
5777: THEN
5803: x_warning_flag => l_warning_flag);
5804:
5805: -- IF (g_debug >= 5)
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
6776: PROCEDURE debug(msg VARCHAR2) IS
6777: BEGIN
6778: IF (G_DEBUG_LEVEL >= 0)
6779: THEN
6780: Csd_Gen_Utility_Pvt.ADD(msg);
6781: --DBMS_OUTPUT.PUT_LINE(msg);
6782: END IF;
6783: END DEBUG;
6784: