The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_INSERT_FLAG NUMBER;
PROCEDURE Insert_Error_Messages
(p_line_rec IN OUT NOCOPY OE_WSH_BULK_GRP.LINE_REC_TYPE
)
IS
l_no_source_msg VARCHAR2(2000);
INSERT INTO OE_PROCESSING_MSGS
( request_id ,entity_code ,entity_ref ,entity_id ,header_id, line_id
,order_source_id ,original_sys_document_ref
,original_sys_document_line_ref ,orig_sys_shipment_ref ,change_sequence
,attribute_code ,creation_date ,created_by ,last_update_date
,last_updated_by ,last_update_login
,program_application_id ,program_id,program_update_date
,process_activity ,notification_flag ,type
,message_source_code ,language
,message_text
,transaction_id
)
SELECT
OE_Bulk_Order_PVT.G_REQUEST_ID,'LINE' ,NULL
,p_line_rec.line_id(l_index)
,p_line_rec.header_id(l_index)
,p_line_rec.line_id(l_index)
,p_line_rec.order_source_id(l_index)
,p_line_rec.orig_sys_document_ref(l_index)
,p_line_rec.orig_sys_line_ref(l_index)
,p_line_rec.orig_sys_shipment_ref(l_index)
,p_line_rec.change_sequence(l_index)
,NULL, sysdate, FND_GLOBAL.USER_ID ,sysdate
,FND_GLOBAL.USER_ID ,FND_GLOBAL.CONC_LOGIN_ID
,660 ,NULL ,NULL
,NULL ,NULL ,NULL
,'C' ,USERENV('LANG')
,decode(l_error_code,80,l_no_source_msg
, l_sch_error_msg||m.meaning)
,OE_MSG_ID_S.NEXTVAL
FROM MFG_LOOKUPS m
WHERE l_error_code NOT IN (0,-99,150,19)
AND m.lookup_code(+) = l_error_code
AND m.lookup_type(+) = 'MTL_DEMAND_INTERFACE_ERRORS';
oe_debug_pub.add( 'UNEXP ERROR , INSERT_ERROR_MESSAGE' ) ;
oe_debug_pub.add( 'OTHERS ERROR , INSERT_ERROR_MESSAGES' ) ;
, 'Insert_Error_Messages'
);
END Insert_Error_Messages;
p_x_atp_rec.Insert_Flag.extend(p_count);
p_x_atp_rec.ato_delete_flag.extend(p_count);
p_x_atp_rec.Insert_Flag(p_atp_index) := G_INSERT_FLAG; -- Insert_Flag
p_x_atp_line_map_rec.DELETE;
G_INSERT_FLAG := 1;
G_INSERT_FLAG := 0;
PROCEDURE Update_Line_Rec
(p_line_index IN NUMBER
,p_atp_index IN NUMBER
,p_line_rec IN OUT NOCOPY OE_WSH_BULK_GRP.LINE_REC_TYPE
,p_x_atp_rec IN OUT NOCOPY MRP_ATP_PUB.ATP_Rec_Typ
)
IS
l_time_to_ship NUMBER;
SELECT order_type_id
INTO l_header_rec_for_hold.order_type_id
FROM OE_ORDER_HEADERS_ALL
WHERE header_id=p_line_rec.header_id(p_line_index);
oe_debug_pub.add( 'UNEXP ERROR , Update_Line_Rec' ) ;
oe_debug_pub.add( 'OTHERS ERROR , Update_Line_Rec' ) ;
, 'Update_Line_Rec'
);
END Update_Line_Rec;
PROCEDURE Update_MRP_Results
(p_x_atp_rec IN OUT NOCOPY MRP_ATP_PUB.ATP_Rec_Typ
,p_line_rec IN OUT NOCOPY OE_WSH_BULK_GRP.LINE_REC_TYPE
,p_x_atp_line_map_rec IN OUT NOCOPY OE_WSH_BULK_GRP.T_NUM
)
IS
J NUMBER;
G_SCH_ERROR_TBL.DELETE;
Update_Line_Rec(p_line_index => p_x_atp_line_map_rec(J)
,p_atp_index => J
,p_line_rec => p_line_rec
,p_x_atp_Rec => p_x_atp_rec
);
Insert_Error_Messages(p_line_rec);
oe_debug_pub.add( 'UNEXP ERROR , UPDATE_MRP_RESULTS' ) ;
oe_debug_pub.add( 'OTHERS ERROR , UPDATE_MRP_RESULTS' ) ;
, 'Update_MRP_Results'
);
END Update_MRP_Results;
SELECT mrp_atp_schedule_temp_s.nextval
INTO l_session_id
FROM dual;
SELECT hsecs INTO l_start_time from v$timer;
SELECT hsecs INTO l_end_time from v$timer;
Update_MRP_Results(l_x_mrp_atp_rec
,p_line_rec
,l_atp_line_map_rec
);
SELECT order_date_type_code
INTO l_order_date_type_code
FROM oe_order_headers
WHERE header_id = p_header_id;