DBA Data[Home] [Help]

APPS.AHL_WARRANTY_CONTRACTS_PVT dependencies on FND_MSG_PUB

Line 100: FND_MSG_PUB.Initialize;

96: -- initialize return status to success
97: retcode := 0;
98:
99: -- Initialize error message stack by default
100: FND_MSG_PUB.Initialize;
101:
102: -- Standard call to check for call compatibility
103: FND_FILE.put_line(FND_FILE.LOG, 'p_api_version -> '|| p_api_version);
104: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);

Line 109: errbuf := FND_MSG_PUB.Get;

105: FND_FILE.put_line(FND_FILE.LOG, 'l_api_version -> '|| l_api_version);
106: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
107: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
108: retcode := 2;
109: errbuf := FND_MSG_PUB.Get;
110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
111: END IF;
112:
113: --------------------Start of API Body-----------------------------------

Line 145: l_msg_count := FND_MSG_PUB.Count_Msg;

141:
142: FND_FILE.put_line(FND_FILE.LOG, 'l_index -> '||(l_index-1)||', x_warranty_contract_id -> '|| l_warranty_contract_id);
143: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
144:
145: l_msg_count := FND_MSG_PUB.Count_Msg;
146: IF (l_msg_count > 0) THEN
147: CLOSE auto_assign_item_instances_csr;
148: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
149: RAISE FND_API.G_EXC_ERROR;

Line 175: l_msg_count := FND_MSG_PUB.Count_Msg;

171: x_return_status => l_return_status,
172: x_msg_count => l_msg_count,
173: x_msg_data => l_msg_data);
174:
175: l_msg_count := FND_MSG_PUB.Count_Msg;
176: IF (l_msg_count > 0) THEN
177: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
178: RAISE FND_API.G_EXC_ERROR;
179: ELSE

Line 199: l_msg_count := FND_MSG_PUB.Count_Msg;

195:
196: EXCEPTION
197: WHEN FND_API.G_EXC_ERROR THEN
198: ROLLBACK TO Auto_Create_Warranty_Contracts;
199: l_msg_count := FND_MSG_PUB.Count_Msg;
200: retcode := 2;
201:
202: -- set the output
203: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Contract auto-creation process failed. Please refer the program logs for details.');

Line 209: FND_MSG_PUB.get(

205: FND_FILE.put_line(FND_FILE.LOG, 'Following expected error(s) occured while creating warranty contract records..');
206: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
207: FOR i IN 1..l_msg_count
208: LOOP
209: FND_MSG_PUB.get(
210: p_msg_index => i,
211: p_encoded => FND_API.G_FALSE,
212: p_data => l_err_msg,
213: p_msg_index_out => l_msg_index_out);

Line 221: l_msg_count := FND_MSG_PUB.Count_Msg;

217: END LOOP;
218:
219: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
220: ROLLBACK TO Auto_Create_Warranty_Contracts;
221: l_msg_count := FND_MSG_PUB.Count_Msg;
222: retcode := 2;
223:
224: -- set the output
225: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Contract auto-creation process failed. Please refer the program logs for details.');

Line 231: FND_MSG_PUB.get(

227: FND_FILE.put_line(FND_FILE.LOG, 'Following unexpected error(s) occured while creating warranty contract records..');
228: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
229: FOR i IN 1..l_msg_count
230: LOOP
231: FND_MSG_PUB.get(
232: p_msg_index => i,
233: p_encoded => FND_API.G_FALSE,
234: p_data => l_err_msg,
235: p_msg_index_out => l_msg_index_out);

Line 244: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

240:
241: WHEN OTHERS THEN
242: ROLLBACK TO Auto_Create_Warranty_Contracts;
243: retcode := 2;
244: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
245: FND_MSG_PUB.add_exc_msg(
246: p_pkg_name => G_PKG_NAME,
247: p_procedure_name => L_API_NAME,
248: p_error_text => SUBSTR(SQLERRM,1,500));

Line 245: FND_MSG_PUB.add_exc_msg(

241: WHEN OTHERS THEN
242: ROLLBACK TO Auto_Create_Warranty_Contracts;
243: retcode := 2;
244: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
245: FND_MSG_PUB.add_exc_msg(
246: p_pkg_name => G_PKG_NAME,
247: p_procedure_name => L_API_NAME,
248: p_error_text => SUBSTR(SQLERRM,1,500));
249: END IF;

Line 251: l_msg_count := Fnd_Msg_Pub.count_msg;

247: p_procedure_name => L_API_NAME,
248: p_error_text => SUBSTR(SQLERRM,1,500));
249: END IF;
250:
251: l_msg_count := Fnd_Msg_Pub.count_msg;
252:
253: -- set the output
254: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Contract auto-creation process failed. Please refer the program logs for details.');
255:

Line 260: fnd_msg_pub.get(

256: FND_FILE.put_line(FND_FILE.LOG, 'Following error occured while creating warranty contract records..');
257: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
258: FOR i IN 1..l_msg_count
259: LOOP
260: fnd_msg_pub.get(
261: p_msg_index => i,
262: p_encoded => FND_API.G_FALSE,
263: p_data => l_err_msg,
264: p_msg_index_out => l_msg_index_out);

Line 373: FND_MSG_PUB.Initialize;

369: END IF;
370:
371: -- Initialize message list if p_init_msg_list is set to TRUE
372: IF FND_API.To_Boolean(p_init_msg_list) THEN
373: FND_MSG_PUB.Initialize;
374: END IF;
375:
376: -- Initialize API return status to success
377: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 399: Fnd_Msg_Pub.ADD;

395: IF validate_instance_csr%NOTFOUND THEN
396: CLOSE validate_instance_csr;
397: Fnd_Message.SET_NAME('AHL','AHL_FMP_INVALID_ITEM_INSTANCE' ); -- The item instance INSTANCE is invalid.
398: Fnd_Message.Set_Token('INSTANCE', p_item_instance_id);
399: Fnd_Msg_Pub.ADD;
400:
401: IF (l_log_statement >= l_log_current_level) THEN
402: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Item Instance ID :' || p_item_instance_id || 'is invalid' );
403: END IF;

Line 415: Fnd_Msg_Pub.ADD;

411: FETCH warranty_template_csr INTO warranty_template_rec;
412: IF warranty_template_csr%NOTFOUND THEN
413: CLOSE warranty_template_csr;
414: Fnd_Message.SET_NAME('AHL','AHL_WARRANTY_INV_TEMP_ID' ); -- Invalid Warranty Template.
415: Fnd_Msg_Pub.ADD;
416:
417: IF (l_log_statement >= l_log_current_level) THEN
418: fnd_log.string(l_log_statement,L_DEBUG_KEY,'warranty template: ' || p_warranty_template_id || 'is invalid' );
419: END IF;

Line 683: FND_MSG_PUB.count_and_get(

679: EXCEPTION
680: WHEN FND_API.G_EXC_ERROR THEN
681: x_return_status := FND_API.G_RET_STS_ERROR;
682: ROLLBACK TO Create_Contract;
683: FND_MSG_PUB.count_and_get(
684: p_count => x_msg_count,
685: p_data => x_msg_data,
686: p_encoded => fnd_api.g_false);
687:

Line 691: FND_MSG_PUB.count_and_get(

687:
688: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
690: ROLLBACK TO Create_Contract;
691: FND_MSG_PUB.count_and_get(
692: p_count => x_msg_count,
693: p_data => x_msg_data,
694: p_encoded => fnd_api.g_false);
695:

Line 699: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

695:
696: WHEN OTHERS THEN
697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
698: ROLLBACK TO Create_Contract;
699: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
700: fnd_msg_pub.add_exc_msg(
701: p_pkg_name => G_PKG_NAME,
702: p_procedure_name => L_API_NAME,
703: p_error_text => SUBSTR(SQLERRM,1,500));

Line 700: fnd_msg_pub.add_exc_msg(

696: WHEN OTHERS THEN
697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
698: ROLLBACK TO Create_Contract;
699: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
700: fnd_msg_pub.add_exc_msg(
701: p_pkg_name => G_PKG_NAME,
702: p_procedure_name => L_API_NAME,
703: p_error_text => SUBSTR(SQLERRM,1,500));
704: END IF;

Line 705: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

701: p_pkg_name => G_PKG_NAME,
702: p_procedure_name => L_API_NAME,
703: p_error_text => SUBSTR(SQLERRM,1,500));
704: END IF;
705: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
706: p_data => x_msg_data,
707: p_encoded => fnd_api.g_false);
708:
709: END Create_Contract;