OE_ORDER_PUB: Add lines to existing Sales Order

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

set serveroutput on;

DECLARE

l_api_version_number NUMBER := 1;

l_return_status VARCHAR2(2000);

l_msg_count NUMBER;

l_msg_data VARCHAR2(2000);

l_debug_level NUMBER := 1; — OM DEBUG LEVEL (MAX 5)

— IN Variables —

l_header_rec oe_order_pub.header_rec_type;

l_line_tbl oe_order_pub.line_tbl_type;

l_action_request_tbl oe_order_pub.Request_Tbl_Type;

— OUT Variables —

l_header_rec_out oe_order_pub.header_rec_type;

l_header_val_rec_out oe_order_pub.header_val_rec_type;

l_header_adj_tbl_out oe_order_pub.header_adj_tbl_type;

l_header_adj_val_tbl_out oe_order_pub.header_adj_val_tbl_type;

l_header_price_att_tbl_out oe_order_pub.header_price_att_tbl_type;

l_header_adj_att_tbl_out oe_order_pub.header_adj_att_tbl_type;

l_header_adj_assoc_tbl_out oe_order_pub.header_adj_assoc_tbl_type;

l_header_scredit_tbl_out oe_order_pub.header_scredit_tbl_type;

l_header_scredit_val_tbl_out oe_order_pub.header_scredit_val_tbl_type;

l_line_tbl_out oe_order_pub.line_tbl_type;

l_line_val_tbl_out oe_order_pub.line_val_tbl_type;

l_line_adj_tbl_out oe_order_pub.line_adj_tbl_type;

l_line_adj_val_tbl_out oe_order_pub.line_adj_val_tbl_type;

l_line_price_att_tbl_out oe_order_pub.line_price_att_tbl_type;

l_line_adj_att_tbl_out oe_order_pub.line_adj_att_tbl_type;

l_line_adj_assoc_tbl_out oe_order_pub.line_adj_assoc_tbl_type;

l_line_scredit_tbl_out oe_order_pub.line_scredit_tbl_type;

l_line_scredit_val_tbl_out oe_order_pub.line_scredit_val_tbl_type;

l_lot_serial_tbl_out oe_order_pub.lot_serial_tbl_type;

l_lot_serial_val_tbl_out oe_order_pub.lot_serial_val_tbl_type;

l_action_request_tbl_out oe_order_pub.request_tbl_type;

l_msg_index NUMBER;

l_data VARCHAR2(2000);

l_loop_count NUMBER;

l_debug_file VARCHAR2(200);

b_return_status VARCHAR2(200);

b_msg_count NUMBER;

b_msg_data VARCHAR2(2000);

BEGIN

IF (l_debug_level > 0) THEN

l_debug_file := OE_DEBUG_PUB.Set_Debug_Mode(‘FILE’);

oe_debug_pub.initialize;

oe_debug_pub.setdebuglevel(l_debug_level);

Oe_Msg_Pub.initialize;

END IF;

mo_global.init(‘ONT’);

mo_global.set_policy_context(‘S’,204);

fnd_global.apps_initialize ( user_id => 1318

,resp_id => 21623

,resp_appl_id => 660);

l_line_tbl(1) := oe_order_pub.G_MISS_LINE_REC;

l_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;

l_line_tbl(1).inventory_item_id := 162747;

l_line_tbl(1).ordered_quantity := 10;

l_line_tbl(1).ship_to_org_id := 1024;

l_line_tbl(1).tax_code := ‘Location’;

l_line_tbl(1).header_id := 221186;

dbms_output.put_line(‘Calling API’);

oe_order_pub.Process_Order( p_api_version_number => l_api_version_number,

p_header_rec => l_header_rec,

p_line_tbl => l_line_tbl,

p_action_request_tbl => l_action_request_tbl,

–OUT variables

x_header_rec => l_header_rec_out,

x_header_val_rec => l_header_val_rec_out,

x_header_adj_tbl => l_header_adj_tbl_out,

x_header_adj_val_tbl => l_header_adj_val_tbl_out,

x_header_price_att_tbl => l_header_price_att_tbl_out,

x_header_adj_att_tbl => l_header_adj_att_tbl_out,

x_header_adj_assoc_tbl => l_header_adj_assoc_tbl_out,

x_header_scredit_tbl => l_header_scredit_tbl_out,

x_header_scredit_val_tbl => l_header_scredit_val_tbl_out,

x_line_tbl => l_line_tbl_out,

x_line_val_tbl => l_line_val_tbl_out,

x_line_adj_tbl => l_line_adj_tbl_out,

x_line_adj_val_tbl => l_line_adj_val_tbl_out,

x_line_price_att_tbl => l_line_price_att_tbl_out,

x_line_adj_att_tbl => l_line_adj_att_tbl_out,

x_line_adj_assoc_tbl => l_line_adj_assoc_tbl_out,

x_line_scredit_tbl => l_line_scredit_tbl_out,

x_line_scredit_val_tbl => l_line_scredit_val_tbl_out,

x_lot_serial_tbl => l_lot_serial_tbl_out,

x_lot_serial_val_tbl => l_lot_serial_val_tbl_out,

x_action_request_tbl => l_action_request_tbl_out,

x_return_status => l_return_status,

x_msg_count => l_msg_count,

x_msg_data => l_msg_data);

IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN

dbms_output.put_line(‘Return status is success ‘);

COMMIT;

ELSE

dbms_output.put_line(‘Return status failure ‘);

if (l_debug_level > 0) then

dbms_output.put_line(‘failure’);

end if;

ROLLBACK;

END IF;

— Display Return Status

if (l_debug_level > 0) then

DBMS_OUTPUT.PUT_LINE(‘process ORDER ret status IS: ‘ || l_return_status);

DBMS_OUTPUT.PUT_LINE(‘process ORDER msg data IS: ‘ || l_msg_data);

DBMS_OUTPUT.PUT_LINE(‘header.order_number IS: ‘|| to_char(l_header_rec_out.order_number));

DBMS_OUTPUT.PUT_LINE(‘header.header_id IS: ‘ ||l_header_rec_out.header_id);

DBMS_OUTPUT.PUT_LINE(‘header.order_source_id IS: ‘|| l_header_rec_out.order_source_id);

DBMS_OUTPUT.PUT_LINE(‘header.flow_status_code IS: ‘|| l_header_rec_out.flow_status_code);

end if;

–Display ERROR Messages

IF (l_debug_level > 0) THEN

FOR i IN 1 .. l_msg_count LOOP

l_data := oe_msg_pub.get( p_msg_index => i, p_encoded => ‘F’);

dbms_output.put_line( i|| ‘) ‘|| l_data);

END LOOP;

END IF;

IF (l_debug_level > 0) THEN

OE_DEBUG_PUB.DEBUG_OFF;

END IF;

END ;