89: OE_Line_Util.Query_Rows
90: ( p_line_id => l_line_id
91: , x_line_tbl => l_old_line_tbl
92: );
93: l_line_tbl(1).line_id := FND_API.G_MISS_NUM;
94: l_line_tbl(1).line_type_id := FND_API.G_MISS_NUM;
95: l_line_tbl(1).shipment_number := FND_API.G_MISS_NUM;
96: l_old_line_tbl(1).db_flag := FND_API.G_TRUE;
97: l_line_tbl(1).db_flag := FND_API.G_FALSE;
90: ( p_line_id => l_line_id
91: , x_line_tbl => l_old_line_tbl
92: );
93: l_line_tbl(1).line_id := FND_API.G_MISS_NUM;
94: l_line_tbl(1).line_type_id := FND_API.G_MISS_NUM;
95: l_line_tbl(1).shipment_number := FND_API.G_MISS_NUM;
96: l_old_line_tbl(1).db_flag := FND_API.G_TRUE;
97: l_line_tbl(1).db_flag := FND_API.G_FALSE;
98:
91: , x_line_tbl => l_old_line_tbl
92: );
93: l_line_tbl(1).line_id := FND_API.G_MISS_NUM;
94: l_line_tbl(1).line_type_id := FND_API.G_MISS_NUM;
95: l_line_tbl(1).shipment_number := FND_API.G_MISS_NUM;
96: l_old_line_tbl(1).db_flag := FND_API.G_TRUE;
97: l_line_tbl(1).db_flag := FND_API.G_FALSE;
98:
99: -- Set Operation.
92: );
93: l_line_tbl(1).line_id := FND_API.G_MISS_NUM;
94: l_line_tbl(1).line_type_id := FND_API.G_MISS_NUM;
95: l_line_tbl(1).shipment_number := FND_API.G_MISS_NUM;
96: l_old_line_tbl(1).db_flag := FND_API.G_TRUE;
97: l_line_tbl(1).db_flag := FND_API.G_FALSE;
98:
99: -- Set Operation.
100: l_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
93: l_line_tbl(1).line_id := FND_API.G_MISS_NUM;
94: l_line_tbl(1).line_type_id := FND_API.G_MISS_NUM;
95: l_line_tbl(1).shipment_number := FND_API.G_MISS_NUM;
96: l_old_line_tbl(1).db_flag := FND_API.G_TRUE;
97: l_line_tbl(1).db_flag := FND_API.G_FALSE;
98:
99: -- Set Operation.
100: l_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
101:
117: -- Call OE_Order_PVT.Process_order
118:
119: OE_Order_PVT.Process_order
120: ( p_api_version_number => 1.0
121: , p_init_msg_list => FND_API.G_TRUE
122: , x_return_status => x_return_status
123: , x_msg_count => x_msg_count
124: , x_msg_data => x_msg_data
125: , p_control_rec => l_control_rec
145: , p_x_Lot_Serial_tbl => l_x_Lot_Serial_tbl
146: , p_x_action_request_tbl => l_x_Action_Request_tbl
147: );
148:
149: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
151: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
152: RAISE FND_API.G_EXC_ERROR;
153: END IF;
146: , p_x_action_request_tbl => l_x_Action_Request_tbl
147: );
148:
149: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
151: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
152: RAISE FND_API.G_EXC_ERROR;
153: END IF;
154:
147: );
148:
149: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
151: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
152: RAISE FND_API.G_EXC_ERROR;
153: END IF;
154:
155: -- Load OUT parameters.
148:
149: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
151: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
152: RAISE FND_API.G_EXC_ERROR;
153: END IF;
154:
155: -- Load OUT parameters.
156:
176: */
177:
178: -- example completion
179: -- resultout := l_result_out;
180: IF (x_return_status = FND_API.G_RET_STS_SUCCESS)
181: THEN
182: resultout := 'COMPLETE:PASS';
183: ELSE
184: resultout := 'COMPLETE:FAIL';
242: ELSE
243: resultout := 'COMPLETE:N';
244: END IF;
245: ELSE
246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
247: -- item type is not a line
248: END IF;
249: Exception
250: when others then
290: ELSE
291: resultout := 'COMPLETE:N';
292: END IF;
293: ELSE
294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
295: -- item type is not a line
296: END IF;
297:
298: return;
379: );
380: IF l_debug_level > 0 THEN
381: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '|| L_RETURN_STATUS , 1 ) ;
382: END IF;
383: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
384: -- start data fix project
385: -- OE_STANDARD_WF.Save_Messages;
386: -- OE_STANDARD_WF.Clear_Msg_Context;
387: -- end data fix project
399: ELSE
400: resultout := 'COMPLETE:NOT_ELIGIBLE';
401: END IF;
402: ELSE
403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
404: -- item type is not a line
405: END IF;
406:
407: return;
489: P_HEADER_ID => To_Number(itemkey)
490: ,P_FLOW_STATUS_CODE => 'REJECTED_PENDING_CANC'
491: ,X_RETURN_STATUS => l_return_status);
492:
493: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
494: IF l_debug_level > 0 THEN
495: oe_debug_pub.add('Update flow status code: '||L_RETURN_STATUS
496: ||' - '||itemtype||'/'||itemkey,1);
497: END IF;
494: IF l_debug_level > 0 THEN
495: oe_debug_pub.add('Update flow status code: '||L_RETURN_STATUS
496: ||' - '||itemtype||'/'||itemkey,1);
497: END IF;
498: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
499: RAISE FND_API.G_EXC_ERROR;
500: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502: END IF;
495: oe_debug_pub.add('Update flow status code: '||L_RETURN_STATUS
496: ||' - '||itemtype||'/'||itemkey,1);
497: END IF;
498: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
499: RAISE FND_API.G_EXC_ERROR;
500: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502: END IF;
503: END IF;
496: ||' - '||itemtype||'/'||itemkey,1);
497: END IF;
498: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
499: RAISE FND_API.G_EXC_ERROR;
500: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502: END IF;
503: END IF;
504:
497: END IF;
498: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
499: RAISE FND_API.G_EXC_ERROR;
500: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502: END IF;
503: END IF;
504:
505: FOR lines IN return_lines LOOP
507: p_line_id => lines.line_id
508: ,p_flow_status_code => 'REJECTED_PENDING_CANC'
509: ,x_return_status => l_return_status
510: );
511: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
512: IF l_debug_level > 0 THEN
513: oe_debug_pub.add('Update flow status code: '||L_RETURN_STATUS
514: ||' - '||lines.item_type||'/'||lines.item_key,1);
515: END IF;
512: IF l_debug_level > 0 THEN
513: oe_debug_pub.add('Update flow status code: '||L_RETURN_STATUS
514: ||' - '||lines.item_type||'/'||lines.item_key,1);
515: END IF;
516: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
517: RAISE FND_API.G_EXC_ERROR;
518: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
520: END IF;
513: oe_debug_pub.add('Update flow status code: '||L_RETURN_STATUS
514: ||' - '||lines.item_type||'/'||lines.item_key,1);
515: END IF;
516: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
517: RAISE FND_API.G_EXC_ERROR;
518: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
520: END IF;
521: END IF;
514: ||' - '||lines.item_type||'/'||lines.item_key,1);
515: END IF;
516: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
517: RAISE FND_API.G_EXC_ERROR;
518: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
520: END IF;
521: END IF;
522: END LOOP;
515: END IF;
516: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
517: RAISE FND_API.G_EXC_ERROR;
518: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
520: END IF;
521: END IF;
522: END LOOP;
523: RESULTOUT := 'COMPLETE';
580: P_HEADER_ID => To_Number(itemkey)
581: ,P_FLOW_STATUS_CODE => 'RETURN_REJECTED'
582: ,X_RETURN_STATUS => l_return_status);
583:
584: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
585: IF l_debug_level > 0 THEN
586: oe_debug_pub.add('Update flow status code: '||L_RETURN_STATUS
587: ||' - '||itemtype||'/'||itemkey,1);
588: END IF;
585: IF l_debug_level > 0 THEN
586: oe_debug_pub.add('Update flow status code: '||L_RETURN_STATUS
587: ||' - '||itemtype||'/'||itemkey,1);
588: END IF;
589: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
590: RAISE FND_API.G_EXC_ERROR;
591: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
593: END IF;
586: oe_debug_pub.add('Update flow status code: '||L_RETURN_STATUS
587: ||' - '||itemtype||'/'||itemkey,1);
588: END IF;
589: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
590: RAISE FND_API.G_EXC_ERROR;
591: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
593: END IF;
594: END IF;
587: ||' - '||itemtype||'/'||itemkey,1);
588: END IF;
589: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
590: RAISE FND_API.G_EXC_ERROR;
591: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
593: END IF;
594: END IF;
595:
588: END IF;
589: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
590: RAISE FND_API.G_EXC_ERROR;
591: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
593: END IF;
594: END IF;
595:
596: FOR lines IN return_lines LOOP
598: p_line_id => lines.line_id
599: ,p_flow_status_code => 'REJECTED_PENDING_CANC'
600: ,x_return_status => l_return_status
601: );
602: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
603: IF l_debug_level > 0 THEN
604: oe_debug_pub.add('Update flow status code: '||L_RETURN_STATUS
605: ||' - '||lines.item_type||'/'||lines.item_key,1);
606: END IF;
603: IF l_debug_level > 0 THEN
604: oe_debug_pub.add('Update flow status code: '||L_RETURN_STATUS
605: ||' - '||lines.item_type||'/'||lines.item_key,1);
606: END IF;
607: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
608: RAISE FND_API.G_EXC_ERROR;
609: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
611: END IF;
604: oe_debug_pub.add('Update flow status code: '||L_RETURN_STATUS
605: ||' - '||lines.item_type||'/'||lines.item_key,1);
606: END IF;
607: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
608: RAISE FND_API.G_EXC_ERROR;
609: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
611: END IF;
612: END IF;
605: ||' - '||lines.item_type||'/'||lines.item_key,1);
606: END IF;
607: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
608: RAISE FND_API.G_EXC_ERROR;
609: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
611: END IF;
612: END IF;
613: END LOOP;
606: END IF;
607: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
608: RAISE FND_API.G_EXC_ERROR;
609: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
611: END IF;
612: END IF;
613: END LOOP;
614: RESULTOUT := 'COMPLETE';