51: l_code VARCHAR2(30); -- dummy variable used for token storage.
52:
53: BEGIN
54:
55: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
56: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
57: END IF;
58:
59: -- Standard start of API savepoint
52:
53: BEGIN
54:
55: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
56: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
57: END IF;
58:
59: -- Standard start of API savepoint
60: SAVEPOINT CREATE_SETUP_DATA_SP;
70: END IF;
71:
72: x_return_status := FND_API.G_RET_STS_SUCCESS;
73:
74: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
75: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_SETUP_DATA -------BEGIN-----------');
76: END IF;
77:
78: -- Validate input setup data in p_x_setup_data_rec
71:
72: x_return_status := FND_API.G_RET_STS_SUCCESS;
73:
74: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
75: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_SETUP_DATA -------BEGIN-----------');
76: END IF;
77:
78: -- Validate input setup data in p_x_setup_data_rec
79: -- Note :: l_setup_data_rec has been defaulted to p_x_setup_data_rec in declaration
87: (l_setup_data_rec.SETUP_CODE = 'ITEM_STATUS' AND l_setup_data_rec.STATUS_ID IS NULL) OR
88: (l_setup_data_rec.SETUP_CODE = 'REMOVAL_CODE' AND l_setup_data_rec.REMOVAL_CODE IS NULL) OR
89: ((l_setup_data_rec.OPERATION_FLAG IS NULL) OR (l_setup_data_rec.OPERATION_FLAG <> G_DML_CREATE))) THEN
90:
91: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
92: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
93: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.SETUP_CODE -- '||l_setup_data_rec.SETUP_CODE);
94: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.STATUS_ID -- '||l_setup_data_rec.STATUS_ID);
95: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.REMOVAL_CODE -- '||l_setup_data_rec.REMOVAL_CODE);
88: (l_setup_data_rec.SETUP_CODE = 'REMOVAL_CODE' AND l_setup_data_rec.REMOVAL_CODE IS NULL) OR
89: ((l_setup_data_rec.OPERATION_FLAG IS NULL) OR (l_setup_data_rec.OPERATION_FLAG <> G_DML_CREATE))) THEN
90:
91: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
92: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
93: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.SETUP_CODE -- '||l_setup_data_rec.SETUP_CODE);
94: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.STATUS_ID -- '||l_setup_data_rec.STATUS_ID);
95: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.REMOVAL_CODE -- '||l_setup_data_rec.REMOVAL_CODE);
96: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.OPERATION_FLAG -- '||l_setup_data_rec.OPERATION_FLAG);
89: ((l_setup_data_rec.OPERATION_FLAG IS NULL) OR (l_setup_data_rec.OPERATION_FLAG <> G_DML_CREATE))) THEN
90:
91: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
92: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
93: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.SETUP_CODE -- '||l_setup_data_rec.SETUP_CODE);
94: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.STATUS_ID -- '||l_setup_data_rec.STATUS_ID);
95: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.REMOVAL_CODE -- '||l_setup_data_rec.REMOVAL_CODE);
96: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.OPERATION_FLAG -- '||l_setup_data_rec.OPERATION_FLAG);
97: END IF;
90:
91: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
92: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
93: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.SETUP_CODE -- '||l_setup_data_rec.SETUP_CODE);
94: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.STATUS_ID -- '||l_setup_data_rec.STATUS_ID);
95: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.REMOVAL_CODE -- '||l_setup_data_rec.REMOVAL_CODE);
96: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.OPERATION_FLAG -- '||l_setup_data_rec.OPERATION_FLAG);
97: END IF;
98:
91: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
92: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
93: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.SETUP_CODE -- '||l_setup_data_rec.SETUP_CODE);
94: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.STATUS_ID -- '||l_setup_data_rec.STATUS_ID);
95: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.REMOVAL_CODE -- '||l_setup_data_rec.REMOVAL_CODE);
96: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.OPERATION_FLAG -- '||l_setup_data_rec.OPERATION_FLAG);
97: END IF;
98:
99: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
92: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
93: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.SETUP_CODE -- '||l_setup_data_rec.SETUP_CODE);
94: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.STATUS_ID -- '||l_setup_data_rec.STATUS_ID);
95: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.REMOVAL_CODE -- '||l_setup_data_rec.REMOVAL_CODE);
96: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_setup_data_rec.OPERATION_FLAG -- '||l_setup_data_rec.OPERATION_FLAG);
97: END IF;
98:
99: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
100: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_SETUP_DATA');
113: WHERE SETUP_CODE = l_setup_data_rec.SETUP_CODE
114: AND nvl(STATUS_ID,'-1') = nvl(DECODE(l_setup_data_rec.SETUP_CODE,'ITEM_STATUS',l_setup_data_rec.STATUS_ID,STATUS_ID),'-1')
115: AND nvl(REMOVAL_CODE,'-1') = nvl(DECODE(l_setup_data_rec.SETUP_CODE,'REMOVAL_CODE',l_setup_data_rec.REMOVAL_CODE,REMOVAL_CODE),'-1'));
116:
117: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
118: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Duplicate Data exists -- ERROR ... ');
119: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Fetch Code for Message Token ... ');
120: END IF;
121:
114: AND nvl(STATUS_ID,'-1') = nvl(DECODE(l_setup_data_rec.SETUP_CODE,'ITEM_STATUS',l_setup_data_rec.STATUS_ID,STATUS_ID),'-1')
115: AND nvl(REMOVAL_CODE,'-1') = nvl(DECODE(l_setup_data_rec.SETUP_CODE,'REMOVAL_CODE',l_setup_data_rec.REMOVAL_CODE,REMOVAL_CODE),'-1'));
116:
117: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
118: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Duplicate Data exists -- ERROR ... ');
119: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Fetch Code for Message Token ... ');
120: END IF;
121:
122: IF l_setup_data_rec.SETUP_CODE = 'ITEM_STATUS' THEN
115: AND nvl(REMOVAL_CODE,'-1') = nvl(DECODE(l_setup_data_rec.SETUP_CODE,'REMOVAL_CODE',l_setup_data_rec.REMOVAL_CODE,REMOVAL_CODE),'-1'));
116:
117: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
118: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Duplicate Data exists -- ERROR ... ');
119: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Fetch Code for Message Token ... ');
120: END IF;
121:
122: IF l_setup_data_rec.SETUP_CODE = 'ITEM_STATUS' THEN
123: BEGIN
131: FND_MSG_PUB.ADD;
132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133: EXCEPTION
134: WHEN NO_DATA_FOUND THEN
135: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
136: fnd_log.string(fnd_log.level_statement,l_full_name,'-- MTL STATUS Data Corruption -- ERROR ... ');
137: END IF;
138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139: END;
132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133: EXCEPTION
134: WHEN NO_DATA_FOUND THEN
135: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
136: fnd_log.string(fnd_log.level_statement,l_full_name,'-- MTL STATUS Data Corruption -- ERROR ... ');
137: END IF;
138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139: END;
140:
151: FND_MSG_PUB.ADD;
152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
153: EXCEPTION
154: WHEN NO_DATA_FOUND THEN
155: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
156: fnd_log.string(fnd_log.level_statement,l_full_name,'-- AHL LOOKUP Data Corruption -- ERROR ... ');
157: END IF;
158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
159: END;
152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
153: EXCEPTION
154: WHEN NO_DATA_FOUND THEN
155: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
156: fnd_log.string(fnd_log.level_statement,l_full_name,'-- AHL LOOKUP Data Corruption -- ERROR ... ');
157: END IF;
158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
159: END;
160: END IF;
160: END IF;
161:
162: EXCEPTION
163: WHEN NO_DATA_FOUND THEN
164: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
165: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Duplicate Data does not exists -- CONTINUE ... ');
166: END IF;
167: NULL;
168: END;
161:
162: EXCEPTION
163: WHEN NO_DATA_FOUND THEN
164: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
165: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Duplicate Data does not exists -- CONTINUE ... ');
166: END IF;
167: NULL;
168: END;
169:
178: WHERE EXISTS (SELECT 1
179: FROM MTL_MATERIAL_STATUSES_VL
180: WHERE STATUS_ID = l_setup_data_rec.STATUS_ID);
181:
182: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
183: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Valid Status Id Passed. -- CONTINUE ... ' || l_setup_data_rec.STATUS_ID);
184: END IF;
185:
186: EXCEPTION
179: FROM MTL_MATERIAL_STATUSES_VL
180: WHERE STATUS_ID = l_setup_data_rec.STATUS_ID);
181:
182: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
183: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Valid Status Id Passed. -- CONTINUE ... ' || l_setup_data_rec.STATUS_ID);
184: END IF;
185:
186: EXCEPTION
187: WHEN NO_DATA_FOUND THEN
184: END IF;
185:
186: EXCEPTION
187: WHEN NO_DATA_FOUND THEN
188: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
189: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Status Id Passed -- ERROR ... ' || l_setup_data_rec.STATUS_ID);
190: END IF;
191: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
192: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_SETUP_DATA');
185:
186: EXCEPTION
187: WHEN NO_DATA_FOUND THEN
188: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
189: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Status Id Passed -- ERROR ... ' || l_setup_data_rec.STATUS_ID);
190: END IF;
191: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
192: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_SETUP_DATA');
193: FND_MSG_PUB.ADD;
208: FROM FND_LOOKUPS
209: WHERE LOOKUP_TYPE = 'AHL_REMOVAL_CODE'
210: AND LOOKUP_CODE = l_setup_data_rec.REMOVAL_CODE);
211:
212: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
213: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Valid Removal Code Passed. -- CONTINUE ... ' || l_setup_data_rec.REMOVAL_CODE);
214: END IF;
215:
216: EXCEPTION
209: WHERE LOOKUP_TYPE = 'AHL_REMOVAL_CODE'
210: AND LOOKUP_CODE = l_setup_data_rec.REMOVAL_CODE);
211:
212: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
213: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Valid Removal Code Passed. -- CONTINUE ... ' || l_setup_data_rec.REMOVAL_CODE);
214: END IF;
215:
216: EXCEPTION
217: WHEN NO_DATA_FOUND THEN
214: END IF;
215:
216: EXCEPTION
217: WHEN NO_DATA_FOUND THEN
218: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
219: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Removal Code Passed -- ERROR ... ' || l_setup_data_rec.REMOVAL_CODE);
220: END IF;
221: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
222: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_SETUP_DATA');
215:
216: EXCEPTION
217: WHEN NO_DATA_FOUND THEN
218: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
219: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Removal Code Passed -- ERROR ... ' || l_setup_data_rec.REMOVAL_CODE);
220: END IF;
221: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
222: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_SETUP_DATA');
223: FND_MSG_PUB.ADD;
241:
242: -- Initialize security group id
243: l_setup_data_rec.SECURITY_GROUP_ID := null;
244:
245: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
246: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Derived ra_setup_id -- ' || l_setup_data_rec.RA_SETUP_ID);
247: END IF;
248:
249: -- INSERT Setup data in AHL_RA_SETUPS
242: -- Initialize security group id
243: l_setup_data_rec.SECURITY_GROUP_ID := null;
244:
245: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
246: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Derived ra_setup_id -- ' || l_setup_data_rec.RA_SETUP_ID);
247: END IF;
248:
249: -- INSERT Setup data in AHL_RA_SETUPS
250: INSERT INTO AHL_RA_SETUPS(RA_SETUP_ID,SETUP_CODE,STATUS_ID,REMOVAL_CODE,OBJECT_VERSION_NUMBER,SECURITY_GROUP_ID,
288: IF FND_API.To_Boolean (p_commit) THEN
289: COMMIT;
290: END IF;
291:
292: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
293: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_SETUP_DATA -------END-----------');
294: END IF;
295:
296: -- Standard call to get message count and if count is 1, get message
289: COMMIT;
290: END IF;
291:
292: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
293: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_SETUP_DATA -------END-----------');
294: END IF;
295:
296: -- Standard call to get message count and if count is 1, get message
297: FND_MSG_PUB.Count_And_Get
298: ( p_count => x_msg_count,
299: p_data => x_msg_data,
300: p_encoded => fnd_api.g_false);
301:
302: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
303: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
304: END IF;
305:
306: EXCEPTION
299: p_data => x_msg_data,
300: p_encoded => fnd_api.g_false);
301:
302: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
303: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
304: END IF;
305:
306: EXCEPTION
307: WHEN FND_API.G_EXC_ERROR THEN
376: l_obj_version_num AHL_RA_SETUPS.OBJECT_VERSION_NUMBER%TYPE;
377:
378: BEGIN
379:
380: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
381: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
382: END IF;
383:
384: -- Standard start of API savepoint
377:
378: BEGIN
379:
380: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
381: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
382: END IF;
383:
384: -- Standard start of API savepoint
385: SAVEPOINT DELETE_SETUP_DATA_SP;
395: END IF;
396:
397: x_return_status := FND_API.G_RET_STS_SUCCESS;
398:
399: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
400: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_SETUP_DATA -------BEGIN-----------');
401: END IF;
402:
403:
396:
397: x_return_status := FND_API.G_RET_STS_SUCCESS;
398:
399: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
400: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_SETUP_DATA -------BEGIN-----------');
401: END IF;
402:
403:
404: -- Validate input setup data in p_setup_data_rec
407: -- C. Object Version Number should not be NULL
408: IF ((p_setup_data_rec.RA_SETUP_ID IS NULL) OR
409: ((p_setup_data_rec.OPERATION_FLAG IS NULL) OR (p_setup_data_rec.OPERATION_FLAG <> G_DML_DELETE)) OR
410: (p_setup_data_rec.OBJECT_VERSION_NUMBER IS NULL))THEN
411: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
412: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA SETUP ID :' || p_setup_data_rec.RA_SETUP_ID);
413: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OP FLAG :' || p_setup_data_rec.OPERATION_FLAG);
414: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || p_setup_data_rec.OBJECT_VERSION_NUMBER);
415: END IF;
408: IF ((p_setup_data_rec.RA_SETUP_ID IS NULL) OR
409: ((p_setup_data_rec.OPERATION_FLAG IS NULL) OR (p_setup_data_rec.OPERATION_FLAG <> G_DML_DELETE)) OR
410: (p_setup_data_rec.OBJECT_VERSION_NUMBER IS NULL))THEN
411: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
412: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA SETUP ID :' || p_setup_data_rec.RA_SETUP_ID);
413: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OP FLAG :' || p_setup_data_rec.OPERATION_FLAG);
414: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || p_setup_data_rec.OBJECT_VERSION_NUMBER);
415: END IF;
416: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
409: ((p_setup_data_rec.OPERATION_FLAG IS NULL) OR (p_setup_data_rec.OPERATION_FLAG <> G_DML_DELETE)) OR
410: (p_setup_data_rec.OBJECT_VERSION_NUMBER IS NULL))THEN
411: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
412: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA SETUP ID :' || p_setup_data_rec.RA_SETUP_ID);
413: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OP FLAG :' || p_setup_data_rec.OPERATION_FLAG);
414: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || p_setup_data_rec.OBJECT_VERSION_NUMBER);
415: END IF;
416: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
417: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.D_SETUP_DATA');
410: (p_setup_data_rec.OBJECT_VERSION_NUMBER IS NULL))THEN
411: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
412: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA SETUP ID :' || p_setup_data_rec.RA_SETUP_ID);
413: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OP FLAG :' || p_setup_data_rec.OPERATION_FLAG);
414: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || p_setup_data_rec.OBJECT_VERSION_NUMBER);
415: END IF;
416: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
417: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.D_SETUP_DATA');
418: FND_MSG_PUB.ADD;
425: FROM AHL_RA_SETUPS
426: WHERE RA_SETUP_ID = p_setup_data_rec.RA_SETUP_ID
427: FOR UPDATE OF object_version_number NOWAIT;
428:
429: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
430: fnd_log.string(fnd_log.level_statement,l_full_name,'-- OBJECT VERSION NUMBER IN DB : ' || l_obj_version_num);
431: END IF;
432:
433: EXCEPTION
426: WHERE RA_SETUP_ID = p_setup_data_rec.RA_SETUP_ID
427: FOR UPDATE OF object_version_number NOWAIT;
428:
429: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
430: fnd_log.string(fnd_log.level_statement,l_full_name,'-- OBJECT VERSION NUMBER IN DB : ' || l_obj_version_num);
431: END IF;
432:
433: EXCEPTION
434: WHEN NO_DATA_FOUND THEN
431: END IF;
432:
433: EXCEPTION
434: WHEN NO_DATA_FOUND THEN
435: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
436: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || p_setup_data_rec.RA_SETUP_ID);
437: END IF;
438: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
439: FND_MSG_PUB.ADD;
432:
433: EXCEPTION
434: WHEN NO_DATA_FOUND THEN
435: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
436: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || p_setup_data_rec.RA_SETUP_ID);
437: END IF;
438: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
439: FND_MSG_PUB.ADD;
440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
444: -- A. RECORD MUST NOT HAVE CHANGED. i.e. object_version_number should not change.
445: -- Note that currently(30/05/2005) UPDATE feature is NOT AVAILABLE to the user from the Self Service pages for RA setup Data.
446: -- However this might be taken up later.
447: IF p_setup_data_rec.OBJECT_VERSION_NUMBER <> l_obj_version_num THEN
448: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
449: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || p_setup_data_rec.OBJECT_VERSION_NUMBER);
450: END IF;
451: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
452: FND_MSG_PUB.ADD;
445: -- Note that currently(30/05/2005) UPDATE feature is NOT AVAILABLE to the user from the Self Service pages for RA setup Data.
446: -- However this might be taken up later.
447: IF p_setup_data_rec.OBJECT_VERSION_NUMBER <> l_obj_version_num THEN
448: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
449: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || p_setup_data_rec.OBJECT_VERSION_NUMBER);
450: END IF;
451: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
452: FND_MSG_PUB.ADD;
453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
461: IF FND_API.To_Boolean (p_commit) THEN
462: COMMIT;
463: END IF;
464:
465: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
466: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_SETUP_DATA -------END-----------');
467: END IF;
468:
469: -- Standard call to get message count and if count is 1, get message
462: COMMIT;
463: END IF;
464:
465: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
466: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_SETUP_DATA -------END-----------');
467: END IF;
468:
469: -- Standard call to get message count and if count is 1, get message
470: FND_MSG_PUB.Count_And_Get
471: ( p_count => x_msg_count,
472: p_data => x_msg_data,
473: p_encoded => fnd_api.g_false);
474:
475: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
476: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
477: END IF;
478:
479: EXCEPTION
472: p_data => x_msg_data,
473: p_encoded => fnd_api.g_false);
474:
475: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
476: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
477: END IF;
478:
479: EXCEPTION
480: WHEN FND_API.G_EXC_ERROR THEN
549: l_dummy VARCHAR2(1);
550:
551: BEGIN
552:
553: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
554: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
555: END IF;
556:
557: -- Standard start of API savepoint
550:
551: BEGIN
552:
553: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
554: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
555: END IF;
556:
557: -- Standard start of API savepoint
558: SAVEPOINT CREATE_RELIABILITY_DATA_SP;
568: END IF;
569:
570: x_return_status := FND_API.G_RET_STS_SUCCESS;
571:
572: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
573: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_RELIABILITY_DATA -------BEGIN-----------');
574: END IF;
575:
576: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
569:
570: x_return_status := FND_API.G_RET_STS_SUCCESS;
571:
572: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
573: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_RELIABILITY_DATA -------BEGIN-----------');
574: END IF;
575:
576: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
577: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
572: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
573: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_RELIABILITY_DATA -------BEGIN-----------');
574: END IF;
575:
576: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
577: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
578: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.OPERATION_FLAG -- '||l_ra_def_hdr_rec.OPERATION_FLAG);
579: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.MC_HEADER_ID -- '||l_ra_def_hdr_rec.MC_HEADER_ID);
580: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.INVENTORY_ITEM_ID -- '||l_ra_def_hdr_rec.INVENTORY_ITEM_ID);
573: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_RELIABILITY_DATA -------BEGIN-----------');
574: END IF;
575:
576: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
577: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
578: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.OPERATION_FLAG -- '||l_ra_def_hdr_rec.OPERATION_FLAG);
579: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.MC_HEADER_ID -- '||l_ra_def_hdr_rec.MC_HEADER_ID);
580: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.INVENTORY_ITEM_ID -- '||l_ra_def_hdr_rec.INVENTORY_ITEM_ID);
581: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.ITEM_REVISION -- '||l_ra_def_hdr_rec.ITEM_REVISION);
574: END IF;
575:
576: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
577: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
578: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.OPERATION_FLAG -- '||l_ra_def_hdr_rec.OPERATION_FLAG);
579: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.MC_HEADER_ID -- '||l_ra_def_hdr_rec.MC_HEADER_ID);
580: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.INVENTORY_ITEM_ID -- '||l_ra_def_hdr_rec.INVENTORY_ITEM_ID);
581: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.ITEM_REVISION -- '||l_ra_def_hdr_rec.ITEM_REVISION);
582: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.INVENTORY_ORG_ID -- '||l_ra_def_hdr_rec.INVENTORY_ORG_ID);
575:
576: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
577: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
578: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.OPERATION_FLAG -- '||l_ra_def_hdr_rec.OPERATION_FLAG);
579: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.MC_HEADER_ID -- '||l_ra_def_hdr_rec.MC_HEADER_ID);
580: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.INVENTORY_ITEM_ID -- '||l_ra_def_hdr_rec.INVENTORY_ITEM_ID);
581: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.ITEM_REVISION -- '||l_ra_def_hdr_rec.ITEM_REVISION);
582: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.INVENTORY_ORG_ID -- '||l_ra_def_hdr_rec.INVENTORY_ORG_ID);
583: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.RELATIONSHIP_ID -- '||l_ra_def_hdr_rec.RELATIONSHIP_ID);
576: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
577: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
578: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.OPERATION_FLAG -- '||l_ra_def_hdr_rec.OPERATION_FLAG);
579: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.MC_HEADER_ID -- '||l_ra_def_hdr_rec.MC_HEADER_ID);
580: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.INVENTORY_ITEM_ID -- '||l_ra_def_hdr_rec.INVENTORY_ITEM_ID);
581: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.ITEM_REVISION -- '||l_ra_def_hdr_rec.ITEM_REVISION);
582: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.INVENTORY_ORG_ID -- '||l_ra_def_hdr_rec.INVENTORY_ORG_ID);
583: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.RELATIONSHIP_ID -- '||l_ra_def_hdr_rec.RELATIONSHIP_ID);
584: END IF;
577: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
578: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.OPERATION_FLAG -- '||l_ra_def_hdr_rec.OPERATION_FLAG);
579: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.MC_HEADER_ID -- '||l_ra_def_hdr_rec.MC_HEADER_ID);
580: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.INVENTORY_ITEM_ID -- '||l_ra_def_hdr_rec.INVENTORY_ITEM_ID);
581: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.ITEM_REVISION -- '||l_ra_def_hdr_rec.ITEM_REVISION);
582: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.INVENTORY_ORG_ID -- '||l_ra_def_hdr_rec.INVENTORY_ORG_ID);
583: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.RELATIONSHIP_ID -- '||l_ra_def_hdr_rec.RELATIONSHIP_ID);
584: END IF;
585:
578: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.OPERATION_FLAG -- '||l_ra_def_hdr_rec.OPERATION_FLAG);
579: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.MC_HEADER_ID -- '||l_ra_def_hdr_rec.MC_HEADER_ID);
580: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.INVENTORY_ITEM_ID -- '||l_ra_def_hdr_rec.INVENTORY_ITEM_ID);
581: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.ITEM_REVISION -- '||l_ra_def_hdr_rec.ITEM_REVISION);
582: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.INVENTORY_ORG_ID -- '||l_ra_def_hdr_rec.INVENTORY_ORG_ID);
583: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.RELATIONSHIP_ID -- '||l_ra_def_hdr_rec.RELATIONSHIP_ID);
584: END IF;
585:
586: IF ((l_ra_def_hdr_rec.OPERATION_FLAG IS NULL) OR (l_ra_def_hdr_rec.OPERATION_FLAG <> G_DML_CREATE)) THEN
579: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.MC_HEADER_ID -- '||l_ra_def_hdr_rec.MC_HEADER_ID);
580: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.INVENTORY_ITEM_ID -- '||l_ra_def_hdr_rec.INVENTORY_ITEM_ID);
581: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.ITEM_REVISION -- '||l_ra_def_hdr_rec.ITEM_REVISION);
582: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.INVENTORY_ORG_ID -- '||l_ra_def_hdr_rec.INVENTORY_ORG_ID);
583: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.RELATIONSHIP_ID -- '||l_ra_def_hdr_rec.RELATIONSHIP_ID);
584: END IF;
585:
586: IF ((l_ra_def_hdr_rec.OPERATION_FLAG IS NULL) OR (l_ra_def_hdr_rec.OPERATION_FLAG <> G_DML_CREATE)) THEN
587: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
583: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_hdr_rec.RELATIONSHIP_ID -- '||l_ra_def_hdr_rec.RELATIONSHIP_ID);
584: END IF;
585:
586: IF ((l_ra_def_hdr_rec.OPERATION_FLAG IS NULL) OR (l_ra_def_hdr_rec.OPERATION_FLAG <> G_DML_CREATE)) THEN
587: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
588: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - OP Flag-');
589: END IF;
590: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
591: FND_MESSAGE.Set_Token('FIELD',l_ra_def_hdr_rec.OPERATION_FLAG);
584: END IF;
585:
586: IF ((l_ra_def_hdr_rec.OPERATION_FLAG IS NULL) OR (l_ra_def_hdr_rec.OPERATION_FLAG <> G_DML_CREATE)) THEN
587: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
588: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - OP Flag-');
589: END IF;
590: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
591: FND_MESSAGE.Set_Token('FIELD',l_ra_def_hdr_rec.OPERATION_FLAG);
592: FND_MSG_PUB.ADD;
604: (l_ra_def_hdr_rec.INVENTORY_ITEM_ID IS NULL) OR
605: (l_ra_def_hdr_rec.INVENTORY_ORG_ID IS NULL) OR
606: (l_ra_def_hdr_rec.RELATIONSHIP_ID IS NULL)) THEN
607:
608: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
609: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
610: END IF;
611:
612: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
605: (l_ra_def_hdr_rec.INVENTORY_ORG_ID IS NULL) OR
606: (l_ra_def_hdr_rec.RELATIONSHIP_ID IS NULL)) THEN
607:
608: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
609: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
610: END IF;
611:
612: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
613: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_RA_DEF_DATA');
623: WHERE EXISTS( SELECT 'X'
624: FROM ahl_mc_headers_b
625: WHERE mc_header_id = l_ra_def_hdr_rec.MC_HEADER_ID);
626:
627: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
628: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation successful: MR_HEADER_ID --');
629: END IF;
630:
631: EXCEPTION
624: FROM ahl_mc_headers_b
625: WHERE mc_header_id = l_ra_def_hdr_rec.MC_HEADER_ID);
626:
627: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
628: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation successful: MR_HEADER_ID --');
629: END IF;
630:
631: EXCEPTION
632: WHEN NO_DATA_FOUND THEN
629: END IF;
630:
631: EXCEPTION
632: WHEN NO_DATA_FOUND THEN
633: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
634: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation Failed: MR_HEADER_ID --');
635: END IF;
636:
637: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
630:
631: EXCEPTION
632: WHEN NO_DATA_FOUND THEN
633: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
634: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation Failed: MR_HEADER_ID --');
635: END IF;
636:
637: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
638: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_RA_DEF_DATA');
649: FROM ahl_mc_relationships
650: WHERE mc_header_id = l_ra_def_hdr_rec.MC_HEADER_ID
651: AND relationship_id = l_ra_def_hdr_rec.RELATIONSHIP_ID);
652:
653: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
654: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation successful: RELATIONSHIP_ID --');
655: END IF;
656:
657: EXCEPTION
650: WHERE mc_header_id = l_ra_def_hdr_rec.MC_HEADER_ID
651: AND relationship_id = l_ra_def_hdr_rec.RELATIONSHIP_ID);
652:
653: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
654: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation successful: RELATIONSHIP_ID --');
655: END IF;
656:
657: EXCEPTION
658: WHEN NO_DATA_FOUND THEN
655: END IF;
656:
657: EXCEPTION
658: WHEN NO_DATA_FOUND THEN
659: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
660: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation Failed: RELATIONSHIP_ID --');
661: END IF;
662:
663: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
656:
657: EXCEPTION
658: WHEN NO_DATA_FOUND THEN
659: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
660: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation Failed: RELATIONSHIP_ID --');
661: END IF;
662:
663: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
664: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_RA_DEF_DATA');
679: AND ia.inventory_org_id = l_ra_def_hdr_rec.INVENTORY_ORG_ID
680: AND nvl(ia.revision,FND_API.G_MISS_CHAR) = nvl(l_ra_def_hdr_rec.ITEM_REVISION,FND_API.G_MISS_CHAR));
681:
682:
683: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
684: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation successful: Item --');
685: END IF;
686:
687: EXCEPTION
680: AND nvl(ia.revision,FND_API.G_MISS_CHAR) = nvl(l_ra_def_hdr_rec.ITEM_REVISION,FND_API.G_MISS_CHAR));
681:
682:
683: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
684: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation successful: Item --');
685: END IF;
686:
687: EXCEPTION
688: WHEN NO_DATA_FOUND THEN
685: END IF;
686:
687: EXCEPTION
688: WHEN NO_DATA_FOUND THEN
689: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
690: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation Failed: Item --');
691: END IF;
692:
693: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
686:
687: EXCEPTION
688: WHEN NO_DATA_FOUND THEN
689: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
690: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation Failed: Item --');
691: END IF;
692:
693: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
694: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_RA_DEF_DATA');
708: AND inventory_item_id = l_ra_def_hdr_rec.INVENTORY_ITEM_ID
709: AND inventory_org_id = l_ra_def_hdr_rec.INVENTORY_ORG_ID
710: AND nvl(item_revision,FND_API.G_MISS_CHAR) = nvl(l_ra_def_hdr_rec.ITEM_REVISION,FND_API.G_MISS_CHAR));
711:
712: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
713: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation Failed: Uniqnuess Check --');
714: END IF;
715:
716: FND_MESSAGE.Set_Name('AHL','AHL_RA_REL_DEF_EXISTS');
709: AND inventory_org_id = l_ra_def_hdr_rec.INVENTORY_ORG_ID
710: AND nvl(item_revision,FND_API.G_MISS_CHAR) = nvl(l_ra_def_hdr_rec.ITEM_REVISION,FND_API.G_MISS_CHAR));
711:
712: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
713: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation Failed: Uniqnuess Check --');
714: END IF;
715:
716: FND_MESSAGE.Set_Name('AHL','AHL_RA_REL_DEF_EXISTS');
717: FND_MSG_PUB.ADD;
718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
719:
720: EXCEPTION
721: WHEN NO_DATA_FOUND THEN
722: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
723: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation successful: Uniqnuess Check --');
724: END IF;
725: END;
726:
719:
720: EXCEPTION
721: WHEN NO_DATA_FOUND THEN
722: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
723: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation successful: Uniqnuess Check --');
724: END IF;
725: END;
726:
727: -- Initialize RA_DEFINITION_HDR_ID to sequence next val for insert
810: IF FND_API.To_Boolean (p_commit) THEN
811: COMMIT;
812: END IF;
813:
814: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
815: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_RELIABILITY_DATA -------END-----------');
816: END IF;
817:
818: -- Standard call to get message count and if count is 1, get message
811: COMMIT;
812: END IF;
813:
814: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
815: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_RELIABILITY_DATA -------END-----------');
816: END IF;
817:
818: -- Standard call to get message count and if count is 1, get message
819: FND_MSG_PUB.Count_And_Get
820: ( p_count => x_msg_count,
821: p_data => x_msg_data,
822: p_encoded => fnd_api.g_false);
823:
824: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
825: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
826: END IF;
827:
828: EXCEPTION
821: p_data => x_msg_data,
822: p_encoded => fnd_api.g_false);
823:
824: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
825: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
826: END IF;
827:
828: EXCEPTION
829: WHEN FND_API.G_EXC_ERROR THEN
897: l_obj_version_num AHL_RA_DEFINITION_HDR.OBJECT_VERSION_NUMBER%TYPE;
898:
899: BEGIN
900:
901: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
902: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
903: END IF;
904:
905: -- Standard start of API savepoint
898:
899: BEGIN
900:
901: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
902: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
903: END IF;
904:
905: -- Standard start of API savepoint
906: SAVEPOINT DELETE_RELIABILITY_DATA_SP;
916: END IF;
917:
918: x_return_status := FND_API.G_RET_STS_SUCCESS;
919:
920: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
921: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_RELIABILITY_DATA -------BEGIN-----------');
922: END IF;
923:
924: IF ((p_reliability_data_rec.OPERATION_FLAG IS NULL) OR (p_reliability_data_rec.OPERATION_FLAG <> G_DML_DELETE)) THEN
917:
918: x_return_status := FND_API.G_RET_STS_SUCCESS;
919:
920: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
921: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_RELIABILITY_DATA -------BEGIN-----------');
922: END IF;
923:
924: IF ((p_reliability_data_rec.OPERATION_FLAG IS NULL) OR (p_reliability_data_rec.OPERATION_FLAG <> G_DML_DELETE)) THEN
925: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
921: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_RELIABILITY_DATA -------BEGIN-----------');
922: END IF;
923:
924: IF ((p_reliability_data_rec.OPERATION_FLAG IS NULL) OR (p_reliability_data_rec.OPERATION_FLAG <> G_DML_DELETE)) THEN
925: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
926: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
927: END IF;
928: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
929: FND_MESSAGE.Set_Token('FIELD', p_reliability_data_rec.OPERATION_FLAG);
922: END IF;
923:
924: IF ((p_reliability_data_rec.OPERATION_FLAG IS NULL) OR (p_reliability_data_rec.OPERATION_FLAG <> G_DML_DELETE)) THEN
925: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
926: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
927: END IF;
928: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
929: FND_MESSAGE.Set_Token('FIELD', p_reliability_data_rec.OPERATION_FLAG);
930: FND_MSG_PUB.ADD;
935: -- A. p_reliability_data_rec. RA_DEFINITION_HDR_ID Cannot be NULL
936: -- C. Object Version Number should not be NULL
937: IF ((p_reliability_data_rec.RA_DEFINITION_HDR_ID IS NULL) OR
938: (p_reliability_data_rec.OBJECT_VERSION_NUMBER IS NULL)) THEN
939: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
940: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA_DEFINITION_HDR_ID :' || p_reliability_data_rec.RA_DEFINITION_HDR_ID);
941: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || p_reliability_data_rec.OBJECT_VERSION_NUMBER);
942: END IF;
943: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
936: -- C. Object Version Number should not be NULL
937: IF ((p_reliability_data_rec.RA_DEFINITION_HDR_ID IS NULL) OR
938: (p_reliability_data_rec.OBJECT_VERSION_NUMBER IS NULL)) THEN
939: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
940: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA_DEFINITION_HDR_ID :' || p_reliability_data_rec.RA_DEFINITION_HDR_ID);
941: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || p_reliability_data_rec.OBJECT_VERSION_NUMBER);
942: END IF;
943: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
944: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.D_RA_DEF_DATA');
937: IF ((p_reliability_data_rec.RA_DEFINITION_HDR_ID IS NULL) OR
938: (p_reliability_data_rec.OBJECT_VERSION_NUMBER IS NULL)) THEN
939: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
940: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA_DEFINITION_HDR_ID :' || p_reliability_data_rec.RA_DEFINITION_HDR_ID);
941: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || p_reliability_data_rec.OBJECT_VERSION_NUMBER);
942: END IF;
943: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
944: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.D_RA_DEF_DATA');
945: FND_MSG_PUB.ADD;
945: FND_MSG_PUB.ADD;
946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
947: END IF;
948:
949: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
950: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Delete counter-MTBF records for RA_DEFINITION_HDR_ID -- ' || p_reliability_data_rec.RA_DEFINITION_HDR_ID);
951: END IF;
952:
953: -- Check for existence of record and fetch OVN for change record validation
946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
947: END IF;
948:
949: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
950: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Delete counter-MTBF records for RA_DEFINITION_HDR_ID -- ' || p_reliability_data_rec.RA_DEFINITION_HDR_ID);
951: END IF;
952:
953: -- Check for existence of record and fetch OVN for change record validation
954: BEGIN
957: FROM AHL_RA_DEFINITION_HDR
958: WHERE RA_DEFINITION_HDR_ID = p_reliability_data_rec.RA_DEFINITION_HDR_ID
959: FOR UPDATE OF object_version_number NOWAIT;
960:
961: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
962: fnd_log.string(fnd_log.level_statement,l_full_name,'-- OBJECT VERSION NUMBER IN DB : ' || l_obj_version_num);
963: END IF;
964:
965: EXCEPTION
958: WHERE RA_DEFINITION_HDR_ID = p_reliability_data_rec.RA_DEFINITION_HDR_ID
959: FOR UPDATE OF object_version_number NOWAIT;
960:
961: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
962: fnd_log.string(fnd_log.level_statement,l_full_name,'-- OBJECT VERSION NUMBER IN DB : ' || l_obj_version_num);
963: END IF;
964:
965: EXCEPTION
966: WHEN NO_DATA_FOUND THEN
963: END IF;
964:
965: EXCEPTION
966: WHEN NO_DATA_FOUND THEN
967: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
968: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || p_reliability_data_rec.RA_DEFINITION_HDR_ID);
969: END IF;
970: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
971: FND_MSG_PUB.ADD;
964:
965: EXCEPTION
966: WHEN NO_DATA_FOUND THEN
967: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
968: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || p_reliability_data_rec.RA_DEFINITION_HDR_ID);
969: END IF;
970: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
971: FND_MSG_PUB.ADD;
972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
975: -- Validate input data in p_reliability_data_rec
976: -- A. RECORD SHOULD NOT HAVE CHANGED. i.e. object_version_number should not change.
977: -- Child Locking Check is implemented for Setup Data - When Child Is edited/inserted/deleted OVN of Master is bumped up
978: IF l_obj_version_num <> p_reliability_data_rec.OBJECT_VERSION_NUMBER THEN
979: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
980: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || p_reliability_data_rec.OBJECT_VERSION_NUMBER);
981: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN in db : ' || l_obj_version_num);
982: END IF;
983: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
976: -- A. RECORD SHOULD NOT HAVE CHANGED. i.e. object_version_number should not change.
977: -- Child Locking Check is implemented for Setup Data - When Child Is edited/inserted/deleted OVN of Master is bumped up
978: IF l_obj_version_num <> p_reliability_data_rec.OBJECT_VERSION_NUMBER THEN
979: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
980: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || p_reliability_data_rec.OBJECT_VERSION_NUMBER);
981: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN in db : ' || l_obj_version_num);
982: END IF;
983: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
984: FND_MSG_PUB.ADD;
977: -- Child Locking Check is implemented for Setup Data - When Child Is edited/inserted/deleted OVN of Master is bumped up
978: IF l_obj_version_num <> p_reliability_data_rec.OBJECT_VERSION_NUMBER THEN
979: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
980: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || p_reliability_data_rec.OBJECT_VERSION_NUMBER);
981: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN in db : ' || l_obj_version_num);
982: END IF;
983: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
984: FND_MSG_PUB.ADD;
985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
988: --Delete the child records before deleting the master record.
989: DELETE AHL_RA_DEFINITION_DTLS
990: WHERE RA_DEFINITION_HDR_ID = p_reliability_data_rec.RA_DEFINITION_HDR_ID;
991:
992: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
993: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Child Records have been deleted --');
994: END IF;
995:
996: --Delete the master record.
989: DELETE AHL_RA_DEFINITION_DTLS
990: WHERE RA_DEFINITION_HDR_ID = p_reliability_data_rec.RA_DEFINITION_HDR_ID;
991:
992: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
993: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Child Records have been deleted --');
994: END IF;
995:
996: --Delete the master record.
997: DELETE AHL_RA_DEFINITION_HDR
996: --Delete the master record.
997: DELETE AHL_RA_DEFINITION_HDR
998: WHERE RA_DEFINITION_HDR_ID = p_reliability_data_rec.RA_DEFINITION_HDR_ID;
999:
1000: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1001: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master Record has been deleted --');
1002: END IF;
1003:
1004: -- Standard check for p_commit
997: DELETE AHL_RA_DEFINITION_HDR
998: WHERE RA_DEFINITION_HDR_ID = p_reliability_data_rec.RA_DEFINITION_HDR_ID;
999:
1000: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1001: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master Record has been deleted --');
1002: END IF;
1003:
1004: -- Standard check for p_commit
1005: IF FND_API.To_Boolean (p_commit) THEN
1005: IF FND_API.To_Boolean (p_commit) THEN
1006: COMMIT;
1007: END IF;
1008:
1009: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1010: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_RELIABILITY_DATA -------END-----------');
1011: END IF;
1012:
1013: -- Standard call to get message count and if count is 1, get message
1006: COMMIT;
1007: END IF;
1008:
1009: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1010: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_RELIABILITY_DATA -------END-----------');
1011: END IF;
1012:
1013: -- Standard call to get message count and if count is 1, get message
1014: FND_MSG_PUB.Count_And_Get
1015: ( p_count => x_msg_count,
1016: p_data => x_msg_data,
1017: p_encoded => fnd_api.g_false);
1018:
1019: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1020: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
1021: END IF;
1022:
1023: EXCEPTION
1016: p_data => x_msg_data,
1017: p_encoded => fnd_api.g_false);
1018:
1019: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1020: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
1021: END IF;
1022:
1023: EXCEPTION
1024: WHEN FND_API.G_EXC_ERROR THEN
1098: l_dummy VARCHAR2(1);
1099:
1100: BEGIN
1101:
1102: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1103: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
1104: END IF;
1105:
1106: -- Standard start of API savepoint
1099:
1100: BEGIN
1101:
1102: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1103: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
1104: END IF;
1105:
1106: -- Standard start of API savepoint
1107: SAVEPOINT CREATE_MTBF_DATA_SP;
1117: END IF;
1118:
1119: x_return_status := FND_API.G_RET_STS_SUCCESS;
1120:
1121: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1122: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_MTBF_DATA -------BEGIN-----------');
1123: END IF;
1124:
1125: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1118:
1119: x_return_status := FND_API.G_RET_STS_SUCCESS;
1120:
1121: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1122: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_MTBF_DATA -------BEGIN-----------');
1123: END IF;
1124:
1125: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1126: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
1121: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1122: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_MTBF_DATA -------BEGIN-----------');
1123: END IF;
1124:
1125: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1126: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
1127: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID -- '||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1128: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.COUNTER_ID -- '||l_ra_def_dtl_rec.COUNTER_ID);
1129: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.MTBF_VALUE -- '||l_ra_def_dtl_rec.MTBF_VALUE);
1122: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_MTBF_DATA -------BEGIN-----------');
1123: END IF;
1124:
1125: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1126: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
1127: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID -- '||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1128: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.COUNTER_ID -- '||l_ra_def_dtl_rec.COUNTER_ID);
1129: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.MTBF_VALUE -- '||l_ra_def_dtl_rec.MTBF_VALUE);
1130: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.OPERATION_FLAG -- '||l_ra_def_dtl_rec.OPERATION_FLAG);
1123: END IF;
1124:
1125: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1126: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
1127: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID -- '||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1128: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.COUNTER_ID -- '||l_ra_def_dtl_rec.COUNTER_ID);
1129: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.MTBF_VALUE -- '||l_ra_def_dtl_rec.MTBF_VALUE);
1130: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.OPERATION_FLAG -- '||l_ra_def_dtl_rec.OPERATION_FLAG);
1131: END IF;
1124:
1125: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1126: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
1127: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID -- '||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1128: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.COUNTER_ID -- '||l_ra_def_dtl_rec.COUNTER_ID);
1129: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.MTBF_VALUE -- '||l_ra_def_dtl_rec.MTBF_VALUE);
1130: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.OPERATION_FLAG -- '||l_ra_def_dtl_rec.OPERATION_FLAG);
1131: END IF;
1132:
1125: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1126: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
1127: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID -- '||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1128: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.COUNTER_ID -- '||l_ra_def_dtl_rec.COUNTER_ID);
1129: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.MTBF_VALUE -- '||l_ra_def_dtl_rec.MTBF_VALUE);
1130: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.OPERATION_FLAG -- '||l_ra_def_dtl_rec.OPERATION_FLAG);
1131: END IF;
1132:
1133: IF ((l_ra_def_dtl_rec.OPERATION_FLAG IS NULL) OR (l_ra_def_dtl_rec.OPERATION_FLAG <> G_DML_CREATE)) THEN
1126: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
1127: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID -- '||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1128: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.COUNTER_ID -- '||l_ra_def_dtl_rec.COUNTER_ID);
1129: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.MTBF_VALUE -- '||l_ra_def_dtl_rec.MTBF_VALUE);
1130: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.OPERATION_FLAG -- '||l_ra_def_dtl_rec.OPERATION_FLAG);
1131: END IF;
1132:
1133: IF ((l_ra_def_dtl_rec.OPERATION_FLAG IS NULL) OR (l_ra_def_dtl_rec.OPERATION_FLAG <> G_DML_CREATE)) THEN
1134: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1130: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.OPERATION_FLAG -- '||l_ra_def_dtl_rec.OPERATION_FLAG);
1131: END IF;
1132:
1133: IF ((l_ra_def_dtl_rec.OPERATION_FLAG IS NULL) OR (l_ra_def_dtl_rec.OPERATION_FLAG <> G_DML_CREATE)) THEN
1134: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1135: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
1136: END IF;
1137: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
1138: FND_MESSAGE.Set_Token('FIELD',l_ra_def_dtl_rec.OPERATION_FLAG);
1131: END IF;
1132:
1133: IF ((l_ra_def_dtl_rec.OPERATION_FLAG IS NULL) OR (l_ra_def_dtl_rec.OPERATION_FLAG <> G_DML_CREATE)) THEN
1134: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1135: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
1136: END IF;
1137: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
1138: FND_MESSAGE.Set_Token('FIELD',l_ra_def_dtl_rec.OPERATION_FLAG);
1139: FND_MSG_PUB.ADD;
1143: --Mandatory validations for CounterId and RA_DEFINITION_HDR_ID
1144: IF ((l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID IS NULL AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID IS NULL) OR
1145: (l_ra_def_dtl_rec.COUNTER_ID IS NULL) OR
1146: (l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER IS NULL)) THEN
1147: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1148: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID -'||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1149: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - COUNTER_ID -'||l_ra_def_dtl_rec.COUNTER_ID);
1150: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID -'||l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID);
1151: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - OBJECT_VERSION_NUMBER -'||l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER);
1144: IF ((l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID IS NULL AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID IS NULL) OR
1145: (l_ra_def_dtl_rec.COUNTER_ID IS NULL) OR
1146: (l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER IS NULL)) THEN
1147: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1148: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID -'||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1149: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - COUNTER_ID -'||l_ra_def_dtl_rec.COUNTER_ID);
1150: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID -'||l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID);
1151: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - OBJECT_VERSION_NUMBER -'||l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER);
1152: END IF;
1145: (l_ra_def_dtl_rec.COUNTER_ID IS NULL) OR
1146: (l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER IS NULL)) THEN
1147: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1148: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID -'||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1149: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - COUNTER_ID -'||l_ra_def_dtl_rec.COUNTER_ID);
1150: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID -'||l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID);
1151: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - OBJECT_VERSION_NUMBER -'||l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER);
1152: END IF;
1153: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1146: (l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER IS NULL)) THEN
1147: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1148: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID -'||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1149: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - COUNTER_ID -'||l_ra_def_dtl_rec.COUNTER_ID);
1150: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID -'||l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID);
1151: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - OBJECT_VERSION_NUMBER -'||l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER);
1152: END IF;
1153: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1154: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_RA_DEF_DTL_DATA');
1147: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1148: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID -'||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1149: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - COUNTER_ID -'||l_ra_def_dtl_rec.COUNTER_ID);
1150: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID -'||l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID);
1151: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - OBJECT_VERSION_NUMBER -'||l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER);
1152: END IF;
1153: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1154: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_RA_DEF_DTL_DATA');
1155: FND_MSG_PUB.ADD;
1157: END IF;
1158:
1159: IF ((l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID IS NOT NULL AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID IS NOT NULL) AND
1160: (l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID <> l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID)) THEN
1161: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1162: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID MASTER-'||l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID);
1163: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID CHILD-'||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1164: END IF;
1165: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1158:
1159: IF ((l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID IS NOT NULL AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID IS NOT NULL) AND
1160: (l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID <> l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID)) THEN
1161: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1162: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID MASTER-'||l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID);
1163: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID CHILD-'||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1164: END IF;
1165: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1166: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_RA_DEF_DTL_DATA');
1159: IF ((l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID IS NOT NULL AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID IS NOT NULL) AND
1160: (l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID <> l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID)) THEN
1161: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1162: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID MASTER-'||l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID);
1163: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID CHILD-'||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1164: END IF;
1165: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1166: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_RA_DEF_DTL_DATA');
1167: FND_MSG_PUB.ADD;
1167: FND_MSG_PUB.ADD;
1168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1169: END IF;
1170:
1171: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1172: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Default RA_DEFINITION_HDR_ID in child rec from header rec and vice-versa- if passed as null. -- ');
1173: END IF;
1174:
1175: -- Default RA_DEFINITION_HDR_ID in child rec from header rec - if passed as null.
1168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1169: END IF;
1170:
1171: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1172: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Default RA_DEFINITION_HDR_ID in child rec from header rec and vice-versa- if passed as null. -- ');
1173: END IF;
1174:
1175: -- Default RA_DEFINITION_HDR_ID in child rec from header rec - if passed as null.
1176: IF l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID IS NULL THEN
1204: AND trunc(sysdate) < trunc(nvl(csia.end_date_active,sysdate+1));
1205: --Did not add the start date check above as this is setup and we might want to
1206: --define associations for counters that might get activated in future.
1207:
1208: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1209: fnd_log.string(fnd_log.level_statement,l_full_name,'-- COUNTER_ID Validated Successfully--');
1210: END IF;
1211:
1212: EXCEPTION
1205: --Did not add the start date check above as this is setup and we might want to
1206: --define associations for counters that might get activated in future.
1207:
1208: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1209: fnd_log.string(fnd_log.level_statement,l_full_name,'-- COUNTER_ID Validated Successfully--');
1210: END IF;
1211:
1212: EXCEPTION
1213: WHEN NO_DATA_FOUND THEN
1210: END IF;
1211:
1212: EXCEPTION
1213: WHEN NO_DATA_FOUND THEN
1214: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1215: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - COUNTER_ID -' || l_ra_def_dtl_rec.COUNTER_ID);
1216: END IF;
1217: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1218: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_RA_DEF_DTL_DATA');
1211:
1212: EXCEPTION
1213: WHEN NO_DATA_FOUND THEN
1214: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1215: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - COUNTER_ID -' || l_ra_def_dtl_rec.COUNTER_ID);
1216: END IF;
1217: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1218: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_RA_DEF_DTL_DATA');
1219: FND_MSG_PUB.ADD;
1221: END;
1222:
1223: --MTBF should be >= 0 if not null
1224: IF(l_ra_def_dtl_rec.MTBF_VALUE IS NOT NULL and l_ra_def_dtl_rec.MTBF_VALUE < 0) THEN
1225: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1226: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - MTBF_VALUE -'||l_ra_def_dtl_rec.MTBF_VALUE);
1227: END IF;
1228: FND_MESSAGE.Set_Name('AHL','AHL_RA_MTBF_INV');
1229: FND_MESSAGE.Set_Token('COUNTER',l_cou_name);
1222:
1223: --MTBF should be >= 0 if not null
1224: IF(l_ra_def_dtl_rec.MTBF_VALUE IS NOT NULL and l_ra_def_dtl_rec.MTBF_VALUE < 0) THEN
1225: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1226: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - MTBF_VALUE -'||l_ra_def_dtl_rec.MTBF_VALUE);
1227: END IF;
1228: FND_MESSAGE.Set_Name('AHL','AHL_RA_MTBF_INV');
1229: FND_MESSAGE.Set_Token('COUNTER',l_cou_name);
1230: FND_MESSAGE.Set_Token('MTBF', l_ra_def_dtl_rec.MTBF_VALUE);
1241: FROM AHL_RA_DEFINITION_DTLS
1242: WHERE COUNTER_ID = l_ra_def_dtl_rec.COUNTER_ID
1243: AND RA_DEFINITION_HDR_ID = l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1244:
1245: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1246: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Duplicate exists - COUNTER_ID -' || l_ra_def_dtl_rec.COUNTER_ID);
1247: END IF;
1248:
1249: FND_MESSAGE.Set_Name('AHL','AHL_RA_REL_DTL_EXISTS');
1242: WHERE COUNTER_ID = l_ra_def_dtl_rec.COUNTER_ID
1243: AND RA_DEFINITION_HDR_ID = l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1244:
1245: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1246: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Duplicate exists - COUNTER_ID -' || l_ra_def_dtl_rec.COUNTER_ID);
1247: END IF;
1248:
1249: FND_MESSAGE.Set_Name('AHL','AHL_RA_REL_DTL_EXISTS');
1250: FND_MESSAGE.Set_Token('COUNTER',l_cou_name);
1252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1253:
1254: EXCEPTION
1255: WHEN NO_DATA_FOUND THEN
1256: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1257: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Duplicate does not exist-- COUNTER_ID Validated Successfully--');
1258: END IF;
1259: END;
1260:
1253:
1254: EXCEPTION
1255: WHEN NO_DATA_FOUND THEN
1256: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1257: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Duplicate does not exist-- COUNTER_ID Validated Successfully--');
1258: END IF;
1259: END;
1260:
1261: -- Check for existence of record and fetch OVN of Master Rec for change record validation and bump up
1265: FROM AHL_RA_DEFINITION_HDR
1266: WHERE RA_DEFINITION_HDR_ID = l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID
1267: FOR UPDATE OF object_version_number NOWAIT;
1268:
1269: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1270: fnd_log.string(fnd_log.level_statement,l_full_name,'-- OBJECT VERSION NUMBER IN DB OF MASTER: ' || l_m_obj_version_num);
1271: END IF;
1272:
1273: EXCEPTION
1266: WHERE RA_DEFINITION_HDR_ID = l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID
1267: FOR UPDATE OF object_version_number NOWAIT;
1268:
1269: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1270: fnd_log.string(fnd_log.level_statement,l_full_name,'-- OBJECT VERSION NUMBER IN DB OF MASTER: ' || l_m_obj_version_num);
1271: END IF;
1272:
1273: EXCEPTION
1274: WHEN NO_DATA_FOUND THEN
1271: END IF;
1272:
1273: EXCEPTION
1274: WHEN NO_DATA_FOUND THEN
1275: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1276: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1277: END IF;
1278: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
1279: FND_MSG_PUB.ADD;
1272:
1273: EXCEPTION
1274: WHEN NO_DATA_FOUND THEN
1275: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1276: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1277: END IF;
1278: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
1279: FND_MSG_PUB.ADD;
1280: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1283: -- Validate input data in p_x_reliability_data_rec
1284: -- A. RECORD SHOULD NOT HAVE CHANGED. i.e. object_version_number should not change.
1285: -- Child Locking Check is implemented for Setup Data - When Child Is edited/inserted/deleted OVN of Master is bumped up
1286: IF l_m_obj_version_num <> l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER THEN
1287: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1288: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER);
1289: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN in db : ' || l_m_obj_version_num);
1290: END IF;
1291: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1284: -- A. RECORD SHOULD NOT HAVE CHANGED. i.e. object_version_number should not change.
1285: -- Child Locking Check is implemented for Setup Data - When Child Is edited/inserted/deleted OVN of Master is bumped up
1286: IF l_m_obj_version_num <> l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER THEN
1287: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1288: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER);
1289: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN in db : ' || l_m_obj_version_num);
1290: END IF;
1291: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1292: FND_MSG_PUB.ADD;
1285: -- Child Locking Check is implemented for Setup Data - When Child Is edited/inserted/deleted OVN of Master is bumped up
1286: IF l_m_obj_version_num <> l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER THEN
1287: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1288: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER);
1289: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN in db : ' || l_m_obj_version_num);
1290: END IF;
1291: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1292: FND_MSG_PUB.ADD;
1293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1386: IF FND_API.To_Boolean (p_commit) THEN
1387: COMMIT;
1388: END IF;
1389:
1390: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1391: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_MTBF_DATA -------END-----------');
1392: END IF;
1393:
1394: -- Standard call to get message count and if count is 1, get message
1387: COMMIT;
1388: END IF;
1389:
1390: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1391: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_MTBF_DATA -------END-----------');
1392: END IF;
1393:
1394: -- Standard call to get message count and if count is 1, get message
1395: FND_MSG_PUB.Count_And_Get
1396: ( p_count => x_msg_count,
1397: p_data => x_msg_data,
1398: p_encoded => fnd_api.g_false);
1399:
1400: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1401: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','At the start of PLSQL procedure');
1402: END IF;
1403:
1404: EXCEPTION
1397: p_data => x_msg_data,
1398: p_encoded => fnd_api.g_false);
1399:
1400: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1401: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','At the start of PLSQL procedure');
1402: END IF;
1403:
1404: EXCEPTION
1405: WHEN FND_API.G_EXC_ERROR THEN
1488: l_cou_name CSI_COUNTER_TEMPLATE_VL.NAME%TYPE;
1489:
1490: BEGIN
1491:
1492: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1493: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
1494: END IF;
1495:
1496: -- Standard start of API savepoint
1489:
1490: BEGIN
1491:
1492: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1493: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
1494: END IF;
1495:
1496: -- Standard start of API savepoint
1497: SAVEPOINT UPDATE_MTBF_DATA_SP;
1507: END IF;
1508:
1509: x_return_status := FND_API.G_RET_STS_SUCCESS;
1510:
1511: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1512: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- UPDATE_MTBF_DATA -------BEGIN-----------');
1513: END IF;
1514:
1515: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1508:
1509: x_return_status := FND_API.G_RET_STS_SUCCESS;
1510:
1511: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1512: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- UPDATE_MTBF_DATA -------BEGIN-----------');
1513: END IF;
1514:
1515: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1516: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
1511: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1512: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- UPDATE_MTBF_DATA -------BEGIN-----------');
1513: END IF;
1514:
1515: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1516: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
1517: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID -- '||l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID);
1518: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID -- '||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1519: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.COUNTER_ID -- '||l_ra_def_dtl_rec.COUNTER_ID);
1512: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- UPDATE_MTBF_DATA -------BEGIN-----------');
1513: END IF;
1514:
1515: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1516: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
1517: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID -- '||l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID);
1518: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID -- '||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1519: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.COUNTER_ID -- '||l_ra_def_dtl_rec.COUNTER_ID);
1520: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.MTBF_VALUE -- '||l_ra_def_dtl_rec.MTBF_VALUE);
1513: END IF;
1514:
1515: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1516: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
1517: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID -- '||l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID);
1518: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID -- '||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1519: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.COUNTER_ID -- '||l_ra_def_dtl_rec.COUNTER_ID);
1520: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.MTBF_VALUE -- '||l_ra_def_dtl_rec.MTBF_VALUE);
1521: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.OPERATION_FLAG -- '||l_ra_def_dtl_rec.OPERATION_FLAG);
1514:
1515: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1516: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
1517: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID -- '||l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID);
1518: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID -- '||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1519: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.COUNTER_ID -- '||l_ra_def_dtl_rec.COUNTER_ID);
1520: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.MTBF_VALUE -- '||l_ra_def_dtl_rec.MTBF_VALUE);
1521: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.OPERATION_FLAG -- '||l_ra_def_dtl_rec.OPERATION_FLAG);
1522: END IF;
1515: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1516: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
1517: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID -- '||l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID);
1518: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID -- '||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1519: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.COUNTER_ID -- '||l_ra_def_dtl_rec.COUNTER_ID);
1520: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.MTBF_VALUE -- '||l_ra_def_dtl_rec.MTBF_VALUE);
1521: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.OPERATION_FLAG -- '||l_ra_def_dtl_rec.OPERATION_FLAG);
1522: END IF;
1523:
1516: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
1517: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID -- '||l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID);
1518: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID -- '||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1519: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.COUNTER_ID -- '||l_ra_def_dtl_rec.COUNTER_ID);
1520: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.MTBF_VALUE -- '||l_ra_def_dtl_rec.MTBF_VALUE);
1521: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.OPERATION_FLAG -- '||l_ra_def_dtl_rec.OPERATION_FLAG);
1522: END IF;
1523:
1524: IF ((l_ra_def_dtl_rec.OPERATION_FLAG IS NULL) OR (l_ra_def_dtl_rec.OPERATION_FLAG <> G_DML_UPDATE)) THEN
1517: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID -- '||l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID);
1518: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID -- '||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1519: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.COUNTER_ID -- '||l_ra_def_dtl_rec.COUNTER_ID);
1520: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.MTBF_VALUE -- '||l_ra_def_dtl_rec.MTBF_VALUE);
1521: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.OPERATION_FLAG -- '||l_ra_def_dtl_rec.OPERATION_FLAG);
1522: END IF;
1523:
1524: IF ((l_ra_def_dtl_rec.OPERATION_FLAG IS NULL) OR (l_ra_def_dtl_rec.OPERATION_FLAG <> G_DML_UPDATE)) THEN
1525: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1521: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_ra_def_dtl_rec.OPERATION_FLAG -- '||l_ra_def_dtl_rec.OPERATION_FLAG);
1522: END IF;
1523:
1524: IF ((l_ra_def_dtl_rec.OPERATION_FLAG IS NULL) OR (l_ra_def_dtl_rec.OPERATION_FLAG <> G_DML_UPDATE)) THEN
1525: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1526: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
1527: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
1528: FND_MESSAGE.Set_Token('FIELD',l_ra_def_dtl_rec.OPERATION_FLAG);
1529: FND_MSG_PUB.ADD;
1522: END IF;
1523:
1524: IF ((l_ra_def_dtl_rec.OPERATION_FLAG IS NULL) OR (l_ra_def_dtl_rec.OPERATION_FLAG <> G_DML_UPDATE)) THEN
1525: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1526: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
1527: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
1528: FND_MESSAGE.Set_Token('FIELD',l_ra_def_dtl_rec.OPERATION_FLAG);
1529: FND_MSG_PUB.ADD;
1530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1547:
1548: --Check that both the HDR_ID is same in both the master and child records.
1549: IF ((l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID IS NOT NULL AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID IS NOT NULL) AND
1550: (l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID <> l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID)) THEN
1551: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1552: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID MASTER-'||l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID);
1553: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID CHILD-'||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1554: END IF;
1555: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1548: --Check that both the HDR_ID is same in both the master and child records.
1549: IF ((l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID IS NOT NULL AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID IS NOT NULL) AND
1550: (l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID <> l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID)) THEN
1551: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1552: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID MASTER-'||l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID);
1553: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID CHILD-'||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1554: END IF;
1555: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1556: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.U_RA_DEF_DTL_DATA');
1549: IF ((l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID IS NOT NULL AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID IS NOT NULL) AND
1550: (l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID <> l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID)) THEN
1551: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1552: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID MASTER-'||l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID);
1553: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID CHILD-'||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1554: END IF;
1555: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1556: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.U_RA_DEF_DTL_DATA');
1557: FND_MSG_PUB.ADD;
1557: FND_MSG_PUB.ADD;
1558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1559: END IF;
1560:
1561: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1562: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Default RA_DEFINITION_HDR_ID in child rec from header rec and vice-versa- if passed as null. -- ');
1563: END IF;
1564:
1565: -- Default RA_DEFINITION_HDR_ID in child rec from header rec - if passed as null.
1558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1559: END IF;
1560:
1561: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1562: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Default RA_DEFINITION_HDR_ID in child rec from header rec and vice-versa- if passed as null. -- ');
1563: END IF;
1564:
1565: -- Default RA_DEFINITION_HDR_ID in child rec from header rec - if passed as null.
1566: IF l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID IS NULL THEN
1581: END IF;
1582: CLOSE get_mtbf_data_cur;
1583:
1584: IF(l_mtbf_data_old_rec.OBJECT_VERSION_NUMBER <> l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER) THEN
1585: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1586: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER);
1587: END IF;
1588: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1589: FND_MSG_PUB.ADD;
1582: CLOSE get_mtbf_data_cur;
1583:
1584: IF(l_mtbf_data_old_rec.OBJECT_VERSION_NUMBER <> l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER) THEN
1585: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1586: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER);
1587: END IF;
1588: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1589: FND_MSG_PUB.ADD;
1590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1592:
1593: -- Default missing and unchanged attributes.
1594: IF (p_module_type <> 'OAF') THEN
1595:
1596: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1597: fnd_log.string(fnd_log.level_statement, l_full_name, 'default_unchanged_attributes for update operation. Module type is '||p_module_type);
1598: END IF;
1599:
1600: -- Default RA_DEFINITION_HDR_ID
1593: -- Default missing and unchanged attributes.
1594: IF (p_module_type <> 'OAF') THEN
1595:
1596: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1597: fnd_log.string(fnd_log.level_statement, l_full_name, 'default_unchanged_attributes for update operation. Module type is '||p_module_type);
1598: END IF;
1599:
1600: -- Default RA_DEFINITION_HDR_ID
1601: /* RA_DEFINITION_HDR_ID cannot be defaulted to null as it is the forigen key reference hence cannot be passed as G_MISS_NUM */
1617: ELSIF l_ra_def_dtl_rec.MTBF_VALUE = FND_API.G_MISS_NUM THEN
1618: l_ra_def_dtl_rec.MTBF_VALUE := NULL;
1619: END IF;
1620:
1621: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1622: fnd_log.string(fnd_log.level_statement, l_full_name, 'defaulting completed successfully');
1623: END IF;
1624:
1625: END IF; --( p_module_type <> 'OAF' )
1618: l_ra_def_dtl_rec.MTBF_VALUE := NULL;
1619: END IF;
1620:
1621: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1622: fnd_log.string(fnd_log.level_statement, l_full_name, 'defaulting completed successfully');
1623: END IF;
1624:
1625: END IF; --( p_module_type <> 'OAF' )
1626:
1649: AND trunc(sysdate) < trunc(nvl(csia.end_date_active,sysdate+1));
1650: --Did not add the start date check above as this is setup and we might want to
1651: --define associations for counters that might get activated in future.
1652:
1653: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1654: fnd_log.string(fnd_log.level_statement,l_full_name,'-- COUNTER_ID Validated Successfully--');
1655: END IF;
1656:
1657: EXCEPTION
1650: --Did not add the start date check above as this is setup and we might want to
1651: --define associations for counters that might get activated in future.
1652:
1653: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1654: fnd_log.string(fnd_log.level_statement,l_full_name,'-- COUNTER_ID Validated Successfully--');
1655: END IF;
1656:
1657: EXCEPTION
1658: WHEN NO_DATA_FOUND THEN
1655: END IF;
1656:
1657: EXCEPTION
1658: WHEN NO_DATA_FOUND THEN
1659: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1660: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - COUNTER_ID -' || l_ra_def_dtl_rec.COUNTER_ID);
1661: END IF;
1662: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1663: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.U_RA_DEF_DTL_DATA');
1656:
1657: EXCEPTION
1658: WHEN NO_DATA_FOUND THEN
1659: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1660: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - COUNTER_ID -' || l_ra_def_dtl_rec.COUNTER_ID);
1661: END IF;
1662: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1663: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.U_RA_DEF_DTL_DATA');
1664: FND_MSG_PUB.ADD;
1681: FROM AHL_RA_DEFINITION_HDR
1682: WHERE RA_DEFINITION_HDR_ID = l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID
1683: FOR UPDATE OF object_version_number NOWAIT;
1684:
1685: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1686: fnd_log.string(fnd_log.level_statement,l_full_name,'-- OBJECT VERSION NUMBER IN DB OF MASTER: ' || l_m_obj_version_num);
1687: END IF;
1688:
1689: EXCEPTION
1682: WHERE RA_DEFINITION_HDR_ID = l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID
1683: FOR UPDATE OF object_version_number NOWAIT;
1684:
1685: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1686: fnd_log.string(fnd_log.level_statement,l_full_name,'-- OBJECT VERSION NUMBER IN DB OF MASTER: ' || l_m_obj_version_num);
1687: END IF;
1688:
1689: EXCEPTION
1690: WHEN NO_DATA_FOUND THEN
1687: END IF;
1688:
1689: EXCEPTION
1690: WHEN NO_DATA_FOUND THEN
1691: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1692: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master DATA DOES NOT EXISTS -- ERROR ... ' || l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1693: END IF;
1694: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
1695: FND_MSG_PUB.ADD;
1688:
1689: EXCEPTION
1690: WHEN NO_DATA_FOUND THEN
1691: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1692: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master DATA DOES NOT EXISTS -- ERROR ... ' || l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1693: END IF;
1694: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
1695: FND_MSG_PUB.ADD;
1696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1699: -- Validate input data in p_x_reliability_data_rec
1700: -- A. RECORD SHOULD NOT HAVE CHANGED. i.e. object_version_number should not change.
1701: -- Child Locking Check is implemented for Setup Data - When Child Is edited/inserted/deleted OVN of Master is bumped up
1702: IF l_m_obj_version_num <> l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER THEN
1703: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1704: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master Record has changed : OVN passed : ' || l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER);
1705: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master Record has changed : OVN in db : ' || l_m_obj_version_num);
1706: END IF;
1707: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1700: -- A. RECORD SHOULD NOT HAVE CHANGED. i.e. object_version_number should not change.
1701: -- Child Locking Check is implemented for Setup Data - When Child Is edited/inserted/deleted OVN of Master is bumped up
1702: IF l_m_obj_version_num <> l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER THEN
1703: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1704: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master Record has changed : OVN passed : ' || l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER);
1705: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master Record has changed : OVN in db : ' || l_m_obj_version_num);
1706: END IF;
1707: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1708: FND_MSG_PUB.ADD;
1701: -- Child Locking Check is implemented for Setup Data - When Child Is edited/inserted/deleted OVN of Master is bumped up
1702: IF l_m_obj_version_num <> l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER THEN
1703: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1704: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master Record has changed : OVN passed : ' || l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER);
1705: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master Record has changed : OVN in db : ' || l_m_obj_version_num);
1706: END IF;
1707: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1708: FND_MSG_PUB.ADD;
1709: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1766: IF FND_API.To_Boolean (p_commit) THEN
1767: COMMIT;
1768: END IF;
1769:
1770: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1771: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- UPDATE_MTBF_DATA -------END-----------');
1772: END IF;
1773:
1774: -- Standard call to get message count and if count is 1, get message
1767: COMMIT;
1768: END IF;
1769:
1770: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1771: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- UPDATE_MTBF_DATA -------END-----------');
1772: END IF;
1773:
1774: -- Standard call to get message count and if count is 1, get message
1775: FND_MSG_PUB.Count_And_Get
1776: ( p_count => x_msg_count,
1777: p_data => x_msg_data,
1778: p_encoded => fnd_api.g_false);
1779:
1780: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1781: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
1782: END IF;
1783:
1784: EXCEPTION
1777: p_data => x_msg_data,
1778: p_encoded => fnd_api.g_false);
1779:
1780: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1781: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
1782: END IF;
1783:
1784: EXCEPTION
1785: WHEN FND_API.G_EXC_ERROR THEN
1858: l_m_obj_version_num AHL_RA_DEFINITION_HDR.OBJECT_VERSION_NUMBER%TYPE;
1859:
1860: BEGIN
1861:
1862: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1863: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
1864: END IF;
1865:
1866: -- Standard start of API savepoint
1859:
1860: BEGIN
1861:
1862: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1863: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
1864: END IF;
1865:
1866: -- Standard start of API savepoint
1867: SAVEPOINT DELETE_MTBF_DATA_SP;
1877: END IF;
1878:
1879: x_return_status := FND_API.G_RET_STS_SUCCESS;
1880:
1881: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1882: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_MTBF_DATA -------BEGIN-----------');
1883: END IF;
1884:
1885: --Validate the Operation Flag
1878:
1879: x_return_status := FND_API.G_RET_STS_SUCCESS;
1880:
1881: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1882: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_MTBF_DATA -------BEGIN-----------');
1883: END IF;
1884:
1885: --Validate the Operation Flag
1886: IF ((l_ra_def_dtl_rec.OPERATION_FLAG IS NULL) OR (l_ra_def_dtl_rec.OPERATION_FLAG <> G_DML_DELETE)) THEN
1883: END IF;
1884:
1885: --Validate the Operation Flag
1886: IF ((l_ra_def_dtl_rec.OPERATION_FLAG IS NULL) OR (l_ra_def_dtl_rec.OPERATION_FLAG <> G_DML_DELETE)) THEN
1887: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1888: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
1889: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
1890: FND_MESSAGE.Set_Token('FIELD',l_ra_def_dtl_rec.OPERATION_FLAG);
1891: FND_MSG_PUB.ADD;
1884:
1885: --Validate the Operation Flag
1886: IF ((l_ra_def_dtl_rec.OPERATION_FLAG IS NULL) OR (l_ra_def_dtl_rec.OPERATION_FLAG <> G_DML_DELETE)) THEN
1887: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1888: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
1889: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
1890: FND_MESSAGE.Set_Token('FIELD',l_ra_def_dtl_rec.OPERATION_FLAG);
1891: FND_MSG_PUB.ADD;
1892: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1898: -- C. Object Version Number should not be NULL
1899: IF ((l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID IS NULL) OR
1900: (l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER IS NULL) OR
1901: (l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID is null AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID is null))THEN
1902: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1903: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA_DEFINITION_DTL_ID :' || l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID);
1904: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER);
1905: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- Master RA_DEFINITION_HDR_ID :' || l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID);
1906: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- Detail RA_DEFINITION_HDR_ID:' || l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1899: IF ((l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID IS NULL) OR
1900: (l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER IS NULL) OR
1901: (l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID is null AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID is null))THEN
1902: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1903: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA_DEFINITION_DTL_ID :' || l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID);
1904: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER);
1905: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- Master RA_DEFINITION_HDR_ID :' || l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID);
1906: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- Detail RA_DEFINITION_HDR_ID:' || l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1907: END IF;
1900: (l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER IS NULL) OR
1901: (l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID is null AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID is null))THEN
1902: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1903: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA_DEFINITION_DTL_ID :' || l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID);
1904: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER);
1905: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- Master RA_DEFINITION_HDR_ID :' || l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID);
1906: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- Detail RA_DEFINITION_HDR_ID:' || l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1907: END IF;
1908: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1901: (l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID is null AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID is null))THEN
1902: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1903: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA_DEFINITION_DTL_ID :' || l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID);
1904: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER);
1905: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- Master RA_DEFINITION_HDR_ID :' || l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID);
1906: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- Detail RA_DEFINITION_HDR_ID:' || l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1907: END IF;
1908: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1909: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.D_RA_DEF_DET_DATA');
1902: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1903: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA_DEFINITION_DTL_ID :' || l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID);
1904: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER);
1905: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- Master RA_DEFINITION_HDR_ID :' || l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID);
1906: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- Detail RA_DEFINITION_HDR_ID:' || l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1907: END IF;
1908: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1909: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.D_RA_DEF_DET_DATA');
1910: FND_MSG_PUB.ADD;
1913:
1914: --Check that both the HDR_ID is same in both the master and child records.
1915: IF ((l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID is not null AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID IS NOT NULL) AND
1916: (l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID <> l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID)) THEN
1917: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1918: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID MASTER-'||l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID);
1919: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID CHILD-'||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1920: END IF;
1921: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1914: --Check that both the HDR_ID is same in both the master and child records.
1915: IF ((l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID is not null AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID IS NOT NULL) AND
1916: (l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID <> l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID)) THEN
1917: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1918: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID MASTER-'||l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID);
1919: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID CHILD-'||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1920: END IF;
1921: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1922: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.D_RA_DEF_DTL_DATA');
1915: IF ((l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID is not null AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID IS NOT NULL) AND
1916: (l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID <> l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID)) THEN
1917: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1918: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID MASTER-'||l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID);
1919: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID CHILD-'||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1920: END IF;
1921: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1922: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.D_RA_DEF_DTL_DATA');
1923: FND_MSG_PUB.ADD;
1923: FND_MSG_PUB.ADD;
1924: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1925: END IF;
1926:
1927: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1928: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Default RA_DEFINITION_HDR_ID in child rec from header rec and vice-versa- if passed as null. -- ');
1929: END IF;
1930:
1931: -- Default RA_DEFINITION_HDR_ID in child rec from header rec - if passed as null.
1924: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1925: END IF;
1926:
1927: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1928: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Default RA_DEFINITION_HDR_ID in child rec from header rec and vice-versa- if passed as null. -- ');
1929: END IF;
1930:
1931: -- Default RA_DEFINITION_HDR_ID in child rec from header rec - if passed as null.
1932: IF l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID IS NULL THEN
1942: FROM AHL_RA_DEFINITION_DTLS
1943: WHERE RA_DEFINITION_DTL_ID = l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID
1944: FOR UPDATE OF object_version_number NOWAIT;
1945:
1946: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1947: fnd_log.string(fnd_log.level_statement,l_full_name,'-- OBJECT VERSION NUMBER IN DB : ' || l_obj_version_num);
1948: END IF;
1949:
1950: EXCEPTION
1943: WHERE RA_DEFINITION_DTL_ID = l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID
1944: FOR UPDATE OF object_version_number NOWAIT;
1945:
1946: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1947: fnd_log.string(fnd_log.level_statement,l_full_name,'-- OBJECT VERSION NUMBER IN DB : ' || l_obj_version_num);
1948: END IF;
1949:
1950: EXCEPTION
1951: WHEN NO_DATA_FOUND THEN
1948: END IF;
1949:
1950: EXCEPTION
1951: WHEN NO_DATA_FOUND THEN
1952: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1953: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID);
1954: END IF;
1955: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
1956: FND_MSG_PUB.ADD;
1949:
1950: EXCEPTION
1951: WHEN NO_DATA_FOUND THEN
1952: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1953: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID);
1954: END IF;
1955: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
1956: FND_MSG_PUB.ADD;
1957: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1959:
1960: -- Validate input data in l_ra_def_dtl_rec
1961: -- A. RECORD MUST NOT HAVE CHANGED. i.e. object_version_number should not change.
1962: IF l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER <> l_obj_version_num THEN
1963: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1964: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER);
1965: END IF;
1966: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1967: FND_MSG_PUB.ADD;
1960: -- Validate input data in l_ra_def_dtl_rec
1961: -- A. RECORD MUST NOT HAVE CHANGED. i.e. object_version_number should not change.
1962: IF l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER <> l_obj_version_num THEN
1963: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1964: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER);
1965: END IF;
1966: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1967: FND_MSG_PUB.ADD;
1968: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1975: FROM AHL_RA_DEFINITION_HDR
1976: WHERE RA_DEFINITION_HDR_ID = l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID
1977: FOR UPDATE OF object_version_number nowait;
1978:
1979: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1980: fnd_log.string(fnd_log.level_statement,l_full_name,'-- OBJECT VERSION NUMBER IN DB OF MASTER: ' || l_m_obj_version_num);
1981: END IF;
1982:
1983: EXCEPTION
1976: WHERE RA_DEFINITION_HDR_ID = l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID
1977: FOR UPDATE OF object_version_number nowait;
1978:
1979: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1980: fnd_log.string(fnd_log.level_statement,l_full_name,'-- OBJECT VERSION NUMBER IN DB OF MASTER: ' || l_m_obj_version_num);
1981: END IF;
1982:
1983: EXCEPTION
1984: WHEN NO_DATA_FOUND THEN
1981: END IF;
1982:
1983: EXCEPTION
1984: WHEN NO_DATA_FOUND THEN
1985: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1986: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master DATA DOES NOT EXISTS -- ERROR ... ' || l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1987: END IF;
1988: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
1989: FND_MSG_PUB.ADD;
1982:
1983: EXCEPTION
1984: WHEN NO_DATA_FOUND THEN
1985: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1986: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master DATA DOES NOT EXISTS -- ERROR ... ' || l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1987: END IF;
1988: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
1989: FND_MSG_PUB.ADD;
1990: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1993: -- Validate input data in p_x_reliability_data_rec
1994: -- A. RECORD SHOULD NOT HAVE CHANGED. i.e. object_version_number should not change.
1995: -- Child Locking Check is implemented for Setup Data - When Child Is edited/inserted/deleted OVN of Master is bumped up
1996: IF l_m_obj_version_num <> l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER THEN
1997: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1998: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master Record has changed : OVN passed : ' || l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER);
1999: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master Record has changed : OVN in db : ' || l_m_obj_version_num);
2000: END IF;
2001: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1994: -- A. RECORD SHOULD NOT HAVE CHANGED. i.e. object_version_number should not change.
1995: -- Child Locking Check is implemented for Setup Data - When Child Is edited/inserted/deleted OVN of Master is bumped up
1996: IF l_m_obj_version_num <> l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER THEN
1997: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1998: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master Record has changed : OVN passed : ' || l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER);
1999: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master Record has changed : OVN in db : ' || l_m_obj_version_num);
2000: END IF;
2001: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
2002: FND_MSG_PUB.ADD;
1995: -- Child Locking Check is implemented for Setup Data - When Child Is edited/inserted/deleted OVN of Master is bumped up
1996: IF l_m_obj_version_num <> l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER THEN
1997: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1998: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master Record has changed : OVN passed : ' || l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER);
1999: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master Record has changed : OVN in db : ' || l_m_obj_version_num);
2000: END IF;
2001: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
2002: FND_MSG_PUB.ADD;
2003: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2020: IF FND_API.To_Boolean (p_commit) THEN
2021: COMMIT;
2022: END IF;
2023:
2024: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2025: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_MTBF_DATA -------END-----------');
2026: END IF;
2027:
2028: -- Standard call to get message count and if count is 1, get message
2021: COMMIT;
2022: END IF;
2023:
2024: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2025: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_MTBF_DATA -------END-----------');
2026: END IF;
2027:
2028: -- Standard call to get message count and if count is 1, get message
2029: FND_MSG_PUB.Count_And_Get
2030: ( p_count => x_msg_count,
2031: p_data => x_msg_data,
2032: p_encoded => fnd_api.g_false);
2033:
2034: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2035: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
2036: END IF;
2037:
2038: EXCEPTION
2031: p_data => x_msg_data,
2032: p_encoded => fnd_api.g_false);
2033:
2034: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2035: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
2036: END IF;
2037:
2038: EXCEPTION
2039: WHEN FND_API.G_EXC_ERROR THEN
2114: l_overhaul_cou_uom CSI_COUNTER_TEMPLATE_VL.UOM_CODE%TYPE := NULL;
2115:
2116: BEGIN
2117:
2118: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2119: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
2120: END IF;
2121:
2122: -- Standard start of API savepoint
2115:
2116: BEGIN
2117:
2118: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2119: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
2120: END IF;
2121:
2122: -- Standard start of API savepoint
2123: SAVEPOINT CREATE_COUNTER_ASSOC_SP;
2133: END IF;
2134:
2135: x_return_status := FND_API.G_RET_STS_SUCCESS;
2136:
2137: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2138: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_COUNTER_ASSOC -------BEGIN-----------');
2139: END IF;
2140:
2141:
2134:
2135: x_return_status := FND_API.G_RET_STS_SUCCESS;
2136:
2137: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2138: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_COUNTER_ASSOC -------BEGIN-----------');
2139: END IF;
2140:
2141:
2142: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2138: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_COUNTER_ASSOC -------BEGIN-----------');
2139: END IF;
2140:
2141:
2142: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2143: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
2144: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.OPERATION_FLAG -- '||l_counter_assoc_rec.OPERATION_FLAG);
2145: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.SINCE_NEW_COUNTER_ID -- '||l_counter_assoc_rec.SINCE_NEW_COUNTER_ID);
2146: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID -- '||l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID);
2139: END IF;
2140:
2141:
2142: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2143: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
2144: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.OPERATION_FLAG -- '||l_counter_assoc_rec.OPERATION_FLAG);
2145: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.SINCE_NEW_COUNTER_ID -- '||l_counter_assoc_rec.SINCE_NEW_COUNTER_ID);
2146: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID -- '||l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID);
2147: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.DESCRIPTION -- '||l_counter_assoc_rec.DESCRIPTION);
2140:
2141:
2142: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2143: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
2144: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.OPERATION_FLAG -- '||l_counter_assoc_rec.OPERATION_FLAG);
2145: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.SINCE_NEW_COUNTER_ID -- '||l_counter_assoc_rec.SINCE_NEW_COUNTER_ID);
2146: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID -- '||l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID);
2147: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.DESCRIPTION -- '||l_counter_assoc_rec.DESCRIPTION);
2148: END IF;
2141:
2142: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2143: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
2144: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.OPERATION_FLAG -- '||l_counter_assoc_rec.OPERATION_FLAG);
2145: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.SINCE_NEW_COUNTER_ID -- '||l_counter_assoc_rec.SINCE_NEW_COUNTER_ID);
2146: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID -- '||l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID);
2147: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.DESCRIPTION -- '||l_counter_assoc_rec.DESCRIPTION);
2148: END IF;
2149:
2142: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2143: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
2144: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.OPERATION_FLAG -- '||l_counter_assoc_rec.OPERATION_FLAG);
2145: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.SINCE_NEW_COUNTER_ID -- '||l_counter_assoc_rec.SINCE_NEW_COUNTER_ID);
2146: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID -- '||l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID);
2147: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.DESCRIPTION -- '||l_counter_assoc_rec.DESCRIPTION);
2148: END IF;
2149:
2150: IF ((l_counter_assoc_rec.OPERATION_FLAG IS NULL) OR (l_counter_assoc_rec.OPERATION_FLAG <> G_DML_CREATE)) THEN
2143: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Parameters Passed --');
2144: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.OPERATION_FLAG -- '||l_counter_assoc_rec.OPERATION_FLAG);
2145: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.SINCE_NEW_COUNTER_ID -- '||l_counter_assoc_rec.SINCE_NEW_COUNTER_ID);
2146: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID -- '||l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID);
2147: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.DESCRIPTION -- '||l_counter_assoc_rec.DESCRIPTION);
2148: END IF;
2149:
2150: IF ((l_counter_assoc_rec.OPERATION_FLAG IS NULL) OR (l_counter_assoc_rec.OPERATION_FLAG <> G_DML_CREATE)) THEN
2151: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2147: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_counter_assoc_rec.DESCRIPTION -- '||l_counter_assoc_rec.DESCRIPTION);
2148: END IF;
2149:
2150: IF ((l_counter_assoc_rec.OPERATION_FLAG IS NULL) OR (l_counter_assoc_rec.OPERATION_FLAG <> G_DML_CREATE)) THEN
2151: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2152: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
2153: END IF;
2154: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
2155: FND_MESSAGE.Set_Token('FIELD',l_counter_assoc_rec.OPERATION_FLAG);
2148: END IF;
2149:
2150: IF ((l_counter_assoc_rec.OPERATION_FLAG IS NULL) OR (l_counter_assoc_rec.OPERATION_FLAG <> G_DML_CREATE)) THEN
2151: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2152: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
2153: END IF;
2154: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
2155: FND_MESSAGE.Set_Token('FIELD',l_counter_assoc_rec.OPERATION_FLAG);
2156: FND_MSG_PUB.ADD;
2183: AND trunc(sysdate) < trunc(nvl(templates.end_date_active,sysdate+1));
2184: --Did not add the start date check above as this is setup and we might want to
2185: --define associations for counters that might get activated in future.
2186:
2187: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2188: fnd_log.string(fnd_log.level_statement,l_full_name,'-- SINCE_NEW_COUNTER_ID Validated Successfully--');
2189: END IF;
2190:
2191: EXCEPTION
2184: --Did not add the start date check above as this is setup and we might want to
2185: --define associations for counters that might get activated in future.
2186:
2187: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2188: fnd_log.string(fnd_log.level_statement,l_full_name,'-- SINCE_NEW_COUNTER_ID Validated Successfully--');
2189: END IF;
2190:
2191: EXCEPTION
2192: WHEN NO_DATA_FOUND THEN
2189: END IF;
2190:
2191: EXCEPTION
2192: WHEN NO_DATA_FOUND THEN
2193: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2194: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - SINCE_NEW_COUNTER_ID -' || l_counter_assoc_rec.SINCE_NEW_COUNTER_ID);
2195: END IF;
2196: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
2197: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_COU_DATA');
2190:
2191: EXCEPTION
2192: WHEN NO_DATA_FOUND THEN
2193: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2194: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - SINCE_NEW_COUNTER_ID -' || l_counter_assoc_rec.SINCE_NEW_COUNTER_ID);
2195: END IF;
2196: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
2197: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_COU_DATA');
2198: FND_MSG_PUB.ADD;
2217: AND trunc(sysdate) < trunc(nvl(templates.end_date_active,sysdate+1));
2218: --Did not add the start date check above as this is setup and we might want to
2219: --define associations for counters that might get activated in future.
2220:
2221: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2222: fnd_log.string(fnd_log.level_statement,l_full_name,'-- SINCE_OVERHAUL_COUNTER_ID Validated Successfully--');
2223: END IF;
2224:
2225: EXCEPTION
2218: --Did not add the start date check above as this is setup and we might want to
2219: --define associations for counters that might get activated in future.
2220:
2221: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2222: fnd_log.string(fnd_log.level_statement,l_full_name,'-- SINCE_OVERHAUL_COUNTER_ID Validated Successfully--');
2223: END IF;
2224:
2225: EXCEPTION
2226: WHEN NO_DATA_FOUND THEN
2223: END IF;
2224:
2225: EXCEPTION
2226: WHEN NO_DATA_FOUND THEN
2227: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2228: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - SINCE_OVERHAUL_COUNTER_ID -' || l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID);
2229: END IF;
2230: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
2231: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_COU_DATA');
2224:
2225: EXCEPTION
2226: WHEN NO_DATA_FOUND THEN
2227: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2228: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - SINCE_OVERHAUL_COUNTER_ID -' || l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID);
2229: END IF;
2230: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
2231: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_COU_DATA');
2232: FND_MSG_PUB.ADD;
2269: WHERE EXISTS(SELECT 'X'
2270: FROM AHL_RA_CTR_ASSOCIATIONS
2271: WHERE since_overhaul_counter_id = l_counter_assoc_rec.SINCE_NEW_COUNTER_ID);
2272:
2273: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2274: fnd_log.string(fnd_log.level_statement,l_full_name,'Validation Failure: This since new counter is already declared as overhaul - SINCE_NEW_COUNTER_ID -' || l_counter_assoc_rec.SINCE_NEW_COUNTER_ID);
2275: END IF;
2276:
2277: FND_MESSAGE.Set_Name('AHL','AHL_RA_NEW_COU_DEF_OHAUL');
2270: FROM AHL_RA_CTR_ASSOCIATIONS
2271: WHERE since_overhaul_counter_id = l_counter_assoc_rec.SINCE_NEW_COUNTER_ID);
2272:
2273: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2274: fnd_log.string(fnd_log.level_statement,l_full_name,'Validation Failure: This since new counter is already declared as overhaul - SINCE_NEW_COUNTER_ID -' || l_counter_assoc_rec.SINCE_NEW_COUNTER_ID);
2275: END IF;
2276:
2277: FND_MESSAGE.Set_Name('AHL','AHL_RA_NEW_COU_DEF_OHAUL');
2278: FND_MESSAGE.Set_Token('COUNTER', l_new_cou_name);
2280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2281:
2282: EXCEPTION
2283: WHEN NO_DATA_FOUND THEN
2284: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2285: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation Sucess: This since new counter is not declared as an overhaul counter already --' || l_counter_assoc_rec.SINCE_NEW_COUNTER_ID);
2286: END IF;
2287: END;
2288:
2281:
2282: EXCEPTION
2283: WHEN NO_DATA_FOUND THEN
2284: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2285: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation Sucess: This since new counter is not declared as an overhaul counter already --' || l_counter_assoc_rec.SINCE_NEW_COUNTER_ID);
2286: END IF;
2287: END;
2288:
2289: --A since Overhaul Counter should not have been declared previously as a new counter.
2295: WHERE EXISTS(SELECT 'X'
2296: FROM AHL_RA_CTR_ASSOCIATIONS
2297: WHERE since_new_counter_id = l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID);
2298:
2299: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2300: fnd_log.string(fnd_log.level_statement,l_full_name,'--Validation Failure: This since new counter is already declared as overhaul - SINCE_OVERHAUL_COUNTER_ID -' || l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID);
2301: END IF;
2302:
2303: FND_MESSAGE.Set_Name('AHL','AHL_RA_OHAUL_COU_DEF_NEW');
2296: FROM AHL_RA_CTR_ASSOCIATIONS
2297: WHERE since_new_counter_id = l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID);
2298:
2299: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2300: fnd_log.string(fnd_log.level_statement,l_full_name,'--Validation Failure: This since new counter is already declared as overhaul - SINCE_OVERHAUL_COUNTER_ID -' || l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID);
2301: END IF;
2302:
2303: FND_MESSAGE.Set_Name('AHL','AHL_RA_OHAUL_COU_DEF_NEW');
2304: FND_MESSAGE.Set_Token('COUNTER', l_overhaul_cou_name);
2306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2307:
2308: EXCEPTION
2309: WHEN NO_DATA_FOUND THEN
2310: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2311: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation Sucess: This since ohaul counter is not declared as a new counter previously --' || l_counter_assoc_rec.SINCE_NEW_COUNTER_ID);
2312: END IF;
2313: END;
2314: END IF;
2307:
2308: EXCEPTION
2309: WHEN NO_DATA_FOUND THEN
2310: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2311: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation Sucess: This since ohaul counter is not declared as a new counter previously --' || l_counter_assoc_rec.SINCE_NEW_COUNTER_ID);
2312: END IF;
2313: END;
2314: END IF;
2315:
2323: FROM AHL_RA_CTR_ASSOCIATIONS counters
2324: WHERE SINCE_NEW_COUNTER_ID = l_counter_assoc_rec.SINCE_NEW_COUNTER_ID
2325: AND nvl(SINCE_OVERHAUL_COUNTER_ID,-1) = nvl(l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID,-1));
2326:
2327: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2328: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation Failuure: Duplicate Counter Association exists-- SINCE_NEW_COUNTER_NAME - '|| l_new_cou_name ||'- SINCE_OVERHAUL_COUNTER_NAME -' || l_overhaul_cou_name);
2329: END IF;
2330:
2331: FND_MESSAGE.Set_Name('AHL','AHL_RA_DUP_COU_ASSOC');
2324: WHERE SINCE_NEW_COUNTER_ID = l_counter_assoc_rec.SINCE_NEW_COUNTER_ID
2325: AND nvl(SINCE_OVERHAUL_COUNTER_ID,-1) = nvl(l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID,-1));
2326:
2327: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2328: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation Failuure: Duplicate Counter Association exists-- SINCE_NEW_COUNTER_NAME - '|| l_new_cou_name ||'- SINCE_OVERHAUL_COUNTER_NAME -' || l_overhaul_cou_name);
2329: END IF;
2330:
2331: FND_MESSAGE.Set_Name('AHL','AHL_RA_DUP_COU_ASSOC');
2332: FND_MESSAGE.Set_Token('NEW_COUNTER',l_new_cou_name );
2335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2336:
2337: EXCEPTION
2338: WHEN NO_DATA_FOUND THEN
2339: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2340: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation Successful: No Duplicate Counter Associations--');
2341: END IF;
2342: END;
2343:
2336:
2337: EXCEPTION
2338: WHEN NO_DATA_FOUND THEN
2339: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2340: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation Successful: No Duplicate Counter Associations--');
2341: END IF;
2342: END;
2343:
2344: -- Initialize RA_COUNTER_ASSOCIATION_ID to sequence next val for insert
2427: COMMIT;
2428: END IF;
2429:
2430:
2431: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2432: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_COUNTER_ASSOC --END--');
2433: END IF;
2434:
2435:
2428: END IF;
2429:
2430:
2431: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2432: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_COUNTER_ASSOC --END--');
2433: END IF;
2434:
2435:
2436: -- Standard call to get message count and if count is 1, get message
2438: ( p_count => x_msg_count,
2439: p_data => x_msg_data,
2440: p_encoded => fnd_api.g_false);
2441:
2442: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2443: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
2444: END IF;
2445:
2446: EXCEPTION
2439: p_data => x_msg_data,
2440: p_encoded => fnd_api.g_false);
2441:
2442: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2443: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
2444: END IF;
2445:
2446: EXCEPTION
2447: WHEN FND_API.G_EXC_ERROR THEN
2515: l_obj_version_num AHL_RA_CTR_ASSOCIATIONS.OBJECT_VERSION_NUMBER%TYPE;
2516:
2517: BEGIN
2518:
2519: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2520: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
2521: END IF;
2522:
2523: -- Standard start of API savepoint
2516:
2517: BEGIN
2518:
2519: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2520: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
2521: END IF;
2522:
2523: -- Standard start of API savepoint
2524: SAVEPOINT DELETE_COUNTER_ASSOC_SP;
2534: END IF;
2535:
2536: x_return_status := FND_API.G_RET_STS_SUCCESS;
2537:
2538: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2539: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_COUNTER_ASSOC -------BEGIN-----------');
2540: END IF;
2541:
2542: IF ((p_counter_assoc_rec.OPERATION_FLAG IS NULL) OR (p_counter_assoc_rec.OPERATION_FLAG <> G_DML_DELETE)) THEN
2535:
2536: x_return_status := FND_API.G_RET_STS_SUCCESS;
2537:
2538: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2539: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_COUNTER_ASSOC -------BEGIN-----------');
2540: END IF;
2541:
2542: IF ((p_counter_assoc_rec.OPERATION_FLAG IS NULL) OR (p_counter_assoc_rec.OPERATION_FLAG <> G_DML_DELETE)) THEN
2543: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2539: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_COUNTER_ASSOC -------BEGIN-----------');
2540: END IF;
2541:
2542: IF ((p_counter_assoc_rec.OPERATION_FLAG IS NULL) OR (p_counter_assoc_rec.OPERATION_FLAG <> G_DML_DELETE)) THEN
2543: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2544: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
2545: END IF;
2546: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
2547: FND_MESSAGE.Set_Token('FIELD',p_counter_assoc_rec.OPERATION_FLAG);
2540: END IF;
2541:
2542: IF ((p_counter_assoc_rec.OPERATION_FLAG IS NULL) OR (p_counter_assoc_rec.OPERATION_FLAG <> G_DML_DELETE)) THEN
2543: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2544: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
2545: END IF;
2546: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
2547: FND_MESSAGE.Set_Token('FIELD',p_counter_assoc_rec.OPERATION_FLAG);
2548: FND_MSG_PUB.ADD;
2553: -- A. p_counter_assoc_rec.RA_COUNTER_ASSOCIATION_ID Cannot be NULL
2554: -- C. Object Version Number should not be NULL
2555: IF ((p_counter_assoc_rec.RA_COUNTER_ASSOCIATION_ID IS NULL) OR
2556: (p_counter_assoc_rec.OBJECT_VERSION_NUMBER IS NULL))THEN
2557: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2558: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA_COUNTER_ASSOCIATION_ID :' || p_counter_assoc_rec.RA_COUNTER_ASSOCIATION_ID);
2559: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || p_counter_assoc_rec.OBJECT_VERSION_NUMBER);
2560: END IF;
2561: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
2554: -- C. Object Version Number should not be NULL
2555: IF ((p_counter_assoc_rec.RA_COUNTER_ASSOCIATION_ID IS NULL) OR
2556: (p_counter_assoc_rec.OBJECT_VERSION_NUMBER IS NULL))THEN
2557: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2558: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA_COUNTER_ASSOCIATION_ID :' || p_counter_assoc_rec.RA_COUNTER_ASSOCIATION_ID);
2559: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || p_counter_assoc_rec.OBJECT_VERSION_NUMBER);
2560: END IF;
2561: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
2562: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.D_COU_DATA');
2555: IF ((p_counter_assoc_rec.RA_COUNTER_ASSOCIATION_ID IS NULL) OR
2556: (p_counter_assoc_rec.OBJECT_VERSION_NUMBER IS NULL))THEN
2557: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2558: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA_COUNTER_ASSOCIATION_ID :' || p_counter_assoc_rec.RA_COUNTER_ASSOCIATION_ID);
2559: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || p_counter_assoc_rec.OBJECT_VERSION_NUMBER);
2560: END IF;
2561: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
2562: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.D_COU_DATA');
2563: FND_MSG_PUB.ADD;
2571: FROM AHL_RA_CTR_ASSOCIATIONS
2572: WHERE RA_COUNTER_ASSOCIATION_ID = p_counter_assoc_rec.RA_COUNTER_ASSOCIATION_ID
2573: FOR UPDATE OF object_version_number NOWAIT;
2574:
2575: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2576: fnd_log.string(fnd_log.level_statement,l_full_name,'-- OBJECT VERSION NUMBER IN DB : ' || l_obj_version_num);
2577: END IF;
2578:
2579: EXCEPTION
2572: WHERE RA_COUNTER_ASSOCIATION_ID = p_counter_assoc_rec.RA_COUNTER_ASSOCIATION_ID
2573: FOR UPDATE OF object_version_number NOWAIT;
2574:
2575: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2576: fnd_log.string(fnd_log.level_statement,l_full_name,'-- OBJECT VERSION NUMBER IN DB : ' || l_obj_version_num);
2577: END IF;
2578:
2579: EXCEPTION
2580: WHEN NO_DATA_FOUND THEN
2577: END IF;
2578:
2579: EXCEPTION
2580: WHEN NO_DATA_FOUND THEN
2581: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2582: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || p_counter_assoc_rec.RA_COUNTER_ASSOCIATION_ID);
2583: END IF;
2584: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
2585: FND_MSG_PUB.ADD;
2578:
2579: EXCEPTION
2580: WHEN NO_DATA_FOUND THEN
2581: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2582: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || p_counter_assoc_rec.RA_COUNTER_ASSOCIATION_ID);
2583: END IF;
2584: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
2585: FND_MSG_PUB.ADD;
2586: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2588:
2589: -- Validate input data in p_counter_assoc_rec
2590: -- A. RECORD MUST NOT HAVE CHANGED. i.e. object_version_number should not change.
2591: IF p_counter_assoc_rec.OBJECT_VERSION_NUMBER <> l_obj_version_num THEN
2592: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2593: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || p_counter_assoc_rec.OBJECT_VERSION_NUMBER);
2594: END IF;
2595: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
2596: FND_MSG_PUB.ADD;
2589: -- Validate input data in p_counter_assoc_rec
2590: -- A. RECORD MUST NOT HAVE CHANGED. i.e. object_version_number should not change.
2591: IF p_counter_assoc_rec.OBJECT_VERSION_NUMBER <> l_obj_version_num THEN
2592: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2593: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || p_counter_assoc_rec.OBJECT_VERSION_NUMBER);
2594: END IF;
2595: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
2596: FND_MSG_PUB.ADD;
2597: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2605: IF FND_API.To_Boolean (p_commit) THEN
2606: COMMIT;
2607: END IF;
2608:
2609: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2610: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_COUNTER_ASSOC -------END-----------');
2611: END IF;
2612:
2613: -- Standard call to get message count and if count is 1, get message
2606: COMMIT;
2607: END IF;
2608:
2609: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2610: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_COUNTER_ASSOC -------END-----------');
2611: END IF;
2612:
2613: -- Standard call to get message count and if count is 1, get message
2614: FND_MSG_PUB.Count_And_Get
2615: ( p_count => x_msg_count,
2616: p_data => x_msg_data,
2617: p_encoded => fnd_api.g_false);
2618:
2619: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2620: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','At the start of PLSQL procedure');
2621: END IF;
2622:
2623: EXCEPTION
2616: p_data => x_msg_data,
2617: p_encoded => fnd_api.g_false);
2618:
2619: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2620: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','At the start of PLSQL procedure');
2621: END IF;
2622:
2623: EXCEPTION
2624: WHEN FND_API.G_EXC_ERROR THEN
2693: l_dummy VARCHAR2(1);
2694:
2695: BEGIN
2696:
2697: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2698: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
2699: END IF;
2700:
2701: -- Standard start of API savepoint
2694:
2695: BEGIN
2696:
2697: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2698: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
2699: END IF;
2700:
2701: -- Standard start of API savepoint
2702: SAVEPOINT CREATE_FCT_ASSOC_DATA_SP;
2712: END IF;
2713:
2714: x_return_status := FND_API.G_RET_STS_SUCCESS;
2715:
2716: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2717: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_FCT_ASSOC_DATA -------BEGIN-----------');
2718: END IF;
2719:
2720: -- Validate input fct association data in p_x_fct_assoc_rec
2713:
2714: x_return_status := FND_API.G_RET_STS_SUCCESS;
2715:
2716: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2717: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_FCT_ASSOC_DATA -------BEGIN-----------');
2718: END IF;
2719:
2720: -- Validate input fct association data in p_x_fct_assoc_rec
2721: -- Note :: l_fct_assoc_rec has been defaulted to p_x_fct_assoc_rec in declaration
2731: (l_fct_assoc_rec.ORGANIZATION_ID IS NULL) OR
2732: (l_fct_assoc_rec.FORECAST_DESIGNATOR IS NULL) OR
2733: ((l_fct_assoc_rec.OPERATION_FLAG IS NULL) OR (l_fct_assoc_rec.OPERATION_FLAG <> G_DML_CREATE))) THEN
2734:
2735: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2736: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
2737: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR ---- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
2738: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID -------- '||l_fct_assoc_rec.ORGANIZATION_ID);
2739: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ASSOCIATION_TYPE_CODE -- '||l_fct_assoc_rec.ASSOCIATION_TYPE_CODE);
2732: (l_fct_assoc_rec.FORECAST_DESIGNATOR IS NULL) OR
2733: ((l_fct_assoc_rec.OPERATION_FLAG IS NULL) OR (l_fct_assoc_rec.OPERATION_FLAG <> G_DML_CREATE))) THEN
2734:
2735: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2736: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
2737: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR ---- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
2738: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID -------- '||l_fct_assoc_rec.ORGANIZATION_ID);
2739: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ASSOCIATION_TYPE_CODE -- '||l_fct_assoc_rec.ASSOCIATION_TYPE_CODE);
2740: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.OPERATION_FLAG --------- '||l_fct_assoc_rec.OPERATION_FLAG);
2733: ((l_fct_assoc_rec.OPERATION_FLAG IS NULL) OR (l_fct_assoc_rec.OPERATION_FLAG <> G_DML_CREATE))) THEN
2734:
2735: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2736: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
2737: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR ---- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
2738: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID -------- '||l_fct_assoc_rec.ORGANIZATION_ID);
2739: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ASSOCIATION_TYPE_CODE -- '||l_fct_assoc_rec.ASSOCIATION_TYPE_CODE);
2740: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.OPERATION_FLAG --------- '||l_fct_assoc_rec.OPERATION_FLAG);
2741: END IF;
2734:
2735: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2736: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
2737: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR ---- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
2738: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID -------- '||l_fct_assoc_rec.ORGANIZATION_ID);
2739: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ASSOCIATION_TYPE_CODE -- '||l_fct_assoc_rec.ASSOCIATION_TYPE_CODE);
2740: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.OPERATION_FLAG --------- '||l_fct_assoc_rec.OPERATION_FLAG);
2741: END IF;
2742:
2735: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2736: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
2737: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR ---- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
2738: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID -------- '||l_fct_assoc_rec.ORGANIZATION_ID);
2739: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ASSOCIATION_TYPE_CODE -- '||l_fct_assoc_rec.ASSOCIATION_TYPE_CODE);
2740: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.OPERATION_FLAG --------- '||l_fct_assoc_rec.OPERATION_FLAG);
2741: END IF;
2742:
2743: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
2736: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
2737: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR ---- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
2738: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID -------- '||l_fct_assoc_rec.ORGANIZATION_ID);
2739: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ASSOCIATION_TYPE_CODE -- '||l_fct_assoc_rec.ASSOCIATION_TYPE_CODE);
2740: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.OPERATION_FLAG --------- '||l_fct_assoc_rec.OPERATION_FLAG);
2741: END IF;
2742:
2743: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
2744: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_FCT_DATA');
2748: END IF;
2749:
2750: IF (l_fct_assoc_rec.ASSOCIATION_TYPE_CODE = 'ASSOC_HISTORICAL' AND (l_fct_assoc_rec.PROBABILITY_FROM IS NULL OR
2751: l_fct_assoc_rec.PROBABILITY_TO IS NULL)) THEN
2752: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2753: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
2754: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
2755: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
2756: END IF;
2749:
2750: IF (l_fct_assoc_rec.ASSOCIATION_TYPE_CODE = 'ASSOC_HISTORICAL' AND (l_fct_assoc_rec.PROBABILITY_FROM IS NULL OR
2751: l_fct_assoc_rec.PROBABILITY_TO IS NULL)) THEN
2752: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2753: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
2754: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
2755: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
2756: END IF;
2757:
2750: IF (l_fct_assoc_rec.ASSOCIATION_TYPE_CODE = 'ASSOC_HISTORICAL' AND (l_fct_assoc_rec.PROBABILITY_FROM IS NULL OR
2751: l_fct_assoc_rec.PROBABILITY_TO IS NULL)) THEN
2752: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2753: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
2754: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
2755: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
2756: END IF;
2757:
2758: FND_MESSAGE.Set_Name('AHL','AHL_RA_HIST_PROB_NULL');
2751: l_fct_assoc_rec.PROBABILITY_TO IS NULL)) THEN
2752: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2753: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
2754: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
2755: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
2756: END IF;
2757:
2758: FND_MESSAGE.Set_Name('AHL','AHL_RA_HIST_PROB_NULL');
2759: FND_MSG_PUB.ADD;
2774: FROM MTL_PARAMETERS MP
2775: WHERE MP.ORGANIZATION_ID = l_fct_assoc_rec.ORGANIZATION_ID
2776: AND MP.EAM_ENABLED_FLAG='Y');
2777:
2778: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2779: fnd_log.string(fnd_log.level_statement,l_full_name,'-- ORGANIZATION_ID Validated Successfully--');
2780: END IF;
2781:
2782:
2775: WHERE MP.ORGANIZATION_ID = l_fct_assoc_rec.ORGANIZATION_ID
2776: AND MP.EAM_ENABLED_FLAG='Y');
2777:
2778: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2779: fnd_log.string(fnd_log.level_statement,l_full_name,'-- ORGANIZATION_ID Validated Successfully--');
2780: END IF;
2781:
2782:
2783: EXCEPTION
2781:
2782:
2783: EXCEPTION
2784: WHEN NO_DATA_FOUND THEN
2785: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2786: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - ORGANIZATION_ID -' || l_fct_assoc_rec.ORGANIZATION_ID);
2787: END IF;
2788: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
2789: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_FCT_DATA');
2782:
2783: EXCEPTION
2784: WHEN NO_DATA_FOUND THEN
2785: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2786: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - ORGANIZATION_ID -' || l_fct_assoc_rec.ORGANIZATION_ID);
2787: END IF;
2788: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
2789: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_FCT_DATA');
2790: FND_MSG_PUB.ADD;
2801: WHERE MRP.FORECAST_DESIGNATOR = l_fct_assoc_rec.FORECAST_DESIGNATOR
2802: AND MRP.ORGANIZATION_ID = l_fct_assoc_rec.ORGANIZATION_ID
2803: AND MRP.FORECAST_SET IS NOT NULL);
2804:
2805: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2806: fnd_log.string(fnd_log.level_statement,l_full_name,'-- FORECAST_DESIGNATOR Validated Successfully--');
2807: END IF;
2808:
2809:
2802: AND MRP.ORGANIZATION_ID = l_fct_assoc_rec.ORGANIZATION_ID
2803: AND MRP.FORECAST_SET IS NOT NULL);
2804:
2805: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2806: fnd_log.string(fnd_log.level_statement,l_full_name,'-- FORECAST_DESIGNATOR Validated Successfully--');
2807: END IF;
2808:
2809:
2810: EXCEPTION
2808:
2809:
2810: EXCEPTION
2811: WHEN NO_DATA_FOUND THEN
2812: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2813: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - FORECAST_DESIGNATOR -' || l_fct_assoc_rec.FORECAST_DESIGNATOR);
2814: END IF;
2815: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
2816: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_FCT_DATA');
2809:
2810: EXCEPTION
2811: WHEN NO_DATA_FOUND THEN
2812: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2813: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - FORECAST_DESIGNATOR -' || l_fct_assoc_rec.FORECAST_DESIGNATOR);
2814: END IF;
2815: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
2816: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_FCT_DATA');
2817: FND_MSG_PUB.ADD;
2831: l_fct_assoc_rec.PROBABILITY_FROM > 100 OR
2832: l_fct_assoc_rec.PROBABILITY_TO < 0 OR
2833: l_fct_assoc_rec.PROBABILITY_TO > 100) THEN
2834:
2835: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2836: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - less than zero or greater than 100 -');
2837: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
2838: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
2839: END IF;
2832: l_fct_assoc_rec.PROBABILITY_TO < 0 OR
2833: l_fct_assoc_rec.PROBABILITY_TO > 100) THEN
2834:
2835: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2836: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - less than zero or greater than 100 -');
2837: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
2838: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
2839: END IF;
2840:
2833: l_fct_assoc_rec.PROBABILITY_TO > 100) THEN
2834:
2835: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2836: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - less than zero or greater than 100 -');
2837: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
2838: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
2839: END IF;
2840:
2841: FND_MESSAGE.Set_Name('AHL','AHL_RA_PROB_VALID_RANGE');
2834:
2835: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2836: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - less than zero or greater than 100 -');
2837: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
2838: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
2839: END IF;
2840:
2841: FND_MESSAGE.Set_Name('AHL','AHL_RA_PROB_VALID_RANGE');
2842: FND_MSG_PUB.ADD;
2845:
2846: -- 2. PROBABILITY_TO should be >= PROBABILITY_FROM
2847: IF (NOT(l_fct_assoc_rec.PROBABILITY_FROM <= l_fct_assoc_rec.PROBABILITY_TO)) THEN
2848:
2849: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2850: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - PROBABILITY_TO should be >= PROBABILITY_FROM -');
2851: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
2852: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
2853: END IF;
2846: -- 2. PROBABILITY_TO should be >= PROBABILITY_FROM
2847: IF (NOT(l_fct_assoc_rec.PROBABILITY_FROM <= l_fct_assoc_rec.PROBABILITY_TO)) THEN
2848:
2849: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2850: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - PROBABILITY_TO should be >= PROBABILITY_FROM -');
2851: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
2852: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
2853: END IF;
2854:
2847: IF (NOT(l_fct_assoc_rec.PROBABILITY_FROM <= l_fct_assoc_rec.PROBABILITY_TO)) THEN
2848:
2849: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2850: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - PROBABILITY_TO should be >= PROBABILITY_FROM -');
2851: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
2852: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
2853: END IF;
2854:
2855: FND_MESSAGE.Set_Name('AHL','AHL_RA_PROB_RELATIONSHIP');
2848:
2849: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2850: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - PROBABILITY_TO should be >= PROBABILITY_FROM -');
2851: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
2852: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
2853: END IF;
2854:
2855: FND_MESSAGE.Set_Name('AHL','AHL_RA_PROB_RELATIONSHIP');
2856: FND_MSG_PUB.ADD;
2875: (PROBABILITY_FROM = 100 AND l_fct_assoc_rec.PROBABILITY_TO = 100) OR -- if <> to 100 is defined .. then 100 to 100 is not allowed
2876: (PROBABILITY_TO = 100 AND l_fct_assoc_rec.PROBABILITY_FROM = 100))); -- if 100 to 100 is defined .. then <> to 100 is not allowed
2877:
2878:
2879: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2880: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - Probability Overlap -');
2881: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
2882: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
2883: END IF;
2876: (PROBABILITY_TO = 100 AND l_fct_assoc_rec.PROBABILITY_FROM = 100))); -- if 100 to 100 is defined .. then <> to 100 is not allowed
2877:
2878:
2879: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2880: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - Probability Overlap -');
2881: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
2882: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
2883: END IF;
2884:
2877:
2878:
2879: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2880: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - Probability Overlap -');
2881: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
2882: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
2883: END IF;
2884:
2885: FND_MESSAGE.Set_Name('AHL','AHL_RA_PROB_OVERLAP');
2878:
2879: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2880: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - Probability Overlap -');
2881: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
2882: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
2883: END IF;
2884:
2885: FND_MESSAGE.Set_Name('AHL','AHL_RA_PROB_OVERLAP');
2886: FND_MSG_PUB.ADD;
2887: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2888:
2889: EXCEPTION
2890: WHEN NO_DATA_FOUND THEN
2891: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2892: fnd_log.string(fnd_log.level_statement,l_full_name,'- HISTORICAL - No OverLap -- SUCCESS -- ');
2893: END IF;
2894: END;
2895:
2888:
2889: EXCEPTION
2890: WHEN NO_DATA_FOUND THEN
2891: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2892: fnd_log.string(fnd_log.level_statement,l_full_name,'- HISTORICAL - No OverLap -- SUCCESS -- ');
2893: END IF;
2894: END;
2895:
2896: ELSIF (l_fct_assoc_rec.ASSOCIATION_TYPE_CODE = 'ASSOC_MTBF') THEN
2905: FROM AHL_RA_FCT_ASSOCIATIONS
2906: WHERE ORGANIZATION_ID = l_fct_assoc_rec.ORGANIZATION_ID
2907: AND ASSOCIATION_TYPE_CODE = l_fct_assoc_rec.ASSOCIATION_TYPE_CODE);
2908:
2909: IF (fnd_log.leVEL_STATEMENT >= fnd_log.g_current_runtime_level)THEN
2910: fnd_log.stRING(FND_LOG.Level_statement,l_full_name,'-- Invalid Param Passed - DUPLICATE FOUNT - MTBF -');
2911: fnd_log.stRING(FND_LOG.Level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID ------- '||l_fct_assoc_rec.ORGANIZATION_ID);
2912: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR --------- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
2913: END IF;
2906: WHERE ORGANIZATION_ID = l_fct_assoc_rec.ORGANIZATION_ID
2907: AND ASSOCIATION_TYPE_CODE = l_fct_assoc_rec.ASSOCIATION_TYPE_CODE);
2908:
2909: IF (fnd_log.leVEL_STATEMENT >= fnd_log.g_current_runtime_level)THEN
2910: fnd_log.stRING(FND_LOG.Level_statement,l_full_name,'-- Invalid Param Passed - DUPLICATE FOUNT - MTBF -');
2911: fnd_log.stRING(FND_LOG.Level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID ------- '||l_fct_assoc_rec.ORGANIZATION_ID);
2912: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR --------- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
2913: END IF;
2914:
2907: AND ASSOCIATION_TYPE_CODE = l_fct_assoc_rec.ASSOCIATION_TYPE_CODE);
2908:
2909: IF (fnd_log.leVEL_STATEMENT >= fnd_log.g_current_runtime_level)THEN
2910: fnd_log.stRING(FND_LOG.Level_statement,l_full_name,'-- Invalid Param Passed - DUPLICATE FOUNT - MTBF -');
2911: fnd_log.stRING(FND_LOG.Level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID ------- '||l_fct_assoc_rec.ORGANIZATION_ID);
2912: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR --------- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
2913: END IF;
2914:
2915: FND_MESSAGE.Set_Name('AHL','AHL_RA_FCT_ASSOC_MTBF_DUP');
2908:
2909: IF (fnd_log.leVEL_STATEMENT >= fnd_log.g_current_runtime_level)THEN
2910: fnd_log.stRING(FND_LOG.Level_statement,l_full_name,'-- Invalid Param Passed - DUPLICATE FOUNT - MTBF -');
2911: fnd_log.stRING(FND_LOG.Level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID ------- '||l_fct_assoc_rec.ORGANIZATION_ID);
2912: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR --------- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
2913: END IF;
2914:
2915: FND_MESSAGE.Set_Name('AHL','AHL_RA_FCT_ASSOC_MTBF_DUP');
2916: FND_MSG_PUB.ADD;
2917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2918:
2919: EXCEPTION
2920: WHEN No_Data_Found THEN
2921: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2922: fnd_log.string(fnd_log.level_statement,l_full_name,'- MTBF - No Duplicate -- SUCCESS -- ');
2923: END IF;
2924: END;
2925:
2918:
2919: EXCEPTION
2920: WHEN No_Data_Found THEN
2921: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2922: fnd_log.string(fnd_log.level_statement,l_full_name,'- MTBF - No Duplicate -- SUCCESS -- ');
2923: END IF;
2924: END;
2925:
2926: -- Explicitly Null out PROBABILITY_FROM and PROBABILITY_TO
2944:
2945: -- Initialize security group id
2946: l_fct_assoc_rec.SECURITY_GROUP_ID := NULL;
2947:
2948: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2949: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Derived RA_FCT_ASSOCIATION_ID -- ' || l_fct_assoc_rec.RA_FCT_ASSOCIATION_ID);
2950: END IF;
2951:
2952: -- INSERT Forecast Associations Data in AHL_RA_FCT_ASSOCIATIONS
2945: -- Initialize security group id
2946: l_fct_assoc_rec.SECURITY_GROUP_ID := NULL;
2947:
2948: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2949: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Derived RA_FCT_ASSOCIATION_ID -- ' || l_fct_assoc_rec.RA_FCT_ASSOCIATION_ID);
2950: END IF;
2951:
2952: -- INSERT Forecast Associations Data in AHL_RA_FCT_ASSOCIATIONS
2953: INSERT INTO AHL_RA_FCT_ASSOCIATIONS(RA_FCT_ASSOCIATION_ID,FORECAST_DESIGNATOR,ASSOCIATION_TYPE_CODE,ORGANIZATION_ID,PROBABILITY_FROM, PROBABILITY_TO,
2993: IF FND_API.To_Boolean (p_commit) THEN
2994: COMMIT;
2995: END IF;
2996:
2997: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2998: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_FCT_ASSOC_DATA -------END-----------');
2999: END IF;
3000:
3001: -- Standard call to get message count and if count is 1, get message
2994: COMMIT;
2995: END IF;
2996:
2997: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2998: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_FCT_ASSOC_DATA -------END-----------');
2999: END IF;
3000:
3001: -- Standard call to get message count and if count is 1, get message
3002: FND_MSG_PUB.Count_And_Get
3003: ( p_count => x_msg_count,
3004: p_data => x_msg_data,
3005: p_encoded => fnd_api.g_false);
3006:
3007: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3008: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
3009: END IF;
3010:
3011: EXCEPTION
3004: p_data => x_msg_data,
3005: p_encoded => fnd_api.g_false);
3006:
3007: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3008: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
3009: END IF;
3010:
3011: EXCEPTION
3012: WHEN FND_API.G_EXC_ERROR THEN
3087: l_dummy varchar2(1);
3088:
3089: BEGIN
3090:
3091: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3092: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
3093: END IF;
3094:
3095: -- Standard start of API savepoint
3088:
3089: BEGIN
3090:
3091: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3092: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
3093: END IF;
3094:
3095: -- Standard start of API savepoint
3096: SAVEPOINT UPDATE_FCT_ASSOC_DATA_SP;
3106: END IF;
3107:
3108: x_return_status := FND_API.G_RET_STS_SUCCESS;
3109:
3110: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3111: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- UPDATE_FCT_ASSOC_DATA -------BEGIN-----------');
3112: END IF;
3113:
3114: -- Instead of FND_API.G_MISS_NUM, "-1001" is being passed from UI to indicate nullifying of Probability from
3107:
3108: x_return_status := FND_API.G_RET_STS_SUCCESS;
3109:
3110: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3111: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- UPDATE_FCT_ASSOC_DATA -------BEGIN-----------');
3112: END IF;
3113:
3114: -- Instead of FND_API.G_MISS_NUM, "-1001" is being passed from UI to indicate nullifying of Probability from
3115: -- and Probability To Columns. Translation being done below.
3113:
3114: -- Instead of FND_API.G_MISS_NUM, "-1001" is being passed from UI to indicate nullifying of Probability from
3115: -- and Probability To Columns. Translation being done below.
3116: IF (l_fct_assoc_rec.PROBABILITY_FROM = -1001) THEN
3117: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3118: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Translating -1001 to G_MISS_NUM - FROM');
3119: END IF;
3120: l_fct_assoc_rec.PROBABILITY_FROM := FND_API.G_MISS_NUM;
3121: END IF;
3114: -- Instead of FND_API.G_MISS_NUM, "-1001" is being passed from UI to indicate nullifying of Probability from
3115: -- and Probability To Columns. Translation being done below.
3116: IF (l_fct_assoc_rec.PROBABILITY_FROM = -1001) THEN
3117: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3118: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Translating -1001 to G_MISS_NUM - FROM');
3119: END IF;
3120: l_fct_assoc_rec.PROBABILITY_FROM := FND_API.G_MISS_NUM;
3121: END IF;
3122:
3120: l_fct_assoc_rec.PROBABILITY_FROM := FND_API.G_MISS_NUM;
3121: END IF;
3122:
3123: IF (l_fct_assoc_rec.PROBABILITY_TO = -1001) THEN
3124: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3125: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Translating -1001 to G_MISS_NUM - TO');
3126: END IF;
3127: l_fct_assoc_rec.PROBABILITY_TO := FND_API.G_MISS_NUM;
3128: END IF;
3121: END IF;
3122:
3123: IF (l_fct_assoc_rec.PROBABILITY_TO = -1001) THEN
3124: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3125: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Translating -1001 to G_MISS_NUM - TO');
3126: END IF;
3127: l_fct_assoc_rec.PROBABILITY_TO := FND_API.G_MISS_NUM;
3128: END IF;
3129:
3133: -- C. Object Version Number should not be NULL
3134: IF ((l_fct_assoc_rec.RA_FCT_ASSOCIATION_ID IS NULL) OR
3135: ((l_fct_assoc_rec.OPERATION_FLAG IS NULL) OR (l_fct_assoc_rec.OPERATION_FLAG <> G_DML_UPDATE)) OR
3136: (l_fct_assoc_rec.OBJECT_VERSION_NUMBER IS NULL OR l_fct_assoc_rec.OBJECT_VERSION_NUMBER = FND_API.G_MISS_NUM))THEN
3137: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3138: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA_FCT_ASSOCIATION_ID :' || l_fct_assoc_rec.RA_FCT_ASSOCIATION_ID);
3139: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OP FLAG :' || l_fct_assoc_rec.OPERATION_FLAG);
3140: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || l_fct_assoc_rec.OBJECT_VERSION_NUMBER);
3141: END IF;
3134: IF ((l_fct_assoc_rec.RA_FCT_ASSOCIATION_ID IS NULL) OR
3135: ((l_fct_assoc_rec.OPERATION_FLAG IS NULL) OR (l_fct_assoc_rec.OPERATION_FLAG <> G_DML_UPDATE)) OR
3136: (l_fct_assoc_rec.OBJECT_VERSION_NUMBER IS NULL OR l_fct_assoc_rec.OBJECT_VERSION_NUMBER = FND_API.G_MISS_NUM))THEN
3137: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3138: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA_FCT_ASSOCIATION_ID :' || l_fct_assoc_rec.RA_FCT_ASSOCIATION_ID);
3139: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OP FLAG :' || l_fct_assoc_rec.OPERATION_FLAG);
3140: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || l_fct_assoc_rec.OBJECT_VERSION_NUMBER);
3141: END IF;
3142: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
3135: ((l_fct_assoc_rec.OPERATION_FLAG IS NULL) OR (l_fct_assoc_rec.OPERATION_FLAG <> G_DML_UPDATE)) OR
3136: (l_fct_assoc_rec.OBJECT_VERSION_NUMBER IS NULL OR l_fct_assoc_rec.OBJECT_VERSION_NUMBER = FND_API.G_MISS_NUM))THEN
3137: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3138: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA_FCT_ASSOCIATION_ID :' || l_fct_assoc_rec.RA_FCT_ASSOCIATION_ID);
3139: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OP FLAG :' || l_fct_assoc_rec.OPERATION_FLAG);
3140: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || l_fct_assoc_rec.OBJECT_VERSION_NUMBER);
3141: END IF;
3142: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
3143: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.U_FCST_DATA');
3136: (l_fct_assoc_rec.OBJECT_VERSION_NUMBER IS NULL OR l_fct_assoc_rec.OBJECT_VERSION_NUMBER = FND_API.G_MISS_NUM))THEN
3137: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3138: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA_FCT_ASSOCIATION_ID :' || l_fct_assoc_rec.RA_FCT_ASSOCIATION_ID);
3139: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OP FLAG :' || l_fct_assoc_rec.OPERATION_FLAG);
3140: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || l_fct_assoc_rec.OBJECT_VERSION_NUMBER);
3141: END IF;
3142: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
3143: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.U_FCST_DATA');
3144: FND_MSG_PUB.ADD;
3172: FROM AHL_RA_FCT_ASSOCIATIONS
3173: WHERE RA_FCT_ASSOCIATION_ID = l_fct_assoc_rec.RA_FCT_ASSOCIATION_ID
3174: FOR UPDATE OF object_version_number NOWAIT;
3175:
3176: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3177: fnd_log.string(fnd_log.level_statement,l_full_name,'-- OBJECT VERSION NUMBER IN DB : ' || l_obj_version_num);
3178: END IF;
3179:
3180: EXCEPTION
3173: WHERE RA_FCT_ASSOCIATION_ID = l_fct_assoc_rec.RA_FCT_ASSOCIATION_ID
3174: FOR UPDATE OF object_version_number NOWAIT;
3175:
3176: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3177: fnd_log.string(fnd_log.level_statement,l_full_name,'-- OBJECT VERSION NUMBER IN DB : ' || l_obj_version_num);
3178: END IF;
3179:
3180: EXCEPTION
3181: WHEN NO_DATA_FOUND THEN
3178: END IF;
3179:
3180: EXCEPTION
3181: WHEN NO_DATA_FOUND THEN
3182: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3183: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || l_fct_assoc_rec.RA_FCT_ASSOCIATION_ID);
3184: END IF;
3185: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
3186: FND_MSG_PUB.ADD;
3179:
3180: EXCEPTION
3181: WHEN NO_DATA_FOUND THEN
3182: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3183: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || l_fct_assoc_rec.RA_FCT_ASSOCIATION_ID);
3184: END IF;
3185: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
3186: FND_MSG_PUB.ADD;
3187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3190:
3191: -- Validate input data in p_x_fct_assoc_rec
3192: -- A. RECORD MUST NOT HAVE CHANGED. i.e. object_version_number should not change.
3193: IF l_fct_assoc_rec.OBJECT_VERSION_NUMBER <> l_obj_version_num THEN
3194: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3195: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || l_fct_assoc_rec.OBJECT_VERSION_NUMBER);
3196: END IF;
3197: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
3198: FND_MSG_PUB.ADD;
3191: -- Validate input data in p_x_fct_assoc_rec
3192: -- A. RECORD MUST NOT HAVE CHANGED. i.e. object_version_number should not change.
3193: IF l_fct_assoc_rec.OBJECT_VERSION_NUMBER <> l_obj_version_num THEN
3194: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3195: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || l_fct_assoc_rec.OBJECT_VERSION_NUMBER);
3196: END IF;
3197: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
3198: FND_MSG_PUB.ADD;
3199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3209: -- F. OPERATIONS_FLAG should be U
3210:
3211: IF (l_fct_assoc_rec.ASSOCIATION_TYPE_CODE = 'ASSOC_HISTORICAL' AND (l_fct_assoc_rec.PROBABILITY_FROM IS NULL OR
3212: l_fct_assoc_rec.PROBABILITY_TO IS NULL)) THEN
3213: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3214: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
3215: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3216: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3217: END IF;
3210:
3211: IF (l_fct_assoc_rec.ASSOCIATION_TYPE_CODE = 'ASSOC_HISTORICAL' AND (l_fct_assoc_rec.PROBABILITY_FROM IS NULL OR
3212: l_fct_assoc_rec.PROBABILITY_TO IS NULL)) THEN
3213: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3214: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
3215: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3216: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3217: END IF;
3218:
3211: IF (l_fct_assoc_rec.ASSOCIATION_TYPE_CODE = 'ASSOC_HISTORICAL' AND (l_fct_assoc_rec.PROBABILITY_FROM IS NULL OR
3212: l_fct_assoc_rec.PROBABILITY_TO IS NULL)) THEN
3213: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3214: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
3215: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3216: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3217: END IF;
3218:
3219: FND_MESSAGE.Set_Name('AHL','AHL_RA_HIST_PROB_NULL');
3212: l_fct_assoc_rec.PROBABILITY_TO IS NULL)) THEN
3213: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3214: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
3215: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3216: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3217: END IF;
3218:
3219: FND_MESSAGE.Set_Name('AHL','AHL_RA_HIST_PROB_NULL');
3220: FND_MSG_PUB.ADD;
3227: (l_fct_assoc_rec.ORGANIZATION_ID IS NULL) OR
3228: (l_fct_assoc_rec.FORECAST_DESIGNATOR IS NULL) OR
3229: ((l_fct_assoc_rec.OPERATION_FLAG IS NULL) OR (l_fct_assoc_rec.OPERATION_FLAG <> G_DML_UPDATE))) THEN
3230:
3231: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3232: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
3233: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3234: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3235: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR ---- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
3228: (l_fct_assoc_rec.FORECAST_DESIGNATOR IS NULL) OR
3229: ((l_fct_assoc_rec.OPERATION_FLAG IS NULL) OR (l_fct_assoc_rec.OPERATION_FLAG <> G_DML_UPDATE))) THEN
3230:
3231: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3232: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
3233: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3234: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3235: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR ---- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
3236: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID -------- '||l_fct_assoc_rec.ORGANIZATION_ID);
3229: ((l_fct_assoc_rec.OPERATION_FLAG IS NULL) OR (l_fct_assoc_rec.OPERATION_FLAG <> G_DML_UPDATE))) THEN
3230:
3231: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3232: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
3233: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3234: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3235: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR ---- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
3236: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID -------- '||l_fct_assoc_rec.ORGANIZATION_ID);
3237: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ASSOCIATION_TYPE_CODE -- '||l_fct_assoc_rec.ASSOCIATION_TYPE_CODE);
3230:
3231: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3232: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
3233: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3234: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3235: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR ---- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
3236: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID -------- '||l_fct_assoc_rec.ORGANIZATION_ID);
3237: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ASSOCIATION_TYPE_CODE -- '||l_fct_assoc_rec.ASSOCIATION_TYPE_CODE);
3238: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.OPERATION_FLAG --------- '||l_fct_assoc_rec.OPERATION_FLAG);
3231: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3232: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
3233: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3234: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3235: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR ---- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
3236: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID -------- '||l_fct_assoc_rec.ORGANIZATION_ID);
3237: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ASSOCIATION_TYPE_CODE -- '||l_fct_assoc_rec.ASSOCIATION_TYPE_CODE);
3238: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.OPERATION_FLAG --------- '||l_fct_assoc_rec.OPERATION_FLAG);
3239: END IF;
3232: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
3233: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3234: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3235: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR ---- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
3236: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID -------- '||l_fct_assoc_rec.ORGANIZATION_ID);
3237: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ASSOCIATION_TYPE_CODE -- '||l_fct_assoc_rec.ASSOCIATION_TYPE_CODE);
3238: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.OPERATION_FLAG --------- '||l_fct_assoc_rec.OPERATION_FLAG);
3239: END IF;
3240:
3233: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3234: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3235: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR ---- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
3236: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID -------- '||l_fct_assoc_rec.ORGANIZATION_ID);
3237: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ASSOCIATION_TYPE_CODE -- '||l_fct_assoc_rec.ASSOCIATION_TYPE_CODE);
3238: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.OPERATION_FLAG --------- '||l_fct_assoc_rec.OPERATION_FLAG);
3239: END IF;
3240:
3241: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
3234: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3235: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR ---- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
3236: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID -------- '||l_fct_assoc_rec.ORGANIZATION_ID);
3237: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.ASSOCIATION_TYPE_CODE -- '||l_fct_assoc_rec.ASSOCIATION_TYPE_CODE);
3238: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.OPERATION_FLAG --------- '||l_fct_assoc_rec.OPERATION_FLAG);
3239: END IF;
3240:
3241: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
3242: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.U_FCT_DATA');
3257: FROM MTL_PARAMETERS MP
3258: WHERE MP.ORGANIZATION_ID = l_fct_assoc_rec.ORGANIZATION_ID
3259: AND MP.EAM_ENABLED_FLAG='Y');
3260:
3261: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3262: fnd_log.string(fnd_log.level_statement,l_full_name,'-- ORGANIZATION_ID Validated Successfully--');
3263: END IF;
3264:
3265:
3258: WHERE MP.ORGANIZATION_ID = l_fct_assoc_rec.ORGANIZATION_ID
3259: AND MP.EAM_ENABLED_FLAG='Y');
3260:
3261: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3262: fnd_log.string(fnd_log.level_statement,l_full_name,'-- ORGANIZATION_ID Validated Successfully--');
3263: END IF;
3264:
3265:
3266: EXCEPTION
3264:
3265:
3266: EXCEPTION
3267: WHEN NO_DATA_FOUND THEN
3268: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3269: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - ORGANIZATION_ID -' || l_fct_assoc_rec.ORGANIZATION_ID);
3270: END IF;
3271: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
3272: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.U_FCT_DATA');
3265:
3266: EXCEPTION
3267: WHEN NO_DATA_FOUND THEN
3268: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3269: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - ORGANIZATION_ID -' || l_fct_assoc_rec.ORGANIZATION_ID);
3270: END IF;
3271: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
3272: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.U_FCT_DATA');
3273: FND_MSG_PUB.ADD;
3284: WHERE MRP.FORECAST_DESIGNATOR = l_fct_assoc_rec.FORECAST_DESIGNATOR
3285: AND MRP.ORGANIZATION_ID = l_fct_assoc_rec.ORGANIZATION_ID
3286: AND MRP.FORECAST_SET IS NOT NULL);
3287:
3288: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3289: fnd_log.string(fnd_log.level_statement,l_full_name,'-- FORECAST_DESIGNATOR Validated Successfully--');
3290: END IF;
3291:
3292:
3285: AND MRP.ORGANIZATION_ID = l_fct_assoc_rec.ORGANIZATION_ID
3286: AND MRP.FORECAST_SET IS NOT NULL);
3287:
3288: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3289: fnd_log.string(fnd_log.level_statement,l_full_name,'-- FORECAST_DESIGNATOR Validated Successfully--');
3290: END IF;
3291:
3292:
3293: EXCEPTION
3291:
3292:
3293: EXCEPTION
3294: WHEN NO_DATA_FOUND THEN
3295: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3296: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - FORECAST_DESIGNATOR -' || l_fct_assoc_rec.FORECAST_DESIGNATOR);
3297: END IF;
3298: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
3299: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.U_FCT_DATA');
3292:
3293: EXCEPTION
3294: WHEN NO_DATA_FOUND THEN
3295: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3296: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - FORECAST_DESIGNATOR -' || l_fct_assoc_rec.FORECAST_DESIGNATOR);
3297: END IF;
3298: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
3299: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.U_FCT_DATA');
3300: FND_MSG_PUB.ADD;
3314: l_fct_assoc_rec.PROBABILITY_FROM > 100 OR
3315: l_fct_assoc_rec.PROBABILITY_TO < 0 OR
3316: l_fct_assoc_rec.PROBABILITY_TO > 100) THEN
3317:
3318: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3319: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - less than zero or greater than 100 -');
3320: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3321: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3322: END IF;
3315: l_fct_assoc_rec.PROBABILITY_TO < 0 OR
3316: l_fct_assoc_rec.PROBABILITY_TO > 100) THEN
3317:
3318: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3319: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - less than zero or greater than 100 -');
3320: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3321: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3322: END IF;
3323:
3316: l_fct_assoc_rec.PROBABILITY_TO > 100) THEN
3317:
3318: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3319: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - less than zero or greater than 100 -');
3320: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3321: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3322: END IF;
3323:
3324: FND_MESSAGE.Set_Name('AHL','AHL_RA_PROB_VALID_RANGE');
3317:
3318: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3319: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - less than zero or greater than 100 -');
3320: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3321: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3322: END IF;
3323:
3324: FND_MESSAGE.Set_Name('AHL','AHL_RA_PROB_VALID_RANGE');
3325: FND_MSG_PUB.ADD;
3328:
3329: -- 2. PROBABILITY_TO should be >= PROBABILITY_FROM
3330: IF (NOT(l_fct_assoc_rec.PROBABILITY_FROM <= l_fct_assoc_rec.PROBABILITY_TO)) THEN
3331:
3332: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3333: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - PROBABILITY_TO should be >= PROBABILITY_FROM -');
3334: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3335: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3336: END IF;
3329: -- 2. PROBABILITY_TO should be >= PROBABILITY_FROM
3330: IF (NOT(l_fct_assoc_rec.PROBABILITY_FROM <= l_fct_assoc_rec.PROBABILITY_TO)) THEN
3331:
3332: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3333: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - PROBABILITY_TO should be >= PROBABILITY_FROM -');
3334: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3335: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3336: END IF;
3337:
3330: IF (NOT(l_fct_assoc_rec.PROBABILITY_FROM <= l_fct_assoc_rec.PROBABILITY_TO)) THEN
3331:
3332: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3333: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - PROBABILITY_TO should be >= PROBABILITY_FROM -');
3334: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3335: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3336: END IF;
3337:
3338: FND_MESSAGE.Set_Name('AHL','AHL_RA_PROB_RELATIONSHIP');
3331:
3332: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3333: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - PROBABILITY_TO should be >= PROBABILITY_FROM -');
3334: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3335: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3336: END IF;
3337:
3338: FND_MESSAGE.Set_Name('AHL','AHL_RA_PROB_RELATIONSHIP');
3339: FND_MSG_PUB.ADD;
3359: (PROBABILITY_TO = 100 AND l_fct_assoc_rec.PROBABILITY_FROM = 100)) -- if 100 to 100 is defined .. then <> to 100 is not allowed
3360: AND RA_FCT_ASSOCIATION_ID <> l_fct_assoc_rec.RA_FCT_ASSOCIATION_ID); -- Update of the ame record to bump OVN is allowed
3361:
3362:
3363: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3364: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - Probability Overlap -');
3365: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3366: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3367: END IF;
3360: AND RA_FCT_ASSOCIATION_ID <> l_fct_assoc_rec.RA_FCT_ASSOCIATION_ID); -- Update of the ame record to bump OVN is allowed
3361:
3362:
3363: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3364: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - Probability Overlap -');
3365: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3366: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3367: END IF;
3368:
3361:
3362:
3363: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3364: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - Probability Overlap -');
3365: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3366: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3367: END IF;
3368:
3369: FND_MESSAGE.Set_Name('AHL','AHL_RA_PROB_OVERLAP');
3362:
3363: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3364: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - Probability Overlap -');
3365: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_FROM ------- '||l_fct_assoc_rec.PROBABILITY_FROM);
3366: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
3367: END IF;
3368:
3369: FND_MESSAGE.Set_Name('AHL','AHL_RA_PROB_OVERLAP');
3370: FND_MSG_PUB.ADD;
3371: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3372:
3373: EXCEPTION
3374: WHEN NO_DATA_FOUND THEN
3375: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3376: fnd_log.string(fnd_log.level_statement,l_full_name,'- HISTORICAL - No OverLap -- SUCCESS -- ');
3377: END IF;
3378: END;
3379:
3372:
3373: EXCEPTION
3374: WHEN NO_DATA_FOUND THEN
3375: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3376: fnd_log.string(fnd_log.level_statement,l_full_name,'- HISTORICAL - No OverLap -- SUCCESS -- ');
3377: END IF;
3378: END;
3379:
3380: ELSIF (l_fct_assoc_rec.ASSOCIATION_TYPE_CODE = 'ASSOC_MTBF') THEN
3391: AND ASSOCIATION_TYPE_CODE = l_fct_assoc_rec.ASSOCIATION_TYPE_CODE
3392: AND RA_FCT_ASSOCIATION_ID <> l_fct_assoc_rec.RA_FCT_ASSOCIATION_ID); -- Update of the ame record to bump OVN is allowed
3393:
3394:
3395: IF (fnd_log.leVEL_STATEMENT >= fnd_log.g_current_runtime_level)THEN
3396: fnd_log.stRING(FND_LOG.Level_statement,l_full_name,'-- Invalid Param Passed - DUPLICATE FOUNT - MTBF -');
3397: fnd_log.stRING(FND_LOG.Level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID ------- '||l_fct_assoc_rec.ORGANIZATION_ID);
3398: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR --------- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
3399: END IF;
3392: AND RA_FCT_ASSOCIATION_ID <> l_fct_assoc_rec.RA_FCT_ASSOCIATION_ID); -- Update of the ame record to bump OVN is allowed
3393:
3394:
3395: IF (fnd_log.leVEL_STATEMENT >= fnd_log.g_current_runtime_level)THEN
3396: fnd_log.stRING(FND_LOG.Level_statement,l_full_name,'-- Invalid Param Passed - DUPLICATE FOUNT - MTBF -');
3397: fnd_log.stRING(FND_LOG.Level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID ------- '||l_fct_assoc_rec.ORGANIZATION_ID);
3398: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR --------- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
3399: END IF;
3400:
3393:
3394:
3395: IF (fnd_log.leVEL_STATEMENT >= fnd_log.g_current_runtime_level)THEN
3396: fnd_log.stRING(FND_LOG.Level_statement,l_full_name,'-- Invalid Param Passed - DUPLICATE FOUNT - MTBF -');
3397: fnd_log.stRING(FND_LOG.Level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID ------- '||l_fct_assoc_rec.ORGANIZATION_ID);
3398: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR --------- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
3399: END IF;
3400:
3401: FND_MESSAGE.Set_Name('AHL','AHL_RA_FCT_ASSOC_MTBF_DUP');
3394:
3395: IF (fnd_log.leVEL_STATEMENT >= fnd_log.g_current_runtime_level)THEN
3396: fnd_log.stRING(FND_LOG.Level_statement,l_full_name,'-- Invalid Param Passed - DUPLICATE FOUNT - MTBF -');
3397: fnd_log.stRING(FND_LOG.Level_statement,l_full_name,'-- l_fct_assoc_rec.ORGANIZATION_ID ------- '||l_fct_assoc_rec.ORGANIZATION_ID);
3398: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR --------- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
3399: END IF;
3400:
3401: FND_MESSAGE.Set_Name('AHL','AHL_RA_FCT_ASSOC_MTBF_DUP');
3402: FND_MSG_PUB.ADD;
3403: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3404:
3405: EXCEPTION
3406: When No_Data_Found then
3407: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3408: fnd_log.string(fnd_log.level_statement,l_full_name,'- MTBF - No Duplicate -- SUCCESS -- ');
3409: END IF;
3410: END;
3411:
3404:
3405: EXCEPTION
3406: When No_Data_Found then
3407: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3408: fnd_log.string(fnd_log.level_statement,l_full_name,'- MTBF - No Duplicate -- SUCCESS -- ');
3409: END IF;
3410: END;
3411:
3412: -- Explicitly Null out PROBABILITY_FROM and PROBABILITY_TO
3462: IF FND_API.To_Boolean (p_commit) THEN
3463: COMMIT;
3464: END IF;
3465:
3466: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3467: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- UPDATE_FCT_ASSOC_DATA -------END-----------');
3468: END IF;
3469:
3470: -- Standard call to get message count and if count is 1, get message
3463: COMMIT;
3464: END IF;
3465:
3466: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3467: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- UPDATE_FCT_ASSOC_DATA -------END-----------');
3468: END IF;
3469:
3470: -- Standard call to get message count and if count is 1, get message
3471: FND_MSG_PUB.Count_And_Get
3472: ( p_count => x_msg_count,
3473: p_data => x_msg_data,
3474: p_encoded => fnd_api.g_false);
3475:
3476: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3477: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
3478: END IF;
3479:
3480: EXCEPTION
3473: p_data => x_msg_data,
3474: p_encoded => fnd_api.g_false);
3475:
3476: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3477: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
3478: END IF;
3479:
3480: EXCEPTION
3481: WHEN FND_API.G_EXC_ERROR THEN
3551: l_obj_version_num AHL_RA_FCT_ASSOCIATIONS.OBJECT_VERSION_NUMBER%TYPE;
3552:
3553: BEGIN
3554:
3555: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3556: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
3557: END IF;
3558:
3559: -- Standard start of API savepoint
3552:
3553: BEGIN
3554:
3555: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3556: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.begin','At the start of PLSQL procedure');
3557: END IF;
3558:
3559: -- Standard start of API savepoint
3560: SAVEPOINT DELETE_FCT_ASSOC_DATA_SP;
3570: END IF;
3571:
3572: x_return_status := FND_API.G_RET_STS_SUCCESS;
3573:
3574: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3575: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_FCT_ASSOC_DATA -------BEGIN-----------');
3576: END IF;
3577:
3578: -- Validate input data in p_fct_assoc_rec
3571:
3572: x_return_status := FND_API.G_RET_STS_SUCCESS;
3573:
3574: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3575: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_FCT_ASSOC_DATA -------BEGIN-----------');
3576: END IF;
3577:
3578: -- Validate input data in p_fct_assoc_rec
3579: -- A. p_fct_assoc_rec.RA_FCT_ASSOCIATION_ID Cannot be NULL
3581: -- C. Object Version Number should not be NULL
3582: IF ((p_fct_assoc_rec.RA_FCT_ASSOCIATION_ID IS NULL) OR
3583: ((p_fct_assoc_rec.OPERATION_FLAG IS NULL) OR (p_fct_assoc_rec.OPERATION_FLAG <> G_DML_DELETE)) OR
3584: (p_fct_assoc_rec.OBJECT_VERSION_NUMBER IS NULL))THEN
3585: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3586: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA_FCT_ASSOCIATION_ID :' || p_fct_assoc_rec.RA_FCT_ASSOCIATION_ID);
3587: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OP FLAG :' || p_fct_assoc_rec.OPERATION_FLAG);
3588: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || p_fct_assoc_rec.OBJECT_VERSION_NUMBER);
3589: END IF;
3582: IF ((p_fct_assoc_rec.RA_FCT_ASSOCIATION_ID IS NULL) OR
3583: ((p_fct_assoc_rec.OPERATION_FLAG IS NULL) OR (p_fct_assoc_rec.OPERATION_FLAG <> G_DML_DELETE)) OR
3584: (p_fct_assoc_rec.OBJECT_VERSION_NUMBER IS NULL))THEN
3585: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3586: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA_FCT_ASSOCIATION_ID :' || p_fct_assoc_rec.RA_FCT_ASSOCIATION_ID);
3587: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OP FLAG :' || p_fct_assoc_rec.OPERATION_FLAG);
3588: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || p_fct_assoc_rec.OBJECT_VERSION_NUMBER);
3589: END IF;
3590: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
3583: ((p_fct_assoc_rec.OPERATION_FLAG IS NULL) OR (p_fct_assoc_rec.OPERATION_FLAG <> G_DML_DELETE)) OR
3584: (p_fct_assoc_rec.OBJECT_VERSION_NUMBER IS NULL))THEN
3585: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3586: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA_FCT_ASSOCIATION_ID :' || p_fct_assoc_rec.RA_FCT_ASSOCIATION_ID);
3587: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OP FLAG :' || p_fct_assoc_rec.OPERATION_FLAG);
3588: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || p_fct_assoc_rec.OBJECT_VERSION_NUMBER);
3589: END IF;
3590: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
3591: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.D_FCST_DATA');
3584: (p_fct_assoc_rec.OBJECT_VERSION_NUMBER IS NULL))THEN
3585: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3586: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA_FCT_ASSOCIATION_ID :' || p_fct_assoc_rec.RA_FCT_ASSOCIATION_ID);
3587: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OP FLAG :' || p_fct_assoc_rec.OPERATION_FLAG);
3588: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || p_fct_assoc_rec.OBJECT_VERSION_NUMBER);
3589: END IF;
3590: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
3591: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.D_FCST_DATA');
3592: FND_MSG_PUB.ADD;
3600: FROM AHL_RA_FCT_ASSOCIATIONS
3601: WHERE RA_FCT_ASSOCIATION_ID = p_fct_assoc_rec.RA_FCT_ASSOCIATION_ID
3602: FOR UPDATE OF object_version_number NOWAIT;
3603:
3604: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3605: fnd_log.string(fnd_log.level_statement,l_full_name,'-- OBJECT VERSION NUMBER IN DB : ' || l_obj_version_num);
3606: END IF;
3607:
3608: EXCEPTION
3601: WHERE RA_FCT_ASSOCIATION_ID = p_fct_assoc_rec.RA_FCT_ASSOCIATION_ID
3602: FOR UPDATE OF object_version_number NOWAIT;
3603:
3604: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3605: fnd_log.string(fnd_log.level_statement,l_full_name,'-- OBJECT VERSION NUMBER IN DB : ' || l_obj_version_num);
3606: END IF;
3607:
3608: EXCEPTION
3609: WHEN NO_DATA_FOUND THEN
3606: END IF;
3607:
3608: EXCEPTION
3609: WHEN NO_DATA_FOUND THEN
3610: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3611: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || p_fct_assoc_rec.RA_FCT_ASSOCIATION_ID);
3612: END IF;
3613: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
3614: FND_MSG_PUB.ADD;
3607:
3608: EXCEPTION
3609: WHEN NO_DATA_FOUND THEN
3610: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3611: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || p_fct_assoc_rec.RA_FCT_ASSOCIATION_ID);
3612: END IF;
3613: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
3614: FND_MSG_PUB.ADD;
3615: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3617:
3618: -- Validate input data in p_fct_assoc_rec
3619: -- A. RECORD MUST NOT HAVE CHANGED. i.e. object_version_number should not change.
3620: IF p_fct_assoc_rec.OBJECT_VERSION_NUMBER <> l_obj_version_num THEN
3621: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3622: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || p_fct_assoc_rec.OBJECT_VERSION_NUMBER);
3623: END IF;
3624: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
3625: FND_MSG_PUB.ADD;
3618: -- Validate input data in p_fct_assoc_rec
3619: -- A. RECORD MUST NOT HAVE CHANGED. i.e. object_version_number should not change.
3620: IF p_fct_assoc_rec.OBJECT_VERSION_NUMBER <> l_obj_version_num THEN
3621: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3622: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || p_fct_assoc_rec.OBJECT_VERSION_NUMBER);
3623: END IF;
3624: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
3625: FND_MSG_PUB.ADD;
3626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3634: IF FND_API.To_Boolean (p_commit) THEN
3635: COMMIT;
3636: END IF;
3637:
3638: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3639: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_FCT_ASSOC_DATA -------END-----------');
3640: END IF;
3641:
3642: -- Standard call to get message count and if count is 1, get message
3635: COMMIT;
3636: END IF;
3637:
3638: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3639: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_FCT_ASSOC_DATA -------END-----------');
3640: END IF;
3641:
3642: -- Standard call to get message count and if count is 1, get message
3643: FND_MSG_PUB.Count_And_Get
3644: ( p_count => x_msg_count,
3645: p_data => x_msg_data,
3646: p_encoded => fnd_api.g_false);
3647:
3648: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3649: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
3650: END IF;
3651:
3652: EXCEPTION
3645: p_data => x_msg_data,
3646: p_encoded => fnd_api.g_false);
3647:
3648: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3649: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
3650: END IF;
3651:
3652: EXCEPTION
3653: WHEN FND_API.G_EXC_ERROR THEN