97:
98: FOR l_idx IN 1..g_eam_mat_req_tbl.COUNT
99: LOOP
100: IF NVL(g_eam_mat_req_tbl(l_idx).OPERATION_SEQ_NUM,
101: FND_API.G_MISS_NUM) =
102: NVL(g_eam_op_tbl(p_op_idx).OPERATION_SEQ_NUM,
103: FND_API.G_MISS_NUM)
104: THEN
105:
99: LOOP
100: IF NVL(g_eam_mat_req_tbl(l_idx).OPERATION_SEQ_NUM,
101: FND_API.G_MISS_NUM) =
102: NVL(g_eam_op_tbl(p_op_idx).OPERATION_SEQ_NUM,
103: FND_API.G_MISS_NUM)
104: THEN
105:
106: g_eam_mat_req_tbl(l_idx).return_status := p_other_status;
107: EAM_ERROR_MESSAGE_PVT.Add_Message
126: --
127:
128: FOR l_idx IN (p_entity_index+1)..g_eam_mat_req_tbl.COUNT
129: LOOP
130: IF NVL(g_eam_mat_req_tbl(l_idx).OPERATION_SEQ_NUM, FND_API.G_MISS_NUM) =
131: NVL(g_eam_mat_req_tbl(p_entity_index).OPERATION_SEQ_NUM, FND_API.G_MISS_NUM)
132: THEN
133:
134: g_eam_mat_req_tbl(l_idx).return_status := p_other_status;
127:
128: FOR l_idx IN (p_entity_index+1)..g_eam_mat_req_tbl.COUNT
129: LOOP
130: IF NVL(g_eam_mat_req_tbl(l_idx).OPERATION_SEQ_NUM, FND_API.G_MISS_NUM) =
131: NVL(g_eam_mat_req_tbl(p_entity_index).OPERATION_SEQ_NUM, FND_API.G_MISS_NUM)
132: THEN
133:
134: g_eam_mat_req_tbl(l_idx).return_status := p_other_status;
135: EAM_ERROR_MESSAGE_PVT.Add_Message
193:
194: FOR l_idx IN 1..g_eam_direct_items_tbl.COUNT
195: LOOP
196: IF NVL(g_eam_direct_items_tbl(l_idx).OPERATION_SEQ_NUM,
197: FND_API.G_MISS_NUM) =
198: NVL(g_eam_op_tbl(p_op_idx).OPERATION_SEQ_NUM,
199: FND_API.G_MISS_NUM)
200: THEN
201:
195: LOOP
196: IF NVL(g_eam_direct_items_tbl(l_idx).OPERATION_SEQ_NUM,
197: FND_API.G_MISS_NUM) =
198: NVL(g_eam_op_tbl(p_op_idx).OPERATION_SEQ_NUM,
199: FND_API.G_MISS_NUM)
200: THEN
201:
202: g_eam_direct_items_tbl(l_idx).return_status := p_other_status;
203: EAM_ERROR_MESSAGE_PVT.Add_Message
222: --
223:
224: FOR l_idx IN (p_entity_index+1)..g_eam_direct_items_tbl.COUNT
225: LOOP
226: IF NVL(g_eam_direct_items_tbl(l_idx).OPERATION_SEQ_NUM, FND_API.G_MISS_NUM) =
227: NVL(g_eam_direct_items_tbl(p_entity_index).OPERATION_SEQ_NUM, FND_API.G_MISS_NUM)
228: THEN
229:
230: g_eam_direct_items_tbl(l_idx).return_status := p_other_status;
223:
224: FOR l_idx IN (p_entity_index+1)..g_eam_direct_items_tbl.COUNT
225: LOOP
226: IF NVL(g_eam_direct_items_tbl(l_idx).OPERATION_SEQ_NUM, FND_API.G_MISS_NUM) =
227: NVL(g_eam_direct_items_tbl(p_entity_index).OPERATION_SEQ_NUM, FND_API.G_MISS_NUM)
228: THEN
229:
230: g_eam_direct_items_tbl(l_idx).return_status := p_other_status;
231: EAM_ERROR_MESSAGE_PVT.Add_Message
289: THEN
290:
291: FOR l_idx IN 1..g_eam_sub_res_tbl.COUNT
292: LOOP
293: IF NVL(g_eam_sub_res_tbl(l_idx).OPERATION_SEQ_NUM, FND_API.G_MISS_NUM) =
294: NVL(g_eam_op_tbl(p_op_idx).OPERATION_SEQ_NUM, FND_API.G_MISS_NUM)
295:
296: THEN
297: g_eam_sub_res_tbl(l_idx).return_status := p_other_status;
290:
291: FOR l_idx IN 1..g_eam_sub_res_tbl.COUNT
292: LOOP
293: IF NVL(g_eam_sub_res_tbl(l_idx).OPERATION_SEQ_NUM, FND_API.G_MISS_NUM) =
294: NVL(g_eam_op_tbl(p_op_idx).OPERATION_SEQ_NUM, FND_API.G_MISS_NUM)
295:
296: THEN
297: g_eam_sub_res_tbl(l_idx).return_status := p_other_status;
298: EAM_ERROR_MESSAGE_PVT.Add_Message
309:
310: FOR l_idx IN 1..g_eam_sub_res_tbl.COUNT
311: LOOP
312: IF NVL(g_eam_sub_res_tbl(l_idx).OPERATION_SEQ_NUM,
313: FND_API.G_MISS_NUM) =
314: NVL(g_eam_res_tbl(p_res_idx).OPERATION_SEQ_NUM,
315: FND_API.G_MISS_NUM)
316:
317: THEN
311: LOOP
312: IF NVL(g_eam_sub_res_tbl(l_idx).OPERATION_SEQ_NUM,
313: FND_API.G_MISS_NUM) =
314: NVL(g_eam_res_tbl(p_res_idx).OPERATION_SEQ_NUM,
315: FND_API.G_MISS_NUM)
316:
317: THEN
318: g_eam_sub_res_tbl(l_idx).return_status := p_other_status;
319: EAM_ERROR_MESSAGE_PVT.Add_Message
331:
332: FOR l_idx IN 1..g_eam_sub_res_tbl.COUNT
333: LOOP
334: IF NVL(g_eam_sub_res_tbl(l_idx).OPERATION_SEQ_NUM,
335: FND_API.G_MISS_NUM) =
336: NVL(g_eam_sub_res_tbl(p_entity_index).OPERATION_SEQ_NUM,
337: FND_API.G_MISS_NUM)
338:
339: THEN
333: LOOP
334: IF NVL(g_eam_sub_res_tbl(l_idx).OPERATION_SEQ_NUM,
335: FND_API.G_MISS_NUM) =
336: NVL(g_eam_sub_res_tbl(p_entity_index).OPERATION_SEQ_NUM,
337: FND_API.G_MISS_NUM)
338:
339: THEN
340: g_eam_sub_res_tbl(l_idx).return_status := p_other_status;
341: EAM_ERROR_MESSAGE_PVT.Add_Message
406: THEN
407:
408: FOR l_idx IN 1..g_eam_res_inst_tbl.COUNT
409: LOOP
410: IF NVL(g_eam_res_inst_tbl(l_idx).OPERATION_SEQ_NUM, FND_API.G_MISS_NUM) =
411: NVL(g_eam_op_tbl(p_op_idx).OPERATION_SEQ_NUM, FND_API.G_MISS_NUM)
412:
413: THEN
414: g_eam_res_inst_tbl(l_idx).return_status := p_other_status;
407:
408: FOR l_idx IN 1..g_eam_res_inst_tbl.COUNT
409: LOOP
410: IF NVL(g_eam_res_inst_tbl(l_idx).OPERATION_SEQ_NUM, FND_API.G_MISS_NUM) =
411: NVL(g_eam_op_tbl(p_op_idx).OPERATION_SEQ_NUM, FND_API.G_MISS_NUM)
412:
413: THEN
414: g_eam_res_inst_tbl(l_idx).return_status := p_other_status;
415: EAM_ERROR_MESSAGE_PVT.Add_Message
426:
427: FOR l_idx IN 1..g_eam_res_inst_tbl.COUNT
428: LOOP
429: IF NVL(g_eam_res_inst_tbl(l_idx).OPERATION_SEQ_NUM,
430: FND_API.G_MISS_NUM) =
431: NVL(g_eam_res_tbl(p_res_idx).OPERATION_SEQ_NUM,
432: FND_API.G_MISS_NUM)
433:
434: THEN
428: LOOP
429: IF NVL(g_eam_res_inst_tbl(l_idx).OPERATION_SEQ_NUM,
430: FND_API.G_MISS_NUM) =
431: NVL(g_eam_res_tbl(p_res_idx).OPERATION_SEQ_NUM,
432: FND_API.G_MISS_NUM)
433:
434: THEN
435: g_eam_res_inst_tbl(l_idx).return_status := p_other_status;
436: EAM_ERROR_MESSAGE_PVT.Add_Message
448:
449: FOR l_idx IN 1..g_eam_res_inst_tbl.COUNT
450: LOOP
451: IF NVL(g_eam_res_inst_tbl(l_idx).OPERATION_SEQ_NUM,
452: FND_API.G_MISS_NUM) =
453: NVL(g_eam_res_inst_tbl(p_entity_index).OPERATION_SEQ_NUM,
454: FND_API.G_MISS_NUM)
455:
456: THEN
450: LOOP
451: IF NVL(g_eam_res_inst_tbl(l_idx).OPERATION_SEQ_NUM,
452: FND_API.G_MISS_NUM) =
453: NVL(g_eam_res_inst_tbl(p_entity_index).OPERATION_SEQ_NUM,
454: FND_API.G_MISS_NUM)
455:
456: THEN
457: g_eam_res_inst_tbl(l_idx).return_status := p_other_status;
458: EAM_ERROR_MESSAGE_PVT.Add_Message
523: THEN
524:
525: FOR l_idx IN 1..g_eam_res_usage_tbl.COUNT
526: LOOP
527: IF NVL(g_eam_res_usage_tbl(l_idx).OPERATION_SEQ_NUM, FND_API.G_MISS_NUM) =
528: NVL(g_eam_op_tbl(p_op_idx).OPERATION_SEQ_NUM, FND_API.G_MISS_NUM)
529:
530: THEN
531: g_eam_res_usage_tbl(l_idx).return_status := p_other_status;
524:
525: FOR l_idx IN 1..g_eam_res_usage_tbl.COUNT
526: LOOP
527: IF NVL(g_eam_res_usage_tbl(l_idx).OPERATION_SEQ_NUM, FND_API.G_MISS_NUM) =
528: NVL(g_eam_op_tbl(p_op_idx).OPERATION_SEQ_NUM, FND_API.G_MISS_NUM)
529:
530: THEN
531: g_eam_res_usage_tbl(l_idx).return_status := p_other_status;
532: EAM_ERROR_MESSAGE_PVT.Add_Message
543:
544: FOR l_idx IN 1..g_eam_res_usage_tbl.COUNT
545: LOOP
546: IF NVL(g_eam_res_usage_tbl(l_idx).OPERATION_SEQ_NUM,
547: FND_API.G_MISS_NUM) =
548: NVL(g_eam_res_tbl(p_res_idx).OPERATION_SEQ_NUM,
549: FND_API.G_MISS_NUM)
550:
551: THEN
545: LOOP
546: IF NVL(g_eam_res_usage_tbl(l_idx).OPERATION_SEQ_NUM,
547: FND_API.G_MISS_NUM) =
548: NVL(g_eam_res_tbl(p_res_idx).OPERATION_SEQ_NUM,
549: FND_API.G_MISS_NUM)
550:
551: THEN
552: g_eam_res_usage_tbl(l_idx).return_status := p_other_status;
553: EAM_ERROR_MESSAGE_PVT.Add_Message
565:
566: FOR l_idx IN 1..g_eam_res_usage_tbl.COUNT
567: LOOP
568: IF NVL(g_eam_res_usage_tbl(l_idx).OPERATION_SEQ_NUM,
569: FND_API.G_MISS_NUM) =
570: NVL(g_eam_res_usage_tbl(p_entity_index).OPERATION_SEQ_NUM,
571: FND_API.G_MISS_NUM)
572:
573: THEN
567: LOOP
568: IF NVL(g_eam_res_usage_tbl(l_idx).OPERATION_SEQ_NUM,
569: FND_API.G_MISS_NUM) =
570: NVL(g_eam_res_usage_tbl(p_entity_index).OPERATION_SEQ_NUM,
571: FND_API.G_MISS_NUM)
572:
573: THEN
574: g_eam_res_usage_tbl(l_idx).return_status := p_other_status;
575: EAM_ERROR_MESSAGE_PVT.Add_Message
648: FOR l_idx IN 1..g_eam_res_tbl.COUNT
649: LOOP
650:
651: IF NVL(g_eam_res_tbl(l_idx).OPERATION_SEQ_NUM,
652: FND_API.G_MISS_NUM) =
653: NVL(g_eam_op_tbl(p_op_idx).OPERATION_SEQ_NUM,
654: FND_API.G_MISS_NUM)
655: THEN
656:
650:
651: IF NVL(g_eam_res_tbl(l_idx).OPERATION_SEQ_NUM,
652: FND_API.G_MISS_NUM) =
653: NVL(g_eam_op_tbl(p_op_idx).OPERATION_SEQ_NUM,
654: FND_API.G_MISS_NUM)
655: THEN
656:
657: g_eam_res_tbl(l_idx).return_status := p_other_status;
658: EAM_ERROR_MESSAGE_PVT.Add_Message
675:
676: FOR l_idx IN (p_entity_index+1)..g_eam_res_tbl.COUNT
677: LOOP
678: IF NVL(g_eam_res_tbl(l_idx).OPERATION_SEQ_NUM,
679: FND_API.G_MISS_NUM) =
680: NVL(g_eam_res_tbl(p_entity_index).OPERATION_SEQ_NUM,
681: FND_API.G_MISS_NUM)
682: THEN
683:
677: LOOP
678: IF NVL(g_eam_res_tbl(l_idx).OPERATION_SEQ_NUM,
679: FND_API.G_MISS_NUM) =
680: NVL(g_eam_res_tbl(p_entity_index).OPERATION_SEQ_NUM,
681: FND_API.G_MISS_NUM)
682: THEN
683:
684: g_eam_res_tbl(l_idx).return_status := p_other_status;
685: EAM_ERROR_MESSAGE_PVT.Add_Message
1333: ELSIF l_error_status = G_STATUS_WARNING
1334:
1335: THEN
1336: l_error_scope := G_SCOPE_RECORD;
1337: l_error_status := FND_API.G_RET_STS_SUCCESS;
1338:
1339: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Status is warning . . .'); END IF;
1340:
1341: END IF;
1943: ' If unsure leave out the value and the log will '||
1944: ' be written to /sqlcom/log '
1945: , x_mesg_token_tbl => l_mesg_token_tbl
1946: );
1947: x_return_status := FND_API.G_RET_STS_ERROR;
1948: x_mesg_token_tbl := l_mesg_token_tbl;
1949: RETURN;
1950: END IF;
1951:
1968: ' If unsure leave out the value and the log will '||
1969: ' be written to /sqlcom/log '
1970: , x_mesg_token_tbl => l_mesg_token_tbl
1971: );
1972: x_return_status := FND_API.G_RET_STS_ERROR;
1973: x_mesg_token_tbl := l_mesg_token_tbl;
1974: RETURN;
1975: END IF;
1976:
1984: EAM_ERROR_MESSAGE_PVT.Debug_File := utl_file.fopen( p_output_dir
1985: , p_debug_filename
1986: , p_debug_file_mode);
1987:
1988: x_return_status := FND_API.G_RET_STS_SUCCESS;
1989:
1990: EXCEPTION
1991: WHEN UTL_FILE.INVALID_PATH THEN
1992: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1994: , p_message_text => 'Error opening Debug file . . . ' || sqlerrm
1995: , x_mesg_token_tbl => l_mesg_token_tbl
1996: );
1997: x_mesg_token_tbl := l_mesg_token_tbl;
1998: x_return_status := FND_API.G_RET_STS_ERROR;
1999: END Open_Debug_Session;
2000:
2001: PROCEDURE Write_Debug
2002: ( p_debug_message IN VARCHAR2 )
2219: ELSIF l_error_status = G_STATUS_WARNING
2220:
2221: THEN
2222: l_error_scope := G_SCOPE_RECORD;
2223: l_error_status := FND_API.G_RET_STS_SUCCESS;
2224:
2225: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Status is warning . . .'); END IF;
2226:
2227: END IF;