Sipariş Kaydetme İşlemi

 
DECLARE
   l_header_id       NUMBER          := 4512512;
   --> sipariş oe_order_headers_all.header_id
   l_return_status   VARCHAR2 (1);
   l_msg_count       NUMBER;
   l_msg_data        VARCHAR2 (2400);
   l_msg             VARCHAR2 (2400);
   l_message         VARCHAR2 (2400);
BEGIN
   oe_order_book_util.complete_book_eligible
                                         (p_api_version_number      => 1
                                         ,p_init_msg_list           => fnd_api.g_true
                                         ,p_header_id               => l_header_id
                                         ,x_return_status           => l_return_status
                                         ,x_msg_count               => l_msg_count
                                         ,x_msg_data                => l_msg_data
                                         );
   DBMS_OUTPUT.put_line (l_return_status || ' : ' || l_msg_data);
 
   IF l_return_status <> fnd_api.g_ret_sts_success
   THEN
      FOR i IN 1 .. l_msg_count
      LOOP
         l_msg        := oe_msg_pub.get (i, 'F');
         l_message    := l_message || CHR (10) || l_msg;
      END LOOP;
 
      DBMS_OUTPUT.put_line (   'Failed to Booked  : New_Header_Id : '
                            || l_header_id
                            || ' Error : '
                            || l_message
                           );
   ELSE
      DBMS_OUTPUT.put_line ('Successfully Booked');
   END IF;
END;