[Home] [Help]
1: PACKAGE BODY CSD_REPAIRS_GRP as
2: /* $Header: csdgdrab.pls 120.7.12010000.3 2010/05/06 01:28:00 takwong ship $ */
3: --
4: -- Package name : CSD_REPAIRS_GRP
5: -- Purpose : This package contains routines called by Repairs form.
1: PACKAGE BODY CSD_REPAIRS_GRP as
2: /* $Header: csdgdrab.pls 120.7.12010000.3 2010/05/06 01:28:00 takwong ship $ */
3: --
4: -- Package name : CSD_REPAIRS_GRP
5: -- Purpose : This package contains routines called by Repairs form.
6: -- History :
7: -- Version Date Name Description
8: -- 115.0 12/28/99 pkdas Created.
28: -- 115.28 08/06/02 saupadhy Default input parameters for procedures were made consistent in package specifica
29: -- -tion and body. To fix bug 2497692
30: -- NOTE :
31: --
32: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_REPAIRS_GRP';
33: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdgdrab.pls';
34: g_debug NUMBER := csd_gen_utility_pvt.g_debug_level;
35: --
36: PROCEDURE Create_Repair_Order(
142: --
143: -- API body
144: --
145: if (g_debug) > 0 then
146: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Create_Repair_Order before CSD_REPAIRS_UTIL.Convert_to_Repln_Rec_Type');
147: end if;
148: CSD_REPAIRS_UTIL.Convert_to_Repln_Rec_Type
149: (p_repair_number => p_repair_number,
150: p_incident_id => p_incident_id,
225: p_ro_warranty_status_code => p_ro_warranty_status_code,
226: x_Repln_Rec => l_Repln_Rec);
227: --
228: if (g_debug > 0) then
229: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Create_Repair_Order before CSD_REPAIRS_PVT.Create_Repair_Order');
230: end if;
231: -- travi fix to create call from RO not to validate for Group_id
232: l_Repln_Rec.REPAIR_GROUP_ID := null;
233:
406: --
407: -- API body
408: --
409: if (g_debug > 0 ) then
410: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Repair_Order before CSD_REPAIRS_UTIL.Convert_to_Repln_Rec_Type');
411: end if;
412: CSD_REPAIRS_UTIL.Convert_to_Repln_Rec_Type
413: (p_repair_number => p_repair_number,
414: p_incident_id => p_incident_id,
487: p_ro_warranty_status_code => p_ro_warranty_status_code,
488: x_Repln_Rec => l_Repln_Rec);
489: --
490: if (g_debug > 0) then
491: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Repair_Order before CSD_REPAIRS_PUB.Update_Repair_Order');
492: end if;
493: CSD_REPAIRS_PUB.Update_Repair_Order
494: (p_API_version_number => 1.0,
495: p_init_msg_list => p_init_msg_list,
577: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
578: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
579: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
580: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
581: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repairs_grp.update_approval_status';
582: --
583: l_api_name CONSTANT VARCHAR2(30) := 'Update_Approval_Status';
584: l_repln_rec CSD_REPAIRS_PUB.repln_rec_type;
585: l_repair_history_id number;
667: p_object_version_number := l_Repln_Rec.object_version_number;
668: END IF;
669: --
670: if (g_debug > 0) then
671: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Approval_Status before api CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write call');
672: end if;
673:
674: -- swai 11.5.10
675: -- check for event code before:
901:
902: end if;
903: --
904: if (g_debug > 0) then
905: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Status before CSD_REPAIRS_PVT.Update_Repair_Order');
906: end if;
907: CSD_REPAIRS_PVT.Update_Repair_Order
908: (p_API_version_number => 1.0,
909: p_init_msg_list => FND_API.G_TRUE,
915: x_msg_count => x_msg_count,
916: x_msg_data => x_msg_data
917: );
918: if (g_debug > 0) then
919: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Status after CSD_REPAIRS_PVT.Update_Repair_Order status : '||x_return_status);
920: end if;
921: --
922: -- Check return status from the above procedure call
923: IF not (x_return_status = FND_API.G_RET_STS_SUCCESS) then
931: */
932: -- travi 010902 change added if cond
933: --if p_new_status <> p_old_status then
934: if (g_debug > 0) then
935: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Status before CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write');
936: end if;
937:
938: CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write
939: (p_Api_Version_Number => 1.0 ,
1006: X_Msg_Count => x_msg_count,
1007: X_Msg_Data => x_msg_data
1008: );
1009: if (g_debug > 0) then
1010: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Status before CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write status : '||x_return_status);
1011: end if;
1012: --end if; -- only for changed status codes sangigup 3232547
1013: --
1014: -- Check return status from the above procedure call
1203: ----------------------------------
1204: -- API Body
1205: ----------------------------------
1206: if (g_debug > 0) then
1207: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Approval_Status convert repairs rec call');
1208: end if;
1209: CSD_REPAIRS_UTIL.Convert_to_Repln_Rec_Type
1210: (p_approval_status => l_approval_status,
1211: p_object_version_number => l_rep_ovn,
1211: p_object_version_number => l_rep_ovn,
1212: x_repln_rec => l_rep_ord_rec
1213: );
1214: if (g_debug > 0) then
1215: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Approval_Status Update repairs call');
1216: end if;
1217: CSD_REPAIRS_PVT.Update_Repair_Order
1218: (p_API_version_number => 1.0,
1219: p_init_msg_list => FND_API.G_TRUE,
1226: x_msg_data => x_msg_data
1227: );
1228:
1229: if (g_debug > 0) then
1230: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Approval_Status Update_Repair_Order :'||x_return_status);
1231: end if;
1232: -- Check return status from the update RO call
1233: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1234: if (g_debug > 0) then
1238: --ROLLBACK TO UPDATE_GRP_APPV_STATUS;
1239: --return;
1240: ELSIF (x_return_status = FND_API.G_RET_STS_SUCCESS) then
1241: if (g_debug > 0) then
1242: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Approval_Status Update RO hist call');
1243: end if;
1244: CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write
1245: (p_Api_Version_Number => 1.0 ,
1246: p_init_msg_list => 'F',
1329: l_rep_est_rec.repair_line_id := l_repair_line_id;
1330: l_rep_est_rec.object_version_number := l_est_ovn;
1331: l_rep_est_rec.estimate_status := l_estimate_status;
1332: if (g_debug > 0) then
1333: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Approval_Status Update RO estimate call');
1334: end if;
1335: csd_repair_estimate_pvt.update_repair_estimate
1336: (p_api_version => 1.0,
1337: p_commit => 'F',
1341: x_return_status => x_return_status,
1342: x_msg_count => l_msg_count,
1343: x_msg_data => l_msg_data);
1344: if (g_debug > 0) then
1345: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Approval_Status update_repair_estimate :'||x_return_status);
1346: end if;
1347: -- Check return status from the above procedure call
1348: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1349: if (g_debug > 0) then
1551: -- API Body
1552: ----------------------------------
1553:
1554: if (g_debug > 0) then
1555: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Reject_Status convert repairs rec call');
1556: end if;
1557: CSD_REPAIRS_UTIL.Convert_to_Repln_Rec_Type
1558: (p_approval_status => l_Reject_status,
1559: p_object_version_number => l_rep_ovn,
1559: p_object_version_number => l_rep_ovn,
1560: x_repln_rec => l_rep_ord_rec
1561: );
1562: if (g_debug > 0) then
1563: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Reject_Status Update repairs call');
1564: end if;
1565: CSD_REPAIRS_PVT.Update_Repair_Order
1566: (p_API_version_number => 1.0,
1567: p_init_msg_list => FND_API.G_TRUE,
1574: x_msg_data => x_msg_data
1575: );
1576:
1577: if (g_debug > 0) then
1578: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Reject_Status Update_Repair_Order :'||x_return_status);
1579: end if;
1580: -- Check return status from the update RO call
1581: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1582: if (g_debug > 0) then
1586: --ROLLBACK TO UPDATE_GRP_REJT_STATUS;
1587: --return;
1588: ELSIF (x_return_status = FND_API.G_RET_STS_SUCCESS) then
1589: if (g_debug > 0) then
1590: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Reject_Status Update RO hist call');
1591: end if;
1592: CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write
1593: (p_Api_Version_Number => 1.0 ,
1594: p_init_msg_list => 'F',
1660: X_Msg_Count => x_msg_count,
1661: X_Msg_Data => x_msg_data
1662: );
1663: if (g_debug > 0) then
1664: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Reject_Status Validate_And_Write :'||x_return_status);
1665: end if;
1666: -- Check return status from the above procedure call
1667: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1668: if (g_debug > 0) then
1677: l_rep_est_rec.repair_line_id := l_repair_line_id;
1678: l_rep_est_rec.object_version_number := l_est_ovn;
1679: l_rep_est_rec.estimate_status := l_estimate_status;
1680: if (g_debug > 0) then
1681: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Reject_Status Update RO estimate call');
1682: end if;
1683: csd_repair_estimate_pvt.update_repair_estimate
1684: (p_api_version => 1.0,
1685: p_commit => 'F',
1689: x_return_status => x_return_status,
1690: x_msg_count => l_msg_count,
1691: x_msg_data => l_msg_data);
1692: if (g_debug > 0) then
1693: csd_gen_utility_pvt.add('CSD_REPAIRS_GRP.Update_Group_Reject_Status update_repair_estimate :'||x_return_status);
1694: end if;
1695: -- Check return status from the above procedure call
1696: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1697: if (g_debug > 0) then
1758:
1759: --
1760: END Update_Group_Reject_Status;
1761:
1762: End CSD_REPAIRS_GRP;