16: PROCEDURE create_orders
17: ( p_api_version IN NUMBER
18: ,p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE
19: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
20: ,px_header_rec IN OUT NOCOPY csp_parts_requirement.Header_rec_type
21: ,px_line_table IN OUT NOCOPY csp_parts_requirement.Line_Tbl_type
22: ,p_Repair_supplier_id IN NUMBER
23: ,x_return_status OUT NOCOPY VARCHAR2
24: ,x_msg_count OUT NOCOPY NUMBER
17: ( p_api_version IN NUMBER
18: ,p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE
19: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
20: ,px_header_rec IN OUT NOCOPY csp_parts_requirement.Header_rec_type
21: ,px_line_table IN OUT NOCOPY csp_parts_requirement.Line_Tbl_type
22: ,p_Repair_supplier_id IN NUMBER
23: ,x_return_status OUT NOCOPY VARCHAR2
24: ,x_msg_count OUT NOCOPY NUMBER
25: ,x_msg_data OUT NOCOPY VARCHAR2)
28: l_api_name CONSTANT VARCHAR2(30) := 'create_orders';
29: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
30: l_msg_count NUMBER;
31: l_msg_data VARCHAR2(2000);
32: l_line_Rec csp_parts_Requirement.line_rec_type;
33: l_order_hdr_rec csp_parts_requirement.header_rec_type;
34: l_order_line_tbl csp_parts_requirement.line_tbl_type;
35: l_IO1_header_id NUMBER;
36: l_IR1_requisition_id NUMBER;
29: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
30: l_msg_count NUMBER;
31: l_msg_data VARCHAR2(2000);
32: l_line_Rec csp_parts_Requirement.line_rec_type;
33: l_order_hdr_rec csp_parts_requirement.header_rec_type;
34: l_order_line_tbl csp_parts_requirement.line_tbl_type;
35: l_IO1_header_id NUMBER;
36: l_IR1_requisition_id NUMBER;
37: l_IO2_header_id NUMBER;
30: l_msg_count NUMBER;
31: l_msg_data VARCHAR2(2000);
32: l_line_Rec csp_parts_Requirement.line_rec_type;
33: l_order_hdr_rec csp_parts_requirement.header_rec_type;
34: l_order_line_tbl csp_parts_requirement.line_tbl_type;
35: l_IO1_header_id NUMBER;
36: l_IR1_requisition_id NUMBER;
37: l_IO2_header_id NUMBER;
38: l_IR2_requisition_id NUMBER;
76: when no_data_found then
77: null;
78: end;
79: l_order_hdr_Rec.dest_organization_id := p_repair_supplier_id;
80: l_order_hdr_rec.operation := csp_parts_requirement.G_OPR_CREATE;
81:
82: -- FIND NEED_BY_DATE
83:
84: -- create line record for creating IO1
120: when no_data_found then
121: null;
122: end;
123: l_order_hdr_Rec.dest_organization_id := px_header_rec.dest_organization_id;
124: l_order_hdr_rec.operation := csp_parts_requirement.G_OPR_CREATE;
125: l_order_hdr_rec.requisition_number := NULL;
126: l_order_hdr_rec.order_header_id := NULL;
127: l_order_hdr_rec.requisition_header_id := NULL;
128: