Create or Replace procedure mutl_blanket_update
is
-- Input variables
is
-- Input variables
l_hdr_rec OE_Blanket_PUB.header_rec_type;
l_hdr_val_rec OE_Blanket_PUB.Header_Val_Rec_Type;
l_line_tbl OE_Blanket_PUB.line_tbl_Type;
l_line_val_tbl OE_Blanket_PUB.line_Val_tbl_Type;
l_line_rec OE_Blanket_PUB.line_rec_Type;
l_line_val_rec OE_Blanket_PUB.line_val_rec_Type;
l_control_rec OE_Blanket_PUB.Control_rec_type;
-- Output Variables
x_header_rec OE_Blanket_PUB.header_rec_type;
x_line_tbl OE_Blanket_PUB.line_tbl_Type;
x_return_status VARCHAR2(1000);
x_msg_count NUMBER;
x_msg_data VARCHAR2(4000);
l_msg_index_out NUMBER;
l_error_message VARCHAR2 (100);
begin
l_line_rec.order_number:='351015';
l_line_rec.header_id :=5903558;
l_line_rec.attribute9:='TEST';
OE_Blanket_PUB.Process_Blanket(
p_org_id => 1
,p_operating_unit => NULL
,p_api_version_number => 1.0
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
,p_header_rec => l_hdr_rec
,p_header_val_rec => l_hdr_val_rec
,p_line_tbl => l_line_tbl
,p_line_val_tbl => l_line_val_tbl
,p_control_rec => l_control_rec
,x_header_rec => x_header_rec
,x_line_tbl => x_line_tbl
);
IF x_return_status = fnd_api.g_ret_sts_success
THEN
DBMS_OUTPUT.put_line ('success');
DBMS_OUTPUT.put_line ('x_msg_count = ' || x_msg_count);
DBMS_OUTPUT.put_line ('x_return_status = ' || x_return_status);
ELSE
IF x_msg_count > 0
THEN
FOR i IN 1 .. x_msg_count
LOOP
apps.fnd_msg_pub.get (p_msg_index => i,
p_encoded => fnd_api.g_false,
p_data => x_msg_data,
p_msg_index_out => l_msg_index_out
);
END LOOP;
IF l_error_message IS NULL
THEN
l_error_message := SUBSTR (x_msg_data, 1, 250);
ELSE
l_error_message :=
l_error_message || ' /' || SUBSTR (x_msg_data, 1, 250);
END IF;
DBMS_OUTPUT.put_line ('*****************************************');
DBMS_OUTPUT.put_line ('API Error: ' || l_error_message);
DBMS_OUTPUT.put_line ('*****************************************');
END IF;
END IF;
END;