11: p_x_appr_deptshift_rec IN OUT NOCOPY AHL_APPR_DEPT_SHIFTS_PUB.appr_deptshift_rec
12: )
13: AS
14: BEGIN
15: IF p_x_appr_deptshift_rec.OBJECT_VERSION_NUMBER=FND_API.G_MISS_NUM
16: THEN
17: p_x_appr_deptshift_rec.OBJECT_VERSION_NUMBER:=NULL;
18: END IF;
19:
16: THEN
17: p_x_appr_deptshift_rec.OBJECT_VERSION_NUMBER:=NULL;
18: END IF;
19:
20: IF p_x_appr_deptshift_rec.DEPARTMENT_ID= FND_API.G_MISS_NUM
21: THEN
22: p_x_appr_deptshift_rec.DEPARTMENT_ID:=NULL;
23: END IF;
24:
21: THEN
22: p_x_appr_deptshift_rec.DEPARTMENT_ID:=NULL;
23: END IF;
24:
25: IF p_x_appr_deptshift_rec.SHIFT_NUM= FND_API.G_MISS_NUM
26: THEN
27: p_x_appr_deptshift_rec.SHIFT_NUM:=NULL;
28: END IF;
29:
26: THEN
27: p_x_appr_deptshift_rec.SHIFT_NUM:=NULL;
28: END IF;
29:
30: IF p_x_appr_deptshift_rec.SEQ_NUM= FND_API.G_MISS_NUM
31: THEN
32: p_x_appr_deptshift_rec.SEQ_NUM:=NULL;
33: END IF;
34:
31: THEN
32: p_x_appr_deptshift_rec.SEQ_NUM:=NULL;
33: END IF;
34:
35: IF p_x_appr_deptshift_rec.CALENDAR_CODE= FND_API.G_MISS_CHAR
36: THEN
37: p_x_appr_deptshift_rec.CALENDAR_CODE:=NULL;
38: END IF;
39:
36: THEN
37: p_x_appr_deptshift_rec.CALENDAR_CODE:=NULL;
38: END IF;
39:
40: IF p_x_appr_deptshift_Rec.ATTRIBUTE_CATEGORY IS NULL OR p_x_appr_deptshift_Rec.ATTRIBUTE_CATEGORY= FND_API.G_MISS_CHAR
41: THEN
42: p_x_appr_deptshift_Rec.ATTRIBUTE_CATEGORY:=NULL;
43: END IF;
44:
41: THEN
42: p_x_appr_deptshift_Rec.ATTRIBUTE_CATEGORY:=NULL;
43: END IF;
44:
45: IF p_x_appr_deptshift_Rec.ATTRIBUTE1=FND_API.G_MISS_CHAR
46: THEN
47: p_x_appr_deptshift_Rec.ATTRIBUTE1:=NULL;
48: END IF;
49:
46: THEN
47: p_x_appr_deptshift_Rec.ATTRIBUTE1:=NULL;
48: END IF;
49:
50: IF p_x_appr_deptshift_Rec.ATTRIBUTE2=FND_API.G_MISS_CHAR
51: THEN
52: p_x_appr_deptshift_Rec.ATTRIBUTE2:=NULL;
53: END IF;
54:
51: THEN
52: p_x_appr_deptshift_Rec.ATTRIBUTE2:=NULL;
53: END IF;
54:
55: IF p_x_appr_deptshift_Rec.ATTRIBUTE3=FND_API.G_MISS_CHAR
56: THEN
57: p_x_appr_deptshift_Rec.ATTRIBUTE3:=NULL;
58: END IF;
59:
56: THEN
57: p_x_appr_deptshift_Rec.ATTRIBUTE3:=NULL;
58: END IF;
59:
60: IF p_x_appr_deptshift_Rec.ATTRIBUTE4 IS NULL OR p_x_appr_deptshift_Rec.ATTRIBUTE4=FND_API.G_MISS_CHAR
61: THEN
62: p_x_appr_deptshift_Rec.ATTRIBUTE4:=NULL;
63: END IF;
64:
61: THEN
62: p_x_appr_deptshift_Rec.ATTRIBUTE4:=NULL;
63: END IF;
64:
65: IF p_x_appr_deptshift_Rec.ATTRIBUTE5=FND_API.G_MISS_CHAR
66: THEN
67: p_x_appr_deptshift_Rec.ATTRIBUTE5:=NULL;
68: END IF;
69:
66: THEN
67: p_x_appr_deptshift_Rec.ATTRIBUTE5:=NULL;
68: END IF;
69:
70: IF p_x_appr_deptshift_Rec.ATTRIBUTE6=FND_API.G_MISS_CHAR
71: THEN
72: p_x_appr_deptshift_Rec.ATTRIBUTE6:=NULL;
73: END IF;
74:
71: THEN
72: p_x_appr_deptshift_Rec.ATTRIBUTE6:=NULL;
73: END IF;
74:
75: IF p_x_appr_deptshift_Rec.ATTRIBUTE7=FND_API.G_MISS_CHAR
76: THEN
77: p_x_appr_deptshift_Rec.ATTRIBUTE7:=NULL;
78: END IF;
79:
76: THEN
77: p_x_appr_deptshift_Rec.ATTRIBUTE7:=NULL;
78: END IF;
79:
80: IF p_x_appr_deptshift_Rec.ATTRIBUTE8=FND_API.G_MISS_CHAR
81: THEN
82: p_x_appr_deptshift_Rec.ATTRIBUTE8:=NULL;
83: END IF;
84:
81: THEN
82: p_x_appr_deptshift_Rec.ATTRIBUTE8:=NULL;
83: END IF;
84:
85: IF p_x_appr_deptshift_Rec.ATTRIBUTE9=FND_API.G_MISS_CHAR
86: THEN
87: p_x_appr_deptshift_Rec.ATTRIBUTE9:=NULL;
88: END IF;
89:
86: THEN
87: p_x_appr_deptshift_Rec.ATTRIBUTE9:=NULL;
88: END IF;
89:
90: IF p_x_appr_deptshift_Rec.ATTRIBUTE10=FND_API.G_MISS_CHAR
91: THEN
92: p_x_appr_deptshift_Rec.ATTRIBUTE10:=NULL;
93: END IF;
94:
91: THEN
92: p_x_appr_deptshift_Rec.ATTRIBUTE10:=NULL;
93: END IF;
94:
95: IF p_x_appr_deptshift_Rec.ATTRIBUTE11=FND_API.G_MISS_CHAR
96: THEN
97: p_x_appr_deptshift_Rec.ATTRIBUTE11:=NULL;
98: END IF;
99:
96: THEN
97: p_x_appr_deptshift_Rec.ATTRIBUTE11:=NULL;
98: END IF;
99:
100: IF p_x_appr_deptshift_Rec.ATTRIBUTE12 IS NULL OR p_x_appr_deptshift_Rec.ATTRIBUTE12=FND_API.G_MISS_CHAR
101: THEN
102: p_x_appr_deptshift_Rec.ATTRIBUTE12:=NULL;
103: END IF;
104:
101: THEN
102: p_x_appr_deptshift_Rec.ATTRIBUTE12:=NULL;
103: END IF;
104:
105: IF p_x_appr_deptshift_Rec.ATTRIBUTE13=FND_API.G_MISS_CHAR
106: THEN
107: p_x_appr_deptshift_Rec.ATTRIBUTE13:=NULL;
108: END IF;
109:
106: THEN
107: p_x_appr_deptshift_Rec.ATTRIBUTE13:=NULL;
108: END IF;
109:
110: IF p_x_appr_deptshift_Rec.ATTRIBUTE14=FND_API.G_MISS_CHAR
111: THEN
112: p_x_appr_deptshift_Rec.ATTRIBUTE14:=NULL;
113: END IF;
114:
111: THEN
112: p_x_appr_deptshift_Rec.ATTRIBUTE14:=NULL;
113: END IF;
114:
115: IF p_x_appr_deptshift_Rec.ATTRIBUTE15=FND_API.G_MISS_CHAR
116: THEN
117: p_x_appr_deptshift_Rec.ATTRIBUTE15:=NULL;
118: END IF;
119:
117: p_x_appr_deptshift_Rec.ATTRIBUTE15:=NULL;
118: END IF;
119:
120: -- Added by rbhavsar on Nov 27, 2007 for ER 5854712
121: IF p_x_appr_deptshift_rec.SUBINVENTORY = FND_API.G_MISS_CHAR
122: THEN
123: p_x_appr_deptshift_rec.SUBINVENTORY := NULL;
124: END IF;
125:
122: THEN
123: p_x_appr_deptshift_rec.SUBINVENTORY := NULL;
124: END IF;
125:
126: IF p_x_appr_deptshift_rec.INV_LOCATOR_ID = FND_API.G_MISS_NUM
127: THEN
128: p_x_appr_deptshift_rec.INV_LOCATOR_ID := NULL;
129: END IF;
130:
127: THEN
128: p_x_appr_deptshift_rec.INV_LOCATOR_ID := NULL;
129: END IF;
130:
131: IF p_x_appr_deptshift_rec.LOCATOR_SEGMENTS = FND_API.G_MISS_CHAR
132: THEN
133: p_x_appr_deptshift_rec.LOCATOR_SEGMENTS := NULL;
134: END IF;
135: -- End Changes by rbhavsar on Nov 27, 2007 for ER 5854712
203: BEGIN
204: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
205: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure.');
206: END IF;
207: x_return_status:=FND_API.G_RET_STS_SUCCESS;
208: IF p_x_appr_deptshift_rec.ORGANIZATION_NAME IS NULL OR p_x_appr_deptshift_rec.ORGANIZATION_NAME=FND_API.G_MISS_CHAR
209: THEN
210: FND_MESSAGE.SET_NAME('AHL','AHL_APPR_ORG_NAME_NULL');
211: FND_MSG_PUB.ADD;
204: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
205: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure.');
206: END IF;
207: x_return_status:=FND_API.G_RET_STS_SUCCESS;
208: IF p_x_appr_deptshift_rec.ORGANIZATION_NAME IS NULL OR p_x_appr_deptshift_rec.ORGANIZATION_NAME=FND_API.G_MISS_CHAR
209: THEN
210: FND_MESSAGE.SET_NAME('AHL','AHL_APPR_ORG_NAME_NULL');
211: FND_MSG_PUB.ADD;
212: l_check_flag:='N';
223: CLOSE get_org_id;
224: END IF;
225:
226: l_check_flag:='N';
227: IF p_x_appr_deptshift_rec.DEPT_DESCRIPTION IS NULL OR p_x_appr_deptshift_rec.DEPT_DESCRIPTION=FND_API.G_MISS_CHAR
228: THEN
229: FND_MESSAGE.SET_NAME('AHL','AHL_APPR_DEPT_NAME_NULL');
230: FND_MSG_PUB.ADD;
231: l_check_flag:='N';
247: END IF;
248:
249:
250: l_check_flag:='N';
251: IF p_x_appr_deptshift_rec.CALENDAR_DESCRIPTION IS NULL OR p_x_appr_deptshift_rec.CALENDAR_DESCRIPTION=FND_API.G_MISS_CHAR
252: THEN
253: FND_MESSAGE.SET_NAME('AHL','AHL_APPR_CALENDER_NAME_NULL');
254: FND_MSG_PUB.ADD;
255: l_check_flag:='N';
274: END IF;
275:
276:
277: l_check_flag:='N';
278: IF p_x_appr_deptshift_rec.SHIFT_NUM IS NULL OR p_x_appr_deptshift_rec.SHIFT_NUM=FND_API.G_MISS_NUM
279: THEN
280: FND_MESSAGE.SET_NAME('AHL','AHL_APPR_SHIFT_NUMBER_NULL');
281: FND_MSG_PUB.ADD;
282: l_check_flag:='N';
300: END IF;
301:
302:
303: l_check_flag:='N';
304: IF p_x_appr_deptshift_rec.SEQ_NAME IS NULL OR p_x_appr_deptshift_rec.SEQ_NAME=FND_API.G_MISS_CHAR
305: THEN
306: FND_MESSAGE.SET_NAME('AHL','AHL_APPR_WORK_DAYS_NULL');
307: FND_MSG_PUB.ADD;
308: l_check_flag:='N';
330: ', p_x_appr_deptshift_rec.INV_LOCATOR_ID = ' || p_x_appr_deptshift_rec.INV_LOCATOR_ID ||
331: ', p_x_appr_deptshift_rec.LOCATOR_SEGMENTS = ' || p_x_appr_deptshift_rec.LOCATOR_SEGMENTS);
332: END IF;
333: -- Convert G_MISS to NULL since this API is called only for creating
334: IF (p_x_appr_deptshift_rec.SUBINVENTORY = FND_API.G_MISS_CHAR) THEN
335: p_x_appr_deptshift_rec.SUBINVENTORY := NULL;
336: END IF;
337: IF (p_x_appr_deptshift_rec.LOCATOR_SEGMENTS = FND_API.G_MISS_CHAR) THEN
338: p_x_appr_deptshift_rec.LOCATOR_SEGMENTS := NULL;
333: -- Convert G_MISS to NULL since this API is called only for creating
334: IF (p_x_appr_deptshift_rec.SUBINVENTORY = FND_API.G_MISS_CHAR) THEN
335: p_x_appr_deptshift_rec.SUBINVENTORY := NULL;
336: END IF;
337: IF (p_x_appr_deptshift_rec.LOCATOR_SEGMENTS = FND_API.G_MISS_CHAR) THEN
338: p_x_appr_deptshift_rec.LOCATOR_SEGMENTS := NULL;
339: END IF;
340: IF (p_x_appr_deptshift_rec.INV_LOCATOR_ID = FND_API.G_MISS_NUM) THEN
341: p_x_appr_deptshift_rec.INV_LOCATOR_ID := NULL;
336: END IF;
337: IF (p_x_appr_deptshift_rec.LOCATOR_SEGMENTS = FND_API.G_MISS_CHAR) THEN
338: p_x_appr_deptshift_rec.LOCATOR_SEGMENTS := NULL;
339: END IF;
340: IF (p_x_appr_deptshift_rec.INV_LOCATOR_ID = FND_API.G_MISS_NUM) THEN
341: p_x_appr_deptshift_rec.INV_LOCATOR_ID := NULL;
342: END IF;
343: IF (l_check_flag = 'Y' AND
344: p_x_appr_deptshift_rec.ORGANIZATION_ID IS NOT NULL AND
363: END IF;
364: -- End Changes by rbhavsar on Nov 27, 2007 for ER 5854712
365:
366: EXCEPTION
367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
368: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
369: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
370: p_count => x_msg_count,
371: p_data => x_msg_data);
364: -- End Changes by rbhavsar on Nov 27, 2007 for ER 5854712
365:
366: EXCEPTION
367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
368: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
369: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
370: p_count => x_msg_count,
371: p_data => x_msg_data);
372:
365:
366: EXCEPTION
367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
368: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
369: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
370: p_count => x_msg_count,
371: p_data => x_msg_data);
372:
373: WHEN FND_API.G_EXC_ERROR THEN
369: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
370: p_count => x_msg_count,
371: p_data => x_msg_data);
372:
373: WHEN FND_API.G_EXC_ERROR THEN
374: X_return_status := FND_API.G_RET_STS_ERROR;
375: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
376: p_count => x_msg_count,
377: p_data => X_msg_data);
370: p_count => x_msg_count,
371: p_data => x_msg_data);
372:
373: WHEN FND_API.G_EXC_ERROR THEN
374: X_return_status := FND_API.G_RET_STS_ERROR;
375: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
376: p_count => x_msg_count,
377: p_data => X_msg_data);
378: WHEN OTHERS THEN
371: p_data => x_msg_data);
372:
373: WHEN FND_API.G_EXC_ERROR THEN
374: X_return_status := FND_API.G_RET_STS_ERROR;
375: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
376: p_count => x_msg_count,
377: p_data => X_msg_data);
378: WHEN OTHERS THEN
379: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
375: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
376: p_count => x_msg_count,
377: p_data => X_msg_data);
378: WHEN OTHERS THEN
379: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
380: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
381: THEN
382: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_DEPT_SHIFTS_PUB',
383: p_procedure_name => 'TRANSLATE_VALUE_ID',
382: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_DEPT_SHIFTS_PUB',
383: p_procedure_name => 'TRANSLATE_VALUE_ID',
384: p_error_text => SUBSTR(SQLERRM,1,240));
385: END IF;
386: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
387: p_count => x_msg_count,
388: p_data => x_msg_data);
389: END;
390:
425: BEGIN
426: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
427: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure.');
428: END IF;
429: x_return_status:=FND_API.G_RET_STS_SUCCESS;
430:
431: IF p_appr_deptshift_rec.DML_OPERATION='D'
432: THEN
433: IF p_appr_deptshift_rec.OBJECT_VERSION_NUMBER IS NULL OR p_appr_deptshift_rec.OBJECT_VERSION_NUMBER=FND_API.G_MISS_NUM
429: x_return_status:=FND_API.G_RET_STS_SUCCESS;
430:
431: IF p_appr_deptshift_rec.DML_OPERATION='D'
432: THEN
433: IF p_appr_deptshift_rec.OBJECT_VERSION_NUMBER IS NULL OR p_appr_deptshift_rec.OBJECT_VERSION_NUMBER=FND_API.G_MISS_NUM
434: THEN
435: FND_MESSAGE.SET_NAME('AHL','AHL_COM_OBJECT_VERS_NUM_NULL');
436: FND_MSG_PUB.ADD;
437: END IF;
435: FND_MESSAGE.SET_NAME('AHL','AHL_COM_OBJECT_VERS_NUM_NULL');
436: FND_MSG_PUB.ADD;
437: END IF;
438:
439: IF p_appr_deptshift_rec.AHL_DEPARTMENT_SHIFTS_ID IS NULL OR p_appr_deptshift_rec.AHL_DEPARTMENT_SHIFTS_ID=FND_API.G_MISS_NUM
440: THEN
441: FND_MESSAGE.SET_NAME('AHL','AHL_DEPARTMENT_SHIFTS_ID_NULL');
442: FND_MSG_PUB.ADD;
443: ELSE
473: CLOSE validate_subinventory;
474: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INVALID_SUBINVENTORY');
475: FND_MESSAGE.Set_Token('INV', p_appr_deptshift_rec.SUBINVENTORY);
476: FND_MSG_PUB.ADD;
477: RAISE FND_API.G_EXC_ERROR;
478: ELSE
479: IF l_status_id in (NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1), NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1)) THEN
480: CLOSE validate_subinventory;
481: FND_MESSAGE.SET_NAME('AHL', 'AHL_SUBINVENTORY_NOT_SVC');
480: CLOSE validate_subinventory;
481: FND_MESSAGE.SET_NAME('AHL', 'AHL_SUBINVENTORY_NOT_SVC');
482: FND_MESSAGE.Set_Token('INV', p_appr_deptshift_rec.SUBINVENTORY);
483: FND_MSG_PUB.ADD;
484: RAISE FND_API.G_EXC_ERROR;
485: END IF;
486: END IF;
487: CLOSE validate_subinventory;
488: END IF;
490: IF (p_appr_deptshift_rec.SUBINVENTORY IS NULL AND
491: (p_appr_deptshift_rec.INV_LOCATOR_ID IS NOT NULL OR p_appr_deptshift_rec.LOCATOR_SEGMENTS IS NOT NULL)) THEN
492: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_PC_SUBINV_MANDATORY');
493: FND_MSG_PUB.ADD;
494: RAISE FND_API.G_EXC_ERROR;
495: END IF;
496:
497: IF (p_appr_deptshift_rec.INV_LOCATOR_ID IS NOT NULL) THEN
498: OPEN validate_inv_loc_id(C_ORGANIZATION_ID => p_appr_deptshift_rec.ORGANIZATION_ID,
503: CLOSE validate_inv_loc_id;
504: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INVALID_LOCATOR');
505: FND_MESSAGE.Set_Token('LOC', p_appr_deptshift_rec.INV_LOCATOR_ID);
506: FND_MSG_PUB.ADD;
507: RAISE FND_API.G_EXC_ERROR;
508: END IF;
509: CLOSE validate_inv_loc_id;
510: END IF;
511: END IF; -- DML_OPERATION='C'
515: END IF;
516: -- End Changes by rbhavsar on Nov 27, 2007 for ER 5854712
517:
518: EXCEPTION
519: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
520: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
521: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
522: p_count => x_msg_count,
523: p_data => x_msg_data);
516: -- End Changes by rbhavsar on Nov 27, 2007 for ER 5854712
517:
518: EXCEPTION
519: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
520: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
521: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
522: p_count => x_msg_count,
523: p_data => x_msg_data);
524:
517:
518: EXCEPTION
519: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
520: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
521: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
522: p_count => x_msg_count,
523: p_data => x_msg_data);
524:
525: WHEN FND_API.G_EXC_ERROR THEN
521: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
522: p_count => x_msg_count,
523: p_data => x_msg_data);
524:
525: WHEN FND_API.G_EXC_ERROR THEN
526: X_return_status := FND_API.G_RET_STS_ERROR;
527: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
528: p_count => x_msg_count,
529: p_data => X_msg_data);
522: p_count => x_msg_count,
523: p_data => x_msg_data);
524:
525: WHEN FND_API.G_EXC_ERROR THEN
526: X_return_status := FND_API.G_RET_STS_ERROR;
527: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
528: p_count => x_msg_count,
529: p_data => X_msg_data);
530:
523: p_data => x_msg_data);
524:
525: WHEN FND_API.G_EXC_ERROR THEN
526: X_return_status := FND_API.G_RET_STS_ERROR;
527: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
528: p_count => x_msg_count,
529: p_data => X_msg_data);
530:
531: WHEN OTHERS THEN
528: p_count => x_msg_count,
529: p_data => X_msg_data);
530:
531: WHEN OTHERS THEN
532: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
533: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
534: THEN
535: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_DEPT_SHIFTS_PUB',
536: p_procedure_name => 'VALIDATE_APPR_DEPT_SHIFT',
535: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_DEPT_SHIFTS_PUB',
536: p_procedure_name => 'VALIDATE_APPR_DEPT_SHIFT',
537: p_error_text => SUBSTR(SQLERRM,1,240));
538: END IF;
539: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
540: p_count => x_msg_count,
541: p_data => X_msg_data);
542:
543: END;
547: p_api_version IN NUMBER:= 1.0,
548: p_init_msg_list IN VARCHAR2,
549: p_commit IN VARCHAR2,
550: p_validation_level IN NUMBER,
551: p_default IN VARCHAR2 := FND_API.G_FALSE,
552: p_module_type IN VARCHAR2,
553: x_return_status OUT NOCOPY VARCHAR2,
554: x_msg_count OUT NOCOPY NUMBER,
555: x_msg_data OUT NOCOPY VARCHAR2,
562: l_api_version CONSTANT NUMBER := 1.0;
563: l_msg_count NUMBER:=0;
564: l_msg_data VARCHAR2(2000);
565: l_return_status VARCHAR2(1);
566: l_init_msg_list VARCHAR2(10):=FND_API.G_TRUE;
567: l_department_shifts_id number:=0;
568: l_object_version_number NUMBER;
569: l_check_flag VARCHAR2(1):='Y';
570: -- Added by rbhavsar on Nov 27, 2007 for ER 5854712
577: SAVEPOINT CREATE_APPR_DEPT_SHIFTS;
578:
579: -- Initialize message list if p_init_msg_list is set to TRUE.
580:
581: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
582: p_api_version,
583: l_api_name,G_PKG_NAME)
584: THEN
585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
581: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
582: p_api_version,
583: l_api_name,G_PKG_NAME)
584: THEN
585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
586: END IF;
587:
588: IF FND_API.to_boolean(l_init_msg_list) THEN
589: FND_MSG_PUB.initialize;
584: THEN
585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
586: END IF;
587:
588: IF FND_API.to_boolean(l_init_msg_list) THEN
589: FND_MSG_PUB.initialize;
590: END IF;
591:
592: x_return_status:=FND_API.G_RET_STS_SUCCESS;
588: IF FND_API.to_boolean(l_init_msg_list) THEN
589: FND_MSG_PUB.initialize;
590: END IF;
591:
592: x_return_status:=FND_API.G_RET_STS_SUCCESS;
593:
594:
595: IF p_module_type = 'JSP'
596: THEN
619: l_msg_count := FND_MSG_PUB.count_msg;
620: IF l_msg_count > 0
621: THEN
622: x_msg_count := l_msg_count;
623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
624: RAISE FND_API.G_EXC_ERROR;
625: END IF;
626:
627:
620: IF l_msg_count > 0
621: THEN
622: x_msg_count := l_msg_count;
623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
624: RAISE FND_API.G_EXC_ERROR;
625: END IF;
626:
627:
628: IF FND_API.to_boolean(p_default)
624: RAISE FND_API.G_EXC_ERROR;
625: END IF;
626:
627:
628: IF FND_API.to_boolean(p_default)
629: THEN
630: DEFAULT_MISSING_ATTRIBS
631: (
632: p_x_appr_deptshift_rec =>l_appr_deptshift_rec
632: p_x_appr_deptshift_rec =>l_appr_deptshift_rec
633: );
634: END IF;
635:
636: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL )
637: THEN
638:
639: VALIDATE_APPR_DEPT_SHIFT
640: (
651:
652: IF l_msg_count > 0
653: THEN
654: x_msg_count := l_msg_count;
655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
656: RAISE FND_API.G_EXC_ERROR;
657: END IF;
658:
659: -- insert process goes here
652: IF l_msg_count > 0
653: THEN
654: x_msg_count := l_msg_count;
655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
656: RAISE FND_API.G_EXC_ERROR;
657: END IF;
658:
659: -- insert process goes here
660: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
740: l_appr_deptshift_rec.ATTRIBUTE14,
741: l_appr_deptshift_rec.ATTRIBUTE15);
742: END IF;
743:
744: IF FND_API.TO_BOOLEAN(p_commit) THEN
745: COMMIT;
746: END IF;
747: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
748: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
748: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
749: END IF;
750:
751: EXCEPTION
752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
753: ROLLBACK TO CREATE_APPR_DEPT_SHIFTS;
754: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
755: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
756: p_count => x_msg_count,
750:
751: EXCEPTION
752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
753: ROLLBACK TO CREATE_APPR_DEPT_SHIFTS;
754: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
755: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
756: p_count => x_msg_count,
757: p_data => x_msg_data);
758: WHEN FND_API.G_EXC_ERROR THEN
751: EXCEPTION
752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
753: ROLLBACK TO CREATE_APPR_DEPT_SHIFTS;
754: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
755: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
756: p_count => x_msg_count,
757: p_data => x_msg_data);
758: WHEN FND_API.G_EXC_ERROR THEN
759: ROLLBACK TO CREATE_APPR_DEPT_SHIFTS;
754: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
755: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
756: p_count => x_msg_count,
757: p_data => x_msg_data);
758: WHEN FND_API.G_EXC_ERROR THEN
759: ROLLBACK TO CREATE_APPR_DEPT_SHIFTS;
760: X_return_status := FND_API.G_RET_STS_ERROR;
761: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
762: p_count => x_msg_count,
756: p_count => x_msg_count,
757: p_data => x_msg_data);
758: WHEN FND_API.G_EXC_ERROR THEN
759: ROLLBACK TO CREATE_APPR_DEPT_SHIFTS;
760: X_return_status := FND_API.G_RET_STS_ERROR;
761: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
762: p_count => x_msg_count,
763: p_data => X_msg_data);
764: WHEN OTHERS THEN
757: p_data => x_msg_data);
758: WHEN FND_API.G_EXC_ERROR THEN
759: ROLLBACK TO CREATE_APPR_DEPT_SHIFTS;
760: X_return_status := FND_API.G_RET_STS_ERROR;
761: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
762: p_count => x_msg_count,
763: p_data => X_msg_data);
764: WHEN OTHERS THEN
765: ROLLBACK TO CREATE_APPR_DEPT_SHIFTS;
762: p_count => x_msg_count,
763: p_data => X_msg_data);
764: WHEN OTHERS THEN
765: ROLLBACK TO CREATE_APPR_DEPT_SHIFTS;
766: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
767: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
768: THEN
769: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_DEPT_SHIFTS_PUB',
770: p_procedure_name => 'CREATE_APPR_DEPT_SHIFTS',
770: p_procedure_name => 'CREATE_APPR_DEPT_SHIFTS',
771: p_error_text => SUBSTR(SQLERRM,1,240));
772:
773: END IF;
774: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
775: p_count => x_msg_count,
776: p_data => X_msg_data);
777: END;
778:
781: p_api_version IN NUMBER:= 1.0,
782: p_init_msg_list IN VARCHAR2,
783: p_commit IN VARCHAR2,
784: p_validation_level IN NUMBER,
785: p_default IN VARCHAR2 := FND_API.G_FALSE,
786: p_module_type IN VARCHAR2,
787: x_return_status OUT NOCOPY VARCHAR2,
788: x_msg_count OUT NOCOPY NUMBER,
789: x_msg_data OUT NOCOPY VARCHAR2,
797: l_num_rec NUMBER;
798: l_msg_count NUMBER;
799: l_msg_data VARCHAR2(2000);
800: l_return_status VARCHAR2(1);
801: l_init_msg_list VARCHAR2(10):=FND_API.G_TRUE;
802: l_department_shifts_id number:=0;
803: l_lookup_var varchar2(1);
804: l_object_version_number NUMBER;
805: l_check_flag VARCHAR2(1):='Y';
814: SAVEPOINT DELETE_DEPT_SHIFTS;
815:
816: -- Initialize message list if p_init_msg_list is set to TRUE.
817:
818: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
819: p_api_version,
820: l_api_name,G_PKG_NAME)
821: THEN
822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
818: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
819: p_api_version,
820: l_api_name,G_PKG_NAME)
821: THEN
822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
823: END IF;
824:
825:
826: IF FND_API.to_boolean(l_init_msg_list) THEN
822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
823: END IF;
824:
825:
826: IF FND_API.to_boolean(l_init_msg_list) THEN
827: FND_MSG_PUB.initialize;
828: END IF;
829:
830:
827: FND_MSG_PUB.initialize;
828: END IF;
829:
830:
831: x_return_status:=FND_API.G_RET_STS_SUCCESS;
832:
833:
834: IF p_module_type = 'JSP'
835: THEN
842:
843:
844:
845:
846: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL )
847: THEN
848: VALIDATE_APPR_DEPT_SHIFT
849: (
850: x_return_status =>x_return_Status,
857:
858: IF l_msg_count > 0
859: THEN
860: x_msg_count := l_msg_count;
861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
862: RAISE FND_API.G_EXC_ERROR;
863: END IF;
864:
865: -- DELETE GOES HERE
858: IF l_msg_count > 0
859: THEN
860: x_msg_count := l_msg_count;
861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
862: RAISE FND_API.G_EXC_ERROR;
863: END IF;
864:
865: -- DELETE GOES HERE
866:
875: FND_MSG_PUB.ADD;
876: END IF;
877: END IF;
878:
879: IF FND_API.TO_BOOLEAN(p_commit) THEN
880: COMMIT;
881: END IF;
882: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
883: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
883: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
884: END IF;
885:
886: EXCEPTION
887: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
888: ROLLBACK TO DELETE_DEPT_SHIFTS;
889: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
890: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
891: p_count => x_msg_count,
885:
886: EXCEPTION
887: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
888: ROLLBACK TO DELETE_DEPT_SHIFTS;
889: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
890: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
891: p_count => x_msg_count,
892: p_data => x_msg_data);
893: WHEN FND_API.G_EXC_ERROR THEN
886: EXCEPTION
887: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
888: ROLLBACK TO DELETE_DEPT_SHIFTS;
889: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
890: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
891: p_count => x_msg_count,
892: p_data => x_msg_data);
893: WHEN FND_API.G_EXC_ERROR THEN
894: ROLLBACK TO DELETE_DEPT_SHIFTS;
889: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
890: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
891: p_count => x_msg_count,
892: p_data => x_msg_data);
893: WHEN FND_API.G_EXC_ERROR THEN
894: ROLLBACK TO DELETE_DEPT_SHIFTS;
895: X_return_status := FND_API.G_RET_STS_ERROR;
896: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
897: p_count => x_msg_count,
891: p_count => x_msg_count,
892: p_data => x_msg_data);
893: WHEN FND_API.G_EXC_ERROR THEN
894: ROLLBACK TO DELETE_DEPT_SHIFTS;
895: X_return_status := FND_API.G_RET_STS_ERROR;
896: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
897: p_count => x_msg_count,
898: p_data => X_msg_data);
899:
892: p_data => x_msg_data);
893: WHEN FND_API.G_EXC_ERROR THEN
894: ROLLBACK TO DELETE_DEPT_SHIFTS;
895: X_return_status := FND_API.G_RET_STS_ERROR;
896: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
897: p_count => x_msg_count,
898: p_data => X_msg_data);
899:
900: WHEN OTHERS THEN
898: p_data => X_msg_data);
899:
900: WHEN OTHERS THEN
901: ROLLBACK TO DELETE_DEPT_SHIFTS;
902: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
903: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
904: THEN
905: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_DEPT_SHIFTS_PUB',
906: p_procedure_name => 'CREATE_APPR_DEPT_SHIFTS',
906: p_procedure_name => 'CREATE_APPR_DEPT_SHIFTS',
907: p_error_text => SUBSTR(SQLERRM,1,240));
908:
909: END IF;
910: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
911: p_count => x_msg_count,
912: p_data => X_msg_data);
913: END;
914: