35: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Create_SR_Unit_Effectivity';
36:
37: BEGIN
38:
39: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
40: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
41: END IF;
42:
43: -- Initialize API return status to success
36:
37: BEGIN
38:
39: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
40: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
41: END IF;
42:
43: -- Initialize API return status to success
44: x_return_status := FND_API.G_RET_STS_SUCCESS;
43: -- Initialize API return status to success
44: x_return_status := FND_API.G_RET_STS_SUCCESS;
45:
46: -- Begin Processing
47: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
48: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'About to call AHL_UMP_SR_PVT.Create_SR_Unit_Effectivity');
49: END IF;
50:
51: AHL_UMP_SR_PVT.Create_SR_Unit_Effectivity(
44: x_return_status := FND_API.G_RET_STS_SUCCESS;
45:
46: -- Begin Processing
47: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
48: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'About to call AHL_UMP_SR_PVT.Create_SR_Unit_Effectivity');
49: END IF;
50:
51: AHL_UMP_SR_PVT.Create_SR_Unit_Effectivity(
52: x_return_status => x_return_status
51: AHL_UMP_SR_PVT.Create_SR_Unit_Effectivity(
52: x_return_status => x_return_status
53: );
54:
55: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
56: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to AHL_UMP_SR_PVT.Create_SR_Unit_Effectivity. x_return_status = ' || x_return_status);
57: END IF;
58:
59: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
52: x_return_status => x_return_status
53: );
54:
55: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
56: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to AHL_UMP_SR_PVT.Create_SR_Unit_Effectivity. x_return_status = ' || x_return_status);
57: END IF;
58:
59: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
60: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
55: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
56: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to AHL_UMP_SR_PVT.Create_SR_Unit_Effectivity. x_return_status = ' || x_return_status);
57: END IF;
58:
59: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
60: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
61: END IF;
62:
63: EXCEPTION
56: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to AHL_UMP_SR_PVT.Create_SR_Unit_Effectivity. x_return_status = ' || x_return_status);
57: END IF;
58:
59: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
60: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
61: END IF;
62:
63: EXCEPTION
64: WHEN FND_API.G_EXC_ERROR THEN
103: l_api_name CONSTANT VARCHAR2(30) := 'Process_SR_Updates';
104: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Process_SR_Updates';
105:
106: BEGIN
107: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
108: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
109: END IF;
110:
111: -- Initialize API return status to success
104: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Process_SR_Updates';
105:
106: BEGIN
107: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
108: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
109: END IF;
110:
111: -- Initialize API return status to success
112: x_return_status := FND_API.G_RET_STS_SUCCESS;
111: -- Initialize API return status to success
112: x_return_status := FND_API.G_RET_STS_SUCCESS;
113:
114: -- Begin Processing
115: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
116: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'About to call AHL_UMP_SR_PVT.Process_SR_Updates');
117: END IF;
118:
119: AHL_UMP_SR_PVT.Process_SR_Updates(
112: x_return_status := FND_API.G_RET_STS_SUCCESS;
113:
114: -- Begin Processing
115: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
116: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'About to call AHL_UMP_SR_PVT.Process_SR_Updates');
117: END IF;
118:
119: AHL_UMP_SR_PVT.Process_SR_Updates(
120: x_return_status => x_return_status
119: AHL_UMP_SR_PVT.Process_SR_Updates(
120: x_return_status => x_return_status
121: );
122:
123: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
124: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to AHL_UMP_SR_PVT.Process_SR_Updates. x_return_status = ' || x_return_status);
125: END IF;
126:
127: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
120: x_return_status => x_return_status
121: );
122:
123: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
124: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to AHL_UMP_SR_PVT.Process_SR_Updates. x_return_status = ' || x_return_status);
125: END IF;
126:
127: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
128: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
123: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
124: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to AHL_UMP_SR_PVT.Process_SR_Updates. x_return_status = ' || x_return_status);
125: END IF;
126:
127: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
128: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
129: END IF;
130:
131: EXCEPTION
124: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to AHL_UMP_SR_PVT.Process_SR_Updates. x_return_status = ' || x_return_status);
125: END IF;
126:
127: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
128: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
129: END IF;
130:
131: EXCEPTION
132: WHEN FND_API.G_EXC_ERROR THEN
210: BEGIN
211: -- Standard start of API savepoint
212: SAVEPOINT Process_SR_MR_Associations_pvt;
213:
214: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
215: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
216: END IF;
217:
218: -- Standard call to check for call compatibility
211: -- Standard start of API savepoint
212: SAVEPOINT Process_SR_MR_Associations_pvt;
213:
214: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
215: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
216: END IF;
217:
218: -- Standard call to check for call compatibility
219: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
223: -- Initialize API return status to success
224: x_return_status := FND_API.G_RET_STS_SUCCESS;
225:
226: -- Begin Processing
227: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
228: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'About to call AHL_UMP_SR_PVT.Process_SR_MR_Associations');
229: END IF;
230:
231: AHL_UMP_SR_PVT.Process_SR_MR_Associations(
224: x_return_status := FND_API.G_RET_STS_SUCCESS;
225:
226: -- Begin Processing
227: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
228: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'About to call AHL_UMP_SR_PVT.Process_SR_MR_Associations');
229: END IF;
230:
231: AHL_UMP_SR_PVT.Process_SR_MR_Associations(
232: p_api_version => p_api_version,
243: p_request_number => p_request_number,
244: p_x_sr_mr_association_tbl => p_x_sr_mr_association_tbl
245: );
246:
247: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
248: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to AHL_UMP_SR_PVT.Process_SR_MR_Associations. x_return_status = ' || x_return_status);
249: END IF;
250:
251: -- Standard check of p_commit
244: p_x_sr_mr_association_tbl => p_x_sr_mr_association_tbl
245: );
246:
247: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
248: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to AHL_UMP_SR_PVT.Process_SR_MR_Associations. x_return_status = ' || x_return_status);
249: END IF;
250:
251: -- Standard check of p_commit
252: IF FND_API.TO_BOOLEAN(p_commit) THEN
249: END IF;
250:
251: -- Standard check of p_commit
252: IF FND_API.TO_BOOLEAN(p_commit) THEN
253: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
254: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to Commit.');
255: END IF;
256: COMMIT WORK;
257: END IF;
250:
251: -- Standard check of p_commit
252: IF FND_API.TO_BOOLEAN(p_commit) THEN
253: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
254: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to Commit.');
255: END IF;
256: COMMIT WORK;
257: END IF;
258:
262: p_data => x_msg_data,
263: p_encoded => fnd_api.g_false
264: );
265:
266: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
267: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
268: END IF;
269:
270: EXCEPTION
263: p_encoded => fnd_api.g_false
264: );
265:
266: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
267: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
268: END IF;
269:
270: EXCEPTION
271: WHEN FND_API.G_EXC_ERROR THEN