210: , 'Update_Blanket_Qty'
211: );
212: END IF;
213: G_DEBUG_MSG := G_DEBUG_MSG || 'E1,';
214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
215: END Update_Blanket_Qty;
216:
217:
218: /*
243: IF l_debug_level > 0 THEN
244: oe_debug_pub.add( 'Yes, part of fulfillment set ' , 5 ) ;
245: END IF;
246:
247: Return FND_API.G_TRUE;
248:
249: EXCEPTION
250:
251: WHEN NO_DATA_FOUND THEN
248:
249: EXCEPTION
250:
251: WHEN NO_DATA_FOUND THEN
252: Return FND_API.G_FALSE;
253: WHEN TOO_MANY_ROWS THEN
254: Return FND_API.G_TRUE;
255: WHEN OTHERS THEN
256: Return FND_API.G_FALSE;
250:
251: WHEN NO_DATA_FOUND THEN
252: Return FND_API.G_FALSE;
253: WHEN TOO_MANY_ROWS THEN
254: Return FND_API.G_TRUE;
255: WHEN OTHERS THEN
256: Return FND_API.G_FALSE;
257:
258: END Is_Part_Of_Fulfillment_Set;
252: Return FND_API.G_FALSE;
253: WHEN TOO_MANY_ROWS THEN
254: Return FND_API.G_TRUE;
255: WHEN OTHERS THEN
256: Return FND_API.G_FALSE;
257:
258: END Is_Part_Of_Fulfillment_Set;
259:
260: PROCEDURE Get_service_lines
305: END IF;
306:
307:
308: IF p_header_id IS NULL OR -- This IF introduced for 1717444
309: p_header_id = FND_API.G_MISS_NUM THEN
310: SELECT header_id
311: INTO l_header_id
312: FROM oe_order_lines
313: WHERE line_id = p_line_id;
346: IF l_debug_level > 0 THEN
347: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS||'/'||L_ACTIVITY_STATUS , 3 ) ;
348: END IF;
349:
350: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
352: ELSIF l_return_status = FND_API.G_RET_STS_ERROR OR
353: l_activity_status <> 'NOTIFIED' THEN
354: IF l_debug_level > 0 THEN
347: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS||'/'||L_ACTIVITY_STATUS , 3 ) ;
348: END IF;
349:
350: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
352: ELSIF l_return_status = FND_API.G_RET_STS_ERROR OR
353: l_activity_status <> 'NOTIFIED' THEN
354: IF l_debug_level > 0 THEN
355: oe_debug_pub.add( 'SERVICE LINE IS NOT AT FULFILL LINE : '||TO_CHAR ( L_SERVICE_LINES.LINE_ID ) , 3 ) ;
348: END IF;
349:
350: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
352: ELSIF l_return_status = FND_API.G_RET_STS_ERROR OR
353: l_activity_status <> 'NOTIFIED' THEN
354: IF l_debug_level > 0 THEN
355: oe_debug_pub.add( 'SERVICE LINE IS NOT AT FULFILL LINE : '||TO_CHAR ( L_SERVICE_LINES.LINE_ID ) , 3 ) ;
356: END IF;
380: END LOOP;
381:
382:
383: IF l_service_index = 0 THEN
384: x_return_status := FND_API.G_RET_STS_ERROR;
385: ELSE
386: x_return_status := FND_API.G_RET_STS_SUCCESS;
387: END IF;
388:
382:
383: IF l_service_index = 0 THEN
384: x_return_status := FND_API.G_RET_STS_ERROR;
385: ELSE
386: x_return_status := FND_API.G_RET_STS_SUCCESS;
387: END IF;
388:
389: IF l_debug_level > 0 THEN
390: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.GET_SERVICE_LINES WITH STATUS: '|| X_RETURN_STATUS , 1 ) ;
391: END IF;
392:
393: EXCEPTION
394:
395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
397:
398: IF l_debug_level > 0 THEN
399: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.GET_SERVICE_LINES WITH STATUS: '|| X_RETURN_STATUS , 1 ) ;
392:
393: EXCEPTION
394:
395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
397:
398: IF l_debug_level > 0 THEN
399: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.GET_SERVICE_LINES WITH STATUS: '|| X_RETURN_STATUS , 1 ) ;
400: END IF;
407: END IF;
408: G_DEBUG_MSG := G_DEBUG_MSG || '5,';
409:
410: WHEN OTHERS THEN
411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
412: IF l_debug_level > 0 THEN
413: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
414: END IF;
415: IF l_debug_level > 0 THEN
465: x_line_tbl => l_service_tbl
466: );
467:
468:
469: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
471: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
472: GOTO END_SERVICE_LOOP;
473: END IF;
466: );
467:
468:
469: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
471: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
472: GOTO END_SERVICE_LOOP;
473: END IF;
474:
467:
468:
469: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
471: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
472: GOTO END_SERVICE_LOOP;
473: END IF;
474:
475: --5699215
533: IF l_debug_level > 0 THEN
534: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL LINE : '||L_RETURN_STATUS , 3 ) ;
535: END IF;
536:
537: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
538: IF l_debug_level > 0 THEN
539: oe_debug_pub.add('raising unexpected error '||sqlerrm,1);
540: END IF;
541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
537: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
538: IF l_debug_level > 0 THEN
539: oe_debug_pub.add('raising unexpected error '||sqlerrm,1);
540: END IF;
541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
542: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
543: IF l_debug_level > 0 THEN
544: oe_debug_pub.add('raising exc error '||sqlerrm,1);
545: END IF;
538: IF l_debug_level > 0 THEN
539: oe_debug_pub.add('raising unexpected error '||sqlerrm,1);
540: END IF;
541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
542: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
543: IF l_debug_level > 0 THEN
544: oe_debug_pub.add('raising exc error '||sqlerrm,1);
545: END IF;
546: RAISE FND_API.G_EXC_ERROR;
542: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
543: IF l_debug_level > 0 THEN
544: oe_debug_pub.add('raising exc error '||sqlerrm,1);
545: END IF;
546: RAISE FND_API.G_EXC_ERROR;
547: END IF;
548: END IF;
549:
550: /* Complete the work flow activity for the service lines */
566: IF l_debug_level > 0 THEN
567: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
568: END IF;
569:
570: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
571: IF l_debug_level > 0 THEN
572: oe_debug_pub.add('after update of flow status code - error '||sqlerrm,1);
573: END IF;
574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
570: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
571: IF l_debug_level > 0 THEN
572: oe_debug_pub.add('after update of flow status code - error '||sqlerrm,1);
573: END IF;
574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
575: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
576: IF l_debug_level > 0 THEN
577: oe_debug_pub.add('after update of flow status code - exc error '||sqlerrm,1);
578: END IF;
571: IF l_debug_level > 0 THEN
572: oe_debug_pub.add('after update of flow status code - error '||sqlerrm,1);
573: END IF;
574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
575: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
576: IF l_debug_level > 0 THEN
577: oe_debug_pub.add('after update of flow status code - exc error '||sqlerrm,1);
578: END IF;
579: RAISE FND_API.G_EXC_ERROR;
575: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
576: IF l_debug_level > 0 THEN
577: oe_debug_pub.add('after update of flow status code - exc error '||sqlerrm,1);
578: END IF;
579: RAISE FND_API.G_EXC_ERROR;
580: END IF;
581: IF l_debug_level > 0 THEN
582: oe_debug_pub.add( 'CALLING WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_LINE_ID ) , 3 ) ;
583: END IF;
596:
597:
598: << END_SERVICE_LOOP >>
599:
600: x_return_status := FND_API.G_RET_STS_SUCCESS;
601:
602: IF l_debug_level > 0 THEN
603: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.FULFILL_SERVICE_LINES '|| X_RETURN_STATUS , 1 ) ;
604: END IF;
604: END IF;
605:
606: EXCEPTION
607:
608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
610:
611: IF l_debug_level > 0 THEN
612: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.FULFILL_SERVICE_LINES WITH STATUS: '|| X_RETURN_STATUS , 1 ) ;
605:
606: EXCEPTION
607:
608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
610:
611: IF l_debug_level > 0 THEN
612: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.FULFILL_SERVICE_LINES WITH STATUS: '|| X_RETURN_STATUS , 1 ) ;
613: END IF;
620: END IF;
621: G_DEBUG_MSG := G_DEBUG_MSG || 'E4,';
622:
623: WHEN OTHERS THEN
624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
625: IF l_debug_level > 0 THEN
626: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
627: END IF;
628: IF l_debug_level > 0 THEN
659: END IF;
660:
661:
662: IF p_line_rec.service_start_date IS NULL OR
663: p_line_rec.service_start_date = FND_API.G_MISS_DATE
664: THEN
665: l_line_rec := p_line_rec; -- 2897505 start
666: l_line_rec.service_start_date := NULL;
667: l_line_rec.service_reference_type_code := 'GET_SVC_START';
691: );
692: END IF;
693:
694: ELSIF p_line_rec.service_end_date IS NULL OR
695: p_line_rec.service_end_date = FND_API.G_MISS_DATE
696: THEN
697:
698: OE_SERVICE_UTIL.Get_Service_Duration(
699: p_x_line_rec => p_line_rec,
719: p_line_rec IN OE_Order_Pub.Line_Rec_Type DEFAULT OE_Order_Pub.G_MISS_LINE_REC
720: ,p_line_tbl IN OE_Order_Pub.Line_Tbl_Type DEFAULT OE_Order_Pub.G_MISS_LINE_TBL
721: ,p_mode IN VARCHAR2
722: ,p_fulfillment_type IN VARCHAR2
723: ,p_fulfillment_activity IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR
724: ,x_return_status OUT NOCOPY VARCHAR2
725: )
726: IS
727: l_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
883: );
884: IF l_debug_level > 0 THEN
885: oe_debug_pub.add('Returned from lock row : '||l_return_status,3) ;
886: END IF;
887: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
888: IF l_debug_level > 0 THEN
889: oe_debug_pub.add('STS error while locking row '||sqlerrm,1);
890: END IF;
891: RAISE CAN_NOT_LOCK_MODEL;
888: IF l_debug_level > 0 THEN
889: oe_debug_pub.add('STS error while locking row '||sqlerrm,1);
890: END IF;
891: RAISE CAN_NOT_LOCK_MODEL;
892: --RAISE FND_API.G_EXC_ERROR;
893: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
894: IF l_debug_level > 0 THEN
895: oe_debug_pub.add('EXC error while locking row '||sqlerrm,1);
896: END IF;
889: oe_debug_pub.add('STS error while locking row '||sqlerrm,1);
890: END IF;
891: RAISE CAN_NOT_LOCK_MODEL;
892: --RAISE FND_API.G_EXC_ERROR;
893: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
894: IF l_debug_level > 0 THEN
895: oe_debug_pub.add('EXC error while locking row '||sqlerrm,1);
896: END IF;
897: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
893: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
894: IF l_debug_level > 0 THEN
895: oe_debug_pub.add('EXC error while locking row '||sqlerrm,1);
896: END IF;
897: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
898: END IF;
899:
900:
901: l_line_tbl := l_old_line_tbl;
938: IF l_debug_level > 0 THEN
939: oe_debug_pub.add('Update_global return status from oe_line_fullfill.fullfill_line is: '|| l_return_status ) ;
940: oe_debug_pub.add('Global picture index is: '||l_notify_index,1) ;
941: END IF;
942: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
944: END IF;
945: IF l_notify_index IS NOT NULL THEN
946: --update Global Picture directly
939: oe_debug_pub.add('Update_global return status from oe_line_fullfill.fullfill_line is: '|| l_return_status ) ;
940: oe_debug_pub.add('Global picture index is: '||l_notify_index,1) ;
941: END IF;
942: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
944: END IF;
945: IF l_notify_index IS NOT NULL THEN
946: --update Global Picture directly
947: OE_ORDER_UTIL.g_old_line_tbl(l_notify_index):= l_old_line_tbl(1);
1032: p_Service_Order_Lines => l_Service_Order_Lines,
1033: x_Return_Status => l_return_status,
1034: x_Error_Message => l_msg_data);
1035:
1036: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1037: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1038: oe_debug_pub.add('l_msg_data' || l_msg_data);
1039: RAISE FND_API.G_EXC_ERROR;
1040: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1033: x_Return_Status => l_return_status,
1034: x_Error_Message => l_msg_data);
1035:
1036: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1037: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1038: oe_debug_pub.add('l_msg_data' || l_msg_data);
1039: RAISE FND_API.G_EXC_ERROR;
1040: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1041: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1035:
1036: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1037: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1038: oe_debug_pub.add('l_msg_data' || l_msg_data);
1039: RAISE FND_API.G_EXC_ERROR;
1040: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1041: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1042: oe_debug_pub.add('l_msg_data' || l_msg_data);
1043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1036: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1037: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1038: oe_debug_pub.add('l_msg_data' || l_msg_data);
1039: RAISE FND_API.G_EXC_ERROR;
1040: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1041: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1042: oe_debug_pub.add('l_msg_data' || l_msg_data);
1043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1044: END IF;
1037: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1038: oe_debug_pub.add('l_msg_data' || l_msg_data);
1039: RAISE FND_API.G_EXC_ERROR;
1040: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1041: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1042: oe_debug_pub.add('l_msg_data' || l_msg_data);
1043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1044: END IF;
1045: /* End Improved OM,IB,OKS changes */
1039: RAISE FND_API.G_EXC_ERROR;
1040: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1041: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1042: oe_debug_pub.add('l_msg_data' || l_msg_data);
1043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1044: END IF;
1045: /* End Improved OM,IB,OKS changes */
1046: END IF;
1047:
1072: x_error_code => l_error_code,
1073: x_error_message => l_error_message);
1074: oe_debug_pub.add('After Call to csi_ont_txn_pub.posttransaction',1);
1075:
1076: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1077: IF l_debug_level > 0 THEN
1078: oe_debug_pub.add('raising unexpected error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
1079: END IF;
1080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1076: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1077: IF l_debug_level > 0 THEN
1078: oe_debug_pub.add('raising unexpected error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
1079: END IF;
1080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1081: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1082: IF l_debug_level > 0 THEN
1083: oe_debug_pub.add('raising exc error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
1084: END IF;
1077: IF l_debug_level > 0 THEN
1078: oe_debug_pub.add('raising unexpected error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
1079: END IF;
1080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1081: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1082: IF l_debug_level > 0 THEN
1083: oe_debug_pub.add('raising exc error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
1084: END IF;
1085: RAISE FND_API.G_EXC_ERROR;
1081: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1082: IF l_debug_level > 0 THEN
1083: oe_debug_pub.add('raising exc error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
1084: END IF;
1085: RAISE FND_API.G_EXC_ERROR;
1086: END IF;
1087: END IF;
1088:
1089: ELSE
1094: IF p_line_tbl.count = 0 THEN -- this IF added for 2231594
1095: IF l_debug_level > 0 THEN
1096: oe_debug_pub.add('Exiting fulfill_line() - no lines to update',3) ;
1097: END IF;
1098: x_return_status := FND_API.G_RET_STS_SUCCESS;
1099: RETURN;
1100: END IF;
1101:
1102: -- CHANGES for AFD
1126: IF l_debug_level > 0 THEN
1127: oe_debug_pub.add('Returned from lock row : '||l_return_status,3) ;
1128: END IF;
1129:
1130: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1131: IF l_debug_level > 0 THEN
1132: oe_debug_pub.add('STS error while locking row '||sqlerrm,1);
1133: END IF;
1134: RAISE CAN_NOT_LOCK_MODEL;
1131: IF l_debug_level > 0 THEN
1132: oe_debug_pub.add('STS error while locking row '||sqlerrm,1);
1133: END IF;
1134: RAISE CAN_NOT_LOCK_MODEL;
1135: --RAISE FND_API.G_EXC_ERROR;
1136: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1137: IF l_debug_level > 0 THEN
1138: oe_debug_pub.add('EXC error while locking row '||sqlerrm,1);
1139: END IF;
1132: oe_debug_pub.add('STS error while locking row '||sqlerrm,1);
1133: END IF;
1134: RAISE CAN_NOT_LOCK_MODEL;
1135: --RAISE FND_API.G_EXC_ERROR;
1136: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1137: IF l_debug_level > 0 THEN
1138: oe_debug_pub.add('EXC error while locking row '||sqlerrm,1);
1139: END IF;
1140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1136: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1137: IF l_debug_level > 0 THEN
1138: oe_debug_pub.add('EXC error while locking row '||sqlerrm,1);
1139: END IF;
1140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1141: END IF;
1142:
1143: l_line_tbl(l_index) := l_old_line_tbl(1);
1144: l_aso_line_tbl(l_index) := l_old_line_tbl(1);
1197: END IF;
1198: IF l_debug_level > 0 THEN
1199: oe_debug_pub.add( 'GLOBAL PICTURE INDEX IS: ' || L_NOTIFY_INDEX , 1 ) ;
1200: END IF;
1201: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1202: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1203: END IF;
1204: IF l_notify_index IS NOT NULL THEN
1205: --update Global Picture directly
1198: IF l_debug_level > 0 THEN
1199: oe_debug_pub.add( 'GLOBAL PICTURE INDEX IS: ' || L_NOTIFY_INDEX , 1 ) ;
1200: END IF;
1201: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1202: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1203: END IF;
1204: IF l_notify_index IS NOT NULL THEN
1205: --update Global Picture directly
1206: -- Fix for the bug2635911
1233: -- notification framework end
1234: ELSIF p_line_tbl(l_index).item_type_code = OE_GLOBALS.G_ITEM_SERVICE /* 2292133 */
1235: OR p_line_tbl(l_index).item_type_code IS NULL -- 2417601
1236: OR p_line_tbl(l_index).subscription_enable_flag = 'Y' --sol_ord_er #16014165
1237: OR p_line_tbl(l_index).item_type_code = FND_API.G_MISS_CHAR THEN -- 2417601
1238: l_line_rec := p_line_tbl(l_index);
1239: open srv_lines;
1240: fetch srv_lines into
1241: l_line_rec.service_start_date,
1313: p_Service_Order_Lines => l_Service_Order_Lines,
1314: x_Return_Status => l_return_status,
1315: x_Error_Message => l_msg_data);
1316:
1317: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1318: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1319: oe_debug_pub.add('l_msg_data' || l_msg_data);
1320: RAISE FND_API.G_EXC_ERROR;
1321: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1314: x_Return_Status => l_return_status,
1315: x_Error_Message => l_msg_data);
1316:
1317: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1318: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1319: oe_debug_pub.add('l_msg_data' || l_msg_data);
1320: RAISE FND_API.G_EXC_ERROR;
1321: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1322: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1316:
1317: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1318: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1319: oe_debug_pub.add('l_msg_data' || l_msg_data);
1320: RAISE FND_API.G_EXC_ERROR;
1321: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1322: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1323: oe_debug_pub.add('l_msg_data' || l_msg_data);
1324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1317: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1318: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1319: oe_debug_pub.add('l_msg_data' || l_msg_data);
1320: RAISE FND_API.G_EXC_ERROR;
1321: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1322: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1323: oe_debug_pub.add('l_msg_data' || l_msg_data);
1324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1325: END IF;
1318: oe_debug_pub.add('FND_API.G_RET_STS_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1319: oe_debug_pub.add('l_msg_data' || l_msg_data);
1320: RAISE FND_API.G_EXC_ERROR;
1321: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1322: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1323: oe_debug_pub.add('l_msg_data' || l_msg_data);
1324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1325: END IF;
1326: /* End Improved OM,IB,OKS changes */
1320: RAISE FND_API.G_EXC_ERROR;
1321: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1322: oe_debug_pub.add('FND_API.G_RET_STS_UNEXP_ERROR after call to OKS_OMINT_PUB.Interface_Service');
1323: oe_debug_pub.add('l_msg_data' || l_msg_data);
1324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1325: END IF;
1326: /* End Improved OM,IB,OKS changes */
1327:
1328:
1375: x_error_code => l_error_code,
1376: x_error_message => l_error_message);
1377: oe_debug_pub.add('After Call to csi_ont_txn_pub.posttransaction',1);
1378:
1379: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1380: IF l_debug_level > 0 THEN
1381: oe_debug_pub.add('raising unexpected error in csi_ont_txn_pub.posttransaction '||sqlerrm,1);
1382: END IF;
1383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1379: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1380: IF l_debug_level > 0 THEN
1381: oe_debug_pub.add('raising unexpected error in csi_ont_txn_pub.posttransaction '||sqlerrm,1);
1382: END IF;
1383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1384: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1385: IF l_debug_level > 0 THEN
1386: oe_debug_pub.add('raising exc error in csi_ont_txn_pub.posttransaction '||sqlerrm,1);
1387: END IF;
1380: IF l_debug_level > 0 THEN
1381: oe_debug_pub.add('raising unexpected error in csi_ont_txn_pub.posttransaction '||sqlerrm,1);
1382: END IF;
1383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1384: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1385: IF l_debug_level > 0 THEN
1386: oe_debug_pub.add('raising exc error in csi_ont_txn_pub.posttransaction '||sqlerrm,1);
1387: END IF;
1388: RAISE FND_API.G_EXC_ERROR;
1384: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1385: IF l_debug_level > 0 THEN
1386: oe_debug_pub.add('raising exc error in csi_ont_txn_pub.posttransaction '||sqlerrm,1);
1387: END IF;
1388: RAISE FND_API.G_EXC_ERROR;
1389: END IF;
1390: END IF;
1391:
1392: END LOOP;
1407: OE_GLOBALS.G_RECURSION_MODE := 'N';
1408:
1409: oe_debug_pub.add('Return Status from Process Order : '||l_return_status,2);
1410:
1411: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1413: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1414: RAISE FND_API.G_EXC_ERROR;
1415: END IF;
1408:
1409: oe_debug_pub.add('Return Status from Process Order : '||l_return_status,2);
1410:
1411: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1413: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1414: RAISE FND_API.G_EXC_ERROR;
1415: END IF;
1416: */
1409: oe_debug_pub.add('Return Status from Process Order : '||l_return_status,2);
1410:
1411: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1413: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1414: RAISE FND_API.G_EXC_ERROR;
1415: END IF;
1416: */
1417: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL < '110508' THEN
1410:
1411: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1413: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1414: RAISE FND_API.G_EXC_ERROR;
1415: END IF;
1416: */
1417: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL < '110508' THEN
1418: IF (OE_GLOBALS.G_ASO_INSTALLED = 'Y') THEN
1438:
1439: IF l_debug_level > 0 THEN
1440: oe_debug_pub.add( 'RETURNED FROM PROCESS REQUEST AND NOTIFY : '||L_RETURN_STATUS , 3 ) ;
1441: END IF;
1442: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1443: RAISE FND_API.G_EXC_ERROR;
1444: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1446: END IF;
1439: IF l_debug_level > 0 THEN
1440: oe_debug_pub.add( 'RETURNED FROM PROCESS REQUEST AND NOTIFY : '||L_RETURN_STATUS , 3 ) ;
1441: END IF;
1442: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1443: RAISE FND_API.G_EXC_ERROR;
1444: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1446: END IF;
1447: END IF; /* ASO installed */
1440: oe_debug_pub.add( 'RETURNED FROM PROCESS REQUEST AND NOTIFY : '||L_RETURN_STATUS , 3 ) ;
1441: END IF;
1442: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1443: RAISE FND_API.G_EXC_ERROR;
1444: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1446: END IF;
1447: END IF; /* ASO installed */
1448:
1441: END IF;
1442: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1443: RAISE FND_API.G_EXC_ERROR;
1444: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1446: END IF;
1447: END IF; /* ASO installed */
1448:
1449:
1464: IF l_debug_level > 0 THEN
1465: oe_debug_pub.add('returned from process request and notify : '||l_return_status,3) ;
1466: END IF;
1467:
1468: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1469: RAISE FND_API.G_EXC_ERROR;
1470: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1472: END IF;
1465: oe_debug_pub.add('returned from process request and notify : '||l_return_status,3) ;
1466: END IF;
1467:
1468: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1469: RAISE FND_API.G_EXC_ERROR;
1470: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1472: END IF;
1473:
1466: END IF;
1467:
1468: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1469: RAISE FND_API.G_EXC_ERROR;
1470: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1472: END IF;
1473:
1474:
1467:
1468: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1469: RAISE FND_API.G_EXC_ERROR;
1470: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1472: END IF;
1473:
1474:
1475: END IF; /* ASO and DBI check for Pack H and higher */
1477: END IF; --code_release_level
1478: IF l_debug_level > 0 THEN -- debug level changed to 0.5 for bug 13435459
1479: oe_debug_pub.add('Exiting fulfill_line() procedure in OEXVFULB at ',0.5) ;
1480: END IF;
1481: x_return_status := FND_API.G_RET_STS_SUCCESS;
1482:
1483: EXCEPTION
1484: WHEN CAN_NOT_LOCK_MODEL THEN
1485: IF l_debug_level > 0 THEN
1486: oe_debug_pub.add( 'OEXVFULB.pls:Fulfill_line API- MODEL LOCKING EXCEPTION' , 1 ) ;
1487: END IF;
1488: x_return_status := 'D';
1489:
1490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1491: IF l_debug_level > 0 THEN
1492: oe_debug_pub.add('Unexp Error'||sqlerrm,1);
1493: END IF;
1494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1491: IF l_debug_level > 0 THEN
1492: oe_debug_pub.add('Unexp Error'||sqlerrm,1);
1493: END IF;
1494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1495: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1496: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Fulfill_Line');
1497: END IF;
1498: G_DEBUG_MSG := G_DEBUG_MSG || 'E6,';
1495: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1496: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Fulfill_Line');
1497: END IF;
1498: G_DEBUG_MSG := G_DEBUG_MSG || 'E6,';
1499: WHEN FND_API.G_EXC_ERROR THEN
1500: IF l_debug_level > 0 THEN
1501: oe_debug_pub.add('EXC Error '||sqlerrm,1);
1502: END IF;
1503: x_return_status := FND_API.G_RET_STS_ERROR;
1499: WHEN FND_API.G_EXC_ERROR THEN
1500: IF l_debug_level > 0 THEN
1501: oe_debug_pub.add('EXC Error '||sqlerrm,1);
1502: END IF;
1503: x_return_status := FND_API.G_RET_STS_ERROR;
1504: WHEN OTHERS THEN
1505: IF l_debug_level > 0 THEN
1506: oe_debug_pub.add('Error '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
1507: END IF;
1504: WHEN OTHERS THEN
1505: IF l_debug_level > 0 THEN
1506: oe_debug_pub.add('Error '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
1507: END IF;
1508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1509: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1510: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Fulfill_Line');
1511: END IF;
1512: G_DEBUG_MSG := G_DEBUG_MSG || 'E7,';
1538: --
1539: BEGIN
1540: x_attribute_value := wf_engine.GetActivityAttrText(p_item_type,p_item_key,p_activity_id,p_fulfill_attr_name);
1541:
1542: x_return_status := FND_API.G_RET_STS_SUCCESS;
1543:
1544: EXCEPTION
1545: WHEN OTHERS THEN
1546: IF l_debug_level > 0 THEN
1551: IF l_debug_level > 0 THEN
1552: oe_debug_pub.add( 'ERROR MESSAGE '||L_ERRMSG , 1 ) ;
1553: END IF;
1554: x_attribute_value := 'NONE';
1555: x_return_status := FND_API.G_RET_STS_SUCCESS;
1556: ELSE
1557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1558: END IF;
1559:
1553: END IF;
1554: x_attribute_value := 'NONE';
1555: x_return_status := FND_API.G_RET_STS_SUCCESS;
1556: ELSE
1557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1558: END IF;
1559:
1560: END Get_Activity_Attribute;
1561:
1596: AND wias.ITEM_TYPE = p_item_type
1597: AND wpa.ACTIVITY_NAME = p_activity_name
1598: AND wias.PROCESS_ACTIVITY = wpa.INSTANCE_ID;
1599:
1600: x_return_status := FND_API.G_RET_STS_SUCCESS;
1601:
1602: IF l_debug_level > 0 THEN
1603: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.GET_ACTIVITY_RESULT '||X_ACTIVITY_RESULT||'/'||X_RETURN_STATUS , 1 ) ;
1604: END IF;
1613: FROM oe_order_lines
1614: WHERE line_id = to_number(p_item_key);
1615:
1616: IF l_upgraded_flag = 'N' THEN
1617: x_return_status := FND_API.G_RET_STS_ERROR;
1618: ELSE
1619: x_return_status := FND_API.G_RET_STS_SUCCESS;
1620: END IF;
1621: */
1615:
1616: IF l_upgraded_flag = 'N' THEN
1617: x_return_status := FND_API.G_RET_STS_ERROR;
1618: ELSE
1619: x_return_status := FND_API.G_RET_STS_SUCCESS;
1620: END IF;
1621: */
1622: x_return_status := FND_API.G_RET_STS_ERROR;
1623: G_DEBUG_MSG := G_DEBUG_MSG || '34,';
1618: ELSE
1619: x_return_status := FND_API.G_RET_STS_SUCCESS;
1620: END IF;
1621: */
1622: x_return_status := FND_API.G_RET_STS_ERROR;
1623: G_DEBUG_MSG := G_DEBUG_MSG || '34,';
1624: WHEN OTHERS THEN
1625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1626:
1621: */
1622: x_return_status := FND_API.G_RET_STS_ERROR;
1623: G_DEBUG_MSG := G_DEBUG_MSG || '34,';
1624: WHEN OTHERS THEN
1625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1626:
1627: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1628: THEN
1629: OE_MSG_PUB.Add_Exc_Msg
1673: l_return_status VARCHAR2(1);
1674: l_loop_index NUMBER := 0;
1675: l_temp_index NUMBER := 0;
1676:
1677: l_line_set_exists VARCHAR2(1) := FND_API.G_FALSE;
1678: --Start 7827727
1679: l_line_id_mod NUMBER;
1680: l_set_id_mod NUMBER;
1681: --End 7827727
1711: END IF;
1712:
1713: FOR l_line_set in c_line_set
1714: LOOP
1715: l_line_set_exists := FND_API.G_FALSE;
1716: FOR l_temp_index IN 1..l_temp_tbl.count
1717: LOOP
1718:
1719: IF l_temp_tbl(l_temp_index).line_id = l_line_set.line_id AND
1720: l_temp_tbl(l_temp_index).set_id = l_set_id THEN
1721: IF l_debug_level > 0 THEN
1722: oe_debug_pub.add( 'LINE EXISTS FOR COMBINATION' , 3 ) ;
1723: END IF;
1724: l_line_set_exists := FND_API.G_TRUE;
1725: GOTO END_LINE_SET;
1726:
1727: END IF;
1728:
1730: NULL;
1731: END LOOP;
1732:
1733:
1734: IF l_line_set_exists = FND_API.G_FALSE THEN
1735: l_temp_index := l_temp_tbl.count + 1;
1736: l_temp_tbl(l_temp_index).line_id := l_line_set.line_id;
1737: l_temp_tbl(l_temp_index).set_id := l_line_set.set_id;
1738: IF l_debug_level > 0 THEN
1758: l_loop_index := 0;
1759: FOR l_loop_index IN l_set_tbl.FIRST .. l_set_tbl.LAST
1760: LOOP
1761:
1762: l_line_set_exists := FND_API.G_FALSE;
1763: FOR l_temp_index IN 1..l_temp_tbl.count
1764: LOOP
1765:
1766: IF l_temp_tbl(l_temp_index).line_id = l_set_tbl(l_loop_index).line_id AND
1767: l_temp_tbl(l_temp_index).set_id = l_set_tbl(l_loop_index).set_id THEN
1768: IF l_debug_level > 0 THEN
1769: oe_debug_pub.add( 'LINE EXISTS FOR COMBINATION' , 3 ) ;
1770: END IF;
1771: l_line_set_exists := FND_API.G_TRUE;
1772: GOTO END_LINE_SET1;
1773:
1774: END IF;
1775:
1776: << END_LINE_SET1 >>
1777: NULL;
1778: END LOOP;
1779:
1780: IF l_line_set_exists = FND_API.G_FALSE THEN
1781: l_temp_index := l_temp_tbl.count + 1;
1782: l_temp_tbl(l_temp_index).line_id := l_set_tbl(l_loop_index).line_id;
1783: l_temp_tbl(l_temp_index).set_id := l_set_tbl(l_loop_index).set_id;
1784: IF l_debug_level > 0 THEN
1813: END IF;
1814:
1815: END LOOP;
1816:
1817: x_return_status := FND_API.G_RET_STS_SUCCESS;
1818: IF l_debug_level > 0 THEN
1819: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.GET_FULFILLMENT_SET ' , 3 ) ;
1820: END IF;
1821:
1819: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.GET_FULFILLMENT_SET ' , 3 ) ;
1820: END IF;
1821:
1822: EXCEPTION
1823: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1824: IF l_debug_level > 0 THEN
1825: oe_debug_pub.add('Unexp Error '||sqlerrm,1);
1826: END IF;
1827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1823: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1824: IF l_debug_level > 0 THEN
1825: oe_debug_pub.add('Unexp Error '||sqlerrm,1);
1826: END IF;
1827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1828:
1829: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1830: THEN
1831: OE_MSG_PUB.Add_Exc_Msg
1834: );
1835: END IF;
1836: G_DEBUG_MSG := G_DEBUG_MSG || 'E10,';
1837:
1838: WHEN FND_API.G_EXC_ERROR THEN
1839: IF l_debug_level > 0 THEN
1840: oe_debug_pub.add('Exc Error '||sqlerrm,1);
1841: END IF;
1842: x_return_status := FND_API.G_RET_STS_ERROR;
1838: WHEN FND_API.G_EXC_ERROR THEN
1839: IF l_debug_level > 0 THEN
1840: oe_debug_pub.add('Exc Error '||sqlerrm,1);
1841: END IF;
1842: x_return_status := FND_API.G_RET_STS_ERROR;
1843: WHEN OTHERS THEN
1844: IF l_debug_level > 0 THEN
1845: oe_debug_pub.add('error '||SUBSTR(SQLERRM,1,2000),1);
1846: END IF;
1843: WHEN OTHERS THEN
1844: IF l_debug_level > 0 THEN
1845: oe_debug_pub.add('error '||SUBSTR(SQLERRM,1,2000),1);
1846: END IF;
1847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1848: IF l_debug_level > 0 THEN
1849: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
1850: END IF;
1851:
1922: x_return_status => l_return_status
1923: );
1924:
1925:
1926: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1928: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1929: RAISE FND_API.G_EXC_ERROR;
1930: END IF;
1923: );
1924:
1925:
1926: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1928: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1929: RAISE FND_API.G_EXC_ERROR;
1930: END IF;
1931:
1924:
1925:
1926: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1928: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1929: RAISE FND_API.G_EXC_ERROR;
1930: END IF;
1931:
1932: IF l_fulfill_activity_name = 'NONE' OR
1925:
1926: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1928: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1929: RAISE FND_API.G_EXC_ERROR;
1930: END IF;
1931:
1932: IF l_fulfill_activity_name = 'NONE' OR
1933: l_fulfill_activity_name IS NULL THEN
1953: x_attribute_value => l_completion_result,
1954: x_return_status => l_return_status
1955: );
1956:
1957: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1958: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1959: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1960: RAISE FND_API.G_EXC_ERROR;
1961: END IF;
1954: x_return_status => l_return_status
1955: );
1956:
1957: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1958: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1959: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1960: RAISE FND_API.G_EXC_ERROR;
1961: END IF;
1962:
1955: );
1956:
1957: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1958: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1959: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1960: RAISE FND_API.G_EXC_ERROR;
1961: END IF;
1962:
1963: IF l_completion_result = 'NONE'OR
1956:
1957: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1958: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1959: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1960: RAISE FND_API.G_EXC_ERROR;
1961: END IF;
1962:
1963: IF l_completion_result = 'NONE'OR
1964: l_completion_result IS NULL THEN
1984: , x_activity_status_code => l_activity_status
1985: , x_activity_id => l_activity_id
1986: );
1987:
1988: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1989: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1990: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1991: SELECT nvl(upgraded_flag,'N') -- Bug 3589692
1992: INTO l_upgraded_flag
1985: , x_activity_id => l_activity_id
1986: );
1987:
1988: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1989: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1990: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1991: SELECT nvl(upgraded_flag,'N') -- Bug 3589692
1992: INTO l_upgraded_flag
1993: FROM oe_order_lines
1986: );
1987:
1988: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1989: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1990: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1991: SELECT nvl(upgraded_flag,'N') -- Bug 3589692
1992: INTO l_upgraded_flag
1993: FROM oe_order_lines
1994: WHERE line_id = to_number(p_item_key);
1992: INTO l_upgraded_flag
1993: FROM oe_order_lines
1994: WHERE line_id = to_number(p_item_key);
1995: IF l_upgraded_flag = 'N' THEN
1996: RAISE FND_API.G_EXC_ERROR;
1997: ELSE
1998: l_activity_status := OE_GLOBALS.G_WFR_COMPLETE;
1999: END IF; -- bug 3589692 ends
2000: END IF;
1999: END IF; -- bug 3589692 ends
2000: END IF;
2001:
2002: IF l_activity_status <> OE_GLOBALS.G_WFR_COMPLETE THEN
2003: RAISE FND_API.G_EXC_ERROR;
2004: END IF;
2005:
2006: END IF;
2007:
2015:
2016: END IF;
2017:
2018: x_fulfillment_activity := l_fulfill_activity_name;
2019: x_return_status := FND_API.G_RET_STS_SUCCESS;
2020:
2021: EXCEPTION
2022: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2018: x_fulfillment_activity := l_fulfill_activity_name;
2019: x_return_status := FND_API.G_RET_STS_SUCCESS;
2020:
2021: EXCEPTION
2022: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2024:
2025: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2026: THEN
2019: x_return_status := FND_API.G_RET_STS_SUCCESS;
2020:
2021: EXCEPTION
2022: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2024:
2025: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2026: THEN
2027: OE_MSG_PUB.Add_Exc_Msg
2030: );
2031: END IF;
2032: G_DEBUG_MSG := G_DEBUG_MSG || 'E12,';
2033:
2034: WHEN FND_API.G_EXC_ERROR THEN
2035: x_return_status := FND_API.G_RET_STS_ERROR;
2036: WHEN OTHERS THEN
2037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2038: IF l_debug_level > 0 THEN
2031: END IF;
2032: G_DEBUG_MSG := G_DEBUG_MSG || 'E12,';
2033:
2034: WHEN FND_API.G_EXC_ERROR THEN
2035: x_return_status := FND_API.G_RET_STS_ERROR;
2036: WHEN OTHERS THEN
2037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2038: IF l_debug_level > 0 THEN
2039: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
2033:
2034: WHEN FND_API.G_EXC_ERROR THEN
2035: x_return_status := FND_API.G_RET_STS_ERROR;
2036: WHEN OTHERS THEN
2037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2038: IF l_debug_level > 0 THEN
2039: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
2040: END IF;
2041:
2075: l_activity_id NUMBER;
2076: l_item_key VARCHAR2(240);
2077: l_fulfill_activity VARCHAR2(30) := 'FULFILL_LINE';
2078: l_return_status VARCHAR2(1);
2079: l_fulfill_status VARCHAR2(1) := FND_API.G_TRUE;
2080:
2081: --
2082: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2083: --
2113: IF l_debug_level > 0 THEN
2114: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS||'/'||L_ACTIVITY_STATUS , 3 ) ;
2115: END IF;
2116:
2117: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2119: ELSIF l_return_status = FND_API.G_RET_STS_ERROR OR
2120: l_activity_status <> 'NOTIFIED' THEN
2121: l_fulfill_status := FND_API.G_FALSE;
2114: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS||'/'||L_ACTIVITY_STATUS , 3 ) ;
2115: END IF;
2116:
2117: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2119: ELSIF l_return_status = FND_API.G_RET_STS_ERROR OR
2120: l_activity_status <> 'NOTIFIED' THEN
2121: l_fulfill_status := FND_API.G_FALSE;
2122: IF l_debug_level > 0 THEN
2115: END IF;
2116:
2117: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2119: ELSIF l_return_status = FND_API.G_RET_STS_ERROR OR
2120: l_activity_status <> 'NOTIFIED' THEN
2121: l_fulfill_status := FND_API.G_FALSE;
2122: IF l_debug_level > 0 THEN
2123: oe_debug_pub.add( 'LINE IS NOT FULFILLED : '||TO_CHAR ( L_TOP_LINES.LINE_ID ) , 3 ) ;
2117: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2119: ELSIF l_return_status = FND_API.G_RET_STS_ERROR OR
2120: l_activity_status <> 'NOTIFIED' THEN
2121: l_fulfill_status := FND_API.G_FALSE;
2122: IF l_debug_level > 0 THEN
2123: oe_debug_pub.add( 'LINE IS NOT FULFILLED : '||TO_CHAR ( L_TOP_LINES.LINE_ID ) , 3 ) ;
2124: END IF;
2125: GOTO END_CHECK_LOOP;
2130:
2131: << END_CHECK_LOOP >>
2132:
2133: x_fulfill_status := l_fulfill_status;
2134: x_return_status := FND_API.G_RET_STS_SUCCESS;
2135:
2136: IF l_debug_level > 0 THEN
2137: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.CHECK_PTO_KIT_FULFILLMENT '||L_FULFILL_STATUS||'/'||X_RETURN_STATUS , 1 ) ;
2138: END IF;
2138: END IF;
2139:
2140: EXCEPTION
2141:
2142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2144:
2145: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2146: THEN
2139:
2140: EXCEPTION
2141:
2142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2144:
2145: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2146: THEN
2147: OE_MSG_PUB.Add_Exc_Msg
2150: );
2151: END IF;
2152: G_DEBUG_MSG := G_DEBUG_MSG || 'E14-1,';
2153:
2154: WHEN FND_API.G_EXC_ERROR THEN
2155: x_return_status := FND_API.G_RET_STS_ERROR;
2156: G_DEBUG_MSG := G_DEBUG_MSG || 'E14-2,';
2157: WHEN OTHERS THEN
2158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2151: END IF;
2152: G_DEBUG_MSG := G_DEBUG_MSG || 'E14-1,';
2153:
2154: WHEN FND_API.G_EXC_ERROR THEN
2155: x_return_status := FND_API.G_RET_STS_ERROR;
2156: G_DEBUG_MSG := G_DEBUG_MSG || 'E14-2,';
2157: WHEN OTHERS THEN
2158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2159: IF l_debug_level > 0 THEN
2154: WHEN FND_API.G_EXC_ERROR THEN
2155: x_return_status := FND_API.G_RET_STS_ERROR;
2156: G_DEBUG_MSG := G_DEBUG_MSG || 'E14-2,';
2157: WHEN OTHERS THEN
2158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2159: IF l_debug_level > 0 THEN
2160: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
2161: END IF;
2162:
2219: ,x_line_tbl => l_old_line_tbl
2220: ,x_return_status => l_return_status
2221: );
2222:
2223: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2224: RAISE CAN_NOT_LOCK_MODEL;
2225: -- RAISE FND_API.G_EXC_ERROR;
2226: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2227: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2221: );
2222:
2223: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2224: RAISE CAN_NOT_LOCK_MODEL;
2225: -- RAISE FND_API.G_EXC_ERROR;
2226: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2227: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2228: END IF;
2229:
2222:
2223: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2224: RAISE CAN_NOT_LOCK_MODEL;
2225: -- RAISE FND_API.G_EXC_ERROR;
2226: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2227: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2228: END IF;
2229:
2230: l_line_tbl := l_old_line_tbl;
2223: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2224: RAISE CAN_NOT_LOCK_MODEL;
2225: -- RAISE FND_API.G_EXC_ERROR;
2226: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2227: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2228: END IF;
2229:
2230: l_line_tbl := l_old_line_tbl;
2231: l_line_tbl(1).fulfilled_flag := 'Y';
2264: x_error_code => l_error_code,
2265: x_error_message => l_error_message);
2266: oe_debug_pub.add('After Call to csi_ont_txn_pub.posttransaction',1);
2267:
2268: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2269: IF l_debug_level > 0 THEN
2270: oe_debug_pub.add('raising unexpected error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
2271: END IF;
2272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2268: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2269: IF l_debug_level > 0 THEN
2270: oe_debug_pub.add('raising unexpected error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
2271: END IF;
2272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2273: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2274: IF l_debug_level > 0 THEN
2275: oe_debug_pub.add('raising exc error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
2276: END IF;
2269: IF l_debug_level > 0 THEN
2270: oe_debug_pub.add('raising unexpected error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
2271: END IF;
2272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2273: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2274: IF l_debug_level > 0 THEN
2275: oe_debug_pub.add('raising exc error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
2276: END IF;
2277: RAISE FND_API.G_EXC_ERROR;
2273: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2274: IF l_debug_level > 0 THEN
2275: oe_debug_pub.add('raising exc error in csi_ont_txn_pub.posttransaction'||sqlerrm,1);
2276: END IF;
2277: RAISE FND_API.G_EXC_ERROR;
2278: END IF;
2279: END IF;
2280: -- Bug 14192627
2281:
2294: IF l_debug_level > 0 THEN
2295: oe_debug_pub.add('update_global return status for line ID '||L_LINE_TBL(1).LINE_ID||'IS:'||l_return_status,1) ;
2296: oe_debug_pub.add('update_global index in fulfill_pto_kit for line_id '||l_line_tbl(1).LINE_ID ||' is: '||l_index,1);
2297: END IF;
2298: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2299: RAISE FND_API.G_EXC_ERROR;
2300: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2302: END IF;
2295: oe_debug_pub.add('update_global return status for line ID '||L_LINE_TBL(1).LINE_ID||'IS:'||l_return_status,1) ;
2296: oe_debug_pub.add('update_global index in fulfill_pto_kit for line_id '||l_line_tbl(1).LINE_ID ||' is: '||l_index,1);
2297: END IF;
2298: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2299: RAISE FND_API.G_EXC_ERROR;
2300: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2302: END IF;
2303: IF l_index IS NOT NULL THEN
2296: oe_debug_pub.add('update_global index in fulfill_pto_kit for line_id '||l_line_tbl(1).LINE_ID ||' is: '||l_index,1);
2297: END IF;
2298: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2299: RAISE FND_API.G_EXC_ERROR;
2300: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2302: END IF;
2303: IF l_index IS NOT NULL THEN
2304: --update Global Picture directly
2297: END IF;
2298: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2299: RAISE FND_API.G_EXC_ERROR;
2300: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2302: END IF;
2303: IF l_index IS NOT NULL THEN
2304: --update Global Picture directly
2305: OE_ORDER_UTIL.g_old_line_tbl(l_index) := l_old_line_tbl(1);
2329: ,x_return_status => l_return_status
2330: ,p_line_tbl => l_line_tbl
2331: ,p_old_line_tbl => l_old_line_tbl
2332: );
2333: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2334: RAISE FND_API.G_EXC_ERROR;
2335: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2337: END IF;
2330: ,p_line_tbl => l_line_tbl
2331: ,p_old_line_tbl => l_old_line_tbl
2332: );
2333: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2334: RAISE FND_API.G_EXC_ERROR;
2335: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2337: END IF;
2338:
2331: ,p_old_line_tbl => l_old_line_tbl
2332: );
2333: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2334: RAISE FND_API.G_EXC_ERROR;
2335: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2337: END IF;
2338:
2339: ELSE /*pre-pack H*/
2332: );
2333: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2334: RAISE FND_API.G_EXC_ERROR;
2335: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2337: END IF;
2338:
2339: ELSE /*pre-pack H*/
2340:
2356: , p_old_line_tbl => l_old_line_tbl
2357: );
2358:
2359:
2360: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2361: RAISE FND_API.G_EXC_ERROR;
2362: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2364: END IF;
2357: );
2358:
2359:
2360: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2361: RAISE FND_API.G_EXC_ERROR;
2362: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2364: END IF;
2365:
2358:
2359:
2360: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2361: RAISE FND_API.G_EXC_ERROR;
2362: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2364: END IF;
2365:
2366: END IF; -- code_release_level
2359:
2360: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2361: RAISE FND_API.G_EXC_ERROR;
2362: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2364: END IF;
2365:
2366: END IF; -- code_release_level
2367: END IF;
2374:
2375: IF l_debug_level > 0 THEN
2376: oe_debug_pub.add('Return status from flow status '||l_return_status,3) ;
2377: END IF;
2378: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2380: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2381: RAISE FND_API.G_EXC_ERROR;
2382: END IF;
2375: IF l_debug_level > 0 THEN
2376: oe_debug_pub.add('Return status from flow status '||l_return_status,3) ;
2377: END IF;
2378: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2380: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2381: RAISE FND_API.G_EXC_ERROR;
2382: END IF;
2383: IF l_debug_level > 0 THEN
2376: oe_debug_pub.add('Return status from flow status '||l_return_status,3) ;
2377: END IF;
2378: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2380: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2381: RAISE FND_API.G_EXC_ERROR;
2382: END IF;
2383: IF l_debug_level > 0 THEN
2384: oe_debug_pub.add('Fulfill associated service lines' , 3 ) ;
2377: END IF;
2378: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2380: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2381: RAISE FND_API.G_EXC_ERROR;
2382: END IF;
2383: IF l_debug_level > 0 THEN
2384: oe_debug_pub.add('Fulfill associated service lines' , 3 ) ;
2385: END IF;
2394: IF l_debug_level > 0 THEN
2395: oe_debug_pub.add('Return status from fulfill service lines '||l_return_status , 3 ) ;
2396: END IF;
2397:
2398: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2400: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2401: RAISE FND_API.G_EXC_ERROR;
2402: END IF;
2395: oe_debug_pub.add('Return status from fulfill service lines '||l_return_status , 3 ) ;
2396: END IF;
2397:
2398: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2400: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2401: RAISE FND_API.G_EXC_ERROR;
2402: END IF;
2403: IF l_debug_level > 0 THEN
2396: END IF;
2397:
2398: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2400: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2401: RAISE FND_API.G_EXC_ERROR;
2402: END IF;
2403: IF l_debug_level > 0 THEN
2404: oe_debug_pub.add('Calling wf_engine.completeactivityinternalname '||to_char(l_top_lines.line_id),3) ;
2397:
2398: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2400: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2401: RAISE FND_API.G_EXC_ERROR;
2402: END IF;
2403: IF l_debug_level > 0 THEN
2404: oe_debug_pub.add('Calling wf_engine.completeactivityinternalname '||to_char(l_top_lines.line_id),3) ;
2405: END IF;
2415: END IF;
2416:
2417: END LOOP;
2418:
2419: x_return_status := FND_API.G_RET_STS_SUCCESS;
2420:
2421: IF l_debug_level > 0 THEN
2422: oe_debug_pub.add('Exiting oe_line_fullfill.fulfill_pto_kit '||x_return_status,3) ;
2423: END IF;
2429: oe_debug_pub.add( 'OEXVSHPB.pls:Fulfill_PTO_KIT-MODEL LOCKING EXCEPTION', 1 ) ;
2430: END IF;
2431: x_return_status := 'D' ;
2432:
2433: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2435: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2436: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Fulfill_PTO_KIT');
2437: END IF;
2430: END IF;
2431: x_return_status := 'D' ;
2432:
2433: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2435: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2436: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Fulfill_PTO_KIT');
2437: END IF;
2438: G_DEBUG_MSG := G_DEBUG_MSG || 'E15,';
2435: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2436: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Fulfill_PTO_KIT');
2437: END IF;
2438: G_DEBUG_MSG := G_DEBUG_MSG || 'E15,';
2439: WHEN FND_API.G_EXC_ERROR THEN
2440: x_return_status := FND_API.G_RET_STS_ERROR;
2441: G_DEBUG_MSG := G_DEBUG_MSG || 'E16,';
2442: WHEN OTHERS THEN
2443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2436: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Fulfill_PTO_KIT');
2437: END IF;
2438: G_DEBUG_MSG := G_DEBUG_MSG || 'E15,';
2439: WHEN FND_API.G_EXC_ERROR THEN
2440: x_return_status := FND_API.G_RET_STS_ERROR;
2441: G_DEBUG_MSG := G_DEBUG_MSG || 'E16,';
2442: WHEN OTHERS THEN
2443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2444: IF l_debug_level > 0 THEN
2439: WHEN FND_API.G_EXC_ERROR THEN
2440: x_return_status := FND_API.G_RET_STS_ERROR;
2441: G_DEBUG_MSG := G_DEBUG_MSG || 'E16,';
2442: WHEN OTHERS THEN
2443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2444: IF l_debug_level > 0 THEN
2445: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
2446: END IF;
2447: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2479: l_service_tbl OE_Order_Pub.Line_Tbl_Type;
2480: l_service_index NUMBER;
2481: l_line_index NUMBER;
2482: l_fulfill_index NUMBER := 0 ;
2483: l_fulfilled_flag VARCHAR2(1) := FND_API.G_TRUE;
2484: l_return_status VARCHAR2(1);
2485: l_line_id NUMBER;
2486: l_activity_status VARCHAR2(8);
2487: l_activity_result VARCHAR2(30);
2498: l_hold_result_out VARCHAR2(30):= 'TRUE';
2499:
2500: TYPE Fulfill_Service_Rec IS RECORD
2501: (
2502: line_id NUMBER := FND_API.G_MISS_NUM
2503: , header_id NUMBER := FND_API.G_MISS_NUM
2504: );
2505:
2506: TYPE Fulfill_Service_Tbl IS TABLE OF Fulfill_Service_Rec
2499:
2500: TYPE Fulfill_Service_Rec IS RECORD
2501: (
2502: line_id NUMBER := FND_API.G_MISS_NUM
2503: , header_id NUMBER := FND_API.G_MISS_NUM
2504: );
2505:
2506: TYPE Fulfill_Service_Tbl IS TABLE OF Fulfill_Service_Rec
2507: INDEX BY BINARY_INTEGER;
2561: IF l_debug_level > 0 THEN
2562: oe_debug_pub.add( 'CAN NOT FULFILL MODEL YET!!' , 1 ) ;
2563: END IF;
2564:
2565: l_fulfilled_flag := FND_API.G_FALSE;
2566: GOTO END_PTO_KIT_LOOP;
2567:
2568: END IF;
2569: END IF;
2586: END IF;
2587:
2588:
2589: IF l_pto_kit_lines.line_id <> p_line_id OR
2590: p_process_all = FND_API.G_TRUE THEN
2591: IF l_pto_kit_lines.fulfilled_flag = 'Y' THEN
2592: l_fulfilled_flag := FND_API.G_TRUE;
2593: IF l_debug_level > 0 THEN
2594: oe_debug_pub.add('line '||l_pto_kit_lines.line_id||' is already fulfilled ',5);
2588:
2589: IF l_pto_kit_lines.line_id <> p_line_id OR
2590: p_process_all = FND_API.G_TRUE THEN
2591: IF l_pto_kit_lines.fulfilled_flag = 'Y' THEN
2592: l_fulfilled_flag := FND_API.G_TRUE;
2593: IF l_debug_level > 0 THEN
2594: oe_debug_pub.add('line '||l_pto_kit_lines.line_id||' is already fulfilled ',5);
2595: END IF;
2596: ELSE
2615: IF l_debug_level > 0 THEN
2616: oe_debug_pub.add('return status - '||l_return_status||'/'||l_activity_status,5);
2617: END IF;
2618:
2619: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2621: ELSIF l_return_status = FND_API.G_RET_STS_ERROR OR
2622: l_activity_status <> 'NOTIFIED' THEN
2623: l_fulfilled_flag := FND_API.G_FALSE;
2616: oe_debug_pub.add('return status - '||l_return_status||'/'||l_activity_status,5);
2617: END IF;
2618:
2619: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2621: ELSIF l_return_status = FND_API.G_RET_STS_ERROR OR
2622: l_activity_status <> 'NOTIFIED' THEN
2623: l_fulfilled_flag := FND_API.G_FALSE;
2624: x_fulfillment_status := FND_API.G_FALSE;
2617: END IF;
2618:
2619: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2621: ELSIF l_return_status = FND_API.G_RET_STS_ERROR OR
2622: l_activity_status <> 'NOTIFIED' THEN
2623: l_fulfilled_flag := FND_API.G_FALSE;
2624: x_fulfillment_status := FND_API.G_FALSE;
2625: IF l_debug_level > 0 THEN
2619: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2621: ELSIF l_return_status = FND_API.G_RET_STS_ERROR OR
2622: l_activity_status <> 'NOTIFIED' THEN
2623: l_fulfilled_flag := FND_API.G_FALSE;
2624: x_fulfillment_status := FND_API.G_FALSE;
2625: IF l_debug_level > 0 THEN
2626: oe_debug_pub.add('line '||l_pto_kit_lines.line_id||' is not fulfilled ',5);
2627: END IF;
2620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2621: ELSIF l_return_status = FND_API.G_RET_STS_ERROR OR
2622: l_activity_status <> 'NOTIFIED' THEN
2623: l_fulfilled_flag := FND_API.G_FALSE;
2624: x_fulfillment_status := FND_API.G_FALSE;
2625: IF l_debug_level > 0 THEN
2626: oe_debug_pub.add('line '||l_pto_kit_lines.line_id||' is not fulfilled ',5);
2627: END IF;
2628: GOTO END_PTO_KIT_LOOP;
2656: x_msg_data => x_msg_data);
2657:
2658: oe_debug_pub.add('after model check '||l_hold_result_out,1);
2659:
2660: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2661: IF l_hold_result_out = FND_API.G_TRUE THEN
2662: IF l_debug_level > 0 THEN
2663: oe_debug_pub.add('Model on Hold - CAN NOT FULFILL MODEL YET!!' , 1 ) ;
2664: END IF;
2657:
2658: oe_debug_pub.add('after model check '||l_hold_result_out,1);
2659:
2660: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2661: IF l_hold_result_out = FND_API.G_TRUE THEN
2662: IF l_debug_level > 0 THEN
2663: oe_debug_pub.add('Model on Hold - CAN NOT FULFILL MODEL YET!!' , 1 ) ;
2664: END IF;
2665: l_fulfilled_flag := FND_API.G_FALSE;
2661: IF l_hold_result_out = FND_API.G_TRUE THEN
2662: IF l_debug_level > 0 THEN
2663: oe_debug_pub.add('Model on Hold - CAN NOT FULFILL MODEL YET!!' , 1 ) ;
2664: END IF;
2665: l_fulfilled_flag := FND_API.G_FALSE;
2666: GOTO END_PTO_KIT_LOOP;
2667: END IF;
2668: END IF;
2669: END IF;
2673: fulfilled flag is not set it will be a line without fulfillment
2674: activity. So for the purpose of Configuration fulfillment it
2675: will can be considered as fulfilled */
2676:
2677: l_fulfilled_flag := FND_API.G_TRUE;
2678: IF l_debug_level > 0 THEN
2679: oe_debug_pub.add( 'LINE IS FULFILLED : '||TO_CHAR ( L_PTO_KIT_LINES.LINE_ID ) , 3 ) ;
2680: END IF;
2681: END IF;
2683:
2684: END LOOP;
2685: << END_PTO_KIT_LOOP >>
2686:
2687: IF l_fulfilled_flag = FND_API.G_TRUE AND p_part_of_fullfillment_set THEN
2688:
2689: x_fulfillment_status := l_fulfilled_flag;
2690: x_return_status := FND_API.G_RET_STS_SUCCESS;
2691: IF l_debug_level > 0 THEN
2686:
2687: IF l_fulfilled_flag = FND_API.G_TRUE AND p_part_of_fullfillment_set THEN
2688:
2689: x_fulfillment_status := l_fulfilled_flag;
2690: x_return_status := FND_API.G_RET_STS_SUCCESS;
2691: IF l_debug_level > 0 THEN
2692: oe_debug_pub.add('line is part of fulfillment set',1);
2693: END IF;
2694: RETURN;
2693: END IF;
2694: RETURN;
2695: END IF;
2696:
2697: IF l_fulfilled_flag = FND_API.G_TRUE THEN
2698:
2699: -- Prepare the table to update the fulfilled quantity and fulfilled
2700: -- flag for derived lines.
2701:
2717: IF l_debug_level > 0 THEN
2718: oe_debug_pub.add('index/line_id/fulfilled :'||l_line_index||'/'||l_line_tbl(l_line_index).line_id||'/'||l_line_tbl(l_line_index).fulfilled_flag,5);
2719: END IF;
2720: IF (l_line_tbl(l_line_index).line_id <> p_line_id OR
2721: p_process_all = FND_API.G_TRUE) AND
2722: nvl(l_line_tbl(l_line_index).fulfilled_flag,'N') <> 'Y' THEN
2723:
2724: l_fulfill_index := l_fulfill_index + 1;
2725: l_fulfill_tbl(l_fulfill_index) := OE_Order_PUB.G_MISS_LINE_REC;
2767: x_return_status => l_return_status,
2768: x_line_tbl => l_service_tbl
2769: );
2770:
2771: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2773: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2774: GOTO END_FULFILL_LOOP;
2775: END IF;
2768: x_line_tbl => l_service_tbl
2769: );
2770:
2771: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2773: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2774: GOTO END_FULFILL_LOOP;
2775: END IF;
2776:
2769: );
2770:
2771: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2773: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2774: GOTO END_FULFILL_LOOP;
2775: END IF;
2776:
2777: /* Add service lines to l_fulfill_tbl for fulfillment */
2849: IF l_debug_level > 0 THEN
2850: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL LINE : '||L_RETURN_STATUS , 3 ) ;
2851: END IF;
2852:
2853: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2855: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2856: RAISE FND_API.G_EXC_ERROR;
2857: END IF;
2850: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL LINE : '||L_RETURN_STATUS , 3 ) ;
2851: END IF;
2852:
2853: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2855: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2856: RAISE FND_API.G_EXC_ERROR;
2857: END IF;
2858:
2851: END IF;
2852:
2853: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2855: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2856: RAISE FND_API.G_EXC_ERROR;
2857: END IF;
2858:
2859:
2852:
2853: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2855: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2856: RAISE FND_API.G_EXC_ERROR;
2857: END IF;
2858:
2859:
2860: -- Complete the FULFILL_LINE activity for the fulfilled lines.
2861:
2862: FOR l_line_index IN 1 .. l_line_tbl.count
2863: LOOP
2864: IF l_line_tbl(l_line_index).line_id <> p_line_id OR
2865: p_process_all = FND_API.G_TRUE THEN
2866: l_line_id := l_line_tbl(l_line_index).line_id;
2867:
2868: IF l_debug_level > 0 THEN
2869: oe_debug_pub.add('update the flow status code on the lines ',5);
2878: IF l_debug_level > 0 THEN
2879: oe_debug_pub.add('after update of flow status '||l_return_status,5);
2880: END IF;
2881:
2882: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2884: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2885: RAISE FND_API.G_EXC_ERROR;
2886: END IF;
2879: oe_debug_pub.add('after update of flow status '||l_return_status,5);
2880: END IF;
2881:
2882: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2884: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2885: RAISE FND_API.G_EXC_ERROR;
2886: END IF;
2887:
2880: END IF;
2881:
2882: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2884: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2885: RAISE FND_API.G_EXC_ERROR;
2886: END IF;
2887:
2888: IF l_debug_level > 0 THEN
2881:
2882: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2884: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2885: RAISE FND_API.G_EXC_ERROR;
2886: END IF;
2887:
2888: IF l_debug_level > 0 THEN
2889: oe_debug_pub.add('** complete the WF activity on this '||l_line_id,1);
2926: IF l_debug_level > 0 THEN
2927: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
2928: END IF;
2929:
2930: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2932: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2933: RAISE FND_API.G_EXC_ERROR;
2934: END IF;
2927: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
2928: END IF;
2929:
2930: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2932: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2933: RAISE FND_API.G_EXC_ERROR;
2934: END IF;
2935:
2928: END IF;
2929:
2930: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2932: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2933: RAISE FND_API.G_EXC_ERROR;
2934: END IF;
2935:
2936: IF l_debug_level > 0 THEN
2929:
2930: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2932: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2933: RAISE FND_API.G_EXC_ERROR;
2934: END IF;
2935:
2936: IF l_debug_level > 0 THEN
2937: oe_debug_pub.add('call complete WF for this service line - '||l_line_id,5);
2953:
2954: END IF;
2955:
2956: x_fulfillment_status := l_fulfilled_flag;
2957: x_return_status := FND_API.G_RET_STS_SUCCESS;
2958:
2959: IF l_debug_level > 0 THEN
2960: oe_debug_pub.add('** complete OE_Line_Fullfill.Process_PTO_Kit() ',1);
2961: END IF;
2960: oe_debug_pub.add('** complete OE_Line_Fullfill.Process_PTO_Kit() ',1);
2961: END IF;
2962:
2963: EXCEPTION
2964: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2965: IF l_debug_level > 0 THEN
2966: oe_debug_pub.add('*** 1. Error - '||SUBSTR(SQLERRM,1,200),1);
2967: END IF;
2968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2964: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2965: IF l_debug_level > 0 THEN
2966: oe_debug_pub.add('*** 1. Error - '||SUBSTR(SQLERRM,1,200),1);
2967: END IF;
2968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2969:
2970: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2971: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Process_PTO_KIT');
2972: END IF;
2970: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2971: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Process_PTO_KIT');
2972: END IF;
2973:
2974: WHEN FND_API.G_EXC_ERROR THEN
2975: IF l_debug_level > 0 THEN
2976: oe_debug_pub.add('*** 2. Error - '||SUBSTR(SQLERRM,1,200),1);
2977: END IF;
2978: x_return_status := FND_API.G_RET_STS_ERROR;
2974: WHEN FND_API.G_EXC_ERROR THEN
2975: IF l_debug_level > 0 THEN
2976: oe_debug_pub.add('*** 2. Error - '||SUBSTR(SQLERRM,1,200),1);
2977: END IF;
2978: x_return_status := FND_API.G_RET_STS_ERROR;
2979:
2980: WHEN OTHERS THEN
2981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2982: IF l_debug_level > 0 THEN
2977: END IF;
2978: x_return_status := FND_API.G_RET_STS_ERROR;
2979:
2980: WHEN OTHERS THEN
2981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2982: IF l_debug_level > 0 THEN
2983: oe_debug_pub.add('*** 3. Error - '||SUBSTR(SQLERRM,1,200),1);
2984: END IF;
2985:
3011: IS
3012: l_line_set_index NUMBER := 0;
3013: l_prev_set_id NUMBER := 0;
3014: l_line_rec OE_ORDER_PUB.Line_Rec_Type;
3015: l_fulfilled_flag VARCHAR2(1) := FND_API.G_TRUE;
3016: l_item_key VARCHAR2(240);
3017: l_fulfill_activity VARCHAR2(30) := 'FULFILL_LINE';
3018: l_activity_status VARCHAR2(8);
3019: l_activity_result VARCHAR2(30);
3031: l_fulfill_index NUMBER := 0 ;
3032: l_process_tbl Line_Set_Tbl_Type;
3033: l_process_index NUMBER := 0;
3034: l_fulfillment_status VARCHAR2(1);
3035: l_process_all VARCHAR2(1) := FND_API.G_TRUE;
3036: l_top_model_line_id NUMBER;
3037: l_header_id NUMBER;
3038: l_service_tbl OE_Order_Pub.Line_Tbl_Type;
3039: l_service_index NUMBER;
3089:
3090: END IF;
3091:
3092: IF l_line_rec.top_model_line_id IS NOT NULL AND
3093: l_line_rec.top_model_line_id <> FND_API.G_MISS_NUM THEN
3094: IF l_debug_level > 0 THEN
3095: oe_debug_pub.add( 'LINE IS PART OF A CONFIGURATION : '||TO_CHAR ( L_LINE_REC.LINE_ID ) ||'/'||L_LINE_REC.ITEM_TYPE_CODE , 3 ) ;
3096: END IF;
3097:
3161: IF l_top_model_line_id = nvl(l_process_tbl(l_line_set_index).line_id,0) THEN
3162: IF l_debug_level > 0 THEN
3163: oe_debug_pub.add( 'DO NOT PROCESS ALL THE LINES ' , 3 ) ;
3164: END IF;
3165: l_process_all := FND_API.G_FALSE;
3166: ELSE
3167: IF l_debug_level > 0 THEN
3168: oe_debug_pub.add( 'PROCESS ALL THE LINES ' , 3 ) ;
3169: END IF;
3166: ELSE
3167: IF l_debug_level > 0 THEN
3168: oe_debug_pub.add( 'PROCESS ALL THE LINES ' , 3 ) ;
3169: END IF;
3170: l_process_all := FND_API.G_TRUE;
3171: END IF;
3172:
3173:
3174: IF l_debug_level > 0 THEN
3188: IF l_debug_level > 0 THEN
3189: oe_debug_pub.add( 'RETURN STATUS/FULFILLMENT STATUS : '||L_RETURN_STATUS||'/'||L_FULFILLMENT_STATUS , 3 ) ;
3190: END IF;
3191:
3192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3194: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3195: RAISE FND_API.G_EXC_ERROR;
3196: END IF;
3189: oe_debug_pub.add( 'RETURN STATUS/FULFILLMENT STATUS : '||L_RETURN_STATUS||'/'||L_FULFILLMENT_STATUS , 3 ) ;
3190: END IF;
3191:
3192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3194: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3195: RAISE FND_API.G_EXC_ERROR;
3196: END IF;
3197:
3190: END IF;
3191:
3192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3194: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3195: RAISE FND_API.G_EXC_ERROR;
3196: END IF;
3197:
3198:
3191:
3192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3194: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3195: RAISE FND_API.G_EXC_ERROR;
3196: END IF;
3197:
3198:
3199: IF l_fulfillment_status = FND_API.G_TRUE THEN
3195: RAISE FND_API.G_EXC_ERROR;
3196: END IF;
3197:
3198:
3199: IF l_fulfillment_status = FND_API.G_TRUE THEN
3200: l_fulfilled_flag := FND_API.G_TRUE;
3201: IF l_debug_level > 0 THEN
3202: oe_debug_pub.add( 'CONFIGURATION IS FULFILLED : '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3203: END IF;
3196: END IF;
3197:
3198:
3199: IF l_fulfillment_status = FND_API.G_TRUE THEN
3200: l_fulfilled_flag := FND_API.G_TRUE;
3201: IF l_debug_level > 0 THEN
3202: oe_debug_pub.add( 'CONFIGURATION IS FULFILLED : '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3203: END IF;
3204: ELSE
3201: IF l_debug_level > 0 THEN
3202: oe_debug_pub.add( 'CONFIGURATION IS FULFILLED : '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3203: END IF;
3204: ELSE
3205: l_fulfilled_flag := FND_API.G_FALSE;
3206: x_fulfillment_status := FND_API.G_FALSE;
3207: IF l_debug_level > 0 THEN
3208: oe_debug_pub.add( 'CONFIGURATION IS NOT FULFILLED : '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3209: END IF;
3202: oe_debug_pub.add( 'CONFIGURATION IS FULFILLED : '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3203: END IF;
3204: ELSE
3205: l_fulfilled_flag := FND_API.G_FALSE;
3206: x_fulfillment_status := FND_API.G_FALSE;
3207: IF l_debug_level > 0 THEN
3208: oe_debug_pub.add( 'CONFIGURATION IS NOT FULFILLED : '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3209: END IF;
3210: GOTO END_CHECK_FULFILLMENT;
3215: -- l_process_tbl(l_line_set_index).type = 'S' THEN --commented for bug12869907
3216: l_process_tbl(l_line_set_index).type IN ('R', 'S') THEN
3217:
3218: IF l_process_tbl(l_line_set_index).fulfilled_flag = 'Y' THEN
3219: l_fulfilled_flag := FND_API.G_TRUE;
3220: IF l_debug_level > 0 THEN
3221: oe_debug_pub.add( 'LINE IS FULFILLED : '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3222: END IF;
3223: ELSE
3242: IF l_debug_level > 0 THEN
3243: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS||L_ACTIVITY_STATUS , 3 ) ;
3244: END IF;
3245:
3246: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3248: ELSIF l_return_status = FND_API.G_RET_STS_ERROR OR
3249: l_activity_status <> 'NOTIFIED' THEN
3250: l_fulfilled_flag := FND_API.G_FALSE;
3243: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS||L_ACTIVITY_STATUS , 3 ) ;
3244: END IF;
3245:
3246: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3248: ELSIF l_return_status = FND_API.G_RET_STS_ERROR OR
3249: l_activity_status <> 'NOTIFIED' THEN
3250: l_fulfilled_flag := FND_API.G_FALSE;
3251: x_fulfillment_status := FND_API.G_FALSE;
3244: END IF;
3245:
3246: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3248: ELSIF l_return_status = FND_API.G_RET_STS_ERROR OR
3249: l_activity_status <> 'NOTIFIED' THEN
3250: l_fulfilled_flag := FND_API.G_FALSE;
3251: x_fulfillment_status := FND_API.G_FALSE;
3252: IF l_debug_level > 0 THEN
3246: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3248: ELSIF l_return_status = FND_API.G_RET_STS_ERROR OR
3249: l_activity_status <> 'NOTIFIED' THEN
3250: l_fulfilled_flag := FND_API.G_FALSE;
3251: x_fulfillment_status := FND_API.G_FALSE;
3252: IF l_debug_level > 0 THEN
3253: oe_debug_pub.add( 'LINE IS NOT FULFILLED : '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3254: END IF;
3247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3248: ELSIF l_return_status = FND_API.G_RET_STS_ERROR OR
3249: l_activity_status <> 'NOTIFIED' THEN
3250: l_fulfilled_flag := FND_API.G_FALSE;
3251: x_fulfillment_status := FND_API.G_FALSE;
3252: IF l_debug_level > 0 THEN
3253: oe_debug_pub.add( 'LINE IS NOT FULFILLED : '||TO_CHAR ( L_PROCESS_TBL ( L_LINE_SET_INDEX ) .LINE_ID ) , 3 ) ;
3254: END IF;
3255: GOTO END_CHECK_FULFILLMENT;
3259: fulfilled flag is not set it will be a line without fulfillment
3260: activity. So for the purpose of fulfillment set fulfillment it will
3261: can be considered as fulfilled */
3262:
3263: l_fulfilled_flag := FND_API.G_TRUE;
3264:
3265: END IF;
3266:
3267: END IF;
3272:
3273: /* If the fulfilled flag after the above loop is TRUE, complete the
3274: fulfill line work flow for all the lines except the current line */
3275:
3276: IF l_fulfilled_flag = FND_API.G_TRUE THEN
3277:
3278: /* Prepare a table of lines which have not been fulfilled to update
3279: the fulfillment related attributes and comlpete the fulfill line */
3280:
3297: x_return_status => l_return_status,
3298: x_line_tbl => l_service_tbl
3299: );
3300:
3301: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3303: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3304: GOTO END_SERVICE_LINE;
3305: END IF;
3298: x_line_tbl => l_service_tbl
3299: );
3300:
3301: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3303: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3304: GOTO END_SERVICE_LINE;
3305: END IF;
3306:
3299: );
3300:
3301: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3303: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3304: GOTO END_SERVICE_LINE;
3305: END IF;
3306:
3307: /* Add service lines to l_fulfill_tbl for fulfillment */
3438: IF l_debug_level > 0 THEN
3439: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL LINE : '||L_RETURN_STATUS , 3 ) ;
3440: END IF;
3441:
3442: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3444: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3445: RAISE FND_API.G_EXC_ERROR;
3446: END IF;
3439: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL LINE : '||L_RETURN_STATUS , 3 ) ;
3440: END IF;
3441:
3442: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3444: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3445: RAISE FND_API.G_EXC_ERROR;
3446: END IF;
3447:
3440: END IF;
3441:
3442: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3444: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3445: RAISE FND_API.G_EXC_ERROR;
3446: END IF;
3447:
3448: END IF;
3441:
3442: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3444: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3445: RAISE FND_API.G_EXC_ERROR;
3446: END IF;
3447:
3448: END IF;
3449:
3472: IF l_debug_level > 0 THEN
3473: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
3474: END IF;
3475:
3476: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3477: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3478: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3479: RAISE FND_API.G_EXC_ERROR;
3480: END IF;
3473: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
3474: END IF;
3475:
3476: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3477: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3478: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3479: RAISE FND_API.G_EXC_ERROR;
3480: END IF;
3481:
3474: END IF;
3475:
3476: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3477: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3478: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3479: RAISE FND_API.G_EXC_ERROR;
3480: END IF;
3481:
3482: IF l_debug_level > 0 THEN
3475:
3476: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3477: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3478: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3479: RAISE FND_API.G_EXC_ERROR;
3480: END IF;
3481:
3482: IF l_debug_level > 0 THEN
3483: oe_debug_pub.add( 'CALLING WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_LINE_TBL ( L_LINE_TBL_INDEX ) ) , 3 ) ;
3517: END LOOP;
3518:
3519: END IF;
3520:
3521: x_return_status := FND_API.G_RET_STS_SUCCESS;
3522: x_fulfillment_status := l_fulfilled_flag;
3523: IF l_debug_level > 0 THEN
3524: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.PROCESS_FULFILLMENT_SET '||X_RETURN_STATUS||'/'||X_FULFILLMENT_STATUS , 1 ) ;
3525: END IF;
3525: END IF;
3526:
3527:
3528: EXCEPTION
3529: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3531:
3532: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3533: THEN
3526:
3527:
3528: EXCEPTION
3529: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3531:
3532: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3533: THEN
3534: OE_MSG_PUB.Add_Exc_Msg
3537: );
3538: END IF;
3539: G_DEBUG_MSG := G_DEBUG_MSG || 'E20,';
3540:
3541: WHEN FND_API.G_EXC_ERROR THEN
3542: x_return_status := FND_API.G_RET_STS_ERROR;
3543: G_DEBUG_MSG := G_DEBUG_MSG || 'E20-1,';
3544: WHEN OTHERS THEN
3545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3538: END IF;
3539: G_DEBUG_MSG := G_DEBUG_MSG || 'E20,';
3540:
3541: WHEN FND_API.G_EXC_ERROR THEN
3542: x_return_status := FND_API.G_RET_STS_ERROR;
3543: G_DEBUG_MSG := G_DEBUG_MSG || 'E20-1,';
3544: WHEN OTHERS THEN
3545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3546: IF l_debug_level > 0 THEN
3541: WHEN FND_API.G_EXC_ERROR THEN
3542: x_return_status := FND_API.G_RET_STS_ERROR;
3543: G_DEBUG_MSG := G_DEBUG_MSG || 'E20-1,';
3544: WHEN OTHERS THEN
3545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3546: IF l_debug_level > 0 THEN
3547: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
3548: END IF;
3549:
3666: IF l_debug_level > 0 THEN
3667: oe_debug_pub.add( 'RETURN STATUS FROM GET FULFILLMENT SET : '||L_RETURN_STATUS||'/'||TO_CHAR ( L_SET_TBL.COUNT ) , 3 ) ;
3668: END IF;
3669:
3670: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3671: IF l_debug_level > 0 THEN
3672: oe_debug_pub.add('unexp error while getting fulfillment set info '||sqlerrm,1);
3673: END IF;
3674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3670: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3671: IF l_debug_level > 0 THEN
3672: oe_debug_pub.add('unexp error while getting fulfillment set info '||sqlerrm,1);
3673: END IF;
3674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3675: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3676: IF l_debug_level > 0 THEN
3677: oe_debug_pub.add('exc error while getting fulfillment set info '||sqlerrm,1);
3678: END IF;
3671: IF l_debug_level > 0 THEN
3672: oe_debug_pub.add('unexp error while getting fulfillment set info '||sqlerrm,1);
3673: END IF;
3674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3675: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3676: IF l_debug_level > 0 THEN
3677: oe_debug_pub.add('exc error while getting fulfillment set info '||sqlerrm,1);
3678: END IF;
3679: RAISE FND_API.G_EXC_ERROR;
3675: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3676: IF l_debug_level > 0 THEN
3677: oe_debug_pub.add('exc error while getting fulfillment set info '||sqlerrm,1);
3678: END IF;
3679: RAISE FND_API.G_EXC_ERROR;
3680: END IF;
3681:
3682: /* Lock the relevent lines */
3683:
3839: );
3840:
3841:
3842:
3843: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3845: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3846: RAISE FND_API.G_EXC_ERROR;
3847: END IF;
3840:
3841:
3842:
3843: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3845: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3846: RAISE FND_API.G_EXC_ERROR;
3847: END IF;
3848:
3841:
3842:
3843: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3845: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3846: RAISE FND_API.G_EXC_ERROR;
3847: END IF;
3848:
3849: IF l_debug_level > 0 THEN
3842:
3843: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3845: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3846: RAISE FND_API.G_EXC_ERROR;
3847: END IF;
3848:
3849: IF l_debug_level > 0 THEN
3850: oe_debug_pub.add( 'FULFILLMENT ACTIVITY : '|| L_FULFILLMENT_ACTIVITY , 3 ) ;
3877: END IF;
3878:
3879: IF l_return_status = 'D' THEN
3880: RAISE CAN_NOT_LOCK_MODEL;
3881: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3883: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3884: RAISE FND_API.G_EXC_ERROR;
3885: END IF;
3878:
3879: IF l_return_status = 'D' THEN
3880: RAISE CAN_NOT_LOCK_MODEL;
3881: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3883: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3884: RAISE FND_API.G_EXC_ERROR;
3885: END IF;
3886: ELSE
3879: IF l_return_status = 'D' THEN
3880: RAISE CAN_NOT_LOCK_MODEL;
3881: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3883: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3884: RAISE FND_API.G_EXC_ERROR;
3885: END IF;
3886: ELSE
3887: l_fulfillment_type := G_FULFILL_NO_ACTIVITY;
3880: RAISE CAN_NOT_LOCK_MODEL;
3881: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3883: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3884: RAISE FND_API.G_EXC_ERROR;
3885: END IF;
3886: ELSE
3887: l_fulfillment_type := G_FULFILL_NO_ACTIVITY;
3888: --l_fulfillment_activity := FND_API.G_MISS_CHAR;
3884: RAISE FND_API.G_EXC_ERROR;
3885: END IF;
3886: ELSE
3887: l_fulfillment_type := G_FULFILL_NO_ACTIVITY;
3888: --l_fulfillment_activity := FND_API.G_MISS_CHAR;
3889: END IF;
3890:
3891: IF l_set_tbl.count > 0 THEN
3892: -- Processing for Fulfillment set
3909: IF l_debug_level > 0 THEN
3910: oe_debug_pub.add( 'RETURN STATUS/FULFILLMENT STATUS : '||L_RETURN_STATUS||'/'||L_FULFILLMENT_STATUS , 3 ) ;
3911: END IF;
3912:
3913: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3915: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3916: RAISE FND_API.G_EXC_ERROR;
3917: END IF;
3910: oe_debug_pub.add( 'RETURN STATUS/FULFILLMENT STATUS : '||L_RETURN_STATUS||'/'||L_FULFILLMENT_STATUS , 3 ) ;
3911: END IF;
3912:
3913: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3915: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3916: RAISE FND_API.G_EXC_ERROR;
3917: END IF;
3918:
3911: END IF;
3912:
3913: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3915: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3916: RAISE FND_API.G_EXC_ERROR;
3917: END IF;
3918:
3919:
3912:
3913: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3915: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3916: RAISE FND_API.G_EXC_ERROR;
3917: END IF;
3918:
3919:
3920:
3917: END IF;
3918:
3919:
3920:
3921: IF l_fulfillment_status = FND_API.G_FALSE THEN
3922: IF l_debug_level > 0 THEN
3923: oe_debug_pub.add( 'ALL THE LINES OF THE FULFILLMENT SET HAS NOT BEEN FULFILLED' , 3 ) ;
3924: END IF;
3925: x_result_out := 'NOTIFIED:#NULL';
3939: );
3940:
3941: IF l_return_status = 'D' THEN
3942: RAISE CAN_NOT_LOCK_MODEL;
3943: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3945: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3946: RAISE FND_API.G_EXC_ERROR;
3947: END IF;
3940:
3941: IF l_return_status = 'D' THEN
3942: RAISE CAN_NOT_LOCK_MODEL;
3943: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3945: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3946: RAISE FND_API.G_EXC_ERROR;
3947: END IF;
3948: END IF;
3941: IF l_return_status = 'D' THEN
3942: RAISE CAN_NOT_LOCK_MODEL;
3943: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3945: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3946: RAISE FND_API.G_EXC_ERROR;
3947: END IF;
3948: END IF;
3949:
3942: RAISE CAN_NOT_LOCK_MODEL;
3943: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3945: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3946: RAISE FND_API.G_EXC_ERROR;
3947: END IF;
3948: END IF;
3949:
3950:
3949:
3950:
3951:
3952: ELSIF l_line_rec.top_model_line_id IS NOT NULL AND
3953: l_line_rec.top_model_line_id <> FND_API.G_MISS_NUM THEN
3954:
3955: -- Processing for PTO/ATO/KIT
3956: IF l_debug_level > 0 THEN
3957: oe_debug_pub.add( 'IT IS LINE PART OF A PTO' , 3 ) ;
3994: );
3995:
3996: IF l_return_status = 'D' THEN
3997: RAISE CAN_NOT_LOCK_MODEL;
3998: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4000: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4001: RAISE FND_API.G_EXC_ERROR;
4002: END IF;
3995:
3996: IF l_return_status = 'D' THEN
3997: RAISE CAN_NOT_LOCK_MODEL;
3998: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4000: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4001: RAISE FND_API.G_EXC_ERROR;
4002: END IF;
4003:
3996: IF l_return_status = 'D' THEN
3997: RAISE CAN_NOT_LOCK_MODEL;
3998: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4000: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4001: RAISE FND_API.G_EXC_ERROR;
4002: END IF;
4003:
4004: END IF; /* fulfilled _flag */
3997: RAISE CAN_NOT_LOCK_MODEL;
3998: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4000: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4001: RAISE FND_API.G_EXC_ERROR;
4002: END IF;
4003:
4004: END IF; /* fulfilled _flag */
4005: --bug 6394191 ATO Remnant Model Processing Modified ****Start
4002: END IF;
4003:
4004: END IF; /* fulfilled _flag */
4005: --bug 6394191 ATO Remnant Model Processing Modified ****Start
4006: IF l_line_rec.ato_line_id IS NOT NULL AND l_line_rec.ato_line_id <> FND_API.G_MISS_NUM then --AND
4007: --(l_line_rec.item_type_code = 'CONFIG' OR (l_line_rec.item_type_code = 'CLASS' AND
4008: -- l_line_rec.ato_line_id = l_line_rec.line_id)) THEN
4009:
4010: IF l_debug_level > 0 THEN
4056: l_activity_status:= NULL ;
4057: END IF ;
4058: /*Added for bug 8790623*/
4059:
4060: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4061: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4062: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4063: IF l_debug_level > 0 THEN
4064: oe_debug_pub.add('The ATO line is not at fulfillment '||TO_CHAR ( L_LINE_REC.ATO_LINE_ID ) , 3 ) ;
4057: END IF ;
4058: /*Added for bug 8790623*/
4059:
4060: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4061: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4062: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4063: IF l_debug_level > 0 THEN
4064: oe_debug_pub.add('The ATO line is not at fulfillment '||TO_CHAR ( L_LINE_REC.ATO_LINE_ID ) , 3 ) ;
4065: END IF;
4058: /*Added for bug 8790623*/
4059:
4060: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4061: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4062: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4063: IF l_debug_level > 0 THEN
4064: oe_debug_pub.add('The ATO line is not at fulfillment '||TO_CHAR ( L_LINE_REC.ATO_LINE_ID ) , 3 ) ;
4065: END IF;
4066: x_result_out := 'NOTIFIED:#NULL';
4081: p_fulfillment_activity => l_fulfillment_activity,
4082: x_return_status => l_return_status
4083: );
4084:
4085: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4086: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4087: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4088: RAISE FND_API.G_EXC_ERROR;
4089: END IF;
4082: x_return_status => l_return_status
4083: );
4084:
4085: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4086: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4087: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4088: RAISE FND_API.G_EXC_ERROR;
4089: END IF;
4090:
4083: );
4084:
4085: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4086: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4087: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4088: RAISE FND_API.G_EXC_ERROR;
4089: END IF;
4090:
4091:
4084:
4085: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4086: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4087: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4088: RAISE FND_API.G_EXC_ERROR;
4089: END IF;
4090:
4091:
4092: IF l_line_tbl(l_line_index).line_id <> p_line_id THEN
4103: IF l_debug_level > 0 THEN
4104: oe_debug_pub.add('return status - '||L_RETURN_STATUS,5);
4105: END IF;
4106:
4107: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4109: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4110: RAISE FND_API.G_EXC_ERROR;
4111: END IF;
4104: oe_debug_pub.add('return status - '||L_RETURN_STATUS,5);
4105: END IF;
4106:
4107: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4109: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4110: RAISE FND_API.G_EXC_ERROR;
4111: END IF;
4112:
4105: END IF;
4106:
4107: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4109: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4110: RAISE FND_API.G_EXC_ERROR;
4111: END IF;
4112:
4113:
4106:
4107: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4109: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4110: RAISE FND_API.G_EXC_ERROR;
4111: END IF;
4112:
4113:
4114: IF l_debug_level > 0 THEN
4140: IF l_debug_level > 0 THEN
4141: oe_debug_pub.add('return status - '||L_RETURN_STATUS , 3 ) ;
4142: END IF;
4143:
4144: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4146: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4147: RAISE FND_API.G_EXC_ERROR;
4148: END IF;
4141: oe_debug_pub.add('return status - '||L_RETURN_STATUS , 3 ) ;
4142: END IF;
4143:
4144: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4146: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4147: RAISE FND_API.G_EXC_ERROR;
4148: END IF;
4149: END LOOP;
4142: END IF;
4143:
4144: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4146: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4147: RAISE FND_API.G_EXC_ERROR;
4148: END IF;
4149: END LOOP;
4150: --bug6394191 Remnant ATO Model Processing Modified **End
4143:
4144: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4146: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4147: RAISE FND_API.G_EXC_ERROR;
4148: END IF;
4149: END LOOP;
4150: --bug6394191 Remnant ATO Model Processing Modified **End
4151:
4150: --bug6394191 Remnant ATO Model Processing Modified **End
4151:
4152: --Old Processing Commented Below
4153: /* IF l_line_rec.ato_line_id IS NOT NULL AND
4154: l_line_rec.ato_line_id <> FND_API.G_MISS_NUM AND
4155: fix for bug 2206098
4156: (l_line_rec.item_type_code = 'CONFIG' OR
4157: (l_line_rec.item_type_code = 'CLASS' AND
4158: l_line_rec.ato_line_id = l_line_rec.line_id)) THEN
4209: IF l_debug_level > 0 THEN
4210: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS , 3 ) ;
4211: END IF;
4212:
4213: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4215: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4216: IF l_debug_level > 0 THEN
4217: oe_debug_pub.add( 'CONFIG LINE IS NOT AT FULFILLMENT : '||TO_CHAR ( L_LINE_REC.ATO_LINE_ID ) , 3 ) ;
4210: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS , 3 ) ;
4211: END IF;
4212:
4213: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4215: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4216: IF l_debug_level > 0 THEN
4217: oe_debug_pub.add( 'CONFIG LINE IS NOT AT FULFILLMENT : '||TO_CHAR ( L_LINE_REC.ATO_LINE_ID ) , 3 ) ;
4218: END IF;
4211: END IF;
4212:
4213: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4215: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4216: IF l_debug_level > 0 THEN
4217: oe_debug_pub.add( 'CONFIG LINE IS NOT AT FULFILLMENT : '||TO_CHAR ( L_LINE_REC.ATO_LINE_ID ) , 3 ) ;
4218: END IF;
4219: x_result_out := 'NOTIFIED:#NULL';
4241: IF l_debug_level > 0 THEN
4242: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
4243: END IF;
4244:
4245: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4247: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4248: RAISE FND_API.G_EXC_ERROR;
4249: END IF;
4242: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
4243: END IF;
4244:
4245: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4247: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4248: RAISE FND_API.G_EXC_ERROR;
4249: END IF;
4250: -- end of bug 4460242
4243: END IF;
4244:
4245: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4247: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4248: RAISE FND_API.G_EXC_ERROR;
4249: END IF;
4250: -- end of bug 4460242
4251:
4244:
4245: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4247: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4248: RAISE FND_API.G_EXC_ERROR;
4249: END IF;
4250: -- end of bug 4460242
4251:
4252: IF l_debug_level > 0 THEN
4275: IF l_debug_level > 0 THEN
4276: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
4277: END IF;
4278:
4279: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4281: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4282: RAISE FND_API.G_EXC_ERROR;
4283: END IF;
4276: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
4277: END IF;
4278:
4279: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4281: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4282: RAISE FND_API.G_EXC_ERROR;
4283: END IF;
4284:
4277: END IF;
4278:
4279: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4281: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4282: RAISE FND_API.G_EXC_ERROR;
4283: END IF;
4284:
4285:
4278:
4279: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4281: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4282: RAISE FND_API.G_EXC_ERROR;
4283: END IF;
4284:
4285:
4286: ELSE
4308: IF l_debug_level > 0 THEN
4309: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS||'/'||L_ACTIVITY_STATUS , 3 ) ;
4310: END IF;
4311:
4312: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4314: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4315: IF l_debug_level > 0 THEN
4316: oe_debug_pub.add( 'MODEL LINE IS NOT AT FULFILLMENT : '||TO_CHAR ( L_LINE_REC.ATO_LINE_ID ) , 3 ) ;
4309: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS||'/'||L_ACTIVITY_STATUS , 3 ) ;
4310: END IF;
4311:
4312: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4314: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4315: IF l_debug_level > 0 THEN
4316: oe_debug_pub.add( 'MODEL LINE IS NOT AT FULFILLMENT : '||TO_CHAR ( L_LINE_REC.ATO_LINE_ID ) , 3 ) ;
4317: END IF;
4310: END IF;
4311:
4312: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4314: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4315: IF l_debug_level > 0 THEN
4316: oe_debug_pub.add( 'MODEL LINE IS NOT AT FULFILLMENT : '||TO_CHAR ( L_LINE_REC.ATO_LINE_ID ) , 3 ) ;
4317: END IF;
4318: x_result_out := 'NOTIFIED:#NULL';
4338: IF l_debug_level > 0 THEN
4339: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
4340: END IF;
4341:
4342: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4344: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4345: RAISE FND_API.G_EXC_ERROR;
4346: END IF;
4339: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
4340: END IF;
4341:
4342: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4344: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4345: RAISE FND_API.G_EXC_ERROR;
4346: END IF;
4347: -- bug 4460242 end
4340: END IF;
4341:
4342: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4344: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4345: RAISE FND_API.G_EXC_ERROR;
4346: END IF;
4347: -- bug 4460242 end
4348:
4341:
4342: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4344: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4345: RAISE FND_API.G_EXC_ERROR;
4346: END IF;
4347: -- bug 4460242 end
4348:
4349: IF l_debug_level > 0 THEN
4372: IF l_debug_level > 0 THEN
4373: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
4374: END IF;
4375:
4376: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4378: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4379: RAISE FND_API.G_EXC_ERROR;
4380: END IF;
4373: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
4374: END IF;
4375:
4376: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4378: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4379: RAISE FND_API.G_EXC_ERROR;
4380: END IF;
4381:
4374: END IF;
4375:
4376: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4378: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4379: RAISE FND_API.G_EXC_ERROR;
4380: END IF;
4381:
4382: END IF;*/
4375:
4376: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4378: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4379: RAISE FND_API.G_EXC_ERROR;
4380: END IF;
4381:
4382: END IF;*/
4383:
4401: IF l_debug_level > 0 THEN
4402: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
4403: END IF;
4404:
4405: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4407: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4408: RAISE FND_API.G_EXC_ERROR;
4409: END IF;
4402: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
4403: END IF;
4404:
4405: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4407: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4408: RAISE FND_API.G_EXC_ERROR;
4409: END IF;
4410:
4403: END IF;
4404:
4405: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4407: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4408: RAISE FND_API.G_EXC_ERROR;
4409: END IF;
4410:
4411: END IF;
4404:
4405: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4407: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4408: RAISE FND_API.G_EXC_ERROR;
4409: END IF;
4410:
4411: END IF;
4412:
4420: (
4421: p_line_id => l_line_rec.line_id,
4422: p_top_model_line_id => l_line_rec.top_model_line_id,
4423: p_fulfillment_activity => l_fulfillment_activity,
4424: p_process_all => FND_API.G_FALSE,
4425: x_return_status => l_return_status,
4426: x_fulfillment_status => l_fulfillment_status
4427: );
4428:
4430: IF l_debug_level > 0 THEN
4431: oe_debug_pub.add( 'RETURN STATUS/FULFILLMENT STATUS : '||L_RETURN_STATUS||'/'||L_FULFILLMENT_STATUS , 3 ) ;
4432: END IF;
4433:
4434: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4436: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4437: RAISE FND_API.G_EXC_ERROR;
4438: END IF;
4431: oe_debug_pub.add( 'RETURN STATUS/FULFILLMENT STATUS : '||L_RETURN_STATUS||'/'||L_FULFILLMENT_STATUS , 3 ) ;
4432: END IF;
4433:
4434: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4436: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4437: RAISE FND_API.G_EXC_ERROR;
4438: END IF;
4439:
4432: END IF;
4433:
4434: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4436: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4437: RAISE FND_API.G_EXC_ERROR;
4438: END IF;
4439:
4440:
4433:
4434: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4436: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4437: RAISE FND_API.G_EXC_ERROR;
4438: END IF;
4439:
4440:
4441: IF l_fulfillment_status = FND_API.G_FALSE THEN
4437: RAISE FND_API.G_EXC_ERROR;
4438: END IF;
4439:
4440:
4441: IF l_fulfillment_status = FND_API.G_FALSE THEN
4442: IF l_debug_level > 0 THEN
4443: oe_debug_pub.add( 'ALL THE LINES OF THE FULFILLMENT SET HAS NOT BEEN FULFILLED' , 3 ) ;
4444: END IF;
4445: x_result_out := 'NOTIFIED:#NULL';
4459: );
4460:
4461: IF l_return_status = 'D' THEN
4462: RAISE CAN_NOT_LOCK_MODEL;
4463: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4465: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4466: RAISE FND_API.G_EXC_ERROR;
4467: END IF;
4460:
4461: IF l_return_status = 'D' THEN
4462: RAISE CAN_NOT_LOCK_MODEL;
4463: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4465: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4466: RAISE FND_API.G_EXC_ERROR;
4467: END IF;
4468: END IF;
4461: IF l_return_status = 'D' THEN
4462: RAISE CAN_NOT_LOCK_MODEL;
4463: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4465: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4466: RAISE FND_API.G_EXC_ERROR;
4467: END IF;
4468: END IF;
4469: -- END IF;
4462: RAISE CAN_NOT_LOCK_MODEL;
4463: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4465: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4466: RAISE FND_API.G_EXC_ERROR;
4467: END IF;
4468: END IF;
4469: -- END IF;
4470:
4517: END IF;
4518:
4519: IF l_return_status = 'D' THEN
4520: RAISE CAN_NOT_LOCK_MODEL;
4521: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4523: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4524: RAISE FND_API.G_EXC_ERROR;
4525: END IF;
4518:
4519: IF l_return_status = 'D' THEN
4520: RAISE CAN_NOT_LOCK_MODEL;
4521: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4523: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4524: RAISE FND_API.G_EXC_ERROR;
4525: END IF;
4526:
4519: IF l_return_status = 'D' THEN
4520: RAISE CAN_NOT_LOCK_MODEL;
4521: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4523: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4524: RAISE FND_API.G_EXC_ERROR;
4525: END IF;
4526:
4527: END IF;
4520: RAISE CAN_NOT_LOCK_MODEL;
4521: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4523: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4524: RAISE FND_API.G_EXC_ERROR;
4525: END IF;
4526:
4527: END IF;
4528:
4566: END IF;
4567:
4568: IF l_return_status = 'D' THEN
4569: RAISE CAN_NOT_LOCK_MODEL;
4570: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4572: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4573: RAISE FND_API.G_EXC_ERROR;
4574: END IF;
4567:
4568: IF l_return_status = 'D' THEN
4569: RAISE CAN_NOT_LOCK_MODEL;
4570: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4572: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4573: RAISE FND_API.G_EXC_ERROR;
4574: END IF;
4575:
4568: IF l_return_status = 'D' THEN
4569: RAISE CAN_NOT_LOCK_MODEL;
4570: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4572: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4573: RAISE FND_API.G_EXC_ERROR;
4574: END IF;
4575:
4576: IF l_debug_level > 0 THEN
4569: RAISE CAN_NOT_LOCK_MODEL;
4570: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4572: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4573: RAISE FND_API.G_EXC_ERROR;
4574: END IF;
4575:
4576: IF l_debug_level > 0 THEN
4577: oe_debug_pub.add( 'FULFILL ASSOCIATED SERVICE LINES '||L_LINE_REC.LINE_ID , 3 ) ;
4588: IF l_debug_level > 0 THEN
4589: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
4590: END IF;
4591:
4592: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4594: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4595: RAISE FND_API.G_EXC_ERROR;
4596: END IF;
4589: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
4590: END IF;
4591:
4592: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4594: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4595: RAISE FND_API.G_EXC_ERROR;
4596: END IF;
4597:
4590: END IF;
4591:
4592: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4594: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4595: RAISE FND_API.G_EXC_ERROR;
4596: END IF;
4597:
4598: ELSE
4591:
4592: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4594: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4595: RAISE FND_API.G_EXC_ERROR;
4596: END IF;
4597:
4598: ELSE
4599: IF l_debug_level > 0 THEN
4611: IF l_debug_level > 0 THEN
4612: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
4613: END IF;
4614:
4615: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4617: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4618: RAISE FND_API.G_EXC_ERROR;
4619: END IF;
4612: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
4613: END IF;
4614:
4615: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4617: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4618: RAISE FND_API.G_EXC_ERROR;
4619: END IF;
4620:
4613: END IF;
4614:
4615: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4617: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4618: RAISE FND_API.G_EXC_ERROR;
4619: END IF;
4620:
4621:
4614:
4615: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4617: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4618: RAISE FND_API.G_EXC_ERROR;
4619: END IF;
4620:
4621:
4622: END IF;
4668: IF l_debug_level > 0 THEN
4669: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
4670: END IF;
4671:
4672: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4674: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4675: RAISE FND_API.G_EXC_ERROR;
4676: END IF;
4669: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
4670: END IF;
4671:
4672: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4674: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4675: RAISE FND_API.G_EXC_ERROR;
4676: END IF;
4677:
4670: END IF;
4671:
4672: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4674: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4675: RAISE FND_API.G_EXC_ERROR;
4676: END IF;
4677:
4678: x_return_status := FND_API.G_RET_STS_SUCCESS;
4671:
4672: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4674: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4675: RAISE FND_API.G_EXC_ERROR;
4676: END IF;
4677:
4678: x_return_status := FND_API.G_RET_STS_SUCCESS;
4679:
4674: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4675: RAISE FND_API.G_EXC_ERROR;
4676: END IF;
4677:
4678: x_return_status := FND_API.G_RET_STS_SUCCESS;
4679:
4680: IF l_debug_level > 0 THEN
4681: oe_debug_pub.add( 'EXITING FROM OE_LINE_FULFILL.PROCESS_FULFILLMENT : '||X_RETURN_STATUS , 1 ) ;
4682: END IF;
4688: oe_debug_pub.add('OEXVFULB.pls: Process_fulfillment- MODEL LOCKING EXCEPTION' , 1 ) ;
4689: END IF;
4690: x_return_status := 'DEFERRED';
4691: G_DEBUG_MSG := G_DEBUG_MSG || 'ELOCK2,';
4692: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4693: IF l_debug_level > 0 THEN
4694: oe_debug_pub.add( 'PROCESS_FULFILLMENT : EXITING WITH UNEXPECTED ERROR'||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
4695: END IF;
4696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4692: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4693: IF l_debug_level > 0 THEN
4694: oe_debug_pub.add( 'PROCESS_FULFILLMENT : EXITING WITH UNEXPECTED ERROR'||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
4695: END IF;
4696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4697: G_DEBUG_MSG := G_DEBUG_MSG || 'E22-1,';
4698:
4699: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4700: THEN
4704: );
4705: END IF;
4706: G_DEBUG_MSG := G_DEBUG_MSG || 'E22-2,';
4707:
4708: WHEN FND_API.G_EXC_ERROR THEN
4709: x_return_status := FND_API.G_RET_STS_ERROR;
4710: WHEN OTHERS THEN
4711: IF l_debug_level > 0 THEN
4712: oe_debug_pub.add( 'PROCESS_FULFILLMENT : EXITING WITH OTHERS ERROR' , 1 ) ;
4705: END IF;
4706: G_DEBUG_MSG := G_DEBUG_MSG || 'E22-2,';
4707:
4708: WHEN FND_API.G_EXC_ERROR THEN
4709: x_return_status := FND_API.G_RET_STS_ERROR;
4710: WHEN OTHERS THEN
4711: IF l_debug_level > 0 THEN
4712: oe_debug_pub.add( 'PROCESS_FULFILLMENT : EXITING WITH OTHERS ERROR' , 1 ) ;
4713: END IF;
4713: END IF;
4714: IF l_debug_level > 0 THEN
4715: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
4716: END IF;
4717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4718:
4719: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4720: THEN
4721: OE_MSG_PUB.Add_Exc_Msg
4793: l_store_rem VARCHAR2(1);
4794:
4795: TYPE fulfill_set IS RECORD
4796: (
4797: line_id NUMBER := FND_API.G_MISS_NUM
4798: , top_model_line_id NUMBER := FND_API.G_MISS_NUM
4799: , set_id NUMBER := FND_API.G_MISS_NUM
4800: , model_remnant_flag VARCHAR2(1) := FND_API.G_MISS_CHAR
4801: );
4794:
4795: TYPE fulfill_set IS RECORD
4796: (
4797: line_id NUMBER := FND_API.G_MISS_NUM
4798: , top_model_line_id NUMBER := FND_API.G_MISS_NUM
4799: , set_id NUMBER := FND_API.G_MISS_NUM
4800: , model_remnant_flag VARCHAR2(1) := FND_API.G_MISS_CHAR
4801: );
4802:
4795: TYPE fulfill_set IS RECORD
4796: (
4797: line_id NUMBER := FND_API.G_MISS_NUM
4798: , top_model_line_id NUMBER := FND_API.G_MISS_NUM
4799: , set_id NUMBER := FND_API.G_MISS_NUM
4800: , model_remnant_flag VARCHAR2(1) := FND_API.G_MISS_CHAR
4801: );
4802:
4803: TYPE fulfill_set_tbl IS TABLE OF fulfill_set
4796: (
4797: line_id NUMBER := FND_API.G_MISS_NUM
4798: , top_model_line_id NUMBER := FND_API.G_MISS_NUM
4799: , set_id NUMBER := FND_API.G_MISS_NUM
4800: , model_remnant_flag VARCHAR2(1) := FND_API.G_MISS_CHAR
4801: );
4802:
4803: TYPE fulfill_set_tbl IS TABLE OF fulfill_set
4804: INDEX BY BINARY_INTEGER;
4947: IF l_debug_level > 0 THEN
4948: oe_debug_pub.add( 'RETURN STATUS FROM GET FULFILLMENT SET : '||L_RETURN_STATUS||'/'||TO_CHAR ( L_SET_TBL.COUNT ) , 3 ) ;
4949: END IF;
4950:
4951: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4952: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4953: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4954: RAISE FND_API.G_EXC_ERROR;
4955: END IF;
4948: oe_debug_pub.add( 'RETURN STATUS FROM GET FULFILLMENT SET : '||L_RETURN_STATUS||'/'||TO_CHAR ( L_SET_TBL.COUNT ) , 3 ) ;
4949: END IF;
4950:
4951: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4952: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4953: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4954: RAISE FND_API.G_EXC_ERROR;
4955: END IF;
4956:
4949: END IF;
4950:
4951: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4952: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4953: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4954: RAISE FND_API.G_EXC_ERROR;
4955: END IF;
4956:
4957: IF l_set_tbl.count > 0 THEN
4950:
4951: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4952: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4953: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4954: RAISE FND_API.G_EXC_ERROR;
4955: END IF;
4956:
4957: IF l_set_tbl.count > 0 THEN
4958: NULL;
5081:
5082: IF l_debug_level > 0 THEN
5083: oe_debug_pub.add( 'RETURN FROM CHECK_PTO_KIT_FULFILLMENT '||L_RETURN_STATUS||'/'||L_FULFILL_STATUS , 3 ) ;
5084: END IF;
5085: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5086: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5087:
5088: END IF;
5089:
5082: IF l_debug_level > 0 THEN
5083: oe_debug_pub.add( 'RETURN FROM CHECK_PTO_KIT_FULFILLMENT '||L_RETURN_STATUS||'/'||L_FULFILL_STATUS , 3 ) ;
5084: END IF;
5085: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5086: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5087:
5088: END IF;
5089:
5090: IF l_fulfill_status = FND_API.G_FALSE THEN
5086: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5087:
5088: END IF;
5089:
5090: IF l_fulfill_status = FND_API.G_FALSE THEN
5091: IF l_ful_set_tbl(l_ful_set_index).line_id = p_line_id THEN
5092: l_process_current_line := FALSE;
5093: IF l_debug_level > 0 THEN
5094: oe_debug_pub.add( '1- DO NOT PROCESS CURRENT LINE '||L_FUL_SET_TBL ( L_FUL_SET_INDEX ) .LINE_ID , 3 ) ;
5135: IF l_debug_level > 0 THEN
5136: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS , 3 ) ;
5137: END IF;
5138:
5139: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5141: ELSIF ( l_return_status = FND_API.G_RET_STS_ERROR
5142: OR
5143: NVL(l_activity_status, 'COMPLETE') <> 'NOTIFIED' )
5136: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS , 3 ) ;
5137: END IF;
5138:
5139: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5141: ELSIF ( l_return_status = FND_API.G_RET_STS_ERROR
5142: OR
5143: NVL(l_activity_status, 'COMPLETE') <> 'NOTIFIED' )
5144: THEN
5137: END IF;
5138:
5139: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5141: ELSIF ( l_return_status = FND_API.G_RET_STS_ERROR
5142: OR
5143: NVL(l_activity_status, 'COMPLETE') <> 'NOTIFIED' )
5144: THEN
5145: IF l_ful_set_tbl(l_ful_set_index).line_id = p_line_id THEN
5267: IF l_debug_level > 0 THEN
5268: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL_PTO_KIT API '||L_RETURN_STATUS , 3 ) ;
5269: END IF;
5270:
5271: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5273: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5274: RAISE FND_API.G_EXC_ERROR;
5275: END IF;
5268: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL_PTO_KIT API '||L_RETURN_STATUS , 3 ) ;
5269: END IF;
5270:
5271: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5273: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5274: RAISE FND_API.G_EXC_ERROR;
5275: END IF;
5276:
5269: END IF;
5270:
5271: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5273: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5274: RAISE FND_API.G_EXC_ERROR;
5275: END IF;
5276:
5277: ELSE
5270:
5271: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5273: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5274: RAISE FND_API.G_EXC_ERROR;
5275: END IF;
5276:
5277: ELSE
5278: /* Fix for 2560644 */
5304: p_fulfillment_activity => l_fulfillment_activity,
5305: x_return_status => l_return_status
5306: );
5307:
5308: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5309: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5310: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5311: RAISE FND_API.G_EXC_ERROR;
5312: END IF;
5305: x_return_status => l_return_status
5306: );
5307:
5308: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5309: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5310: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5311: RAISE FND_API.G_EXC_ERROR;
5312: END IF;
5313:
5306: );
5307:
5308: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5309: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5310: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5311: RAISE FND_API.G_EXC_ERROR;
5312: END IF;
5313:
5314: --END IF; /* Commented for bug 2965878 */
5307:
5308: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5309: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5310: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5311: RAISE FND_API.G_EXC_ERROR;
5312: END IF;
5313:
5314: --END IF; /* Commented for bug 2965878 */
5315:
5348: IF l_debug_level > 0 THEN
5349: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
5350: END IF;
5351:
5352: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5354: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5355: RAISE FND_API.G_EXC_ERROR;
5356: END IF;
5349: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
5350: END IF;
5351:
5352: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5354: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5355: RAISE FND_API.G_EXC_ERROR;
5356: END IF;
5357:
5350: END IF;
5351:
5352: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5354: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5355: RAISE FND_API.G_EXC_ERROR;
5356: END IF;
5357:
5358: IF l_debug_level > 0 THEN
5351:
5352: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5354: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5355: RAISE FND_API.G_EXC_ERROR;
5356: END IF;
5357:
5358: IF l_debug_level > 0 THEN
5359: oe_debug_pub.add( 'FULFILL ASSOCIATED SERVICE LINES ' , 3 ) ;
5368: IF l_debug_level > 0 THEN
5369: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
5370: END IF;
5371:
5372: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5374: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5375: RAISE FND_API.G_EXC_ERROR;
5376: END IF;
5369: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
5370: END IF;
5371:
5372: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5374: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5375: RAISE FND_API.G_EXC_ERROR;
5376: END IF;
5377:
5370: END IF;
5371:
5372: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5374: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5375: RAISE FND_API.G_EXC_ERROR;
5376: END IF;
5377:
5378: IF l_debug_level > 0 THEN
5371:
5372: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5374: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5375: RAISE FND_API.G_EXC_ERROR;
5376: END IF;
5377:
5378: IF l_debug_level > 0 THEN
5379: oe_debug_pub.add( 'CALLING WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( L_FUL_SET_TBL ( L_FUL_SET_INDEX ) .LINE_ID ) , 3 ) ;
5455: IF l_debug_level > 0 THEN
5456: oe_debug_pub.add( 'RETURN FROM CHECK_PTO_KIT_FULFILLMENT '||L_RETURN_STATUS||'/'||L_FULFILL_STATUS , 3 ) ;
5457: END IF;
5458:
5459: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5461:
5462: END IF;
5463:
5456: oe_debug_pub.add( 'RETURN FROM CHECK_PTO_KIT_FULFILLMENT '||L_RETURN_STATUS||'/'||L_FULFILL_STATUS , 3 ) ;
5457: END IF;
5458:
5459: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5461:
5462: END IF;
5463:
5464: IF l_fulfill_status = FND_API.G_FALSE THEN
5460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5461:
5462: END IF;
5463:
5464: IF l_fulfill_status = FND_API.G_FALSE THEN
5465:
5466: IF l_debug_level > 0 THEN
5467: oe_debug_pub.add( 'LINE CAN NOT BE FULFILLED ' , 3 ) ;
5468: END IF;
5483: IF l_debug_level > 0 THEN
5484: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL_PTO_KIT API '||L_RETURN_STATUS , 3 ) ;
5485: END IF;
5486:
5487: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5489: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5490: RAISE FND_API.G_EXC_ERROR;
5491: END IF;
5484: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL_PTO_KIT API '||L_RETURN_STATUS , 3 ) ;
5485: END IF;
5486:
5487: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5489: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5490: RAISE FND_API.G_EXC_ERROR;
5491: END IF;
5492:
5485: END IF;
5486:
5487: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5489: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5490: RAISE FND_API.G_EXC_ERROR;
5491: END IF;
5492:
5493: END IF;
5486:
5487: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5489: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5490: RAISE FND_API.G_EXC_ERROR;
5491: END IF;
5492:
5493: END IF;
5494:
5508: IF l_debug_level > 0 THEN
5509: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS , 3 ) ;
5510: END IF;
5511:
5512: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5514: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5515: IF l_debug_level > 0 THEN
5516: oe_debug_pub.add( 'DO NOT PROCESS CURRENT LINE ' , 3 ) ;
5509: oe_debug_pub.add( 'RETURN STATUS FROM GET ACTIVITY RESULT : '||L_RETURN_STATUS , 3 ) ;
5510: END IF;
5511:
5512: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5514: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5515: IF l_debug_level > 0 THEN
5516: oe_debug_pub.add( 'DO NOT PROCESS CURRENT LINE ' , 3 ) ;
5517: END IF;
5510: END IF;
5511:
5512: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5514: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5515: IF l_debug_level > 0 THEN
5516: oe_debug_pub.add( 'DO NOT PROCESS CURRENT LINE ' , 3 ) ;
5517: END IF;
5518: GOTO LINE_NOT_IN_SET;
5547: p_fulfillment_activity => l_fulfillment_activity,
5548: x_return_status => l_return_status
5549: );
5550:
5551: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5553: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5554: RAISE FND_API.G_EXC_ERROR;
5555: END IF;
5548: x_return_status => l_return_status
5549: );
5550:
5551: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5553: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5554: RAISE FND_API.G_EXC_ERROR;
5555: END IF;
5556:
5549: );
5550:
5551: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5553: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5554: RAISE FND_API.G_EXC_ERROR;
5555: END IF;
5556:
5557: END IF;
5550:
5551: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5553: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5554: RAISE FND_API.G_EXC_ERROR;
5555: END IF;
5556:
5557: END IF;
5558:
5577: IF l_debug_level > 0 THEN
5578: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
5579: END IF;
5580:
5581: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5583: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5584: RAISE FND_API.G_EXC_ERROR;
5585: END IF;
5578: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API '||L_RETURN_STATUS , 3 ) ;
5579: END IF;
5580:
5581: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5583: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5584: RAISE FND_API.G_EXC_ERROR;
5585: END IF;
5586:
5579: END IF;
5580:
5581: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5583: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5584: RAISE FND_API.G_EXC_ERROR;
5585: END IF;
5586:
5587: IF l_debug_level > 0 THEN
5580:
5581: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5583: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5584: RAISE FND_API.G_EXC_ERROR;
5585: END IF;
5586:
5587: IF l_debug_level > 0 THEN
5588: oe_debug_pub.add( 'FULFILL ASSOCIATED SERVICE LINES ' , 3 ) ;
5598: IF l_debug_level > 0 THEN
5599: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
5600: END IF;
5601:
5602: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5604: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5605: RAISE FND_API.G_EXC_ERROR;
5606: END IF;
5599: oe_debug_pub.add( 'RETURN STATUS FROM FULFILL SERVICE LINES API '||L_RETURN_STATUS , 3 ) ;
5600: END IF;
5601:
5602: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5604: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5605: RAISE FND_API.G_EXC_ERROR;
5606: END IF;
5607:
5600: END IF;
5601:
5602: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5604: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5605: RAISE FND_API.G_EXC_ERROR;
5606: END IF;
5607:
5608: IF l_debug_level > 0 THEN
5601:
5602: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5604: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5605: RAISE FND_API.G_EXC_ERROR;
5606: END IF;
5607:
5608: IF l_debug_level > 0 THEN
5609: oe_debug_pub.add( 'CALLING WF_ENGINE.COMPLETEACTIVITYINTERNALNAME '|| TO_CHAR ( P_LINE_ID ) , 3 ) ;
5625:
5626:
5627: << LINE_NOT_IN_SET >>
5628:
5629: x_return_status := FND_API.G_RET_STS_SUCCESS;
5630: IF l_debug_level > 0 THEN
5631: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.CANCEL_LINE : '||X_RETURN_STATUS , 1 ) ;
5632: END IF;
5633:
5631: oe_debug_pub.add( 'EXITING OE_LINE_FULLFILL.CANCEL_LINE : '||X_RETURN_STATUS , 1 ) ;
5632: END IF;
5633:
5634: EXCEPTION
5635: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5636: IF l_debug_level > 0 THEN
5637: oe_debug_pub.add( 'CANCEL_LINE : EXITING WITH UNEXPECTED ERROR'||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
5638: END IF;
5639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5635: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5636: IF l_debug_level > 0 THEN
5637: oe_debug_pub.add( 'CANCEL_LINE : EXITING WITH UNEXPECTED ERROR'||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
5638: END IF;
5639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5640:
5641: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5642: THEN
5643: OE_MSG_PUB.Add_Exc_Msg
5646: );
5647: END IF;
5648: G_DEBUG_MSG := G_DEBUG_MSG || 'E24,';
5649:
5650: WHEN FND_API.G_EXC_ERROR THEN
5651: x_return_status := FND_API.G_RET_STS_ERROR;
5652:
5653: WHEN OTHERS THEN
5654: IF l_debug_level > 0 THEN
5647: END IF;
5648: G_DEBUG_MSG := G_DEBUG_MSG || 'E24,';
5649:
5650: WHEN FND_API.G_EXC_ERROR THEN
5651: x_return_status := FND_API.G_RET_STS_ERROR;
5652:
5653: WHEN OTHERS THEN
5654: IF l_debug_level > 0 THEN
5655: oe_debug_pub.add( 'CANCEL_LINE : EXITING WITH OTHERS ERROR' , 1 ) ;
5656: END IF;
5657: IF l_debug_level > 0 THEN
5658: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
5659: END IF;
5660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5661:
5662: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5663: THEN
5664: OE_MSG_PUB.Add_Exc_Msg