[Home] [Help]
107:
108: Function Get_Document_Status
109: (
110: p_document_type in VARCHAR2,
111: p_status_code in VARCHAR2 := fnd_api.g_miss_char,
112: p_status_id in NUMBER := fnd_api.g_miss_num
113: ) RETURN VARCHAR2 IS
114:
115: l_api_version NUMBER := 1.0;
108: Function Get_Document_Status
109: (
110: p_document_type in VARCHAR2,
111: p_status_code in VARCHAR2 := fnd_api.g_miss_char,
112: p_status_id in NUMBER := fnd_api.g_miss_num
113: ) RETURN VARCHAR2 IS
114:
115: l_api_version NUMBER := 1.0;
116: l_return_status varchar2(1);
120:
121: BEGIN
122: CSD_SOO_PVT.Get_Document_Status
123: (p_api_version => l_api_version,
124: p_commit => FND_API.G_FALSE,
125: p_init_msg_list => FND_API.G_TRUE,
126: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
127: x_return_status => l_return_status,
128: x_msg_count => l_msg_count,
121: BEGIN
122: CSD_SOO_PVT.Get_Document_Status
123: (p_api_version => l_api_version,
124: p_commit => FND_API.G_FALSE,
125: p_init_msg_list => FND_API.G_TRUE,
126: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
127: x_return_status => l_return_status,
128: x_msg_count => l_msg_count,
129: x_msg_data => l_msg_data,
122: CSD_SOO_PVT.Get_Document_Status
123: (p_api_version => l_api_version,
124: p_commit => FND_API.G_FALSE,
125: p_init_msg_list => FND_API.G_TRUE,
126: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
127: x_return_status => l_return_status,
128: x_msg_count => l_msg_count,
129: x_msg_data => l_msg_data,
130: p_document_type => p_document_type,
136:
137: END; -- function get_document_status
138:
139: Procedure Get_Document_Status(p_document_type in VARCHAR2,
140: p_status_code in VARCHAR2 := FND_API.G_MISS_CHAR,
141: p_status_id in NUMBER := FND_API.G_MISS_NUM,
142: x_status_name out NOCOPY VARCHAR2,
143: p_api_version IN NUMBER,
144: p_commit IN VARCHAR2,
137: END; -- function get_document_status
138:
139: Procedure Get_Document_Status(p_document_type in VARCHAR2,
140: p_status_code in VARCHAR2 := FND_API.G_MISS_CHAR,
141: p_status_id in NUMBER := FND_API.G_MISS_NUM,
142: x_status_name out NOCOPY VARCHAR2,
143: p_api_version IN NUMBER,
144: p_commit IN VARCHAR2,
145: p_init_msg_list IN VARCHAR2,
213: and nvl(end_date_active, sysdate + 1);
214:
215: BEGIN
216: -- Initialize API return status to success
217: x_return_status := FND_API.G_RET_STS_SUCCESS;
218:
219: -- Log the api name in the log file
220: Debug('At the Beginning of Get_Document_Status',l_mod_name,1);
221: -- Standard call to check for call compatibility.
218:
219: -- Log the api name in the log file
220: Debug('At the Beginning of Get_Document_Status',l_mod_name,1);
221: -- Standard call to check for call compatibility.
222: IF NOT FND_API.Compatible_API_Call (l_api_version,
223: p_api_version,
224: l_api_name ,
225: G_PKG_NAME ) THEN
226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
222: IF NOT FND_API.Compatible_API_Call (l_api_version,
223: p_api_version,
224: l_api_name ,
225: G_PKG_NAME ) THEN
226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
227: END IF;
228:
229: if (p_status_id is null or p_status_id = FND_API.G_MISS_NUM) and
230: (p_status_code is null or p_status_code = FND_API.G_MISS_CHAR) THEN
225: G_PKG_NAME ) THEN
226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
227: END IF;
228:
229: if (p_status_id is null or p_status_id = FND_API.G_MISS_NUM) and
230: (p_status_code is null or p_status_code = FND_API.G_MISS_CHAR) THEN
231: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_ERROR)
232: THEN
233: Fnd_Message.Set_Name('CSD', 'CSD_STATUS_NOT_GIVEN');
226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
227: END IF;
228:
229: if (p_status_id is null or p_status_id = FND_API.G_MISS_NUM) and
230: (p_status_code is null or p_status_code = FND_API.G_MISS_CHAR) THEN
231: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_ERROR)
232: THEN
233: Fnd_Message.Set_Name('CSD', 'CSD_STATUS_NOT_GIVEN');
234: Fnd_Msg_Pub.ADD;
233: Fnd_Message.Set_Name('CSD', 'CSD_STATUS_NOT_GIVEN');
234: Fnd_Msg_Pub.ADD;
235: END IF;
236:
237: RAISE FND_API.G_EXC_ERROR;
238: end if;
239:
240: -- Initialize message list if p_init_msg_list is set to TRUE.
241: IF FND_API.to_Boolean( p_init_msg_list ) THEN
237: RAISE FND_API.G_EXC_ERROR;
238: end if;
239:
240: -- Initialize message list if p_init_msg_list is set to TRUE.
241: IF FND_API.to_Boolean( p_init_msg_list ) THEN
242: FND_MSG_PUB.initialize;
243: END IF;
244:
245: -- see CSD_DOCUMENT_TYPES lookup for codes
281: Fnd_Message.Set_Name('CSD', 'CSD_WRONG_STATUS_GIVEN');
282: Fnd_Msg_Pub.ADD;
283: END IF;
284:
285: RAISE FND_API.G_EXC_ERROR;
286: end if;
287:
288: x_msg_count := fnd_msg_pub.count_msg;
289:
287:
288: x_msg_count := fnd_msg_pub.count_msg;
289:
290: EXCEPTION
291: WHEN FND_API.G_EXC_ERROR THEN
292: Debug('In FND_API.G_EXC_ERROR exception',l_mod_name,4);
293: x_msg_count := fnd_msg_pub.count_msg;
294: x_return_status := FND_API.G_RET_STS_ERROR ;
295: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
288: x_msg_count := fnd_msg_pub.count_msg;
289:
290: EXCEPTION
291: WHEN FND_API.G_EXC_ERROR THEN
292: Debug('In FND_API.G_EXC_ERROR exception',l_mod_name,4);
293: x_msg_count := fnd_msg_pub.count_msg;
294: x_return_status := FND_API.G_RET_STS_ERROR ;
295: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
296: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR exception',l_mod_name,4);
290: EXCEPTION
291: WHEN FND_API.G_EXC_ERROR THEN
292: Debug('In FND_API.G_EXC_ERROR exception',l_mod_name,4);
293: x_msg_count := fnd_msg_pub.count_msg;
294: x_return_status := FND_API.G_RET_STS_ERROR ;
295: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
296: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR exception',l_mod_name,4);
297: x_msg_count := fnd_msg_pub.count_msg;
298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
291: WHEN FND_API.G_EXC_ERROR THEN
292: Debug('In FND_API.G_EXC_ERROR exception',l_mod_name,4);
293: x_msg_count := fnd_msg_pub.count_msg;
294: x_return_status := FND_API.G_RET_STS_ERROR ;
295: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
296: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR exception',l_mod_name,4);
297: x_msg_count := fnd_msg_pub.count_msg;
298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
299: WHEN OTHERS THEN
292: Debug('In FND_API.G_EXC_ERROR exception',l_mod_name,4);
293: x_msg_count := fnd_msg_pub.count_msg;
294: x_return_status := FND_API.G_RET_STS_ERROR ;
295: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
296: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR exception',l_mod_name,4);
297: x_msg_count := fnd_msg_pub.count_msg;
298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
299: WHEN OTHERS THEN
300: Debug('In OTHERS exception',l_mod_name,4);
294: x_return_status := FND_API.G_RET_STS_ERROR ;
295: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
296: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR exception',l_mod_name,4);
297: x_msg_count := fnd_msg_pub.count_msg;
298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
299: WHEN OTHERS THEN
300: Debug('In OTHERS exception',l_mod_name,4);
301:
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
299: WHEN OTHERS THEN
300: Debug('In OTHERS exception',l_mod_name,4);
301:
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
303: IF FND_MSG_PUB.Check_Msg_Level
304: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
305: THEN
306: FND_MSG_PUB.Add_Exc_Msg
318: p_validation_level IN NUMBER,
319: x_return_status OUT NOCOPY VARCHAR2,
320: x_msg_count OUT NOCOPY NUMBER,
321: x_msg_data OUT NOCOPY VARCHAR2,
322: p_wip_entity_id IN NUMBER := FND_API.G_MISS_NUM,
323: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
324: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
325: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
326: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
319: x_return_status OUT NOCOPY VARCHAR2,
320: x_msg_count OUT NOCOPY NUMBER,
321: x_msg_data OUT NOCOPY VARCHAR2,
322: p_wip_entity_id IN NUMBER := FND_API.G_MISS_NUM,
323: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
324: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
325: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
326: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
327: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
320: x_msg_count OUT NOCOPY NUMBER,
321: x_msg_data OUT NOCOPY VARCHAR2,
322: p_wip_entity_id IN NUMBER := FND_API.G_MISS_NUM,
323: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
324: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
325: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
326: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
327: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
328: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
321: x_msg_data OUT NOCOPY VARCHAR2,
322: p_wip_entity_id IN NUMBER := FND_API.G_MISS_NUM,
323: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
324: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
325: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
326: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
327: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
328: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
329: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
322: p_wip_entity_id IN NUMBER := FND_API.G_MISS_NUM,
323: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
324: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
325: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
326: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
327: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
328: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
329: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
330: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
323: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
324: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
325: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
326: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
327: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
328: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
329: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
330: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
331: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
324: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
325: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
326: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
327: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
328: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
329: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
330: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
331: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
332: IS
325: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
326: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
327: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
328: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
329: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
330: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
331: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
332: IS
333: -- Standard Variables
326: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
327: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
328: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
329: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
330: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
331: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
332: IS
333: -- Standard Variables
334: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_JOB';
327: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
328: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
329: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
330: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
331: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
332: IS
333: -- Standard Variables
334: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_JOB';
335: l_api_version CONSTANT NUMBER := 1.0;
358: BEGIN
359: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entering Refresh_Job...');
360:
361: -- Initialize API return status to success
362: x_return_status := FND_API.G_RET_STS_SUCCESS;
363:
364: -- Log the api name in the log file
365: Debug('At the Beginning of Refresh_Job', l_mod_name, 1);
366:
364: -- Log the api name in the log file
365: Debug('At the Beginning of Refresh_Job', l_mod_name, 1);
366:
367: -- Standard call to check for call compatibility.
368: IF NOT FND_API.Compatible_API_Call (l_api_version,
369: p_api_version,
370: l_api_name ,
371: G_PKG_NAME)
372: THEN
369: p_api_version,
370: l_api_name ,
371: G_PKG_NAME)
372: THEN
373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
374: END IF;
375:
376: -- Initialize message list if p_init_msg_list is set to TRUE.
377: IF FND_API.to_Boolean(p_init_msg_list) THEN
373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
374: END IF;
375:
376: -- Initialize message list if p_init_msg_list is set to TRUE.
377: IF FND_API.to_Boolean(p_init_msg_list) THEN
378: FND_MSG_PUB.initialize;
379: END IF;
380:
381: -- Api body starts
407: xref.wip_entity_id = we.wip_entity_id and
408: xref.repair_line_id = dra.repair_line_id and
409: orgd.organization_id = we.organization_id and
410: we.wip_entity_id = decode(p_wip_entity_id,
411: fnd_api.g_miss_num, we.wip_entity_id,
412: p_wip_entity_id) and
413: dra.repair_line_id = decode(p_repair_line_id,
414: fnd_api.g_miss_num, dra.repair_line_id,
415: p_repair_line_id) and
410: we.wip_entity_id = decode(p_wip_entity_id,
411: fnd_api.g_miss_num, we.wip_entity_id,
412: p_wip_entity_id) and
413: dra.repair_line_id = decode(p_repair_line_id,
414: fnd_api.g_miss_num, dra.repair_line_id,
415: p_repair_line_id) and
416: nvl(orgd.operating_unit, fnd_api.g_miss_num) =
417: decode(p_operating_unit_id,
418: fnd_api.g_miss_num, nvl(orgd.operating_unit, fnd_api.g_miss_num),
412: p_wip_entity_id) and
413: dra.repair_line_id = decode(p_repair_line_id,
414: fnd_api.g_miss_num, dra.repair_line_id,
415: p_repair_line_id) and
416: nvl(orgd.operating_unit, fnd_api.g_miss_num) =
417: decode(p_operating_unit_id,
418: fnd_api.g_miss_num, nvl(orgd.operating_unit, fnd_api.g_miss_num),
419: p_operating_unit_id) and
420: we.organization_id =
414: fnd_api.g_miss_num, dra.repair_line_id,
415: p_repair_line_id) and
416: nvl(orgd.operating_unit, fnd_api.g_miss_num) =
417: decode(p_operating_unit_id,
418: fnd_api.g_miss_num, nvl(orgd.operating_unit, fnd_api.g_miss_num),
419: p_operating_unit_id) and
420: we.organization_id =
421: decode(p_inventory_org_id,
422: fnd_api.g_miss_num, we.organization_id,
418: fnd_api.g_miss_num, nvl(orgd.operating_unit, fnd_api.g_miss_num),
419: p_operating_unit_id) and
420: we.organization_id =
421: decode(p_inventory_org_id,
422: fnd_api.g_miss_num, we.organization_id,
423: p_inventory_org_id) and
424: nvl(dra.resource_id, fnd_api.g_miss_num) =
425: decode(p_repair_owner_id,
426: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
420: we.organization_id =
421: decode(p_inventory_org_id,
422: fnd_api.g_miss_num, we.organization_id,
423: p_inventory_org_id) and
424: nvl(dra.resource_id, fnd_api.g_miss_num) =
425: decode(p_repair_owner_id,
426: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
427: p_repair_owner_id) and
428: dra.flow_status_id =
422: fnd_api.g_miss_num, we.organization_id,
423: p_inventory_org_id) and
424: nvl(dra.resource_id, fnd_api.g_miss_num) =
425: decode(p_repair_owner_id,
426: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
427: p_repair_owner_id) and
428: dra.flow_status_id =
429: decode(p_ro_status_id,
430: fnd_api.g_miss_num, dra.flow_status_id,
426: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
427: p_repair_owner_id) and
428: dra.flow_status_id =
429: decode(p_ro_status_id,
430: fnd_api.g_miss_num, dra.flow_status_id,
431: p_ro_status_id) and
432: dra.repair_type_id =
433: decode(p_repair_type_id,
434: fnd_api.g_miss_num, dra.repair_type_id,
430: fnd_api.g_miss_num, dra.flow_status_id,
431: p_ro_status_id) and
432: dra.repair_type_id =
433: decode(p_repair_type_id,
434: fnd_api.g_miss_num, dra.repair_type_id,
435: p_repair_type_id) and
436: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
437: decode(p_ro_priority_code,
438: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
432: dra.repair_type_id =
433: decode(p_repair_type_id,
434: fnd_api.g_miss_num, dra.repair_type_id,
435: p_repair_type_id) and
436: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
437: decode(p_ro_priority_code,
438: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
439: p_ro_priority_code) and
440: dra.creation_date >=
434: fnd_api.g_miss_num, dra.repair_type_id,
435: p_repair_type_id) and
436: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
437: decode(p_ro_priority_code,
438: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
439: p_ro_priority_code) and
440: dra.creation_date >=
441: decode(p_ro_age,
442: fnd_api.g_miss_num, dra.creation_date,
438: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
439: p_ro_priority_code) and
440: dra.creation_date >=
441: decode(p_ro_age,
442: fnd_api.g_miss_num, dra.creation_date,
443: sysdate - p_ro_age) and
444: nvl(dra.promise_date, G_MAX_DATE) <=
445: decode(p_ro_due_date_age,
446: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
442: fnd_api.g_miss_num, dra.creation_date,
443: sysdate - p_ro_age) and
444: nvl(dra.promise_date, G_MAX_DATE) <=
445: decode(p_ro_due_date_age,
446: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
447: sysdate + p_ro_due_date_age)) OLTP
448: ON (soo.repair_line_id = OLTP.repair_line_id and
449: soo.document_header_id = OLTP.document_header_id and
450: soo.document_type = 'JOB')
528: OLTP.org_id); --paramn1
529:
530: -- Save changes to CSD_SO_ORCHESTRATION table even
531: -- if SOO rules engine fails.
532: IF FND_API.To_Boolean( p_commit ) THEN
533: COMMIT WORK;
534: END IF;
535:
536: SAVEPOINT REFRESH_JOB;
551: l_rule_input_rec.job_curr_status_id := l_status_id;
552:
553: CSD_RULES_ENGINE_PVT.SOO_DEFAULTING(
554: p_api_version_number => 1.0,
555: p_commit => fnd_api.g_false,
556: p_validation_level => p_validation_level,
557: p_event_type => 'JOB_STATUS',
558: p_rule_input_rec => l_rule_input_rec,
559: x_rule_id => l_rule_id,
560: x_return_status => x_return_status,
561: x_msg_count => x_msg_count,
562: x_msg_data => x_msg_data);
563:
564: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
565: Debug('Trying to default SOO rule for job status event failed.',l_mod_name,4);
566: RAISE FND_API.G_EXC_ERROR;
567: END IF;
568: END IF;
562: x_msg_data => x_msg_data);
563:
564: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
565: Debug('Trying to default SOO rule for job status event failed.',l_mod_name,4);
566: RAISE FND_API.G_EXC_ERROR;
567: END IF;
568: END IF;
569: END LOOP;
570:
568: END IF;
569: END LOOP;
570:
571: -- Standard check of p_commit.
572: IF FND_API.To_Boolean( p_commit ) THEN
573: COMMIT WORK;
574: END IF;
575:
576: x_msg_count := fnd_msg_pub.count_msg;
575:
576: x_msg_count := fnd_msg_pub.count_msg;
577:
578: EXCEPTION
579: WHEN FND_API.G_EXC_ERROR THEN
580: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
581: ROLLBACK TO REFRESH_JOB;
582: x_return_status := FND_API.G_RET_STS_ERROR ;
583: x_msg_count := fnd_msg_pub.count_msg;
576: x_msg_count := fnd_msg_pub.count_msg;
577:
578: EXCEPTION
579: WHEN FND_API.G_EXC_ERROR THEN
580: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
581: ROLLBACK TO REFRESH_JOB;
582: x_return_status := FND_API.G_RET_STS_ERROR ;
583: x_msg_count := fnd_msg_pub.count_msg;
584: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
578: EXCEPTION
579: WHEN FND_API.G_EXC_ERROR THEN
580: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
581: ROLLBACK TO REFRESH_JOB;
582: x_return_status := FND_API.G_RET_STS_ERROR ;
583: x_msg_count := fnd_msg_pub.count_msg;
584: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
585: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
586: IF ( l_error_level >= G_debug_level) THEN
580: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
581: ROLLBACK TO REFRESH_JOB;
582: x_return_status := FND_API.G_RET_STS_ERROR ;
583: x_msg_count := fnd_msg_pub.count_msg;
584: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
585: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
586: IF ( l_error_level >= G_debug_level) THEN
587: fnd_message.set_name('CSD','CSD_SQL_ERROR');
588: fnd_message.set_token('SQLERRM',SQLERRM);
581: ROLLBACK TO REFRESH_JOB;
582: x_return_status := FND_API.G_RET_STS_ERROR ;
583: x_msg_count := fnd_msg_pub.count_msg;
584: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
585: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
586: IF ( l_error_level >= G_debug_level) THEN
587: fnd_message.set_name('CSD','CSD_SQL_ERROR');
588: fnd_message.set_token('SQLERRM',SQLERRM);
589: fnd_message.set_token('SQLCODE',SQLCODE);
589: fnd_message.set_token('SQLCODE',SQLCODE);
590: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
591: END If;
592: ROLLBACK TO REFRESH_JOB;
593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
594: x_msg_count := fnd_msg_pub.count_msg;
595: WHEN OTHERS THEN
596: Debug('In OTHERS Exception',l_mod_name,4);
597: IF ( l_error_level >= G_debug_level) THEN
600: fnd_message.set_token('SQLCODE',SQLCODE);
601: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
602: END If;
603: ROLLBACK TO REFRESH_JOB;
604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
605: IF FND_MSG_PUB.Check_Msg_Level
606: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
607: THEN
608: FND_MSG_PUB.Add_Exc_Msg
619: p_validation_level IN NUMBER,
620: x_return_status OUT NOCOPY VARCHAR2,
621: x_msg_count OUT NOCOPY NUMBER,
622: x_msg_data OUT NOCOPY VARCHAR2,
623: p_incident_id IN NUMBER := FND_API.G_MISS_NUM,
624: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
625: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
626: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
627: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
620: x_return_status OUT NOCOPY VARCHAR2,
621: x_msg_count OUT NOCOPY NUMBER,
622: x_msg_data OUT NOCOPY VARCHAR2,
623: p_incident_id IN NUMBER := FND_API.G_MISS_NUM,
624: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
625: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
626: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
627: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
628: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
621: x_msg_count OUT NOCOPY NUMBER,
622: x_msg_data OUT NOCOPY VARCHAR2,
623: p_incident_id IN NUMBER := FND_API.G_MISS_NUM,
624: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
625: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
626: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
627: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
628: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
629: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
622: x_msg_data OUT NOCOPY VARCHAR2,
623: p_incident_id IN NUMBER := FND_API.G_MISS_NUM,
624: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
625: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
626: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
627: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
628: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
629: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
630: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
623: p_incident_id IN NUMBER := FND_API.G_MISS_NUM,
624: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
625: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
626: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
627: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
628: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
629: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
630: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
631: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
624: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
625: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
626: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
627: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
628: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
629: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
630: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
631: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
632: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
625: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
626: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
627: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
628: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
629: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
630: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
631: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
632: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
633: IS
626: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
627: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
628: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
629: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
630: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
631: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
632: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
633: IS
634: -- Standard Variables
627: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
628: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
629: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
630: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
631: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
632: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
633: IS
634: -- Standard Variables
635: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_SR';
628: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
629: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
630: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
631: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
632: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
633: IS
634: -- Standard Variables
635: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_SR';
636: l_api_version CONSTANT NUMBER := 1.0;
658: BEGIN
659: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entering Refresh_SR...');
660:
661: -- Initialize API return status to success
662: x_return_status := FND_API.G_RET_STS_SUCCESS;
663:
664: -- Log the api name in the log file
665: Debug('At the Beginning of Refresh_SR', l_mod_name, 1);
666:
664: -- Log the api name in the log file
665: Debug('At the Beginning of Refresh_SR', l_mod_name, 1);
666:
667: -- Standard call to check for call compatibility.
668: IF NOT FND_API.Compatible_API_Call (l_api_version,
669: p_api_version,
670: l_api_name ,
671: G_PKG_NAME)
672: THEN
669: p_api_version,
670: l_api_name ,
671: G_PKG_NAME)
672: THEN
673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
674: END IF;
675:
676: -- Initialize message list if p_init_msg_list is set to TRUE.
677: IF FND_API.to_Boolean(p_init_msg_list) THEN
673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
674: END IF;
675:
676: -- Initialize message list if p_init_msg_list is set to TRUE.
677: IF FND_API.to_Boolean(p_init_msg_list) THEN
678: FND_MSG_PUB.initialize;
679: END IF;
680:
681: -- Api body starts
701: where
702: dra.incident_id = inc.incident_id and
703: orgd.organization_id(+) = inc.inv_organization_id and
704: inc.incident_id = decode(p_incident_id,
705: fnd_api.g_miss_num, inc.incident_id,
706: p_incident_id) and
707: dra.repair_line_id = decode(p_repair_line_id,
708: fnd_api.g_miss_num, dra.repair_line_id,
709: p_repair_line_id) and
704: inc.incident_id = decode(p_incident_id,
705: fnd_api.g_miss_num, inc.incident_id,
706: p_incident_id) and
707: dra.repair_line_id = decode(p_repair_line_id,
708: fnd_api.g_miss_num, dra.repair_line_id,
709: p_repair_line_id) and
710: nvl(orgd.operating_unit, fnd_api.g_miss_num) =
711: decode(p_operating_unit_id,
712: fnd_api.g_miss_num, nvl(orgd.operating_unit, fnd_api.g_miss_num),
706: p_incident_id) and
707: dra.repair_line_id = decode(p_repair_line_id,
708: fnd_api.g_miss_num, dra.repair_line_id,
709: p_repair_line_id) and
710: nvl(orgd.operating_unit, fnd_api.g_miss_num) =
711: decode(p_operating_unit_id,
712: fnd_api.g_miss_num, nvl(orgd.operating_unit, fnd_api.g_miss_num),
713: p_operating_unit_id) and
714: nvl(inc.inv_organization_id, fnd_api.g_miss_num) =
708: fnd_api.g_miss_num, dra.repair_line_id,
709: p_repair_line_id) and
710: nvl(orgd.operating_unit, fnd_api.g_miss_num) =
711: decode(p_operating_unit_id,
712: fnd_api.g_miss_num, nvl(orgd.operating_unit, fnd_api.g_miss_num),
713: p_operating_unit_id) and
714: nvl(inc.inv_organization_id, fnd_api.g_miss_num) =
715: decode(p_inventory_org_id,
716: fnd_api.g_miss_num, nvl(inc.inv_organization_id, fnd_api.g_miss_num),
710: nvl(orgd.operating_unit, fnd_api.g_miss_num) =
711: decode(p_operating_unit_id,
712: fnd_api.g_miss_num, nvl(orgd.operating_unit, fnd_api.g_miss_num),
713: p_operating_unit_id) and
714: nvl(inc.inv_organization_id, fnd_api.g_miss_num) =
715: decode(p_inventory_org_id,
716: fnd_api.g_miss_num, nvl(inc.inv_organization_id, fnd_api.g_miss_num),
717: p_inventory_org_id) and
718: nvl(dra.resource_id, fnd_api.g_miss_num) =
712: fnd_api.g_miss_num, nvl(orgd.operating_unit, fnd_api.g_miss_num),
713: p_operating_unit_id) and
714: nvl(inc.inv_organization_id, fnd_api.g_miss_num) =
715: decode(p_inventory_org_id,
716: fnd_api.g_miss_num, nvl(inc.inv_organization_id, fnd_api.g_miss_num),
717: p_inventory_org_id) and
718: nvl(dra.resource_id, fnd_api.g_miss_num) =
719: decode(p_repair_owner_id,
720: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
714: nvl(inc.inv_organization_id, fnd_api.g_miss_num) =
715: decode(p_inventory_org_id,
716: fnd_api.g_miss_num, nvl(inc.inv_organization_id, fnd_api.g_miss_num),
717: p_inventory_org_id) and
718: nvl(dra.resource_id, fnd_api.g_miss_num) =
719: decode(p_repair_owner_id,
720: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
721: p_repair_owner_id) and
722: dra.flow_status_id =
716: fnd_api.g_miss_num, nvl(inc.inv_organization_id, fnd_api.g_miss_num),
717: p_inventory_org_id) and
718: nvl(dra.resource_id, fnd_api.g_miss_num) =
719: decode(p_repair_owner_id,
720: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
721: p_repair_owner_id) and
722: dra.flow_status_id =
723: decode(p_ro_status_id,
724: fnd_api.g_miss_num, dra.flow_status_id,
720: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
721: p_repair_owner_id) and
722: dra.flow_status_id =
723: decode(p_ro_status_id,
724: fnd_api.g_miss_num, dra.flow_status_id,
725: p_ro_status_id) and
726: dra.repair_type_id =
727: decode(p_repair_type_id,
728: fnd_api.g_miss_num, dra.repair_type_id,
724: fnd_api.g_miss_num, dra.flow_status_id,
725: p_ro_status_id) and
726: dra.repair_type_id =
727: decode(p_repair_type_id,
728: fnd_api.g_miss_num, dra.repair_type_id,
729: p_repair_type_id) and
730: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
731: decode(p_ro_priority_code,
732: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
726: dra.repair_type_id =
727: decode(p_repair_type_id,
728: fnd_api.g_miss_num, dra.repair_type_id,
729: p_repair_type_id) and
730: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
731: decode(p_ro_priority_code,
732: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
733: p_ro_priority_code) and
734: dra.creation_date >=
728: fnd_api.g_miss_num, dra.repair_type_id,
729: p_repair_type_id) and
730: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
731: decode(p_ro_priority_code,
732: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
733: p_ro_priority_code) and
734: dra.creation_date >=
735: decode(p_ro_age,
736: fnd_api.g_miss_num, dra.creation_date,
732: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
733: p_ro_priority_code) and
734: dra.creation_date >=
735: decode(p_ro_age,
736: fnd_api.g_miss_num, dra.creation_date,
737: sysdate - p_ro_age) and
738: nvl(dra.promise_date, G_MAX_DATE) <=
739: decode(p_ro_due_date_age,
740: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
736: fnd_api.g_miss_num, dra.creation_date,
737: sysdate - p_ro_age) and
738: nvl(dra.promise_date, G_MAX_DATE) <=
739: decode(p_ro_due_date_age,
740: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
741: sysdate + p_ro_due_date_age)) OLTP
742: ON (soo.repair_line_id = OLTP.repair_line_id and
743: soo.document_header_id = OLTP.document_header_id and
744: soo.document_type = 'SR')
822: null); -- paramn1
823:
824: -- Save changes to CSD_SO_ORCHESTRATION table even
825: -- if SOO rules engine fails.
826: IF FND_API.To_Boolean( p_commit ) THEN
827: COMMIT WORK;
828: END IF;
829:
830: SAVEPOINT REFRESH_SR;
844: l_rule_input_rec.sr_curr_status_id := l_status_id;
845:
846: CSD_RULES_ENGINE_PVT.SOO_DEFAULTING(
847: p_api_version_number => 1.0,
848: p_commit => fnd_api.g_false,
849: p_validation_level => p_validation_level,
850: p_event_type => 'SR_STATUS',
851: p_rule_input_rec => l_rule_input_rec,
852: x_rule_id => l_rule_id,
853: x_return_status => x_return_status,
854: x_msg_count => x_msg_count,
855: x_msg_data => x_msg_data);
856:
857: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
858: Debug('Trying to default SOO rule for SR status event failed.',l_mod_name,4);
859: RAISE FND_API.G_EXC_ERROR;
860: END IF;
861: END IF;
855: x_msg_data => x_msg_data);
856:
857: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
858: Debug('Trying to default SOO rule for SR status event failed.',l_mod_name,4);
859: RAISE FND_API.G_EXC_ERROR;
860: END IF;
861: END IF;
862: END LOOP;
863:
861: END IF;
862: END LOOP;
863:
864: -- Standard check of p_commit.
865: IF FND_API.To_Boolean( p_commit ) THEN
866: COMMIT WORK;
867: END IF;
868:
869: x_msg_count := fnd_msg_pub.count_msg;
868:
869: x_msg_count := fnd_msg_pub.count_msg;
870:
871: EXCEPTION
872: WHEN FND_API.G_EXC_ERROR THEN
873: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
874: ROLLBACK TO REFRESH_SR;
875: x_return_status := FND_API.G_RET_STS_ERROR ;
876: x_msg_count := fnd_msg_pub.count_msg;
869: x_msg_count := fnd_msg_pub.count_msg;
870:
871: EXCEPTION
872: WHEN FND_API.G_EXC_ERROR THEN
873: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
874: ROLLBACK TO REFRESH_SR;
875: x_return_status := FND_API.G_RET_STS_ERROR ;
876: x_msg_count := fnd_msg_pub.count_msg;
877: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
871: EXCEPTION
872: WHEN FND_API.G_EXC_ERROR THEN
873: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
874: ROLLBACK TO REFRESH_SR;
875: x_return_status := FND_API.G_RET_STS_ERROR ;
876: x_msg_count := fnd_msg_pub.count_msg;
877: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
878: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
879: IF ( l_error_level >= G_debug_level) THEN
873: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
874: ROLLBACK TO REFRESH_SR;
875: x_return_status := FND_API.G_RET_STS_ERROR ;
876: x_msg_count := fnd_msg_pub.count_msg;
877: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
878: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
879: IF ( l_error_level >= G_debug_level) THEN
880: fnd_message.set_name('CSD','CSD_SQL_ERROR');
881: fnd_message.set_token('SQLERRM',SQLERRM);
874: ROLLBACK TO REFRESH_SR;
875: x_return_status := FND_API.G_RET_STS_ERROR ;
876: x_msg_count := fnd_msg_pub.count_msg;
877: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
878: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
879: IF ( l_error_level >= G_debug_level) THEN
880: fnd_message.set_name('CSD','CSD_SQL_ERROR');
881: fnd_message.set_token('SQLERRM',SQLERRM);
882: fnd_message.set_token('SQLCODE',SQLCODE);
882: fnd_message.set_token('SQLCODE',SQLCODE);
883: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
884: END If;
885: ROLLBACK TO REFRESH_SR;
886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
887: x_msg_count := fnd_msg_pub.count_msg;
888: WHEN OTHERS THEN
889: Debug('In OTHERS Exception',l_mod_name,4);
890: IF ( l_error_level >= G_debug_level) THEN
893: fnd_message.set_token('SQLCODE',SQLCODE);
894: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
895: END If;
896: ROLLBACK TO REFRESH_SR;
897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
898: IF FND_MSG_PUB.Check_Msg_Level
899: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
900: THEN
901: FND_MSG_PUB.Add_Exc_Msg
913: p_validation_level IN NUMBER,
914: x_return_status OUT NOCOPY VARCHAR2,
915: x_msg_count OUT NOCOPY NUMBER,
916: x_msg_data OUT NOCOPY VARCHAR2,
917: p_task_id IN NUMBER := FND_API.G_MISS_NUM,
918: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
919: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
920: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
921: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
914: x_return_status OUT NOCOPY VARCHAR2,
915: x_msg_count OUT NOCOPY NUMBER,
916: x_msg_data OUT NOCOPY VARCHAR2,
917: p_task_id IN NUMBER := FND_API.G_MISS_NUM,
918: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
919: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
920: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
921: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
922: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
915: x_msg_count OUT NOCOPY NUMBER,
916: x_msg_data OUT NOCOPY VARCHAR2,
917: p_task_id IN NUMBER := FND_API.G_MISS_NUM,
918: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
919: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
920: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
921: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
922: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
923: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
916: x_msg_data OUT NOCOPY VARCHAR2,
917: p_task_id IN NUMBER := FND_API.G_MISS_NUM,
918: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
919: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
920: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
921: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
922: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
923: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
924: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
917: p_task_id IN NUMBER := FND_API.G_MISS_NUM,
918: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
919: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
920: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
921: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
922: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
923: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
924: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
925: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
918: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
919: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
920: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
921: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
922: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
923: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
924: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
925: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
926: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
919: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
920: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
921: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
922: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
923: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
924: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
925: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
926: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
927: IS
920: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
921: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
922: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
923: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
924: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
925: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
926: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
927: IS
928: -- Standard Variables
921: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
922: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
923: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
924: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
925: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
926: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
927: IS
928: -- Standard Variables
929: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_SR_TASK';
922: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
923: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
924: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
925: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
926: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
927: IS
928: -- Standard Variables
929: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_SR_TASK';
930: l_api_version CONSTANT NUMBER := 1.0;
952: BEGIN
953: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entering Refresh_SR_Task...');
954:
955: -- Initialize API return status to success
956: x_return_status := FND_API.G_RET_STS_SUCCESS;
957:
958: -- Log the api name in the log file
959: Debug('At the Beginning of Refresh_SR_Task', l_mod_name, 1);
960:
958: -- Log the api name in the log file
959: Debug('At the Beginning of Refresh_SR_Task', l_mod_name, 1);
960:
961: -- Standard call to check for call compatibility.
962: IF NOT FND_API.Compatible_API_Call (l_api_version,
963: p_api_version,
964: l_api_name ,
965: G_PKG_NAME)
966: THEN
963: p_api_version,
964: l_api_name ,
965: G_PKG_NAME)
966: THEN
967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
968: END IF;
969:
970: -- Initialize message list if p_init_msg_list is set to TRUE.
971: IF FND_API.to_Boolean(p_init_msg_list) THEN
967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
968: END IF;
969:
970: -- Initialize message list if p_init_msg_list is set to TRUE.
971: IF FND_API.to_Boolean(p_init_msg_list) THEN
972: FND_MSG_PUB.initialize;
973: END IF;
974:
975: -- Api body starts
997: dra.incident_id = inc.incident_id and
998: dra.incident_id = tsk.source_object_id and
999: orgd.organization_id(+) = inc.inv_organization_id and
1000: tsk.task_id = decode(p_task_id,
1001: fnd_api.g_miss_num, tsk.task_id,
1002: p_task_id) and
1003: dra.repair_line_id = decode(p_repair_line_id,
1004: fnd_api.g_miss_num, dra.repair_line_id,
1005: p_repair_line_id) and
1000: tsk.task_id = decode(p_task_id,
1001: fnd_api.g_miss_num, tsk.task_id,
1002: p_task_id) and
1003: dra.repair_line_id = decode(p_repair_line_id,
1004: fnd_api.g_miss_num, dra.repair_line_id,
1005: p_repair_line_id) and
1006: nvl(orgd.operating_unit, fnd_api.g_miss_num) =
1007: decode(p_operating_unit_id,
1008: fnd_api.g_miss_num, nvl(orgd.operating_unit, fnd_api.g_miss_num),
1002: p_task_id) and
1003: dra.repair_line_id = decode(p_repair_line_id,
1004: fnd_api.g_miss_num, dra.repair_line_id,
1005: p_repair_line_id) and
1006: nvl(orgd.operating_unit, fnd_api.g_miss_num) =
1007: decode(p_operating_unit_id,
1008: fnd_api.g_miss_num, nvl(orgd.operating_unit, fnd_api.g_miss_num),
1009: p_operating_unit_id) and
1010: nvl(inc.inv_organization_id, fnd_api.g_miss_num) =
1004: fnd_api.g_miss_num, dra.repair_line_id,
1005: p_repair_line_id) and
1006: nvl(orgd.operating_unit, fnd_api.g_miss_num) =
1007: decode(p_operating_unit_id,
1008: fnd_api.g_miss_num, nvl(orgd.operating_unit, fnd_api.g_miss_num),
1009: p_operating_unit_id) and
1010: nvl(inc.inv_organization_id, fnd_api.g_miss_num) =
1011: decode(p_inventory_org_id,
1012: fnd_api.g_miss_num, nvl(inc.inv_organization_id, fnd_api.g_miss_num),
1006: nvl(orgd.operating_unit, fnd_api.g_miss_num) =
1007: decode(p_operating_unit_id,
1008: fnd_api.g_miss_num, nvl(orgd.operating_unit, fnd_api.g_miss_num),
1009: p_operating_unit_id) and
1010: nvl(inc.inv_organization_id, fnd_api.g_miss_num) =
1011: decode(p_inventory_org_id,
1012: fnd_api.g_miss_num, nvl(inc.inv_organization_id, fnd_api.g_miss_num),
1013: p_inventory_org_id) and
1014: nvl(dra.resource_id, fnd_api.g_miss_num) =
1008: fnd_api.g_miss_num, nvl(orgd.operating_unit, fnd_api.g_miss_num),
1009: p_operating_unit_id) and
1010: nvl(inc.inv_organization_id, fnd_api.g_miss_num) =
1011: decode(p_inventory_org_id,
1012: fnd_api.g_miss_num, nvl(inc.inv_organization_id, fnd_api.g_miss_num),
1013: p_inventory_org_id) and
1014: nvl(dra.resource_id, fnd_api.g_miss_num) =
1015: decode(p_repair_owner_id,
1016: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
1010: nvl(inc.inv_organization_id, fnd_api.g_miss_num) =
1011: decode(p_inventory_org_id,
1012: fnd_api.g_miss_num, nvl(inc.inv_organization_id, fnd_api.g_miss_num),
1013: p_inventory_org_id) and
1014: nvl(dra.resource_id, fnd_api.g_miss_num) =
1015: decode(p_repair_owner_id,
1016: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
1017: p_repair_owner_id) and
1018: dra.flow_status_id =
1012: fnd_api.g_miss_num, nvl(inc.inv_organization_id, fnd_api.g_miss_num),
1013: p_inventory_org_id) and
1014: nvl(dra.resource_id, fnd_api.g_miss_num) =
1015: decode(p_repair_owner_id,
1016: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
1017: p_repair_owner_id) and
1018: dra.flow_status_id =
1019: decode(p_ro_status_id,
1020: fnd_api.g_miss_num, dra.flow_status_id,
1016: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
1017: p_repair_owner_id) and
1018: dra.flow_status_id =
1019: decode(p_ro_status_id,
1020: fnd_api.g_miss_num, dra.flow_status_id,
1021: p_ro_status_id) and
1022: dra.repair_type_id =
1023: decode(p_repair_type_id,
1024: fnd_api.g_miss_num, dra.repair_type_id,
1020: fnd_api.g_miss_num, dra.flow_status_id,
1021: p_ro_status_id) and
1022: dra.repair_type_id =
1023: decode(p_repair_type_id,
1024: fnd_api.g_miss_num, dra.repair_type_id,
1025: p_repair_type_id) and
1026: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
1027: decode(p_ro_priority_code,
1028: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
1022: dra.repair_type_id =
1023: decode(p_repair_type_id,
1024: fnd_api.g_miss_num, dra.repair_type_id,
1025: p_repair_type_id) and
1026: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
1027: decode(p_ro_priority_code,
1028: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
1029: p_ro_priority_code) and
1030: dra.creation_date >=
1024: fnd_api.g_miss_num, dra.repair_type_id,
1025: p_repair_type_id) and
1026: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
1027: decode(p_ro_priority_code,
1028: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
1029: p_ro_priority_code) and
1030: dra.creation_date >=
1031: decode(p_ro_age,
1032: fnd_api.g_miss_num, dra.creation_date,
1028: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
1029: p_ro_priority_code) and
1030: dra.creation_date >=
1031: decode(p_ro_age,
1032: fnd_api.g_miss_num, dra.creation_date,
1033: sysdate - p_ro_age) and
1034: nvl(dra.promise_date, G_MAX_DATE) <=
1035: decode(p_ro_due_date_age,
1036: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
1032: fnd_api.g_miss_num, dra.creation_date,
1033: sysdate - p_ro_age) and
1034: nvl(dra.promise_date, G_MAX_DATE) <=
1035: decode(p_ro_due_date_age,
1036: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
1037: sysdate + p_ro_due_date_age)) OLTP
1038: ON (soo.repair_line_id = OLTP.repair_line_id and
1039: soo.document_header_id = OLTP.document_header_id and
1040: -- nvl(soo.document_line_id, fnd_api.g_miss_num) =
1036: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
1037: sysdate + p_ro_due_date_age)) OLTP
1038: ON (soo.repair_line_id = OLTP.repair_line_id and
1039: soo.document_header_id = OLTP.document_header_id and
1040: -- nvl(soo.document_line_id, fnd_api.g_miss_num) =
1041: -- nvl(OLTP.document_line_id, fnd_api.g_miss_num) and
1042: soo.document_type = 'SR_TASK')
1043: WHEN MATCHED THEN
1044: UPDATE SET
1037: sysdate + p_ro_due_date_age)) OLTP
1038: ON (soo.repair_line_id = OLTP.repair_line_id and
1039: soo.document_header_id = OLTP.document_header_id and
1040: -- nvl(soo.document_line_id, fnd_api.g_miss_num) =
1041: -- nvl(OLTP.document_line_id, fnd_api.g_miss_num) and
1042: soo.document_type = 'SR_TASK')
1043: WHEN MATCHED THEN
1044: UPDATE SET
1045: soo.prev_status_id = (CASE update_count(soo.orchestration_id) when 'A' then soo.status_id end),
1120: null); -- paramn1
1121:
1122: -- Save changes to CSD_SO_ORCHESTRATION table even
1123: -- if SOO rules engine fails.
1124: IF FND_API.To_Boolean( p_commit ) THEN
1125: COMMIT WORK;
1126: END IF;
1127:
1128: SAVEPOINT REFRESH_SR_TASK;
1142: l_rule_input_rec.sr_task_curr_status_id := l_status_id;
1143:
1144: CSD_RULES_ENGINE_PVT.SOO_DEFAULTING(
1145: p_api_version_number => 1.0,
1146: p_commit => fnd_api.g_false,
1147: p_validation_level => p_validation_level,
1148: p_event_type => 'SR_TASK_STATUS',
1149: p_rule_input_rec => l_rule_input_rec,
1150: x_rule_id => l_rule_id,
1151: x_return_status => x_return_status,
1152: x_msg_count => x_msg_count,
1153: x_msg_data => x_msg_data);
1154:
1155: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1156: Debug('Trying to default SOO rule for SR Task status event failed.',l_mod_name,4);
1157: RAISE FND_API.G_EXC_ERROR;
1158: END IF;
1159: END IF;
1153: x_msg_data => x_msg_data);
1154:
1155: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1156: Debug('Trying to default SOO rule for SR Task status event failed.',l_mod_name,4);
1157: RAISE FND_API.G_EXC_ERROR;
1158: END IF;
1159: END IF;
1160: END LOOP;
1161:
1159: END IF;
1160: END LOOP;
1161:
1162: -- Standard check of p_commit.
1163: IF FND_API.To_Boolean( p_commit ) THEN
1164: COMMIT WORK;
1165: END IF;
1166:
1167: x_msg_count := fnd_msg_pub.count_msg;
1166:
1167: x_msg_count := fnd_msg_pub.count_msg;
1168:
1169: EXCEPTION
1170: WHEN FND_API.G_EXC_ERROR THEN
1171: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
1172: ROLLBACK TO REFRESH_SR_TASK;
1173: x_return_status := FND_API.G_RET_STS_ERROR ;
1174: x_msg_count := fnd_msg_pub.count_msg;
1167: x_msg_count := fnd_msg_pub.count_msg;
1168:
1169: EXCEPTION
1170: WHEN FND_API.G_EXC_ERROR THEN
1171: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
1172: ROLLBACK TO REFRESH_SR_TASK;
1173: x_return_status := FND_API.G_RET_STS_ERROR ;
1174: x_msg_count := fnd_msg_pub.count_msg;
1175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1169: EXCEPTION
1170: WHEN FND_API.G_EXC_ERROR THEN
1171: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
1172: ROLLBACK TO REFRESH_SR_TASK;
1173: x_return_status := FND_API.G_RET_STS_ERROR ;
1174: x_msg_count := fnd_msg_pub.count_msg;
1175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1176: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
1177: IF ( l_error_level >= G_debug_level) THEN
1171: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
1172: ROLLBACK TO REFRESH_SR_TASK;
1173: x_return_status := FND_API.G_RET_STS_ERROR ;
1174: x_msg_count := fnd_msg_pub.count_msg;
1175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1176: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
1177: IF ( l_error_level >= G_debug_level) THEN
1178: fnd_message.set_name('CSD','CSD_SQL_ERROR');
1179: fnd_message.set_token('SQLERRM',SQLERRM);
1172: ROLLBACK TO REFRESH_SR_TASK;
1173: x_return_status := FND_API.G_RET_STS_ERROR ;
1174: x_msg_count := fnd_msg_pub.count_msg;
1175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1176: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
1177: IF ( l_error_level >= G_debug_level) THEN
1178: fnd_message.set_name('CSD','CSD_SQL_ERROR');
1179: fnd_message.set_token('SQLERRM',SQLERRM);
1180: fnd_message.set_token('SQLCODE',SQLCODE);
1180: fnd_message.set_token('SQLCODE',SQLCODE);
1181: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
1182: END If;
1183: ROLLBACK TO REFRESH_SR_TASK;
1184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1185: x_msg_count := fnd_msg_pub.count_msg;
1186: WHEN OTHERS THEN
1187: Debug('In OTHERS Exception',l_mod_name,4);
1188: IF ( l_error_level >= G_debug_level) THEN
1191: fnd_message.set_token('SQLCODE',SQLCODE);
1192: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
1193: END If;
1194: ROLLBACK TO REFRESH_SR_TASK;
1195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1196: IF FND_MSG_PUB.Check_Msg_Level
1197: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1198: THEN
1199: FND_MSG_PUB.Add_Exc_Msg
1211: p_validation_level IN NUMBER,
1212: x_return_status OUT NOCOPY VARCHAR2,
1213: x_msg_count OUT NOCOPY NUMBER,
1214: x_msg_data OUT NOCOPY VARCHAR2,
1215: p_req_header_id IN NUMBER := FND_API.G_MISS_NUM,
1216: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
1217: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1218: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1219: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1212: x_return_status OUT NOCOPY VARCHAR2,
1213: x_msg_count OUT NOCOPY NUMBER,
1214: x_msg_data OUT NOCOPY VARCHAR2,
1215: p_req_header_id IN NUMBER := FND_API.G_MISS_NUM,
1216: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
1217: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1218: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1219: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1220: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1213: x_msg_count OUT NOCOPY NUMBER,
1214: x_msg_data OUT NOCOPY VARCHAR2,
1215: p_req_header_id IN NUMBER := FND_API.G_MISS_NUM,
1216: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
1217: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1218: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1219: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1220: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1221: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1214: x_msg_data OUT NOCOPY VARCHAR2,
1215: p_req_header_id IN NUMBER := FND_API.G_MISS_NUM,
1216: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
1217: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1218: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1219: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1220: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1221: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1222: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1215: p_req_header_id IN NUMBER := FND_API.G_MISS_NUM,
1216: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
1217: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1218: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1219: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1220: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1221: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1222: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1223: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
1216: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
1217: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1218: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1219: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1220: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1221: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1222: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1223: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
1224: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
1217: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1218: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1219: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1220: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1221: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1222: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1223: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
1224: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
1225: IS
1218: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1219: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1220: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1221: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1222: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1223: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
1224: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
1225: IS
1226: -- Standard Variables
1219: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1220: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1221: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1222: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1223: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
1224: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
1225: IS
1226: -- Standard Variables
1227: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_PURCHASE_REQ';
1220: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1221: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1222: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1223: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
1224: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
1225: IS
1226: -- Standard Variables
1227: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_PURCHASE_REQ';
1228: l_api_version CONSTANT NUMBER := 1.0;
1257: BEGIN
1258: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entering Refresh_Purchase_Req...');
1259:
1260: -- Initialize API return status to success
1261: x_return_status := FND_API.G_RET_STS_SUCCESS;
1262:
1263: -- Log the api name in the log file
1264: Debug('At the Beginning of Refresh_Purchase_Req', l_mod_name, 1);
1265:
1263: -- Log the api name in the log file
1264: Debug('At the Beginning of Refresh_Purchase_Req', l_mod_name, 1);
1265:
1266: -- Standard call to check for call compatibility.
1267: IF NOT FND_API.Compatible_API_Call (l_api_version,
1268: p_api_version,
1269: l_api_name ,
1270: G_PKG_NAME)
1271: THEN
1268: p_api_version,
1269: l_api_name ,
1270: G_PKG_NAME)
1271: THEN
1272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1273: END IF;
1274:
1275: -- Initialize message list if p_init_msg_list is set to TRUE.
1276: IF FND_API.to_Boolean(p_init_msg_list) THEN
1272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1273: END IF;
1274:
1275: -- Initialize message list if p_init_msg_list is set to TRUE.
1276: IF FND_API.to_Boolean(p_init_msg_list) THEN
1277: FND_MSG_PUB.initialize;
1278: END IF;
1279:
1280: -- Api body starts
1305: we.wip_entity_id = xref.wip_entity_id and
1306: porl.wip_entity_id = xref.wip_entity_id and
1307: porh.requisition_header_id = porl.requisition_header_id and
1308: porh.requisition_header_id = decode(p_req_header_id,
1309: fnd_api.g_miss_num, porh.requisition_header_id,
1310: p_req_header_id) and
1311: dra.repair_line_id = decode(p_repair_line_id,
1312: fnd_api.g_miss_num, dra.repair_line_id,
1313: p_repair_line_id) and
1308: porh.requisition_header_id = decode(p_req_header_id,
1309: fnd_api.g_miss_num, porh.requisition_header_id,
1310: p_req_header_id) and
1311: dra.repair_line_id = decode(p_repair_line_id,
1312: fnd_api.g_miss_num, dra.repair_line_id,
1313: p_repair_line_id) and
1314: nvl(porh.org_id, fnd_api.g_miss_num) =
1315: decode(p_operating_unit_id,
1316: fnd_api.g_miss_num, nvl(porh.org_id, fnd_api.g_miss_num),
1310: p_req_header_id) and
1311: dra.repair_line_id = decode(p_repair_line_id,
1312: fnd_api.g_miss_num, dra.repair_line_id,
1313: p_repair_line_id) and
1314: nvl(porh.org_id, fnd_api.g_miss_num) =
1315: decode(p_operating_unit_id,
1316: fnd_api.g_miss_num, nvl(porh.org_id, fnd_api.g_miss_num),
1317: p_operating_unit_id) and
1318: we.organization_id =
1312: fnd_api.g_miss_num, dra.repair_line_id,
1313: p_repair_line_id) and
1314: nvl(porh.org_id, fnd_api.g_miss_num) =
1315: decode(p_operating_unit_id,
1316: fnd_api.g_miss_num, nvl(porh.org_id, fnd_api.g_miss_num),
1317: p_operating_unit_id) and
1318: we.organization_id =
1319: decode(p_inventory_org_id,
1320: fnd_api.g_miss_num, we.organization_id,
1316: fnd_api.g_miss_num, nvl(porh.org_id, fnd_api.g_miss_num),
1317: p_operating_unit_id) and
1318: we.organization_id =
1319: decode(p_inventory_org_id,
1320: fnd_api.g_miss_num, we.organization_id,
1321: p_inventory_org_id) and
1322: nvl(dra.resource_id, fnd_api.g_miss_num) =
1323: decode(p_repair_owner_id,
1324: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
1318: we.organization_id =
1319: decode(p_inventory_org_id,
1320: fnd_api.g_miss_num, we.organization_id,
1321: p_inventory_org_id) and
1322: nvl(dra.resource_id, fnd_api.g_miss_num) =
1323: decode(p_repair_owner_id,
1324: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
1325: p_repair_owner_id) and
1326: dra.flow_status_id =
1320: fnd_api.g_miss_num, we.organization_id,
1321: p_inventory_org_id) and
1322: nvl(dra.resource_id, fnd_api.g_miss_num) =
1323: decode(p_repair_owner_id,
1324: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
1325: p_repair_owner_id) and
1326: dra.flow_status_id =
1327: decode(p_ro_status_id,
1328: fnd_api.g_miss_num, dra.flow_status_id,
1324: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
1325: p_repair_owner_id) and
1326: dra.flow_status_id =
1327: decode(p_ro_status_id,
1328: fnd_api.g_miss_num, dra.flow_status_id,
1329: p_ro_status_id) and
1330: dra.repair_type_id =
1331: decode(p_repair_type_id,
1332: fnd_api.g_miss_num, dra.repair_type_id,
1328: fnd_api.g_miss_num, dra.flow_status_id,
1329: p_ro_status_id) and
1330: dra.repair_type_id =
1331: decode(p_repair_type_id,
1332: fnd_api.g_miss_num, dra.repair_type_id,
1333: p_repair_type_id) and
1334: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
1335: decode(p_ro_priority_code,
1336: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
1330: dra.repair_type_id =
1331: decode(p_repair_type_id,
1332: fnd_api.g_miss_num, dra.repair_type_id,
1333: p_repair_type_id) and
1334: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
1335: decode(p_ro_priority_code,
1336: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
1337: p_ro_priority_code) and
1338: dra.creation_date >=
1332: fnd_api.g_miss_num, dra.repair_type_id,
1333: p_repair_type_id) and
1334: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
1335: decode(p_ro_priority_code,
1336: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
1337: p_ro_priority_code) and
1338: dra.creation_date >=
1339: decode(p_ro_age,
1340: fnd_api.g_miss_num, dra.creation_date,
1336: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
1337: p_ro_priority_code) and
1338: dra.creation_date >=
1339: decode(p_ro_age,
1340: fnd_api.g_miss_num, dra.creation_date,
1341: sysdate - p_ro_age) and
1342: nvl(dra.promise_date, G_MAX_DATE) <=
1343: decode(p_ro_due_date_age,
1344: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
1340: fnd_api.g_miss_num, dra.creation_date,
1341: sysdate - p_ro_age) and
1342: nvl(dra.promise_date, G_MAX_DATE) <=
1343: decode(p_ro_due_date_age,
1344: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
1345: sysdate + p_ro_due_date_age)) OLTP
1346: ON (soo.repair_line_id = OLTP.repair_line_id and
1347: soo.document_header_id = OLTP.document_header_id and
1348: -- nvl(soo.document_line_id, fnd_api.g_miss_num) =
1344: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
1345: sysdate + p_ro_due_date_age)) OLTP
1346: ON (soo.repair_line_id = OLTP.repair_line_id and
1347: soo.document_header_id = OLTP.document_header_id and
1348: -- nvl(soo.document_line_id, fnd_api.g_miss_num) =
1349: -- nvl(OLTP.document_line_id, fnd_api.g_miss_num) and
1350: soo.document_type = 'PR')
1351: WHEN MATCHED THEN
1352: UPDATE SET
1345: sysdate + p_ro_due_date_age)) OLTP
1346: ON (soo.repair_line_id = OLTP.repair_line_id and
1347: soo.document_header_id = OLTP.document_header_id and
1348: -- nvl(soo.document_line_id, fnd_api.g_miss_num) =
1349: -- nvl(OLTP.document_line_id, fnd_api.g_miss_num) and
1350: soo.document_type = 'PR')
1351: WHEN MATCHED THEN
1352: UPDATE SET
1353: soo.prev_status_code = (CASE update_count(soo.orchestration_id) when 'A' then soo.status_code end),
1428: null); -- paramn1
1429:
1430: -- Save changes to CSD_SO_ORCHESTRATION table even
1431: -- if SOO rules engine fails.
1432: IF FND_API.To_Boolean( p_commit ) THEN
1433: COMMIT WORK;
1434: END IF;
1435:
1436: SAVEPOINT REFRESH_PURCHASE_REQ;
1454: l_rule_input_rec.pr_curr_status_code := l_status_code;
1455:
1456: CSD_RULES_ENGINE_PVT.SOO_DEFAULTING(
1457: p_api_version_number => 1.0,
1458: p_commit => fnd_api.g_false,
1459: p_validation_level => p_validation_level,
1460: p_event_type => 'PR_STATUS',
1461: p_rule_input_rec => l_rule_input_rec,
1462: x_rule_id => l_rule_id,
1463: x_return_status => x_return_status,
1464: x_msg_count => x_msg_count,
1465: x_msg_data => x_msg_data);
1466:
1467: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1468: Debug('Trying to default SOO rule for Purchase Req status event failed.',l_mod_name,4);
1469: RAISE FND_API.G_EXC_ERROR;
1470: END IF;
1471: END IF;
1465: x_msg_data => x_msg_data);
1466:
1467: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1468: Debug('Trying to default SOO rule for Purchase Req status event failed.',l_mod_name,4);
1469: RAISE FND_API.G_EXC_ERROR;
1470: END IF;
1471: END IF;
1472: END LOOP;
1473:
1471: END IF;
1472: END LOOP;
1473:
1474: -- Standard check of p_commit.
1475: IF FND_API.To_Boolean( p_commit ) THEN
1476: COMMIT WORK;
1477: END IF;
1478:
1479: x_msg_count := fnd_msg_pub.count_msg;
1478:
1479: x_msg_count := fnd_msg_pub.count_msg;
1480:
1481: EXCEPTION
1482: WHEN FND_API.G_EXC_ERROR THEN
1483: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
1484: ROLLBACK TO REFRESH_PURCHASE_REQ;
1485: x_return_status := FND_API.G_RET_STS_ERROR ;
1486: x_msg_count := fnd_msg_pub.count_msg;
1479: x_msg_count := fnd_msg_pub.count_msg;
1480:
1481: EXCEPTION
1482: WHEN FND_API.G_EXC_ERROR THEN
1483: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
1484: ROLLBACK TO REFRESH_PURCHASE_REQ;
1485: x_return_status := FND_API.G_RET_STS_ERROR ;
1486: x_msg_count := fnd_msg_pub.count_msg;
1487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1481: EXCEPTION
1482: WHEN FND_API.G_EXC_ERROR THEN
1483: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
1484: ROLLBACK TO REFRESH_PURCHASE_REQ;
1485: x_return_status := FND_API.G_RET_STS_ERROR ;
1486: x_msg_count := fnd_msg_pub.count_msg;
1487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1488: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
1489: IF ( l_error_level >= G_debug_level) THEN
1483: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
1484: ROLLBACK TO REFRESH_PURCHASE_REQ;
1485: x_return_status := FND_API.G_RET_STS_ERROR ;
1486: x_msg_count := fnd_msg_pub.count_msg;
1487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1488: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
1489: IF ( l_error_level >= G_debug_level) THEN
1490: fnd_message.set_name('CSD','CSD_SQL_ERROR');
1491: fnd_message.set_token('SQLERRM',SQLERRM);
1484: ROLLBACK TO REFRESH_PURCHASE_REQ;
1485: x_return_status := FND_API.G_RET_STS_ERROR ;
1486: x_msg_count := fnd_msg_pub.count_msg;
1487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1488: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
1489: IF ( l_error_level >= G_debug_level) THEN
1490: fnd_message.set_name('CSD','CSD_SQL_ERROR');
1491: fnd_message.set_token('SQLERRM',SQLERRM);
1492: fnd_message.set_token('SQLCODE',SQLCODE);
1492: fnd_message.set_token('SQLCODE',SQLCODE);
1493: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
1494: END If;
1495: ROLLBACK TO REFRESH_PURCHASE_REQ;
1496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1497: x_msg_count := fnd_msg_pub.count_msg;
1498: WHEN OTHERS THEN
1499: Debug('In OTHERS Exception',l_mod_name,4);
1500: IF ( l_error_level >= G_debug_level) THEN
1503: fnd_message.set_token('SQLCODE',SQLCODE);
1504: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
1505: END If;
1506: ROLLBACK TO REFRESH_PURCHASE_REQ;
1507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1508: IF FND_MSG_PUB.Check_Msg_Level
1509: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1510: THEN
1511: FND_MSG_PUB.Add_Exc_Msg
1523: p_validation_level IN NUMBER,
1524: x_return_status OUT NOCOPY VARCHAR2,
1525: x_msg_count OUT NOCOPY NUMBER,
1526: x_msg_data OUT NOCOPY VARCHAR2,
1527: p_req_header_id IN NUMBER := FND_API.G_MISS_NUM,
1528: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
1529: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1530: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1531: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1524: x_return_status OUT NOCOPY VARCHAR2,
1525: x_msg_count OUT NOCOPY NUMBER,
1526: x_msg_data OUT NOCOPY VARCHAR2,
1527: p_req_header_id IN NUMBER := FND_API.G_MISS_NUM,
1528: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
1529: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1530: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1531: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1532: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1525: x_msg_count OUT NOCOPY NUMBER,
1526: x_msg_data OUT NOCOPY VARCHAR2,
1527: p_req_header_id IN NUMBER := FND_API.G_MISS_NUM,
1528: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
1529: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1530: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1531: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1532: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1533: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1526: x_msg_data OUT NOCOPY VARCHAR2,
1527: p_req_header_id IN NUMBER := FND_API.G_MISS_NUM,
1528: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
1529: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1530: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1531: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1532: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1533: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1534: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1527: p_req_header_id IN NUMBER := FND_API.G_MISS_NUM,
1528: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
1529: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1530: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1531: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1532: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1533: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1534: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1535: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
1528: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
1529: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1530: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1531: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1532: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1533: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1534: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1535: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
1536: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
1529: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1530: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1531: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1532: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1533: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1534: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1535: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
1536: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
1537: IS
1530: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1531: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1532: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1533: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1534: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1535: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
1536: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
1537: IS
1538: -- Standard Variables
1531: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1532: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1533: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1534: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1535: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
1536: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
1537: IS
1538: -- Standard Variables
1539: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_INTERNAL_REQ';
1532: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1533: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1534: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1535: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
1536: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
1537: IS
1538: -- Standard Variables
1539: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_INTERNAL_REQ';
1540: l_api_version CONSTANT NUMBER := 1.0;
1579: BEGIN
1580: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entering Refresh_Internal_Req...');
1581:
1582: -- Initialize API return status to success
1583: x_return_status := FND_API.G_RET_STS_SUCCESS;
1584:
1585: -- Log the api name in the log file
1586: Debug('At the Beginning of Refresh_Internal_Req', l_mod_name, 1);
1587:
1585: -- Log the api name in the log file
1586: Debug('At the Beginning of Refresh_Internal_Req', l_mod_name, 1);
1587:
1588: -- Standard call to check for call compatibility.
1589: IF NOT FND_API.Compatible_API_Call (l_api_version,
1590: p_api_version,
1591: l_api_name ,
1592: G_PKG_NAME)
1593: THEN
1590: p_api_version,
1591: l_api_name ,
1592: G_PKG_NAME)
1593: THEN
1594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1595: END IF;
1596:
1597: -- Initialize message list if p_init_msg_list is set to TRUE.
1598: IF FND_API.to_Boolean(p_init_msg_list) THEN
1594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1595: END IF;
1596:
1597: -- Initialize message list if p_init_msg_list is set to TRUE.
1598: IF FND_API.to_Boolean(p_init_msg_list) THEN
1599: FND_MSG_PUB.initialize;
1600: END IF;
1601:
1602: -- Api body starts
1623: dra.repair_line_id = dpt.repair_line_id and
1624: dpt.action_type is null and
1625: dpt.req_header_id = porh.requisition_header_id and
1626: porh.requisition_header_id = decode(p_req_header_id,
1627: fnd_api.g_miss_num, porh.requisition_header_id,
1628: p_req_header_id) and
1629: dra.repair_line_id = decode(p_repair_line_id,
1630: fnd_api.g_miss_num, dra.repair_line_id,
1631: p_repair_line_id) and
1626: porh.requisition_header_id = decode(p_req_header_id,
1627: fnd_api.g_miss_num, porh.requisition_header_id,
1628: p_req_header_id) and
1629: dra.repair_line_id = decode(p_repair_line_id,
1630: fnd_api.g_miss_num, dra.repair_line_id,
1631: p_repair_line_id) and
1632: nvl(dpt.rcv_into_ou, fnd_api.g_miss_num) = -- operating unit
1633: decode(p_operating_unit_id,
1634: fnd_api.g_miss_num, nvl(dpt.rcv_into_ou, fnd_api.g_miss_num),
1628: p_req_header_id) and
1629: dra.repair_line_id = decode(p_repair_line_id,
1630: fnd_api.g_miss_num, dra.repair_line_id,
1631: p_repair_line_id) and
1632: nvl(dpt.rcv_into_ou, fnd_api.g_miss_num) = -- operating unit
1633: decode(p_operating_unit_id,
1634: fnd_api.g_miss_num, nvl(dpt.rcv_into_ou, fnd_api.g_miss_num),
1635: p_operating_unit_id) and
1636: nvl(dpt.rcv_into_org, fnd_api.g_miss_num) = -- inventory org
1630: fnd_api.g_miss_num, dra.repair_line_id,
1631: p_repair_line_id) and
1632: nvl(dpt.rcv_into_ou, fnd_api.g_miss_num) = -- operating unit
1633: decode(p_operating_unit_id,
1634: fnd_api.g_miss_num, nvl(dpt.rcv_into_ou, fnd_api.g_miss_num),
1635: p_operating_unit_id) and
1636: nvl(dpt.rcv_into_org, fnd_api.g_miss_num) = -- inventory org
1637: decode(p_inventory_org_id,
1638: fnd_api.g_miss_num, nvl(dpt.rcv_into_org, fnd_api.g_miss_num),
1632: nvl(dpt.rcv_into_ou, fnd_api.g_miss_num) = -- operating unit
1633: decode(p_operating_unit_id,
1634: fnd_api.g_miss_num, nvl(dpt.rcv_into_ou, fnd_api.g_miss_num),
1635: p_operating_unit_id) and
1636: nvl(dpt.rcv_into_org, fnd_api.g_miss_num) = -- inventory org
1637: decode(p_inventory_org_id,
1638: fnd_api.g_miss_num, nvl(dpt.rcv_into_org, fnd_api.g_miss_num),
1639: p_inventory_org_id) and
1640: nvl(dra.resource_id, fnd_api.g_miss_num) =
1634: fnd_api.g_miss_num, nvl(dpt.rcv_into_ou, fnd_api.g_miss_num),
1635: p_operating_unit_id) and
1636: nvl(dpt.rcv_into_org, fnd_api.g_miss_num) = -- inventory org
1637: decode(p_inventory_org_id,
1638: fnd_api.g_miss_num, nvl(dpt.rcv_into_org, fnd_api.g_miss_num),
1639: p_inventory_org_id) and
1640: nvl(dra.resource_id, fnd_api.g_miss_num) =
1641: decode(p_repair_owner_id,
1642: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
1636: nvl(dpt.rcv_into_org, fnd_api.g_miss_num) = -- inventory org
1637: decode(p_inventory_org_id,
1638: fnd_api.g_miss_num, nvl(dpt.rcv_into_org, fnd_api.g_miss_num),
1639: p_inventory_org_id) and
1640: nvl(dra.resource_id, fnd_api.g_miss_num) =
1641: decode(p_repair_owner_id,
1642: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
1643: p_repair_owner_id) and
1644: dra.flow_status_id =
1638: fnd_api.g_miss_num, nvl(dpt.rcv_into_org, fnd_api.g_miss_num),
1639: p_inventory_org_id) and
1640: nvl(dra.resource_id, fnd_api.g_miss_num) =
1641: decode(p_repair_owner_id,
1642: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
1643: p_repair_owner_id) and
1644: dra.flow_status_id =
1645: decode(p_ro_status_id,
1646: fnd_api.g_miss_num, dra.flow_status_id,
1642: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
1643: p_repair_owner_id) and
1644: dra.flow_status_id =
1645: decode(p_ro_status_id,
1646: fnd_api.g_miss_num, dra.flow_status_id,
1647: p_ro_status_id) and
1648: dra.repair_type_id =
1649: decode(p_repair_type_id,
1650: fnd_api.g_miss_num, dra.repair_type_id,
1646: fnd_api.g_miss_num, dra.flow_status_id,
1647: p_ro_status_id) and
1648: dra.repair_type_id =
1649: decode(p_repair_type_id,
1650: fnd_api.g_miss_num, dra.repair_type_id,
1651: p_repair_type_id) and
1652: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
1653: decode(p_ro_priority_code,
1654: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
1648: dra.repair_type_id =
1649: decode(p_repair_type_id,
1650: fnd_api.g_miss_num, dra.repair_type_id,
1651: p_repair_type_id) and
1652: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
1653: decode(p_ro_priority_code,
1654: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
1655: p_ro_priority_code) and
1656: dra.creation_date >=
1650: fnd_api.g_miss_num, dra.repair_type_id,
1651: p_repair_type_id) and
1652: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
1653: decode(p_ro_priority_code,
1654: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
1655: p_ro_priority_code) and
1656: dra.creation_date >=
1657: decode(p_ro_age,
1658: fnd_api.g_miss_num, dra.creation_date,
1654: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
1655: p_ro_priority_code) and
1656: dra.creation_date >=
1657: decode(p_ro_age,
1658: fnd_api.g_miss_num, dra.creation_date,
1659: sysdate - p_ro_age) and
1660: nvl(dra.promise_date, G_MAX_DATE) <=
1661: decode(p_ro_due_date_age,
1662: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
1658: fnd_api.g_miss_num, dra.creation_date,
1659: sysdate - p_ro_age) and
1660: nvl(dra.promise_date, G_MAX_DATE) <=
1661: decode(p_ro_due_date_age,
1662: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
1663: sysdate + p_ro_due_date_age)) OLTP
1664: ON (soo.repair_line_id = OLTP.repair_line_id and
1665: soo.document_header_id = OLTP.document_header_id and
1666: -- nvl(soo.document_line_id, fnd_api.g_miss_num) =
1662: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
1663: sysdate + p_ro_due_date_age)) OLTP
1664: ON (soo.repair_line_id = OLTP.repair_line_id and
1665: soo.document_header_id = OLTP.document_header_id and
1666: -- nvl(soo.document_line_id, fnd_api.g_miss_num) =
1667: -- nvl(OLTP.document_line_id, fnd_api.g_miss_num) and
1668: soo.document_type = 'IR')
1669: WHEN MATCHED THEN
1670: UPDATE SET
1663: sysdate + p_ro_due_date_age)) OLTP
1664: ON (soo.repair_line_id = OLTP.repair_line_id and
1665: soo.document_header_id = OLTP.document_header_id and
1666: -- nvl(soo.document_line_id, fnd_api.g_miss_num) =
1667: -- nvl(OLTP.document_line_id, fnd_api.g_miss_num) and
1668: soo.document_type = 'IR')
1669: WHEN MATCHED THEN
1670: UPDATE SET
1671: soo.prev_status_code = (CASE update_count(soo.orchestration_id) when 'A' then soo.status_code end),
1746: null); -- paramn1
1747:
1748: -- Save changes to CSD_SO_ORCHESTRATION table even
1749: -- if SOO rules engine fails.
1750: IF FND_API.To_Boolean( p_commit ) THEN
1751: COMMIT WORK;
1752: END IF;
1753:
1754: SAVEPOINT REFRESH_INTERNAL_REQ;
1772: l_rule_input_rec.ir_curr_status_code := l_status_code;
1773:
1774: CSD_RULES_ENGINE_PVT.SOO_DEFAULTING(
1775: p_api_version_number => 1.0,
1776: p_commit => fnd_api.g_false,
1777: p_validation_level => p_validation_level,
1778: p_event_type => 'IR_STATUS',
1779: p_rule_input_rec => l_rule_input_rec,
1780: x_rule_id => l_rule_id,
1781: x_return_status => x_return_status,
1782: x_msg_count => x_msg_count,
1783: x_msg_data => x_msg_data);
1784:
1785: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1786: Debug('Trying to default SOO rule for Internal Req status event failed.',l_mod_name,4);
1787: RAISE FND_API.G_EXC_ERROR;
1788: END IF;
1789:
1783: x_msg_data => x_msg_data);
1784:
1785: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1786: Debug('Trying to default SOO rule for Internal Req status event failed.',l_mod_name,4);
1787: RAISE FND_API.G_EXC_ERROR;
1788: END IF;
1789:
1790: OPEN c_get_order_header_id(l_pr_header_id, l_repair_line_id);
1791: LOOP
1798: END IF;
1799: END LOOP;
1800:
1801: -- Standard check of p_commit.
1802: IF FND_API.To_Boolean( p_commit ) THEN
1803: COMMIT WORK;
1804: END IF;
1805:
1806: x_msg_count := fnd_msg_pub.count_msg;
1805:
1806: x_msg_count := fnd_msg_pub.count_msg;
1807:
1808: EXCEPTION
1809: WHEN FND_API.G_EXC_ERROR THEN
1810: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
1811: ROLLBACK TO REFRESH_INTERNAL_REQ;
1812: x_return_status := FND_API.G_RET_STS_ERROR ;
1813: x_msg_count := fnd_msg_pub.count_msg;
1806: x_msg_count := fnd_msg_pub.count_msg;
1807:
1808: EXCEPTION
1809: WHEN FND_API.G_EXC_ERROR THEN
1810: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
1811: ROLLBACK TO REFRESH_INTERNAL_REQ;
1812: x_return_status := FND_API.G_RET_STS_ERROR ;
1813: x_msg_count := fnd_msg_pub.count_msg;
1814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1808: EXCEPTION
1809: WHEN FND_API.G_EXC_ERROR THEN
1810: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
1811: ROLLBACK TO REFRESH_INTERNAL_REQ;
1812: x_return_status := FND_API.G_RET_STS_ERROR ;
1813: x_msg_count := fnd_msg_pub.count_msg;
1814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1815: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
1816: IF ( l_error_level >= G_debug_level) THEN
1810: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
1811: ROLLBACK TO REFRESH_INTERNAL_REQ;
1812: x_return_status := FND_API.G_RET_STS_ERROR ;
1813: x_msg_count := fnd_msg_pub.count_msg;
1814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1815: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
1816: IF ( l_error_level >= G_debug_level) THEN
1817: fnd_message.set_name('CSD','CSD_SQL_ERROR');
1818: fnd_message.set_token('SQLERRM',SQLERRM);
1811: ROLLBACK TO REFRESH_INTERNAL_REQ;
1812: x_return_status := FND_API.G_RET_STS_ERROR ;
1813: x_msg_count := fnd_msg_pub.count_msg;
1814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1815: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
1816: IF ( l_error_level >= G_debug_level) THEN
1817: fnd_message.set_name('CSD','CSD_SQL_ERROR');
1818: fnd_message.set_token('SQLERRM',SQLERRM);
1819: fnd_message.set_token('SQLCODE',SQLCODE);
1819: fnd_message.set_token('SQLCODE',SQLCODE);
1820: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
1821: END If;
1822: ROLLBACK TO REFRESH_INTERNAL_REQ;
1823: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1824: x_msg_count := fnd_msg_pub.count_msg;
1825: WHEN OTHERS THEN
1826: Debug('In OTHERS Exception',l_mod_name,4);
1827: IF ( l_error_level >= G_debug_level) THEN
1830: fnd_message.set_token('SQLCODE',SQLCODE);
1831: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
1832: END If;
1833: ROLLBACK TO REFRESH_INTERNAL_REQ;
1834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1835: IF FND_MSG_PUB.Check_Msg_Level
1836: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1837: THEN
1838: FND_MSG_PUB.Add_Exc_Msg
1850: p_validation_level IN NUMBER,
1851: x_return_status OUT NOCOPY VARCHAR2,
1852: x_msg_count OUT NOCOPY NUMBER,
1853: x_msg_data OUT NOCOPY VARCHAR2,
1854: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
1855: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
1856: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1857: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1858: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1851: x_return_status OUT NOCOPY VARCHAR2,
1852: x_msg_count OUT NOCOPY NUMBER,
1853: x_msg_data OUT NOCOPY VARCHAR2,
1854: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
1855: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
1856: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1857: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1858: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1859: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1852: x_msg_count OUT NOCOPY NUMBER,
1853: x_msg_data OUT NOCOPY VARCHAR2,
1854: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
1855: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
1856: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1857: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1858: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1859: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1860: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1853: x_msg_data OUT NOCOPY VARCHAR2,
1854: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
1855: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
1856: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1857: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1858: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1859: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1860: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1861: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1854: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
1855: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
1856: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1857: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1858: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1859: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1860: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1861: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1862: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
1855: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
1856: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1857: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1858: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1859: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1860: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1861: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1862: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
1863: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
1856: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
1857: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1858: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1859: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1860: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1861: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1862: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
1863: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
1864: IS
1857: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
1858: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1859: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1860: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1861: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1862: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
1863: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
1864: IS
1865: -- Standard Variables
1858: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
1859: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1860: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1861: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1862: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
1863: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
1864: IS
1865: -- Standard Variables
1866: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_INT_SALES_ORDER';
1859: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
1860: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
1861: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1862: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
1863: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
1864: IS
1865: -- Standard Variables
1866: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_INT_SALES_ORDER';
1867: l_api_version CONSTANT NUMBER := 1.0;
1890: BEGIN
1891: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entering Refresh_Int_Sales_Order...');
1892:
1893: -- Initialize API return status to success
1894: x_return_status := FND_API.G_RET_STS_SUCCESS;
1895:
1896: -- Log the api name in the log file
1897: Debug('At the Beginning of Refresh_Int_Sales_Order', l_mod_name, 1);
1898:
1896: -- Log the api name in the log file
1897: Debug('At the Beginning of Refresh_Int_Sales_Order', l_mod_name, 1);
1898:
1899: -- Standard call to check for call compatibility.
1900: IF NOT FND_API.Compatible_API_Call (l_api_version,
1901: p_api_version,
1902: l_api_name ,
1903: G_PKG_NAME)
1904: THEN
1901: p_api_version,
1902: l_api_name ,
1903: G_PKG_NAME)
1904: THEN
1905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1906: END IF;
1907:
1908: -- Initialize message list if p_init_msg_list is set to TRUE.
1909: IF FND_API.to_Boolean(p_init_msg_list) THEN
1905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1906: END IF;
1907:
1908: -- Initialize message list if p_init_msg_list is set to TRUE.
1909: IF FND_API.to_Boolean(p_init_msg_list) THEN
1910: FND_MSG_PUB.initialize;
1911: END IF;
1912:
1913: -- Api body starts
1939: and lv.meaning = OE_LINE_STATUS_PUB.get_line_status(p_line_id => oel.line_id,
1940: p_flow_status_code => oel.flow_status_code)
1941: and
1942: oel.line_id = decode(p_order_line_id,
1943: fnd_api.g_miss_num, oel.line_id,
1944: p_order_line_id) and
1945: dra.repair_line_id = decode(p_repair_line_id,
1946: fnd_api.g_miss_num, dra.repair_line_id,
1947: p_repair_line_id) and
1942: oel.line_id = decode(p_order_line_id,
1943: fnd_api.g_miss_num, oel.line_id,
1944: p_order_line_id) and
1945: dra.repair_line_id = decode(p_repair_line_id,
1946: fnd_api.g_miss_num, dra.repair_line_id,
1947: p_repair_line_id) and
1948: nvl(dpt.ship_from_ou, fnd_api.g_miss_num) = -- operating unit
1949: decode(p_operating_unit_id,
1950: fnd_api.g_miss_num, nvl(dpt.ship_from_ou, fnd_api.g_miss_num),
1944: p_order_line_id) and
1945: dra.repair_line_id = decode(p_repair_line_id,
1946: fnd_api.g_miss_num, dra.repair_line_id,
1947: p_repair_line_id) and
1948: nvl(dpt.ship_from_ou, fnd_api.g_miss_num) = -- operating unit
1949: decode(p_operating_unit_id,
1950: fnd_api.g_miss_num, nvl(dpt.ship_from_ou, fnd_api.g_miss_num),
1951: p_operating_unit_id) and
1952: nvl(dpt.ship_from_org, fnd_api.g_miss_num) = -- inventory org
1946: fnd_api.g_miss_num, dra.repair_line_id,
1947: p_repair_line_id) and
1948: nvl(dpt.ship_from_ou, fnd_api.g_miss_num) = -- operating unit
1949: decode(p_operating_unit_id,
1950: fnd_api.g_miss_num, nvl(dpt.ship_from_ou, fnd_api.g_miss_num),
1951: p_operating_unit_id) and
1952: nvl(dpt.ship_from_org, fnd_api.g_miss_num) = -- inventory org
1953: decode(p_inventory_org_id,
1954: fnd_api.g_miss_num, nvl(dpt.ship_from_org, fnd_api.g_miss_num),
1948: nvl(dpt.ship_from_ou, fnd_api.g_miss_num) = -- operating unit
1949: decode(p_operating_unit_id,
1950: fnd_api.g_miss_num, nvl(dpt.ship_from_ou, fnd_api.g_miss_num),
1951: p_operating_unit_id) and
1952: nvl(dpt.ship_from_org, fnd_api.g_miss_num) = -- inventory org
1953: decode(p_inventory_org_id,
1954: fnd_api.g_miss_num, nvl(dpt.ship_from_org, fnd_api.g_miss_num),
1955: p_inventory_org_id) and
1956: nvl(dra.resource_id, fnd_api.g_miss_num) =
1950: fnd_api.g_miss_num, nvl(dpt.ship_from_ou, fnd_api.g_miss_num),
1951: p_operating_unit_id) and
1952: nvl(dpt.ship_from_org, fnd_api.g_miss_num) = -- inventory org
1953: decode(p_inventory_org_id,
1954: fnd_api.g_miss_num, nvl(dpt.ship_from_org, fnd_api.g_miss_num),
1955: p_inventory_org_id) and
1956: nvl(dra.resource_id, fnd_api.g_miss_num) =
1957: decode(p_repair_owner_id,
1958: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
1952: nvl(dpt.ship_from_org, fnd_api.g_miss_num) = -- inventory org
1953: decode(p_inventory_org_id,
1954: fnd_api.g_miss_num, nvl(dpt.ship_from_org, fnd_api.g_miss_num),
1955: p_inventory_org_id) and
1956: nvl(dra.resource_id, fnd_api.g_miss_num) =
1957: decode(p_repair_owner_id,
1958: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
1959: p_repair_owner_id) and
1960: dra.flow_status_id =
1954: fnd_api.g_miss_num, nvl(dpt.ship_from_org, fnd_api.g_miss_num),
1955: p_inventory_org_id) and
1956: nvl(dra.resource_id, fnd_api.g_miss_num) =
1957: decode(p_repair_owner_id,
1958: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
1959: p_repair_owner_id) and
1960: dra.flow_status_id =
1961: decode(p_ro_status_id,
1962: fnd_api.g_miss_num, dra.flow_status_id,
1958: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
1959: p_repair_owner_id) and
1960: dra.flow_status_id =
1961: decode(p_ro_status_id,
1962: fnd_api.g_miss_num, dra.flow_status_id,
1963: p_ro_status_id) and
1964: dra.repair_type_id =
1965: decode(p_repair_type_id,
1966: fnd_api.g_miss_num, dra.repair_type_id,
1962: fnd_api.g_miss_num, dra.flow_status_id,
1963: p_ro_status_id) and
1964: dra.repair_type_id =
1965: decode(p_repair_type_id,
1966: fnd_api.g_miss_num, dra.repair_type_id,
1967: p_repair_type_id) and
1968: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
1969: decode(p_ro_priority_code,
1970: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
1964: dra.repair_type_id =
1965: decode(p_repair_type_id,
1966: fnd_api.g_miss_num, dra.repair_type_id,
1967: p_repair_type_id) and
1968: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
1969: decode(p_ro_priority_code,
1970: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
1971: p_ro_priority_code) and
1972: dra.creation_date >=
1966: fnd_api.g_miss_num, dra.repair_type_id,
1967: p_repair_type_id) and
1968: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
1969: decode(p_ro_priority_code,
1970: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
1971: p_ro_priority_code) and
1972: dra.creation_date >=
1973: decode(p_ro_age,
1974: fnd_api.g_miss_num, dra.creation_date,
1970: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
1971: p_ro_priority_code) and
1972: dra.creation_date >=
1973: decode(p_ro_age,
1974: fnd_api.g_miss_num, dra.creation_date,
1975: sysdate - p_ro_age) and
1976: nvl(dra.promise_date, G_MAX_DATE) <=
1977: decode(p_ro_due_date_age,
1978: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
1974: fnd_api.g_miss_num, dra.creation_date,
1975: sysdate - p_ro_age) and
1976: nvl(dra.promise_date, G_MAX_DATE) <=
1977: decode(p_ro_due_date_age,
1978: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
1979: sysdate + p_ro_due_date_age)) OLTP
1980: ON (soo.repair_line_id = OLTP.repair_line_id and
1981: soo.document_line_id = OLTP.document_line_id and
1982: soo.document_type = 'INTSO')
2060: null); -- paramn1
2061:
2062: -- Save changes to CSD_SO_ORCHESTRATION table even
2063: -- if SOO rules engine fails.
2064: IF FND_API.To_Boolean( p_commit ) THEN
2065: COMMIT WORK;
2066: END IF;
2067:
2068: SAVEPOINT REFRESH_ISO;
2083: l_rule_input_rec.int_so_curr_status_code := l_status_code;
2084:
2085: CSD_RULES_ENGINE_PVT.SOO_DEFAULTING(
2086: p_api_version_number => 1.0,
2087: p_commit => fnd_api.g_false,
2088: p_validation_level => p_validation_level,
2089: p_event_type => 'INTERNAL_SALES_STATUS',
2090: p_rule_input_rec => l_rule_input_rec,
2091: x_rule_id => l_rule_id,
2092: x_return_status => x_return_status,
2093: x_msg_count => x_msg_count,
2094: x_msg_data => x_msg_data);
2095:
2096: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2097: Debug('Trying to default SOO rule for Internal Sales Order status event failed.',l_mod_name,4);
2098: RAISE FND_API.G_EXC_ERROR;
2099: END IF;
2100:
2094: x_msg_data => x_msg_data);
2095:
2096: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2097: Debug('Trying to default SOO rule for Internal Sales Order status event failed.',l_mod_name,4);
2098: RAISE FND_API.G_EXC_ERROR;
2099: END IF;
2100:
2101: update_int_order_header_id(l_order_header_id);
2102: END IF;
2102: END IF;
2103: END LOOP;
2104:
2105: -- Standard check of p_commit.
2106: IF FND_API.To_Boolean( p_commit ) THEN
2107: COMMIT WORK;
2108: END IF;
2109:
2110: x_msg_count := fnd_msg_pub.count_msg;
2108: END IF;
2109:
2110: x_msg_count := fnd_msg_pub.count_msg;
2111: EXCEPTION
2112: WHEN FND_API.G_EXC_ERROR THEN
2113: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
2114: ROLLBACK TO REFRESH_ISO;
2115: x_return_status := FND_API.G_RET_STS_ERROR ;
2116: x_msg_count := fnd_msg_pub.count_msg;
2109:
2110: x_msg_count := fnd_msg_pub.count_msg;
2111: EXCEPTION
2112: WHEN FND_API.G_EXC_ERROR THEN
2113: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
2114: ROLLBACK TO REFRESH_ISO;
2115: x_return_status := FND_API.G_RET_STS_ERROR ;
2116: x_msg_count := fnd_msg_pub.count_msg;
2117: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2111: EXCEPTION
2112: WHEN FND_API.G_EXC_ERROR THEN
2113: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
2114: ROLLBACK TO REFRESH_ISO;
2115: x_return_status := FND_API.G_RET_STS_ERROR ;
2116: x_msg_count := fnd_msg_pub.count_msg;
2117: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2118: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
2119: IF ( l_error_level >= G_debug_level) THEN
2113: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
2114: ROLLBACK TO REFRESH_ISO;
2115: x_return_status := FND_API.G_RET_STS_ERROR ;
2116: x_msg_count := fnd_msg_pub.count_msg;
2117: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2118: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
2119: IF ( l_error_level >= G_debug_level) THEN
2120: fnd_message.set_name('CSD','CSD_SQL_ERROR');
2121: fnd_message.set_token('SQLERRM',SQLERRM);
2114: ROLLBACK TO REFRESH_ISO;
2115: x_return_status := FND_API.G_RET_STS_ERROR ;
2116: x_msg_count := fnd_msg_pub.count_msg;
2117: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2118: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
2119: IF ( l_error_level >= G_debug_level) THEN
2120: fnd_message.set_name('CSD','CSD_SQL_ERROR');
2121: fnd_message.set_token('SQLERRM',SQLERRM);
2122: fnd_message.set_token('SQLCODE',SQLCODE);
2122: fnd_message.set_token('SQLCODE',SQLCODE);
2123: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
2124: END If;
2125: ROLLBACK TO REFRESH_ISO;
2126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2127: x_msg_count := fnd_msg_pub.count_msg;
2128: WHEN OTHERS THEN
2129: Debug('In OTHERS Exception',l_mod_name,4);
2130: IF ( l_error_level >= G_debug_level) THEN
2133: fnd_message.set_token('SQLCODE',SQLCODE);
2134: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
2135: END If;
2136: ROLLBACK TO REFRESH_ISO;
2137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2138: IF FND_MSG_PUB.Check_Msg_Level
2139: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2140: THEN
2141: FND_MSG_PUB.Add_Exc_Msg
2154: p_validation_level IN NUMBER,
2155: x_return_status OUT NOCOPY VARCHAR2,
2156: x_msg_count OUT NOCOPY NUMBER,
2157: x_msg_data OUT NOCOPY VARCHAR2,
2158: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
2159: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
2160: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2161: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2162: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2155: x_return_status OUT NOCOPY VARCHAR2,
2156: x_msg_count OUT NOCOPY NUMBER,
2157: x_msg_data OUT NOCOPY VARCHAR2,
2158: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
2159: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
2160: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2161: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2162: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2163: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2156: x_msg_count OUT NOCOPY NUMBER,
2157: x_msg_data OUT NOCOPY VARCHAR2,
2158: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
2159: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
2160: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2161: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2162: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2163: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2164: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2157: x_msg_data OUT NOCOPY VARCHAR2,
2158: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
2159: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
2160: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2161: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2162: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2163: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2164: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2165: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2158: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
2159: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
2160: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2161: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2162: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2163: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2164: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2165: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2166: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
2159: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
2160: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2161: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2162: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2163: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2164: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2165: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2166: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
2167: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
2160: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2161: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2162: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2163: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2164: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2165: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2166: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
2167: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
2168: IS
2161: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2162: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2163: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2164: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2165: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2166: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
2167: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
2168: IS
2169: -- Standard Variables
2162: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2163: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2164: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2165: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2166: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
2167: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
2168: IS
2169: -- Standard Variables
2170: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_RMA';
2163: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2164: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2165: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2166: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
2167: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
2168: IS
2169: -- Standard Variables
2170: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_RMA';
2171: l_api_version CONSTANT NUMBER := 1.0;
2193: BEGIN
2194: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entering Refresh_RMA...');
2195:
2196: -- Initialize API return status to success
2197: x_return_status := FND_API.G_RET_STS_SUCCESS;
2198:
2199: -- Log the api name in the log file
2200: Debug('At the Beginning of Refresh_RMA', l_mod_name, 1);
2201:
2199: -- Log the api name in the log file
2200: Debug('At the Beginning of Refresh_RMA', l_mod_name, 1);
2201:
2202: -- Standard call to check for call compatibility.
2203: IF NOT FND_API.Compatible_API_Call (l_api_version,
2204: p_api_version,
2205: l_api_name ,
2206: G_PKG_NAME)
2207: THEN
2204: p_api_version,
2205: l_api_name ,
2206: G_PKG_NAME)
2207: THEN
2208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2209: END IF;
2210:
2211: -- Initialize message list if p_init_msg_list is set to TRUE.
2212: IF FND_API.to_Boolean(p_init_msg_list) THEN
2208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2209: END IF;
2210:
2211: -- Initialize message list if p_init_msg_list is set to TRUE.
2212: IF FND_API.to_Boolean(p_init_msg_list) THEN
2213: FND_MSG_PUB.initialize;
2214: END IF;
2215:
2216: -- Api body starts
2244: and lv.meaning = OE_LINE_STATUS_PUB.get_line_status(p_line_id => oel.line_id,
2245: p_flow_status_code => oel.flow_status_code)
2246: and
2247: oel.line_id = decode(p_order_line_id,
2248: fnd_api.g_miss_num, oel.line_id,
2249: p_order_line_id) and
2250: dra.repair_line_id = decode(p_repair_line_id,
2251: fnd_api.g_miss_num, dra.repair_line_id,
2252: p_repair_line_id) and
2247: oel.line_id = decode(p_order_line_id,
2248: fnd_api.g_miss_num, oel.line_id,
2249: p_order_line_id) and
2250: dra.repair_line_id = decode(p_repair_line_id,
2251: fnd_api.g_miss_num, dra.repair_line_id,
2252: p_repair_line_id) and
2253: nvl(oel.org_id, fnd_api.g_miss_num) = -- operating unit
2254: decode(p_operating_unit_id,
2255: fnd_api.g_miss_num, nvl(oel.org_id, fnd_api.g_miss_num),
2249: p_order_line_id) and
2250: dra.repair_line_id = decode(p_repair_line_id,
2251: fnd_api.g_miss_num, dra.repair_line_id,
2252: p_repair_line_id) and
2253: nvl(oel.org_id, fnd_api.g_miss_num) = -- operating unit
2254: decode(p_operating_unit_id,
2255: fnd_api.g_miss_num, nvl(oel.org_id, fnd_api.g_miss_num),
2256: p_operating_unit_id) and
2257: nvl(edt.transaction_inventory_org, fnd_api.g_miss_num) = -- inventory org
2251: fnd_api.g_miss_num, dra.repair_line_id,
2252: p_repair_line_id) and
2253: nvl(oel.org_id, fnd_api.g_miss_num) = -- operating unit
2254: decode(p_operating_unit_id,
2255: fnd_api.g_miss_num, nvl(oel.org_id, fnd_api.g_miss_num),
2256: p_operating_unit_id) and
2257: nvl(edt.transaction_inventory_org, fnd_api.g_miss_num) = -- inventory org
2258: decode(p_inventory_org_id,
2259: fnd_api.g_miss_num, nvl(edt.transaction_inventory_org, fnd_api.g_miss_num),
2253: nvl(oel.org_id, fnd_api.g_miss_num) = -- operating unit
2254: decode(p_operating_unit_id,
2255: fnd_api.g_miss_num, nvl(oel.org_id, fnd_api.g_miss_num),
2256: p_operating_unit_id) and
2257: nvl(edt.transaction_inventory_org, fnd_api.g_miss_num) = -- inventory org
2258: decode(p_inventory_org_id,
2259: fnd_api.g_miss_num, nvl(edt.transaction_inventory_org, fnd_api.g_miss_num),
2260: p_inventory_org_id) and
2261: nvl(dra.resource_id, fnd_api.g_miss_num) =
2255: fnd_api.g_miss_num, nvl(oel.org_id, fnd_api.g_miss_num),
2256: p_operating_unit_id) and
2257: nvl(edt.transaction_inventory_org, fnd_api.g_miss_num) = -- inventory org
2258: decode(p_inventory_org_id,
2259: fnd_api.g_miss_num, nvl(edt.transaction_inventory_org, fnd_api.g_miss_num),
2260: p_inventory_org_id) and
2261: nvl(dra.resource_id, fnd_api.g_miss_num) =
2262: decode(p_repair_owner_id,
2263: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
2257: nvl(edt.transaction_inventory_org, fnd_api.g_miss_num) = -- inventory org
2258: decode(p_inventory_org_id,
2259: fnd_api.g_miss_num, nvl(edt.transaction_inventory_org, fnd_api.g_miss_num),
2260: p_inventory_org_id) and
2261: nvl(dra.resource_id, fnd_api.g_miss_num) =
2262: decode(p_repair_owner_id,
2263: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
2264: p_repair_owner_id) and
2265: dra.flow_status_id =
2259: fnd_api.g_miss_num, nvl(edt.transaction_inventory_org, fnd_api.g_miss_num),
2260: p_inventory_org_id) and
2261: nvl(dra.resource_id, fnd_api.g_miss_num) =
2262: decode(p_repair_owner_id,
2263: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
2264: p_repair_owner_id) and
2265: dra.flow_status_id =
2266: decode(p_ro_status_id,
2267: fnd_api.g_miss_num, dra.flow_status_id,
2263: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
2264: p_repair_owner_id) and
2265: dra.flow_status_id =
2266: decode(p_ro_status_id,
2267: fnd_api.g_miss_num, dra.flow_status_id,
2268: p_ro_status_id) and
2269: dra.repair_type_id =
2270: decode(p_repair_type_id,
2271: fnd_api.g_miss_num, dra.repair_type_id,
2267: fnd_api.g_miss_num, dra.flow_status_id,
2268: p_ro_status_id) and
2269: dra.repair_type_id =
2270: decode(p_repair_type_id,
2271: fnd_api.g_miss_num, dra.repair_type_id,
2272: p_repair_type_id) and
2273: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
2274: decode(p_ro_priority_code,
2275: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
2269: dra.repair_type_id =
2270: decode(p_repair_type_id,
2271: fnd_api.g_miss_num, dra.repair_type_id,
2272: p_repair_type_id) and
2273: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
2274: decode(p_ro_priority_code,
2275: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
2276: p_ro_priority_code) and
2277: dra.creation_date >=
2271: fnd_api.g_miss_num, dra.repair_type_id,
2272: p_repair_type_id) and
2273: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
2274: decode(p_ro_priority_code,
2275: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
2276: p_ro_priority_code) and
2277: dra.creation_date >=
2278: decode(p_ro_age,
2279: fnd_api.g_miss_num, dra.creation_date,
2275: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
2276: p_ro_priority_code) and
2277: dra.creation_date >=
2278: decode(p_ro_age,
2279: fnd_api.g_miss_num, dra.creation_date,
2280: sysdate - p_ro_age) and
2281: nvl(dra.promise_date, G_MAX_DATE) <=
2282: decode(p_ro_due_date_age,
2283: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
2279: fnd_api.g_miss_num, dra.creation_date,
2280: sysdate - p_ro_age) and
2281: nvl(dra.promise_date, G_MAX_DATE) <=
2282: decode(p_ro_due_date_age,
2283: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
2284: sysdate + p_ro_due_date_age)) OLTP
2285: ON (soo.repair_line_id = OLTP.repair_line_id and
2286: soo.document_line_id = OLTP.document_line_id and
2287: soo.document_type = 'RMA')
2365: null); -- paramn1
2366:
2367: -- Save changes to CSD_SO_ORCHESTRATION table even
2368: -- if SOO rules engine fails.
2369: IF FND_API.To_Boolean( p_commit ) THEN
2370: COMMIT WORK;
2371: END IF;
2372:
2373: SAVEPOINT REFRESH_RMA;
2386: l_rule_input_rec.rma_curr_status_code := l_status_code;
2387:
2388: CSD_RULES_ENGINE_PVT.SOO_DEFAULTING(
2389: p_api_version_number => 1.0,
2390: p_commit => fnd_api.g_false,
2391: p_validation_level => p_validation_level,
2392: p_event_type => 'RMA_STATUS',
2393: p_rule_input_rec => l_rule_input_rec,
2394: x_rule_id => l_rule_id,
2395: x_return_status => x_return_status,
2396: x_msg_count => x_msg_count,
2397: x_msg_data => x_msg_data);
2398:
2399: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2400: Debug('Trying to default SOO rule for RMA status event failed.',l_mod_name,4);
2401: RAISE FND_API.G_EXC_ERROR;
2402: END IF;
2403:
2397: x_msg_data => x_msg_data);
2398:
2399: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2400: Debug('Trying to default SOO rule for RMA status event failed.',l_mod_name,4);
2401: RAISE FND_API.G_EXC_ERROR;
2402: END IF;
2403:
2404: update_rma_ro_line_id(l_repair_line_id);
2405: END IF;
2405: END IF;
2406: END LOOP;
2407:
2408: -- Standard check of p_commit.
2409: IF FND_API.To_Boolean( p_commit ) THEN
2410: COMMIT WORK;
2411: END IF;
2412:
2413: x_msg_count := fnd_msg_pub.count_msg;
2411: END IF;
2412:
2413: x_msg_count := fnd_msg_pub.count_msg;
2414: EXCEPTION
2415: WHEN FND_API.G_EXC_ERROR THEN
2416: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
2417: ROLLBACK TO REFRESH_RMA;
2418: x_return_status := FND_API.G_RET_STS_ERROR ;
2419: x_msg_count := fnd_msg_pub.count_msg;
2412:
2413: x_msg_count := fnd_msg_pub.count_msg;
2414: EXCEPTION
2415: WHEN FND_API.G_EXC_ERROR THEN
2416: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
2417: ROLLBACK TO REFRESH_RMA;
2418: x_return_status := FND_API.G_RET_STS_ERROR ;
2419: x_msg_count := fnd_msg_pub.count_msg;
2420: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2414: EXCEPTION
2415: WHEN FND_API.G_EXC_ERROR THEN
2416: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
2417: ROLLBACK TO REFRESH_RMA;
2418: x_return_status := FND_API.G_RET_STS_ERROR ;
2419: x_msg_count := fnd_msg_pub.count_msg;
2420: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2421: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
2422: IF ( l_error_level >= G_debug_level) THEN
2416: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
2417: ROLLBACK TO REFRESH_RMA;
2418: x_return_status := FND_API.G_RET_STS_ERROR ;
2419: x_msg_count := fnd_msg_pub.count_msg;
2420: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2421: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
2422: IF ( l_error_level >= G_debug_level) THEN
2423: fnd_message.set_name('CSD','CSD_SQL_ERROR');
2424: fnd_message.set_token('SQLERRM',SQLERRM);
2417: ROLLBACK TO REFRESH_RMA;
2418: x_return_status := FND_API.G_RET_STS_ERROR ;
2419: x_msg_count := fnd_msg_pub.count_msg;
2420: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2421: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
2422: IF ( l_error_level >= G_debug_level) THEN
2423: fnd_message.set_name('CSD','CSD_SQL_ERROR');
2424: fnd_message.set_token('SQLERRM',SQLERRM);
2425: fnd_message.set_token('SQLCODE',SQLCODE);
2425: fnd_message.set_token('SQLCODE',SQLCODE);
2426: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
2427: END If;
2428: ROLLBACK TO REFRESH_RMA;
2429: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2430: x_msg_count := fnd_msg_pub.count_msg;
2431: WHEN OTHERS THEN
2432: Debug('In OTHERS Exception',l_mod_name,4);
2433: IF ( l_error_level >= G_debug_level) THEN
2436: fnd_message.set_token('SQLCODE',SQLCODE);
2437: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
2438: END If;
2439: ROLLBACK TO REFRESH_RMA;
2440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2441: IF FND_MSG_PUB.Check_Msg_Level
2442: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2443: THEN
2444: FND_MSG_PUB.Add_Exc_Msg
2456: p_validation_level IN NUMBER,
2457: x_return_status OUT NOCOPY VARCHAR2,
2458: x_msg_count OUT NOCOPY NUMBER,
2459: x_msg_data OUT NOCOPY VARCHAR2,
2460: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
2461: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
2462: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2463: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2464: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2457: x_return_status OUT NOCOPY VARCHAR2,
2458: x_msg_count OUT NOCOPY NUMBER,
2459: x_msg_data OUT NOCOPY VARCHAR2,
2460: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
2461: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
2462: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2463: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2464: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2465: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2458: x_msg_count OUT NOCOPY NUMBER,
2459: x_msg_data OUT NOCOPY VARCHAR2,
2460: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
2461: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
2462: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2463: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2464: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2465: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2466: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2459: x_msg_data OUT NOCOPY VARCHAR2,
2460: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
2461: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
2462: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2463: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2464: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2465: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2466: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2467: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2460: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
2461: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
2462: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2463: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2464: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2465: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2466: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2467: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2468: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
2461: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
2462: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2463: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2464: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2465: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2466: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2467: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2468: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
2469: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
2462: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2463: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2464: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2465: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2466: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2467: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2468: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
2469: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
2470: IS
2463: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2464: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2465: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2466: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2467: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2468: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
2469: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
2470: IS
2471: -- Standard Variables
2464: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2465: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2466: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2467: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2468: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
2469: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
2470: IS
2471: -- Standard Variables
2472: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_RMA_THIRD_PARTY';
2465: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2466: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2467: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2468: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
2469: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
2470: IS
2471: -- Standard Variables
2472: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_RMA_THIRD_PARTY';
2473: l_api_version CONSTANT NUMBER := 1.0;
2495: BEGIN
2496: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entering Refresh_RMA_Third_Party...');
2497:
2498: -- Initialize API return status to success
2499: x_return_status := FND_API.G_RET_STS_SUCCESS;
2500:
2501: -- Log the api name in the log file
2502: Debug('At the Beginning of Refresh_RMA_Third_Party', l_mod_name, 1);
2503:
2501: -- Log the api name in the log file
2502: Debug('At the Beginning of Refresh_RMA_Third_Party', l_mod_name, 1);
2503:
2504: -- Standard call to check for call compatibility.
2505: IF NOT FND_API.Compatible_API_Call (l_api_version,
2506: p_api_version,
2507: l_api_name ,
2508: G_PKG_NAME)
2509: THEN
2506: p_api_version,
2507: l_api_name ,
2508: G_PKG_NAME)
2509: THEN
2510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2511: END IF;
2512:
2513: -- Initialize message list if p_init_msg_list is set to TRUE.
2514: IF FND_API.to_Boolean(p_init_msg_list) THEN
2510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2511: END IF;
2512:
2513: -- Initialize message list if p_init_msg_list is set to TRUE.
2514: IF FND_API.to_Boolean(p_init_msg_list) THEN
2515: FND_MSG_PUB.initialize;
2516: END IF;
2517:
2518: -- Api body starts
2546: and lv.meaning = OE_LINE_STATUS_PUB.get_line_status(p_line_id => oel.line_id,
2547: p_flow_status_code => oel.flow_status_code)
2548: and
2549: oel.line_id = decode(p_order_line_id,
2550: fnd_api.g_miss_num, oel.line_id,
2551: p_order_line_id) and
2552: dra.repair_line_id = decode(p_repair_line_id,
2553: fnd_api.g_miss_num, dra.repair_line_id,
2554: p_repair_line_id) and
2549: oel.line_id = decode(p_order_line_id,
2550: fnd_api.g_miss_num, oel.line_id,
2551: p_order_line_id) and
2552: dra.repair_line_id = decode(p_repair_line_id,
2553: fnd_api.g_miss_num, dra.repair_line_id,
2554: p_repair_line_id) and
2555: nvl(oel.org_id, fnd_api.g_miss_num) = -- operating unit
2556: decode(p_operating_unit_id,
2557: fnd_api.g_miss_num, nvl(oel.org_id, fnd_api.g_miss_num),
2551: p_order_line_id) and
2552: dra.repair_line_id = decode(p_repair_line_id,
2553: fnd_api.g_miss_num, dra.repair_line_id,
2554: p_repair_line_id) and
2555: nvl(oel.org_id, fnd_api.g_miss_num) = -- operating unit
2556: decode(p_operating_unit_id,
2557: fnd_api.g_miss_num, nvl(oel.org_id, fnd_api.g_miss_num),
2558: p_operating_unit_id) and
2559: nvl(edt.transaction_inventory_org, fnd_api.g_miss_num) = -- inventory org
2553: fnd_api.g_miss_num, dra.repair_line_id,
2554: p_repair_line_id) and
2555: nvl(oel.org_id, fnd_api.g_miss_num) = -- operating unit
2556: decode(p_operating_unit_id,
2557: fnd_api.g_miss_num, nvl(oel.org_id, fnd_api.g_miss_num),
2558: p_operating_unit_id) and
2559: nvl(edt.transaction_inventory_org, fnd_api.g_miss_num) = -- inventory org
2560: decode(p_inventory_org_id,
2561: fnd_api.g_miss_num, nvl(edt.transaction_inventory_org, fnd_api.g_miss_num),
2555: nvl(oel.org_id, fnd_api.g_miss_num) = -- operating unit
2556: decode(p_operating_unit_id,
2557: fnd_api.g_miss_num, nvl(oel.org_id, fnd_api.g_miss_num),
2558: p_operating_unit_id) and
2559: nvl(edt.transaction_inventory_org, fnd_api.g_miss_num) = -- inventory org
2560: decode(p_inventory_org_id,
2561: fnd_api.g_miss_num, nvl(edt.transaction_inventory_org, fnd_api.g_miss_num),
2562: p_inventory_org_id) and
2563: nvl(dra.resource_id, fnd_api.g_miss_num) =
2557: fnd_api.g_miss_num, nvl(oel.org_id, fnd_api.g_miss_num),
2558: p_operating_unit_id) and
2559: nvl(edt.transaction_inventory_org, fnd_api.g_miss_num) = -- inventory org
2560: decode(p_inventory_org_id,
2561: fnd_api.g_miss_num, nvl(edt.transaction_inventory_org, fnd_api.g_miss_num),
2562: p_inventory_org_id) and
2563: nvl(dra.resource_id, fnd_api.g_miss_num) =
2564: decode(p_repair_owner_id,
2565: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
2559: nvl(edt.transaction_inventory_org, fnd_api.g_miss_num) = -- inventory org
2560: decode(p_inventory_org_id,
2561: fnd_api.g_miss_num, nvl(edt.transaction_inventory_org, fnd_api.g_miss_num),
2562: p_inventory_org_id) and
2563: nvl(dra.resource_id, fnd_api.g_miss_num) =
2564: decode(p_repair_owner_id,
2565: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
2566: p_repair_owner_id) and
2567: dra.flow_status_id =
2561: fnd_api.g_miss_num, nvl(edt.transaction_inventory_org, fnd_api.g_miss_num),
2562: p_inventory_org_id) and
2563: nvl(dra.resource_id, fnd_api.g_miss_num) =
2564: decode(p_repair_owner_id,
2565: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
2566: p_repair_owner_id) and
2567: dra.flow_status_id =
2568: decode(p_ro_status_id,
2569: fnd_api.g_miss_num, dra.flow_status_id,
2565: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
2566: p_repair_owner_id) and
2567: dra.flow_status_id =
2568: decode(p_ro_status_id,
2569: fnd_api.g_miss_num, dra.flow_status_id,
2570: p_ro_status_id) and
2571: dra.repair_type_id =
2572: decode(p_repair_type_id,
2573: fnd_api.g_miss_num, dra.repair_type_id,
2569: fnd_api.g_miss_num, dra.flow_status_id,
2570: p_ro_status_id) and
2571: dra.repair_type_id =
2572: decode(p_repair_type_id,
2573: fnd_api.g_miss_num, dra.repair_type_id,
2574: p_repair_type_id) and
2575: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
2576: decode(p_ro_priority_code,
2577: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
2571: dra.repair_type_id =
2572: decode(p_repair_type_id,
2573: fnd_api.g_miss_num, dra.repair_type_id,
2574: p_repair_type_id) and
2575: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
2576: decode(p_ro_priority_code,
2577: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
2578: p_ro_priority_code) and
2579: dra.creation_date >=
2573: fnd_api.g_miss_num, dra.repair_type_id,
2574: p_repair_type_id) and
2575: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
2576: decode(p_ro_priority_code,
2577: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
2578: p_ro_priority_code) and
2579: dra.creation_date >=
2580: decode(p_ro_age,
2581: fnd_api.g_miss_num, dra.creation_date,
2577: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
2578: p_ro_priority_code) and
2579: dra.creation_date >=
2580: decode(p_ro_age,
2581: fnd_api.g_miss_num, dra.creation_date,
2582: sysdate - p_ro_age) and
2583: nvl(dra.promise_date, G_MAX_DATE) <=
2584: decode(p_ro_due_date_age,
2585: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
2581: fnd_api.g_miss_num, dra.creation_date,
2582: sysdate - p_ro_age) and
2583: nvl(dra.promise_date, G_MAX_DATE) <=
2584: decode(p_ro_due_date_age,
2585: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
2586: sysdate + p_ro_due_date_age)) OLTP
2587: ON (soo.repair_line_id = OLTP.repair_line_id and
2588: -- soo.document_header_id = OLTP.document_header_id and
2589: soo.document_line_id = OLTP.document_line_id and
2668: null); -- paramn1
2669:
2670: -- Save changes to CSD_SO_ORCHESTRATION table even
2671: -- if SOO rules engine fails.
2672: IF FND_API.To_Boolean( p_commit ) THEN
2673: COMMIT WORK;
2674: END IF;
2675:
2676: SAVEPOINT REFRESH_RMA_TP;
2689: l_rule_input_rec.rma_tp_curr_status_code := l_status_code;
2690:
2691: CSD_RULES_ENGINE_PVT.SOO_DEFAULTING(
2692: p_api_version_number => 1.0,
2693: p_commit => fnd_api.g_false,
2694: p_validation_level => p_validation_level,
2695: p_event_type => 'RMA_TP_STATUS',
2696: p_rule_input_rec => l_rule_input_rec,
2697: x_rule_id => l_rule_id,
2698: x_return_status => x_return_status,
2699: x_msg_count => x_msg_count,
2700: x_msg_data => x_msg_data);
2701:
2702: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2703: Debug('Trying to default SOO rule for RMA Third Party status event failed.',l_mod_name,4);
2704: RAISE FND_API.G_EXC_ERROR;
2705: END IF;
2706:
2700: x_msg_data => x_msg_data);
2701:
2702: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2703: Debug('Trying to default SOO rule for RMA Third Party status event failed.',l_mod_name,4);
2704: RAISE FND_API.G_EXC_ERROR;
2705: END IF;
2706:
2707: update_rma_ro_line_id(l_repair_line_id);
2708: END IF;
2708: END IF;
2709: END LOOP;
2710:
2711: -- Standard check of p_commit.
2712: IF FND_API.To_Boolean( p_commit ) THEN
2713: COMMIT WORK;
2714: END IF;
2715:
2716: x_msg_count := fnd_msg_pub.count_msg;
2715:
2716: x_msg_count := fnd_msg_pub.count_msg;
2717:
2718: EXCEPTION
2719: WHEN FND_API.G_EXC_ERROR THEN
2720: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
2721: ROLLBACK TO REFRESH_RMA_TP;
2722: x_return_status := FND_API.G_RET_STS_ERROR ;
2723: x_msg_count := fnd_msg_pub.count_msg;
2716: x_msg_count := fnd_msg_pub.count_msg;
2717:
2718: EXCEPTION
2719: WHEN FND_API.G_EXC_ERROR THEN
2720: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
2721: ROLLBACK TO REFRESH_RMA_TP;
2722: x_return_status := FND_API.G_RET_STS_ERROR ;
2723: x_msg_count := fnd_msg_pub.count_msg;
2724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2718: EXCEPTION
2719: WHEN FND_API.G_EXC_ERROR THEN
2720: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
2721: ROLLBACK TO REFRESH_RMA_TP;
2722: x_return_status := FND_API.G_RET_STS_ERROR ;
2723: x_msg_count := fnd_msg_pub.count_msg;
2724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2725: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
2726: IF ( l_error_level >= G_debug_level) THEN
2720: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
2721: ROLLBACK TO REFRESH_RMA_TP;
2722: x_return_status := FND_API.G_RET_STS_ERROR ;
2723: x_msg_count := fnd_msg_pub.count_msg;
2724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2725: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
2726: IF ( l_error_level >= G_debug_level) THEN
2727: fnd_message.set_name('CSD','CSD_SQL_ERROR');
2728: fnd_message.set_token('SQLERRM',SQLERRM);
2721: ROLLBACK TO REFRESH_RMA_TP;
2722: x_return_status := FND_API.G_RET_STS_ERROR ;
2723: x_msg_count := fnd_msg_pub.count_msg;
2724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2725: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
2726: IF ( l_error_level >= G_debug_level) THEN
2727: fnd_message.set_name('CSD','CSD_SQL_ERROR');
2728: fnd_message.set_token('SQLERRM',SQLERRM);
2729: fnd_message.set_token('SQLCODE',SQLCODE);
2729: fnd_message.set_token('SQLCODE',SQLCODE);
2730: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
2731: END If;
2732: ROLLBACK TO REFRESH_RMA_TP;
2733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2734: x_msg_count := fnd_msg_pub.count_msg;
2735: WHEN OTHERS THEN
2736: Debug('In OTHERS Exception',l_mod_name,4);
2737: IF ( l_error_level >= G_debug_level) THEN
2740: fnd_message.set_token('SQLCODE',SQLCODE);
2741: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
2742: END If;
2743: ROLLBACK TO REFRESH_RMA_TP;
2744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2745: IF FND_MSG_PUB.Check_Msg_Level
2746: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2747: THEN
2748: FND_MSG_PUB.Add_Exc_Msg
2760: p_validation_level IN NUMBER,
2761: x_return_status OUT NOCOPY VARCHAR2,
2762: x_msg_count OUT NOCOPY NUMBER,
2763: x_msg_data OUT NOCOPY VARCHAR2,
2764: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
2765: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
2766: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2767: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2768: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2761: x_return_status OUT NOCOPY VARCHAR2,
2762: x_msg_count OUT NOCOPY NUMBER,
2763: x_msg_data OUT NOCOPY VARCHAR2,
2764: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
2765: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
2766: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2767: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2768: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2769: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2762: x_msg_count OUT NOCOPY NUMBER,
2763: x_msg_data OUT NOCOPY VARCHAR2,
2764: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
2765: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
2766: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2767: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2768: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2769: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2770: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2763: x_msg_data OUT NOCOPY VARCHAR2,
2764: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
2765: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
2766: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2767: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2768: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2769: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2770: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2771: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2764: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
2765: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
2766: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2767: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2768: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2769: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2770: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2771: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2772: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
2765: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
2766: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2767: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2768: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2769: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2770: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2771: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2772: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
2773: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
2766: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
2767: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2768: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2769: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2770: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2771: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2772: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
2773: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
2774: IS
2767: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
2768: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2769: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2770: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2771: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2772: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
2773: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
2774: IS
2775: -- Standard Variables
2768: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
2769: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2770: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2771: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2772: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
2773: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
2774: IS
2775: -- Standard Variables
2776: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_SHIP';
2769: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
2770: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
2771: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2772: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
2773: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
2774: IS
2775: -- Standard Variables
2776: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_SHIP';
2777: l_api_version CONSTANT NUMBER := 1.0;
2799: BEGIN
2800: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entering Refresh_Ship...');
2801:
2802: -- Initialize API return status to success
2803: x_return_status := FND_API.G_RET_STS_SUCCESS;
2804:
2805: -- Log the api name in the log file
2806: Debug('At the Beginning of Refresh_Ship', l_mod_name, 1);
2807:
2805: -- Log the api name in the log file
2806: Debug('At the Beginning of Refresh_Ship', l_mod_name, 1);
2807:
2808: -- Standard call to check for call compatibility.
2809: IF NOT FND_API.Compatible_API_Call (l_api_version,
2810: p_api_version,
2811: l_api_name ,
2812: G_PKG_NAME)
2813: THEN
2810: p_api_version,
2811: l_api_name ,
2812: G_PKG_NAME)
2813: THEN
2814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2815: END IF;
2816:
2817: -- Initialize message list if p_init_msg_list is set to TRUE.
2818: IF FND_API.to_Boolean(p_init_msg_list) THEN
2814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2815: END IF;
2816:
2817: -- Initialize message list if p_init_msg_list is set to TRUE.
2818: IF FND_API.to_Boolean(p_init_msg_list) THEN
2819: FND_MSG_PUB.initialize;
2820: END IF;
2821:
2822: -- Api body starts
2850: and lv.meaning = OE_LINE_STATUS_PUB.get_line_status(p_line_id => oel.line_id,
2851: p_flow_status_code => oel.flow_status_code)
2852: and
2853: oel.line_id = decode(p_order_line_id,
2854: fnd_api.g_miss_num, oel.line_id,
2855: p_order_line_id) and
2856: dra.repair_line_id = decode(p_repair_line_id,
2857: fnd_api.g_miss_num, dra.repair_line_id,
2858: p_repair_line_id) and
2853: oel.line_id = decode(p_order_line_id,
2854: fnd_api.g_miss_num, oel.line_id,
2855: p_order_line_id) and
2856: dra.repair_line_id = decode(p_repair_line_id,
2857: fnd_api.g_miss_num, dra.repair_line_id,
2858: p_repair_line_id) and
2859: nvl(oel.org_id, fnd_api.g_miss_num) = -- operating unit
2860: decode(p_operating_unit_id,
2861: fnd_api.g_miss_num, nvl(oel.org_id, fnd_api.g_miss_num),
2855: p_order_line_id) and
2856: dra.repair_line_id = decode(p_repair_line_id,
2857: fnd_api.g_miss_num, dra.repair_line_id,
2858: p_repair_line_id) and
2859: nvl(oel.org_id, fnd_api.g_miss_num) = -- operating unit
2860: decode(p_operating_unit_id,
2861: fnd_api.g_miss_num, nvl(oel.org_id, fnd_api.g_miss_num),
2862: p_operating_unit_id) and
2863: nvl(edt.transaction_inventory_org, fnd_api.g_miss_num) = -- inventory org
2857: fnd_api.g_miss_num, dra.repair_line_id,
2858: p_repair_line_id) and
2859: nvl(oel.org_id, fnd_api.g_miss_num) = -- operating unit
2860: decode(p_operating_unit_id,
2861: fnd_api.g_miss_num, nvl(oel.org_id, fnd_api.g_miss_num),
2862: p_operating_unit_id) and
2863: nvl(edt.transaction_inventory_org, fnd_api.g_miss_num) = -- inventory org
2864: decode(p_inventory_org_id,
2865: fnd_api.g_miss_num, nvl(edt.transaction_inventory_org, fnd_api.g_miss_num),
2859: nvl(oel.org_id, fnd_api.g_miss_num) = -- operating unit
2860: decode(p_operating_unit_id,
2861: fnd_api.g_miss_num, nvl(oel.org_id, fnd_api.g_miss_num),
2862: p_operating_unit_id) and
2863: nvl(edt.transaction_inventory_org, fnd_api.g_miss_num) = -- inventory org
2864: decode(p_inventory_org_id,
2865: fnd_api.g_miss_num, nvl(edt.transaction_inventory_org, fnd_api.g_miss_num),
2866: p_inventory_org_id) and
2867: nvl(dra.resource_id, fnd_api.g_miss_num) =
2861: fnd_api.g_miss_num, nvl(oel.org_id, fnd_api.g_miss_num),
2862: p_operating_unit_id) and
2863: nvl(edt.transaction_inventory_org, fnd_api.g_miss_num) = -- inventory org
2864: decode(p_inventory_org_id,
2865: fnd_api.g_miss_num, nvl(edt.transaction_inventory_org, fnd_api.g_miss_num),
2866: p_inventory_org_id) and
2867: nvl(dra.resource_id, fnd_api.g_miss_num) =
2868: decode(p_repair_owner_id,
2869: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
2863: nvl(edt.transaction_inventory_org, fnd_api.g_miss_num) = -- inventory org
2864: decode(p_inventory_org_id,
2865: fnd_api.g_miss_num, nvl(edt.transaction_inventory_org, fnd_api.g_miss_num),
2866: p_inventory_org_id) and
2867: nvl(dra.resource_id, fnd_api.g_miss_num) =
2868: decode(p_repair_owner_id,
2869: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
2870: p_repair_owner_id) and
2871: dra.flow_status_id =
2865: fnd_api.g_miss_num, nvl(edt.transaction_inventory_org, fnd_api.g_miss_num),
2866: p_inventory_org_id) and
2867: nvl(dra.resource_id, fnd_api.g_miss_num) =
2868: decode(p_repair_owner_id,
2869: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
2870: p_repair_owner_id) and
2871: dra.flow_status_id =
2872: decode(p_ro_status_id,
2873: fnd_api.g_miss_num, dra.flow_status_id,
2869: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
2870: p_repair_owner_id) and
2871: dra.flow_status_id =
2872: decode(p_ro_status_id,
2873: fnd_api.g_miss_num, dra.flow_status_id,
2874: p_ro_status_id) and
2875: dra.repair_type_id =
2876: decode(p_repair_type_id,
2877: fnd_api.g_miss_num, dra.repair_type_id,
2873: fnd_api.g_miss_num, dra.flow_status_id,
2874: p_ro_status_id) and
2875: dra.repair_type_id =
2876: decode(p_repair_type_id,
2877: fnd_api.g_miss_num, dra.repair_type_id,
2878: p_repair_type_id) and
2879: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
2880: decode(p_ro_priority_code,
2881: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
2875: dra.repair_type_id =
2876: decode(p_repair_type_id,
2877: fnd_api.g_miss_num, dra.repair_type_id,
2878: p_repair_type_id) and
2879: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
2880: decode(p_ro_priority_code,
2881: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
2882: p_ro_priority_code) and
2883: dra.creation_date >=
2877: fnd_api.g_miss_num, dra.repair_type_id,
2878: p_repair_type_id) and
2879: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
2880: decode(p_ro_priority_code,
2881: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
2882: p_ro_priority_code) and
2883: dra.creation_date >=
2884: decode(p_ro_age,
2885: fnd_api.g_miss_num, dra.creation_date,
2881: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
2882: p_ro_priority_code) and
2883: dra.creation_date >=
2884: decode(p_ro_age,
2885: fnd_api.g_miss_num, dra.creation_date,
2886: sysdate - p_ro_age) and
2887: nvl(dra.promise_date, G_MAX_DATE) <=
2888: decode(p_ro_due_date_age,
2889: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
2885: fnd_api.g_miss_num, dra.creation_date,
2886: sysdate - p_ro_age) and
2887: nvl(dra.promise_date, G_MAX_DATE) <=
2888: decode(p_ro_due_date_age,
2889: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
2890: sysdate + p_ro_due_date_age)) OLTP
2891: ON (soo.repair_line_id = OLTP.repair_line_id and
2892: -- soo.document_header_id = OLTP.document_header_id and
2893: soo.document_line_id = OLTP.document_line_id and
2972: null); -- paramn1
2973:
2974: -- Save changes to CSD_SO_ORCHESTRATION table even
2975: -- if SOO rules engine fails.
2976: IF FND_API.To_Boolean( p_commit ) THEN
2977: COMMIT WORK;
2978: END IF;
2979:
2980: SAVEPOINT REFRESH_SHIP;
2993: l_rule_input_rec.ship_curr_status_code := l_status_code;
2994:
2995: CSD_RULES_ENGINE_PVT.SOO_DEFAULTING(
2996: p_api_version_number => 1.0,
2997: p_commit => fnd_api.g_false,
2998: p_validation_level => p_validation_level,
2999: p_event_type => 'SHIP_STATUS',
3000: p_rule_input_rec => l_rule_input_rec,
3001: x_rule_id => l_rule_id,
3002: x_return_status => x_return_status,
3003: x_msg_count => x_msg_count,
3004: x_msg_data => x_msg_data);
3005:
3006: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3007: Debug('Trying to default SOO rule for Ship status event failed.',l_mod_name,4);
3008: RAISE FND_API.G_EXC_ERROR;
3009: END IF;
3010:
3004: x_msg_data => x_msg_data);
3005:
3006: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3007: Debug('Trying to default SOO rule for Ship status event failed.',l_mod_name,4);
3008: RAISE FND_API.G_EXC_ERROR;
3009: END IF;
3010:
3011: update_ship_ro_line_id(l_repair_line_id);
3012: END IF;
3012: END IF;
3013: END LOOP;
3014:
3015: -- Standard check of p_commit.
3016: IF FND_API.To_Boolean( p_commit ) THEN
3017: COMMIT WORK;
3018: END IF;
3019:
3020: x_msg_count := fnd_msg_pub.count_msg;
3019:
3020: x_msg_count := fnd_msg_pub.count_msg;
3021:
3022: EXCEPTION
3023: WHEN FND_API.G_EXC_ERROR THEN
3024: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
3025: ROLLBACK TO REFRESH_SHIP;
3026: x_return_status := FND_API.G_RET_STS_ERROR ;
3027: x_msg_count := fnd_msg_pub.count_msg;
3020: x_msg_count := fnd_msg_pub.count_msg;
3021:
3022: EXCEPTION
3023: WHEN FND_API.G_EXC_ERROR THEN
3024: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
3025: ROLLBACK TO REFRESH_SHIP;
3026: x_return_status := FND_API.G_RET_STS_ERROR ;
3027: x_msg_count := fnd_msg_pub.count_msg;
3028: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3022: EXCEPTION
3023: WHEN FND_API.G_EXC_ERROR THEN
3024: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
3025: ROLLBACK TO REFRESH_SHIP;
3026: x_return_status := FND_API.G_RET_STS_ERROR ;
3027: x_msg_count := fnd_msg_pub.count_msg;
3028: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3029: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
3030: IF ( l_error_level >= G_debug_level) THEN
3024: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
3025: ROLLBACK TO REFRESH_SHIP;
3026: x_return_status := FND_API.G_RET_STS_ERROR ;
3027: x_msg_count := fnd_msg_pub.count_msg;
3028: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3029: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
3030: IF ( l_error_level >= G_debug_level) THEN
3031: fnd_message.set_name('CSD','CSD_SQL_ERROR');
3032: fnd_message.set_token('SQLERRM',SQLERRM);
3025: ROLLBACK TO REFRESH_SHIP;
3026: x_return_status := FND_API.G_RET_STS_ERROR ;
3027: x_msg_count := fnd_msg_pub.count_msg;
3028: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3029: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
3030: IF ( l_error_level >= G_debug_level) THEN
3031: fnd_message.set_name('CSD','CSD_SQL_ERROR');
3032: fnd_message.set_token('SQLERRM',SQLERRM);
3033: fnd_message.set_token('SQLCODE',SQLCODE);
3033: fnd_message.set_token('SQLCODE',SQLCODE);
3034: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
3035: END If;
3036: ROLLBACK TO REFRESH_SHIP;
3037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3038: x_msg_count := fnd_msg_pub.count_msg;
3039: WHEN OTHERS THEN
3040: Debug('In OTHERS Exception',l_mod_name,4);
3041: IF ( l_error_level >= G_debug_level) THEN
3044: fnd_message.set_token('SQLCODE',SQLCODE);
3045: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
3046: END If;
3047: ROLLBACK TO REFRESH_SHIP;
3048: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3049: IF FND_MSG_PUB.Check_Msg_Level
3050: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3051: THEN
3052: FND_MSG_PUB.Add_Exc_Msg
3064: p_validation_level IN NUMBER,
3065: x_return_status OUT NOCOPY VARCHAR2,
3066: x_msg_count OUT NOCOPY NUMBER,
3067: x_msg_data OUT NOCOPY VARCHAR2,
3068: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
3069: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
3070: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3071: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3072: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3065: x_return_status OUT NOCOPY VARCHAR2,
3066: x_msg_count OUT NOCOPY NUMBER,
3067: x_msg_data OUT NOCOPY VARCHAR2,
3068: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
3069: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
3070: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3071: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3072: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3073: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3066: x_msg_count OUT NOCOPY NUMBER,
3067: x_msg_data OUT NOCOPY VARCHAR2,
3068: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
3069: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
3070: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3071: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3072: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3073: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3074: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3067: x_msg_data OUT NOCOPY VARCHAR2,
3068: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
3069: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
3070: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3071: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3072: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3073: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3074: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3075: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3068: p_order_line_id IN NUMBER := FND_API.G_MISS_NUM,
3069: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
3070: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3071: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3072: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3073: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3074: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3075: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3076: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
3069: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
3070: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3071: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3072: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3073: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3074: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3075: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3076: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
3077: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
3070: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3071: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3072: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3073: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3074: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3075: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3076: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
3077: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
3078: IS
3071: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3072: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3073: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3074: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3075: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3076: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
3077: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
3078: IS
3079: -- Standard Variables
3072: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3073: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3074: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3075: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3076: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
3077: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
3078: IS
3079: -- Standard Variables
3080: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_SHIP_THIRD_PARTY';
3073: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3074: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3075: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3076: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
3077: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
3078: IS
3079: -- Standard Variables
3080: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_SHIP_THIRD_PARTY';
3081: l_api_version CONSTANT NUMBER := 1.0;
3103: BEGIN
3104: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entering Refresh_Ship_Third_Party...');
3105:
3106: -- Initialize API return status to success
3107: x_return_status := FND_API.G_RET_STS_SUCCESS;
3108:
3109: -- Log the api name in the log file
3110: Debug('At the Beginning of Refresh_Ship_Third_Party', l_mod_name, 1);
3111:
3109: -- Log the api name in the log file
3110: Debug('At the Beginning of Refresh_Ship_Third_Party', l_mod_name, 1);
3111:
3112: -- Standard call to check for call compatibility.
3113: IF NOT FND_API.Compatible_API_Call (l_api_version,
3114: p_api_version,
3115: l_api_name ,
3116: G_PKG_NAME)
3117: THEN
3114: p_api_version,
3115: l_api_name ,
3116: G_PKG_NAME)
3117: THEN
3118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3119: END IF;
3120:
3121: -- Initialize message list if p_init_msg_list is set to TRUE.
3122: IF FND_API.to_Boolean(p_init_msg_list) THEN
3118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3119: END IF;
3120:
3121: -- Initialize message list if p_init_msg_list is set to TRUE.
3122: IF FND_API.to_Boolean(p_init_msg_list) THEN
3123: FND_MSG_PUB.initialize;
3124: END IF;
3125:
3126: -- Api body starts
3154: and lv.meaning = OE_LINE_STATUS_PUB.get_line_status(p_line_id => oel.line_id,
3155: p_flow_status_code => oel.flow_status_code)
3156: and
3157: oel.line_id = decode(p_order_line_id,
3158: fnd_api.g_miss_num, oel.line_id,
3159: p_order_line_id) and
3160: dra.repair_line_id = decode(p_repair_line_id,
3161: fnd_api.g_miss_num, dra.repair_line_id,
3162: p_repair_line_id) and
3157: oel.line_id = decode(p_order_line_id,
3158: fnd_api.g_miss_num, oel.line_id,
3159: p_order_line_id) and
3160: dra.repair_line_id = decode(p_repair_line_id,
3161: fnd_api.g_miss_num, dra.repair_line_id,
3162: p_repair_line_id) and
3163: nvl(oel.org_id, fnd_api.g_miss_num) = -- operating unit
3164: decode(p_operating_unit_id,
3165: fnd_api.g_miss_num, nvl(oel.org_id, fnd_api.g_miss_num),
3159: p_order_line_id) and
3160: dra.repair_line_id = decode(p_repair_line_id,
3161: fnd_api.g_miss_num, dra.repair_line_id,
3162: p_repair_line_id) and
3163: nvl(oel.org_id, fnd_api.g_miss_num) = -- operating unit
3164: decode(p_operating_unit_id,
3165: fnd_api.g_miss_num, nvl(oel.org_id, fnd_api.g_miss_num),
3166: p_operating_unit_id) and
3167: nvl(edt.transaction_inventory_org, fnd_api.g_miss_num) = -- inventory org
3161: fnd_api.g_miss_num, dra.repair_line_id,
3162: p_repair_line_id) and
3163: nvl(oel.org_id, fnd_api.g_miss_num) = -- operating unit
3164: decode(p_operating_unit_id,
3165: fnd_api.g_miss_num, nvl(oel.org_id, fnd_api.g_miss_num),
3166: p_operating_unit_id) and
3167: nvl(edt.transaction_inventory_org, fnd_api.g_miss_num) = -- inventory org
3168: decode(p_inventory_org_id,
3169: fnd_api.g_miss_num, nvl(edt.transaction_inventory_org, fnd_api.g_miss_num),
3163: nvl(oel.org_id, fnd_api.g_miss_num) = -- operating unit
3164: decode(p_operating_unit_id,
3165: fnd_api.g_miss_num, nvl(oel.org_id, fnd_api.g_miss_num),
3166: p_operating_unit_id) and
3167: nvl(edt.transaction_inventory_org, fnd_api.g_miss_num) = -- inventory org
3168: decode(p_inventory_org_id,
3169: fnd_api.g_miss_num, nvl(edt.transaction_inventory_org, fnd_api.g_miss_num),
3170: p_inventory_org_id) and
3171: nvl(dra.resource_id, fnd_api.g_miss_num) =
3165: fnd_api.g_miss_num, nvl(oel.org_id, fnd_api.g_miss_num),
3166: p_operating_unit_id) and
3167: nvl(edt.transaction_inventory_org, fnd_api.g_miss_num) = -- inventory org
3168: decode(p_inventory_org_id,
3169: fnd_api.g_miss_num, nvl(edt.transaction_inventory_org, fnd_api.g_miss_num),
3170: p_inventory_org_id) and
3171: nvl(dra.resource_id, fnd_api.g_miss_num) =
3172: decode(p_repair_owner_id,
3173: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
3167: nvl(edt.transaction_inventory_org, fnd_api.g_miss_num) = -- inventory org
3168: decode(p_inventory_org_id,
3169: fnd_api.g_miss_num, nvl(edt.transaction_inventory_org, fnd_api.g_miss_num),
3170: p_inventory_org_id) and
3171: nvl(dra.resource_id, fnd_api.g_miss_num) =
3172: decode(p_repair_owner_id,
3173: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
3174: p_repair_owner_id) and
3175: dra.flow_status_id =
3169: fnd_api.g_miss_num, nvl(edt.transaction_inventory_org, fnd_api.g_miss_num),
3170: p_inventory_org_id) and
3171: nvl(dra.resource_id, fnd_api.g_miss_num) =
3172: decode(p_repair_owner_id,
3173: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
3174: p_repair_owner_id) and
3175: dra.flow_status_id =
3176: decode(p_ro_status_id,
3177: fnd_api.g_miss_num, dra.flow_status_id,
3173: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
3174: p_repair_owner_id) and
3175: dra.flow_status_id =
3176: decode(p_ro_status_id,
3177: fnd_api.g_miss_num, dra.flow_status_id,
3178: p_ro_status_id) and
3179: dra.repair_type_id =
3180: decode(p_repair_type_id,
3181: fnd_api.g_miss_num, dra.repair_type_id,
3177: fnd_api.g_miss_num, dra.flow_status_id,
3178: p_ro_status_id) and
3179: dra.repair_type_id =
3180: decode(p_repair_type_id,
3181: fnd_api.g_miss_num, dra.repair_type_id,
3182: p_repair_type_id) and
3183: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
3184: decode(p_ro_priority_code,
3185: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
3179: dra.repair_type_id =
3180: decode(p_repair_type_id,
3181: fnd_api.g_miss_num, dra.repair_type_id,
3182: p_repair_type_id) and
3183: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
3184: decode(p_ro_priority_code,
3185: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
3186: p_ro_priority_code) and
3187: dra.creation_date >=
3181: fnd_api.g_miss_num, dra.repair_type_id,
3182: p_repair_type_id) and
3183: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
3184: decode(p_ro_priority_code,
3185: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
3186: p_ro_priority_code) and
3187: dra.creation_date >=
3188: decode(p_ro_age,
3189: fnd_api.g_miss_num, dra.creation_date,
3185: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
3186: p_ro_priority_code) and
3187: dra.creation_date >=
3188: decode(p_ro_age,
3189: fnd_api.g_miss_num, dra.creation_date,
3190: sysdate - p_ro_age) and
3191: nvl(dra.promise_date, G_MAX_DATE) <=
3192: decode(p_ro_due_date_age,
3193: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
3189: fnd_api.g_miss_num, dra.creation_date,
3190: sysdate - p_ro_age) and
3191: nvl(dra.promise_date, G_MAX_DATE) <=
3192: decode(p_ro_due_date_age,
3193: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
3194: sysdate + p_ro_due_date_age)) OLTP
3195: ON (soo.repair_line_id = OLTP.repair_line_id and
3196: -- soo.document_header_id = OLTP.document_header_id and
3197: soo.document_line_id = OLTP.document_line_id and
3276: null); -- paramn1
3277:
3278: -- Save changes to CSD_SO_ORCHESTRATION table even
3279: -- if SOO rules engine fails.
3280: IF FND_API.To_Boolean( p_commit ) THEN
3281: COMMIT WORK;
3282: END IF;
3283:
3284: SAVEPOINT REFRESH_SHIP_TP;
3297: l_rule_input_rec.ship_tp_curr_status_code := l_status_code;
3298:
3299: CSD_RULES_ENGINE_PVT.SOO_DEFAULTING(
3300: p_api_version_number => 1.0,
3301: p_commit => fnd_api.g_false,
3302: p_validation_level => p_validation_level,
3303: p_event_type => 'SHIP_TP_STATUS',
3304: p_rule_input_rec => l_rule_input_rec,
3305: x_rule_id => l_rule_id,
3306: x_return_status => x_return_status,
3307: x_msg_count => x_msg_count,
3308: x_msg_data => x_msg_data);
3309:
3310: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3311: Debug('Trying to default SOO rule for Ship Third Party status event failed.',l_mod_name,4);
3312: RAISE FND_API.G_EXC_ERROR;
3313: END IF;
3314:
3308: x_msg_data => x_msg_data);
3309:
3310: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3311: Debug('Trying to default SOO rule for Ship Third Party status event failed.',l_mod_name,4);
3312: RAISE FND_API.G_EXC_ERROR;
3313: END IF;
3314:
3315: update_ship_ro_line_id(l_repair_line_id);
3316: END IF;
3316: END IF;
3317: END LOOP;
3318:
3319: -- Standard check of p_commit.
3320: IF FND_API.To_Boolean( p_commit ) THEN
3321: COMMIT WORK;
3322: END IF;
3323:
3324: x_msg_count := fnd_msg_pub.count_msg;
3323:
3324: x_msg_count := fnd_msg_pub.count_msg;
3325:
3326: EXCEPTION
3327: WHEN FND_API.G_EXC_ERROR THEN
3328: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
3329: ROLLBACK TO REFRESH_SHIP_TP;
3330: x_return_status := FND_API.G_RET_STS_ERROR ;
3331: x_msg_count := fnd_msg_pub.count_msg;
3324: x_msg_count := fnd_msg_pub.count_msg;
3325:
3326: EXCEPTION
3327: WHEN FND_API.G_EXC_ERROR THEN
3328: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
3329: ROLLBACK TO REFRESH_SHIP_TP;
3330: x_return_status := FND_API.G_RET_STS_ERROR ;
3331: x_msg_count := fnd_msg_pub.count_msg;
3332: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3326: EXCEPTION
3327: WHEN FND_API.G_EXC_ERROR THEN
3328: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
3329: ROLLBACK TO REFRESH_SHIP_TP;
3330: x_return_status := FND_API.G_RET_STS_ERROR ;
3331: x_msg_count := fnd_msg_pub.count_msg;
3332: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3333: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
3334: IF ( l_error_level >= G_debug_level) THEN
3328: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
3329: ROLLBACK TO REFRESH_SHIP_TP;
3330: x_return_status := FND_API.G_RET_STS_ERROR ;
3331: x_msg_count := fnd_msg_pub.count_msg;
3332: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3333: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
3334: IF ( l_error_level >= G_debug_level) THEN
3335: fnd_message.set_name('CSD','CSD_SQL_ERROR');
3336: fnd_message.set_token('SQLERRM',SQLERRM);
3329: ROLLBACK TO REFRESH_SHIP_TP;
3330: x_return_status := FND_API.G_RET_STS_ERROR ;
3331: x_msg_count := fnd_msg_pub.count_msg;
3332: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3333: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
3334: IF ( l_error_level >= G_debug_level) THEN
3335: fnd_message.set_name('CSD','CSD_SQL_ERROR');
3336: fnd_message.set_token('SQLERRM',SQLERRM);
3337: fnd_message.set_token('SQLCODE',SQLCODE);
3337: fnd_message.set_token('SQLCODE',SQLCODE);
3338: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
3339: END If;
3340: ROLLBACK TO REFRESH_SHIP_TP;
3341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3342: x_msg_count := fnd_msg_pub.count_msg;
3343: WHEN OTHERS THEN
3344: Debug('In OTHERS Exception',l_mod_name,4);
3345: IF ( l_error_level >= G_debug_level) THEN
3348: fnd_message.set_token('SQLCODE',SQLCODE);
3349: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
3350: END If;
3351: ROLLBACK TO REFRESH_SHIP_TP;
3352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3353: IF FND_MSG_PUB.Check_Msg_Level
3354: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3355: THEN
3356: FND_MSG_PUB.Add_Exc_Msg
3368: p_validation_level IN NUMBER,
3369: x_return_status OUT NOCOPY VARCHAR2,
3370: x_msg_count OUT NOCOPY NUMBER,
3371: x_msg_data OUT NOCOPY VARCHAR2,
3372: p_delivery_id IN NUMBER := FND_API.G_MISS_NUM,
3373: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
3374: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3375: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3376: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3369: x_return_status OUT NOCOPY VARCHAR2,
3370: x_msg_count OUT NOCOPY NUMBER,
3371: x_msg_data OUT NOCOPY VARCHAR2,
3372: p_delivery_id IN NUMBER := FND_API.G_MISS_NUM,
3373: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
3374: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3375: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3376: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3377: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3370: x_msg_count OUT NOCOPY NUMBER,
3371: x_msg_data OUT NOCOPY VARCHAR2,
3372: p_delivery_id IN NUMBER := FND_API.G_MISS_NUM,
3373: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
3374: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3375: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3376: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3377: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3378: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3371: x_msg_data OUT NOCOPY VARCHAR2,
3372: p_delivery_id IN NUMBER := FND_API.G_MISS_NUM,
3373: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
3374: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3375: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3376: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3377: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3378: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3379: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3372: p_delivery_id IN NUMBER := FND_API.G_MISS_NUM,
3373: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
3374: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3375: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3376: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3377: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3378: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3379: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3380: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
3373: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
3374: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3375: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3376: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3377: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3378: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3379: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3380: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
3381: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
3374: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3375: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3376: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3377: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3378: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3379: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3380: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
3381: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
3382: IS
3375: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3376: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3377: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3378: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3379: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3380: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
3381: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
3382: IS
3383: -- Standard Variables
3376: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3377: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3378: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3379: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3380: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
3381: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
3382: IS
3383: -- Standard Variables
3384: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_DELIVERY';
3377: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3378: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3379: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3380: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
3381: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
3382: IS
3383: -- Standard Variables
3384: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH_DELIVERY';
3385: l_api_version CONSTANT NUMBER := 1.0;
3407: BEGIN
3408: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entering Refresh_Delivery...');
3409:
3410: -- Initialize API return status to success
3411: x_return_status := FND_API.G_RET_STS_SUCCESS;
3412:
3413: -- Log the api name in the log file
3414: Debug('At the Beginning of Refresh_Delivery', l_mod_name, 1);
3415:
3413: -- Log the api name in the log file
3414: Debug('At the Beginning of Refresh_Delivery', l_mod_name, 1);
3415:
3416: -- Standard call to check for call compatibility.
3417: IF NOT FND_API.Compatible_API_Call (l_api_version,
3418: p_api_version,
3419: l_api_name ,
3420: G_PKG_NAME)
3421: THEN
3418: p_api_version,
3419: l_api_name ,
3420: G_PKG_NAME)
3421: THEN
3422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3423: END IF;
3424:
3425: -- Initialize message list if p_init_msg_list is set to TRUE.
3426: IF FND_API.to_Boolean(p_init_msg_list) THEN
3422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3423: END IF;
3424:
3425: -- Initialize message list if p_init_msg_list is set to TRUE.
3426: IF FND_API.to_Boolean(p_init_msg_list) THEN
3427: FND_MSG_PUB.initialize;
3428: END IF;
3429:
3430: -- Api body starts
3462: and dpt.repair_line_id = dra.repair_line_id
3463: and orgd.organization_id(+) = wnd.organization_id
3464: and
3465: wnd.delivery_id = decode(p_delivery_id,
3466: fnd_api.g_miss_num, wnd.delivery_id,
3467: p_delivery_id) and
3468: dra.repair_line_id = decode(p_repair_line_id,
3469: fnd_api.g_miss_num, dra.repair_line_id,
3470: p_repair_line_id) and
3465: wnd.delivery_id = decode(p_delivery_id,
3466: fnd_api.g_miss_num, wnd.delivery_id,
3467: p_delivery_id) and
3468: dra.repair_line_id = decode(p_repair_line_id,
3469: fnd_api.g_miss_num, dra.repair_line_id,
3470: p_repair_line_id) and
3471: nvl(orgd.operating_unit, fnd_api.g_miss_num) =
3472: decode(p_operating_unit_id,
3473: fnd_api.g_miss_num, nvl(orgd.operating_unit, fnd_api.g_miss_num),
3467: p_delivery_id) and
3468: dra.repair_line_id = decode(p_repair_line_id,
3469: fnd_api.g_miss_num, dra.repair_line_id,
3470: p_repair_line_id) and
3471: nvl(orgd.operating_unit, fnd_api.g_miss_num) =
3472: decode(p_operating_unit_id,
3473: fnd_api.g_miss_num, nvl(orgd.operating_unit, fnd_api.g_miss_num),
3474: p_operating_unit_id) and
3475: nvl(wnd.organization_id, fnd_api.g_miss_num) =
3469: fnd_api.g_miss_num, dra.repair_line_id,
3470: p_repair_line_id) and
3471: nvl(orgd.operating_unit, fnd_api.g_miss_num) =
3472: decode(p_operating_unit_id,
3473: fnd_api.g_miss_num, nvl(orgd.operating_unit, fnd_api.g_miss_num),
3474: p_operating_unit_id) and
3475: nvl(wnd.organization_id, fnd_api.g_miss_num) =
3476: decode(p_inventory_org_id,
3477: fnd_api.g_miss_num, nvl(wnd.organization_id, fnd_api.g_miss_num),
3471: nvl(orgd.operating_unit, fnd_api.g_miss_num) =
3472: decode(p_operating_unit_id,
3473: fnd_api.g_miss_num, nvl(orgd.operating_unit, fnd_api.g_miss_num),
3474: p_operating_unit_id) and
3475: nvl(wnd.organization_id, fnd_api.g_miss_num) =
3476: decode(p_inventory_org_id,
3477: fnd_api.g_miss_num, nvl(wnd.organization_id, fnd_api.g_miss_num),
3478: p_inventory_org_id) and
3479: nvl(dra.resource_id, fnd_api.g_miss_num) =
3473: fnd_api.g_miss_num, nvl(orgd.operating_unit, fnd_api.g_miss_num),
3474: p_operating_unit_id) and
3475: nvl(wnd.organization_id, fnd_api.g_miss_num) =
3476: decode(p_inventory_org_id,
3477: fnd_api.g_miss_num, nvl(wnd.organization_id, fnd_api.g_miss_num),
3478: p_inventory_org_id) and
3479: nvl(dra.resource_id, fnd_api.g_miss_num) =
3480: decode(p_repair_owner_id,
3481: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
3475: nvl(wnd.organization_id, fnd_api.g_miss_num) =
3476: decode(p_inventory_org_id,
3477: fnd_api.g_miss_num, nvl(wnd.organization_id, fnd_api.g_miss_num),
3478: p_inventory_org_id) and
3479: nvl(dra.resource_id, fnd_api.g_miss_num) =
3480: decode(p_repair_owner_id,
3481: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
3482: p_repair_owner_id) and
3483: dra.flow_status_id =
3477: fnd_api.g_miss_num, nvl(wnd.organization_id, fnd_api.g_miss_num),
3478: p_inventory_org_id) and
3479: nvl(dra.resource_id, fnd_api.g_miss_num) =
3480: decode(p_repair_owner_id,
3481: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
3482: p_repair_owner_id) and
3483: dra.flow_status_id =
3484: decode(p_ro_status_id,
3485: fnd_api.g_miss_num, dra.flow_status_id,
3481: fnd_api.g_miss_num, nvl(dra.resource_id, fnd_api.g_miss_num),
3482: p_repair_owner_id) and
3483: dra.flow_status_id =
3484: decode(p_ro_status_id,
3485: fnd_api.g_miss_num, dra.flow_status_id,
3486: p_ro_status_id) and
3487: dra.repair_type_id =
3488: decode(p_repair_type_id,
3489: fnd_api.g_miss_num, dra.repair_type_id,
3485: fnd_api.g_miss_num, dra.flow_status_id,
3486: p_ro_status_id) and
3487: dra.repair_type_id =
3488: decode(p_repair_type_id,
3489: fnd_api.g_miss_num, dra.repair_type_id,
3490: p_repair_type_id) and
3491: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
3492: decode(p_ro_priority_code,
3493: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
3487: dra.repair_type_id =
3488: decode(p_repair_type_id,
3489: fnd_api.g_miss_num, dra.repair_type_id,
3490: p_repair_type_id) and
3491: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
3492: decode(p_ro_priority_code,
3493: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
3494: p_ro_priority_code) and
3495: dra.creation_date >=
3489: fnd_api.g_miss_num, dra.repair_type_id,
3490: p_repair_type_id) and
3491: nvl(dra.ro_priority_code, fnd_api.g_miss_char) =
3492: decode(p_ro_priority_code,
3493: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
3494: p_ro_priority_code) and
3495: dra.creation_date >=
3496: decode(p_ro_age,
3497: fnd_api.g_miss_num, dra.creation_date,
3493: fnd_api.g_miss_char, nvl(dra.ro_priority_code, fnd_api.g_miss_char),
3494: p_ro_priority_code) and
3495: dra.creation_date >=
3496: decode(p_ro_age,
3497: fnd_api.g_miss_num, dra.creation_date,
3498: sysdate - p_ro_age) and
3499: nvl(dra.promise_date, G_MAX_DATE) <=
3500: decode(p_ro_due_date_age,
3501: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
3497: fnd_api.g_miss_num, dra.creation_date,
3498: sysdate - p_ro_age) and
3499: nvl(dra.promise_date, G_MAX_DATE) <=
3500: decode(p_ro_due_date_age,
3501: fnd_api.g_miss_num, nvl(dra.promise_date, G_MAX_DATE),
3502: sysdate + p_ro_due_date_age)) OLTP
3503: ON (soo.repair_line_id = OLTP.repair_line_id and
3504: soo.document_header_id = OLTP.document_header_id and
3505: -- soo.document_line_id = OLTP.document_line_id and
3584: null); -- paramn1
3585:
3586: -- Save changes to CSD_SO_ORCHESTRATION table even
3587: -- if SOO rules engine fails.
3588: IF FND_API.To_Boolean( p_commit ) THEN
3589: COMMIT WORK;
3590: END IF;
3591:
3592: SAVEPOINT REFRESH_DELIVERY;
3605: l_rule_input_rec.delivery_curr_status_code := l_status_code;
3606:
3607: CSD_RULES_ENGINE_PVT.SOO_DEFAULTING(
3608: p_api_version_number => 1.0,
3609: p_commit => fnd_api.g_false,
3610: p_validation_level => p_validation_level,
3611: p_event_type => 'DELIVERY_STATUS',
3612: p_rule_input_rec => l_rule_input_rec,
3613: x_rule_id => l_rule_id,
3614: x_return_status => x_return_status,
3615: x_msg_count => x_msg_count,
3616: x_msg_data => x_msg_data);
3617:
3618: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3619: Debug('Trying to default SOO rule for Shipping: Delivery Line status event failed.',l_mod_name,4);
3620: RAISE FND_API.G_EXC_ERROR;
3621: END IF;
3622:
3616: x_msg_data => x_msg_data);
3617:
3618: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3619: Debug('Trying to default SOO rule for Shipping: Delivery Line status event failed.',l_mod_name,4);
3620: RAISE FND_API.G_EXC_ERROR;
3621: END IF;
3622:
3623: update_ship_ro_line_id(l_repair_line_id);
3624: END IF;
3624: END IF;
3625: END LOOP;
3626:
3627: -- Standard check of p_commit.
3628: IF FND_API.To_Boolean( p_commit ) THEN
3629: COMMIT WORK;
3630: END IF;
3631:
3632: x_msg_count := fnd_msg_pub.count_msg;
3631:
3632: x_msg_count := fnd_msg_pub.count_msg;
3633:
3634: EXCEPTION
3635: WHEN FND_API.G_EXC_ERROR THEN
3636: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
3637: ROLLBACK TO REFRESH_DELIVERY;
3638: x_return_status := FND_API.G_RET_STS_ERROR ;
3639: x_msg_count := fnd_msg_pub.count_msg;
3632: x_msg_count := fnd_msg_pub.count_msg;
3633:
3634: EXCEPTION
3635: WHEN FND_API.G_EXC_ERROR THEN
3636: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
3637: ROLLBACK TO REFRESH_DELIVERY;
3638: x_return_status := FND_API.G_RET_STS_ERROR ;
3639: x_msg_count := fnd_msg_pub.count_msg;
3640: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3634: EXCEPTION
3635: WHEN FND_API.G_EXC_ERROR THEN
3636: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
3637: ROLLBACK TO REFRESH_DELIVERY;
3638: x_return_status := FND_API.G_RET_STS_ERROR ;
3639: x_msg_count := fnd_msg_pub.count_msg;
3640: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3641: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
3642: IF ( l_error_level >= G_debug_level) THEN
3636: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
3637: ROLLBACK TO REFRESH_DELIVERY;
3638: x_return_status := FND_API.G_RET_STS_ERROR ;
3639: x_msg_count := fnd_msg_pub.count_msg;
3640: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3641: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
3642: IF ( l_error_level >= G_debug_level) THEN
3643: fnd_message.set_name('CSD','CSD_SQL_ERROR');
3644: fnd_message.set_token('SQLERRM',SQLERRM);
3637: ROLLBACK TO REFRESH_DELIVERY;
3638: x_return_status := FND_API.G_RET_STS_ERROR ;
3639: x_msg_count := fnd_msg_pub.count_msg;
3640: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3641: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
3642: IF ( l_error_level >= G_debug_level) THEN
3643: fnd_message.set_name('CSD','CSD_SQL_ERROR');
3644: fnd_message.set_token('SQLERRM',SQLERRM);
3645: fnd_message.set_token('SQLCODE',SQLCODE);
3645: fnd_message.set_token('SQLCODE',SQLCODE);
3646: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
3647: END If;
3648: ROLLBACK TO REFRESH_DELIVERY;
3649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3650: x_msg_count := fnd_msg_pub.count_msg;
3651: WHEN OTHERS THEN
3652: Debug('In OTHERS Exception',l_mod_name,4);
3653: IF ( l_error_level >= G_debug_level) THEN
3656: fnd_message.set_token('SQLCODE',SQLCODE);
3657: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
3658: END If;
3659: ROLLBACK TO REFRESH_DELIVERY;
3660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3661: IF FND_MSG_PUB.Check_Msg_Level
3662: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3663: THEN
3664: FND_MSG_PUB.Add_Exc_Msg
3682: x_return_status OUT NOCOPY VARCHAR2,
3683: x_msg_count OUT NOCOPY NUMBER,
3684: x_msg_data OUT NOCOPY VARCHAR2,
3685: p_so_orchestration_key_tbl IN so_orchestration_key_tbl_type,
3686: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
3687: p_document_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
3688: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3689: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3690: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3683: x_msg_count OUT NOCOPY NUMBER,
3684: x_msg_data OUT NOCOPY VARCHAR2,
3685: p_so_orchestration_key_tbl IN so_orchestration_key_tbl_type,
3686: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
3687: p_document_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
3688: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3689: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3690: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3691: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3684: x_msg_data OUT NOCOPY VARCHAR2,
3685: p_so_orchestration_key_tbl IN so_orchestration_key_tbl_type,
3686: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
3687: p_document_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
3688: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3689: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3690: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3691: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3692: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3685: p_so_orchestration_key_tbl IN so_orchestration_key_tbl_type,
3686: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
3687: p_document_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
3688: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3689: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3690: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3691: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3692: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3693: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3686: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
3687: p_document_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
3688: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3689: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3690: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3691: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3692: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3693: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3694: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
3687: p_document_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
3688: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3689: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3690: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3691: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3692: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3693: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3694: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
3695: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
3688: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
3689: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3690: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3691: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3692: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3693: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3694: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
3695: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
3696: IS
3689: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
3690: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3691: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3692: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3693: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3694: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
3695: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
3696: IS
3697: -- Standard Variables
3690: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
3691: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3692: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3693: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3694: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
3695: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
3696: IS
3697: -- Standard Variables
3698: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH';
3691: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
3692: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
3693: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3694: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
3695: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
3696: IS
3697: -- Standard Variables
3698: l_api_name CONSTANT VARCHAR2(30) := 'REFRESH';
3699: l_api_version CONSTANT NUMBER := 1.0;
3734: BEGIN
3735: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entering Refresh...');
3736:
3737: -- Initialize API return status to success
3738: x_return_status := FND_API.G_RET_STS_SUCCESS;
3739: l_return_status := FND_API.G_RET_STS_SUCCESS;
3740:
3741: -- Log the api name in the log file
3742: Debug('At the Beginning of Refresh', l_mod_name, 1);
3735: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entering Refresh...');
3736:
3737: -- Initialize API return status to success
3738: x_return_status := FND_API.G_RET_STS_SUCCESS;
3739: l_return_status := FND_API.G_RET_STS_SUCCESS;
3740:
3741: -- Log the api name in the log file
3742: Debug('At the Beginning of Refresh', l_mod_name, 1);
3743:
3741: -- Log the api name in the log file
3742: Debug('At the Beginning of Refresh', l_mod_name, 1);
3743:
3744: -- Standard call to check for call compatibility.
3745: IF NOT FND_API.Compatible_API_Call (l_api_version,
3746: p_api_version,
3747: l_api_name ,
3748: G_PKG_NAME)
3749: THEN
3746: p_api_version,
3747: l_api_name ,
3748: G_PKG_NAME)
3749: THEN
3750: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3751: END IF;
3752:
3753: -- Initialize message list if p_init_msg_list is set to TRUE.
3754: IF FND_API.to_Boolean(p_init_msg_list) THEN
3750: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3751: END IF;
3752:
3753: -- Initialize message list if p_init_msg_list is set to TRUE.
3754: IF FND_API.to_Boolean(p_init_msg_list) THEN
3755: FND_MSG_PUB.initialize;
3756: END IF;
3757:
3758: -- Api body starts
3756: END IF;
3757:
3758: -- Api body starts
3759:
3760: l_repair_line_id := nvl(p_repair_line_id, fnd_api.g_miss_num);
3761: l_document_type := nvl(p_document_type, fnd_api.g_miss_char);
3762: l_operating_unit_id := nvl(p_operating_unit_id, fnd_api.g_miss_num);
3763: l_inventory_org_id := nvl(p_inventory_org_id, fnd_api.g_miss_num);
3764: l_repair_owner_id := nvl(p_repair_owner_id, fnd_api.g_miss_num);
3757:
3758: -- Api body starts
3759:
3760: l_repair_line_id := nvl(p_repair_line_id, fnd_api.g_miss_num);
3761: l_document_type := nvl(p_document_type, fnd_api.g_miss_char);
3762: l_operating_unit_id := nvl(p_operating_unit_id, fnd_api.g_miss_num);
3763: l_inventory_org_id := nvl(p_inventory_org_id, fnd_api.g_miss_num);
3764: l_repair_owner_id := nvl(p_repair_owner_id, fnd_api.g_miss_num);
3765: l_ro_status_id := nvl(p_ro_status_id, fnd_api.g_miss_num);
3758: -- Api body starts
3759:
3760: l_repair_line_id := nvl(p_repair_line_id, fnd_api.g_miss_num);
3761: l_document_type := nvl(p_document_type, fnd_api.g_miss_char);
3762: l_operating_unit_id := nvl(p_operating_unit_id, fnd_api.g_miss_num);
3763: l_inventory_org_id := nvl(p_inventory_org_id, fnd_api.g_miss_num);
3764: l_repair_owner_id := nvl(p_repair_owner_id, fnd_api.g_miss_num);
3765: l_ro_status_id := nvl(p_ro_status_id, fnd_api.g_miss_num);
3766: l_repair_type_id := nvl(p_repair_type_id, fnd_api.g_miss_num);
3759:
3760: l_repair_line_id := nvl(p_repair_line_id, fnd_api.g_miss_num);
3761: l_document_type := nvl(p_document_type, fnd_api.g_miss_char);
3762: l_operating_unit_id := nvl(p_operating_unit_id, fnd_api.g_miss_num);
3763: l_inventory_org_id := nvl(p_inventory_org_id, fnd_api.g_miss_num);
3764: l_repair_owner_id := nvl(p_repair_owner_id, fnd_api.g_miss_num);
3765: l_ro_status_id := nvl(p_ro_status_id, fnd_api.g_miss_num);
3766: l_repair_type_id := nvl(p_repair_type_id, fnd_api.g_miss_num);
3767: l_ro_priority_code := nvl(p_ro_priority_code, fnd_api.g_miss_char);
3760: l_repair_line_id := nvl(p_repair_line_id, fnd_api.g_miss_num);
3761: l_document_type := nvl(p_document_type, fnd_api.g_miss_char);
3762: l_operating_unit_id := nvl(p_operating_unit_id, fnd_api.g_miss_num);
3763: l_inventory_org_id := nvl(p_inventory_org_id, fnd_api.g_miss_num);
3764: l_repair_owner_id := nvl(p_repair_owner_id, fnd_api.g_miss_num);
3765: l_ro_status_id := nvl(p_ro_status_id, fnd_api.g_miss_num);
3766: l_repair_type_id := nvl(p_repair_type_id, fnd_api.g_miss_num);
3767: l_ro_priority_code := nvl(p_ro_priority_code, fnd_api.g_miss_char);
3768: l_ro_age := nvl(p_ro_age, fnd_api.g_miss_num);
3761: l_document_type := nvl(p_document_type, fnd_api.g_miss_char);
3762: l_operating_unit_id := nvl(p_operating_unit_id, fnd_api.g_miss_num);
3763: l_inventory_org_id := nvl(p_inventory_org_id, fnd_api.g_miss_num);
3764: l_repair_owner_id := nvl(p_repair_owner_id, fnd_api.g_miss_num);
3765: l_ro_status_id := nvl(p_ro_status_id, fnd_api.g_miss_num);
3766: l_repair_type_id := nvl(p_repair_type_id, fnd_api.g_miss_num);
3767: l_ro_priority_code := nvl(p_ro_priority_code, fnd_api.g_miss_char);
3768: l_ro_age := nvl(p_ro_age, fnd_api.g_miss_num);
3769: l_ro_due_date_age := nvl(p_ro_due_date_age, fnd_api.g_miss_num);
3762: l_operating_unit_id := nvl(p_operating_unit_id, fnd_api.g_miss_num);
3763: l_inventory_org_id := nvl(p_inventory_org_id, fnd_api.g_miss_num);
3764: l_repair_owner_id := nvl(p_repair_owner_id, fnd_api.g_miss_num);
3765: l_ro_status_id := nvl(p_ro_status_id, fnd_api.g_miss_num);
3766: l_repair_type_id := nvl(p_repair_type_id, fnd_api.g_miss_num);
3767: l_ro_priority_code := nvl(p_ro_priority_code, fnd_api.g_miss_char);
3768: l_ro_age := nvl(p_ro_age, fnd_api.g_miss_num);
3769: l_ro_due_date_age := nvl(p_ro_due_date_age, fnd_api.g_miss_num);
3770:
3763: l_inventory_org_id := nvl(p_inventory_org_id, fnd_api.g_miss_num);
3764: l_repair_owner_id := nvl(p_repair_owner_id, fnd_api.g_miss_num);
3765: l_ro_status_id := nvl(p_ro_status_id, fnd_api.g_miss_num);
3766: l_repair_type_id := nvl(p_repair_type_id, fnd_api.g_miss_num);
3767: l_ro_priority_code := nvl(p_ro_priority_code, fnd_api.g_miss_char);
3768: l_ro_age := nvl(p_ro_age, fnd_api.g_miss_num);
3769: l_ro_due_date_age := nvl(p_ro_due_date_age, fnd_api.g_miss_num);
3770:
3771: g_rma_ro_line_ids.delete();
3764: l_repair_owner_id := nvl(p_repair_owner_id, fnd_api.g_miss_num);
3765: l_ro_status_id := nvl(p_ro_status_id, fnd_api.g_miss_num);
3766: l_repair_type_id := nvl(p_repair_type_id, fnd_api.g_miss_num);
3767: l_ro_priority_code := nvl(p_ro_priority_code, fnd_api.g_miss_char);
3768: l_ro_age := nvl(p_ro_age, fnd_api.g_miss_num);
3769: l_ro_due_date_age := nvl(p_ro_due_date_age, fnd_api.g_miss_num);
3770:
3771: g_rma_ro_line_ids.delete();
3772: g_ship_ro_line_ids.delete();
3765: l_ro_status_id := nvl(p_ro_status_id, fnd_api.g_miss_num);
3766: l_repair_type_id := nvl(p_repair_type_id, fnd_api.g_miss_num);
3767: l_ro_priority_code := nvl(p_ro_priority_code, fnd_api.g_miss_char);
3768: l_ro_age := nvl(p_ro_age, fnd_api.g_miss_num);
3769: l_ro_due_date_age := nvl(p_ro_due_date_age, fnd_api.g_miss_num);
3770:
3771: g_rma_ro_line_ids.delete();
3772: g_ship_ro_line_ids.delete();
3773: g_int_order_header_ids.delete();
3785: IF l_row_document_type = 'JOB' THEN
3786: Refresh_Job
3787: (p_api_version => l_api_version,
3788: p_commit => p_commit,
3789: p_init_msg_list => FND_API.G_FALSE,
3790: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3791: x_return_status => x_return_status,
3792: x_msg_count => x_msg_count,
3793: x_msg_data => x_msg_data,
3786: Refresh_Job
3787: (p_api_version => l_api_version,
3788: p_commit => p_commit,
3789: p_init_msg_list => FND_API.G_FALSE,
3790: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3791: x_return_status => x_return_status,
3792: x_msg_count => x_msg_count,
3793: x_msg_data => x_msg_data,
3794: p_wip_entity_id => l_row_document_header_id,
3793: x_msg_data => x_msg_data,
3794: p_wip_entity_id => l_row_document_header_id,
3795: p_repair_line_id => l_row_repair_line_id);
3796:
3797: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3798: Debug('Refresh Job failed',l_mod_name,4);
3799: x_return_status := FND_API.G_RET_STS_ERROR;
3800: -- RAISE FND_API.G_EXC_ERROR;
3801: END IF;
3795: p_repair_line_id => l_row_repair_line_id);
3796:
3797: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3798: Debug('Refresh Job failed',l_mod_name,4);
3799: x_return_status := FND_API.G_RET_STS_ERROR;
3800: -- RAISE FND_API.G_EXC_ERROR;
3801: END IF;
3802:
3803: ELSIF l_row_document_type = 'SR' THEN
3796:
3797: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3798: Debug('Refresh Job failed',l_mod_name,4);
3799: x_return_status := FND_API.G_RET_STS_ERROR;
3800: -- RAISE FND_API.G_EXC_ERROR;
3801: END IF;
3802:
3803: ELSIF l_row_document_type = 'SR' THEN
3804: Refresh_SR
3803: ELSIF l_row_document_type = 'SR' THEN
3804: Refresh_SR
3805: (p_api_version => l_api_version,
3806: p_commit => p_commit,
3807: p_init_msg_list => FND_API.G_FALSE,
3808: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3809: x_return_status => x_return_status,
3810: x_msg_count => x_msg_count,
3811: x_msg_data => x_msg_data,
3804: Refresh_SR
3805: (p_api_version => l_api_version,
3806: p_commit => p_commit,
3807: p_init_msg_list => FND_API.G_FALSE,
3808: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3809: x_return_status => x_return_status,
3810: x_msg_count => x_msg_count,
3811: x_msg_data => x_msg_data,
3812: p_incident_id => l_row_document_header_id,
3811: x_msg_data => x_msg_data,
3812: p_incident_id => l_row_document_header_id,
3813: p_repair_line_id => l_row_repair_line_id);
3814:
3815: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3816: Debug('Refresh SR failed',l_mod_name,4);
3817: x_return_status := FND_API.G_RET_STS_ERROR;
3818: -- RAISE FND_API.G_EXC_ERROR;
3819: END IF;
3813: p_repair_line_id => l_row_repair_line_id);
3814:
3815: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3816: Debug('Refresh SR failed',l_mod_name,4);
3817: x_return_status := FND_API.G_RET_STS_ERROR;
3818: -- RAISE FND_API.G_EXC_ERROR;
3819: END IF;
3820: ELSIF l_row_document_type = 'SR_TASK' THEN
3821: Refresh_SR_Task
3814:
3815: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3816: Debug('Refresh SR failed',l_mod_name,4);
3817: x_return_status := FND_API.G_RET_STS_ERROR;
3818: -- RAISE FND_API.G_EXC_ERROR;
3819: END IF;
3820: ELSIF l_row_document_type = 'SR_TASK' THEN
3821: Refresh_SR_Task
3822: (p_api_version => l_api_version,
3820: ELSIF l_row_document_type = 'SR_TASK' THEN
3821: Refresh_SR_Task
3822: (p_api_version => l_api_version,
3823: p_commit => p_commit,
3824: p_init_msg_list => FND_API.G_FALSE,
3825: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3826: x_return_status => x_return_status,
3827: x_msg_count => x_msg_count,
3828: x_msg_data => x_msg_data,
3821: Refresh_SR_Task
3822: (p_api_version => l_api_version,
3823: p_commit => p_commit,
3824: p_init_msg_list => FND_API.G_FALSE,
3825: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3826: x_return_status => x_return_status,
3827: x_msg_count => x_msg_count,
3828: x_msg_data => x_msg_data,
3829: p_task_id => l_row_document_header_id,
3828: x_msg_data => x_msg_data,
3829: p_task_id => l_row_document_header_id,
3830: p_repair_line_id => l_row_repair_line_id);
3831:
3832: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3833: Debug('Refresh SR Task failed',l_mod_name,4);
3834: x_return_status := FND_API.G_RET_STS_ERROR;
3835: -- RAISE FND_API.G_EXC_ERROR;
3836: END IF;
3830: p_repair_line_id => l_row_repair_line_id);
3831:
3832: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3833: Debug('Refresh SR Task failed',l_mod_name,4);
3834: x_return_status := FND_API.G_RET_STS_ERROR;
3835: -- RAISE FND_API.G_EXC_ERROR;
3836: END IF;
3837:
3838: ELSIF l_row_document_type = 'PR' THEN
3831:
3832: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3833: Debug('Refresh SR Task failed',l_mod_name,4);
3834: x_return_status := FND_API.G_RET_STS_ERROR;
3835: -- RAISE FND_API.G_EXC_ERROR;
3836: END IF;
3837:
3838: ELSIF l_row_document_type = 'PR' THEN
3839: Refresh_Purchase_Req
3838: ELSIF l_row_document_type = 'PR' THEN
3839: Refresh_Purchase_Req
3840: (p_api_version => l_api_version,
3841: p_commit => p_commit,
3842: p_init_msg_list => FND_API.G_FALSE,
3843: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3844: x_return_status => x_return_status,
3845: x_msg_count => x_msg_count,
3846: x_msg_data => x_msg_data,
3839: Refresh_Purchase_Req
3840: (p_api_version => l_api_version,
3841: p_commit => p_commit,
3842: p_init_msg_list => FND_API.G_FALSE,
3843: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3844: x_return_status => x_return_status,
3845: x_msg_count => x_msg_count,
3846: x_msg_data => x_msg_data,
3847: p_req_header_id => l_row_document_header_id,
3846: x_msg_data => x_msg_data,
3847: p_req_header_id => l_row_document_header_id,
3848: p_repair_line_id => l_row_repair_line_id);
3849:
3850: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3851: Debug('Refresh Purchase Req failed',l_mod_name,4);
3852: x_return_status := FND_API.G_RET_STS_ERROR;
3853: -- RAISE FND_API.G_EXC_ERROR;
3854: END IF;
3848: p_repair_line_id => l_row_repair_line_id);
3849:
3850: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3851: Debug('Refresh Purchase Req failed',l_mod_name,4);
3852: x_return_status := FND_API.G_RET_STS_ERROR;
3853: -- RAISE FND_API.G_EXC_ERROR;
3854: END IF;
3855:
3856: ELSIF l_row_document_type = 'IR' THEN
3849:
3850: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3851: Debug('Refresh Purchase Req failed',l_mod_name,4);
3852: x_return_status := FND_API.G_RET_STS_ERROR;
3853: -- RAISE FND_API.G_EXC_ERROR;
3854: END IF;
3855:
3856: ELSIF l_row_document_type = 'IR' THEN
3857: Refresh_Internal_Req
3856: ELSIF l_row_document_type = 'IR' THEN
3857: Refresh_Internal_Req
3858: (p_api_version => l_api_version,
3859: p_commit => p_commit,
3860: p_init_msg_list => FND_API.G_FALSE,
3861: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3862: x_return_status => x_return_status,
3863: x_msg_count => x_msg_count,
3864: x_msg_data => x_msg_data,
3857: Refresh_Internal_Req
3858: (p_api_version => l_api_version,
3859: p_commit => p_commit,
3860: p_init_msg_list => FND_API.G_FALSE,
3861: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3862: x_return_status => x_return_status,
3863: x_msg_count => x_msg_count,
3864: x_msg_data => x_msg_data,
3865: p_req_header_id => l_row_document_header_id,
3864: x_msg_data => x_msg_data,
3865: p_req_header_id => l_row_document_header_id,
3866: p_repair_line_id => l_row_repair_line_id);
3867:
3868: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3869: Debug('Refresh Internal Req failed',l_mod_name,4);
3870: x_return_status := FND_API.G_RET_STS_ERROR;
3871: -- RAISE FND_API.G_EXC_ERROR;
3872: END IF;
3866: p_repair_line_id => l_row_repair_line_id);
3867:
3868: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3869: Debug('Refresh Internal Req failed',l_mod_name,4);
3870: x_return_status := FND_API.G_RET_STS_ERROR;
3871: -- RAISE FND_API.G_EXC_ERROR;
3872: END IF;
3873:
3874: ELSIF l_row_document_type = 'RMA' THEN
3867:
3868: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3869: Debug('Refresh Internal Req failed',l_mod_name,4);
3870: x_return_status := FND_API.G_RET_STS_ERROR;
3871: -- RAISE FND_API.G_EXC_ERROR;
3872: END IF;
3873:
3874: ELSIF l_row_document_type = 'RMA' THEN
3875: Refresh_RMA
3874: ELSIF l_row_document_type = 'RMA' THEN
3875: Refresh_RMA
3876: (p_api_version => l_api_version,
3877: p_commit => p_commit,
3878: p_init_msg_list => FND_API.G_FALSE,
3879: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3880: x_return_status => x_return_status,
3881: x_msg_count => x_msg_count,
3882: x_msg_data => x_msg_data,
3875: Refresh_RMA
3876: (p_api_version => l_api_version,
3877: p_commit => p_commit,
3878: p_init_msg_list => FND_API.G_FALSE,
3879: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3880: x_return_status => x_return_status,
3881: x_msg_count => x_msg_count,
3882: x_msg_data => x_msg_data,
3883: p_order_line_id => l_row_document_line_id,
3882: x_msg_data => x_msg_data,
3883: p_order_line_id => l_row_document_line_id,
3884: p_repair_line_id => l_row_repair_line_id);
3885:
3886: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3887: Debug('Refresh RMA failed',l_mod_name,4);
3888: x_return_status := FND_API.G_RET_STS_ERROR;
3889: -- RAISE FND_API.G_EXC_ERROR;
3890: END IF;
3884: p_repair_line_id => l_row_repair_line_id);
3885:
3886: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3887: Debug('Refresh RMA failed',l_mod_name,4);
3888: x_return_status := FND_API.G_RET_STS_ERROR;
3889: -- RAISE FND_API.G_EXC_ERROR;
3890: END IF;
3891:
3892: ELSIF l_row_document_type = 'RMA_TP' THEN
3885:
3886: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3887: Debug('Refresh RMA failed',l_mod_name,4);
3888: x_return_status := FND_API.G_RET_STS_ERROR;
3889: -- RAISE FND_API.G_EXC_ERROR;
3890: END IF;
3891:
3892: ELSIF l_row_document_type = 'RMA_TP' THEN
3893: Refresh_RMA_Third_Party
3892: ELSIF l_row_document_type = 'RMA_TP' THEN
3893: Refresh_RMA_Third_Party
3894: (p_api_version => l_api_version,
3895: p_commit => p_commit,
3896: p_init_msg_list => FND_API.G_FALSE,
3897: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3898: x_return_status => x_return_status,
3899: x_msg_count => x_msg_count,
3900: x_msg_data => x_msg_data,
3893: Refresh_RMA_Third_Party
3894: (p_api_version => l_api_version,
3895: p_commit => p_commit,
3896: p_init_msg_list => FND_API.G_FALSE,
3897: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3898: x_return_status => x_return_status,
3899: x_msg_count => x_msg_count,
3900: x_msg_data => x_msg_data,
3901: p_order_line_id => l_row_document_line_id,
3900: x_msg_data => x_msg_data,
3901: p_order_line_id => l_row_document_line_id,
3902: p_repair_line_id => l_row_repair_line_id);
3903:
3904: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3905: Debug('Refresh RMA Third Party failed',l_mod_name,4);
3906: x_return_status := FND_API.G_RET_STS_ERROR;
3907: -- RAISE FND_API.G_EXC_ERROR;
3908: END IF;
3902: p_repair_line_id => l_row_repair_line_id);
3903:
3904: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3905: Debug('Refresh RMA Third Party failed',l_mod_name,4);
3906: x_return_status := FND_API.G_RET_STS_ERROR;
3907: -- RAISE FND_API.G_EXC_ERROR;
3908: END IF;
3909:
3910: ELSIF l_row_document_type = 'SHIP' THEN
3903:
3904: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3905: Debug('Refresh RMA Third Party failed',l_mod_name,4);
3906: x_return_status := FND_API.G_RET_STS_ERROR;
3907: -- RAISE FND_API.G_EXC_ERROR;
3908: END IF;
3909:
3910: ELSIF l_row_document_type = 'SHIP' THEN
3911: Refresh_Ship
3910: ELSIF l_row_document_type = 'SHIP' THEN
3911: Refresh_Ship
3912: (p_api_version => l_api_version,
3913: p_commit => p_commit,
3914: p_init_msg_list => FND_API.G_FALSE,
3915: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3916: x_return_status => x_return_status,
3917: x_msg_count => x_msg_count,
3918: x_msg_data => x_msg_data,
3911: Refresh_Ship
3912: (p_api_version => l_api_version,
3913: p_commit => p_commit,
3914: p_init_msg_list => FND_API.G_FALSE,
3915: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3916: x_return_status => x_return_status,
3917: x_msg_count => x_msg_count,
3918: x_msg_data => x_msg_data,
3919: p_order_line_id => l_row_document_line_id,
3918: x_msg_data => x_msg_data,
3919: p_order_line_id => l_row_document_line_id,
3920: p_repair_line_id => l_row_repair_line_id);
3921:
3922: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3923: Debug('Refresh Ship failed',l_mod_name,4);
3924: x_return_status := FND_API.G_RET_STS_ERROR;
3925: -- RAISE FND_API.G_EXC_ERROR;
3926: END IF;
3920: p_repair_line_id => l_row_repair_line_id);
3921:
3922: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3923: Debug('Refresh Ship failed',l_mod_name,4);
3924: x_return_status := FND_API.G_RET_STS_ERROR;
3925: -- RAISE FND_API.G_EXC_ERROR;
3926: END IF;
3927:
3928: ELSIF l_row_document_type = 'SHIP_TP' THEN
3921:
3922: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3923: Debug('Refresh Ship failed',l_mod_name,4);
3924: x_return_status := FND_API.G_RET_STS_ERROR;
3925: -- RAISE FND_API.G_EXC_ERROR;
3926: END IF;
3927:
3928: ELSIF l_row_document_type = 'SHIP_TP' THEN
3929: Refresh_Ship_Third_Party
3928: ELSIF l_row_document_type = 'SHIP_TP' THEN
3929: Refresh_Ship_Third_Party
3930: (p_api_version => l_api_version,
3931: p_commit => p_commit,
3932: p_init_msg_list => FND_API.G_FALSE,
3933: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3934: x_return_status => x_return_status,
3935: x_msg_count => x_msg_count,
3936: x_msg_data => x_msg_data,
3929: Refresh_Ship_Third_Party
3930: (p_api_version => l_api_version,
3931: p_commit => p_commit,
3932: p_init_msg_list => FND_API.G_FALSE,
3933: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3934: x_return_status => x_return_status,
3935: x_msg_count => x_msg_count,
3936: x_msg_data => x_msg_data,
3937: p_order_line_id => l_row_document_line_id,
3936: x_msg_data => x_msg_data,
3937: p_order_line_id => l_row_document_line_id,
3938: p_repair_line_id => l_row_repair_line_id);
3939:
3940: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3941: Debug('Refresh Ship Third Party failed',l_mod_name,4);
3942: x_return_status := FND_API.G_RET_STS_ERROR;
3943: -- RAISE FND_API.G_EXC_ERROR;
3944: END IF;
3938: p_repair_line_id => l_row_repair_line_id);
3939:
3940: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3941: Debug('Refresh Ship Third Party failed',l_mod_name,4);
3942: x_return_status := FND_API.G_RET_STS_ERROR;
3943: -- RAISE FND_API.G_EXC_ERROR;
3944: END IF;
3945:
3946: ELSIF l_row_document_type = 'DELIVERY' THEN
3939:
3940: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3941: Debug('Refresh Ship Third Party failed',l_mod_name,4);
3942: x_return_status := FND_API.G_RET_STS_ERROR;
3943: -- RAISE FND_API.G_EXC_ERROR;
3944: END IF;
3945:
3946: ELSIF l_row_document_type = 'DELIVERY' THEN
3947: Refresh_Delivery
3946: ELSIF l_row_document_type = 'DELIVERY' THEN
3947: Refresh_Delivery
3948: (p_api_version => l_api_version,
3949: p_commit => p_commit,
3950: p_init_msg_list => FND_API.G_FALSE,
3951: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3952: x_return_status => x_return_status,
3953: x_msg_count => x_msg_count,
3954: x_msg_data => x_msg_data,
3947: Refresh_Delivery
3948: (p_api_version => l_api_version,
3949: p_commit => p_commit,
3950: p_init_msg_list => FND_API.G_FALSE,
3951: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3952: x_return_status => x_return_status,
3953: x_msg_count => x_msg_count,
3954: x_msg_data => x_msg_data,
3955: p_delivery_id => l_row_document_header_id,
3954: x_msg_data => x_msg_data,
3955: p_delivery_id => l_row_document_header_id,
3956: p_repair_line_id => l_row_repair_line_id);
3957:
3958: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3959: Debug('Refresh Delivery failed',l_mod_name,4);
3960: x_return_status := FND_API.G_RET_STS_ERROR;
3961: -- RAISE FND_API.G_EXC_ERROR;
3962: END IF;
3956: p_repair_line_id => l_row_repair_line_id);
3957:
3958: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3959: Debug('Refresh Delivery failed',l_mod_name,4);
3960: x_return_status := FND_API.G_RET_STS_ERROR;
3961: -- RAISE FND_API.G_EXC_ERROR;
3962: END IF;
3963:
3964: ELSIF l_row_document_type = 'INTSO' THEN
3957:
3958: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3959: Debug('Refresh Delivery failed',l_mod_name,4);
3960: x_return_status := FND_API.G_RET_STS_ERROR;
3961: -- RAISE FND_API.G_EXC_ERROR;
3962: END IF;
3963:
3964: ELSIF l_row_document_type = 'INTSO' THEN
3965: Refresh_Int_Sales_Order
3964: ELSIF l_row_document_type = 'INTSO' THEN
3965: Refresh_Int_Sales_Order
3966: (p_api_version => l_api_version,
3967: p_commit => p_commit,
3968: p_init_msg_list => FND_API.G_FALSE,
3969: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3970: x_return_status => x_return_status,
3971: x_msg_count => x_msg_count,
3972: x_msg_data => x_msg_data,
3965: Refresh_Int_Sales_Order
3966: (p_api_version => l_api_version,
3967: p_commit => p_commit,
3968: p_init_msg_list => FND_API.G_FALSE,
3969: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3970: x_return_status => x_return_status,
3971: x_msg_count => x_msg_count,
3972: x_msg_data => x_msg_data,
3973: p_order_line_id => l_row_document_line_id,
3972: x_msg_data => x_msg_data,
3973: p_order_line_id => l_row_document_line_id,
3974: p_repair_line_id => l_row_repair_line_id);
3975:
3976: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3977: Debug('Refresh Internal Sales Order failed',l_mod_name,4);
3978: x_return_status := FND_API.G_RET_STS_ERROR;
3979: -- RAISE FND_API.G_EXC_ERROR;
3980: END IF;
3974: p_repair_line_id => l_row_repair_line_id);
3975:
3976: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3977: Debug('Refresh Internal Sales Order failed',l_mod_name,4);
3978: x_return_status := FND_API.G_RET_STS_ERROR;
3979: -- RAISE FND_API.G_EXC_ERROR;
3980: END IF;
3981: END IF; --IF l_row_document_type = ... THEN
3982: END LOOP;
3975:
3976: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3977: Debug('Refresh Internal Sales Order failed',l_mod_name,4);
3978: x_return_status := FND_API.G_RET_STS_ERROR;
3979: -- RAISE FND_API.G_EXC_ERROR;
3980: END IF;
3981: END IF; --IF l_row_document_type = ... THEN
3982: END LOOP;
3983: ELSE --csd_so_orchestration_key_tbl.first is null
3980: END IF;
3981: END IF; --IF l_row_document_type = ... THEN
3982: END LOOP;
3983: ELSE --csd_so_orchestration_key_tbl.first is null
3984: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'JOB' THEN
3985: Refresh_Job
3986: (p_api_version => l_api_version,
3987: p_commit => p_commit,
3988: p_init_msg_list => FND_API.G_FALSE,
3984: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'JOB' THEN
3985: Refresh_Job
3986: (p_api_version => l_api_version,
3987: p_commit => p_commit,
3988: p_init_msg_list => FND_API.G_FALSE,
3989: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3990: x_return_status => x_return_status,
3991: x_msg_count => x_msg_count,
3992: x_msg_data => x_msg_data,
3985: Refresh_Job
3986: (p_api_version => l_api_version,
3987: p_commit => p_commit,
3988: p_init_msg_list => FND_API.G_FALSE,
3989: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3990: x_return_status => x_return_status,
3991: x_msg_count => x_msg_count,
3992: x_msg_data => x_msg_data,
3993: p_repair_line_id => l_repair_line_id,
3999: p_ro_priority_code => l_ro_priority_code,
4000: p_ro_age => l_ro_age,
4001: p_ro_due_date_age => l_ro_due_date_age);
4002:
4003: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4004: Debug('Refresh Job failed',l_mod_name,4);
4005: l_return_status := FND_API.G_RET_STS_ERROR;
4006: -- RAISE FND_API.G_EXC_ERROR;
4007: END IF;
4001: p_ro_due_date_age => l_ro_due_date_age);
4002:
4003: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4004: Debug('Refresh Job failed',l_mod_name,4);
4005: l_return_status := FND_API.G_RET_STS_ERROR;
4006: -- RAISE FND_API.G_EXC_ERROR;
4007: END IF;
4008: END IF;
4009:
4002:
4003: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4004: Debug('Refresh Job failed',l_mod_name,4);
4005: l_return_status := FND_API.G_RET_STS_ERROR;
4006: -- RAISE FND_API.G_EXC_ERROR;
4007: END IF;
4008: END IF;
4009:
4010: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'SR' THEN
4006: -- RAISE FND_API.G_EXC_ERROR;
4007: END IF;
4008: END IF;
4009:
4010: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'SR' THEN
4011: Refresh_SR
4012: (p_api_version => l_api_version,
4013: p_commit => p_commit,
4014: p_init_msg_list => FND_API.G_FALSE,
4010: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'SR' THEN
4011: Refresh_SR
4012: (p_api_version => l_api_version,
4013: p_commit => p_commit,
4014: p_init_msg_list => FND_API.G_FALSE,
4015: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4016: x_return_status => x_return_status,
4017: x_msg_count => x_msg_count,
4018: x_msg_data => x_msg_data,
4011: Refresh_SR
4012: (p_api_version => l_api_version,
4013: p_commit => p_commit,
4014: p_init_msg_list => FND_API.G_FALSE,
4015: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4016: x_return_status => x_return_status,
4017: x_msg_count => x_msg_count,
4018: x_msg_data => x_msg_data,
4019: p_repair_line_id => l_repair_line_id,
4025: p_ro_priority_code => l_ro_priority_code,
4026: p_ro_age => l_ro_age,
4027: p_ro_due_date_age => l_ro_due_date_age);
4028:
4029: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4030: Debug('Refresh SR failed',l_mod_name,4);
4031: l_return_status := FND_API.G_RET_STS_ERROR;
4032: -- RAISE FND_API.G_EXC_ERROR;
4033: END IF;
4027: p_ro_due_date_age => l_ro_due_date_age);
4028:
4029: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4030: Debug('Refresh SR failed',l_mod_name,4);
4031: l_return_status := FND_API.G_RET_STS_ERROR;
4032: -- RAISE FND_API.G_EXC_ERROR;
4033: END IF;
4034: END IF;
4035:
4028:
4029: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4030: Debug('Refresh SR failed',l_mod_name,4);
4031: l_return_status := FND_API.G_RET_STS_ERROR;
4032: -- RAISE FND_API.G_EXC_ERROR;
4033: END IF;
4034: END IF;
4035:
4036: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'SR_TASK' THEN
4032: -- RAISE FND_API.G_EXC_ERROR;
4033: END IF;
4034: END IF;
4035:
4036: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'SR_TASK' THEN
4037: Refresh_SR_Task
4038: (p_api_version => l_api_version,
4039: p_commit => p_commit,
4040: p_init_msg_list => FND_API.G_FALSE,
4036: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'SR_TASK' THEN
4037: Refresh_SR_Task
4038: (p_api_version => l_api_version,
4039: p_commit => p_commit,
4040: p_init_msg_list => FND_API.G_FALSE,
4041: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4042: x_return_status => x_return_status,
4043: x_msg_count => x_msg_count,
4044: x_msg_data => x_msg_data,
4037: Refresh_SR_Task
4038: (p_api_version => l_api_version,
4039: p_commit => p_commit,
4040: p_init_msg_list => FND_API.G_FALSE,
4041: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4042: x_return_status => x_return_status,
4043: x_msg_count => x_msg_count,
4044: x_msg_data => x_msg_data,
4045: p_repair_line_id => l_repair_line_id,
4051: p_ro_priority_code => l_ro_priority_code,
4052: p_ro_age => l_ro_age,
4053: p_ro_due_date_age => l_ro_due_date_age);
4054:
4055: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4056: Debug('Refresh SR Task failed',l_mod_name,4);
4057: l_return_status := FND_API.G_RET_STS_ERROR;
4058: -- RAISE FND_API.G_EXC_ERROR;
4059: END IF;
4053: p_ro_due_date_age => l_ro_due_date_age);
4054:
4055: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4056: Debug('Refresh SR Task failed',l_mod_name,4);
4057: l_return_status := FND_API.G_RET_STS_ERROR;
4058: -- RAISE FND_API.G_EXC_ERROR;
4059: END IF;
4060: END IF;
4061:
4054:
4055: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4056: Debug('Refresh SR Task failed',l_mod_name,4);
4057: l_return_status := FND_API.G_RET_STS_ERROR;
4058: -- RAISE FND_API.G_EXC_ERROR;
4059: END IF;
4060: END IF;
4061:
4062: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'PR' THEN
4058: -- RAISE FND_API.G_EXC_ERROR;
4059: END IF;
4060: END IF;
4061:
4062: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'PR' THEN
4063: Refresh_Purchase_Req
4064: (p_api_version => l_api_version,
4065: p_commit => p_commit,
4066: p_init_msg_list => FND_API.G_FALSE,
4062: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'PR' THEN
4063: Refresh_Purchase_Req
4064: (p_api_version => l_api_version,
4065: p_commit => p_commit,
4066: p_init_msg_list => FND_API.G_FALSE,
4067: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4068: x_return_status => x_return_status,
4069: x_msg_count => x_msg_count,
4070: x_msg_data => x_msg_data,
4063: Refresh_Purchase_Req
4064: (p_api_version => l_api_version,
4065: p_commit => p_commit,
4066: p_init_msg_list => FND_API.G_FALSE,
4067: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4068: x_return_status => x_return_status,
4069: x_msg_count => x_msg_count,
4070: x_msg_data => x_msg_data,
4071: p_repair_line_id => l_repair_line_id,
4077: p_ro_priority_code => l_ro_priority_code,
4078: p_ro_age => l_ro_age,
4079: p_ro_due_date_age => l_ro_due_date_age);
4080:
4081: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4082: Debug('Refresh Purchase Req failed',l_mod_name,4);
4083: l_return_status := FND_API.G_RET_STS_ERROR;
4084: -- RAISE FND_API.G_EXC_ERROR;
4085: END IF;
4079: p_ro_due_date_age => l_ro_due_date_age);
4080:
4081: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4082: Debug('Refresh Purchase Req failed',l_mod_name,4);
4083: l_return_status := FND_API.G_RET_STS_ERROR;
4084: -- RAISE FND_API.G_EXC_ERROR;
4085: END IF;
4086: END IF;
4087:
4080:
4081: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4082: Debug('Refresh Purchase Req failed',l_mod_name,4);
4083: l_return_status := FND_API.G_RET_STS_ERROR;
4084: -- RAISE FND_API.G_EXC_ERROR;
4085: END IF;
4086: END IF;
4087:
4088: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'IR' THEN
4084: -- RAISE FND_API.G_EXC_ERROR;
4085: END IF;
4086: END IF;
4087:
4088: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'IR' THEN
4089: Refresh_Internal_Req
4090: (p_api_version => l_api_version,
4091: p_commit => p_commit,
4092: p_init_msg_list => FND_API.G_FALSE,
4088: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'IR' THEN
4089: Refresh_Internal_Req
4090: (p_api_version => l_api_version,
4091: p_commit => p_commit,
4092: p_init_msg_list => FND_API.G_FALSE,
4093: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4094: x_return_status => x_return_status,
4095: x_msg_count => x_msg_count,
4096: x_msg_data => x_msg_data,
4089: Refresh_Internal_Req
4090: (p_api_version => l_api_version,
4091: p_commit => p_commit,
4092: p_init_msg_list => FND_API.G_FALSE,
4093: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4094: x_return_status => x_return_status,
4095: x_msg_count => x_msg_count,
4096: x_msg_data => x_msg_data,
4097: p_repair_line_id => l_repair_line_id,
4103: p_ro_priority_code => l_ro_priority_code,
4104: p_ro_age => l_ro_age,
4105: p_ro_due_date_age => l_ro_due_date_age);
4106:
4107: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4108: Debug('Refresh Internal Req failed',l_mod_name,4);
4109: l_return_status := FND_API.G_RET_STS_ERROR;
4110: -- RAISE FND_API.G_EXC_ERROR;
4111: END IF;
4105: p_ro_due_date_age => l_ro_due_date_age);
4106:
4107: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4108: Debug('Refresh Internal Req failed',l_mod_name,4);
4109: l_return_status := FND_API.G_RET_STS_ERROR;
4110: -- RAISE FND_API.G_EXC_ERROR;
4111: END IF;
4112: END IF;
4113:
4106:
4107: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4108: Debug('Refresh Internal Req failed',l_mod_name,4);
4109: l_return_status := FND_API.G_RET_STS_ERROR;
4110: -- RAISE FND_API.G_EXC_ERROR;
4111: END IF;
4112: END IF;
4113:
4114: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'RMA' THEN
4110: -- RAISE FND_API.G_EXC_ERROR;
4111: END IF;
4112: END IF;
4113:
4114: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'RMA' THEN
4115: Refresh_RMA
4116: (p_api_version => l_api_version,
4117: p_commit => p_commit,
4118: p_init_msg_list => FND_API.G_FALSE,
4114: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'RMA' THEN
4115: Refresh_RMA
4116: (p_api_version => l_api_version,
4117: p_commit => p_commit,
4118: p_init_msg_list => FND_API.G_FALSE,
4119: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4120: x_return_status => x_return_status,
4121: x_msg_count => x_msg_count,
4122: x_msg_data => x_msg_data,
4115: Refresh_RMA
4116: (p_api_version => l_api_version,
4117: p_commit => p_commit,
4118: p_init_msg_list => FND_API.G_FALSE,
4119: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4120: x_return_status => x_return_status,
4121: x_msg_count => x_msg_count,
4122: x_msg_data => x_msg_data,
4123: p_repair_line_id => l_repair_line_id,
4129: p_ro_priority_code => l_ro_priority_code,
4130: p_ro_age => l_ro_age,
4131: p_ro_due_date_age => l_ro_due_date_age);
4132:
4133: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4134: Debug('Refresh RMA failed',l_mod_name,4);
4135: l_return_status := FND_API.G_RET_STS_ERROR;
4136: -- RAISE FND_API.G_EXC_ERROR;
4137: END IF;
4131: p_ro_due_date_age => l_ro_due_date_age);
4132:
4133: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4134: Debug('Refresh RMA failed',l_mod_name,4);
4135: l_return_status := FND_API.G_RET_STS_ERROR;
4136: -- RAISE FND_API.G_EXC_ERROR;
4137: END IF;
4138: END IF;
4139:
4132:
4133: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4134: Debug('Refresh RMA failed',l_mod_name,4);
4135: l_return_status := FND_API.G_RET_STS_ERROR;
4136: -- RAISE FND_API.G_EXC_ERROR;
4137: END IF;
4138: END IF;
4139:
4140: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'RMA_TP' THEN
4136: -- RAISE FND_API.G_EXC_ERROR;
4137: END IF;
4138: END IF;
4139:
4140: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'RMA_TP' THEN
4141: Refresh_RMA_Third_Party
4142: (p_api_version => l_api_version,
4143: p_commit => p_commit,
4144: p_init_msg_list => FND_API.G_FALSE,
4140: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'RMA_TP' THEN
4141: Refresh_RMA_Third_Party
4142: (p_api_version => l_api_version,
4143: p_commit => p_commit,
4144: p_init_msg_list => FND_API.G_FALSE,
4145: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4146: x_return_status => x_return_status,
4147: x_msg_count => x_msg_count,
4148: x_msg_data => x_msg_data,
4141: Refresh_RMA_Third_Party
4142: (p_api_version => l_api_version,
4143: p_commit => p_commit,
4144: p_init_msg_list => FND_API.G_FALSE,
4145: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4146: x_return_status => x_return_status,
4147: x_msg_count => x_msg_count,
4148: x_msg_data => x_msg_data,
4149: p_repair_line_id => l_repair_line_id,
4155: p_ro_priority_code => l_ro_priority_code,
4156: p_ro_age => l_ro_age,
4157: p_ro_due_date_age => l_ro_due_date_age);
4158:
4159: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4160: Debug('Refresh RMA Third Party failed',l_mod_name,4);
4161: l_return_status := FND_API.G_RET_STS_ERROR;
4162: -- RAISE FND_API.G_EXC_ERROR;
4163: END IF;
4157: p_ro_due_date_age => l_ro_due_date_age);
4158:
4159: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4160: Debug('Refresh RMA Third Party failed',l_mod_name,4);
4161: l_return_status := FND_API.G_RET_STS_ERROR;
4162: -- RAISE FND_API.G_EXC_ERROR;
4163: END IF;
4164: END IF;
4165:
4158:
4159: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4160: Debug('Refresh RMA Third Party failed',l_mod_name,4);
4161: l_return_status := FND_API.G_RET_STS_ERROR;
4162: -- RAISE FND_API.G_EXC_ERROR;
4163: END IF;
4164: END IF;
4165:
4166: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'SHIP' THEN
4162: -- RAISE FND_API.G_EXC_ERROR;
4163: END IF;
4164: END IF;
4165:
4166: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'SHIP' THEN
4167: Refresh_Ship
4168: (p_api_version => l_api_version,
4169: p_commit => p_commit,
4170: p_init_msg_list => FND_API.G_FALSE,
4166: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'SHIP' THEN
4167: Refresh_Ship
4168: (p_api_version => l_api_version,
4169: p_commit => p_commit,
4170: p_init_msg_list => FND_API.G_FALSE,
4171: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4172: x_return_status => x_return_status,
4173: x_msg_count => x_msg_count,
4174: x_msg_data => x_msg_data,
4167: Refresh_Ship
4168: (p_api_version => l_api_version,
4169: p_commit => p_commit,
4170: p_init_msg_list => FND_API.G_FALSE,
4171: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4172: x_return_status => x_return_status,
4173: x_msg_count => x_msg_count,
4174: x_msg_data => x_msg_data,
4175: p_repair_line_id => l_repair_line_id,
4181: p_ro_priority_code => l_ro_priority_code,
4182: p_ro_age => l_ro_age,
4183: p_ro_due_date_age => l_ro_due_date_age);
4184:
4185: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4186: Debug('Refresh Ship failed',l_mod_name,4);
4187: l_return_status := FND_API.G_RET_STS_ERROR;
4188: -- RAISE FND_API.G_EXC_ERROR;
4189: END IF;
4183: p_ro_due_date_age => l_ro_due_date_age);
4184:
4185: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4186: Debug('Refresh Ship failed',l_mod_name,4);
4187: l_return_status := FND_API.G_RET_STS_ERROR;
4188: -- RAISE FND_API.G_EXC_ERROR;
4189: END IF;
4190: END IF;
4191:
4184:
4185: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4186: Debug('Refresh Ship failed',l_mod_name,4);
4187: l_return_status := FND_API.G_RET_STS_ERROR;
4188: -- RAISE FND_API.G_EXC_ERROR;
4189: END IF;
4190: END IF;
4191:
4192: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'SHIP_TP' THEN
4188: -- RAISE FND_API.G_EXC_ERROR;
4189: END IF;
4190: END IF;
4191:
4192: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'SHIP_TP' THEN
4193: Refresh_Ship_Third_Party
4194: (p_api_version => l_api_version,
4195: p_commit => p_commit,
4196: p_init_msg_list => FND_API.G_FALSE,
4192: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'SHIP_TP' THEN
4193: Refresh_Ship_Third_Party
4194: (p_api_version => l_api_version,
4195: p_commit => p_commit,
4196: p_init_msg_list => FND_API.G_FALSE,
4197: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4198: x_return_status => x_return_status,
4199: x_msg_count => x_msg_count,
4200: x_msg_data => x_msg_data,
4193: Refresh_Ship_Third_Party
4194: (p_api_version => l_api_version,
4195: p_commit => p_commit,
4196: p_init_msg_list => FND_API.G_FALSE,
4197: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4198: x_return_status => x_return_status,
4199: x_msg_count => x_msg_count,
4200: x_msg_data => x_msg_data,
4201: p_repair_line_id => l_repair_line_id,
4207: p_ro_priority_code => l_ro_priority_code,
4208: p_ro_age => l_ro_age,
4209: p_ro_due_date_age => l_ro_due_date_age);
4210:
4211: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4212: Debug('Refresh Ship Third Party failed',l_mod_name,4);
4213: l_return_status := FND_API.G_RET_STS_ERROR;
4214: -- RAISE FND_API.G_EXC_ERROR;
4215: END IF;
4209: p_ro_due_date_age => l_ro_due_date_age);
4210:
4211: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4212: Debug('Refresh Ship Third Party failed',l_mod_name,4);
4213: l_return_status := FND_API.G_RET_STS_ERROR;
4214: -- RAISE FND_API.G_EXC_ERROR;
4215: END IF;
4216: END IF;
4217:
4210:
4211: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4212: Debug('Refresh Ship Third Party failed',l_mod_name,4);
4213: l_return_status := FND_API.G_RET_STS_ERROR;
4214: -- RAISE FND_API.G_EXC_ERROR;
4215: END IF;
4216: END IF;
4217:
4218: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'DELIVERY' THEN
4214: -- RAISE FND_API.G_EXC_ERROR;
4215: END IF;
4216: END IF;
4217:
4218: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'DELIVERY' THEN
4219: Refresh_Delivery
4220: (p_api_version => l_api_version,
4221: p_commit => p_commit,
4222: p_init_msg_list => FND_API.G_FALSE,
4218: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'DELIVERY' THEN
4219: Refresh_Delivery
4220: (p_api_version => l_api_version,
4221: p_commit => p_commit,
4222: p_init_msg_list => FND_API.G_FALSE,
4223: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4224: x_return_status => x_return_status,
4225: x_msg_count => x_msg_count,
4226: x_msg_data => x_msg_data,
4219: Refresh_Delivery
4220: (p_api_version => l_api_version,
4221: p_commit => p_commit,
4222: p_init_msg_list => FND_API.G_FALSE,
4223: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4224: x_return_status => x_return_status,
4225: x_msg_count => x_msg_count,
4226: x_msg_data => x_msg_data,
4227: p_repair_line_id => l_repair_line_id,
4233: p_ro_priority_code => l_ro_priority_code,
4234: p_ro_age => l_ro_age,
4235: p_ro_due_date_age => l_ro_due_date_age);
4236:
4237: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4238: Debug('Refresh Delivery failed',l_mod_name,4);
4239: l_return_status := FND_API.G_RET_STS_ERROR;
4240: -- RAISE FND_API.G_EXC_ERROR;
4241: END IF;
4235: p_ro_due_date_age => l_ro_due_date_age);
4236:
4237: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4238: Debug('Refresh Delivery failed',l_mod_name,4);
4239: l_return_status := FND_API.G_RET_STS_ERROR;
4240: -- RAISE FND_API.G_EXC_ERROR;
4241: END IF;
4242: END IF;
4243:
4236:
4237: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4238: Debug('Refresh Delivery failed',l_mod_name,4);
4239: l_return_status := FND_API.G_RET_STS_ERROR;
4240: -- RAISE FND_API.G_EXC_ERROR;
4241: END IF;
4242: END IF;
4243:
4244: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'INTSO' THEN
4240: -- RAISE FND_API.G_EXC_ERROR;
4241: END IF;
4242: END IF;
4243:
4244: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'INTSO' THEN
4245: Refresh_Int_Sales_Order
4246: (p_api_version => l_api_version,
4247: p_commit => p_commit,
4248: p_init_msg_list => FND_API.G_FALSE,
4244: IF l_document_type = fnd_api.g_miss_char OR l_document_type = 'INTSO' THEN
4245: Refresh_Int_Sales_Order
4246: (p_api_version => l_api_version,
4247: p_commit => p_commit,
4248: p_init_msg_list => FND_API.G_FALSE,
4249: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4250: x_return_status => x_return_status,
4251: x_msg_count => x_msg_count,
4252: x_msg_data => x_msg_data,
4245: Refresh_Int_Sales_Order
4246: (p_api_version => l_api_version,
4247: p_commit => p_commit,
4248: p_init_msg_list => FND_API.G_FALSE,
4249: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4250: x_return_status => x_return_status,
4251: x_msg_count => x_msg_count,
4252: x_msg_data => x_msg_data,
4253: p_repair_line_id => l_repair_line_id,
4259: p_ro_priority_code => l_ro_priority_code,
4260: p_ro_age => l_ro_age,
4261: p_ro_due_date_age => l_ro_due_date_age);
4262:
4263: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4264: Debug('Refresh Internal Sales Order failed',l_mod_name,4);
4265: l_return_status := FND_API.G_RET_STS_ERROR;
4266: -- RAISE FND_API.G_EXC_ERROR;
4267: END IF;
4261: p_ro_due_date_age => l_ro_due_date_age);
4262:
4263: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4264: Debug('Refresh Internal Sales Order failed',l_mod_name,4);
4265: l_return_status := FND_API.G_RET_STS_ERROR;
4266: -- RAISE FND_API.G_EXC_ERROR;
4267: END IF;
4268: END IF;
4269: END IF; -- IF csd_so_orchestration_key_tbl.first is not null THEN
4262:
4263: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4264: Debug('Refresh Internal Sales Order failed',l_mod_name,4);
4265: l_return_status := FND_API.G_RET_STS_ERROR;
4266: -- RAISE FND_API.G_EXC_ERROR;
4267: END IF;
4268: END IF;
4269: END IF; -- IF csd_so_orchestration_key_tbl.first is not null THEN
4270:
4271: l_rma_repair_line_id := g_rma_ro_line_ids.FIRST;
4272: WHILE l_rma_repair_line_id IS NOT NULL LOOP
4273: CSD_UPDATE_PROGRAMS_PVT.RECEIPTS_UPDATE
4274: (p_api_version => l_api_version,
4275: p_commit => FND_API.G_FALSE,
4276: p_init_msg_list => FND_API.G_TRUE,
4277: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4278: x_return_status => x_return_status,
4279: x_msg_count => x_msg_count,
4272: WHILE l_rma_repair_line_id IS NOT NULL LOOP
4273: CSD_UPDATE_PROGRAMS_PVT.RECEIPTS_UPDATE
4274: (p_api_version => l_api_version,
4275: p_commit => FND_API.G_FALSE,
4276: p_init_msg_list => FND_API.G_TRUE,
4277: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4278: x_return_status => x_return_status,
4279: x_msg_count => x_msg_count,
4280: x_msg_data => x_msg_data,
4273: CSD_UPDATE_PROGRAMS_PVT.RECEIPTS_UPDATE
4274: (p_api_version => l_api_version,
4275: p_commit => FND_API.G_FALSE,
4276: p_init_msg_list => FND_API.G_TRUE,
4277: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4278: x_return_status => x_return_status,
4279: x_msg_count => x_msg_count,
4280: x_msg_data => x_msg_data,
4281: p_internal_order_flag => 'N',
4284:
4285: x_msg_data := x_msg_data || '
4286: ' || l_msg_data;
4287:
4288: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4289: Debug('RECEIPTS_UPDATE failed',l_mod_name,4);
4290: l_return_status := FND_API.G_RET_STS_ERROR;
4291: -- RAISE FND_API.G_EXC_ERROR;
4292: END IF;
4286: ' || l_msg_data;
4287:
4288: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4289: Debug('RECEIPTS_UPDATE failed',l_mod_name,4);
4290: l_return_status := FND_API.G_RET_STS_ERROR;
4291: -- RAISE FND_API.G_EXC_ERROR;
4292: END IF;
4293:
4294: l_rma_repair_line_id := g_rma_ro_line_ids.NEXT(l_rma_repair_line_id);
4287:
4288: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4289: Debug('RECEIPTS_UPDATE failed',l_mod_name,4);
4290: l_return_status := FND_API.G_RET_STS_ERROR;
4291: -- RAISE FND_API.G_EXC_ERROR;
4292: END IF;
4293:
4294: l_rma_repair_line_id := g_rma_ro_line_ids.NEXT(l_rma_repair_line_id);
4295: END LOOP;
4297: l_ship_repair_line_id := g_ship_ro_line_ids.FIRST;
4298: WHILE l_ship_repair_line_id IS NOT NULL LOOP
4299: CSD_UPDATE_PROGRAMS_PVT.SHIP_UPDATE
4300: (p_api_version => l_api_version,
4301: p_commit => FND_API.G_FALSE,
4302: p_init_msg_list => FND_API.G_TRUE,
4303: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4304: x_return_status => x_return_status,
4305: x_msg_count => x_msg_count,
4298: WHILE l_ship_repair_line_id IS NOT NULL LOOP
4299: CSD_UPDATE_PROGRAMS_PVT.SHIP_UPDATE
4300: (p_api_version => l_api_version,
4301: p_commit => FND_API.G_FALSE,
4302: p_init_msg_list => FND_API.G_TRUE,
4303: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4304: x_return_status => x_return_status,
4305: x_msg_count => x_msg_count,
4306: x_msg_data => l_msg_data,
4299: CSD_UPDATE_PROGRAMS_PVT.SHIP_UPDATE
4300: (p_api_version => l_api_version,
4301: p_commit => FND_API.G_FALSE,
4302: p_init_msg_list => FND_API.G_TRUE,
4303: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4304: x_return_status => x_return_status,
4305: x_msg_count => x_msg_count,
4306: x_msg_data => l_msg_data,
4307: p_internal_order_flag => 'N',
4310:
4311: x_msg_data := x_msg_data || '
4312: ' || l_msg_data;
4313:
4314: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4315: Debug('SHIP_UPDATE failed',l_mod_name,4);
4316: l_return_status := FND_API.G_RET_STS_ERROR;
4317: -- RAISE FND_API.G_EXC_ERROR;
4318: END IF;
4312: ' || l_msg_data;
4313:
4314: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4315: Debug('SHIP_UPDATE failed',l_mod_name,4);
4316: l_return_status := FND_API.G_RET_STS_ERROR;
4317: -- RAISE FND_API.G_EXC_ERROR;
4318: END IF;
4319:
4320: l_ship_repair_line_id := g_ship_ro_line_ids.NEXT(l_ship_repair_line_id);
4313:
4314: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4315: Debug('SHIP_UPDATE failed',l_mod_name,4);
4316: l_return_status := FND_API.G_RET_STS_ERROR;
4317: -- RAISE FND_API.G_EXC_ERROR;
4318: END IF;
4319:
4320: l_ship_repair_line_id := g_ship_ro_line_ids.NEXT(l_ship_repair_line_id);
4321: END LOOP;
4323: l_int_order_header_id := g_int_order_header_ids.FIRST;
4324: WHILE l_int_order_header_id IS NOT NULL LOOP
4325: CSD_UPDATE_PROGRAMS_PVT.RECEIPTS_UPDATE
4326: (p_api_version => l_api_version,
4327: p_commit => FND_API.G_FALSE,
4328: p_init_msg_list => FND_API.G_TRUE,
4329: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4330: x_return_status => x_return_status,
4331: x_msg_count => x_msg_count,
4324: WHILE l_int_order_header_id IS NOT NULL LOOP
4325: CSD_UPDATE_PROGRAMS_PVT.RECEIPTS_UPDATE
4326: (p_api_version => l_api_version,
4327: p_commit => FND_API.G_FALSE,
4328: p_init_msg_list => FND_API.G_TRUE,
4329: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4330: x_return_status => x_return_status,
4331: x_msg_count => x_msg_count,
4332: x_msg_data => l_msg_data,
4325: CSD_UPDATE_PROGRAMS_PVT.RECEIPTS_UPDATE
4326: (p_api_version => l_api_version,
4327: p_commit => FND_API.G_FALSE,
4328: p_init_msg_list => FND_API.G_TRUE,
4329: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4330: x_return_status => x_return_status,
4331: x_msg_count => x_msg_count,
4332: x_msg_data => l_msg_data,
4333: p_internal_order_flag => 'Y',
4336:
4337: x_msg_data := x_msg_data || '
4338: ' || l_msg_data;
4339:
4340: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4341: Debug('RECEIPTS_UPDATE failed for internal sales orders and requisitions',l_mod_name,4);
4342: l_return_status := FND_API.G_RET_STS_ERROR;
4343: -- RAISE FND_API.G_EXC_ERROR;
4344: END IF;
4338: ' || l_msg_data;
4339:
4340: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4341: Debug('RECEIPTS_UPDATE failed for internal sales orders and requisitions',l_mod_name,4);
4342: l_return_status := FND_API.G_RET_STS_ERROR;
4343: -- RAISE FND_API.G_EXC_ERROR;
4344: END IF;
4345:
4346: l_int_order_header_id := g_int_order_header_ids.NEXT(l_int_order_header_id);
4339:
4340: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4341: Debug('RECEIPTS_UPDATE failed for internal sales orders and requisitions',l_mod_name,4);
4342: l_return_status := FND_API.G_RET_STS_ERROR;
4343: -- RAISE FND_API.G_EXC_ERROR;
4344: END IF;
4345:
4346: l_int_order_header_id := g_int_order_header_ids.NEXT(l_int_order_header_id);
4347: END LOOP;
4346: l_int_order_header_id := g_int_order_header_ids.NEXT(l_int_order_header_id);
4347: END LOOP;
4348:
4349: -- Something failed during a "Refresh All," so return an error status.
4350: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4351: x_return_status := l_return_status;
4352: END IF;
4353:
4354: -- Standard check of p_commit.
4351: x_return_status := l_return_status;
4352: END IF;
4353:
4354: -- Standard check of p_commit.
4355: IF FND_API.To_Boolean( p_commit ) THEN
4356: COMMIT WORK;
4357: END IF;
4358:
4359: x_msg_count := fnd_msg_pub.count_msg;
4358:
4359: x_msg_count := fnd_msg_pub.count_msg;
4360:
4361: EXCEPTION
4362: WHEN FND_API.G_EXC_ERROR THEN
4363: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
4364: x_return_status := FND_API.G_RET_STS_ERROR ;
4365: x_msg_count := fnd_msg_pub.count_msg;
4366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4359: x_msg_count := fnd_msg_pub.count_msg;
4360:
4361: EXCEPTION
4362: WHEN FND_API.G_EXC_ERROR THEN
4363: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
4364: x_return_status := FND_API.G_RET_STS_ERROR ;
4365: x_msg_count := fnd_msg_pub.count_msg;
4366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4367: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
4360:
4361: EXCEPTION
4362: WHEN FND_API.G_EXC_ERROR THEN
4363: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
4364: x_return_status := FND_API.G_RET_STS_ERROR ;
4365: x_msg_count := fnd_msg_pub.count_msg;
4366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4367: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
4368: IF ( l_error_level >= G_debug_level) THEN
4362: WHEN FND_API.G_EXC_ERROR THEN
4363: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
4364: x_return_status := FND_API.G_RET_STS_ERROR ;
4365: x_msg_count := fnd_msg_pub.count_msg;
4366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4367: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
4368: IF ( l_error_level >= G_debug_level) THEN
4369: fnd_message.set_name('CSD','CSD_SQL_ERROR');
4370: fnd_message.set_token('SQLERRM',SQLERRM);
4363: Debug('In FND_API.G_EXC_ERROR Exception ',l_mod_name,4);
4364: x_return_status := FND_API.G_RET_STS_ERROR ;
4365: x_msg_count := fnd_msg_pub.count_msg;
4366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4367: Debug('In FND_API.G_EXC_UNEXPECTED_ERROR Exception',l_mod_name,4);
4368: IF ( l_error_level >= G_debug_level) THEN
4369: fnd_message.set_name('CSD','CSD_SQL_ERROR');
4370: fnd_message.set_token('SQLERRM',SQLERRM);
4371: fnd_message.set_token('SQLCODE',SQLCODE);
4370: fnd_message.set_token('SQLERRM',SQLERRM);
4371: fnd_message.set_token('SQLCODE',SQLCODE);
4372: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
4373: END If;
4374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4375: x_msg_count := fnd_msg_pub.count_msg;
4376: WHEN OTHERS THEN
4377: Debug('In OTHERS Exception',l_mod_name,4);
4378: IF ( l_error_level >= G_debug_level) THEN
4380: fnd_message.set_token('SQLERRM',SQLERRM);
4381: fnd_message.set_token('SQLCODE',SQLCODE);
4382: FND_LOG.MESSAGE(l_error_level,l_mod_name,FALSE);
4383: END If;
4384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4385: IF FND_MSG_PUB.Check_Msg_Level
4386: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4387: THEN
4388: FND_MSG_PUB.Add_Exc_Msg
4400: /* concurrent program */
4401: /*--------------------------------------------------*/
4402: PROCEDURE Soo_Driver_Main(errbuf OUT NOCOPY VARCHAR2,
4403: retcode OUT NOCOPY VARCHAR2,
4404: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
4405: p_document_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
4406: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
4407: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
4408: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
4401: /*--------------------------------------------------*/
4402: PROCEDURE Soo_Driver_Main(errbuf OUT NOCOPY VARCHAR2,
4403: retcode OUT NOCOPY VARCHAR2,
4404: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
4405: p_document_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
4406: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
4407: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
4408: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
4409: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
4402: PROCEDURE Soo_Driver_Main(errbuf OUT NOCOPY VARCHAR2,
4403: retcode OUT NOCOPY VARCHAR2,
4404: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
4405: p_document_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
4406: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
4407: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
4408: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
4409: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
4410: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
4403: retcode OUT NOCOPY VARCHAR2,
4404: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
4405: p_document_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
4406: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
4407: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
4408: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
4409: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
4410: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
4411: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
4404: p_repair_line_id IN NUMBER := FND_API.G_MISS_NUM,
4405: p_document_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
4406: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
4407: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
4408: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
4409: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
4410: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
4411: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
4412: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
4405: p_document_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
4406: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
4407: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
4408: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
4409: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
4410: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
4411: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
4412: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
4413: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
4406: p_operating_unit_id IN NUMBER := FND_API.G_MISS_NUM,
4407: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
4408: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
4409: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
4410: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
4411: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
4412: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
4413: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
4414: IS
4407: p_inventory_org_id IN NUMBER := FND_API.G_MISS_NUM,
4408: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
4409: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
4410: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
4411: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
4412: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
4413: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
4414: IS
4415:
4408: p_repair_owner_id IN NUMBER := FND_API.G_MISS_NUM,
4409: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
4410: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
4411: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
4412: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
4413: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
4414: IS
4415:
4416: l_api_version CONSTANT NUMBER := 1.0;
4409: p_ro_status_id IN NUMBER := FND_API.G_MISS_NUM,
4410: p_repair_type_id IN NUMBER := FND_API.G_MISS_NUM,
4411: p_ro_priority_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
4412: p_ro_age IN NUMBER := FND_API.G_MISS_NUM,
4413: p_ro_due_date_age IN NUMBER := FND_API.G_MISS_NUM)
4414: IS
4415:
4416: l_api_version CONSTANT NUMBER := 1.0;
4417: l_api_name CONSTANT VARCHAR2(30) := 'Soo_Driver_Main';
4442:
4443: retcode := C_OK;
4444: errbuf := '';
4445:
4446: l_repair_line_id := nvl(p_repair_line_id, fnd_api.g_miss_num);
4447: l_document_type := nvl(p_document_type, fnd_api.g_miss_char);
4448: l_operating_unit_id := nvl(p_operating_unit_id, fnd_api.g_miss_num);
4449: l_inventory_org_id := nvl(p_inventory_org_id, fnd_api.g_miss_num);
4450: l_repair_owner_id := nvl(p_repair_owner_id, fnd_api.g_miss_num);
4443: retcode := C_OK;
4444: errbuf := '';
4445:
4446: l_repair_line_id := nvl(p_repair_line_id, fnd_api.g_miss_num);
4447: l_document_type := nvl(p_document_type, fnd_api.g_miss_char);
4448: l_operating_unit_id := nvl(p_operating_unit_id, fnd_api.g_miss_num);
4449: l_inventory_org_id := nvl(p_inventory_org_id, fnd_api.g_miss_num);
4450: l_repair_owner_id := nvl(p_repair_owner_id, fnd_api.g_miss_num);
4451: l_ro_status_id := nvl(p_ro_status_id, fnd_api.g_miss_num);
4444: errbuf := '';
4445:
4446: l_repair_line_id := nvl(p_repair_line_id, fnd_api.g_miss_num);
4447: l_document_type := nvl(p_document_type, fnd_api.g_miss_char);
4448: l_operating_unit_id := nvl(p_operating_unit_id, fnd_api.g_miss_num);
4449: l_inventory_org_id := nvl(p_inventory_org_id, fnd_api.g_miss_num);
4450: l_repair_owner_id := nvl(p_repair_owner_id, fnd_api.g_miss_num);
4451: l_ro_status_id := nvl(p_ro_status_id, fnd_api.g_miss_num);
4452: l_repair_type_id := nvl(p_repair_type_id, fnd_api.g_miss_num);
4445:
4446: l_repair_line_id := nvl(p_repair_line_id, fnd_api.g_miss_num);
4447: l_document_type := nvl(p_document_type, fnd_api.g_miss_char);
4448: l_operating_unit_id := nvl(p_operating_unit_id, fnd_api.g_miss_num);
4449: l_inventory_org_id := nvl(p_inventory_org_id, fnd_api.g_miss_num);
4450: l_repair_owner_id := nvl(p_repair_owner_id, fnd_api.g_miss_num);
4451: l_ro_status_id := nvl(p_ro_status_id, fnd_api.g_miss_num);
4452: l_repair_type_id := nvl(p_repair_type_id, fnd_api.g_miss_num);
4453: l_ro_priority_code := nvl(p_ro_priority_code, fnd_api.g_miss_char);
4446: l_repair_line_id := nvl(p_repair_line_id, fnd_api.g_miss_num);
4447: l_document_type := nvl(p_document_type, fnd_api.g_miss_char);
4448: l_operating_unit_id := nvl(p_operating_unit_id, fnd_api.g_miss_num);
4449: l_inventory_org_id := nvl(p_inventory_org_id, fnd_api.g_miss_num);
4450: l_repair_owner_id := nvl(p_repair_owner_id, fnd_api.g_miss_num);
4451: l_ro_status_id := nvl(p_ro_status_id, fnd_api.g_miss_num);
4452: l_repair_type_id := nvl(p_repair_type_id, fnd_api.g_miss_num);
4453: l_ro_priority_code := nvl(p_ro_priority_code, fnd_api.g_miss_char);
4454: l_ro_age := nvl(p_ro_age, fnd_api.g_miss_num);
4447: l_document_type := nvl(p_document_type, fnd_api.g_miss_char);
4448: l_operating_unit_id := nvl(p_operating_unit_id, fnd_api.g_miss_num);
4449: l_inventory_org_id := nvl(p_inventory_org_id, fnd_api.g_miss_num);
4450: l_repair_owner_id := nvl(p_repair_owner_id, fnd_api.g_miss_num);
4451: l_ro_status_id := nvl(p_ro_status_id, fnd_api.g_miss_num);
4452: l_repair_type_id := nvl(p_repair_type_id, fnd_api.g_miss_num);
4453: l_ro_priority_code := nvl(p_ro_priority_code, fnd_api.g_miss_char);
4454: l_ro_age := nvl(p_ro_age, fnd_api.g_miss_num);
4455: l_ro_due_date_age := nvl(p_ro_due_date_age, fnd_api.g_miss_num);
4448: l_operating_unit_id := nvl(p_operating_unit_id, fnd_api.g_miss_num);
4449: l_inventory_org_id := nvl(p_inventory_org_id, fnd_api.g_miss_num);
4450: l_repair_owner_id := nvl(p_repair_owner_id, fnd_api.g_miss_num);
4451: l_ro_status_id := nvl(p_ro_status_id, fnd_api.g_miss_num);
4452: l_repair_type_id := nvl(p_repair_type_id, fnd_api.g_miss_num);
4453: l_ro_priority_code := nvl(p_ro_priority_code, fnd_api.g_miss_char);
4454: l_ro_age := nvl(p_ro_age, fnd_api.g_miss_num);
4455: l_ro_due_date_age := nvl(p_ro_due_date_age, fnd_api.g_miss_num);
4456:
4449: l_inventory_org_id := nvl(p_inventory_org_id, fnd_api.g_miss_num);
4450: l_repair_owner_id := nvl(p_repair_owner_id, fnd_api.g_miss_num);
4451: l_ro_status_id := nvl(p_ro_status_id, fnd_api.g_miss_num);
4452: l_repair_type_id := nvl(p_repair_type_id, fnd_api.g_miss_num);
4453: l_ro_priority_code := nvl(p_ro_priority_code, fnd_api.g_miss_char);
4454: l_ro_age := nvl(p_ro_age, fnd_api.g_miss_num);
4455: l_ro_due_date_age := nvl(p_ro_due_date_age, fnd_api.g_miss_num);
4456:
4457: Refresh(p_api_version => l_api_version,
4450: l_repair_owner_id := nvl(p_repair_owner_id, fnd_api.g_miss_num);
4451: l_ro_status_id := nvl(p_ro_status_id, fnd_api.g_miss_num);
4452: l_repair_type_id := nvl(p_repair_type_id, fnd_api.g_miss_num);
4453: l_ro_priority_code := nvl(p_ro_priority_code, fnd_api.g_miss_char);
4454: l_ro_age := nvl(p_ro_age, fnd_api.g_miss_num);
4455: l_ro_due_date_age := nvl(p_ro_due_date_age, fnd_api.g_miss_num);
4456:
4457: Refresh(p_api_version => l_api_version,
4458: p_commit => FND_API.G_TRUE,
4451: l_ro_status_id := nvl(p_ro_status_id, fnd_api.g_miss_num);
4452: l_repair_type_id := nvl(p_repair_type_id, fnd_api.g_miss_num);
4453: l_ro_priority_code := nvl(p_ro_priority_code, fnd_api.g_miss_char);
4454: l_ro_age := nvl(p_ro_age, fnd_api.g_miss_num);
4455: l_ro_due_date_age := nvl(p_ro_due_date_age, fnd_api.g_miss_num);
4456:
4457: Refresh(p_api_version => l_api_version,
4458: p_commit => FND_API.G_TRUE,
4459: p_init_msg_list => FND_API.G_TRUE,
4454: l_ro_age := nvl(p_ro_age, fnd_api.g_miss_num);
4455: l_ro_due_date_age := nvl(p_ro_due_date_age, fnd_api.g_miss_num);
4456:
4457: Refresh(p_api_version => l_api_version,
4458: p_commit => FND_API.G_TRUE,
4459: p_init_msg_list => FND_API.G_TRUE,
4460: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4461: x_return_status => l_return_status,
4462: x_msg_count => l_msg_count,
4455: l_ro_due_date_age := nvl(p_ro_due_date_age, fnd_api.g_miss_num);
4456:
4457: Refresh(p_api_version => l_api_version,
4458: p_commit => FND_API.G_TRUE,
4459: p_init_msg_list => FND_API.G_TRUE,
4460: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4461: x_return_status => l_return_status,
4462: x_msg_count => l_msg_count,
4463: x_msg_data => l_msg_data,
4456:
4457: Refresh(p_api_version => l_api_version,
4458: p_commit => FND_API.G_TRUE,
4459: p_init_msg_list => FND_API.G_TRUE,
4460: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4461: x_return_status => l_return_status,
4462: x_msg_count => l_msg_count,
4463: x_msg_data => l_msg_data,
4464: p_so_orchestration_key_tbl => l_so_orchestration_key_tbl,
4475:
4476: IF l_msg_count > 1 then
4477: FOR i IN 1..l_msg_count LOOP
4478: l_msg_data := l_msg_data || '
4479: ' || FND_MSG_PUB.Get(i,FND_API.G_FALSE) ;
4480: END LOOP ;
4481: fnd_file.put_line(fnd_file.log, '');
4482: fnd_file.put_line(fnd_file.log, l_msg_data);
4483: END IF ;
4489: ELSIF ((l_return_status = G_CSD_RET_STS_WARNING) AND
4490: (NVL(fnd_profile.value('CSD_LOGISTICS_PROGRAM_ERROR'), 'S') = 'A')) THEN
4491: retcode := C_WARNING;
4492: errbuf := l_msg_data;
4493: ELSIF NOT(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4494: Debug(l_msg_data,l_mod_name,4);
4495: RAISE FND_API.G_EXC_ERROR;
4496: END IF;
4497:
4491: retcode := C_WARNING;
4492: errbuf := l_msg_data;
4493: ELSIF NOT(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4494: Debug(l_msg_data,l_mod_name,4);
4495: RAISE FND_API.G_EXC_ERROR;
4496: END IF;
4497:
4498: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Leaving the concurrent program...');
4499:
4497:
4498: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Leaving the concurrent program...');
4499:
4500: Exception
4501: WHEN FND_API.G_EXC_ERROR THEN
4502: retcode := C_ERROR;
4503: errbuf := l_msg_data;
4504: WHEN Others then
4505: -- Handle others exception