8: l_msg_index_out NUMBER;
9: x_msg_data_temp Varchar2(2000);
10: x_msg_data Varchar2(4000);
11: Begin
12: If fnd_msg_pub.count_msg > 0 Then
13: FOR i IN REVERSE 1..fnd_msg_pub.count_msg Loop
14: fnd_msg_pub.get(p_msg_index => i,
15: p_encoded => 'F',
16: p_data => x_msg_data_temp,
9: x_msg_data_temp Varchar2(2000);
10: x_msg_data Varchar2(4000);
11: Begin
12: If fnd_msg_pub.count_msg > 0 Then
13: FOR i IN REVERSE 1..fnd_msg_pub.count_msg Loop
14: fnd_msg_pub.get(p_msg_index => i,
15: p_encoded => 'F',
16: p_data => x_msg_data_temp,
17: p_msg_index_out => l_msg_index_out);
10: x_msg_data Varchar2(4000);
11: Begin
12: If fnd_msg_pub.count_msg > 0 Then
13: FOR i IN REVERSE 1..fnd_msg_pub.count_msg Loop
14: fnd_msg_pub.get(p_msg_index => i,
15: p_encoded => 'F',
16: p_data => x_msg_data_temp,
17: p_msg_index_out => l_msg_index_out);
18: x_msg_data := x_msg_data || x_msg_data_temp;
17: p_msg_index_out => l_msg_index_out);
18: x_msg_data := x_msg_data || x_msg_data_temp;
19: End Loop;
20: x_message := substr(x_msg_data,1,2000);
21: -- fnd_msg_pub.delete_msg;
22: End if;
23: End;
24:
25: PROCEDURE gen_receipt_num(
62:
63: IF (l_receipt_exists = 1) THEN
64: fnd_message.set_name('CSP','CSP_RECEIPT_NUM_EXISTS');
65: fnd_message.set_token('RECEIPT',x_receipt_num,false);
66: fnd_msg_pub.add;
67: RAISE FND_API.G_EXC_ERROR;
68: END IF;
69:
70: EXCEPTION
71: WHEN FND_API.G_EXC_ERROR THEN
72: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
73: P_API_NAME => L_API_NAME
74: ,P_PKG_NAME => G_PKG_NAME
75: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
76: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
77: ,X_MSG_COUNT => X_MSG_COUNT
78: ,X_MSG_DATA => X_MSG_DATA
79: ,X_RETURN_STATUS => X_RETURN_STATUS);
80: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
81: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
82: P_API_NAME => L_API_NAME
83: ,P_PKG_NAME => G_PKG_NAME
84: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
85: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
86: ,X_MSG_COUNT => X_MSG_COUNT
87: ,X_MSG_DATA => X_MSG_DATA
88: ,X_RETURN_STATUS => X_RETURN_STATUS);
89: WHEN OTHERS THEN
90: fnd_message.set_name('CSP','CSP_UNEXPECTED_EXEC_ERRORS');
91: fnd_message.set_token('ROUTINE',l_api_name,false);
92: fnd_message.set_token('SQLERRM',sqlerrm,false);
93: fnd_msg_pub.add;
94: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
95: P_API_NAME => L_API_NAME
96: ,P_PKG_NAME => G_PKG_NAME
97: ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
129:
130: FND_PROFILE.GET('USER_ID', X_user_id);
131: if X_user_id is null then
132: fnd_message.set_name('CSP','CSP_INVALID_USER_ID');
133: fnd_msg_pub.add;
134: return False;
135: end if;
136: BEGIN
137: SELECT HR.EMPLOYEE_ID,
234: WHEN FND_API.G_EXC_ERROR THEN
235: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
236: P_API_NAME => L_API_NAME
237: ,P_PKG_NAME => G_PKG_NAME
238: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
239: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
240: ,X_MSG_COUNT => X_MSG_COUNT
241: ,X_MSG_DATA => X_MSG_DATA
242: ,X_RETURN_STATUS => X_RETURN_STATUS);
244: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
245: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
246: P_API_NAME => L_API_NAME
247: ,P_PKG_NAME => G_PKG_NAME
248: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
249: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
250: ,X_MSG_COUNT => X_MSG_COUNT
251: ,X_MSG_DATA => X_MSG_DATA
252: ,X_RETURN_STATUS => X_RETURN_STATUS);
254: WHEN OTHERS THEN
255: fnd_message.set_name('CSP','CSP_UNEXPECTED_EXEC_ERRORS');
256: fnd_message.set_token('ROUTINE',l_api_name,false);
257: fnd_message.set_token('SQLERRM',sqlerrm,false);
258: fnd_msg_pub.add;
259: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
260: P_API_NAME => L_API_NAME
261: ,P_PKG_NAME => G_PKG_NAME
262: ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
399:
400:
401: -- Initialize message list
402: IF fnd_api.to_boolean(p_init_msg_list) THEN
403: fnd_msg_pub.initialize;
404: END IF;
405:
406:
407: -- Initialize API return status to SUCCESS
585: WHEN FND_API.G_EXC_ERROR THEN
586: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
587: P_API_NAME => L_API_NAME
588: ,P_PKG_NAME => G_PKG_NAME
589: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
590: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
591: ,X_MSG_COUNT => X_MSG_COUNT
592: ,X_MSG_DATA => X_MESSAGE
593: ,X_RETURN_STATUS => X_RETURN_STATUS);
603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
605: P_API_NAME => L_API_NAME
606: ,P_PKG_NAME => G_PKG_NAME
607: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
608: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
609: ,X_MSG_COUNT => X_MSG_COUNT
610: ,X_MSG_DATA => X_MESSAGE
611: ,X_RETURN_STATUS => X_RETURN_STATUS);
621: WHEN OTHERS THEN
622: fnd_message.set_name('CSP','CSP_UNEXPECTED_EXEC_ERRORS');
623: fnd_message.set_token('ROUTINE',l_api_name,false);
624: fnd_message.set_token('SQLERRM',sqlerrm,false);
625: fnd_msg_pub.add;
626: get_messages(x_msg_data);
627: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
628: P_API_NAME => L_API_NAME
629: ,P_PKG_NAME => G_PKG_NAME
697: END IF;
698:
699: -- Initialize message list if p_init_msg_list is set to TRUE.
700: IF fnd_api.to_boolean(p_init_msg_list) THEN
701: fnd_msg_pub.initialize;
702: END IF;
703:
704: x_return_status := FND_API.G_RET_STS_SUCCESS;
705:
806: WHEN FND_API.G_EXC_ERROR THEN
807: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
808: P_API_NAME => L_API_NAME
809: ,P_PKG_NAME => G_PKG_NAME
810: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
811: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
812: ,X_MSG_COUNT => X_MSG_COUNT
813: ,X_MSG_DATA => X_MSG_DATA
814: ,X_RETURN_STATUS => X_RETURN_STATUS);
815: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
816: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
817: P_API_NAME => L_API_NAME
818: ,P_PKG_NAME => G_PKG_NAME
819: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
820: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
821: ,X_MSG_COUNT => X_MSG_COUNT
822: ,X_MSG_DATA => X_MSG_DATA
823: ,X_RETURN_STATUS => X_RETURN_STATUS);
824: WHEN OTHERS THEN
825: fnd_message.set_name('CSP','CSP_UNEXPECTED_EXEC_ERRORS');
826: fnd_message.set_token('ROUTINE',l_api_name,false);
827: fnd_message.set_token('SQLERRM',sqlerrm,false);
828: fnd_msg_pub.add;
829: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
830: P_API_NAME => L_API_NAME
831: ,P_PKG_NAME => G_PKG_NAME
832: ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
966: END IF;
967:
968: -- Initialize message list if p_init_msg_list is set to TRUE.
969: IF fnd_api.to_boolean(p_init_msg_list) THEN
970: fnd_msg_pub.initialize;
971: END IF;
972:
973: x_return_status := FND_API.G_RET_STS_SUCCESS;
974:
1042: WHEN OTHERS THEN
1043: fnd_message.set_name('CSP','CSP_UNEXPECTED_EXEC_ERRORS');
1044: fnd_message.set_token('ROUTINE','rcv_receipts_query_sv.post_query',false);
1045: fnd_message.set_token('SQLERRM',sqlerrm,false);
1046: fnd_msg_pub.add;
1047: get_messages(x_msg_data);
1048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1049: END;
1050:
1065: WHEN OTHERS THEN
1066: fnd_message.set_name('CSP','CSP_UNEXPECTED_EXEC_ERRORS');
1067: fnd_message.set_token('ROUTINE','get receiving flag',false);
1068: fnd_message.set_token('SQLERRM',sqlerrm,false);
1069: fnd_msg_pub.add;
1070: get_messages(x_msg_data);
1071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1072: END;
1073:
1536: WHEN FND_API.G_EXC_ERROR THEN
1537: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1538: P_API_NAME => L_API_NAME
1539: ,P_PKG_NAME => G_PKG_NAME
1540: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1541: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
1542: ,X_MSG_COUNT => X_MSG_COUNT
1543: ,X_MSG_DATA => X_MESSAGE
1544: ,X_RETURN_STATUS => X_RETURN_STATUS);
1545: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1546: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1547: P_API_NAME => L_API_NAME
1548: ,P_PKG_NAME => G_PKG_NAME
1549: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1550: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
1551: ,X_MSG_COUNT => X_MSG_COUNT
1552: ,X_MSG_DATA => X_MESSAGE
1553: ,X_RETURN_STATUS => X_RETURN_STATUS);
1554: WHEN OTHERS THEN
1555: fnd_message.set_name('CSP','CSP_UNEXPECTED_EXEC_ERRORS');
1556: fnd_message.set_token('ROUTINE',l_api_name,false);
1557: fnd_message.set_token('SQLERRM',sqlerrm,false);
1558: fnd_msg_pub.add;
1559: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1560: P_API_NAME => L_API_NAME
1561: ,P_PKG_NAME => G_PKG_NAME
1562: ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
1749: END IF;
1750:
1751: -- Initialize message list if p_init_msg_list is set to TRUE.
1752: IF fnd_api.to_boolean(p_init_msg_list) THEN
1753: fnd_msg_pub.initialize;
1754: END IF;
1755:
1756: --Initialize the return status
1757: x_return_status := FND_API.G_RET_STS_SUCCESS;
2011: WHEN FND_API.G_EXC_ERROR THEN
2012: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2013: P_API_NAME => L_API_NAME
2014: ,P_PKG_NAME => G_PKG_NAME
2015: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2016: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
2017: ,X_MSG_COUNT => X_MSG_COUNT
2018: ,X_MSG_DATA => X_MESSAGE
2019: ,X_RETURN_STATUS => X_RETURN_STATUS);
2020: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2021: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2022: P_API_NAME => L_API_NAME
2023: ,P_PKG_NAME => G_PKG_NAME
2024: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2025: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
2026: ,X_MSG_COUNT => X_MSG_COUNT
2027: ,X_MSG_DATA => X_MESSAGE
2028: ,X_RETURN_STATUS => X_RETURN_STATUS);
2029: WHEN OTHERS THEN
2030: fnd_message.set_name('CSP','CSP_UNEXPECTED_EXEC_ERRORS');
2031: fnd_message.set_token('ROUTINE',l_api_name,false);
2032: fnd_message.set_token('SQLERRM',sqlerrm,false);
2033: fnd_msg_pub.add;
2034: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2035: P_API_NAME => L_API_NAME
2036: ,P_PKG_NAME => G_PKG_NAME
2037: ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
2116: END IF;
2117:
2118: -- Initialize message list if p_init_msg_list is set to TRUE.
2119: IF fnd_api.to_boolean(p_init_msg_list) THEN
2120: fnd_msg_pub.initialize;
2121: END IF;
2122:
2123: --Initialize the return status
2124: x_return_status := fnd_api.g_ret_sts_success;
2169: WHEN FND_API.G_EXC_ERROR THEN
2170: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2171: P_API_NAME => L_API_NAME
2172: ,P_PKG_NAME => G_PKG_NAME
2173: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2174: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
2175: ,X_MSG_COUNT => X_MSG_COUNT
2176: ,X_MSG_DATA => X_MESSAGE
2177: ,X_RETURN_STATUS => X_RETURN_STATUS);
2178: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2179: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2180: P_API_NAME => L_API_NAME
2181: ,P_PKG_NAME => G_PKG_NAME
2182: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2183: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
2184: ,X_MSG_COUNT => X_MSG_COUNT
2185: ,X_MSG_DATA => X_MESSAGE
2186: ,X_RETURN_STATUS => X_RETURN_STATUS);
2187: WHEN OTHERS THEN
2188: fnd_message.set_name('CSP','CSP_UNEXPECTED_EXEC_ERRORS');
2189: fnd_message.set_token('ROUTINE',l_api_name,false);
2190: fnd_message.set_token('SQLERRM',sqlerrm,false);
2191: fnd_msg_pub.add;
2192: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2193: P_API_NAME => L_API_NAME
2194: ,P_PKG_NAME => G_PKG_NAME
2195: ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
2263: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
2264: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
2265: fnd_message.set_token('REQUEST', p_group_id);
2266: fnd_message.set_token('REASON', x_str);
2267: fnd_msg_pub.ADD;
2268: x_return_status := fnd_api.g_ret_sts_error;
2269: ELSIF (rc = 2) THEN
2270: fnd_message.set_name('FND', 'TM-SVC LOCK HANDLE FAILED');
2271: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
2271: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
2272: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
2273: fnd_message.set_token('REQUEST', p_group_id);
2274: fnd_message.set_token('REASON', x_str);
2275: fnd_msg_pub.ADD;
2276: x_return_status := fnd_api.g_ret_sts_error;
2277: ELSIF (rc = 3 or (l_outcome IN ('WARNING', 'ERROR'))) THEN
2278: BEGIN
2279: select ERROR_MESSAGE INTO po_message
2286: end if;
2287:
2288: FND_MESSAGE.set_name('CSP', 'CSP_ATP');
2289: fnd_message.set_token('ERROR', po_message);
2290: fnd_msg_pub.ADD;
2291: x_return_status := fnd_api.g_ret_sts_error;
2292: Exception
2293: when NO_DATA_FOUND THEN
2294:
2372: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
2373: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
2374: fnd_message.set_token('REQUEST', p_group_id);
2375: fnd_message.set_token('REASON', l_message);
2376: fnd_msg_pub.ADD;
2377: x_return_status := fnd_api.g_ret_sts_error;
2378: END;
2379: END IF;
2380: EXCEPTION
2381: WHEN OTHERS THEN
2382: fnd_message.set_name('CSP','CSP_UNEXPECTED_EXEC_ERRORS');
2383: fnd_message.set_token('ROUTINE',l_api_name,FALSE);
2384: fnd_message.set_token('SQLERRM',sqlerrm,FALSE);
2385: fnd_msg_pub.add;
2386: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2387: END rcv_online_request;
2388:
2389: /*