eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

[Home] [Help]

APPS.DPP_BUSINESSEVENTS_PVT dependencies on FND_API

Line 54: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,

50:
51:
52: PROCEDURE SEND_CANCEL_NOTIFICATIONS(
53: P_API_VERSION IN NUMBER,
54: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
55: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
56: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
57: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
58: X_MSG_COUNT OUT NOCOPY NUMBER,

Line 55: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,

51:
52: PROCEDURE SEND_CANCEL_NOTIFICATIONS(
53: P_API_VERSION IN NUMBER,
54: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
55: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
56: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
57: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
58: X_MSG_COUNT OUT NOCOPY NUMBER,
59: X_MSG_DATA OUT NOCOPY VARCHAR2,

Line 56: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

52: PROCEDURE SEND_CANCEL_NOTIFICATIONS(
53: P_API_VERSION IN NUMBER,
54: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
55: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
56: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
57: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
58: X_MSG_COUNT OUT NOCOPY NUMBER,
59: X_MSG_DATA OUT NOCOPY VARCHAR2,
60:

Line 74: IF NOT FND_API.COMPATIBLE_API_CALL (L_API_VERSION, P_API_VERSION, L_API_NAME, G_PKG_NAME)

70:
71: SAVEPOINT SEND_CANCEL_NOTIF;
72:
73: -- Standard call to check for call compatibility.
74: IF NOT FND_API.COMPATIBLE_API_CALL (L_API_VERSION, P_API_VERSION, L_API_NAME, G_PKG_NAME)
75: THEN
76: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ' : Not a compatible API call.');
77: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
78: END IF;

Line 77: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

73: -- Standard call to check for call compatibility.
74: IF NOT FND_API.COMPATIBLE_API_CALL (L_API_VERSION, P_API_VERSION, L_API_NAME, G_PKG_NAME)
75: THEN
76: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ' : Not a compatible API call.');
77: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
78: END IF;
79:
80: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME||': START');
81:

Line 83: IF FND_API.TO_BOOLEAN (P_INIT_MSG_LIST) THEN

79:
80: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME||': START');
81:
82: --Initialize message list if p_init_msg_list is TRUE.
83: IF FND_API.TO_BOOLEAN (P_INIT_MSG_LIST) THEN
84: FND_MSG_PUB.INITIALIZE;
85: END IF;
86:
87: -- Initialize API return status to sucess

Line 88: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;

84: FND_MSG_PUB.INITIALIZE;
85: END IF;
86:
87: -- Initialize API return status to sucess
88: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
89:
90: IF IS_NOTIF_EXECUTED(P_TXN_HDR_ID, 'INPL')
91: THEN
92: --Call the RAISE_BUSINESS_EVENT procedure with CNCL_INPL as the process code.

Line 100: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN

96: P_TXN_HDR_ID => P_TXN_HDR_ID, P_PROCESS_CODE => 'CNCL_INPL'
97: );
98: END IF;
99:
100: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
101: RAISE FND_API.G_EXC_ERROR;
102: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
104: END IF;

Line 101: RAISE FND_API.G_EXC_ERROR;

97: );
98: END IF;
99:
100: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
101: RAISE FND_API.G_EXC_ERROR;
102: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
104: END IF;
105:

Line 102: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN

98: END IF;
99:
100: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
101: RAISE FND_API.G_EXC_ERROR;
102: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
104: END IF;
105:
106: --If an outbound price list notification was sent earlier, then

Line 103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

99:
100: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
101: RAISE FND_API.G_EXC_ERROR;
102: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
104: END IF;
105:
106: --If an outbound price list notification was sent earlier, then
107: IF IS_NOTIF_EXECUTED(P_TXN_HDR_ID, 'OUTPL')

Line 117: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN

113: P_TXN_HDR_ID => P_TXN_HDR_ID, P_PROCESS_CODE => 'CNCL_OUTPL'
114: );
115: END IF;
116:
117: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
118: RAISE FND_API.G_EXC_ERROR;
119: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121: END IF;

Line 118: RAISE FND_API.G_EXC_ERROR;

114: );
115: END IF;
116:
117: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
118: RAISE FND_API.G_EXC_ERROR;
119: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121: END IF;
122:

Line 119: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN

115: END IF;
116:
117: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
118: RAISE FND_API.G_EXC_ERROR;
119: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121: END IF;
122:
123: --If a notification for offers and promotions was sent earlier, then

Line 120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

116:
117: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
118: RAISE FND_API.G_EXC_ERROR;
119: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121: END IF;
122:
123: --If a notification for offers and promotions was sent earlier, then
124: IF IS_NOTIF_EXECUTED(P_TXN_HDR_ID, 'PROMO')

Line 134: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN

130: P_TXN_HDR_ID => P_TXN_HDR_ID, P_PROCESS_CODE => 'CNCL_PROMO'
131: );
132: END IF;
133:
134: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
135: RAISE FND_API.G_EXC_ERROR;
136: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
138: END IF;

Line 135: RAISE FND_API.G_EXC_ERROR;

131: );
132: END IF;
133:
134: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
135: RAISE FND_API.G_EXC_ERROR;
136: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
138: END IF;
139:

Line 136: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN

132: END IF;
133:
134: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
135: RAISE FND_API.G_EXC_ERROR;
136: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
138: END IF;
139:
140: --If a notification for purchase orders was sent earlier, then

Line 137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

133:
134: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
135: RAISE FND_API.G_EXC_ERROR;
136: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
138: END IF;
139:
140: --If a notification for purchase orders was sent earlier, then
141: IF IS_NOTIF_EXECUTED(P_TXN_HDR_ID, 'NTFYPO')

Line 151: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN

147: P_TXN_HDR_ID => P_TXN_HDR_ID, P_PROCESS_CODE => 'CNCL_NTFYPO'
148: );
149: END IF;
150:
151: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
152: RAISE FND_API.G_EXC_ERROR;
153: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
155: END IF;

Line 152: RAISE FND_API.G_EXC_ERROR;

148: );
149: END IF;
150:
151: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
152: RAISE FND_API.G_EXC_ERROR;
153: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
155: END IF;
156:

Line 153: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN

149: END IF;
150:
151: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
152: RAISE FND_API.G_EXC_ERROR;
153: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
155: END IF;
156:
157: EXCEPTION

Line 154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

150:
151: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
152: RAISE FND_API.G_EXC_ERROR;
153: ELSIF X_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR THEN
154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
155: END IF;
156:
157: EXCEPTION
158: WHEN FND_API.G_EXC_ERROR THEN

Line 158: WHEN FND_API.G_EXC_ERROR THEN

154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
155: END IF;
156:
157: EXCEPTION
158: WHEN FND_API.G_EXC_ERROR THEN
159: ROLLBACK TO SEND_CANCEL_NOTIF;
160: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
161: -- Standard call to get message count and if count=1, get the message
162: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);

Line 160: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;

156:
157: EXCEPTION
158: WHEN FND_API.G_EXC_ERROR THEN
159: ROLLBACK TO SEND_CANCEL_NOTIF;
160: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
161: -- Standard call to get message count and if count=1, get the message
162: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);
163: IF X_MSG_COUNT > 1 THEN
164: FOR I IN 1..X_MSG_COUNT LOOP

Line 162: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);

158: WHEN FND_API.G_EXC_ERROR THEN
159: ROLLBACK TO SEND_CANCEL_NOTIF;
160: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
161: -- Standard call to get message count and if count=1, get the message
162: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);
163: IF X_MSG_COUNT > 1 THEN
164: FOR I IN 1..X_MSG_COUNT LOOP
165: X_MSG_DATA := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
166: END LOOP;

Line 168: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

164: FOR I IN 1..X_MSG_COUNT LOOP
165: X_MSG_DATA := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
166: END LOOP;
167: END IF;
168: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
169: ROLLBACK TO SEND_CANCEL_NOTIF;
170: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
171: -- Standard call to get message count and if count=1, get the message
172: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);

Line 170: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;

166: END LOOP;
167: END IF;
168: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
169: ROLLBACK TO SEND_CANCEL_NOTIF;
170: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
171: -- Standard call to get message count and if count=1, get the message
172: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);
173: IF X_MSG_COUNT > 1 THEN
174: FOR I IN 1..X_MSG_COUNT LOOP

Line 172: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);

168: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
169: ROLLBACK TO SEND_CANCEL_NOTIF;
170: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
171: -- Standard call to get message count and if count=1, get the message
172: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);
173: IF X_MSG_COUNT > 1 THEN
174: FOR I IN 1..X_MSG_COUNT LOOP
175: X_MSG_DATA := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
176: END LOOP;

Line 180: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;

176: END LOOP;
177: END IF;
178: WHEN OTHERS THEN
179: ROLLBACK TO SEND_CANCEL_NOTIF;
180: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
181:
182: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ',FND_API.G_RET_STS_UNEXP_ERROR :: ' || SQLERRM);
183:
184: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

Line 182: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ',FND_API.G_RET_STS_UNEXP_ERROR :: ' || SQLERRM);

178: WHEN OTHERS THEN
179: ROLLBACK TO SEND_CANCEL_NOTIF;
180: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
181:
182: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ',FND_API.G_RET_STS_UNEXP_ERROR :: ' || SQLERRM);
183:
184: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
185: FND_MESSAGE.SET_NAME('FND', 'SQL_PLSQL_ERROR');
186: FND_MESSAGE.SET_TOKEN('ROUTINE', L_FULL_NAME);

Line 196: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);

192: THEN
193: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, L_API_NAME);
194: END IF;
195: -- Standard call to get message count and if count=1, get the message
196: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);
197: IF X_MSG_COUNT > 1 THEN
198: FOR I IN 1..X_MSG_COUNT LOOP
199: X_MSG_DATA := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
200: END LOOP;

Line 208: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,

204:
205:
206: PROCEDURE RAISE_BUSINESS_EVT_FOR_PROCESS (
207: P_API_VERSION IN NUMBER,
208: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
209: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
210: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
211:
212: X_RETURN_STATUS OUT NOCOPY VARCHAR2,

Line 209: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,

205:
206: PROCEDURE RAISE_BUSINESS_EVT_FOR_PROCESS (
207: P_API_VERSION IN NUMBER,
208: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
209: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
210: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
211:
212: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
213: X_MSG_COUNT OUT NOCOPY NUMBER,

Line 210: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

206: PROCEDURE RAISE_BUSINESS_EVT_FOR_PROCESS (
207: P_API_VERSION IN NUMBER,
208: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
209: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
210: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
211:
212: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
213: X_MSG_COUNT OUT NOCOPY NUMBER,
214: X_MSG_DATA OUT NOCOPY VARCHAR2,

Line 236: IF NOT FND_API.COMPATIBLE_API_CALL (L_API_VERSION, P_API_VERSION, L_API_NAME, G_PKG_NAME)

232:
233: SAVEPOINT RAISE_BUS_EVT_FOR_PROC;
234:
235: -- Standard call to check for call compatibility.
236: IF NOT FND_API.COMPATIBLE_API_CALL (L_API_VERSION, P_API_VERSION, L_API_NAME, G_PKG_NAME)
237: THEN
238: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ' : Not a compatible API call.');
239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
240: END IF;

Line 239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

235: -- Standard call to check for call compatibility.
236: IF NOT FND_API.COMPATIBLE_API_CALL (L_API_VERSION, P_API_VERSION, L_API_NAME, G_PKG_NAME)
237: THEN
238: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ' : Not a compatible API call.');
239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
240: END IF;
241:
242: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_PROCEDURE, l_module, L_API_NAME||': START');
243:

Line 245: IF FND_API.TO_BOOLEAN (P_INIT_MSG_LIST) THEN

241:
242: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_PROCEDURE, l_module, L_API_NAME||': START');
243:
244: --Initialize message list if p_init_msg_list is TRUE.
245: IF FND_API.TO_BOOLEAN (P_INIT_MSG_LIST) THEN
246: FND_MSG_PUB.INITIALIZE;
247: END IF;
248:
249: -- Initialize API return status to sucess

Line 250: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;

246: FND_MSG_PUB.INITIALIZE;
247: END IF;
248:
249: -- Initialize API return status to sucess
250: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
251:
252: SELECT TRANSACTION_NUMBER
253: INTO L_TXN_HDR_NUM
254: FROM DPP_TRANSACTION_HEADERS_ALL

Line 274: IF X_RETURN_STATUS = FND_API.G_RET_STS_SUCCESS THEN

270: P_TXN_HDR_REC => L_TXN_HDR_REC,
271: P_TXN_LINE_ID => L_TXN_LINE_ID
272: );
273:
274: IF X_RETURN_STATUS = FND_API.G_RET_STS_SUCCESS THEN
275: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event raised for the process code : ' || P_PROCESS_CODE);
276: FND_FILE.NEW_LINE(FND_FILE.LOG);
277: ELSE
278: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business event not raised for the process code : ' || P_PROCESS_CODE);

Line 287: WHEN FND_API.G_EXC_ERROR THEN

283: --ERRBUFF := 'ERROR';
284: END IF;
285:
286: EXCEPTION
287: WHEN FND_API.G_EXC_ERROR THEN
288: ROLLBACK TO RAISE_BUS_EVT_FOR_PROC;
289: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
290: -- Standard call to get message count and if count=1, get the message
291: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);

Line 289: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;

285:
286: EXCEPTION
287: WHEN FND_API.G_EXC_ERROR THEN
288: ROLLBACK TO RAISE_BUS_EVT_FOR_PROC;
289: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
290: -- Standard call to get message count and if count=1, get the message
291: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);
292: IF X_MSG_COUNT > 1 THEN
293: FOR I IN 1..X_MSG_COUNT LOOP

Line 291: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);

287: WHEN FND_API.G_EXC_ERROR THEN
288: ROLLBACK TO RAISE_BUS_EVT_FOR_PROC;
289: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
290: -- Standard call to get message count and if count=1, get the message
291: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);
292: IF X_MSG_COUNT > 1 THEN
293: FOR I IN 1..X_MSG_COUNT LOOP
294: X_MSG_DATA := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
295: END LOOP;

Line 297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

293: FOR I IN 1..X_MSG_COUNT LOOP
294: X_MSG_DATA := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
295: END LOOP;
296: END IF;
297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
298: ROLLBACK TO RAISE_BUS_EVT_FOR_PROC;
299: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
300: -- Standard call to get message count and if count=1, get the message
301: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);

Line 299: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;

295: END LOOP;
296: END IF;
297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
298: ROLLBACK TO RAISE_BUS_EVT_FOR_PROC;
299: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
300: -- Standard call to get message count and if count=1, get the message
301: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);
302: IF X_MSG_COUNT > 1 THEN
303: FOR I IN 1..X_MSG_COUNT LOOP

Line 301: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);

297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
298: ROLLBACK TO RAISE_BUS_EVT_FOR_PROC;
299: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
300: -- Standard call to get message count and if count=1, get the message
301: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);
302: IF X_MSG_COUNT > 1 THEN
303: FOR I IN 1..X_MSG_COUNT LOOP
304: X_MSG_DATA := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
305: END LOOP;

Line 309: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;

305: END LOOP;
306: END IF;
307: WHEN OTHERS THEN
308: ROLLBACK TO RAISE_BUS_EVT_FOR_PROC;
309: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
310:
311: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ',FND_API.G_RET_STS_UNEXP_ERROR :: ' || SQLERRM);
312:
313: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

Line 311: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ',FND_API.G_RET_STS_UNEXP_ERROR :: ' || SQLERRM);

307: WHEN OTHERS THEN
308: ROLLBACK TO RAISE_BUS_EVT_FOR_PROC;
309: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
310:
311: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ',FND_API.G_RET_STS_UNEXP_ERROR :: ' || SQLERRM);
312:
313: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
314: FND_MESSAGE.SET_NAME('FND', 'SQL_PLSQL_ERROR');
315: FND_MESSAGE.SET_TOKEN('ROUTINE', L_FULL_NAME);

Line 325: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);

321: THEN
322: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, L_API_NAME);
323: END IF;
324: -- Standard call to get message count and if count=1, get the message
325: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);
326: IF X_MSG_COUNT > 1 THEN
327: FOR I IN 1..X_MSG_COUNT LOOP
328: X_MSG_DATA := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
329: END LOOP;

Line 340: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,

336:
337:
338: PROCEDURE RAISE_EFFECTIVE_DATE_EVENT(
339: P_API_VERSION IN NUMBER,
340: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
341: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
342: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
343: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
344: X_MSG_DATA OUT NOCOPY VARCHAR2,

Line 341: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,

337:
338: PROCEDURE RAISE_EFFECTIVE_DATE_EVENT(
339: P_API_VERSION IN NUMBER,
340: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
341: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
342: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
343: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
344: X_MSG_DATA OUT NOCOPY VARCHAR2,
345: X_MSG_COUNT OUT NOCOPY NUMBER,

Line 342: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,

338: PROCEDURE RAISE_EFFECTIVE_DATE_EVENT(
339: P_API_VERSION IN NUMBER,
340: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
341: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
342: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
343: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
344: X_MSG_DATA OUT NOCOPY VARCHAR2,
345: X_MSG_COUNT OUT NOCOPY NUMBER,
346: P_PROGRAM_ID IN NUMBER)

Line 366: IF NOT FND_API.COMPATIBLE_API_CALL (L_API_VERSION, P_API_VERSION, L_API_NAME, G_PKG_NAME)

362:
363: SAVEPOINT START_WF_ON_EFF_DATE;
364:
365: -- Standard call to check for call compatibility.
366: IF NOT FND_API.COMPATIBLE_API_CALL (L_API_VERSION, P_API_VERSION, L_API_NAME, G_PKG_NAME)
367: THEN
368: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ' : Not a compatible API call.');
369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
370: END IF;

Line 369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

365: -- Standard call to check for call compatibility.
366: IF NOT FND_API.COMPATIBLE_API_CALL (L_API_VERSION, P_API_VERSION, L_API_NAME, G_PKG_NAME)
367: THEN
368: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ' : Not a compatible API call.');
369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
370: END IF;
371:
372: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_PROCEDURE, l_module, L_API_NAME||': START');
373: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ', Program ID : ' || P_PROGRAM_ID );

Line 376: IF FND_API.TO_BOOLEAN (P_INIT_MSG_LIST) THEN

372: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_PROCEDURE, l_module, L_API_NAME||': START');
373: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ', Program ID : ' || P_PROGRAM_ID );
374:
375: --Initialize message list if p_init_msg_list is TRUE.
376: IF FND_API.TO_BOOLEAN (P_INIT_MSG_LIST) THEN
377: FND_MSG_PUB.INITIALIZE;
378: END IF;
379:
380: -- Initialize API return status to sucess

Line 381: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;

377: FND_MSG_PUB.INITIALIZE;
378: END IF;
379:
380: -- Initialize API return status to sucess
381: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
382:
383: L_ITEM_KEY := DBMS_UTILITY.GET_TIME();
384:
385: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ', Event Key : ' || L_ITEM_KEY);

Line 396: RAISE FND_API.G_EXC_ERROR;

392: X_MSG_DATA := FND_MESSAGE.GET();
393: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'No enabled local subscriptions reference the event, or the event does not exist.');
394: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No enabled local subscriptions reference the event, or the event does not exist.');
395: FND_FILE.NEW_LINE(FND_FILE.LOG);
396: RAISE FND_API.G_EXC_ERROR;
397: END IF;
398:
399: L_PARAMETER_LIST := WF_PARAMETER_LIST_T();
400: WF_EVENT.ADDPARAMETERTOLIST( P_NAME => 'PROGRAM_ID', P_VALUE => P_PROGRAM_ID, P_PARAMETERLIST => L_PARAMETER_LIST );

Line 416: WHEN FND_API.G_EXC_ERROR THEN

412: FND_MSG_PUB.COUNT_AND_GET(P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA );
413:
414: EXCEPTION
415:
416: WHEN FND_API.G_EXC_ERROR THEN
417: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR ;
418: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_EXCEPTION, l_module, L_API_NAME || ', FND_API.G_EXC_ERROR : ' || SQLERRM);
419:
420: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXC_ERROR : '||SQLERRM);

Line 417: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR ;

413:
414: EXCEPTION
415:
416: WHEN FND_API.G_EXC_ERROR THEN
417: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR ;
418: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_EXCEPTION, l_module, L_API_NAME || ', FND_API.G_EXC_ERROR : ' || SQLERRM);
419:
420: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXC_ERROR : '||SQLERRM);
421: FND_FILE.NEW_LINE(FND_FILE.LOG);

Line 418: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_EXCEPTION, l_module, L_API_NAME || ', FND_API.G_EXC_ERROR : ' || SQLERRM);

414: EXCEPTION
415:
416: WHEN FND_API.G_EXC_ERROR THEN
417: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR ;
418: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_EXCEPTION, l_module, L_API_NAME || ', FND_API.G_EXC_ERROR : ' || SQLERRM);
419:
420: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXC_ERROR : '||SQLERRM);
421: FND_FILE.NEW_LINE(FND_FILE.LOG);
422: ROLLBACK TO START_WF_ON_EFF_DATE;

Line 423: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);

419:
420: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXC_ERROR : '||SQLERRM);
421: FND_FILE.NEW_LINE(FND_FILE.LOG);
422: ROLLBACK TO START_WF_ON_EFF_DATE;
423: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);
424: IF X_MSG_COUNT > 1 THEN
425: FOR I IN 1..X_MSG_COUNT LOOP
426: X_MSG_DATA := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
427: END LOOP;

Line 429: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

425: FOR I IN 1..X_MSG_COUNT LOOP
426: X_MSG_DATA := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
427: END LOOP;
428: END IF;
429: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
430: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR ;
431: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_EXCEPTION, l_module, L_API_NAME || ', FND_API.G_RET_STS_UNEXP_ERROR : ' || SQLERRM);
432:
433: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UNEXP_ERROR : '||SQLERRM);

Line 430: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR ;

426: X_MSG_DATA := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
427: END LOOP;
428: END IF;
429: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
430: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR ;
431: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_EXCEPTION, l_module, L_API_NAME || ', FND_API.G_RET_STS_UNEXP_ERROR : ' || SQLERRM);
432:
433: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UNEXP_ERROR : '||SQLERRM);
434: FND_FILE.NEW_LINE(FND_FILE.LOG);

Line 431: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_EXCEPTION, l_module, L_API_NAME || ', FND_API.G_RET_STS_UNEXP_ERROR : ' || SQLERRM);

427: END LOOP;
428: END IF;
429: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
430: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR ;
431: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_EXCEPTION, l_module, L_API_NAME || ', FND_API.G_RET_STS_UNEXP_ERROR : ' || SQLERRM);
432:
433: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UNEXP_ERROR : '||SQLERRM);
434: FND_FILE.NEW_LINE(FND_FILE.LOG);
435: ROLLBACK TO START_WF_ON_EFF_DATE;

Line 436: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);

432:
433: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UNEXP_ERROR : '||SQLERRM);
434: FND_FILE.NEW_LINE(FND_FILE.LOG);
435: ROLLBACK TO START_WF_ON_EFF_DATE;
436: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);
437: IF X_MSG_COUNT > 1 THEN
438: FOR I IN 1..X_MSG_COUNT LOOP
439: X_MSG_DATA := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
440: END LOOP;

Line 443: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;

439: X_MSG_DATA := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
440: END LOOP;
441: END IF;
442: WHEN OTHERS THEN
443: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
444: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_EXCEPTION, l_module, L_API_NAME || ',FND_API.G_RET_STS_UNEXP_ERROR :: ' || SQLERRM);
445:
446: FND_FILE.PUT_LINE(FND_FILE.LOG, 'OTHER_ERROR : '||SQLERRM);
447: FND_FILE.NEW_LINE(FND_FILE.LOG);

Line 444: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_EXCEPTION, l_module, L_API_NAME || ',FND_API.G_RET_STS_UNEXP_ERROR :: ' || SQLERRM);

440: END LOOP;
441: END IF;
442: WHEN OTHERS THEN
443: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
444: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_EXCEPTION, l_module, L_API_NAME || ',FND_API.G_RET_STS_UNEXP_ERROR :: ' || SQLERRM);
445:
446: FND_FILE.PUT_LINE(FND_FILE.LOG, 'OTHER_ERROR : '||SQLERRM);
447: FND_FILE.NEW_LINE(FND_FILE.LOG);
448: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

Line 461: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);

457: THEN
458: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME,L_API_NAME);
459: END IF;
460:
461: FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE, P_COUNT => X_MSG_COUNT, P_DATA => X_MSG_DATA);
462: IF X_MSG_COUNT > 1 THEN
463: FOR I IN 1..X_MSG_COUNT LOOP
464: X_MSG_DATA := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
465: END LOOP;

Line 567: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE

563: ----------------------------------------------------------------------
564:
565: PROCEDURE Raise_Business_Event(
566: p_api_version IN NUMBER
567: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
568: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
569: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
570: ,x_return_status OUT NOCOPY VARCHAR2
571: ,x_msg_count OUT NOCOPY NUMBER

Line 568: ,p_commit IN VARCHAR2 := FND_API.G_FALSE

564:
565: PROCEDURE Raise_Business_Event(
566: p_api_version IN NUMBER
567: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
568: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
569: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
570: ,x_return_status OUT NOCOPY VARCHAR2
571: ,x_msg_count OUT NOCOPY NUMBER
572: ,x_msg_data OUT NOCOPY VARCHAR2

Line 569: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL

565: PROCEDURE Raise_Business_Event(
566: p_api_version IN NUMBER
567: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
568: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
569: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
570: ,x_return_status OUT NOCOPY VARCHAR2
571: ,x_msg_count OUT NOCOPY NUMBER
572: ,x_msg_data OUT NOCOPY VARCHAR2
573:

Line 610: IF NOT FND_API.Compatible_API_Call (

606: BEGIN
607: --------------------- initialize -----------------------
608: SAVEPOINT Raise_Business_Event;
609:
610: IF NOT FND_API.Compatible_API_Call (
611: l_api_version,
612: p_api_version,
613: l_api_name,
614: G_PKG_NAME)

Line 616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

612: p_api_version,
613: l_api_name,
614: G_PKG_NAME)
615: THEN
616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
617: END IF;
618: -- Initialize message list if p_init_msg_list is set to TRUE.
619: IF FND_API.to_Boolean( p_init_msg_list )
620: THEN

Line 619: IF FND_API.to_Boolean( p_init_msg_list )

615: THEN
616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
617: END IF;
618: -- Initialize message list if p_init_msg_list is set to TRUE.
619: IF FND_API.to_Boolean( p_init_msg_list )
620: THEN
621: FND_MSG_PUB.initialize;
622: END IF;
623:

Line 628: x_return_status := FND_API.g_ret_sts_success;

624: -- Debug Message
625: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_PROCEDURE, l_module, 'Public API: ' || l_api_name || 'start');
626:
627: -- Initialize API return status to sucess
628: x_return_status := FND_API.g_ret_sts_success;
629:
630: --Get a unique value for the execution detail id
631: BEGIN
632: SELECT DPP_EXECUTION_DETAIL_ID_SEQ.nextval

Line 646: RAISE FND_API.g_exc_error;

642: FND_MSG_PUB.add;
643: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
644: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
645: END IF;
646: RAISE FND_API.g_exc_error;
647: WHEN OTHERS THEN
648: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
649: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
650: fnd_message.set_token('ERRNO', sqlcode);

Line 658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

654: fnd_message.set_token('SEQ_NAME', 'DPP_EXECUTION_DETAIL_ID_SEQ');
655: FND_MSG_PUB.add;
656: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
657: END IF;
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: END;
660:
661: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Execution Detail ID : ' || l_exe_dtl_id ||' For Transaction ID :'||p_txn_hdr_rec.Transaction_Header_ID);
662: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Process Code : ' || p_txn_hdr_rec.process_code);

Line 681: RAISE FND_API.g_exc_error;

677: FND_MSG_PUB.add;
678: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
679: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
680: END IF;
681: RAISE FND_API.g_exc_error;
682: WHEN OTHERS THEN
683: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
684: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
685: fnd_message.set_token('ERRNO', sqlcode);

Line 687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

683: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
684: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
685: fnd_message.set_token('ERRNO', sqlcode);
686: fnd_message.set_token('REASON', sqlerrm);
687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
688: END;
689:
690: l_user_name := ''''||l_user_name||'''';
691:

Line 706: RAISE FND_API.g_exc_error;

702: --No claim type flag has been sent
703: FND_MESSAGE.set_name('DPP', 'DPP_BUSEVT_INVALID_CLAIM_TYPE');
704: FND_MSG_PUB.add;
705: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
706: RAISE FND_API.g_exc_error;
707: ELSE
708: --Concatinate the claim flag with necessary quotes to generate xml data
709: l_claim_type_flag := ''''||p_txn_hdr_rec.claim_type_flag||'''';
710: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Claim Type Flag : ' || l_claim_type_flag);

Line 737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

733: FND_MSG_PUB.add;
734: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
735: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
736: END IF;
737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
738: END;
739: END LOOP;
740: ELSE
741: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');

Line 746: RAISE FND_API.G_EXC_ERROR;

742: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
743: fnd_message.set_token('ERRNO', sqlcode);
744: fnd_message.set_token('REASON', 'Transaction Line Id is required for the API');
745: FND_MSG_PUB.add;
746: RAISE FND_API.G_EXC_ERROR;
747: END IF; --l_table_count
748: ELSE
749: IF p_txn_hdr_rec.claim_type_flag = 'SUPP_DSTR_CL' THEN
750: BEGIN

Line 767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

763: FND_MSG_PUB.add;
764: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
765: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
766: END IF;
767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
768: END;
769: ELSE
770: BEGIN
771: INSERT INTO DPP_TRANSACTION_LINES_GT(transaction_header_id,

Line 787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

783: FND_MSG_PUB.add;
784: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
785: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
786: END IF;
787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
788: END;
789: END IF;
790: END IF;
791:

Line 841: l_return_status := FND_API.G_RET_STS_ERROR;

837: WHERE transaction_header_id = p_txn_hdr_rec.Transaction_Header_ID
838: AND nvl(update_item_list_price, 'N') = 'N';
839:
840: IF SQL%ROWCOUNT = 0 THEN
841: l_return_status := FND_API.G_RET_STS_ERROR;
842: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column update_item_list_price in DPP_TRANSACTION_LINES_ALL Table');
843: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
844: END IF;
845:

Line 843: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

839:
840: IF SQL%ROWCOUNT = 0 THEN
841: l_return_status := FND_API.G_RET_STS_ERROR;
842: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column update_item_list_price in DPP_TRANSACTION_LINES_ALL Table');
843: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
844: END IF;
845:
846: END IF;
847: ELSIF p_txn_hdr_rec.process_code = 'OUTPL' OR p_txn_hdr_rec.process_code = 'CNCL_OUTPL' THEN

Line 896: l_return_status := FND_API.G_RET_STS_ERROR;

892: WHERE transaction_header_id = p_txn_hdr_rec.Transaction_Header_ID
893: AND nvl(NOTIFY_OUTBOUND_PRICELIST,'N') <> 'D';
894:
895: IF SQL%ROWCOUNT = 0 THEN
896: l_return_status := FND_API.G_RET_STS_ERROR;
897: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column NOTIFY_OUTBOUND_PRICELIST in DPP_TRANSACTION_LINES_ALL Table');
898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
899: END IF;
900: END IF;

Line 898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

894:
895: IF SQL%ROWCOUNT = 0 THEN
896: l_return_status := FND_API.G_RET_STS_ERROR;
897: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column NOTIFY_OUTBOUND_PRICELIST in DPP_TRANSACTION_LINES_ALL Table');
898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
899: END IF;
900: END IF;
901:
902: ELSIF p_txn_hdr_rec.process_code = 'UPDCLM' THEN

Line 925: RAISE FND_API.G_EXC_ERROR;

921: FND_MSG_PUB.add;
922: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
923: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
924: END IF;
925: RAISE FND_API.G_EXC_ERROR;
926: WHEN OTHERS THEN
927: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
928: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
929: fnd_message.set_token('ERRNO', sqlcode);

Line 937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

933: FND_MESSAGE.set_name('DPP', 'DPP_BUSEVT_INVALID_CLAIM_AMT');
934: FND_MSG_PUB.add;
935: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
936: END IF;
937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
938: END;
939: --Generate the Input Xml required for the Business Event --Update Claim
940: l_queryCtx := dbms_xmlquery.newContext('SELECT Transaction_header_id,
941: Transaction_number,

Line 1025: l_return_status := FND_API.G_RET_STS_ERROR;

1021: WHERE transaction_header_id = p_txn_hdr_rec.Transaction_Header_ID
1022: AND nvl(NOTIFY_INBOUND_PRICELIST,'N') <> 'D';
1023:
1024: IF SQL%ROWCOUNT = 0 THEN
1025: l_return_status := FND_API.G_RET_STS_ERROR;
1026: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column NOTIFY_INBOUND_PRICELIST in DPP_TRANSACTION_LINES_ALL Table');
1027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1028: END IF;
1029: END IF;

Line 1027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1023:
1024: IF SQL%ROWCOUNT = 0 THEN
1025: l_return_status := FND_API.G_RET_STS_ERROR;
1026: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column NOTIFY_INBOUND_PRICELIST in DPP_TRANSACTION_LINES_ALL Table');
1027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1028: END IF;
1029: END IF;
1030:
1031: ELSIF p_txn_hdr_rec.process_code = 'PROMO' OR p_txn_hdr_rec.process_code = 'CNCL_PROMO' THEN

Line 1080: l_return_status := FND_API.G_RET_STS_ERROR;

1076: WHERE transaction_header_id = p_txn_hdr_rec.Transaction_Header_ID
1077: AND nvl(NOTIFY_PROMOTIONS_PRICELIST,'N') <> 'D';
1078:
1079: IF SQL%ROWCOUNT = 0 THEN
1080: l_return_status := FND_API.G_RET_STS_ERROR;
1081: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column NOTIFY_PROMOTIONS_PRICELIST in DPP_TRANSACTION_LINES_ALL Table');
1082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1083: END IF;
1084: END IF;

Line 1082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1078:
1079: IF SQL%ROWCOUNT = 0 THEN
1080: l_return_status := FND_API.G_RET_STS_ERROR;
1081: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column NOTIFY_PROMOTIONS_PRICELIST in DPP_TRANSACTION_LINES_ALL Table');
1082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1083: END IF;
1084: END IF;
1085: ELSIF p_txn_hdr_rec.process_code = 'INVC' THEN
1086: --Retrieve the gl_cost_adjustment_acct

Line 1110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1106: FND_MESSAGE.set_name('DPP', 'DPP_BUSEVT_INVALID_COSTADJACC');
1107: FND_MSG_PUB.add;
1108: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1109: END IF;
1110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1111: END;
1112: IF l_cost_adj_acct IS NULL THEN
1113: BEGIN
1114: SELECT osp.gl_cost_adjustment_acct

Line 1130: RAISE FND_API.G_EXC_ERROR;

1126: FND_MSG_PUB.add;
1127: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1128: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1129: END IF;
1130: RAISE FND_API.G_EXC_ERROR;
1131: WHEN OTHERS THEN
1132: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1133: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
1134: fnd_message.set_token('ERRNO', sqlcode);

Line 1142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1138: FND_MESSAGE.set_name('DPP', 'DPP_BUSEVT_INVALID_COSTADJACC');
1139: FND_MSG_PUB.add;
1140: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1141: END IF;
1142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1143: END;
1144: END IF;
1145:
1146: IF l_cost_adj_acct IS NOT NULL THEN

Line 1196: l_return_status := FND_API.G_RET_STS_ERROR;

1192: WHERE transaction_header_id = p_txn_hdr_rec.Transaction_Header_ID
1193: AND nvl(UPDATE_INVENTORY_COSTING,'N') = 'N';
1194:
1195: IF SQL%ROWCOUNT = 0 THEN
1196: l_return_status := FND_API.G_RET_STS_ERROR;
1197: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column UPDATE_INVENTORY_COSTING in DPP_TRANSACTION_LINES_ALL Table');
1198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1199: END IF;
1200: END IF;

Line 1198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1194:
1195: IF SQL%ROWCOUNT = 0 THEN
1196: l_return_status := FND_API.G_RET_STS_ERROR;
1197: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column UPDATE_INVENTORY_COSTING in DPP_TRANSACTION_LINES_ALL Table');
1198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1199: END IF;
1200: END IF;
1201: ELSE
1202: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');

Line 1210: RAISE FND_API.G_EXC_ERROR;

1206: FND_MSG_PUB.add;
1207: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1208: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1209: END IF;
1210: RAISE FND_API.G_EXC_ERROR;
1211: END IF;
1212:
1213: ELSIF p_txn_hdr_rec.process_code = 'NTFYPO' OR p_txn_hdr_rec.process_code = 'CNCL_NTFYPO' THEN
1214: --Generate the Input Xml required for the Business-- Event Send Notifications for Purchase Orders

Line 1263: l_return_status := FND_API.G_RET_STS_ERROR;

1259: WHERE transaction_header_id = p_txn_hdr_rec.Transaction_Header_ID
1260: AND nvl(notify_purchasing_docs ,'N') <> 'D';
1261:
1262: IF SQL%ROWCOUNT = 0 THEN
1263: l_return_status := FND_API.G_RET_STS_ERROR;
1264: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column notify_purchasing_docs in DPP_TRANSACTION_LINES_ALL Table');
1265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1266: END IF;
1267: END IF;

Line 1265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1261:
1262: IF SQL%ROWCOUNT = 0 THEN
1263: l_return_status := FND_API.G_RET_STS_ERROR;
1264: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column notify_purchasing_docs in DPP_TRANSACTION_LINES_ALL Table');
1265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1266: END IF;
1267: END IF;
1268: ELSIF p_txn_hdr_rec.process_code = 'UPDTPO' THEN
1269: --Generate the Input Xml required for the Business Event -- Update Purchasing - Purchase Orders

Line 1315: l_return_status := FND_API.G_RET_STS_ERROR;

1311: WHERE transaction_header_id = p_txn_hdr_rec.Transaction_Header_ID
1312: AND nvl(UPDATE_PURCHASING_DOCS ,'N')= 'N';
1313:
1314: IF SQL%ROWCOUNT = 0 THEN
1315: l_return_status := FND_API.G_RET_STS_ERROR;
1316: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column UPDATE_PURCHASING_DOCS in DPP_TRANSACTION_LINES_ALL Table');
1317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1318: END IF;
1319: END IF;

Line 1317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1313:
1314: IF SQL%ROWCOUNT = 0 THEN
1315: l_return_status := FND_API.G_RET_STS_ERROR;
1316: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column UPDATE_PURCHASING_DOCS in DPP_TRANSACTION_LINES_ALL Table');
1317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1318: END IF;
1319: END IF;
1320: ELSIF p_txn_hdr_rec.process_code = 'DSTRINVCL' THEN
1321: --Added code for DPP Price Increase Enhancement

Line 1341: RAISE FND_API.g_exc_error;

1337: FND_MSG_PUB.add;
1338: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1339: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1340: END IF;
1341: RAISE FND_API.g_exc_error;
1342: WHEN OTHERS THEN
1343: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1344: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
1345: fnd_message.set_token('ERRNO', sqlcode);

Line 1353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1349: fnd_message.set_token('SEQ_NAME', 'DPP_EXECUTION_DETAIL_ID_SEQ'); --To be modified
1350: FND_MSG_PUB.add;
1351: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1352: END IF;
1353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1354: END;
1355:
1356: IF (l_price_change_flag = 'N') THEN
1357: dtl_price_change := 'nvl(dtl.price_change,0) > 0';

Line 1427: l_return_status := FND_API.G_RET_STS_ERROR;

1423: AND nvl(approved_inventory,0) > 0
1424: AND nvl(price_change,0) > 0;
1425:
1426: IF SQL%ROWCOUNT = 0 THEN
1427: l_return_status := FND_API.G_RET_STS_ERROR;
1428: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column SUPP_DIST_CLAIM_STATUS in DPP_TRANSACTION_LINES_ALL Table');
1429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1430: END IF;
1431: --Update those lines to Y who have the approved inventory as 0

Line 1429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1425:
1426: IF SQL%ROWCOUNT = 0 THEN
1427: l_return_status := FND_API.G_RET_STS_ERROR;
1428: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column SUPP_DIST_CLAIM_STATUS in DPP_TRANSACTION_LINES_ALL Table');
1429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1430: END IF;
1431: --Update those lines to Y who have the approved inventory as 0
1432: UPDATE DPP_TRANSACTION_LINES_ALL
1433: SET SUPP_DIST_CLAIM_STATUS = 'Y',

Line 1455: l_return_status := FND_API.G_RET_STS_ERROR;

1451: AND nvl(approved_inventory,0) > 0
1452: AND nvl(price_change,0) <> 0;
1453:
1454: IF SQL%ROWCOUNT = 0 THEN
1455: l_return_status := FND_API.G_RET_STS_ERROR;
1456: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column SUPP_DIST_CLAIM_STATUS in DPP_TRANSACTION_LINES_ALL Table');
1457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1458: END IF;
1459: --Update those lines to Y who have the approved inventory as 0

Line 1457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1453:
1454: IF SQL%ROWCOUNT = 0 THEN
1455: l_return_status := FND_API.G_RET_STS_ERROR;
1456: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column SUPP_DIST_CLAIM_STATUS in DPP_TRANSACTION_LINES_ALL Table');
1457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1458: END IF;
1459: --Update those lines to Y who have the approved inventory as 0
1460: UPDATE DPP_TRANSACTION_LINES_ALL
1461: SET SUPP_DIST_CLAIM_STATUS = 'Y',

Line 1535: l_return_status := FND_API.G_RET_STS_ERROR;

1531: AND nvl(reported_inventory,0) > 0
1532: AND nvl(supp_claim_amt,0) > 0;
1533:
1534: IF SQL%ROWCOUNT = 0 THEN
1535: l_return_status := FND_API.G_RET_STS_ERROR;
1536: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column supplier_claim_created in DPP_customer_claims_all Table');
1537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1538: END IF;
1539: --Update those lines to Y which have reported inventory as 0

Line 1537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1533:
1534: IF SQL%ROWCOUNT = 0 THEN
1535: l_return_status := FND_API.G_RET_STS_ERROR;
1536: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column supplier_claim_created in DPP_customer_claims_all Table');
1537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1538: END IF;
1539: --Update those lines to Y which have reported inventory as 0
1540: UPDATE DPP_customer_claims_all
1541: SET supplier_claim_created = 'Y',

Line 1670: RAISE FND_API.g_exc_error;

1666: FND_MESSAGE.set_name('DPP', 'DPP_BUSEVT_INVALID_PRO_CODE');
1667: fnd_message.set_token('PROCESS_CODE', p_txn_hdr_rec.process_code);
1668: FND_MSG_PUB.add;
1669: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1670: RAISE FND_API.g_exc_error;
1671: END IF;
1672:
1673: --Raise the Workflow Event Procedure for the given process
1674: Raise_Workflow_Event(

Line 1689: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

1685: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'return status for Raise_Workflow_Event =>'||l_return_status);
1686: --dpp_utility_pvt.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, substr(('Message data =>'||l_msg_data),1,4000));
1687:
1688: -- Check return status from the above procedure call
1689: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1690: RAISE FND_API.g_exc_error;
1691: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1693: END IF;

Line 1690: RAISE FND_API.g_exc_error;

1686: --dpp_utility_pvt.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, substr(('Message data =>'||l_msg_data),1,4000));
1687:
1688: -- Check return status from the above procedure call
1689: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1690: RAISE FND_API.g_exc_error;
1691: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1693: END IF;
1694: x_return_status:= l_return_status;

Line 1691: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1687:
1688: -- Check return status from the above procedure call
1689: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1690: RAISE FND_API.g_exc_error;
1691: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1693: END IF;
1694: x_return_status:= l_return_status;
1695:

Line 1692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1688: -- Check return status from the above procedure call
1689: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1690: RAISE FND_API.g_exc_error;
1691: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1693: END IF;
1694: x_return_status:= l_return_status;
1695:
1696: -- Standard check for p_commit

Line 1697: IF FND_API.to_Boolean( p_commit )

1693: END IF;
1694: x_return_status:= l_return_status;
1695:
1696: -- Standard check for p_commit
1697: IF FND_API.to_Boolean( p_commit )
1698: THEN
1699: COMMIT;
1700: END IF;
1701: FND_MSG_PUB.count_and_get(

Line 1702: p_encoded => FND_API.g_false,

1698: THEN
1699: COMMIT;
1700: END IF;
1701: FND_MSG_PUB.count_and_get(
1702: p_encoded => FND_API.g_false,
1703: p_count => x_msg_count,
1704: p_data => x_msg_data
1705: );
1706:

Line 1709: WHEN FND_API.g_exc_error THEN

1705: );
1706:
1707: --Exception Handling
1708: EXCEPTION
1709: WHEN FND_API.g_exc_error THEN
1710: ROLLBACK TO Raise_Business_Event;
1711: x_return_status := FND_API.g_ret_sts_error;
1712: FND_MSG_PUB.count_and_get (
1713: p_encoded => FND_API.g_false,

Line 1711: x_return_status := FND_API.g_ret_sts_error;

1707: --Exception Handling
1708: EXCEPTION
1709: WHEN FND_API.g_exc_error THEN
1710: ROLLBACK TO Raise_Business_Event;
1711: x_return_status := FND_API.g_ret_sts_error;
1712: FND_MSG_PUB.count_and_get (
1713: p_encoded => FND_API.g_false,
1714: p_count => x_msg_count,
1715: p_data => x_msg_data

Line 1713: p_encoded => FND_API.g_false,

1709: WHEN FND_API.g_exc_error THEN
1710: ROLLBACK TO Raise_Business_Event;
1711: x_return_status := FND_API.g_ret_sts_error;
1712: FND_MSG_PUB.count_and_get (
1713: p_encoded => FND_API.g_false,
1714: p_count => x_msg_count,
1715: p_data => x_msg_data
1716: );
1717:

Line 1724: WHEN FND_API.g_exc_unexpected_error THEN

1720: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1721: END LOOP;
1722: END IF;
1723:
1724: WHEN FND_API.g_exc_unexpected_error THEN
1725: ROLLBACK TO Raise_Business_Event;
1726: x_return_status := FND_API.g_ret_sts_unexp_error ;
1727: FND_MSG_PUB.count_and_get (
1728: p_encoded => FND_API.g_false,

Line 1726: x_return_status := FND_API.g_ret_sts_unexp_error ;

1722: END IF;
1723:
1724: WHEN FND_API.g_exc_unexpected_error THEN
1725: ROLLBACK TO Raise_Business_Event;
1726: x_return_status := FND_API.g_ret_sts_unexp_error ;
1727: FND_MSG_PUB.count_and_get (
1728: p_encoded => FND_API.g_false,
1729: p_count => x_msg_count,
1730: p_data => x_msg_data

Line 1728: p_encoded => FND_API.g_false,

1724: WHEN FND_API.g_exc_unexpected_error THEN
1725: ROLLBACK TO Raise_Business_Event;
1726: x_return_status := FND_API.g_ret_sts_unexp_error ;
1727: FND_MSG_PUB.count_and_get (
1728: p_encoded => FND_API.g_false,
1729: p_count => x_msg_count,
1730: p_data => x_msg_data
1731: );
1732:

Line 1745: x_return_status := FND_API.g_ret_sts_unexp_error ;

1741: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1742: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
1743: fnd_message.set_token('ERRNO', sqlcode);
1744: fnd_message.set_token('REASON', sqlerrm);
1745: x_return_status := FND_API.g_ret_sts_unexp_error ;
1746: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1747: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1748: END IF;
1749: FND_MSG_PUB.count_and_get (

Line 1750: p_encoded => FND_API.g_false,

1746: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1747: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1748: END IF;
1749: FND_MSG_PUB.count_and_get (
1750: p_encoded => FND_API.g_false,
1751: p_count => x_msg_count,
1752: p_data => x_msg_data
1753: );
1754:

Line 1800: x_return_status := FND_API.g_ret_sts_success;

1796: l_module CONSTANT VARCHAR2(100) := 'dpp.plsql.DPP_BUSINESSEVENTS_PVT.RAISE_WORKFLOW_EVENT';
1797:
1798: BEGIN
1799:
1800: x_return_status := FND_API.g_ret_sts_success;
1801: --------------------- initialize -----------------------
1802: SAVEPOINT Raise_Workflow_Event;
1803:
1804: --Get a unique value for the l_new_item_key key

Line 1810: RAISE FND_API.g_exc_error;

1806: --Check if the event subscription can be raised or not before inserting into the DPP_EXECUTION_DETAILS table
1807: l_event_test := wf_event.test(l_event_name);
1808: IF l_event_test = 'NONE' THEN
1809: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'No enabled local subscriptions reference the event, or the event does not exist.');
1810: RAISE FND_API.g_exc_error;
1811: ELSE
1812: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Number of rows Processed : '||p_row_count);
1813:
1814: --Check if the xml has any rows processed and raise the event

Line 1853: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1849: FND_MSG_PUB.add;
1850: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1851: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1852: END IF;
1853: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1854: END;
1855: --Define in WF Attributes l_parameter_list := WF_PARAMETER_LIST_T();
1856: WF_EVENT.AddParameterToList( p_name => 'TARGETSYSTEM'
1857: , p_value => l_target_system

Line 1881: RAISE FND_API.g_exc_error;

1877: ELSE
1878: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Work Flow Event is not Raised');
1879: FND_MESSAGE.set_name('DPP', 'DPP_CC_NO_ELIGIBLE_LINES_MSG');
1880: FND_MSG_PUB.add;
1881: RAISE FND_API.g_exc_error;
1882: END IF; --p_row_count > 0
1883: END IF;
1884:
1885: EXCEPTION

Line 1886: WHEN FND_API.g_exc_error THEN

1882: END IF; --p_row_count > 0
1883: END IF;
1884:
1885: EXCEPTION
1886: WHEN FND_API.g_exc_error THEN
1887: ROLLBACK TO Raise_Workflow_Event;
1888: x_return_status := FND_API.g_ret_sts_error;
1889: FND_MSG_PUB.count_and_get (
1890: p_encoded => FND_API.g_false,

Line 1888: x_return_status := FND_API.g_ret_sts_error;

1884:
1885: EXCEPTION
1886: WHEN FND_API.g_exc_error THEN
1887: ROLLBACK TO Raise_Workflow_Event;
1888: x_return_status := FND_API.g_ret_sts_error;
1889: FND_MSG_PUB.count_and_get (
1890: p_encoded => FND_API.g_false,
1891: p_count => x_msg_count,
1892: p_data => x_msg_data

Line 1890: p_encoded => FND_API.g_false,

1886: WHEN FND_API.g_exc_error THEN
1887: ROLLBACK TO Raise_Workflow_Event;
1888: x_return_status := FND_API.g_ret_sts_error;
1889: FND_MSG_PUB.count_and_get (
1890: p_encoded => FND_API.g_false,
1891: p_count => x_msg_count,
1892: p_data => x_msg_data
1893: );
1894: IF x_msg_count > 1 THEN

Line 1900: WHEN FND_API.g_exc_unexpected_error THEN

1896: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1897: END LOOP;
1898: END IF;
1899:
1900: WHEN FND_API.g_exc_unexpected_error THEN
1901: ROLLBACK TO Raise_Workflow_Event;
1902: x_return_status := FND_API.g_ret_sts_unexp_error ;
1903: FND_MSG_PUB.count_and_get (
1904: p_encoded => FND_API.g_false,

Line 1902: x_return_status := FND_API.g_ret_sts_unexp_error ;

1898: END IF;
1899:
1900: WHEN FND_API.g_exc_unexpected_error THEN
1901: ROLLBACK TO Raise_Workflow_Event;
1902: x_return_status := FND_API.g_ret_sts_unexp_error ;
1903: FND_MSG_PUB.count_and_get (
1904: p_encoded => FND_API.g_false,
1905: p_count => x_msg_count,
1906: p_data => x_msg_data

Line 1904: p_encoded => FND_API.g_false,

1900: WHEN FND_API.g_exc_unexpected_error THEN
1901: ROLLBACK TO Raise_Workflow_Event;
1902: x_return_status := FND_API.g_ret_sts_unexp_error ;
1903: FND_MSG_PUB.count_and_get (
1904: p_encoded => FND_API.g_false,
1905: p_count => x_msg_count,
1906: p_data => x_msg_data
1907: );
1908: IF x_msg_count > 1 THEN

Line 1921: x_return_status := FND_API.g_ret_sts_unexp_error ;

1917: fnd_message.set_token('ROUTINE', 'DPP_BUSINESSEVENTS_PVT');
1918: fnd_message.set_token('ERRNO', sqlcode);
1919: fnd_message.set_token('REASON', sqlerrm);
1920: FND_MSG_PUB.add;
1921: x_return_status := FND_API.g_ret_sts_unexp_error ;
1922: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1923: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1924: END IF;
1925: FND_MSG_PUB.count_and_get (

Line 1926: p_encoded => FND_API.g_false,

1922: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1923: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1924: END IF;
1925: FND_MSG_PUB.count_and_get (
1926: p_encoded => FND_API.g_false,
1927: p_count => x_msg_count,
1928: p_data => x_msg_data
1929: );
1930: IF x_msg_count > 1 THEN