[Home] [Help]
18: --========================================================================
19: -- PROCEDURE : Shipment_Advice PUBLIC
20: --
21: -- PARAMETERS: p_api_version_number known api version
22: -- p_init_msg_list FND_API.G_TRUE to reset list
23: -- p_action_code 'CREATE'
24: -- p_delivery_rec Attributes for the Shipment Advice entity
25: -- p_commit commit flag
26: -- x_return_status return status
52: IF l_debug_on THEN
53: WSH_DEBUG_SV.push(l_module_name);
54: WSH_DEBUG_SV.log(l_module_name,'P_INIT_MSG_LIST',P_INIT_MSG_LIST);
55: END IF;
56: IF FND_API.to_Boolean(p_init_msg_list) THEN
57: FND_MSG_PUB.initialize;
58: END IF;
59: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
60: IF NOT FND_API.Compatible_API_Call
56: IF FND_API.to_Boolean(p_init_msg_list) THEN
57: FND_MSG_PUB.initialize;
58: END IF;
59: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
60: IF NOT FND_API.Compatible_API_Call
61: ( l_api_version_number
62: , p_api_version_number
63: , l_api_name
64: , G_PKG_NAME
63: , l_api_name
64: , G_PKG_NAME
65: )
66: THEN
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: END IF;
69:
70: IF p_action = 'CREATE' THEN
71: IF l_debug_on THEN
74: Create_Shipment_Advice(
75: p_delivery_rec => p_delivery_rec,
76: x_return_status => l_return_status);
77: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
78: RAISE FND_API.G_EXC_ERROR;
79: END IF;
80: IF p_commit = FND_API.G_TRUE THEN
81: COMMIT;
82: END IF;
76: x_return_status => l_return_status);
77: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
78: RAISE FND_API.G_EXC_ERROR;
79: END IF;
80: IF p_commit = FND_API.G_TRUE THEN
81: COMMIT;
82: END IF;
83: ELSE
84: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
87: wsh_util_core.add_message(x_return_status);
88: IF l_debug_on THEN
89: WSH_DEBUG_SV.log(l_module_name, 'p_action_code should be CREATE.The current value is',p_action);
90: END IF;
91: RAISE FND_API.G_EXC_ERROR;
92:
93: END IF;
94: IF l_debug_on THEN
95: WSH_DEBUG_SV.pop(l_module_name);
95: WSH_DEBUG_SV.pop(l_module_name);
96: END IF;
97:
98: EXCEPTION
99: WHEN FND_API.G_EXC_ERROR THEN
100: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
101: IF l_debug_on THEN
102: WSH_DEBUG_SV.logmsg(l_module_name,'Rolling back the transactions');
103: END IF;
103: END IF;
104: rollback;
105: fnd_msg_pub.count_and_get(p_count => x_msg_count,
106: p_data => x_msg_data,
107: p_encoded => fnd_api.g_false);
108: IF l_debug_on THEN
109: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
110: END IF;
111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
105: fnd_msg_pub.count_and_get(p_count => x_msg_count,
106: p_data => x_msg_data,
107: p_encoded => fnd_api.g_false);
108: IF l_debug_on THEN
109: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
110: END IF;
111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
112: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
113: IF l_debug_on THEN
107: p_encoded => fnd_api.g_false);
108: IF l_debug_on THEN
109: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
110: END IF;
111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
112: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
113: IF l_debug_on THEN
114: WSH_DEBUG_SV.logmsg(l_module_name,'Rolling back the transactions');
115: END IF;
115: END IF;
116: rollback;
117: fnd_msg_pub.count_and_get(p_count => x_msg_count,
118: p_data => x_msg_data,
119: p_encoded => fnd_api.g_false);
120:
121: IF l_debug_on THEN
122: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
123: END IF;
118: p_data => x_msg_data,
119: p_encoded => fnd_api.g_false);
120:
121: IF l_debug_on THEN
122: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
123: END IF;
124: WHEN OTHERS THEN
125: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
126: IF l_debug_on THEN
127: WSH_DEBUG_SV.logmsg(l_module_name,'Rolling back the transactions');
128: END IF;
129: fnd_msg_pub.count_and_get(p_count => x_msg_count,
130: p_data => x_msg_data,
131: p_encoded => fnd_api.g_false);
132: rollback;
133: IF l_debug_on THEN
134: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
135: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
190:
191: IF l_debug_on THEN
192: WSH_DEBUG_SV.log(l_module_name, 'Mandatory input parameters have not been passed');
193: END IF;
194: RAISE FND_API.G_EXC_ERROR;
195: END IF;
196: select count(*) into l_exists
197: FROM wsh_transactions_history
198: WHERE document_number = p_delivery_rec.document_number
206: wsh_util_core.add_message(x_return_status);
207: IF l_debug_on THEN
208: wsh_debug_sv.logmsg(l_module_name, 'The document already exists');
209: END IF;
210: RAISE FND_API.G_EXC_ERROR;
211: END IF;
212:
213: IF l_debug_on THEN
214: wsh_debug_sv.logmsg(l_module_name, 'Inserting into WSH_NEW_DEL_INTERFACE');
444: wsh_util_core.add_message(x_return_status);
445: IF l_debug_on THEN
446: wsh_debug_sv.logmsg(l_module_name, 'Line number is a mandatory parameter for delivery_detail_interface records');
447: END IF;
448: RAISE FND_API.G_EXC_ERROR;
449: END IF;
450: INSERT INTO WSH_DEL_DETAILS_INTERFACE(
451: DELIVERY_DETAIL_INTERFACE_ID,
452: ITEM_NUMBER,
1100: p_trip_routing_ins => p_delivery_rec.routing_instructions,
1101: p_operator => p_delivery_rec.operator ,
1102: x_return_status => l_return_status);
1103: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1104: RAISE FND_API.G_EXC_ERROR;
1105: END IF;
1106:
1107: INSERT INTO wsh_transactions_history (
1108: TRANSACTION_ID,
1152:
1153:
1154: EXCEPTION
1155:
1156: WHEN FND_API.G_EXC_ERROR THEN
1157: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1158: IF l_debug_on THEN
1159: WSH_DEBUG_SV.log(l_module_name, 'Error Creating Shipment advance with Document_Number',p_delivery_rec.Document_Number);
1160: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1156: WHEN FND_API.G_EXC_ERROR THEN
1157: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1158: IF l_debug_on THEN
1159: WSH_DEBUG_SV.log(l_module_name, 'Error Creating Shipment advance with Document_Number',p_delivery_rec.Document_Number);
1160: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1161: END IF;
1162: WHEN OTHERS THEN
1163: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1164: IF l_debug_on THEN
1170: --========================================================================
1171: -- PROCEDURE : Process_Shipment_Advice PUBLIC
1172: --
1173: -- PARAMETERS: p_api_version_number known api version
1174: -- p_init_msg_list FND_API.G_TRUE to reset list
1175: -- p_process_mode 'ONLINE' or 'CONCURRENT'
1176: -- p_log_level 0 or 1 to control the log messages
1177: -- p_transaction_status Status of Shipment Advice
1178: -- p_from_document_number From Document Number
1232: WSH_DEBUG_SV.log(l_module_name,'p_to_creation_date',p_to_creation_date);
1233: WSH_DEBUG_SV.log(l_module_name,'p_transaction_id',p_transaction_id);
1234:
1235: END IF;
1236: IF FND_API.to_Boolean(p_init_msg_list) THEN
1237: FND_MSG_PUB.initialize;
1238: END IF;
1239:
1240: IF NOT FND_API.Compatible_API_Call
1236: IF FND_API.to_Boolean(p_init_msg_list) THEN
1237: FND_MSG_PUB.initialize;
1238: END IF;
1239:
1240: IF NOT FND_API.Compatible_API_Call
1241: ( l_api_version_number
1242: , p_api_version_number
1243: , l_api_name
1244: , G_PKG_NAME
1243: , l_api_name
1244: , G_PKG_NAME
1245: )
1246: THEN
1247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1248: END IF;
1249: IF p_process_mode = 'ONLINE' THEN
1250:
1251: IF l_debug_on THEN
1269: --
1270: x_return_status := l_return_status;
1271: FND_MESSAGE.Set_Name('WSH', 'WSH_SA_PROCESS_ERROR');
1272: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
1273: raise FND_API.G_EXC_ERROR;
1274: END IF;
1275:
1276: ELSIF p_process_mode = 'CONCURRENT' THEN
1277: --
1298: WSH_DEBUG_SV.log(l_module_name, 'Request Id returned from FND_REQUEST.SUBMIT_REQUEST', x_request_id);
1299: END IF;
1300: --
1301: IF (nvl(x_request_id,0) <= 0) THEN
1302: raise FND_API.G_EXC_ERROR;
1303: END IF;
1304: ELSE
1305: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1306: fnd_message.set_name('WSH', 'WSH_OI_INVALID_ATTRIBUTE');
1308: wsh_util_core.add_message(x_return_status);
1309: IF l_debug_on THEN
1310: WSH_DEBUG_SV.logmsg(l_module_name, 'p_process_mode should be ONLINE/CONCURRENT');
1311: END IF;
1312: raise FND_API.G_EXC_ERROR;
1313: END IF;
1314:
1315: IF p_commit = FND_API.G_TRUE THEN
1316: COMMIT;
1311: END IF;
1312: raise FND_API.G_EXC_ERROR;
1313: END IF;
1314:
1315: IF p_commit = FND_API.G_TRUE THEN
1316: COMMIT;
1317: END IF;
1318:
1319:
1320: IF l_debug_on THEN
1321: wsh_debug_sv.pop(l_module_name);
1322: END IF;
1323: EXCEPTION
1324: WHEN FND_API.G_EXC_ERROR THEN
1325: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1326: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1327: p_data => x_msg_data,
1328: p_encoded => fnd_api.g_false);
1324: WHEN FND_API.G_EXC_ERROR THEN
1325: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1326: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1327: p_data => x_msg_data,
1328: p_encoded => fnd_api.g_false);
1329: IF l_debug_on THEN
1330: WSH_DEBUG_SV.log(l_module_name, 'Error Processing Shipment Advice ');
1331: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1332: END IF;
1327: p_data => x_msg_data,
1328: p_encoded => fnd_api.g_false);
1329: IF l_debug_on THEN
1330: WSH_DEBUG_SV.log(l_module_name, 'Error Processing Shipment Advice ');
1331: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1332: END IF;
1333: WHEN OTHERS THEN
1334: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1335: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1333: WHEN OTHERS THEN
1334: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1335: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1336: p_data => x_msg_data,
1337: p_encoded => fnd_api.g_false);
1338: IF l_debug_on THEN
1339: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1340: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1341: END IF;