215:
216: -- Call Oe_Order_Pvt.Header
217:
218: Oe_Order_Pvt.Header
219: ( p_validation_level =>FND_API.G_VALID_LEVEL_NONE
220: , p_init_msg_list => FND_API.G_TRUE
221: , p_control_rec =>l_control_rec
222: , p_x_header_rec =>l_header_rec
223: , p_x_old_header_rec =>l_old_header_rec
216: -- Call Oe_Order_Pvt.Header
217:
218: Oe_Order_Pvt.Header
219: ( p_validation_level =>FND_API.G_VALID_LEVEL_NONE
220: , p_init_msg_list => FND_API.G_TRUE
221: , p_control_rec =>l_control_rec
222: , p_x_header_rec =>l_header_rec
223: , p_x_old_header_rec =>l_old_header_rec
224: , x_return_status =>l_return_status
223: , p_x_old_header_rec =>l_old_header_rec
224: , x_return_status =>l_return_status
225: );
226:
227: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
229: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
230: RAISE FND_API.G_EXC_ERROR;
231: END IF;
224: , x_return_status =>l_return_status
225: );
226:
227: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
229: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
230: RAISE FND_API.G_EXC_ERROR;
231: END IF;
232:
225: );
226:
227: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
229: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
230: RAISE FND_API.G_EXC_ERROR;
231: END IF;
232:
233: IF l_debug_level > 0 THEN
226:
227: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
229: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
230: RAISE FND_API.G_EXC_ERROR;
231: END IF;
232:
233: IF l_debug_level > 0 THEN
234: oe_debug_pub.add( 'L_HEADER_REC.TAX_EXEMPT_FLAG ' || L_HEADER_REC.TAX_EXEMPT_FLAG ) ;
241:
242: -- Write to cache.
243: -- Set db_flag to False before writing to cache
244:
245: l_header_rec.db_flag := FND_API.G_FALSE;
246:
247: Write_header
248: ( p_header_rec => l_header_rec
249: );
253: OE_GLOBALS.G_UI_FLAG := FALSE;
254:
255: -- Set return status.
256:
257: x_return_status := FND_API.G_RET_STS_SUCCESS;
258:
259: -- Get message count and data
260:
261: OE_MSG_PUB.Count_And_Get
313: oe_debug_pub.add( 'EXITING OE_PORTAL_HEADER.DEFAULT_ATTRIBUTES' , 1 ) ;
314: END IF;
315: EXCEPTION
316:
317: WHEN FND_API.G_EXC_ERROR THEN
318:
319: OE_GLOBALS.G_UI_FLAG := FALSE;
320:
321: x_return_status := FND_API.G_RET_STS_ERROR;
317: WHEN FND_API.G_EXC_ERROR THEN
318:
319: OE_GLOBALS.G_UI_FLAG := FALSE;
320:
321: x_return_status := FND_API.G_RET_STS_ERROR;
322:
323: -- Get message count and data
324:
325: OE_MSG_PUB.Count_And_Get
326: ( p_count => x_msg_count
327: , p_data => x_msg_data
328: );
329:
330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
331: OE_GLOBALS.G_UI_FLAG := FALSE;
332:
333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
334:
329:
330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
331: OE_GLOBALS.G_UI_FLAG := FALSE;
332:
333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
334:
335: -- Get message count and data
336:
337: OE_MSG_PUB.Count_And_Get
342: WHEN OTHERS THEN
343:
344: OE_GLOBALS.G_UI_FLAG := FALSE;
345:
346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
347:
348: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
349: THEN
350: OE_MSG_PUB.Add_Exc_Msg
565: l_x_header_rec.sold_to_org_id := p_sold_to_org_id;
566: end if;
567: -- Set Operation.
568:
569: IF FND_API.To_Boolean(l_x_header_rec.db_flag) THEN
570: l_x_header_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
571:
572: /* Start Audit Trail - if it is update, set reason,comments */
573: l_x_header_rec.change_reason := 'SYSTEM';
578:
579: -- Call Oe_Order_Pvt.Header
580:
581: Oe_Order_Pvt.Header
582: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
583: , p_init_msg_list => FND_API.G_TRUE
584: , p_control_rec => l_control_rec
585: , p_x_header_rec => l_x_header_rec
586: , p_x_old_header_rec => l_x_old_header_rec
579: -- Call Oe_Order_Pvt.Header
580:
581: Oe_Order_Pvt.Header
582: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
583: , p_init_msg_list => FND_API.G_TRUE
584: , p_control_rec => l_control_rec
585: , p_x_header_rec => l_x_header_rec
586: , p_x_old_header_rec => l_x_old_header_rec
587: , x_return_status => l_return_status
593:
594: IF l_debug_level > 0 THEN
595: oe_debug_pub.add( 'HEADER ID' || L_X_HEADER_REC.HEADER_ID , 1 ) ;
596: END IF;
597: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
599: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
600: RAISE FND_API.G_EXC_ERROR;
601: END IF;
594: IF l_debug_level > 0 THEN
595: oe_debug_pub.add( 'HEADER ID' || L_X_HEADER_REC.HEADER_ID , 1 ) ;
596: END IF;
597: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
599: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
600: RAISE FND_API.G_EXC_ERROR;
601: END IF;
602:
595: oe_debug_pub.add( 'HEADER ID' || L_X_HEADER_REC.HEADER_ID , 1 ) ;
596: END IF;
597: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
599: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
600: RAISE FND_API.G_EXC_ERROR;
601: END IF;
602:
603:
596: END IF;
597: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
599: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
600: RAISE FND_API.G_EXC_ERROR;
601: END IF;
602:
603:
604: Oe_Order_Pvt.Process_Requests_And_Notify
602:
603:
604: Oe_Order_Pvt.Process_Requests_And_Notify
605: ( p_process_requests => FALSE
606: , p_init_msg_list => FND_API.G_FALSE
607: , p_notify => TRUE
608: , x_return_status => l_return_status
609: , p_header_rec => l_x_header_rec
610: , p_old_header_rec => l_x_old_header_rec
612: IF l_debug_level > 0 THEN
613: oe_debug_pub.add( 'L_HEADER_REC.TAX_EXEMPT_FLAG ' || L_X_HEADER_REC.TAX_EXEMPT_FLAG ) ;
614: END IF;
615:
616: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
619: RAISE FND_API.G_EXC_ERROR;
620: END IF;
613: oe_debug_pub.add( 'L_HEADER_REC.TAX_EXEMPT_FLAG ' || L_X_HEADER_REC.TAX_EXEMPT_FLAG ) ;
614: END IF;
615:
616: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
619: RAISE FND_API.G_EXC_ERROR;
620: END IF;
621:
614: END IF;
615:
616: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
619: RAISE FND_API.G_EXC_ERROR;
620: END IF;
621:
622: l_cascade_flag := OE_GLOBALS.G_CASCADING_REQUEST_LOGGED;
615:
616: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
619: RAISE FND_API.G_EXC_ERROR;
620: END IF;
621:
622: l_cascade_flag := OE_GLOBALS.G_CASCADING_REQUEST_LOGGED;
623:
708: OE_GLOBALS.G_UI_FLAG := FALSE;
709:
710: -- Set return status.
711:
712: x_return_status := FND_API.G_RET_STS_SUCCESS;
713:
714: -- Get message count and data
715:
716: OE_MSG_PUB.Count_And_Get
750: end loop;
751: */
752: EXCEPTION
753:
754: WHEN FND_API.G_EXC_ERROR THEN
755:
756: OE_GLOBALS.G_UI_FLAG := FALSE;
757:
758: ROLLBACK TO SAVEPOINT Header_Validate_And_Write;
756: OE_GLOBALS.G_UI_FLAG := FALSE;
757:
758: ROLLBACK TO SAVEPOINT Header_Validate_And_Write;
759:
760: x_return_status := FND_API.G_RET_STS_ERROR;
761:
762: -- Get message count and data
763:
764: OE_MSG_PUB.Count_And_Get
765: ( p_count => x_msg_count
766: , p_data => x_msg_data
767: );
768:
769: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
770:
771: OE_GLOBALS.G_UI_FLAG := FALSE;
772:
773: ROLLBACK TO SAVEPOINT Header_Validate_And_Write;
771: OE_GLOBALS.G_UI_FLAG := FALSE;
772:
773: ROLLBACK TO SAVEPOINT Header_Validate_And_Write;
774:
775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
776:
777: -- Get message count and data
778:
779: OE_MSG_PUB.Count_And_Get
786: OE_GLOBALS.G_UI_FLAG := FALSE;
787:
788: ROLLBACK TO SAVEPOINT Header_Validate_And_Write;
789:
790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
791:
792: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
793: THEN
794: OE_MSG_PUB.Add_Exc_Msg
864:
865: -- Call Oe_Order_Pvt.Header
866:
867: Oe_Order_Pvt.Header
868: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
869: , p_init_msg_list => FND_API.G_TRUE
870: , p_control_rec => l_control_rec
871: , p_x_header_rec => l_x_header_rec
872: , p_x_old_header_rec => l_x_old_header_rec
865: -- Call Oe_Order_Pvt.Header
866:
867: Oe_Order_Pvt.Header
868: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
869: , p_init_msg_list => FND_API.G_TRUE
870: , p_control_rec => l_control_rec
871: , p_x_header_rec => l_x_header_rec
872: , p_x_old_header_rec => l_x_old_header_rec
873: , x_return_status => l_return_status
873: , x_return_status => l_return_status
874: );
875:
876:
877: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
878:
879:
880: -- Set the UI flag
881: OE_GLOBALS.G_UI_FLAG := TRUE;
905:
906: -- Call Oe_Order_Pvt.Header
907:
908: Oe_Order_Pvt.Header
909: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
910: , p_init_msg_list => FND_API.G_TRUE
911: , p_control_rec => l_control_rec
912: , p_x_header_rec => l_x_header_rec
913: , p_x_old_header_rec => l_x_old_header_rec
906: -- Call Oe_Order_Pvt.Header
907:
908: Oe_Order_Pvt.Header
909: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
910: , p_init_msg_list => FND_API.G_TRUE
911: , p_control_rec => l_control_rec
912: , p_x_header_rec => l_x_header_rec
913: , p_x_old_header_rec => l_x_old_header_rec
914: , x_return_status => l_return_status
913: , p_x_old_header_rec => l_x_old_header_rec
914: , x_return_status => l_return_status
915: );
916:
917: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
918: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
919: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
920: RAISE FND_API.G_EXC_ERROR;
921: END IF;
914: , x_return_status => l_return_status
915: );
916:
917: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
918: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
919: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
920: RAISE FND_API.G_EXC_ERROR;
921: END IF;
922:
915: );
916:
917: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
918: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
919: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
920: RAISE FND_API.G_EXC_ERROR;
921: END IF;
922:
923:
916:
917: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
918: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
919: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
920: RAISE FND_API.G_EXC_ERROR;
921: END IF;
922:
923:
924:
933: OE_GLOBALS.G_UI_FLAG := FALSE;
934:
935: -- Set return status.
936:
937: x_return_status := FND_API.G_RET_STS_SUCCESS;
938:
939: -- Get message count and data
940:
941: OE_MSG_PUB.Count_And_Get
948: END IF;
949:
950: EXCEPTION
951:
952: WHEN FND_API.G_EXC_ERROR THEN
953:
954: OE_GLOBALS.G_UI_FLAG := FALSE;
955:
956: x_return_status := FND_API.G_RET_STS_ERROR;
952: WHEN FND_API.G_EXC_ERROR THEN
953:
954: OE_GLOBALS.G_UI_FLAG := FALSE;
955:
956: x_return_status := FND_API.G_RET_STS_ERROR;
957:
958: -- Get message count and data
959:
960: OE_MSG_PUB.Count_And_Get
961: ( p_count => x_msg_count
962: , p_data => x_msg_data
963: );
964:
965: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
966:
967: OE_GLOBALS.G_UI_FLAG := FALSE;
968:
969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
965: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
966:
967: OE_GLOBALS.G_UI_FLAG := FALSE;
968:
969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
970:
971: -- Get message count and data
972:
973: OE_MSG_PUB.Count_And_Get
978: WHEN OTHERS THEN
979:
980: OE_GLOBALS.G_UI_FLAG := FALSE;
981:
982: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
983:
984: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
985: THEN
986: OE_MSG_PUB.Add_Exc_Msg
1022: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1023: --
1024: BEGIN
1025:
1026: IF p_header_id is NULL OR p_header_id = FND_API.G_MISS_NUM THEN
1027:
1028: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1029: THEN
1030:
1032: FND_MESSAGE.SET_TOKEN('PARAMETER','Header_Id');
1033: OE_MSG_PUB.Add;
1034:
1035: END IF;
1036: RAISE FND_API.G_EXC_ERROR;
1037:
1038: END IF;
1039:
1040:
1054: null,
1055: 'ALL');
1056:
1057:
1058: x_return_status := FND_API.G_RET_STS_SUCCESS;
1059:
1060: -- Get message count and data
1061:
1062: OE_MSG_PUB.Count_And_Get
1069: END IF;
1070:
1071: EXCEPTION
1072:
1073: WHEN FND_API.G_EXC_ERROR THEN
1074:
1075: OE_GLOBALS.G_UI_FLAG := FALSE;
1076:
1077: x_return_status := FND_API.G_RET_STS_ERROR;
1073: WHEN FND_API.G_EXC_ERROR THEN
1074:
1075: OE_GLOBALS.G_UI_FLAG := FALSE;
1076:
1077: x_return_status := FND_API.G_RET_STS_ERROR;
1078:
1079: -- Get message count and data
1080:
1081: OE_MSG_PUB.Count_And_Get
1082: ( p_count => x_msg_count
1083: , p_data => x_msg_data
1084: );
1085:
1086: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1087:
1088: OE_GLOBALS.G_UI_FLAG := FALSE;
1089:
1090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1086: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1087:
1088: OE_GLOBALS.G_UI_FLAG := FALSE;
1089:
1090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1091:
1092: -- Get message count and data
1093:
1094: OE_MSG_PUB.Count_And_Get
1099: WHEN OTHERS THEN
1100:
1101: OE_GLOBALS.G_UI_FLAG := FALSE;
1102:
1103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1104:
1105: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1106: THEN
1107: OE_MSG_PUB.Add_Exc_Msg
1135: oe_debug_pub.add( 'ENTERING OE_PORTAL_HEADER.GET_HEADER' , 1 ) ;
1136: oe_debug_pub.add( 'CACHED HEADER ID ' || G_HEADER_REC.HEADER_ID , 1 ) ;
1137: END IF;
1138:
1139: IF p_header_id <> NVL(g_header_rec.header_id,FND_API.G_MISS_NUM)
1140: THEN
1141:
1142: -- Query row from DB
1143:
1145: ( p_header_id => p_header_id,
1146: x_header_rec =>g_header_rec
1147: );
1148:
1149: g_header_rec.db_flag := FND_API.G_TRUE;
1150:
1151: -- Load DB record
1152:
1153: g_db_header_rec := g_header_rec;