16: AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
17:
18: PROCEDURE Create_selattval(
19: P_Api_Version_Number IN NUMBER,
20: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
21: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
22: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
23: P_Identity_Resource_Id IN NUMBER,
24: P_SELATTVAL_Rec IN PV_RULE_RECTYPE_PUB.SELATTVAL_Rec_Type
17:
18: PROCEDURE Create_selattval(
19: P_Api_Version_Number IN NUMBER,
20: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
21: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
22: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
23: P_Identity_Resource_Id IN NUMBER,
24: P_SELATTVAL_Rec IN PV_RULE_RECTYPE_PUB.SELATTVAL_Rec_Type
25: := PV_RULE_RECTYPE_PUB.G_MISS_SELATTVAL_REC,
18: PROCEDURE Create_selattval(
19: P_Api_Version_Number IN NUMBER,
20: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
21: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
22: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
23: P_Identity_Resource_Id IN NUMBER,
24: P_SELATTVAL_Rec IN PV_RULE_RECTYPE_PUB.SELATTVAL_Rec_Type
25: := PV_RULE_RECTYPE_PUB.G_MISS_SELATTVAL_REC,
26: X_ATTR_VALUE_ID OUT NOCOPY NUMBER,
36: -- Standard Start of API savepoint
37: SAVEPOINT CREATE_SELATTVAL_PUB;
38:
39: -- Standard call to check for call compatibility.
40: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
41: p_api_version_number,
42: l_api_name,
43: G_PKG_NAME)
44: THEN
41: p_api_version_number,
42: l_api_name,
43: G_PKG_NAME)
44: THEN
45: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
46: END IF;
47:
48:
49: -- Initialize message list if p_init_msg_list is set to TRUE.
46: END IF;
47:
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:
67:
68: END IF;
69:
70: -- Initialize API return status to SUCCESS
71: x_return_status := FND_API.G_RET_STS_SUCCESS;
72:
73: --
74: -- API body
75: --
76:
77: -- Calling Private package: Create_SELATTVAL
78: PV_selattval_PVT.Create_selattval(
79: P_Api_Version_Number => 2.0,
80: P_Init_Msg_List => FND_API.G_FALSE,
81: P_Commit => FND_API.G_FALSE,
82: P_Validation_Level => P_Validation_Level,
83: P_Identity_Resource_Id => P_Identity_Resource_Id,
84: P_SELATTVAL_Rec => p_SELATTVAL_Rec ,
77: -- Calling Private package: Create_SELATTVAL
78: PV_selattval_PVT.Create_selattval(
79: P_Api_Version_Number => 2.0,
80: P_Init_Msg_List => FND_API.G_FALSE,
81: P_Commit => FND_API.G_FALSE,
82: P_Validation_Level => P_Validation_Level,
83: P_Identity_Resource_Id => P_Identity_Resource_Id,
84: P_SELATTVAL_Rec => p_SELATTVAL_Rec ,
85: X_ATTR_VALUE_ID => x_ATTR_VALUE_ID,
87: X_Msg_Count => x_msg_count,
88: X_Msg_Data => x_msg_data);
89:
90: -- Check return status from the above procedure call
91: IF x_return_status = FND_API.G_RET_STS_ERROR then
92: raise FND_API.G_EXC_ERROR;
93: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
94: raise FND_API.G_EXC_UNEXPECTED_ERROR;
95: END IF;
88: X_Msg_Data => x_msg_data);
89:
90: -- Check return status from the above procedure call
91: IF x_return_status = FND_API.G_RET_STS_ERROR then
92: raise FND_API.G_EXC_ERROR;
93: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
94: raise FND_API.G_EXC_UNEXPECTED_ERROR;
95: END IF;
96:
89:
90: -- Check return status from the above procedure call
91: IF x_return_status = FND_API.G_RET_STS_ERROR then
92: raise FND_API.G_EXC_ERROR;
93: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
94: raise FND_API.G_EXC_UNEXPECTED_ERROR;
95: END IF;
96:
97: --
90: -- Check return status from the above procedure call
91: IF x_return_status = FND_API.G_RET_STS_ERROR then
92: raise FND_API.G_EXC_ERROR;
93: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
94: raise FND_API.G_EXC_UNEXPECTED_ERROR;
95: END IF;
96:
97: --
98: -- End of API body.
98: -- End of API body.
99: --
100:
101: -- Standard check for p_commit
102: IF FND_API.to_Boolean( p_commit )
103: THEN
104: COMMIT WORK;
105: END IF;
106:
125: p_data => x_msg_data
126: );
127:
128: EXCEPTION
129: WHEN FND_API.G_EXC_ERROR THEN
130: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
131: P_API_NAME => L_API_NAME
132: ,P_PKG_NAME => G_PKG_NAME
133: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
135: ,X_MSG_COUNT => X_MSG_COUNT
136: ,X_MSG_DATA => X_MSG_DATA
137: ,X_RETURN_STATUS => X_RETURN_STATUS);
138:
139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
140: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
141: P_API_NAME => L_API_NAME
142: ,P_PKG_NAME => G_PKG_NAME
143: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
162:
163: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
164: PROCEDURE Update_selattval(
165: P_Api_Version_Number IN NUMBER,
166: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
167: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
168: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
169: P_Identity_Resource_Id IN NUMBER,
170: P_SELATTVAL_Rec IN PV_RULE_RECTYPE_PUB.SELATTVAL_Rec_Type,
163: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
164: PROCEDURE Update_selattval(
165: P_Api_Version_Number IN NUMBER,
166: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
167: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
168: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
169: P_Identity_Resource_Id IN NUMBER,
170: P_SELATTVAL_Rec IN PV_RULE_RECTYPE_PUB.SELATTVAL_Rec_Type,
171: X_Return_Status OUT NOCOPY VARCHAR2,
164: PROCEDURE Update_selattval(
165: P_Api_Version_Number IN NUMBER,
166: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
167: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
168: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
169: P_Identity_Resource_Id IN NUMBER,
170: P_SELATTVAL_Rec IN PV_RULE_RECTYPE_PUB.SELATTVAL_Rec_Type,
171: X_Return_Status OUT NOCOPY VARCHAR2,
172: X_Msg_Count OUT NOCOPY NUMBER,
180: -- Standard Start of API savepoint
181: SAVEPOINT UPDATE_SELATTVAL_PUB;
182:
183: -- Standard call to check for call compatibility.
184: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
185: p_api_version_number,
186: l_api_name,
187: G_PKG_NAME)
188: THEN
185: p_api_version_number,
186: l_api_name,
187: G_PKG_NAME)
188: THEN
189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
190: END IF;
191:
192:
193: -- Initialize message list if p_init_msg_list is set to TRUE.
190: END IF;
191:
192:
193: -- Initialize message list if p_init_msg_list is set to TRUE.
194: IF FND_API.to_Boolean( p_init_msg_list )
195: THEN
196: FND_MSG_PUB.initialize;
197: END IF;
198:
207: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Start time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
208: END IF;
209:
210: -- Initialize API return status to SUCCESS
211: x_return_status := FND_API.G_RET_STS_SUCCESS;
212:
213: --
214: -- API body
215: --
215: --
216:
217: PV_selattval_PVT.Update_selattval(
218: P_Api_Version_Number => 2.0,
219: P_Init_Msg_List => FND_API.G_FALSE,
220: P_Commit => p_commit,
221: P_Validation_Level => P_Validation_Level,
222: P_Identity_Resource_Id => P_Identity_Resource_Id,
223: P_SELATTVAL_Rec => p_SELATTVAL_Rec ,
225: X_Msg_Count => x_msg_count,
226: X_Msg_Data => x_msg_data);
227:
228: -- Check return status from the above procedure call
229: IF x_return_status = FND_API.G_RET_STS_ERROR then
230: raise FND_API.G_EXC_ERROR;
231: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
232: raise FND_API.G_EXC_UNEXPECTED_ERROR;
233: END IF;
226: X_Msg_Data => x_msg_data);
227:
228: -- Check return status from the above procedure call
229: IF x_return_status = FND_API.G_RET_STS_ERROR then
230: raise FND_API.G_EXC_ERROR;
231: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
232: raise FND_API.G_EXC_UNEXPECTED_ERROR;
233: END IF;
234:
227:
228: -- Check return status from the above procedure call
229: IF x_return_status = FND_API.G_RET_STS_ERROR then
230: raise FND_API.G_EXC_ERROR;
231: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
232: raise FND_API.G_EXC_UNEXPECTED_ERROR;
233: END IF;
234:
235: --
228: -- Check return status from the above procedure call
229: IF x_return_status = FND_API.G_RET_STS_ERROR then
230: raise FND_API.G_EXC_ERROR;
231: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
232: raise FND_API.G_EXC_UNEXPECTED_ERROR;
233: END IF;
234:
235: --
236: -- End of API body
236: -- End of API body
237: --
238:
239: -- Standard check for p_commit
240: IF FND_API.to_Boolean( p_commit )
241: THEN
242: COMMIT WORK;
243: END IF;
244:
263: p_data => x_msg_data
264: );
265:
266: EXCEPTION
267: WHEN FND_API.G_EXC_ERROR THEN
268: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
269: P_API_NAME => L_API_NAME
270: ,P_PKG_NAME => G_PKG_NAME
271: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
273: ,X_MSG_COUNT => X_MSG_COUNT
274: ,X_MSG_DATA => X_MSG_DATA
275: ,X_RETURN_STATUS => X_RETURN_STATUS);
276:
277: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
278: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
279: P_API_NAME => L_API_NAME
280: ,P_PKG_NAME => G_PKG_NAME
281: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
301: -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
302: -- The Master delete procedure may not be needed depends on different business requirements.
303: PROCEDURE Delete_selattval(
304: P_Api_Version_Number IN NUMBER,
305: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
306: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
307: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
308: P_Identity_Resource_Id IN NUMBER,
309: P_SELATTVAL_Rec IN PV_RULE_RECTYPE_PUB.SELATTVAL_Rec_Type,
302: -- The Master delete procedure may not be needed depends on different business requirements.
303: PROCEDURE Delete_selattval(
304: P_Api_Version_Number IN NUMBER,
305: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
306: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
307: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
308: P_Identity_Resource_Id IN NUMBER,
309: P_SELATTVAL_Rec IN PV_RULE_RECTYPE_PUB.SELATTVAL_Rec_Type,
310: X_Return_Status OUT NOCOPY VARCHAR2,
303: PROCEDURE Delete_selattval(
304: P_Api_Version_Number IN NUMBER,
305: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
306: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
307: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
308: P_Identity_Resource_Id IN NUMBER,
309: P_SELATTVAL_Rec IN PV_RULE_RECTYPE_PUB.SELATTVAL_Rec_Type,
310: X_Return_Status OUT NOCOPY VARCHAR2,
311: X_Msg_Count OUT NOCOPY NUMBER,
319: -- Standard Start of API savepoint
320: SAVEPOINT DELETE_SELATTVAL_PUB;
321:
322: -- Standard call to check for call compatibility.
323: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
324: p_api_version_number,
325: l_api_name,
326: G_PKG_NAME)
327: THEN
324: p_api_version_number,
325: l_api_name,
326: G_PKG_NAME)
327: THEN
328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
329: END IF;
330:
331:
332: -- Initialize message list if p_init_msg_list is set to TRUE.
329: END IF;
330:
331:
332: -- Initialize message list if p_init_msg_list is set to TRUE.
333: IF FND_API.to_Boolean( p_init_msg_list )
334: THEN
335: FND_MSG_PUB.initialize;
336: END IF;
337:
350:
351: END IF;
352:
353: -- Initialize API return status to SUCCESS
354: x_return_status := FND_API.G_RET_STS_SUCCESS;
355:
356: --
357: -- API body
358: --
358: --
359:
360: PV_selattval_PVT.Delete_selattval(
361: P_Api_Version_Number => 2.0,
362: P_Init_Msg_List => FND_API.G_FALSE,
363: P_Commit => p_commit,
364: P_Validation_Level => p_Validation_Level,
365: P_Identity_Resource_Id => P_Identity_Resource_Id,
366: P_SELATTVAL_Rec => p_SELATTVAL_Rec,
369: X_Msg_Data => x_msg_data);
370:
371:
372: -- Check return status from the above procedure call
373: IF x_return_status = FND_API.G_RET_STS_ERROR then
374: raise FND_API.G_EXC_ERROR;
375: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
376: raise FND_API.G_EXC_UNEXPECTED_ERROR;
377: END IF;
370:
371:
372: -- Check return status from the above procedure call
373: IF x_return_status = FND_API.G_RET_STS_ERROR then
374: raise FND_API.G_EXC_ERROR;
375: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
376: raise FND_API.G_EXC_UNEXPECTED_ERROR;
377: END IF;
378:
371:
372: -- Check return status from the above procedure call
373: IF x_return_status = FND_API.G_RET_STS_ERROR then
374: raise FND_API.G_EXC_ERROR;
375: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
376: raise FND_API.G_EXC_UNEXPECTED_ERROR;
377: END IF;
378:
379: --
372: -- Check return status from the above procedure call
373: IF x_return_status = FND_API.G_RET_STS_ERROR then
374: raise FND_API.G_EXC_ERROR;
375: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
376: raise FND_API.G_EXC_UNEXPECTED_ERROR;
377: END IF;
378:
379: --
380: -- End of API body
380: -- End of API body
381: --
382:
383: -- Standard check for p_commit
384: IF FND_API.to_Boolean( p_commit )
385: THEN
386: COMMIT WORK;
387: END IF;
388:
407: p_data => x_msg_data
408: );
409:
410: EXCEPTION
411: WHEN FND_API.G_EXC_ERROR THEN
412: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
413: P_API_NAME => L_API_NAME
414: ,P_PKG_NAME => G_PKG_NAME
415: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
417: ,X_MSG_COUNT => X_MSG_COUNT
418: ,X_MSG_DATA => X_MSG_DATA
419: ,X_RETURN_STATUS => X_RETURN_STATUS);
420:
421: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
422: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
423: P_API_NAME => L_API_NAME
424: ,P_PKG_NAME => G_PKG_NAME
425: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR