|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 |
set serveroutput on; DECLARE v_api_version_number NUMBER := 1; v_return_status VARCHAR2 (2000); v_msg_count NUMBER; v_msg_data VARCHAR2 (2000); l_debug_level NUMBER := 1 — IN Variables — v_header_rec oe_order_pub.header_rec_type; v_line_tbl oe_order_pub.line_tbl_type; v_action_request_tbl oe_order_pub.request_tbl_type; v_line_adj_tbl oe_order_pub.line_adj_tbl_type; — OUT Variables — v_header_rec_out oe_order_pub.header_rec_type; v_header_val_rec_out oe_order_pub.header_val_rec_type; v_header_adj_tbl_out oe_order_pub.header_adj_tbl_type; v_header_adj_val_tbl_out oe_order_pub.header_adj_val_tbl_type; v_header_price_att_tbl_out oe_order_pub.header_price_att_tbl_type; v_header_adj_att_tbl_out oe_order_pub.header_adj_att_tbl_type; v_header_adj_assoc_tbl_out oe_order_pub.header_adj_assoc_tbl_type; v_header_scredit_tbl_out oe_order_pub.header_scredit_tbl_type; v_header_scredit_val_tbl_out oe_order_pub.header_scredit_val_tbl_type; v_line_tbl_out oe_order_pub.line_tbl_type; v_line_val_tbl_out oe_order_pub.line_val_tbl_type; v_line_adj_tbl_out oe_order_pub.line_adj_tbl_type; v_line_adj_val_tbl_out oe_order_pub.line_adj_val_tbl_type; v_line_price_att_tbl_out oe_order_pub.line_price_att_tbl_type; v_line_adj_att_tbl_out oe_order_pub.line_adj_att_tbl_type; v_line_adj_assoc_tbl_out oe_order_pub.line_adj_assoc_tbl_type; v_line_scredit_tbl_out oe_order_pub.line_scredit_tbl_type; v_line_scredit_val_tbl_out oe_order_pub.line_scredit_val_tbl_type; v_lot_serial_tbl_out oe_order_pub.lot_serial_tbl_type; v_lot_serial_val_tbl_out oe_order_pub.lot_serial_val_tbl_type; v_action_request_tbl_out oe_order_pub.request_tbl_type; 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; — Setting the Enviroment — 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); v_action_request_tbl (1) := oe_order_pub.g_miss_request_rec; — Cancel a Line Record — v_line_tbl (1) := oe_order_pub.g_miss_line_rec; v_line_tbl (1).operation := OE_GLOBALS.G_OPR_UPDATE; v_line_tbl (1).header_id := 190105; v_line_tbl (1).line_id := 388075; v_line_tbl (1).ordered_quantity := 1; v_line_tbl (1).cancelled_flag := ‘Y’; v_line_tbl (1).cancelled_quantity := 1; v_line_tbl (1).change_reason := ‘erpSchools Test’; DBMS_OUTPUT.PUT_LINE(‘Starting of API’); — Calling the API to cancel a line from an Existing Order — OE_ORDER_PUB.PROCESS_ORDER ( p_api_version_number => v_api_version_number , p_header_rec => v_header_rec , p_line_tbl => v_line_tbl , p_action_request_tbl => v_action_request_tbl , p_line_adj_tbl => v_line_adj_tbl — OUT variables , x_header_rec => v_header_rec_out , x_header_val_rec => v_header_val_rec_out , x_header_adj_tbl => v_header_adj_tbl_out , x_header_adj_val_tbl => v_header_adj_val_tbl_out , x_header_price_att_tbl => v_header_price_att_tbl_out , x_header_adj_att_tbl => v_header_adj_att_tbl_out , x_header_adj_assoc_tbl => v_header_adj_assoc_tbl_out , x_header_scredit_tbl => v_header_scredit_tbl_out , x_header_scredit_val_tbl => v_header_scredit_val_tbl_out , x_line_tbl => v_line_tbl_out , x_line_val_tbl => v_line_val_tbl_out , x_line_adj_tbl => v_line_adj_tbl_out , x_line_adj_val_tbl => v_line_adj_val_tbl_out , x_line_price_att_tbl => v_line_price_att_tbl_out , x_line_adj_att_tbl => v_line_adj_att_tbl_out , x_line_adj_assoc_tbl => v_line_adj_assoc_tbl_out , x_line_scredit_tbl => v_line_scredit_tbl_out , x_line_scredit_val_tbl => v_line_scredit_val_tbl_out , x_lot_serial_tbl => v_lot_serial_tbl_out , x_lot_serial_val_tbl => v_lot_serial_val_tbl_out , x_action_request_tbl => v_action_request_tbl_out , x_return_status => v_return_status , x_msg_count => v_msg_count , x_msg_data => v_msg_data ); DBMS_OUTPUT.PUT_LINE(‘Completion of API’); IF v_return_status = fnd_api.g_ret_sts_success THEN COMMIT; DBMS_OUTPUT.put_line (‘Line Cancelation in Existing Order is Success ‘); ELSE DBMS_OUTPUT.put_line (‘Line Cancelation in Existing Order failed:’||v_msg_data); ROLLBACK; FOR i IN 1 .. v_msg_count LOOP v_msg_data := oe_msg_pub.get( p_msg_index => i, p_encoded => ‘F’); dbms_output.put_line( i|| ‘) ‘|| v_msg_data); END LOOP; END IF; END; / |