10:
11: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PV_ENTYRLS_PUB';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvrperab.pls';
13:
14: AS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
15: AS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
16: AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
17:
18: PROCEDURE Create_entyrls(
11: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PV_ENTYRLS_PUB';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvrperab.pls';
13:
14: AS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
15: AS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
16: AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
17:
18: PROCEDURE Create_entyrls(
19: P_Api_Version_Number IN NUMBER,
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvrperab.pls';
13:
14: AS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
15: AS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
16: AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
17:
18: PROCEDURE Create_entyrls(
19: P_Api_Version_Number IN NUMBER,
20: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
48:
49: -- Initialize message list if p_init_msg_list is set to TRUE.
50: IF FND_API.to_Boolean( p_init_msg_list )
51: THEN
52: FND_MSG_PUB.initialize;
53: END IF;
54:
55:
56: -- Debug Message
55:
56: -- Debug Message
57: IF (AS_DEBUG_HIGH_ON) THEN
58:
59: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'start');
60: END IF;
61:
62: IF (AS_DEBUG_HIGH_ON) THEN
63:
62: IF (AS_DEBUG_HIGH_ON) THEN
63:
64:
65:
66: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Start time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
67:
68: END IF;
69:
70: -- Initialize API return status to SUCCESS
108:
109: -- Debug Message
110: IF (AS_DEBUG_HIGH_ON) THEN
111:
112: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'end');
113: END IF;
114:
115: IF (AS_DEBUG_HIGH_ON) THEN
116:
115: IF (AS_DEBUG_HIGH_ON) THEN
116:
117:
118:
119: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
120:
121: END IF;
122:
123: -- Standard call to get message count and if count is 1, get message info.
120:
121: END IF;
122:
123: -- Standard call to get message count and if count is 1, get message info.
124: FND_MSG_PUB.Count_And_Get
125: ( p_count => x_msg_count,
126: p_data => x_msg_data
127: );
128:
130: WHEN FND_API.G_EXC_ERROR THEN
131: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
132: P_API_NAME => L_API_NAME
133: ,P_PKG_NAME => G_PKG_NAME
134: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
135: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
136: ,X_MSG_COUNT => X_MSG_COUNT
137: ,X_MSG_DATA => X_MSG_DATA
138: ,X_RETURN_STATUS => X_RETURN_STATUS);
140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
141: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
142: P_API_NAME => L_API_NAME
143: ,P_PKG_NAME => G_PKG_NAME
144: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
145: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
146: ,X_MSG_COUNT => X_MSG_COUNT
147: ,X_MSG_DATA => X_MSG_DATA
148: ,X_RETURN_STATUS => X_RETURN_STATUS);
193:
194: -- Initialize message list if p_init_msg_list is set to TRUE.
195: IF FND_API.to_Boolean( p_init_msg_list )
196: THEN
197: FND_MSG_PUB.initialize;
198: END IF;
199:
200:
201: -- Debug Message
200:
201: -- Debug Message
202: IF (AS_DEBUG_HIGH_ON) THEN
203:
204: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'start');
205: END IF;
206:
207: IF (AS_DEBUG_HIGH_ON) THEN
208:
207: IF (AS_DEBUG_HIGH_ON) THEN
208:
209:
210:
211: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Start time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
212:
213: END IF;
214:
215: -- Initialize API return status to SUCCESS
250:
251: -- Debug Message
252: IF (AS_DEBUG_HIGH_ON) THEN
253:
254: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'end');
255: END IF;
256:
257: IF (AS_DEBUG_HIGH_ON) THEN
258:
257: IF (AS_DEBUG_HIGH_ON) THEN
258:
259:
260:
261: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
262:
263: END IF;
264:
265: -- Standard call to get message count and if count is 1, get message info.
262:
263: END IF;
264:
265: -- Standard call to get message count and if count is 1, get message info.
266: FND_MSG_PUB.Count_And_Get
267: ( p_count => x_msg_count,
268: p_data => x_msg_data
269: );
270:
272: WHEN FND_API.G_EXC_ERROR THEN
273: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
274: P_API_NAME => L_API_NAME
275: ,P_PKG_NAME => G_PKG_NAME
276: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
277: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
278: ,X_MSG_COUNT => X_MSG_COUNT
279: ,X_MSG_DATA => X_MSG_DATA
280: ,X_RETURN_STATUS => X_RETURN_STATUS);
282: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
283: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
284: P_API_NAME => L_API_NAME
285: ,P_PKG_NAME => G_PKG_NAME
286: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
287: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
288: ,X_MSG_COUNT => X_MSG_COUNT
289: ,X_MSG_DATA => X_MSG_DATA
290: ,X_RETURN_STATUS => X_RETURN_STATUS);
337:
338: -- Initialize message list if p_init_msg_list is set to TRUE.
339: IF FND_API.to_Boolean( p_init_msg_list )
340: THEN
341: FND_MSG_PUB.initialize;
342: END IF;
343:
344:
345: -- Debug Message
344:
345: -- Debug Message
346: IF (AS_DEBUG_HIGH_ON) THEN
347:
348: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'start');
349: END IF;
350:
351: IF (AS_DEBUG_HIGH_ON) THEN
352:
351: IF (AS_DEBUG_HIGH_ON) THEN
352:
353:
354:
355: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Start time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
356:
357: END IF;
358:
359: -- Initialize API return status to SUCCESS
394:
395: -- Debug Message
396: IF (AS_DEBUG_HIGH_ON) THEN
397:
398: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Public API: ' || l_api_name || 'end');
399: END IF;
400:
401: IF (AS_DEBUG_HIGH_ON) THEN
402:
401: IF (AS_DEBUG_HIGH_ON) THEN
402:
403:
404:
405: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
406:
407: END IF;
408:
409: -- Standard call to get message count and if count is 1, get message info.
406:
407: END IF;
408:
409: -- Standard call to get message count and if count is 1, get message info.
410: FND_MSG_PUB.Count_And_Get
411: ( p_count => x_msg_count,
412: p_data => x_msg_data
413: );
414:
416: WHEN FND_API.G_EXC_ERROR THEN
417: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
418: P_API_NAME => L_API_NAME
419: ,P_PKG_NAME => G_PKG_NAME
420: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
421: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
422: ,X_MSG_COUNT => X_MSG_COUNT
423: ,X_MSG_DATA => X_MSG_DATA
424: ,X_RETURN_STATUS => X_RETURN_STATUS);
426: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
427: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
428: P_API_NAME => L_API_NAME
429: ,P_PKG_NAME => G_PKG_NAME
430: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
431: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PUB
432: ,X_MSG_COUNT => X_MSG_COUNT
433: ,X_MSG_DATA => X_MSG_DATA
434: ,X_RETURN_STATUS => X_RETURN_STATUS);