48: l_api_name CONSTANT VARCHAR2 (30) := 'create_move_order_hdr';
49: l_return_status VARCHAR2 (1);
50: l_msg_count NUMBER;
51: l_msg_data VARCHAR2 (2000);
52: l_in_trohdr_rec inv_move_order_pub.trohdr_rec_type;
53: l_in_trohdr_val_rec inv_move_order_pub.trohdr_val_rec_type;
54: l_out_trohdr_rec inv_move_order_pub.trohdr_rec_type;
55: l_out_trohdr_val_rec inv_move_order_pub.trohdr_val_rec_type;
56: create_mo_hdr_err EXCEPTION;
49: l_return_status VARCHAR2 (1);
50: l_msg_count NUMBER;
51: l_msg_data VARCHAR2 (2000);
52: l_in_trohdr_rec inv_move_order_pub.trohdr_rec_type;
53: l_in_trohdr_val_rec inv_move_order_pub.trohdr_val_rec_type;
54: l_out_trohdr_rec inv_move_order_pub.trohdr_rec_type;
55: l_out_trohdr_val_rec inv_move_order_pub.trohdr_val_rec_type;
56: create_mo_hdr_err EXCEPTION;
57: BEGIN
50: l_msg_count NUMBER;
51: l_msg_data VARCHAR2 (2000);
52: l_in_trohdr_rec inv_move_order_pub.trohdr_rec_type;
53: l_in_trohdr_val_rec inv_move_order_pub.trohdr_val_rec_type;
54: l_out_trohdr_rec inv_move_order_pub.trohdr_rec_type;
55: l_out_trohdr_val_rec inv_move_order_pub.trohdr_val_rec_type;
56: create_mo_hdr_err EXCEPTION;
57: BEGIN
58: IF g_debug <= gme_debug.g_log_procedure THEN
51: l_msg_data VARCHAR2 (2000);
52: l_in_trohdr_rec inv_move_order_pub.trohdr_rec_type;
53: l_in_trohdr_val_rec inv_move_order_pub.trohdr_val_rec_type;
54: l_out_trohdr_rec inv_move_order_pub.trohdr_rec_type;
55: l_out_trohdr_val_rec inv_move_order_pub.trohdr_val_rec_type;
56: create_mo_hdr_err EXCEPTION;
57: BEGIN
58: IF g_debug <= gme_debug.g_log_procedure THEN
59: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
75: l_in_trohdr_rec.grouping_rule_id := p_grouping_rule_id;
76:
77: IF (g_debug IS NOT NULL) THEN
78: gme_debug.put_line
79: ('Calling inv_move_order_pub.create_move_order_header');
80: END IF;
81:
82: inv_move_order_pub.create_move_order_header
83: (p_api_version_number => 1.0
78: gme_debug.put_line
79: ('Calling inv_move_order_pub.create_move_order_header');
80: END IF;
81:
82: inv_move_order_pub.create_move_order_header
83: (p_api_version_number => 1.0
84: ,p_init_msg_list => fnd_api.g_false
85: ,p_return_values => fnd_api.g_false
86: ,p_commit => fnd_api.g_false
90: ,p_trohdr_rec => l_in_trohdr_rec
91: ,p_trohdr_val_rec => l_in_trohdr_val_rec
92: ,x_trohdr_rec => l_out_trohdr_rec
93: ,x_trohdr_val_rec => l_out_trohdr_val_rec
94: ,p_validation_flag => inv_move_order_pub.g_validation_yes);
95:
96: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
97: RAISE create_mo_hdr_err;
98: ELSE
111: EXCEPTION
112: WHEN create_mo_hdr_err THEN
113: IF (g_debug <= gme_debug.g_log_error) THEN
114: gme_debug.put_line
115: ( 'inv_move_order_pub.create_move_order_header returns '
116: || l_return_status);
117: gme_debug.put_line ('error message is ' || l_msg_data);
118: END IF;
119:
136: p_move_order_header_id IN NUMBER
137: ,p_move_order_type IN NUMBER
138: ,p_material_details_tbl IN gme_common_pvt.material_details_tab
139: ,x_material_details_tbl OUT NOCOPY gme_common_pvt.material_details_tab
140: ,x_trolin_tbl OUT NOCOPY inv_move_order_pub.trolin_tbl_type
141: ,x_return_status OUT NOCOPY VARCHAR2)
142: IS
143: l_api_name CONSTANT VARCHAR2 (30) := 'create_move_order_lines';
144: l_return_status VARCHAR2 (1);
149: l_sec_uom_code VARCHAR2 (10);
150: l_msg_data VARCHAR2 (2000);
151: l_item_no VARCHAR2 (2000);
152: l_material_details_tbl gme_common_pvt.material_details_tab;
153: l_in_trolin_tbl inv_move_order_pub.trolin_tbl_type;
154: l_in_trolin_val_tbl inv_move_order_pub.trolin_val_tbl_type;
155: l_out_trolin_val_tbl inv_move_order_pub.trolin_val_tbl_type;
156: create_mo_line_err EXCEPTION;
157:
150: l_msg_data VARCHAR2 (2000);
151: l_item_no VARCHAR2 (2000);
152: l_material_details_tbl gme_common_pvt.material_details_tab;
153: l_in_trolin_tbl inv_move_order_pub.trolin_tbl_type;
154: l_in_trolin_val_tbl inv_move_order_pub.trolin_val_tbl_type;
155: l_out_trolin_val_tbl inv_move_order_pub.trolin_val_tbl_type;
156: create_mo_line_err EXCEPTION;
157:
158: CURSOR cur_item_mst (v_org_id NUMBER, v_inventory_item_id NUMBER)
151: l_item_no VARCHAR2 (2000);
152: l_material_details_tbl gme_common_pvt.material_details_tab;
153: l_in_trolin_tbl inv_move_order_pub.trolin_tbl_type;
154: l_in_trolin_val_tbl inv_move_order_pub.trolin_val_tbl_type;
155: l_out_trolin_val_tbl inv_move_order_pub.trolin_val_tbl_type;
156: create_mo_line_err EXCEPTION;
157:
158: CURSOR cur_item_mst (v_org_id NUMBER, v_inventory_item_id NUMBER)
159: IS
280: END LOOP;
281:
282: IF g_debug <= gme_debug.g_log_statement THEN
283: gme_debug.put_line
284: ( 'Calling inv_move_order_pub.create_move_order_lines with no. of lines = '
285: || l_in_trolin_tbl.COUNT);
286: END IF;
287: /* Bug 4866700 added check to call only if records are there in table */
288: IF (l_in_trolin_tbl.COUNT > 0) THEN
285: || l_in_trolin_tbl.COUNT);
286: END IF;
287: /* Bug 4866700 added check to call only if records are there in table */
288: IF (l_in_trolin_tbl.COUNT > 0) THEN
289: inv_move_order_pub.create_move_order_lines
290: (p_api_version_number => 1.0
291: ,p_init_msg_list => fnd_api.g_false
292: ,p_return_values => fnd_api.g_false
293: ,p_commit => fnd_api.g_false
297: ,p_trolin_tbl => l_in_trolin_tbl
298: ,p_trolin_val_tbl => l_in_trolin_val_tbl
299: ,x_trolin_tbl => x_trolin_tbl
300: ,x_trolin_val_tbl => l_out_trolin_val_tbl
301: ,p_validation_flag => inv_move_order_pub.g_validation_yes);
302:
303: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
304: RAISE create_mo_line_err;
305: ELSE
325: EXCEPTION
326: WHEN create_mo_line_err THEN
327: IF g_debug <= gme_debug.g_log_error THEN
328: gme_debug.put_line
329: ( 'inv_move_order_pub.create_move_order_lines returns '
330: || l_return_status);
331: gme_debug.put_line ('message count is ' || l_msg_count);
332:
333: FOR i IN 1 .. l_msg_count LOOP
369: l_primary_uom_code mtl_system_items_kfv.primary_uom_code%TYPE;
370:
371: l_mtl_dtl_tbl gme_common_pvt.material_details_tab;
372: l_mtl_dtl_tbl_out gme_common_pvt.material_details_tab;
373: l_trolin_tbl inv_move_order_pub.trolin_tbl_type;
374: l_is_revision_control BOOLEAN;
375: l_is_lot_control BOOLEAN;
376: l_is_serial_control BOOLEAN;
377: l_plan_qty_prim NUMBER;
649: l_count NUMBER;
650: l_curr_header_id NUMBER := 0;
651: l_msg_count NUMBER;
652: l_msg_data VARCHAR2 (2000);
653: l_trohdr_rec inv_move_order_pub.trohdr_rec_type;
654: l_out_trohdr_rec inv_move_order_pub.trohdr_rec_type;
655: l_out_trohdr_val_rec inv_move_order_pub.trohdr_val_rec_type;
656: l_trolin_val_tbl inv_move_order_pub.trolin_val_tbl_type;
657: l_trolin_tbl inv_move_order_pub.trolin_tbl_type;
650: l_curr_header_id NUMBER := 0;
651: l_msg_count NUMBER;
652: l_msg_data VARCHAR2 (2000);
653: l_trohdr_rec inv_move_order_pub.trohdr_rec_type;
654: l_out_trohdr_rec inv_move_order_pub.trohdr_rec_type;
655: l_out_trohdr_val_rec inv_move_order_pub.trohdr_val_rec_type;
656: l_trolin_val_tbl inv_move_order_pub.trolin_val_tbl_type;
657: l_trolin_tbl inv_move_order_pub.trolin_tbl_type;
658: l_old_trolin_tbl inv_move_order_pub.trolin_tbl_type;
651: l_msg_count NUMBER;
652: l_msg_data VARCHAR2 (2000);
653: l_trohdr_rec inv_move_order_pub.trohdr_rec_type;
654: l_out_trohdr_rec inv_move_order_pub.trohdr_rec_type;
655: l_out_trohdr_val_rec inv_move_order_pub.trohdr_val_rec_type;
656: l_trolin_val_tbl inv_move_order_pub.trolin_val_tbl_type;
657: l_trolin_tbl inv_move_order_pub.trolin_tbl_type;
658: l_old_trolin_tbl inv_move_order_pub.trolin_tbl_type;
659: l_out_trolin_tbl inv_move_order_pub.trolin_tbl_type;
652: l_msg_data VARCHAR2 (2000);
653: l_trohdr_rec inv_move_order_pub.trohdr_rec_type;
654: l_out_trohdr_rec inv_move_order_pub.trohdr_rec_type;
655: l_out_trohdr_val_rec inv_move_order_pub.trohdr_val_rec_type;
656: l_trolin_val_tbl inv_move_order_pub.trolin_val_tbl_type;
657: l_trolin_tbl inv_move_order_pub.trolin_tbl_type;
658: l_old_trolin_tbl inv_move_order_pub.trolin_tbl_type;
659: l_out_trolin_tbl inv_move_order_pub.trolin_tbl_type;
660: l_line_tbl gme_common_pvt.mo_lines_tab;
653: l_trohdr_rec inv_move_order_pub.trohdr_rec_type;
654: l_out_trohdr_rec inv_move_order_pub.trohdr_rec_type;
655: l_out_trohdr_val_rec inv_move_order_pub.trohdr_val_rec_type;
656: l_trolin_val_tbl inv_move_order_pub.trolin_val_tbl_type;
657: l_trolin_tbl inv_move_order_pub.trolin_tbl_type;
658: l_old_trolin_tbl inv_move_order_pub.trolin_tbl_type;
659: l_out_trolin_tbl inv_move_order_pub.trolin_tbl_type;
660: l_line_tbl gme_common_pvt.mo_lines_tab;
661: delete_mo_line_err EXCEPTION;
654: l_out_trohdr_rec inv_move_order_pub.trohdr_rec_type;
655: l_out_trohdr_val_rec inv_move_order_pub.trohdr_val_rec_type;
656: l_trolin_val_tbl inv_move_order_pub.trolin_val_tbl_type;
657: l_trolin_tbl inv_move_order_pub.trolin_tbl_type;
658: l_old_trolin_tbl inv_move_order_pub.trolin_tbl_type;
659: l_out_trolin_tbl inv_move_order_pub.trolin_tbl_type;
660: l_line_tbl gme_common_pvt.mo_lines_tab;
661: delete_mo_line_err EXCEPTION;
662: delete_mo_hdr_err EXCEPTION;
655: l_out_trohdr_val_rec inv_move_order_pub.trohdr_val_rec_type;
656: l_trolin_val_tbl inv_move_order_pub.trolin_val_tbl_type;
657: l_trolin_tbl inv_move_order_pub.trolin_tbl_type;
658: l_old_trolin_tbl inv_move_order_pub.trolin_tbl_type;
659: l_out_trolin_tbl inv_move_order_pub.trolin_tbl_type;
660: l_line_tbl gme_common_pvt.mo_lines_tab;
661: delete_mo_line_err EXCEPTION;
662: delete_mo_hdr_err EXCEPTION;
663: get_mo_line_err EXCEPTION;
705: RETURN;
706: END IF;
707: IF (g_debug <= gme_debug.g_log_statement) THEN
708: gme_debug.put_line
709: ( 'Calling inv_move_order_pub.process_move_order_line in '
710: || l_api_name);
711: END IF;
712:
713: inv_move_order_pub.process_move_order_line
709: ( 'Calling inv_move_order_pub.process_move_order_line in '
710: || l_api_name);
711: END IF;
712:
713: inv_move_order_pub.process_move_order_line
714: (p_api_version_number => 1.0
715: ,p_init_msg_list => fnd_api.g_false
716: ,p_return_values => fnd_api.g_false
717: ,p_commit => fnd_api.g_false
743: l_trohdr_rec.operation := inv_globals.g_opr_delete;
744:
745: IF (g_debug <= gme_debug.g_log_statement) THEN
746: gme_debug.put_line
747: ( 'Calling inv_move_order_pub.process_move_order in '
748: || l_api_name);
749: END IF;
750:
751: inv_move_order_pub.process_move_order
747: ( 'Calling inv_move_order_pub.process_move_order in '
748: || l_api_name);
749: END IF;
750:
751: inv_move_order_pub.process_move_order
752: (p_api_version_number => 1.0
753: ,p_init_msg_list => fnd_api.g_false
754: ,p_return_values => fnd_api.g_false
755: ,p_commit => fnd_api.g_false
778: x_return_status := l_return_status;
779: WHEN delete_mo_line_err THEN
780: IF (g_debug IS NOT NULL) THEN
781: gme_debug.put_line
782: ( 'inv_move_order_pub.process_move_order_line returns '
783: || l_return_status);
784: gme_debug.put_line ('error message is ' || l_msg_data);
785: END IF;
786:
787: x_return_status := l_return_status;
788: WHEN delete_mo_hdr_err THEN
789: IF (g_debug IS NOT NULL) THEN
790: gme_debug.put_line
791: ( 'inv_move_order_pub.process_move_order returns '
792: || l_return_status);
793: gme_debug.put_line ('error message is ' || l_msg_data);
794: END IF;
795:
823: l_curr_qty NUMBER;
824: l_diff_qty NUMBER;
825: l_msg_count NUMBER;
826: l_msg_data VARCHAR2 (2000);
827: l_trolin_tbl inv_move_order_pub.trolin_tbl_type;
828: l_old_trolin_tbl inv_move_order_pub.trolin_tbl_type;
829: l_out_trolin_tbl inv_move_order_pub.trolin_tbl_type;
830:
831: CURSOR cur_move_order_lines
824: l_diff_qty NUMBER;
825: l_msg_count NUMBER;
826: l_msg_data VARCHAR2 (2000);
827: l_trolin_tbl inv_move_order_pub.trolin_tbl_type;
828: l_old_trolin_tbl inv_move_order_pub.trolin_tbl_type;
829: l_out_trolin_tbl inv_move_order_pub.trolin_tbl_type;
830:
831: CURSOR cur_move_order_lines
832: IS
825: l_msg_count NUMBER;
826: l_msg_data VARCHAR2 (2000);
827: l_trolin_tbl inv_move_order_pub.trolin_tbl_type;
828: l_old_trolin_tbl inv_move_order_pub.trolin_tbl_type;
829: l_out_trolin_tbl inv_move_order_pub.trolin_tbl_type;
830:
831: CURSOR cur_move_order_lines
832: IS
833: SELECT l.*
1092: END IF;
1093:
1094: IF (g_debug IS NOT NULL) THEN
1095: gme_debug.put_line
1096: ( 'Calling inv_move_order_pub.process_move_order_line in '
1097: || l_api_name);
1098: END IF;
1099:
1100: inv_move_order_pub.process_move_order_line
1096: ( 'Calling inv_move_order_pub.process_move_order_line in '
1097: || l_api_name);
1098: END IF;
1099:
1100: inv_move_order_pub.process_move_order_line
1101: (p_api_version_number => 1.0
1102: ,p_init_msg_list => fnd_api.g_false
1103: ,p_return_values => fnd_api.g_false
1104: ,p_commit => fnd_api.g_false
1119: EXCEPTION
1120: WHEN process_mo_line_err THEN
1121: IF (g_debug IS NOT NULL) THEN
1122: gme_debug.put_line
1123: ( 'inv_move_order_pub.process_move_order_line returns '
1124: || l_return_status);
1125: gme_debug.put_line ('error message is ' || l_msg_data);
1126: END IF;
1127: