20: TYPE actmetrics_tab_t IS TABLE OF AMS_ActMetric_PVT.act_metric_rec_type
21: INDEX BY BINARY_INTEGER;
22:
23: /* ############ Global Variable Declarations ############### */
24: AMS_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
25: AMS_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
26: AMS_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
27:
28: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AMS_ADI_MEDIA_PLANNER_PVT';
21: INDEX BY BINARY_INTEGER;
22:
23: /* ############ Global Variable Declarations ############### */
24: AMS_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
25: AMS_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
26: AMS_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
27:
28: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AMS_ADI_MEDIA_PLANNER_PVT';
29:
22:
23: /* ############ Global Variable Declarations ############### */
24: AMS_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
25: AMS_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
26: AMS_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
27:
28: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AMS_ADI_MEDIA_PLANNER_PVT';
29:
30: /* ############# Forward Procedure Declarations ################ */
104: l_err_recs AMS_ADI_COMMON_PVT.ams_adi_error_rec_t :=
105: AMS_ADI_COMMON_PVT.ams_adi_error_rec_t();
106: BEGIN
107: IF fnd_api.to_boolean (p_init_msg_list) THEN
108: fnd_msg_pub.initialize;
109: END IF;
110:
111: IF NOT FND_API.Compatible_API_Call(L_API_VERSION_NUMBER,
112: p_api_version, l_API_NAME, G_PKG_NAME)
128: EXCEPTION
129: WHEN TOO_MANY_ROWS THEN
130: x_return_status := FND_API.g_ret_sts_error;
131: FND_MESSAGE.set_name ('AMS', 'AMS_CSCH_NOT_UNIQUE');
132: FND_MSG_PUB.add;
133: RETURN;
134: WHEN NO_DATA_FOUND THEN
135: x_return_status := FND_API.g_ret_sts_error;
136: FND_MESSAGE.set_name ('AMS', 'AMS_CSCH_NOT_FOUND');
133: RETURN;
134: WHEN NO_DATA_FOUND THEN
135: x_return_status := FND_API.g_ret_sts_error;
136: FND_MESSAGE.set_name ('AMS', 'AMS_CSCH_NOT_FOUND');
137: FND_MSG_PUB.add;
138: RETURN;
139: END;
140:
141: IF (AMS_DEBUG_HIGH_ON) THEN
166:
167: EXCEPTION
168: WHEN fnd_api.G_EXC_ERROR THEN
169: x_return_status := FND_API.G_RET_STS_ERROR;
170: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
171: WHEN fnd_api.G_EXC_UNEXPECTED_ERROR THEN
172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
173: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
174: WHEN OTHERS THEN
169: x_return_status := FND_API.G_RET_STS_ERROR;
170: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
171: WHEN fnd_api.G_EXC_UNEXPECTED_ERROR THEN
172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
173: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
174: WHEN OTHERS THEN
175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
176: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
177: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, L_API_NAME);
172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
173: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
174: WHEN OTHERS THEN
175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
176: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
177: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, L_API_NAME);
178: END IF;
179: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
180:
173: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
174: WHEN OTHERS THEN
175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
176: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
177: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, L_API_NAME);
178: END IF;
179: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
180:
181: END;
175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
176: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
177: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, L_API_NAME);
178: END IF;
179: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
180:
181: END;
182:
183: -- ==========================================================================
248: l_display_type VARCHAR2(30);
249:
250: BEGIN
251: IF fnd_api.to_boolean (p_init_msg_list) THEN
252: fnd_msg_pub.initialize;
253: END IF;
254:
255: IF NOT FND_API.Compatible_API_Call(L_API_VERSION_NUMBER,
256: p_api_version, L_API_NAME, G_PKG_NAME)
451: WHEN fnd_api.G_EXC_ERROR THEN
452: x_return_status := FND_API.G_RET_STS_ERROR;
453: x_msg_count := l_msg_count;
454: x_msg_data := l_msg_data;
455: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
456: WHEN fnd_api.G_EXC_UNEXPECTED_ERROR THEN
457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
458: x_msg_count := l_msg_count;
459: x_msg_data := l_msg_data;
456: WHEN fnd_api.G_EXC_UNEXPECTED_ERROR THEN
457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
458: x_msg_count := l_msg_count;
459: x_msg_data := l_msg_data;
460: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
461: WHEN OTHERS THEN
462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
463: x_msg_count := l_msg_count;
464: x_msg_data := l_msg_data;
461: WHEN OTHERS THEN
462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
463: x_msg_count := l_msg_count;
464: x_msg_data := l_msg_data;
465: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
466: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, L_API_NAME);
467: END IF;
468: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
469:
462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
463: x_msg_count := l_msg_count;
464: x_msg_data := l_msg_data;
465: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
466: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, L_API_NAME);
467: END IF;
468: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
469:
470: END;
464: x_msg_data := l_msg_data;
465: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
466: FND_MSG_PUB.ADD_EXC_MSG(G_PKG_NAME, L_API_NAME);
467: END IF;
468: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
469:
470: END;
471:
472: -- ==========================================================================
538: -- retcode := 2; -- error code is 2
539: AMS_Utility_PVT.write_conc_log;
540: -- reset message buffer after contents
541: -- have been dumped into the log file
542: FND_MSG_PUB.initialize;
543: END IF;
544: END LOOP;
545:
546: IF (AMS_DEBUG_HIGH_ON) THEN
571: RAISE;
572: WHEN OTHERS THEN
573: x_errbuf := SQLERRM;
574: AMS_UTILITY_PVT.Write_Conc_Log(l_API_NAME||'SQLERROR: '||x_errbuf);
575: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
576: FND_MSG_PUB.Add_EXC_MSG(G_PKG_NAME, L_API_NAME);
577: END IF;
578: x_retcode := 1;
579: RAISE;
572: WHEN OTHERS THEN
573: x_errbuf := SQLERRM;
574: AMS_UTILITY_PVT.Write_Conc_Log(l_API_NAME||'SQLERROR: '||x_errbuf);
575: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
576: FND_MSG_PUB.Add_EXC_MSG(G_PKG_NAME, L_API_NAME);
577: END IF;
578: x_retcode := 1;
579: RAISE;
580: