[Home] [Help]
53: If p_get_inqueue_header = FALSE => fetch requirement header from Apps.
54: ***/
55: PROCEDURE APPLY_INSERT
56: (
57: p_line_table IN OUT NOCOPY CSP_PARTS_REQUIREMENT.LINE_TBL_TYPE,
58: p_user_name IN VARCHAR2,
59: p_tranid IN NUMBER,
60: p_get_inqueue_header IN BOOLEAN,
61: p_req_hid IN NUMBER,
62: p_error_msg OUT NOCOPY VARCHAR2,
63: x_return_status IN OUT NOCOPY VARCHAR2
64: ) IS
65:
66: l_header_rec CSP_PARTS_REQUIREMENT.HEADER_REC_TYPE;
67: l_s_org_id NUMBER := 207;
68: l_d_org_id NUMBER := 204;
69: l_item_id NUMBER := 155;
70: l_quantity NUMBER := 7;
94:
95: is_html5 BOOLEAN :=csm_util_pkg.is_html5_user(p_user_name);
96: l_create_order VARCHAR2(1):='N';
97:
98: l_line_tbl CSP_PARTS_REQUIREMENT.Line_Tbl_type:=p_line_table;
99: l_user_id NUMBER;
100: l_resp_id NUMBER;
101: l_app_id NUMBER;
102: BEGIN
122: l_header_rec.SHIP_TO_LOCATION_ID := r_get_requirement_from_inq.SHIP_TO_LOCATION_ID;
123: l_header_rec.NEED_BY_DATE := r_get_requirement_from_inq.NEED_BY_DATE;
124: l_header_rec.DEST_ORGANIZATION_ID := r_get_requirement_from_inq.DESTINATION_ORGANIZATION_ID;
125: l_header_rec.DEST_SUBINVENTORY := r_get_requirement_from_inq.DESTINATION_SUBINVENTORY;
126: l_header_rec.OPERATION := CSP_PARTS_REQUIREMENT.G_OPR_CREATE;
127: l_header_rec.RESOURCE_TYPE := r_get_requirement_from_inq.RESOURCE_TYPE;
128: l_header_rec.RESOURCE_ID := r_get_requirement_from_inq.RESOURCE_ID;
129: l_header_rec.TASK_ID := r_get_requirement_from_inq.TASK_ID;
130: l_header_rec.TASK_ASSIGNMENT_ID := r_get_requirement_from_inq.TASK_ASSIGNMENT_ID;
145: l_header_rec.attribute14 := r_get_requirement_from_inq.attribute14;
146: l_header_rec.attribute15 := r_get_requirement_from_inq.attribute15;
147:
148: l_header_rec.shipping_method_code :=r_get_requirement_from_inq.shipping_method_code;
149: l_header_rec.ADDRESS_TYPE := NVL(r_get_requirement_from_inq.ADDRESS_TYPE, CSP_PARTS_REQUIREMENT.G_ADDR_RESOURCE);
150:
151: IF NVL(r_get_requirement_from_inq.SHIP_TO_LOC_SRC,'HZ')='HZ' THEN
152: l_header_rec.SHIP_TO_LOCATION_ID:=CSM_MULTI_MOBQRY_PKG.get_hr_location(p_user_name,r_get_requirement_from_inq.TASK_ID,r_get_requirement_from_inq.SHIP_TO_LOCATION_ID);
153: ELSE
169: l_header_rec.shipping_method_code := r_get_requirement_from_apps.shipping_method_code;
170: l_header_rec.NEED_BY_DATE := r_get_requirement_from_apps.NEED_BY_DATE;
171: l_header_rec.DEST_ORGANIZATION_ID := r_get_requirement_from_apps.DESTINATION_ORGANIZATION_ID;
172: l_header_rec.DEST_SUBINVENTORY := r_get_requirement_from_apps.DESTINATION_SUBINVENTORY;
173: l_header_rec.OPERATION := CSP_PARTS_REQUIREMENT.G_OPR_CREATE;
174: l_header_rec.RESOURCE_TYPE := r_get_requirement_from_apps.RESOURCE_TYPE;
175: l_header_rec.RESOURCE_ID := r_get_requirement_from_apps.RESOURCE_ID;
176: l_header_rec.TASK_ID := r_get_requirement_from_apps.TASK_ID;
177: l_header_rec.TASK_ASSIGNMENT_ID := r_get_requirement_from_apps.TASK_ASSIGNMENT_ID;
201: IF NOT is_html5 THEN
202: l_create_order:='Y';
203: END IF;
204:
205: CSP_PARTS_REQUIREMENT.Process_Requirement
206: ( P_API_VERSION => 1
207: , P_INIT_MSG_LIST => FND_API.G_TRUE
208: , PX_HEADER_REC => l_header_rec
209: , PX_LINE_TABLE => p_line_table
227: FROM asg_user WHERE user_name=p_user_name;
228: fnd_global.apps_initialize(l_user_id, l_resp_id, l_app_id);
229: MO_GLOBAL.INIT ('CSM');
230:
231: CSP_PARTS_REQUIREMENT.csptrreq_order_res(
232: p_api_version =>1
233: ,p_Init_Msg_List => FND_API.G_TRUE
234: ,px_header_rec => l_header_rec
235: ,px_line_table => l_line_tbl
400: x_return_status IN OUT NOCOPY VARCHAR2
401: ) IS
402:
403: l_error_msg VARCHAR2(4000);
404: l_line_rec CSP_PARTS_REQUIREMENT.LINE_REC_TYPE;
405: l_line_table CSP_PARTS_REQUIREMENT.LINE_TBL_TYPE;
406: cnt number:=0;
407: l_return_status VARCHAR2(100);
408:
401: ) IS
402:
403: l_error_msg VARCHAR2(4000);
404: l_line_rec CSP_PARTS_REQUIREMENT.LINE_REC_TYPE;
405: l_line_table CSP_PARTS_REQUIREMENT.LINE_TBL_TYPE;
406: cnt number:=0;
407: l_return_status VARCHAR2(100);
408:
409: is_html5 BOOLEAN := csm_util_pkg.is_html5_user(p_user_name);