85: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
86: SAVEPOINT SO_PROCESSING_TXN;
87: -- Initialize API return status to success
88: x_return_status := FND_API.G_RET_STS_SUCCESS;
89: FND_MESSAGE.SET_NAME('CLN','CLN_G_RET_MSG_SUCCESS');
90: x_msg_data := FND_MESSAGE.GET;
91: G_PO_LINE_NUMBER := -1;
92: IF (l_Debug_Level <= 2) THEN
93: cln_debug_pub.Add('ENTERING PROCESS_ORDER_HEADER', 2);
86: SAVEPOINT SO_PROCESSING_TXN;
87: -- Initialize API return status to success
88: x_return_status := FND_API.G_RET_STS_SUCCESS;
89: FND_MESSAGE.SET_NAME('CLN','CLN_G_RET_MSG_SUCCESS');
90: x_msg_data := FND_MESSAGE.GET;
91: G_PO_LINE_NUMBER := -1;
92: IF (l_Debug_Level <= 2) THEN
93: cln_debug_pub.Add('ENTERING PROCESS_ORDER_HEADER', 2);
94: END IF;
110: -- a collaboration if XMLGateway receives an inbound CLN document otherthan CBOD
111: l_so_status := upper(p_so_status);
112:
113: IF l_so_status <> 'OPEN' THEN
114: FND_MESSAGE.SET_NAME('CLN','CLN_INVALID_ORDER_STATUS');
115: FND_MESSAGE.SET_TOKEN('ORDERSTATUS', p_so_status);
116: x_msg_data := FND_MESSAGE.GET;
117: RAISE_UPDATE_COLLABORATION(
118: x_return_status => l_return_status,
111: l_so_status := upper(p_so_status);
112:
113: IF l_so_status <> 'OPEN' THEN
114: FND_MESSAGE.SET_NAME('CLN','CLN_INVALID_ORDER_STATUS');
115: FND_MESSAGE.SET_TOKEN('ORDERSTATUS', p_so_status);
116: x_msg_data := FND_MESSAGE.GET;
117: RAISE_UPDATE_COLLABORATION(
118: x_return_status => l_return_status,
119: x_msg_data => l_return_msg,
112:
113: IF l_so_status <> 'OPEN' THEN
114: FND_MESSAGE.SET_NAME('CLN','CLN_INVALID_ORDER_STATUS');
115: FND_MESSAGE.SET_TOKEN('ORDERSTATUS', p_so_status);
116: x_msg_data := FND_MESSAGE.GET;
117: RAISE_UPDATE_COLLABORATION(
118: x_return_status => l_return_status,
119: x_msg_data => l_return_msg,
120: p_ref_id => p_app_ref_id,
134: cln_debug_pub.Add('EXITING PROCESS_ORDER_HEADER', 2);
135: END IF;
136: RETURN;
137: END IF; -- SO Status
138: FND_MESSAGE.SET_NAME('CLN','CLN_PO_UPDATION_SUCCESS');
139: l_msg_text := FND_MESSAGE.GET;
140: RAISE_UPDATE_COLLABORATION(
141: x_return_status => l_return_status,
142: x_msg_data => l_return_msg,
135: END IF;
136: RETURN;
137: END IF; -- SO Status
138: FND_MESSAGE.SET_NAME('CLN','CLN_PO_UPDATION_SUCCESS');
139: l_msg_text := FND_MESSAGE.GET;
140: RAISE_UPDATE_COLLABORATION(
141: x_return_status => l_return_status,
142: x_msg_data => l_return_msg,
143: p_ref_id => p_app_ref_id,
354: -- Sets the debug mode to be FILE
355: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
356: -- Initialize API return status to success
357: x_return_status := FND_API.G_RET_STS_SUCCESS;
358: FND_MESSAGE.SET_NAME('CLN','CLN_G_RET_MSG_SUCCESS');
359: x_msg_data := FND_MESSAGE.GET;
360:
361:
362: IF (l_Debug_Level <= 2) THEN
355: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
356: -- Initialize API return status to success
357: x_return_status := FND_API.G_RET_STS_SUCCESS;
358: FND_MESSAGE.SET_NAME('CLN','CLN_G_RET_MSG_SUCCESS');
359: x_msg_data := FND_MESSAGE.GET;
360:
361:
362: IF (l_Debug_Level <= 2) THEN
363: cln_debug_pub.Add('ENTERING PROCESS_ORDER_LINE', 2);
659: -- Sets the debug mode to be FILE
660: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
661: -- Initialize API return status to success
662: x_return_status := FND_API.G_RET_STS_SUCCESS;
663: FND_MESSAGE.SET_NAME('CLN','CLN_G_RET_MSG_SUCCESS');
664: x_msg_data := FND_MESSAGE.GET;
665:
666: IF (l_Debug_Level <= 2) THEN
667: cln_debug_pub.Add('ENTERING PROCESS_ORDER_LINE_SHIPMENT', 2);
660: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
661: -- Initialize API return status to success
662: x_return_status := FND_API.G_RET_STS_SUCCESS;
663: FND_MESSAGE.SET_NAME('CLN','CLN_G_RET_MSG_SUCCESS');
664: x_msg_data := FND_MESSAGE.GET;
665:
666: IF (l_Debug_Level <= 2) THEN
667: cln_debug_pub.Add('ENTERING PROCESS_ORDER_LINE_SHIPMENT', 2);
668: END IF;
1006: -- Sets the debug mode to be FILE
1007: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
1008: -- Initialize API return status to success
1009: x_return_status := FND_API.G_RET_STS_SUCCESS;
1010: FND_MESSAGE.SET_NAME('CLN','CLN_G_RET_MSG_SUCCESS');
1011: x_msg_data := FND_MESSAGE.GET;
1012: IF (l_Debug_Level <= 2) THEN
1013: cln_debug_pub.Add('ENTERING LOAD_CHANGES', 2);
1014: END IF;
1007: --l_debug_mode := cln_debug_pub.Set_Debug_Mode('FILE');
1008: -- Initialize API return status to success
1009: x_return_status := FND_API.G_RET_STS_SUCCESS;
1010: FND_MESSAGE.SET_NAME('CLN','CLN_G_RET_MSG_SUCCESS');
1011: x_msg_data := FND_MESSAGE.GET;
1012: IF (l_Debug_Level <= 2) THEN
1013: cln_debug_pub.Add('ENTERING LOAD_CHANGES', 2);
1014: END IF;
1015: IF (l_Debug_Level <= 1) THEN
1224: -- Error occured
1225: IF l_status <> 'S' THEN
1226: -- Invalid Sales Order Status
1227: IF upper(l_so_status) <> 'OPEN' THEN
1228: FND_MESSAGE.SET_NAME('CLN','CLN_INVALID_ORDER_STATUS');
1229: FND_MESSAGE.SET_TOKEN('ORDERSTATUS', l_so_status);
1230: l_msg_data := FND_MESSAGE.GET;
1231: CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS(
1232: x_ret_code => l_return_status,
1225: IF l_status <> 'S' THEN
1226: -- Invalid Sales Order Status
1227: IF upper(l_so_status) <> 'OPEN' THEN
1228: FND_MESSAGE.SET_NAME('CLN','CLN_INVALID_ORDER_STATUS');
1229: FND_MESSAGE.SET_TOKEN('ORDERSTATUS', l_so_status);
1230: l_msg_data := FND_MESSAGE.GET;
1231: CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS(
1232: x_ret_code => l_return_status,
1233: x_ret_desc => l_return_msg,
1226: -- Invalid Sales Order Status
1227: IF upper(l_so_status) <> 'OPEN' THEN
1228: FND_MESSAGE.SET_NAME('CLN','CLN_INVALID_ORDER_STATUS');
1229: FND_MESSAGE.SET_TOKEN('ORDERSTATUS', l_so_status);
1230: l_msg_data := FND_MESSAGE.GET;
1231: CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS(
1232: x_ret_code => l_return_status,
1233: x_ret_desc => l_return_msg,
1234: p_notification_code => 'SO_IN03',
1266: RETURN;
1267: END IF;
1268: -- Order Line Closed
1269: IF l_order_line_closed = 'YES' THEN
1270: FND_MESSAGE.SET_NAME('CLN','CLN_ORDER_LINE_CLOSED');
1271: l_msg_data := FND_MESSAGE.GET;
1272: CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS(
1273: x_ret_code => l_return_status,
1274: x_ret_desc => l_return_msg,
1267: END IF;
1268: -- Order Line Closed
1269: IF l_order_line_closed = 'YES' THEN
1270: FND_MESSAGE.SET_NAME('CLN','CLN_ORDER_LINE_CLOSED');
1271: l_msg_data := FND_MESSAGE.GET;
1272: CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS(
1273: x_ret_code => l_return_status,
1274: x_ret_desc => l_return_msg,
1275: p_notification_code => 'SO_IN04',
1287: END IF;
1288: RETURN;
1289: END IF;
1290: -- Success
1291: FND_MESSAGE.SET_NAME('CLN','CLN_G_RET_MSG_SUCCESS');
1292: l_msg_data := FND_MESSAGE.GET;
1293: CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS(
1294: x_ret_code => l_return_status,
1295: x_ret_desc => l_return_msg,
1288: RETURN;
1289: END IF;
1290: -- Success
1291: FND_MESSAGE.SET_NAME('CLN','CLN_G_RET_MSG_SUCCESS');
1292: l_msg_data := FND_MESSAGE.GET;
1293: CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS(
1294: x_ret_code => l_return_status,
1295: x_ret_desc => l_return_msg,
1296: p_notification_code => 'SO_IN01',
1362: cln_debug_pub.Add('ENTERING RAISE_UPDATE_COLLABORATION', 2);
1363: END IF;
1364: -- Initialize API return status to success
1365: x_return_status := FND_API.G_RET_STS_SUCCESS;
1366: FND_MESSAGE.SET_NAME('CLN','CLN_CH_EVENT_RAISED');
1367: FND_MESSAGE.SET_TOKEN('EVENT','Update');
1368: x_msg_data := FND_MESSAGE.GET;
1369: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
1370: IF (l_Debug_Level <= 1) THEN
1363: END IF;
1364: -- Initialize API return status to success
1365: x_return_status := FND_API.G_RET_STS_SUCCESS;
1366: FND_MESSAGE.SET_NAME('CLN','CLN_CH_EVENT_RAISED');
1367: FND_MESSAGE.SET_TOKEN('EVENT','Update');
1368: x_msg_data := FND_MESSAGE.GET;
1369: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
1370: IF (l_Debug_Level <= 1) THEN
1371: cln_debug_pub.Add('With the following parameters', 1);
1364: -- Initialize API return status to success
1365: x_return_status := FND_API.G_RET_STS_SUCCESS;
1366: FND_MESSAGE.SET_NAME('CLN','CLN_CH_EVENT_RAISED');
1367: FND_MESSAGE.SET_TOKEN('EVENT','Update');
1368: x_msg_data := FND_MESSAGE.GET;
1369: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
1370: IF (l_Debug_Level <= 1) THEN
1371: cln_debug_pub.Add('With the following parameters', 1);
1372: END IF;
1462: cln_debug_pub.Add('p_dtl_msg - ' || p_dtl_msg,1);
1463: END IF;
1464: -- Initialize API return status to success
1465: x_return_status := FND_API.G_RET_STS_SUCCESS;
1466: FND_MESSAGE.SET_NAME('CLN', 'CLN_G_RET_MSG_SUCCESS');
1467: x_msg_data := FND_MESSAGE.GET;
1468: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
1469: l_cln_ch_parameters := wf_parameter_list_t();
1470: WF_EVENT.AddParameterToList('COLLABORATION_DETAIL_ID', l_dtl_coll_id, l_cln_ch_parameters);
1463: END IF;
1464: -- Initialize API return status to success
1465: x_return_status := FND_API.G_RET_STS_SUCCESS;
1466: FND_MESSAGE.SET_NAME('CLN', 'CLN_G_RET_MSG_SUCCESS');
1467: x_msg_data := FND_MESSAGE.GET;
1468: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
1469: l_cln_ch_parameters := wf_parameter_list_t();
1470: WF_EVENT.AddParameterToList('COLLABORATION_DETAIL_ID', l_dtl_coll_id, l_cln_ch_parameters);
1471: WF_EVENT.AddParameterToList('REFERENCE_ID1', p_ref1, l_cln_ch_parameters);