[Home] [Help]
249:
250: end write_cp_output;
251:
252: PROCEDURE create_internal_orders(p_api_version IN NUMBER,
253: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
254: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
255: p_repln_tbl IN csd_repairs_pub.repln_tbl_type,
256: p_repair_line_ids IN JTF_NUMBER_TABLE,
257: x_return_status OUT NOCOPY VARCHAR2,
250: end write_cp_output;
251:
252: PROCEDURE create_internal_orders(p_api_version IN NUMBER,
253: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
254: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
255: p_repln_tbl IN csd_repairs_pub.repln_tbl_type,
256: p_repair_line_ids IN JTF_NUMBER_TABLE,
257: x_return_status OUT NOCOPY VARCHAR2,
258: x_msg_count OUT NOCOPY NUMBER,
297: 'Begin');
298: END IF;
299:
300: -- standard check for API compatibility.
301: IF NOT Fnd_Api.Compatible_API_Call
302: (lc_api_version,
303: p_api_version,
304: lc_api_name,
305: G_PKG_NAME)
303: p_api_version,
304: lc_api_name,
305: G_PKG_NAME)
306: THEN
307: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
308: END IF;
309:
310: IF fnd_api.to_boolean(p_init_msg_list)
311: THEN
306: THEN
307: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
308: END IF;
309:
310: IF fnd_api.to_boolean(p_init_msg_list)
311: THEN
312: fnd_msg_pub.initialize;
313: END IF;
314:
312: fnd_msg_pub.initialize;
313: END IF;
314:
315: --
316: x_return_status := fnd_api.g_ret_sts_success;
317: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
318: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_api_name,
319: 'Looping through repair line tbl: Count = '||p_repln_tbl.COUNT);
320: END IF;
335: THEN
336: l_rule_input_rec.repair_line_id := p_repair_line_ids(i);
337: CSD_RULES_ENGINE_PVT.GET_DEFAULT_VALUE_FROM_RULE (
338: p_api_version_number => 1.0,
339: p_init_msg_list => FND_API.G_TRUE,
340: p_commit => FND_API.G_TRUE,
341: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
342: p_entity_attribute_type => 'CSD_DEF_ENTITY_ATTR_RO',
343: p_entity_attribute_code => 'RMA_RCV_ORG',
336: l_rule_input_rec.repair_line_id := p_repair_line_ids(i);
337: CSD_RULES_ENGINE_PVT.GET_DEFAULT_VALUE_FROM_RULE (
338: p_api_version_number => 1.0,
339: p_init_msg_list => FND_API.G_TRUE,
340: p_commit => FND_API.G_TRUE,
341: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
342: p_entity_attribute_type => 'CSD_DEF_ENTITY_ATTR_RO',
343: p_entity_attribute_code => 'RMA_RCV_ORG',
344: p_rule_input_rec => l_rule_input_rec,
337: CSD_RULES_ENGINE_PVT.GET_DEFAULT_VALUE_FROM_RULE (
338: p_api_version_number => 1.0,
339: p_init_msg_list => FND_API.G_TRUE,
340: p_commit => FND_API.G_TRUE,
341: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
342: p_entity_attribute_type => 'CSD_DEF_ENTITY_ATTR_RO',
343: p_entity_attribute_code => 'RMA_RCV_ORG',
344: p_rule_input_rec => l_rule_input_rec,
345: x_default_value => l_dest_org,
355: IF l_dest_org IS NULL
356: THEN
357: csd_bulk_receive_util.write_to_conc_log(p_msg_count => 1,
358: p_msg_data => 'Defaulting rules for the receive into organization is not setup.. Exiting');
359: RAISE fnd_api.g_exc_error;
360: ELSE
361: l_destn_org_tbl(p_repln_tbl(i).inventory_item_id) := l_dest_org;
362: END IF;
363:
504: );
505:
506: IF retcode = 2
507: THEN
508: RAISE fnd_api.g_exc_error;
509: END IF;
510: -- update the values for the other product transaction lines also.
511: FOR i IN (SELECT req_header_id,req_line_id,order_header_id,order_line_id,inventory_item_id,delivery_detail_id
512: FROM csd_product_transactions
519: AND req_header_id IS NULL;
520: END LOOP;
521:
522: EXCEPTION
523: WHEN fnd_api.g_exc_error THEN
524: csd_bulk_receive_util.write_to_conc_log(p_msg_count => x_msg_count,
525: p_msg_data => x_msg_data);
526: END create_internal_orders;
527:
697: /* orders. The procedure treats each logical action as a seperate*/
698: /* transaction. */
699: /******************************************************************************/
700: PROCEDURE mass_update_repair_orders(p_api_version IN NUMBER DEFAULT 1.0,
701: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
702: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
703: p_repair_line_ids IN JTF_NUMBER_TABLE,
704: p_from_ro_status IN JTF_NUMBER_TABLE,
705: p_orig_ro_type_ids IN JTF_NUMBER_TABLE,
698: /* transaction. */
699: /******************************************************************************/
700: PROCEDURE mass_update_repair_orders(p_api_version IN NUMBER DEFAULT 1.0,
701: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
702: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
703: p_repair_line_ids IN JTF_NUMBER_TABLE,
704: p_from_ro_status IN JTF_NUMBER_TABLE,
705: p_orig_ro_type_ids IN JTF_NUMBER_TABLE,
706: p_ro_obj_ver_nos IN JTF_NUMBER_TABLE,
750: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, l_api_name,
751: 'Begin mass update API');
752: END IF;
753: -- standard check for API compatibility.
754: IF NOT Fnd_Api.Compatible_API_Call
755: (l_api_version_number,
756: p_api_version,
757: l_api_name,
758: G_PKG_NAME)
756: p_api_version,
757: l_api_name,
758: G_PKG_NAME)
759: THEN
760: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
761: END IF;
762:
763: IF Fnd_Api.to_Boolean(p_init_msg_list)
764: THEN
759: THEN
760: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
761: END IF;
762:
763: IF Fnd_Api.to_Boolean(p_init_msg_list)
764: THEN
765: Fnd_Msg_Pub.initialize;
766: END IF;
767:
849: csd_repairs_pvt.update_flow_status
850: ( p_api_version => 1.0,
851: p_commit => p_commit,
852: p_init_msg_list => p_init_msg_list,
853: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
854: x_return_status => x_return_status,
855: x_msg_count => x_msg_count,
856: x_msg_data => x_msg_Data,
857: p_repair_line_id => p_repair_line_ids(j),
864: p_object_version_number => l_repobj_ver(j),
865: x_object_version_number => x_object_version_number
866: );
867:
868: if x_return_status <> fnd_api.g_ret_sts_success then
869: prepare_error_message_table(l_error_messages_tbl,
870: x_msg_count,
871: x_msg_data,
872: 'FLOW_STATUS',
870: x_msg_count,
871: x_msg_data,
872: 'FLOW_STATUS',
873: p_repair_line_ids(j));
874: raise fnd_api.g_exc_error;
875: end if;
876:
877: l_repobj_ver(j) := x_object_version_number;
878: exception
875: end if;
876:
877: l_repobj_ver(j) := x_object_version_number;
878: exception
879: when fnd_api.g_exc_error then
880: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
881: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, l_api_name,
882: 'Error in update flow status API:'||x_msg_data);
883: END IF;
913: else
914: -- update the repair type.
915: begin
916: savepoint update_repair_type;
917: x_return_status := FND_API.G_RET_STS_SUCCESS;
918: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
919: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, l_api_name,
920: 'Call update repair type API to update the status');
921: END IF;
923: csd_repairs_pvt.update_repair_type
924: ( p_api_version => 1.0,
925: p_commit => p_commit,
926: p_init_msg_list => p_init_msg_list,
927: p_validation_level => fnd_api.g_valid_level_full,
928: x_return_status => x_return_status,
929: x_msg_count => x_msg_count,
930: x_msg_data => x_msg_data,
931: p_repair_line_id => p_repair_line_ids(j),
935: p_reason_code => null,
936: p_object_Version_number => l_repobj_ver(j),
937: x_object_version_number => x_object_version_number);
938:
939: if x_return_status <> fnd_api.g_ret_sts_success then
940: prepare_error_message_table(l_error_messages_tbl,
941: x_msg_count,
942: x_msg_data,
943: 'REPAIR_TYPE',
941: x_msg_count,
942: x_msg_data,
943: 'REPAIR_TYPE',
944: p_repair_line_ids(j));
945: raise fnd_api.g_exc_error;
946: end if;
947:
948: l_repobj_ver(j) := x_object_version_number;
949: exception
946: end if;
947:
948: l_repobj_ver(j) := x_object_version_number;
949: exception
950: when fnd_api.g_exc_error then
951: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
952: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, l_api_name,
953: 'Error in update repair type API:'||x_msg_data||' message count'||x_msg_count);
954: END IF;
968:
969: -- update the remaining fields.
970: -- these can be updated by calling update_repair_order API.
971: --l_repln_rec_tbl(j).repair_line_id := p_repair_line_ids(j);
972: x_return_status := FND_API.G_RET_STS_SUCCESS;
973:
974: l_repln_rec_tbl(j).object_version_number := l_repobj_ver(j);
975:
976: if p_ro_owner_id is not null then
1014: csd_repairs_pvt.update_repair_order
1015: (p_api_version_number => 1.0,
1016: p_init_msg_list => p_init_msg_list,
1017: p_commit => p_commit,
1018: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1019: p_repair_line_id => p_repair_line_ids(k),
1020: p_repln_rec => l_repln_rec_tbl(k),
1021: x_return_status => x_return_Status,
1022: x_msg_count => x_msg_count,
1021: x_return_status => x_return_Status,
1022: x_msg_count => x_msg_count,
1023: x_msg_data => x_msg_data);
1024:
1025: if x_return_status <> fnd_api.g_ret_sts_success then
1026: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
1027: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, l_api_name,
1028: 'Return status from update_repair_order '||x_return_status);
1029: END IF;
1031: x_msg_count,
1032: x_msg_data,
1033: 'OTHER_ATTRIBUTES',
1034: p_repair_line_ids(k));
1035: raise fnd_api.g_exc_error;
1036: end if;
1037: exception
1038: when fnd_api.g_exc_error then
1039: rollback to update_repair_order;
1034: p_repair_line_ids(k));
1035: raise fnd_api.g_exc_error;
1036: end if;
1037: exception
1038: when fnd_api.g_exc_error then
1039: rollback to update_repair_order;
1040: end;
1041: end loop;
1042: end if;
1046: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
1047: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, l_api_name,
1048: 'Adding file type attachment');
1049: END IF;
1050: x_return_status := FND_API.G_RET_STS_SUCCESS;
1051:
1052: mass_create_attachments(p_api_version => 1.0,
1053: p_commit => p_commit,
1054: p_init_msg_list => p_init_msg_list,
1063: x_return_status => x_return_status,
1064: x_msg_count => x_msg_count,
1065: x_msg_data => x_msg_data
1066: );
1067: if x_return_status <> fnd_api.g_ret_sts_success then
1068: prepare_error_message_table(l_error_messages_tbl,
1069: x_msg_count,
1070: x_msg_data,
1071: 'ATTACHMENT',
1076: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
1077: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, l_api_name,
1078: 'Adding URL type attachment');
1079: END IF;
1080: x_return_status := FND_API.G_RET_STS_SUCCESS;
1081:
1082: mass_create_attachments(p_api_version => 1.0,
1083: p_commit => p_commit,
1084: p_init_msg_list => p_init_msg_list,
1091: x_return_status => x_return_status,
1092: x_msg_count => x_msg_count,
1093: x_msg_data => x_msg_data
1094: );
1095: if x_return_status <> fnd_api.g_ret_sts_success then
1096: prepare_error_message_table(l_error_messages_tbl,
1097: x_msg_count,
1098: x_msg_data,
1099: 'ATTACHMENT',
1103: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
1104: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, l_api_name,
1105: 'Adding Text type attachment');
1106: END IF;
1107: x_return_status := FND_API.G_RET_STS_SUCCESS;
1108:
1109: mass_create_attachments(p_api_version => 1.0,
1110: p_commit => p_commit,
1111: p_init_msg_list => p_init_msg_list,
1118: x_return_status => x_return_status,
1119: x_msg_count => x_msg_count,
1120: x_msg_data => x_msg_data
1121: );
1122: if x_return_status <> fnd_api.g_ret_sts_success then
1123: prepare_error_message_table(l_error_messages_tbl,
1124: x_msg_count,
1125: x_msg_data,
1126: 'ATTACHMENT',
1138: loop
1139:
1140: begin
1141: savepoint add_notes_to_ros;
1142: x_return_status := FND_API.G_RET_STS_SUCCESS;
1143: jtf_notes_pub.create_note
1144: ( p_api_version => 1.0,
1145: p_init_msg_list => p_init_msg_list,
1146: p_commit => p_commit,
1143: jtf_notes_pub.create_note
1144: ( p_api_version => 1.0,
1145: p_init_msg_list => p_init_msg_list,
1146: p_commit => p_commit,
1147: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1148: x_return_status => x_return_status,
1149: x_msg_count => x_msg_count,
1150: x_msg_data => x_msg_data,
1151: p_note_status => p_note_visibility,
1155: p_entered_date => sysdate,
1156: p_note_type => p_note_type,
1157: x_jtf_note_id => x_jtf_note_id
1158: );
1159: if x_return_status <> fnd_api.g_ret_sts_success then
1160: prepare_error_message_table(l_error_messages_tbl,
1161: x_msg_count,
1162: x_msg_data,
1163: 'NOTES',
1161: x_msg_count,
1162: x_msg_data,
1163: 'NOTES',
1164: p_repair_line_ids(l));
1165: raise fnd_api.g_exc_error;
1166: end if;
1167: exception
1168: when fnd_api.g_exc_error then
1169: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
1164: p_repair_line_ids(l));
1165: raise fnd_api.g_exc_error;
1166: end if;
1167: exception
1168: when fnd_api.g_exc_error then
1169: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
1170: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, l_api_name,
1171: 'Error while trying to create the note:'||x_msg_data);
1172: END IF;
1172: END IF;
1173: rollback to add_notes_to_ros;
1174: end;
1175: end loop;
1176: x_return_status := FND_API.G_RET_STS_SUCCESS;
1177: end if;
1178:
1179: EXCEPTION
1180: WHEN FND_API.G_EXC_ERROR THEN
1176: x_return_status := FND_API.G_RET_STS_SUCCESS;
1177: end if;
1178:
1179: EXCEPTION
1180: WHEN FND_API.G_EXC_ERROR THEN
1181: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
1182: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, l_api_name,
1183: 'Exc Error '||x_msg_data);
1184: END IF;
1197: /* Description: The api provides utility to create attachments for a set of */
1198: /* repair orders. The API gets called from mass_update_repair_orders */
1199: /******************************************************************************/
1200: PROCEDURE mass_create_attachments(p_api_version IN NUMBER DEFAULT 1.0,
1201: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1202: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1203: p_repair_line_ids IN JTF_NUMBER_TABLE,
1204: p_attach_type IN VARCHAR2,
1205: p_attach_cat_id IN NUMBER,
1198: /* repair orders. The API gets called from mass_update_repair_orders */
1199: /******************************************************************************/
1200: PROCEDURE mass_create_attachments(p_api_version IN NUMBER DEFAULT 1.0,
1201: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1202: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1203: p_repair_line_ids IN JTF_NUMBER_TABLE,
1204: p_attach_type IN VARCHAR2,
1205: p_attach_cat_id IN NUMBER,
1206: p_attach_descr IN VARCHAR2 DEFAULT NULL,
1239: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_api_name,
1240: 'Begin mass create API');
1241: END IF;
1242: -- standard check for API compatibility.
1243: IF NOT Fnd_Api.Compatible_API_Call
1244: (l_api_version_number,
1245: p_api_version,
1246: lc_api_name,
1247: G_PKG_NAME)
1245: p_api_version,
1246: lc_api_name,
1247: G_PKG_NAME)
1248: THEN
1249: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1250: END IF;
1251:
1252: IF Fnd_Api.to_Boolean(p_init_msg_list)
1253: THEN
1248: THEN
1249: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1250: END IF;
1251:
1252: IF Fnd_Api.to_Boolean(p_init_msg_list)
1253: THEN
1254: Fnd_Msg_Pub.initialize;
1255: END IF;
1256: x_return_status := FND_API.G_RET_STS_SUCCESS;
1252: IF Fnd_Api.to_Boolean(p_init_msg_list)
1253: THEN
1254: Fnd_Msg_Pub.initialize;
1255: END IF;
1256: x_return_status := FND_API.G_RET_STS_SUCCESS;
1257: l_data_type := CASE p_attach_type
1258: when 'FILE' then lc_data_type_file
1259: when 'URL' then lc_data_type_url
1260: when 'TEXT' then lc_data_type_short_text
1425: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
1426: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_api_name,
1427: 'In when others exception: SQLERRM '||SQLERRM);
1428: END IF;
1429: x_return_status := FND_API.G_RET_STS_ERROR;
1430: x_msg_count := 1;
1431: x_msg_data := SQLERRM;
1432: rollback to mass_create_attachments;
1433: raise;
1438: /* Description: This is a OAF wrapper for creation of SR and repair orders. */
1439: /* OAF can call this with multiple records too. */
1440: /******************************************************************************/
1441: PROCEDURE mass_create_repair_orders(p_api_version IN NUMBER DEFAULT 1.0,
1442: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1443: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1444: p_item_ids IN JTF_NUMBER_TABLE,
1445: p_serial_numbers IN JTF_VARCHAR2_TABLE_100,
1446: p_quantity IN JTF_NUMBER_TABLE,
1439: /* OAF can call this with multiple records too. */
1440: /******************************************************************************/
1441: PROCEDURE mass_create_repair_orders(p_api_version IN NUMBER DEFAULT 1.0,
1442: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1443: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1444: p_item_ids IN JTF_NUMBER_TABLE,
1445: p_serial_numbers IN JTF_VARCHAR2_TABLE_100,
1446: p_quantity IN JTF_NUMBER_TABLE,
1447: p_uom_code IN JTF_VARCHAR2_TABLE_100,
1476: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_api_name,
1477: 'Begin mass create repair orders API');
1478: END IF;
1479: -- standard check for API compatibility.
1480: IF NOT Fnd_Api.Compatible_API_Call
1481: (l_api_version_number,
1482: p_api_version,
1483: lc_api_name,
1484: G_PKG_NAME)
1482: p_api_version,
1483: lc_api_name,
1484: G_PKG_NAME)
1485: THEN
1486: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1487: END IF;
1488:
1489: IF Fnd_Api.to_Boolean(p_init_msg_list)
1490: THEN
1485: THEN
1486: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1487: END IF;
1488:
1489: IF Fnd_Api.to_Boolean(p_init_msg_list)
1490: THEN
1491: Fnd_Msg_Pub.initialize;
1492: END IF;
1493: x_return_status := FND_API.G_RET_STS_SUCCESS;
1489: IF Fnd_Api.to_Boolean(p_init_msg_list)
1490: THEN
1491: Fnd_Msg_Pub.initialize;
1492: END IF;
1493: x_return_status := FND_API.G_RET_STS_SUCCESS;
1494:
1495: -- this is wrapper around create_sr_repair_order API.
1496: -- we will prepare the SR and repair rec types and call the create_sr_repair_order
1497: -- api.
1512:
1513: -- call the API to process the repair orders.
1514: create_sr_repair_order
1515: (p_api_version => 1,
1516: p_init_msg_list => fnd_api.g_false,
1517: p_commit => fnd_api.g_false,
1518: p_sr_rec => l_sr_rec,
1519: p_repln_rec => l_repln_tbl(i),
1520: p_rev_ctrl_flag => p_rev_ctrl_flag(i),
1513: -- call the API to process the repair orders.
1514: create_sr_repair_order
1515: (p_api_version => 1,
1516: p_init_msg_list => fnd_api.g_false,
1517: p_commit => fnd_api.g_false,
1518: p_sr_rec => l_sr_rec,
1519: p_repln_rec => l_repln_tbl(i),
1520: p_rev_ctrl_flag => p_rev_ctrl_flag(i),
1521: p_serial_ctrl_flag => p_serial_ctrl_flag(i),
1535: end loop;
1536: IF NVL(fnd_profile.value('CSD_AUTO_CREATE_INT_ORDER'),'N') = 'Y'
1537: THEN
1538: create_internal_orders(p_api_version => 1.0,
1539: p_init_msg_list => fnd_api.g_true,
1540: p_commit => fnd_api.g_false,
1541: p_repln_tbl => l_repln_tbl,
1542: p_repair_line_ids => l_repair_line_ids,
1543: x_return_status => x_return_status,
1536: IF NVL(fnd_profile.value('CSD_AUTO_CREATE_INT_ORDER'),'N') = 'Y'
1537: THEN
1538: create_internal_orders(p_api_version => 1.0,
1539: p_init_msg_list => fnd_api.g_true,
1540: p_commit => fnd_api.g_false,
1541: p_repln_tbl => l_repln_tbl,
1542: p_repair_line_ids => l_repair_line_ids,
1543: x_return_status => x_return_status,
1544: x_msg_count => x_msg_count,
1682: end if;
1683: -- Create the SR, RO and product transaction lines.
1684: csd_repair_manager_util.create_sr_repair_order
1685: (p_api_version => 1.0,
1686: p_init_msg_list => fnd_api.g_true,
1687: p_commit => fnd_api.g_false,
1688: p_sr_rec => l_sr_tbl(i),
1689: p_repln_rec => l_repln_tbl(i),
1690: p_rev_ctrl_flag => l_interface_tbl(i).revision_control_flag,
1683: -- Create the SR, RO and product transaction lines.
1684: csd_repair_manager_util.create_sr_repair_order
1685: (p_api_version => 1.0,
1686: p_init_msg_list => fnd_api.g_true,
1687: p_commit => fnd_api.g_false,
1688: p_sr_rec => l_sr_tbl(i),
1689: p_repln_rec => l_repln_tbl(i),
1690: p_rev_ctrl_flag => l_interface_tbl(i).revision_control_flag,
1691: p_serial_ctrl_flag => l_interface_tbl(i).serial_control_flag,
1697: x_msg_data => x_msg_data,
1698: p_external_reference => l_interface_tbl(i).external_reference,
1699: p_lot_num => l_interface_tbl(i).lot_number
1700: );
1701: if x_return_status <> fnd_api.g_ret_sts_success then
1702: update csd_repairs_interface set processing_phase = 4
1703: where transaction_id = l_interface_tbl(i).transaction_id;
1704: else
1705: update csd_repairs_interface set incident_id = x_incident_id,repair_line_id = x_repair_line_id
1718:
1719: IF NVL(fnd_profile.value('CSD_AUTO_CREATE_INT_ORDER'),'N') = 'Y'
1720: THEN
1721: create_internal_orders(p_api_version => 1.0,
1722: p_init_msg_list => fnd_api.g_true,
1723: p_commit => fnd_api.g_false,
1724: p_repln_tbl => l_repln_tbl,
1725: p_repair_line_ids => l_repair_line_ids,
1726: x_return_status => x_return_status,
1719: IF NVL(fnd_profile.value('CSD_AUTO_CREATE_INT_ORDER'),'N') = 'Y'
1720: THEN
1721: create_internal_orders(p_api_version => 1.0,
1722: p_init_msg_list => fnd_api.g_true,
1723: p_commit => fnd_api.g_false,
1724: p_repln_tbl => l_repln_tbl,
1725: p_repair_line_ids => l_repair_line_ids,
1726: x_return_status => x_return_status,
1727: x_msg_count => x_msg_count,
1734: delete from csd_repairs_interface where
1735: group_id = p_group_id and processing_phase = 2;
1736: commit;
1737: exception
1738: when fnd_api.g_exc_error then
1739: null;
1740: end mass_create_repair_orders_cp;
1741:
1742: /******************************************************************************/
1745: /* the call to private API's for creation of these entities. Upon creating*/
1746: /* repair orders, the API will also enter default logistics line. */
1747: /******************************************************************************/
1748: procedure create_sr_repair_order(p_api_version IN NUMBER,
1749: p_init_msg_list in varchar2 default fnd_api.g_false,
1750: p_commit in varchar2 default fnd_api.g_false,
1751: p_sr_rec in sr_rec_type,
1752: p_repln_rec in OUT NOCOPY csd_repairs_pub.repln_rec_type,
1753: p_rev_ctrl_flag in number,
1746: /* repair orders, the API will also enter default logistics line. */
1747: /******************************************************************************/
1748: procedure create_sr_repair_order(p_api_version IN NUMBER,
1749: p_init_msg_list in varchar2 default fnd_api.g_false,
1750: p_commit in varchar2 default fnd_api.g_false,
1751: p_sr_rec in sr_rec_type,
1752: p_repln_rec in OUT NOCOPY csd_repairs_pub.repln_rec_type,
1753: p_rev_ctrl_flag in number,
1754: p_serial_ctrl_flag in number,
1806: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_api_name,
1807: 'Begin mass create repair orders API');
1808: END IF;
1809: -- standard check for API compatibility.
1810: IF NOT Fnd_Api.Compatible_API_Call
1811: (l_api_version_number,
1812: p_api_version,
1813: lc_api_name,
1814: G_PKG_NAME)
1812: p_api_version,
1813: lc_api_name,
1814: G_PKG_NAME)
1815: THEN
1816: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1817: END IF;
1818:
1819: IF Fnd_Api.to_Boolean(p_init_msg_list)
1820: THEN
1815: THEN
1816: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1817: END IF;
1818:
1819: IF Fnd_Api.to_Boolean(p_init_msg_list)
1820: THEN
1821: Fnd_Msg_Pub.initialize;
1822: END IF;
1823:
1820: THEN
1821: Fnd_Msg_Pub.initialize;
1822: END IF;
1823:
1824: x_return_status := FND_API.G_RET_STS_SUCCESS;
1825:
1826: if x_incident_id is null then
1827: begin
1828: select party_type
1831: where party_id = p_sr_rec.sr_party_id;
1832: exception
1833: when no_data_found then
1834: -- invalid party.
1835: raise fnd_api.g_exc_error;
1836: end;
1837:
1838: if p_sr_rec.sr_bill_to_site_use_id is null then
1839: -- get the primary bill to site and ship to site.
1936:
1937: -- Call the Service Request API
1938: CSD_PROCESS_PVT.process_service_request
1939: ( p_api_version => 1.0,
1940: p_commit => fnd_api.g_false,
1941: p_init_msg_list => fnd_api.g_true,
1942: p_validation_level => fnd_api.g_valid_level_full,
1943: p_action => 'CREATE',
1944: p_incident_id => NULL,
1937: -- Call the Service Request API
1938: CSD_PROCESS_PVT.process_service_request
1939: ( p_api_version => 1.0,
1940: p_commit => fnd_api.g_false,
1941: p_init_msg_list => fnd_api.g_true,
1942: p_validation_level => fnd_api.g_valid_level_full,
1943: p_action => 'CREATE',
1944: p_incident_id => NULL,
1945: p_service_request_rec => l_service_request_rec,
1938: CSD_PROCESS_PVT.process_service_request
1939: ( p_api_version => 1.0,
1940: p_commit => fnd_api.g_false,
1941: p_init_msg_list => fnd_api.g_true,
1942: p_validation_level => fnd_api.g_valid_level_full,
1943: p_action => 'CREATE',
1944: p_incident_id => NULL,
1945: p_service_request_rec => l_service_request_rec,
1946: p_notes_tbl => l_sr_notes_tbl,
1949: x_return_status => x_return_status,
1950: x_msg_count => x_msg_count,
1951: x_msg_data => x_msg_data
1952: );
1953: if x_return_status <> fnd_api.g_ret_sts_success then
1954: raise fnd_api.g_exc_error;
1955: end if;
1956: end if;
1957:
1950: x_msg_count => x_msg_count,
1951: x_msg_data => x_msg_data
1952: );
1953: if x_return_status <> fnd_api.g_ret_sts_success then
1954: raise fnd_api.g_exc_error;
1955: end if;
1956: end if;
1957:
1958: -- create RO
2060: l_instance_rec.external_reference := p_external_reference;
2061:
2062: csd_mass_rcv_pvt.create_item_instance (
2063: p_api_version => 1.0,
2064: p_init_msg_list => fnd_api.g_false,
2065: p_commit => fnd_api.g_false,
2066: p_validation_level => fnd_api.g_valid_level_full,
2067: x_return_status => x_return_status,
2068: x_msg_count => x_msg_count,
2061:
2062: csd_mass_rcv_pvt.create_item_instance (
2063: p_api_version => 1.0,
2064: p_init_msg_list => fnd_api.g_false,
2065: p_commit => fnd_api.g_false,
2066: p_validation_level => fnd_api.g_valid_level_full,
2067: x_return_status => x_return_status,
2068: x_msg_count => x_msg_count,
2069: x_msg_data => x_msg_data,
2062: csd_mass_rcv_pvt.create_item_instance (
2063: p_api_version => 1.0,
2064: p_init_msg_list => fnd_api.g_false,
2065: p_commit => fnd_api.g_false,
2066: p_validation_level => fnd_api.g_valid_level_full,
2067: x_return_status => x_return_status,
2068: x_msg_count => x_msg_count,
2069: x_msg_data => x_msg_data,
2070: px_instance_rec => l_instance_rec,
2069: x_msg_data => x_msg_data,
2070: px_instance_rec => l_instance_rec,
2071: x_instance_id => l_instance_id );
2072:
2073: if x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2074: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
2075: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_api_name,
2076: 'Error during instance creation '||x_msg_data);
2077: END IF;
2129: p_instance_id => l_instance_id,
2130: p_relationship_type => l_crt_inst_party_relation
2131: );
2132:
2133: IF x_return_status <> fnd_api.g_ret_sts_success
2134: THEN
2135: RAISE fnd_api.g_exc_error;
2136: END IF;
2137:
2131: );
2132:
2133: IF x_return_status <> fnd_api.g_ret_sts_success
2134: THEN
2135: RAISE fnd_api.g_exc_error;
2136: END IF;
2137:
2138: ELSIF l_crt_inst_party_relation IS NULL AND l_relationship IS NULL
2139: THEN
2175: x_msg_count => x_msg_count,
2176: x_msg_data => x_msg_data,
2177: x_tca_relation_id => x_tca_relation_id
2178: );
2179: IF x_return_status <> fnd_api.g_ret_sts_success
2180: THEN
2181: RAISE fnd_api.g_exc_error;
2182: END IF;
2183:
2177: x_tca_relation_id => x_tca_relation_id
2178: );
2179: IF x_return_status <> fnd_api.g_ret_sts_success
2180: THEN
2181: RAISE fnd_api.g_exc_error;
2182: END IF;
2183:
2184: ELSE
2185: -- the change ownership condition not met. exiting.
2189: END IF;
2190:
2191: fnd_message.set_name('CSD', 'CSD_INVALID_CUST_PROD');
2192: fnd_msg_pub.ADD;
2193: RAISE fnd_api.g_exc_error;
2194: END IF;
2195:
2196: END IF;
2197: END IF;
2234: END IF;
2235:
2236: CSD_RULES_ENGINE_PVT.GET_DEFAULT_VALUE_FROM_RULE(
2237: p_api_version_number => 1.0,
2238: p_init_msg_list => fnd_api.g_false,
2239: p_commit => fnd_api.g_false,
2240: p_validation_level => fnd_api.g_valid_level_full,
2241: p_entity_attribute_type => 'CSD_DEF_ENTITY_ATTR_RO',
2242: p_entity_attribute_code => 'REPAIR_TYPE',
2235:
2236: CSD_RULES_ENGINE_PVT.GET_DEFAULT_VALUE_FROM_RULE(
2237: p_api_version_number => 1.0,
2238: p_init_msg_list => fnd_api.g_false,
2239: p_commit => fnd_api.g_false,
2240: p_validation_level => fnd_api.g_valid_level_full,
2241: p_entity_attribute_type => 'CSD_DEF_ENTITY_ATTR_RO',
2242: p_entity_attribute_code => 'REPAIR_TYPE',
2243: p_rule_input_rec => l_rule_input_rec,
2236: CSD_RULES_ENGINE_PVT.GET_DEFAULT_VALUE_FROM_RULE(
2237: p_api_version_number => 1.0,
2238: p_init_msg_list => fnd_api.g_false,
2239: p_commit => fnd_api.g_false,
2240: p_validation_level => fnd_api.g_valid_level_full,
2241: p_entity_attribute_type => 'CSD_DEF_ENTITY_ATTR_RO',
2242: p_entity_attribute_code => 'REPAIR_TYPE',
2243: p_rule_input_rec => l_rule_input_rec,
2244: x_default_value => l_repair_type_id,
2293: 'Calling CSD_REPAIRS_UTIL.GET_ENTITLEMENTS to get contracts if any.');
2294: END IF;
2295: CSD_REPAIRS_UTIL.GET_ENTITLEMENTS(
2296: p_api_version_number => 1.0,
2297: p_init_msg_list => fnd_api.g_false,
2298: p_commit => fnd_api.g_false,
2299: p_contract_number => null,
2300: p_service_line_id => null,
2301: p_customer_id => p_sr_rec.sr_party_id ,
2294: END IF;
2295: CSD_REPAIRS_UTIL.GET_ENTITLEMENTS(
2296: p_api_version_number => 1.0,
2297: p_init_msg_list => fnd_api.g_false,
2298: p_commit => fnd_api.g_false,
2299: p_contract_number => null,
2300: p_service_line_id => null,
2301: p_customer_id => p_sr_rec.sr_party_id ,
2302: p_site_id => g_install_site_use_id,
2330: end if;
2331: End Loop;
2332:
2333: If (p_repln_rec.contract_line_id is null or
2334: p_repln_rec.contract_line_id = fnd_api.g_miss_num) then
2335: p_repln_rec.contract_line_id := l_ent_contracts(1).service_line_id;
2336: End if;
2337: end if;
2338:
2343: END IF;
2344:
2345: csd_process_util.get_ro_default_curr_pl
2346: ( p_api_version => 1.0,
2347: p_init_msg_list => fnd_api.g_false,
2348: p_incident_id => x_incident_id,
2349: p_repair_type_id => l_repair_type_id,
2350: p_ro_contract_line_id => p_repln_rec.contract_line_id,
2351: x_contract_pl_id => l_contract_pl_id,
2375: -- populate the repair rec.
2376: -- bug#8919683, subhat.
2377: -- If there is null value passed in, we will try to default the attributes.
2378: if p_repln_rec.inventory_org_id is null then
2379: p_repln_rec.inventory_org_id := fnd_api.g_miss_num;
2380: end if;
2381: if p_repln_rec.resource_group is null then
2382: p_repln_rec.resource_group := fnd_api.g_miss_num;
2383: end if;
2378: if p_repln_rec.inventory_org_id is null then
2379: p_repln_rec.inventory_org_id := fnd_api.g_miss_num;
2380: end if;
2381: if p_repln_rec.resource_group is null then
2382: p_repln_rec.resource_group := fnd_api.g_miss_num;
2383: end if;
2384: if p_repln_rec.ro_priority_code is null then
2385: p_repln_rec.ro_priority_code := fnd_api.g_miss_char;
2386: end if;
2381: if p_repln_rec.resource_group is null then
2382: p_repln_rec.resource_group := fnd_api.g_miss_num;
2383: end if;
2384: if p_repln_rec.ro_priority_code is null then
2385: p_repln_rec.ro_priority_code := fnd_api.g_miss_char;
2386: end if;
2387: if p_repln_rec.resource_id is null then
2388: p_repln_rec.resource_id := fnd_api.g_miss_num;
2389: end if;
2384: if p_repln_rec.ro_priority_code is null then
2385: p_repln_rec.ro_priority_code := fnd_api.g_miss_char;
2386: end if;
2387: if p_repln_rec.resource_id is null then
2388: p_repln_rec.resource_id := fnd_api.g_miss_num;
2389: end if;
2390: p_repln_rec.incident_id := x_incident_id;
2391: p_repln_rec.customer_product_id := l_instance_id;
2392: p_repln_rec.auto_process_rma := l_auto_process_rma;
2405: x_repair_line_id := null;
2406:
2407: CSD_REPAIRS_PVT.Create_Repair_Order
2408: (p_api_version_number => 1.0,
2409: p_commit => fnd_api.g_false,
2410: p_init_msg_list => fnd_api.g_true,
2411: p_validation_level => fnd_api.g_valid_level_full,
2412: p_repair_line_id => x_repair_line_id,
2413: p_Repln_Rec => p_repln_rec,
2406:
2407: CSD_REPAIRS_PVT.Create_Repair_Order
2408: (p_api_version_number => 1.0,
2409: p_commit => fnd_api.g_false,
2410: p_init_msg_list => fnd_api.g_true,
2411: p_validation_level => fnd_api.g_valid_level_full,
2412: p_repair_line_id => x_repair_line_id,
2413: p_Repln_Rec => p_repln_rec,
2414: x_repair_line_id => x_repair_line_id,
2407: CSD_REPAIRS_PVT.Create_Repair_Order
2408: (p_api_version_number => 1.0,
2409: p_commit => fnd_api.g_false,
2410: p_init_msg_list => fnd_api.g_true,
2411: p_validation_level => fnd_api.g_valid_level_full,
2412: p_repair_line_id => x_repair_line_id,
2413: p_Repln_Rec => p_repln_rec,
2414: x_repair_line_id => x_repair_line_id,
2415: x_repair_number => x_repair_number,
2417: x_msg_count => x_msg_count,
2418: x_msg_data => x_msg_data
2419: );
2420:
2421: if x_return_status <> fnd_api.g_ret_sts_success then
2422: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
2423: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_api_name,
2424: 'Error in creation of repair order for item = '||p_repln_rec.inventory_item_id);
2425: END IF;
2422: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
2423: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_api_name,
2424: 'Error in creation of repair order for item = '||p_repln_rec.inventory_item_id);
2425: END IF;
2426: raise fnd_api.g_exc_error;
2427: end if;
2428:
2429: -- create the default logistics lines
2430: csd_process_pvt.create_default_prod_txn
2428:
2429: -- create the default logistics lines
2430: csd_process_pvt.create_default_prod_txn
2431: (p_api_version => 1.0,
2432: p_commit => fnd_api.g_false,
2433: p_init_msg_list => fnd_api.g_true,
2434: p_validation_level => fnd_api.g_valid_level_full,
2435: p_repair_line_id => x_repair_line_id,
2436: x_return_status => x_return_status,
2429: -- create the default logistics lines
2430: csd_process_pvt.create_default_prod_txn
2431: (p_api_version => 1.0,
2432: p_commit => fnd_api.g_false,
2433: p_init_msg_list => fnd_api.g_true,
2434: p_validation_level => fnd_api.g_valid_level_full,
2435: p_repair_line_id => x_repair_line_id,
2436: x_return_status => x_return_status,
2437: x_msg_count => x_msg_count,
2430: csd_process_pvt.create_default_prod_txn
2431: (p_api_version => 1.0,
2432: p_commit => fnd_api.g_false,
2433: p_init_msg_list => fnd_api.g_true,
2434: p_validation_level => fnd_api.g_valid_level_full,
2435: p_repair_line_id => x_repair_line_id,
2436: x_return_status => x_return_status,
2437: x_msg_count => x_msg_count,
2438: x_msg_data => x_msg_data);
2436: x_return_status => x_return_status,
2437: x_msg_count => x_msg_count,
2438: x_msg_data => x_msg_data);
2439:
2440: if x_return_status <> fnd_api.g_ret_sts_success then
2441: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
2442: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_api_name,
2443: 'Error in creation of product transaction lines '||x_msg_data);
2444: END IF;
2441: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
2442: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_api_name,
2443: 'Error in creation of product transaction lines '||x_msg_data);
2444: END IF;
2445: raise fnd_api.g_exc_error;
2446: end if;
2447:
2448: if fnd_api.to_boolean(p_commit) then
2449: commit work;
2444: END IF;
2445: raise fnd_api.g_exc_error;
2446: end if;
2447:
2448: if fnd_api.to_boolean(p_commit) then
2449: commit work;
2450: end if;
2451: exception
2452: when fnd_api.g_exc_error then
2448: if fnd_api.to_boolean(p_commit) then
2449: commit work;
2450: end if;
2451: exception
2452: when fnd_api.g_exc_error then
2453: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
2454: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_api_name,
2455: 'In exec error exception '||x_msg_data);
2456: END IF;
2453: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
2454: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_api_name,
2455: 'In exec error exception '||x_msg_data);
2456: END IF;
2457: x_return_status := fnd_api.g_ret_sts_error;
2458: rollback to create_sr_repair_order;
2459: when no_data_found then
2460: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
2461: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_api_name,
2460: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
2461: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_api_name,
2462: 'In No data found exception ');
2463: END IF;
2464: x_return_status := fnd_api.g_ret_sts_error;
2465: rollback to create_sr_repair_order;
2466: when others then
2467: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.G_CURRENT_RUNTIME_LEVEL) THEN
2468: Fnd_Log.STRING(Fnd_Log.LEVEL_PROCEDURE, lc_api_name,
2519: End if;
2520: csi_item_instance_pub.update_item_instance
2521: (
2522: p_api_version => 1.0,
2523: p_commit => fnd_api.g_false,
2524: p_init_msg_list => fnd_api.g_true,
2525: p_validation_level => fnd_api.g_valid_level_full,
2526: p_instance_rec => l_instance_rec,
2527: p_ext_attrib_values_tbl => l_ext_attrib_values_tbl,
2520: csi_item_instance_pub.update_item_instance
2521: (
2522: p_api_version => 1.0,
2523: p_commit => fnd_api.g_false,
2524: p_init_msg_list => fnd_api.g_true,
2525: p_validation_level => fnd_api.g_valid_level_full,
2526: p_instance_rec => l_instance_rec,
2527: p_ext_attrib_values_tbl => l_ext_attrib_values_tbl,
2528: p_party_tbl => l_party_tbl,
2521: (
2522: p_api_version => 1.0,
2523: p_commit => fnd_api.g_false,
2524: p_init_msg_list => fnd_api.g_true,
2525: p_validation_level => fnd_api.g_valid_level_full,
2526: p_instance_rec => l_instance_rec,
2527: p_ext_attrib_values_tbl => l_ext_attrib_values_tbl,
2528: p_party_tbl => l_party_tbl,
2529: p_account_tbl => l_account_tbl,
2536: x_msg_count => x_msg_count,
2537: x_msg_data => x_msg_data
2538: );
2539:
2540: if not (x_return_status = FND_API.g_ret_sts_success) then
2541: raise fnd_api.g_exc_error;
2542: end if;
2543:
2544:
2537: x_msg_data => x_msg_data
2538: );
2539:
2540: if not (x_return_status = FND_API.g_ret_sts_success) then
2541: raise fnd_api.g_exc_error;
2542: end if;
2543:
2544:
2545: exception
2542: end if;
2543:
2544:
2545: exception
2546: when fnd_api.g_exc_error then
2547: FOR j in 1 ..x_msg_count
2548: LOOP
2549: FND_MSG_PUB.Get(
2550: p_msg_index => j,