[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';
86:
87: -- Api body starts
88: IF (g_debug > 0)
89: THEN
90: Csd_Gen_Utility_Pvt.dump_api_info(p_pkg_name => G_PKG_NAME,
91: p_api_name => l_api_name);
92: END IF;
93: IF (g_debug > 0)
94: THEN
91: p_api_name => l_api_name);
92: END IF;
93: IF (g_debug > 0)
94: THEN
95: Csd_Gen_Utility_Pvt.ADD('p_action =' || p_action);
96: END IF;
97:
98: -- Based on the action, call the respective charges public api to
99: -- to create/update/delete the charge lines.
101: THEN
102:
103: IF (g_debug > 0)
104: THEN
105: Csd_Gen_Utility_Pvt.ADD('Creating the charge lines ');
106: END IF;
107:
108: Cs_Charge_Details_Pub.Create_Charge_Details(p_api_version => p_api_version,
109: p_init_msg_list => p_init_msg_list,
123: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
124: THEN
125: IF (g_debug > 0)
126: THEN
127: Csd_Gen_Utility_Pvt.ADD('Create_Charge_Details failed ');
128: END IF;
129:
130: RAISE Fnd_Api.G_EXC_ERROR;
131: END IF;
136: THEN
137:
138: IF (g_debug > 0)
139: THEN
140: Csd_Gen_Utility_Pvt.ADD('l_Charges_Rec.estimate_detail_id =' ||
141: x_Charges_Rec.estimate_detail_id);
142: END IF;
143:
144: IF (g_debug > 0)
142: END IF;
143:
144: IF (g_debug > 0)
145: THEN
146: Csd_Gen_Utility_Pvt.ADD('Updating the charge lines ');
147: END IF;
148:
149: IF (g_debug > 0)
150: THEN
147: END IF;
148:
149: IF (g_debug > 0)
150: THEN
151: Csd_Gen_Utility_Pvt.ADD('Estimate Detail Id = ' ||
152: x_Charges_Rec.estimate_detail_id);
153: Csd_Gen_Utility_Pvt.ADD('x_Charges_Rec.business_process_id=' ||
154: x_Charges_Rec.business_process_id);
155: END IF;
149: IF (g_debug > 0)
150: THEN
151: Csd_Gen_Utility_Pvt.ADD('Estimate Detail Id = ' ||
152: x_Charges_Rec.estimate_detail_id);
153: Csd_Gen_Utility_Pvt.ADD('x_Charges_Rec.business_process_id=' ||
154: x_Charges_Rec.business_process_id);
155: END IF;
156:
157: IF ((NVL(x_Charges_Rec.business_process_id, Fnd_Api.G_MISS_NUM) =
167: EXCEPTION
168: WHEN NO_DATA_FOUND THEN
169: IF (g_debug > 0)
170: THEN
171: Csd_Gen_Utility_Pvt.ADD('No Business business_process_id');
172: END IF;
173: RAISE Fnd_Api.G_EXC_ERROR;
174: WHEN TOO_MANY_ROWS THEN
175: IF (g_debug > 0)
173: RAISE Fnd_Api.G_EXC_ERROR;
174: WHEN TOO_MANY_ROWS THEN
175: IF (g_debug > 0)
176: THEN
177: Csd_Gen_Utility_Pvt.ADD('Too many business_process_id');
178: END IF;
179: RAISE Fnd_Api.G_EXC_ERROR;
180: END;
181: END IF;
181: END IF;
182:
183: IF (g_debug > 0)
184: THEN
185: Csd_Gen_Utility_Pvt.ADD('x_Charges_Rec.business_process_id=' ||
186: x_Charges_Rec.business_process_id);
187: END IF;
188:
189: Cs_Charge_Details_Pub.Update_Charge_Details(p_api_version => p_api_version,
201: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
202: THEN
203: IF (g_debug > 0)
204: THEN
205: Csd_Gen_Utility_Pvt.ADD('update_charge_details failed');
206: END IF;
207:
208: RAISE Fnd_Api.G_EXC_ERROR;
209: END IF;
212: THEN
213:
214: IF (g_debug > 0)
215: THEN
216: Csd_Gen_Utility_Pvt.ADD('l_estimate_detail_id =' ||
217: l_estimate_detail_id);
218: END IF;
219:
220: IF (g_debug > 0)
218: END IF;
219:
220: IF (g_debug > 0)
221: THEN
222: Csd_Gen_Utility_Pvt.ADD('Deleting the charge lines ');
223: END IF;
224:
225: l_estimate_detail_id := x_charges_rec.estimate_detail_id;
226:
238: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
239: THEN
240: IF (g_debug > 0)
241: THEN
242: Csd_Gen_Utility_Pvt.ADD('Delete_Charge_Details failed ');
243: END IF;
244:
245: RAISE Fnd_Api.G_EXC_ERROR;
246: END IF;
247:
248: ELSE
249: IF (g_debug > 0)
250: THEN
251: Csd_Gen_Utility_Pvt.ADD('Invalid action is passed ');
252: END IF;
253:
254: Fnd_Message.SET_NAME('CSD', 'CSD_INVALID_ACTION');
255: Fnd_Message.SET_TOKEN('ACTION', p_action);
322: BEGIN
323:
324: IF (g_debug > 0)
325: THEN
326: Csd_Gen_Utility_Pvt.ADD('Inside UPDATE_RO_GROUP_ESTIMATE Procedure p_repair_line_id =' ||
327: p_repair_line_id);
328: END IF;
329:
330: -- Standard Start of API savepoint
350:
351: -- Api body starts
352: IF (g_debug > 0)
353: THEN
354: Csd_Gen_Utility_Pvt.dump_api_info(p_pkg_name => G_PKG_NAME,
355: p_api_name => l_api_name);
356: END IF;
357: -- Check the required parameter
358: Csd_Process_Util.Check_Reqd_Param(p_param_value => p_repair_line_id,
360: p_api_name => l_api_name);
361:
362: IF (g_debug > 0)
363: THEN
364: Csd_Gen_Utility_Pvt.ADD('Validate repair line id');
365: END IF;
366:
367: -- Validate the repair line ID
368: IF NOT
416: EXCEPTION
417: WHEN OTHERS THEN
418: IF (g_debug > 0)
419: THEN
420: Csd_Gen_Utility_Pvt.ADD(' OTHERS l_tot_approved =' ||
421: l_tot_approved);
422: END IF;
423:
424: END;
433: EXCEPTION
434: WHEN OTHERS THEN
435: IF (g_debug > 0)
436: THEN
437: Csd_Gen_Utility_Pvt.ADD(' OTHERS l_tot_rejected =' ||
438: l_tot_rejected);
439: END IF;
440:
441: END;
449: EXCEPTION
450: WHEN OTHERS THEN
451: IF (g_debug > 0)
452: THEN
453: Csd_Gen_Utility_Pvt.ADD(' OTHERS l_tot_no_approval =' ||
454: l_tot_no_approval);
455: END IF;
456:
457: END;
457: END;
458:
459: IF (g_debug > 0)
460: THEN
461: Csd_Gen_Utility_Pvt.ADD('l_tot_approved =' ||
462: l_tot_approved);
463: END IF;
464:
465: IF (g_debug > 0)
463: END IF;
464:
465: IF (g_debug > 0)
466: THEN
467: Csd_Gen_Utility_Pvt.ADD('l_tot_rejected =' ||
468: l_tot_rejected);
469: END IF;
470:
471: IF (g_debug > 0)
469: END IF;
470:
471: IF (g_debug > 0)
472: THEN
473: Csd_Gen_Utility_Pvt.ADD('l_tot_no_approval =' ||
474: l_tot_no_approval);
475: END IF;
476:
477: -- total of approved/rejected repairs with approval required = Y and approval required = N
487: IF (NVL(l_group_quantity, 0) = NVL(l_tot_no_approval, 0))
488: THEN
489: IF (g_debug > 0)
490: THEN
491: Csd_Gen_Utility_Pvt.ADD('EST_NOT_REQD ');
492: END IF;
493:
494: l_rep_group_rec.group_approval_status := 'EST_NOT_REQD';
495: l_rep_group_rec.approved_quantity := NVL(l_tot_no_approval,
497: ELSIF (l_group_quantity > l_count)
498: THEN
499: IF (g_debug > 0)
500: THEN
501: Csd_Gen_Utility_Pvt.ADD('PARTIAL_APPRD ');
502: END IF;
503:
504: l_rep_group_rec.group_approval_status := 'PARTIAL_APPRD';
505: l_rep_group_rec.approved_quantity := NVL(l_tot_approved,
510: NVL(l_tot_approved, 0) + NVL(l_tot_no_approval, 0))
511: THEN
512: IF (g_debug > 0)
513: THEN
514: Csd_Gen_Utility_Pvt.ADD('APPROVED ');
515: END IF;
516:
517: l_rep_group_rec.group_approval_status := 'APPROVED';
518: l_rep_group_rec.approved_quantity := NVL(l_tot_approved,
522: ELSIF (l_group_quantity = NVL(l_tot_rejected, 0))
523: THEN
524: IF (g_debug > 0)
525: THEN
526: Csd_Gen_Utility_Pvt.ADD('REJECTED ');
527: END IF;
528:
529: l_rep_group_rec.group_approval_status := 'REJECTED';
530: l_rep_group_rec.approved_quantity := 0;
531: END IF;
532:
533: IF (g_debug > 0)
534: THEN
535: Csd_Gen_Utility_Pvt.ADD('CSD_REPAIR_ESTIMATE_PVT.UPDATE_RO_GROUP_ESTIMATE Update Group RO call');
536: END IF;
537:
538: Csd_Repair_Groups_Pvt.UPDATE_REPAIR_GROUPS(p_api_version => 1.0,
539: p_commit => 'F',
545: x_msg_data => l_msg_data);
546:
547: IF (g_debug > 0)
548: THEN
549: Csd_Gen_Utility_Pvt.ADD('CSD_REPAIR_ESTIMATE_PVT.UPDATE_RO_GROUP_ESTIMATE UPDATE_REPAIR_GROUPS :' ||
550: x_return_status);
551: END IF;
552:
553: IF l_return_status <> 'S'
650:
651: -- Api body starts
652: IF (g_debug > 0)
653: THEN
654: Csd_Gen_Utility_Pvt.dump_api_info(p_pkg_name => G_PKG_NAME,
655: p_api_name => l_api_name);
656: END IF;
657: -- Dump the in parameters in the log file
658: -- if the debug level > 5
658: -- if the debug level > 5
659: -- If fnd_profile.value('CSD_DEBUG_LEVEL') > 5 then
660: -- IF (g_debug > 5)
661: -- THEN
662: -- Csd_Gen_Utility_Pvt.dump_estimate_rec(p_estimate_rec => x_estimate_rec);
663: -- END IF;
664:
665: IF (g_debug > 0)
666: THEN
663: -- END IF;
664:
665: IF (g_debug > 0)
666: THEN
667: Csd_Gen_Utility_Pvt.ADD('Check reqd parameter');
668: END IF;
669:
670: -- Check the required parameter
671: Csd_Process_Util.Check_Reqd_Param(p_param_value => x_estimate_rec.repair_line_id,
700: p_api_name => l_api_name);
701:
702: IF (g_debug > 0)
703: THEN
704: Csd_Gen_Utility_Pvt.ADD('Validate repair line id');
705: END IF;
706:
707: -- Validate the repair line ID
708: IF NOT
712: END IF;
713:
714: IF (g_debug > 0)
715: THEN
716: Csd_Gen_Utility_Pvt.ADD('Check if there is only one estimate per repair order');
717: END IF;
718:
719: BEGIN
720: SELECT COUNT(*)
729: IF l_est_count > 0
730: THEN
731: IF (g_debug > 0)
732: THEN
733: Csd_Gen_Utility_Pvt.ADD('Estimate already exists for the repair line Id: ' ||
734: x_estimate_rec.repair_line_id);
735: END IF;
736:
737: Fnd_Message.SET_NAME('CSD', 'CSD_API_ESTIMATE_EXISTS');
742: END IF;
743:
744: IF (g_debug > 0)
745: THEN
746: Csd_Gen_Utility_Pvt.ADD('Validate the estimate status');
747: END IF;
748:
749: BEGIN
750: SELECT lookup_code
928:
929: -- Api body starts
930: IF (g_debug > 0)
931: THEN
932: Csd_Gen_Utility_Pvt.dump_api_info(p_pkg_name => G_PKG_NAME,
933: p_api_name => l_api_name);
934: END IF;
935: -- Dump the in parameters in the log file
936: -- if the debug level > 5
936: -- if the debug level > 5
937: --If fnd_profile.value('CSD_DEBUG_LEVEL') > 5 then
938: -- IF (g_debug > 5)
939: -- THEN
940: -- Csd_Gen_Utility_Pvt.dump_estimate_rec(p_estimate_rec => x_estimate_rec);
941: -- END IF;
942:
943: IF (g_debug > 0)
944: THEN
941: -- END IF;
942:
943: IF (g_debug > 0)
944: THEN
945: Csd_Gen_Utility_Pvt.ADD('Check reqd parameter: Repair Estimate Id');
946: END IF;
947:
948: IF (g_debug > 0)
949: THEN
946: END IF;
947:
948: IF (g_debug > 0)
949: THEN
950: Csd_Gen_Utility_Pvt.ADD('Repair Estimate Id =' ||
951: x_estimate_rec.repair_estimate_id);
952: END IF;
953:
954: -- Check the required parameter
983: l_obj_ver_num
984: THEN
985: IF (g_debug > 0)
986: THEN
987: Csd_Gen_Utility_Pvt.ADD('object version number does not match');
988: END IF;
989:
990: Fnd_Message.SET_NAME('CSD', 'CSD_OBJ_VER_MISMATCH');
991: Fnd_Message.SET_TOKEN('REPAIR_ESTIMATE_ID', l_estimate_id);
994: END IF;
995:
996: IF (g_debug > 0)
997: THEN
998: Csd_Gen_Utility_Pvt.ADD('Validate the estimate status');
999: END IF;
1000:
1001: BEGIN
1002: SELECT lookup_code
1027: */
1028:
1029: IF (g_debug > 0)
1030: THEN
1031: Csd_Gen_Utility_Pvt.ADD('l_approval_status =' ||
1032: l_approval_status);
1033: END IF;
1034:
1035: -- Estimate lines are allowed to update only
1038: -- IF NVL(l_approval_status,'Z') <> 'A' THEN
1039:
1040: IF (g_debug > 0)
1041: THEN
1042: Csd_Gen_Utility_Pvt.ADD('Calling CSD_REPAIR_ESTIMATE_PKG.Update_Row');
1043: END IF;
1044:
1045: Csd_Repair_Estimate_Pkg.Update_Row(p_REPAIR_ESTIMATE_ID => x_estimate_rec.repair_estimate_id,
1046: p_REPAIR_LINE_ID => x_estimate_rec.repair_line_id,
1185:
1186: -- Api body starts
1187: IF (g_debug > 0)
1188: THEN
1189: Csd_Gen_Utility_Pvt.dump_api_info(p_pkg_name => G_PKG_NAME,
1190: p_api_name => l_api_name);
1191: END IF;
1192: IF (g_debug > 0)
1193: THEN
1190: p_api_name => l_api_name);
1191: END IF;
1192: IF (g_debug > 0)
1193: THEN
1194: Csd_Gen_Utility_Pvt.ADD('Check reqd parameter: Estimate Id ');
1195: END IF;
1196:
1197: IF (g_debug > 0)
1198: THEN
1195: END IF;
1196:
1197: IF (g_debug > 0)
1198: THEN
1199: Csd_Gen_Utility_Pvt.ADD('Repair Estimate Id =' ||
1200: p_estimate_id);
1201: END IF;
1202:
1203: -- Check the required parameter
1206: p_api_name => l_api_name);
1207:
1208: IF (g_debug > 0)
1209: THEN
1210: Csd_Gen_Utility_Pvt.ADD('Validate repair estimate id');
1211: END IF;
1212:
1213: -- Validate the repair line ID
1214: IF NOT
1226: EXCEPTION
1227: WHEN NO_DATA_FOUND THEN
1228: IF (g_debug > 0)
1229: THEN
1230: Csd_Gen_Utility_Pvt.ADD('Estimate ID missing');
1231: END IF;
1232:
1233: Fnd_Message.SET_NAME('CSD', 'CSD_API_ESTIMATE_MISSING');
1234: Fnd_Message.SET_TOKEN('REPAIR_ESTIMATE_ID', p_estimate_id);
1249: IF l_est_line_count > 0
1250: THEN
1251: IF (g_debug > 0)
1252: THEN
1253: Csd_Gen_Utility_Pvt.ADD('Estimate Lines exists for this estimate');
1254: END IF;
1255:
1256: Fnd_Message.SET_NAME('CSD', 'CSD_ESTIMATE_LINE_EXISTS');
1257: Fnd_Message.SET_TOKEN('REPAIR_ESTIMATE_ID', p_estimate_id);
1262: IF NVL(l_approval_status, 'Z') <> 'A'
1263: THEN
1264: IF (g_debug > 0)
1265: THEN
1266: Csd_Gen_Utility_Pvt.ADD('Call CSD_REPAIR_ESTIMATE_PKG.Delete_Row');
1267: END IF;
1268:
1269: Csd_Repair_Estimate_Pkg.Delete_Row(p_REPAIR_ESTIMATE_ID => p_estimate_id);
1270: ELSE
1460:
1461: -- Api body starts
1462: IF (g_debug > 0)
1463: THEN
1464: Csd_Gen_Utility_Pvt.dump_api_info(p_pkg_name => G_PKG_NAME,
1465: p_api_name => l_api_name);
1466: END IF;
1467: -- Dump the in parameters in the log file
1468: -- if the debug level > 5
1468: -- if the debug level > 5
1469: -- If fnd_profile.value('CSD_DEBUG_LEVEL') > 5 then
1470: -- IF (g_debug > 5)
1471: -- THEN
1472: -- Csd_Gen_Utility_Pvt.dump_estimate_line_rec(p_estimate_line_rec => x_estimate_line_rec);
1473: -- END IF;
1474:
1475: IF (g_debug > 0)
1476: THEN
1473: -- END IF;
1474:
1475: IF (g_debug > 0)
1476: THEN
1477: Csd_Gen_Utility_Pvt.ADD('Check reqd parameter');
1478: END IF;
1479:
1480: IF (g_debug > 0)
1481: THEN
1478: END IF;
1479:
1480: IF (g_debug > 0)
1481: THEN
1482: Csd_Gen_Utility_Pvt.ADD('Repair Line ID =' ||
1483: x_estimate_line_rec.repair_line_id);
1484: END IF;
1485:
1486: IF (g_debug > 0)
1484: END IF;
1485:
1486: IF (g_debug > 0)
1487: THEN
1488: Csd_Gen_Utility_Pvt.ADD('txn_billing_type_id =' ||
1489: x_estimate_line_rec.txn_billing_type_id);
1490: END IF;
1491:
1492: -- Check the required parameter
1520: p_api_name => l_api_name);
1521:
1522: IF (g_debug > 0)
1523: THEN
1524: Csd_Gen_Utility_Pvt.ADD('Validate repair estimate id');
1525: END IF;
1526:
1527: -- Validate the repair line ID
1528: IF NOT
1532: END IF;
1533:
1534: IF (g_debug > 0)
1535: THEN
1536: Csd_Gen_Utility_Pvt.ADD('Validate repair line id');
1537: END IF;
1538:
1539: -- Validate the repair line ID
1540: IF NOT
1559: END;
1560:
1561: IF (g_debug > 0)
1562: THEN
1563: Csd_Gen_Utility_Pvt.ADD('l_incident_id =' || l_incident_id);
1564: END IF;
1565:
1566: -- Get the business process id
1567: -- Forward port bug fix# 2756313
1570: l_bus_process_id := Csd_Process_Util.GET_BUS_PROCESS(x_estimate_line_rec.repair_line_id);
1571:
1572: IF (g_debug > 0)
1573: THEN
1574: Csd_Gen_Utility_Pvt.ADD('l_bus_process_id =' ||
1575: l_bus_process_id);
1576: END IF;
1577:
1578: IF l_bus_process_id < 0
1583: l_bus_process_id := x_estimate_line_rec.business_process_id;
1584: ELSE
1585: IF (g_debug > 0)
1586: THEN
1587: Csd_Gen_Utility_Pvt.ADD('Business process does not exist ');
1588: END IF;
1589:
1590: RAISE Fnd_Api.G_EXC_ERROR;
1591: END IF;
1592: END IF;
1593:
1594: /* contract information passed from form
1595: IF (g_debug > 0 ) THEN
1596: csd_gen_utility_pvt.ADD('Getting the Coverage and txn Group Id');
1597: END IF;
1598:
1599: IF (g_debug > 0 ) THEN
1600: csd_gen_utility_pvt.ADD('contract_line_id ='||x_estimate_line_rec.contract_id);
1596: csd_gen_utility_pvt.ADD('Getting the Coverage and txn Group Id');
1597: END IF;
1598:
1599: IF (g_debug > 0 ) THEN
1600: csd_gen_utility_pvt.ADD('contract_line_id ='||x_estimate_line_rec.contract_id);
1601: END IF;
1602:
1603:
1604: IF NVL(x_estimate_line_rec.contract_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1624: FND_MESSAGE.SET_NAME('CSD','CSD_API_CONTRACT_MISSING');
1625: FND_MESSAGE.SET_TOKEN('CONTRACT_LINE_ID',x_estimate_line_rec.contract_id);
1626: FND_MSG_PUB.ADD;
1627: IF (g_debug > 0 ) THEN
1628: csd_gen_utility_pvt.ADD('Contract Line Id missing');
1629: END IF;
1630:
1631: RAISE FND_API.G_EXC_ERROR;
1632: End;
1634: x_estimate_line_rec.coverage_id := l_coverage_id;
1635: x_estimate_line_rec.coverage_txn_group_id := l_txn_group_id;
1636:
1637: IF (g_debug > 0 ) THEN
1638: csd_gen_utility_pvt.ADD('l_coverage_id ='||l_coverage_id);
1639: END IF;
1640:
1641: IF (g_debug > 0 ) THEN
1642: csd_gen_utility_pvt.ADD('l_txn_group_id ='||l_txn_group_id);
1638: csd_gen_utility_pvt.ADD('l_coverage_id ='||l_coverage_id);
1639: END IF;
1640:
1641: IF (g_debug > 0 ) THEN
1642: csd_gen_utility_pvt.ADD('l_txn_group_id ='||l_txn_group_id);
1643: END IF;
1644:
1645:
1646: End If;
1668: END IF;
1669:
1670: IF (g_debug > 0)
1671: THEN
1672: Csd_Gen_Utility_Pvt.ADD('l_party_id =' || l_party_id);
1673: END IF;
1674:
1675: IF (g_debug > 0)
1676: THEN
1673: END IF;
1674:
1675: IF (g_debug > 0)
1676: THEN
1677: Csd_Gen_Utility_Pvt.ADD('l_account_id =' || l_account_id);
1678: END IF;
1679:
1680: IF (g_debug > 0)
1681: THEN
1678: END IF;
1679:
1680: IF (g_debug > 0)
1681: THEN
1682: Csd_Gen_Utility_Pvt.ADD('x_estimate_line_rec.txn_billing_type_id =' ||
1683: x_estimate_line_rec.txn_billing_type_id);
1684: END IF;
1685:
1686: IF (g_debug > 0)
1684: END IF;
1685:
1686: IF (g_debug > 0)
1687: THEN
1688: Csd_Gen_Utility_Pvt.ADD('x_estimate_line_rec.organization_id =' ||
1689: x_estimate_line_rec.organization_id);
1690: END IF;
1691:
1692: -- Derive the txn_billing type and line category code
1708: END IF;
1709:
1710: IF (g_debug > 0)
1711: THEN
1712: Csd_Gen_Utility_Pvt.ADD('l_line_type_id =' ||
1713: l_line_type_id);
1714: END IF;
1715:
1716: IF (g_debug > 0)
1714: END IF;
1715:
1716: IF (g_debug > 0)
1717: THEN
1718: Csd_Gen_Utility_Pvt.ADD('l_line_category_code =' ||
1719: l_line_category_code);
1720: END IF;
1721:
1722: IF (g_debug > 0)
1720: END IF;
1721:
1722: IF (g_debug > 0)
1723: THEN
1724: Csd_Gen_Utility_Pvt.ADD('x_estimate_line_rec.price_list_id =' ||
1725: x_estimate_line_rec.price_list_id);
1726: END IF;
1727:
1728: -- If line_type_id Or line_category_code is null
1757: END IF;
1758:
1759: IF (g_debug > 0)
1760: THEN
1761: Csd_Gen_Utility_Pvt.ADD('l_curr_code =' || l_curr_code);
1762: END IF;
1763:
1764: -- If l_curr_code is null then raise error
1765: IF l_curr_code IS NULL
1775: -- Commented for bug# 2857134 (forward port bugfix from 11.5.8)
1776: --
1777: -- IF NVL(x_estimate_line_rec.item_cost,FND_API.G_MISS_NUM)= FND_API.G_MISS_NUM THEN
1778: --IF (g_debug > 0 ) THEN
1779: -- csd_gen_utility_pvt.ADD('Get item cost' );
1780: --END IF;
1781: --
1782: --
1783: -- BEGIN
1792: --
1793: -- EXCEPTION
1794: -- WHEN NO_DATA_FOUND THEN
1795: --IF (g_debug > 0 ) THEN
1796: -- csd_gen_utility_pvt.ADD('Could not get item cost' );
1797: --END IF;
1798: --
1799: -- FND_MESSAGE.SET_NAME('CSD','CSD_ITEM_COST_MISSING');
1800: -- FND_MSG_PUB.ADD;
1816: --x_estimate_line_rec.apply_contract_discount := ;
1817:
1818: IF (g_debug > 0)
1819: THEN
1820: Csd_Gen_Utility_Pvt.ADD('Convert estimate line rec to charges rec');
1821: END IF;
1822:
1823: -- always create estimate lines with interface to OE flag as 'N'
1824: x_estimate_line_rec.interface_to_om_flag := 'N';
1835: END IF;
1836:
1837: IF (g_debug > 0)
1838: THEN
1839: Csd_Gen_Utility_Pvt.ADD('Call process_estimate_lines to create charge lines ');
1840: END IF;
1841:
1842: process_estimate_lines(p_api_version => 1.0,
1843: p_commit => Fnd_Api.g_false,
1855: END IF;
1856:
1857: IF (g_debug > 0)
1858: THEN
1859: Csd_Gen_Utility_Pvt.ADD('NEW ESTIMATE DETAIL ID =' ||
1860: l_Charges_Rec.estimate_detail_id);
1861: END IF;
1862:
1863: IF (g_debug > 0)
1861: END IF;
1862:
1863: IF (g_debug > 0)
1864: THEN
1865: Csd_Gen_Utility_Pvt.ADD('Call csd_repair_estimate_lines_pkg.insert_row to create repair estimate lines ');
1866: END IF;
1867:
1868: -- travi forward port Bug # 2789754 fix added override_charge_flag
1869: Csd_Repair_Estimate_Lines_Pkg.Insert_Row(px_REPAIR_ESTIMATE_LINE_ID => x_estimate_line_rec.repair_estimate_line_id,
2011:
2012: -- Api body starts
2013: IF (g_debug > 0)
2014: THEN
2015: Csd_Gen_Utility_Pvt.dump_api_info(p_pkg_name => G_PKG_NAME,
2016: p_api_name => l_api_name);
2017: END IF;
2018: -- Dump the in parameters in the log file
2019: -- if the debug level > 5
2019: -- if the debug level > 5
2020: -- If fnd_profile.value('CSD_DEBUG_LEVEL') > 5 then
2021: -- IF (g_debug > 5)
2022: -- THEN
2023: -- Csd_Gen_Utility_Pvt.dump_estimate_line_rec(p_estimate_line_rec => x_estimate_line_rec);
2024: -- END IF;
2025:
2026: IF (g_debug > 0)
2027: THEN
2024: -- END IF;
2025:
2026: IF (g_debug > 0)
2027: THEN
2028: Csd_Gen_Utility_Pvt.ADD('Check reqd parameter: Repair Estimate Line id');
2029: END IF;
2030:
2031: IF (g_debug > 0)
2032: THEN
2029: END IF;
2030:
2031: IF (g_debug > 0)
2032: THEN
2033: Csd_Gen_Utility_Pvt.ADD('Repair Estimate Line Id =' ||
2034: x_estimate_line_rec.repair_estimate_line_id);
2035: END IF;
2036:
2037: -- Check the required parameter
2040: p_api_name => l_api_name);
2041:
2042: IF (g_debug > 0)
2043: THEN
2044: Csd_Gen_Utility_Pvt.ADD('Validate Estimate Line Id');
2045: END IF;
2046:
2047: -- Validate the repair line ID
2048: IF NOT
2065: Fnd_Api.G_MISS_NUM) <> l_obj_ver_num
2066: THEN
2067: IF (g_debug > 0)
2068: THEN
2069: Csd_Gen_Utility_Pvt.ADD('object version number does not match');
2070: END IF;
2071:
2072: Fnd_Message.SET_NAME('CSD', 'CSD_OBJ_VER_MISMATCH');
2073: Fnd_Message.SET_TOKEN('REPAIR_ESTIMATE_LINE_ID',
2082: IF x_estimate_line_rec.estimate_detail_id <> l_est_detail_id
2083: THEN
2084: IF (g_debug > 0)
2085: THEN
2086: Csd_Gen_Utility_Pvt.ADD('The estimate detail id cannot to changed');
2087: END IF;
2088:
2089: RAISE Fnd_Api.G_EXC_ERROR;
2090: END IF;
2098: IF x_estimate_line_rec.repair_line_id <> l_repair_line_id
2099: THEN
2100: IF (g_debug > 0)
2101: THEN
2102: Csd_Gen_Utility_Pvt.ADD('The repair line id cannot to changed');
2103: END IF;
2104:
2105: RAISE Fnd_Api.G_EXC_ERROR;
2106: END IF;
2123: /* contract information passed from form
2124: IF NVL(x_estimate_line_rec.contract_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
2125:
2126: IF (g_debug > 0 ) THEN
2127: csd_gen_utility_pvt.ADD('Getting the Coverage and txn Group Id');
2128: END IF;
2129:
2130: IF (g_debug > 0 ) THEN
2131: csd_gen_utility_pvt.ADD('contract_line_id ='||x_estimate_line_rec.contract_id);
2127: csd_gen_utility_pvt.ADD('Getting the Coverage and txn Group Id');
2128: END IF;
2129:
2130: IF (g_debug > 0 ) THEN
2131: csd_gen_utility_pvt.ADD('contract_line_id ='||x_estimate_line_rec.contract_id);
2132: END IF;
2133:
2134: IF (g_debug > 0 ) THEN
2135: csd_gen_utility_pvt.ADD('l_bus_process_id ='||l_bus_process_id);
2131: csd_gen_utility_pvt.ADD('contract_line_id ='||x_estimate_line_rec.contract_id);
2132: END IF;
2133:
2134: IF (g_debug > 0 ) THEN
2135: csd_gen_utility_pvt.ADD('l_bus_process_id ='||l_bus_process_id);
2136: END IF;
2137:
2138:
2139: Begin
2154: FND_MESSAGE.SET_NAME('CSD','CSD_API_CONTRACT_MISSING');
2155: FND_MESSAGE.SET_TOKEN('CONTRACT_LINE_ID',x_estimate_line_rec.contract_id);
2156: FND_MSG_PUB.ADD;
2157: IF (g_debug > 0 ) THEN
2158: csd_gen_utility_pvt.ADD('Contract Line Id missing');
2159: END IF;
2160:
2161: RAISE FND_API.G_EXC_ERROR;
2162: End;
2163:
2164: x_estimate_line_rec.coverage_id := l_coverage_id;
2165: x_estimate_line_rec.coverage_txn_group_id := l_txn_group_id;
2166: IF (g_debug > 0 ) THEN
2167: csd_gen_utility_pvt.ADD('l_coverage_id ='||l_coverage_id);
2168: END IF;
2169:
2170: IF (g_debug > 0 ) THEN
2171: csd_gen_utility_pvt.ADD('l_txn_group_id ='||l_txn_group_id);
2167: csd_gen_utility_pvt.ADD('l_coverage_id ='||l_coverage_id);
2168: END IF;
2169:
2170: IF (g_debug > 0 ) THEN
2171: csd_gen_utility_pvt.ADD('l_txn_group_id ='||l_txn_group_id);
2172: END IF;
2173:
2174:
2175: End If;
2176: */
2177:
2178: IF (g_debug > 0)
2179: THEN
2180: Csd_Gen_Utility_Pvt.ADD('l_upd_charge_flag =' ||
2181: l_upd_charge_flag);
2182: END IF;
2183:
2184: IF x_estimate_line_rec.item_cost = 0
2184: IF x_estimate_line_rec.item_cost = 0
2185: THEN
2186: IF (g_debug > 0)
2187: THEN
2188: Csd_Gen_Utility_Pvt.ADD('item cost is zero');
2189: END IF;
2190:
2191: x_estimate_line_rec.item_cost := NULL;
2192: END IF;
2198: THEN
2199:
2200: IF (g_debug > 0)
2201: THEN
2202: Csd_Gen_Utility_Pvt.ADD('Convert estimate to charges rec');
2203: END IF;
2204:
2205: Csd_Process_Util.CONVERT_EST_TO_CHG_REC(p_estimate_line_rec => x_estimate_line_rec,
2206: x_charges_rec => l_Charges_Rec,
2209: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
2210: THEN
2211: IF (g_debug > 0)
2212: THEN
2213: Csd_Gen_Utility_Pvt.ADD('csd_process_util.convert_to_chg_rec failed');
2214: END IF;
2215:
2216: RAISE Fnd_Api.G_EXC_ERROR;
2217: END IF;
2219: l_Charges_Rec.estimate_detail_id := l_est_detail_id;
2220:
2221: IF (g_debug > 0)
2222: THEN
2223: Csd_Gen_Utility_Pvt.ADD('Call process_estimate_lines to update charge lines ');
2224: END IF;
2225:
2226: IF (g_debug > 0)
2227: THEN
2224: END IF;
2225:
2226: IF (g_debug > 0)
2227: THEN
2228: Csd_Gen_Utility_Pvt.ADD('Estimate Detail Id = ' ||
2229: l_Charges_Rec.estimate_detail_id);
2230: END IF;
2231:
2232: process_estimate_lines(p_api_version => 1.0,
2242: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
2243: THEN
2244: IF (g_debug > 0)
2245: THEN
2246: Csd_Gen_Utility_Pvt.ADD('process_estimate_lines failed ');
2247: END IF;
2248:
2249: RAISE Fnd_Api.G_EXC_ERROR;
2250: END IF;
2252: END IF; -- end of update charge line
2253:
2254: IF (g_debug > 0)
2255: THEN
2256: Csd_Gen_Utility_Pvt.ADD('Call csd_repair_estimate_line_pkg.update_row to update the repair estimate');
2257: END IF;
2258:
2259: IF (g_debug > 0)
2260: THEN
2257: END IF;
2258:
2259: IF (g_debug > 0)
2260: THEN
2261: Csd_Gen_Utility_Pvt.ADD('x_estimate_line_rec.repair_estimate_line_id =' ||
2262: x_estimate_line_rec.repair_estimate_line_id);
2263: END IF;
2264:
2265: -- travi forward port Bug # 2789754 fix added override_charge_flag
2381:
2382: -- Api body starts
2383: IF (g_debug > 0)
2384: THEN
2385: Csd_Gen_Utility_Pvt.dump_api_info(p_pkg_name => G_PKG_NAME,
2386: p_api_name => l_api_name);
2387: END IF;
2388: IF (g_debug > 0)
2389: THEN
2386: p_api_name => l_api_name);
2387: END IF;
2388: IF (g_debug > 0)
2389: THEN
2390: Csd_Gen_Utility_Pvt.ADD('Check reqd parameter: Estimate Line Id ');
2391: END IF;
2392:
2393: IF (g_debug > 0)
2394: THEN
2391: END IF;
2392:
2393: IF (g_debug > 0)
2394: THEN
2395: Csd_Gen_Utility_Pvt.ADD('Repair Estimate Line Id =' ||
2396: p_estimate_line_id);
2397: END IF;
2398:
2399: -- Check the required parameter
2402: p_api_name => l_api_name);
2403:
2404: IF (g_debug > 0)
2405: THEN
2406: Csd_Gen_Utility_Pvt.ADD('Validate repair estimate line id');
2407: END IF;
2408:
2409: -- Validate the repair line ID
2410: IF NOT
2414: END IF;
2415:
2416: IF (g_debug > 0)
2417: THEN
2418: Csd_Gen_Utility_Pvt.ADD('check if rocord is allowed to delete');
2419: END IF;
2420:
2421: -- The estimate line is allowed to delete
2422: -- only if it is not interfaced
2432: WHEN NO_DATA_FOUND THEN
2433: l_delete_allow := 'N';
2434: IF (g_debug > 0)
2435: THEN
2436: Csd_Gen_Utility_Pvt.ADD('Estimate Line is interfaced,so it cannot be deleted');
2437: END IF;
2438:
2439: Fnd_Message.SET_NAME('CSD', 'CSD_API_DELETE_NOT_ALLOWED');
2440: Fnd_Message.SET_TOKEN('REPAIR_ESTIMATE_LINE_ID',
2444: END;
2445:
2446: IF (g_debug > 0)
2447: THEN
2448: Csd_Gen_Utility_Pvt.ADD('l_delete_allow =' ||
2449: l_delete_allow);
2450: END IF;
2451:
2452: IF (g_debug > 0)
2450: END IF;
2451:
2452: IF (g_debug > 0)
2453: THEN
2454: Csd_Gen_Utility_Pvt.ADD('Estimate Detail Id =' ||
2455: l_est_detail_id);
2456: END IF;
2457:
2458: IF l_delete_allow = 'Y'
2461: l_Charges_Rec.estimate_detail_id := l_est_detail_id;
2462:
2463: IF (g_debug > 0)
2464: THEN
2465: Csd_Gen_Utility_Pvt.ADD('Call process_estimate_lines to delete');
2466: END IF;
2467:
2468: process_estimate_lines(p_api_version => 1.0,
2469: p_commit => Fnd_Api.g_false,
2481: END IF;
2482:
2483: IF (g_debug > 0)
2484: THEN
2485: Csd_Gen_Utility_Pvt.ADD('Call csd_product_transactions_pkg.Delete_Row');
2486: END IF;
2487:
2488: Csd_Repair_Estimate_Lines_Pkg.Delete_Row(p_REPAIR_ESTIMATE_LINE_ID => p_estimate_line_id);
2489:
2656: -- start of the concurrent submission
2657: l_printer_name := Fnd_Profile.value('CSD_PRINTER_NAME');
2658: IF (g_debug > 0)
2659: THEN
2660: Csd_Gen_Utility_Pvt.ADD('l_printer_name =' || l_printer_name);
2661: END IF;
2662: -- Check if the printer setup is required
2663: -- l_print_required := fnd_profile.value('CSD_EST_PRINTER_REQ');
2664: -- For bugfix 3398079. vkjain.
2665: -- The profile name was misspelt.
2666: l_print_required := Fnd_Profile.value('CSD_PRINTER_REQ');
2667: IF (g_debug > 0)
2668: THEN
2669: Csd_Gen_Utility_Pvt.ADD('l_print_required =' ||
2670: l_print_required);
2671: END IF;
2672: -- Check for the printer setup
2673: IF l_printer_name IS NOT NULL
2680: IF l_submit_status
2681: THEN
2682: IF (g_debug > 0)
2683: THEN
2684: Csd_Gen_Utility_Pvt.ADD('Set Print Option successfull');
2685: END IF;
2686: ELSE
2687: IF (g_debug > 0)
2688: THEN
2685: END IF;
2686: ELSE
2687: IF (g_debug > 0)
2688: THEN
2689: Csd_Gen_Utility_Pvt.ADD('Set Print Option Failed');
2690: END IF;
2691: Fnd_Message.SET_NAME('CSD', 'CSD_EST_PRINT_OPTION_ERROR');
2692: Fnd_Message.SET_TOKEN('REPAIR_LINE_ID', p_repair_line_id);
2693: Fnd_Msg_Pub.ADD;
2754: END IF;
2755: -- valase:6499519 above
2756: IF (g_debug > 0)
2757: THEN
2758: Csd_Gen_Utility_Pvt.ADD('Concurrent request Id =' ||
2759: TO_CHAR(l_request_id));
2760: END IF;
2761: IF (l_request_id <> 0)
2762: THEN
2884: WHEN OTHERS THEN
2885: l_add_to_same_order := FALSE;
2886: IF (g_debug > 0)
2887: THEN
2888: Csd_Gen_Utility_Pvt.ADD('in others exception ');
2889: END IF;
2890: END;
2891:
2892: ELSE
2910: EXCEPTION
2911: WHEN OTHERS THEN
2912: IF (g_debug > 0)
2913: THEN
2914: Csd_Gen_Utility_Pvt.ADD('in others exception ');
2915: END IF;
2916: END;
2917:
2918: IF l_order_header_id = 0
2971: l_est_line_rec.order_header_id := Fnd_Api.G_MISS_NUM;
2972: END IF;
2973: IF (g_debug > 0)
2974: THEN
2975: Csd_Gen_Utility_Pvt.ADD('Updating estimate lines with add to order flag for estimate_detail_id = ' ||
2976: est.estimate_detail_id);
2977: END IF;
2978:
2979: Csd_Process_Pvt.PROCESS_CHARGE_LINES(p_api_version => 1.0,
3009: END;
3010:
3011: IF (g_debug > 0)
3012: THEN
3013: Csd_Gen_Utility_Pvt.ADD('Creating the Sales Order');
3014: Csd_Gen_Utility_Pvt.ADD('l_incident_id =' || l_incident_id);
3015: Csd_Gen_Utility_Pvt.ADD('l_party_id =' || l_party_id);
3016: Csd_Gen_Utility_Pvt.ADD('l_account_id =' || l_account_id);
3017: END IF;
3010:
3011: IF (g_debug > 0)
3012: THEN
3013: Csd_Gen_Utility_Pvt.ADD('Creating the Sales Order');
3014: Csd_Gen_Utility_Pvt.ADD('l_incident_id =' || l_incident_id);
3015: Csd_Gen_Utility_Pvt.ADD('l_party_id =' || l_party_id);
3016: Csd_Gen_Utility_Pvt.ADD('l_account_id =' || l_account_id);
3017: END IF;
3018:
3011: IF (g_debug > 0)
3012: THEN
3013: Csd_Gen_Utility_Pvt.ADD('Creating the Sales Order');
3014: Csd_Gen_Utility_Pvt.ADD('l_incident_id =' || l_incident_id);
3015: Csd_Gen_Utility_Pvt.ADD('l_party_id =' || l_party_id);
3016: Csd_Gen_Utility_Pvt.ADD('l_account_id =' || l_account_id);
3017: END IF;
3018:
3019: Cs_Charge_Create_Order_Pub.Submit_Order(p_api_version => 1.0,
3012: THEN
3013: Csd_Gen_Utility_Pvt.ADD('Creating the Sales Order');
3014: Csd_Gen_Utility_Pvt.ADD('l_incident_id =' || l_incident_id);
3015: Csd_Gen_Utility_Pvt.ADD('l_party_id =' || l_party_id);
3016: Csd_Gen_Utility_Pvt.ADD('l_account_id =' || l_account_id);
3017: END IF;
3018:
3019: Cs_Charge_Create_Order_Pub.Submit_Order(p_api_version => 1.0,
3020: p_init_msg_list => 'T',
3047: Fnd_Message.SET_NAME('CSD', 'CSD_EST_NOT_INTERFACED');
3048: Fnd_Msg_Pub.ADD;
3049: IF (g_debug > 0)
3050: THEN
3051: Csd_Gen_Utility_Pvt.ADD('Estimate not interfaced to OM ');
3052: END IF;
3053: END;
3054:
3055: -- Standard check of p_commit.
5712: END IF;
5713:
5714: -- IF (g_debug >= 5)
5715: -- THEN
5716: -- Csd_Gen_Utility_Pvt.dump_mle_lines_tbl_type(l_material_lines_tbl);
5717: -- END IF;
5718:
5719: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
5720: THEN
5748: x_warning_flag => l_warning_flag);
5749:
5750: -- IF (g_debug >= 5)
5751: -- THEN
5752: -- Csd_Gen_Utility_Pvt.dump_repair_estimate_line_tbl(x_est_lines_tbl);
5753: -- END IF;
5754:
5755: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
5756: THEN
5803: END IF;
5804:
5805: -- IF (g_debug >= 5)
5806: -- THEN
5807: -- Csd_Gen_Utility_Pvt.dump_mle_lines_tbl_type(l_labor_lines_tbl);
5808: -- END IF;
5809:
5810: IF (Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level)
5811: THEN
5837: x_warning_flag => l_warning_flag);
5838:
5839: -- IF (g_debug >= 5)
5840: -- THEN
5841: -- Csd_Gen_Utility_Pvt.dump_repair_estimate_line_tbl(x_est_lines_tbl);
5842: -- END IF;
5843:
5844: IF NOT (x_return_status = Fnd_Api.G_RET_STS_SUCCESS)
5845: THEN
6810: PROCEDURE debug(msg VARCHAR2) IS
6811: BEGIN
6812: IF (G_DEBUG_LEVEL >= 0)
6813: THEN
6814: Csd_Gen_Utility_Pvt.ADD(msg);
6815: --DBMS_OUTPUT.PUT_LINE(msg);
6816: END IF;
6817: END DEBUG;
6818: