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
134: END IF;
135: -- End Changes by rbhavsar on Nov 27, 2007 for ER 5854712
136:
137: -- Added by sansatpa for nr analysis
138: IF p_x_appr_deptshift_rec.MAX_SERVICE_CATEGORY = FND_API.G_MISS_NUM
139: THEN
140: p_x_appr_deptshift_rec.MAX_SERVICE_CATEGORY := NULL;
141: END IF;
142:
139: THEN
140: p_x_appr_deptshift_rec.MAX_SERVICE_CATEGORY := NULL;
141: END IF;
142:
143: IF p_x_appr_deptshift_rec.DESCRIPTION = FND_API.G_MISS_CHAR
144: THEN
145: p_x_appr_deptshift_rec.DESCRIPTION := NULL;
146: END IF;
147:
216: BEGIN
217: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
218: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure.');
219: END IF;
220: x_return_status:=FND_API.G_RET_STS_SUCCESS;
221: IF p_x_appr_deptshift_rec.ORGANIZATION_NAME IS NULL OR p_x_appr_deptshift_rec.ORGANIZATION_NAME=FND_API.G_MISS_CHAR
222: THEN
223: FND_MESSAGE.SET_NAME('AHL','AHL_APPR_ORG_NAME_NULL');
224: FND_MSG_PUB.ADD;
217: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
218: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure.');
219: END IF;
220: x_return_status:=FND_API.G_RET_STS_SUCCESS;
221: IF p_x_appr_deptshift_rec.ORGANIZATION_NAME IS NULL OR p_x_appr_deptshift_rec.ORGANIZATION_NAME=FND_API.G_MISS_CHAR
222: THEN
223: FND_MESSAGE.SET_NAME('AHL','AHL_APPR_ORG_NAME_NULL');
224: FND_MSG_PUB.ADD;
225: l_check_flag:='N';
236: CLOSE get_org_id;
237: END IF;
238:
239: l_check_flag:='N';
240: IF p_x_appr_deptshift_rec.DEPT_DESCRIPTION IS NULL OR p_x_appr_deptshift_rec.DEPT_DESCRIPTION=FND_API.G_MISS_CHAR
241: THEN
242: FND_MESSAGE.SET_NAME('AHL','AHL_APPR_DEPT_NAME_NULL');
243: FND_MSG_PUB.ADD;
244: l_check_flag:='N';
260: END IF;
261:
262:
263: l_check_flag:='N';
264: IF p_x_appr_deptshift_rec.CALENDAR_DESCRIPTION IS NULL OR p_x_appr_deptshift_rec.CALENDAR_DESCRIPTION=FND_API.G_MISS_CHAR
265: THEN
266: FND_MESSAGE.SET_NAME('AHL','AHL_APPR_CALENDER_NAME_NULL');
267: FND_MSG_PUB.ADD;
268: l_check_flag:='N';
287: END IF;
288:
289:
290: l_check_flag:='N';
291: IF p_x_appr_deptshift_rec.SHIFT_NUM IS NULL OR p_x_appr_deptshift_rec.SHIFT_NUM=FND_API.G_MISS_NUM
292: THEN
293: FND_MESSAGE.SET_NAME('AHL','AHL_APPR_SHIFT_NUMBER_NULL');
294: FND_MSG_PUB.ADD;
295: l_check_flag:='N';
313: END IF;
314:
315:
316: l_check_flag:='N';
317: IF p_x_appr_deptshift_rec.SEQ_NAME IS NULL OR p_x_appr_deptshift_rec.SEQ_NAME=FND_API.G_MISS_CHAR
318: THEN
319: FND_MESSAGE.SET_NAME('AHL','AHL_APPR_WORK_DAYS_NULL');
320: FND_MSG_PUB.ADD;
321: l_check_flag:='N';
343: ', p_x_appr_deptshift_rec.INV_LOCATOR_ID = ' || p_x_appr_deptshift_rec.INV_LOCATOR_ID ||
344: ', p_x_appr_deptshift_rec.LOCATOR_SEGMENTS = ' || p_x_appr_deptshift_rec.LOCATOR_SEGMENTS);
345: END IF;
346: -- Convert G_MISS to NULL since this API is called only for creating
347: IF (p_x_appr_deptshift_rec.SUBINVENTORY = FND_API.G_MISS_CHAR) THEN
348: p_x_appr_deptshift_rec.SUBINVENTORY := NULL;
349: END IF;
350: IF (p_x_appr_deptshift_rec.LOCATOR_SEGMENTS = FND_API.G_MISS_CHAR) THEN
351: p_x_appr_deptshift_rec.LOCATOR_SEGMENTS := NULL;
346: -- Convert G_MISS to NULL since this API is called only for creating
347: IF (p_x_appr_deptshift_rec.SUBINVENTORY = FND_API.G_MISS_CHAR) THEN
348: p_x_appr_deptshift_rec.SUBINVENTORY := NULL;
349: END IF;
350: IF (p_x_appr_deptshift_rec.LOCATOR_SEGMENTS = FND_API.G_MISS_CHAR) THEN
351: p_x_appr_deptshift_rec.LOCATOR_SEGMENTS := NULL;
352: END IF;
353: IF (p_x_appr_deptshift_rec.INV_LOCATOR_ID = FND_API.G_MISS_NUM) THEN
354: p_x_appr_deptshift_rec.INV_LOCATOR_ID := NULL;
349: END IF;
350: IF (p_x_appr_deptshift_rec.LOCATOR_SEGMENTS = FND_API.G_MISS_CHAR) THEN
351: p_x_appr_deptshift_rec.LOCATOR_SEGMENTS := NULL;
352: END IF;
353: IF (p_x_appr_deptshift_rec.INV_LOCATOR_ID = FND_API.G_MISS_NUM) THEN
354: p_x_appr_deptshift_rec.INV_LOCATOR_ID := NULL;
355: END IF;
356: IF (l_check_flag = 'Y' AND
357: p_x_appr_deptshift_rec.ORGANIZATION_ID IS NOT NULL AND
376: END IF;
377: -- End Changes by rbhavsar on Nov 27, 2007 for ER 5854712
378:
379: EXCEPTION
380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
381: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
382: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
383: p_count => x_msg_count,
384: p_data => x_msg_data);
377: -- End Changes by rbhavsar on Nov 27, 2007 for ER 5854712
378:
379: EXCEPTION
380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
381: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
382: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
383: p_count => x_msg_count,
384: p_data => x_msg_data);
385:
378:
379: EXCEPTION
380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
381: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
382: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
383: p_count => x_msg_count,
384: p_data => x_msg_data);
385:
386: WHEN FND_API.G_EXC_ERROR THEN
382: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
383: p_count => x_msg_count,
384: p_data => x_msg_data);
385:
386: WHEN FND_API.G_EXC_ERROR THEN
387: X_return_status := FND_API.G_RET_STS_ERROR;
388: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
389: p_count => x_msg_count,
390: p_data => X_msg_data);
383: p_count => x_msg_count,
384: p_data => x_msg_data);
385:
386: WHEN FND_API.G_EXC_ERROR THEN
387: X_return_status := FND_API.G_RET_STS_ERROR;
388: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
389: p_count => x_msg_count,
390: p_data => X_msg_data);
391: WHEN OTHERS THEN
384: p_data => x_msg_data);
385:
386: WHEN FND_API.G_EXC_ERROR THEN
387: X_return_status := FND_API.G_RET_STS_ERROR;
388: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
389: p_count => x_msg_count,
390: p_data => X_msg_data);
391: WHEN OTHERS THEN
392: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
388: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
389: p_count => x_msg_count,
390: p_data => X_msg_data);
391: WHEN OTHERS THEN
392: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
393: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
394: THEN
395: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_DEPT_SHIFTS_PUB',
396: p_procedure_name => 'TRANSLATE_VALUE_ID',
395: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_DEPT_SHIFTS_PUB',
396: p_procedure_name => 'TRANSLATE_VALUE_ID',
397: p_error_text => SUBSTR(SQLERRM,1,240));
398: END IF;
399: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
400: p_count => x_msg_count,
401: p_data => x_msg_data);
402: END;
403:
438: BEGIN
439: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
440: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure.');
441: END IF;
442: x_return_status:=FND_API.G_RET_STS_SUCCESS;
443:
444: IF p_appr_deptshift_rec.DML_OPERATION='C' or p_appr_deptshift_rec.DML_OPERATION='U' THEN
445: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
446: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
454: end if;
455:
456: IF p_appr_deptshift_rec.DML_OPERATION='D'
457: THEN
458: IF p_appr_deptshift_rec.OBJECT_VERSION_NUMBER IS NULL OR p_appr_deptshift_rec.OBJECT_VERSION_NUMBER=FND_API.G_MISS_NUM
459: THEN
460: FND_MESSAGE.SET_NAME('AHL','AHL_COM_OBJECT_VERS_NUM_NULL');
461: FND_MSG_PUB.ADD;
462: END IF;
460: FND_MESSAGE.SET_NAME('AHL','AHL_COM_OBJECT_VERS_NUM_NULL');
461: FND_MSG_PUB.ADD;
462: END IF;
463:
464: 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
465: THEN
466: FND_MESSAGE.SET_NAME('AHL','AHL_DEPARTMENT_SHIFTS_ID_NULL');
467: FND_MSG_PUB.ADD;
468: ELSE
499: CLOSE validate_subinventory;
500: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INVALID_SUBINVENTORY');
501: FND_MESSAGE.Set_Token('INV', p_appr_deptshift_rec.SUBINVENTORY);
502: FND_MSG_PUB.ADD;
503: RAISE FND_API.G_EXC_ERROR;
504: ELSE
505: 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
506: CLOSE validate_subinventory;
507: FND_MESSAGE.SET_NAME('AHL', 'AHL_SUBINVENTORY_NOT_SVC');
506: CLOSE validate_subinventory;
507: FND_MESSAGE.SET_NAME('AHL', 'AHL_SUBINVENTORY_NOT_SVC');
508: FND_MESSAGE.Set_Token('INV', p_appr_deptshift_rec.SUBINVENTORY);
509: FND_MSG_PUB.ADD;
510: RAISE FND_API.G_EXC_ERROR;
511: END IF;
512: END IF;
513: CLOSE validate_subinventory;
514: END IF;
516: IF (p_appr_deptshift_rec.SUBINVENTORY IS NULL AND
517: (p_appr_deptshift_rec.INV_LOCATOR_ID IS NOT NULL OR p_appr_deptshift_rec.LOCATOR_SEGMENTS IS NOT NULL)) THEN
518: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_PC_SUBINV_MANDATORY');
519: FND_MSG_PUB.ADD;
520: RAISE FND_API.G_EXC_ERROR;
521: END IF;
522:
523: IF (p_appr_deptshift_rec.INV_LOCATOR_ID IS NOT NULL) THEN
524: OPEN validate_inv_loc_id(C_ORGANIZATION_ID => p_appr_deptshift_rec.ORGANIZATION_ID,
529: CLOSE validate_inv_loc_id;
530: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INVALID_LOCATOR');
531: FND_MESSAGE.Set_Token('LOC', p_appr_deptshift_rec.INV_LOCATOR_ID);
532: FND_MSG_PUB.ADD;
533: RAISE FND_API.G_EXC_ERROR;
534: END IF;
535: CLOSE validate_inv_loc_id;
536: END IF;
537: END IF; -- DML_OPERATION='C'
541: END IF;
542: -- End Changes by rbhavsar on Nov 27, 2007 for ER 5854712
543:
544: EXCEPTION
545: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
546: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
547: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
548: p_count => x_msg_count,
549: p_data => x_msg_data);
542: -- End Changes by rbhavsar on Nov 27, 2007 for ER 5854712
543:
544: EXCEPTION
545: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
546: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
547: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
548: p_count => x_msg_count,
549: p_data => x_msg_data);
550:
543:
544: EXCEPTION
545: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
546: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
547: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
548: p_count => x_msg_count,
549: p_data => x_msg_data);
550:
551: WHEN FND_API.G_EXC_ERROR THEN
547: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
548: p_count => x_msg_count,
549: p_data => x_msg_data);
550:
551: WHEN FND_API.G_EXC_ERROR THEN
552: X_return_status := FND_API.G_RET_STS_ERROR;
553: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
554: p_count => x_msg_count,
555: p_data => X_msg_data);
548: p_count => x_msg_count,
549: p_data => x_msg_data);
550:
551: WHEN FND_API.G_EXC_ERROR THEN
552: X_return_status := FND_API.G_RET_STS_ERROR;
553: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
554: p_count => x_msg_count,
555: p_data => X_msg_data);
556:
549: p_data => x_msg_data);
550:
551: WHEN FND_API.G_EXC_ERROR THEN
552: X_return_status := FND_API.G_RET_STS_ERROR;
553: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
554: p_count => x_msg_count,
555: p_data => X_msg_data);
556:
557: WHEN OTHERS THEN
554: p_count => x_msg_count,
555: p_data => X_msg_data);
556:
557: WHEN OTHERS THEN
558: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
559: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
560: THEN
561: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_DEPT_SHIFTS_PUB',
562: p_procedure_name => 'VALIDATE_APPR_DEPT_SHIFT',
561: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_DEPT_SHIFTS_PUB',
562: p_procedure_name => 'VALIDATE_APPR_DEPT_SHIFT',
563: p_error_text => SUBSTR(SQLERRM,1,240));
564: END IF;
565: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
566: p_count => x_msg_count,
567: p_data => X_msg_data);
568:
569: END;
573: p_api_version IN NUMBER:= 1.0,
574: p_init_msg_list IN VARCHAR2,
575: p_commit IN VARCHAR2,
576: p_validation_level IN NUMBER,
577: p_default IN VARCHAR2 := FND_API.G_FALSE,
578: p_module_type IN VARCHAR2,
579: x_return_status OUT NOCOPY VARCHAR2,
580: x_msg_count OUT NOCOPY NUMBER,
581: x_msg_data OUT NOCOPY VARCHAR2,
588: l_api_version CONSTANT NUMBER := 1.0;
589: l_msg_count NUMBER:=0;
590: l_msg_data VARCHAR2(2000);
591: l_return_status VARCHAR2(1);
592: l_init_msg_list VARCHAR2(10):=FND_API.G_TRUE;
593: l_department_shifts_id number:=0;
594: l_object_version_number NUMBER;
595: l_check_flag VARCHAR2(1):='Y';
596: -- Added by rbhavsar on Nov 27, 2007 for ER 5854712
603: SAVEPOINT CREATE_APPR_DEPT_SHIFTS;
604:
605: -- Initialize message list if p_init_msg_list is set to TRUE.
606:
607: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
608: p_api_version,
609: l_api_name,G_PKG_NAME)
610: THEN
611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
607: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
608: p_api_version,
609: l_api_name,G_PKG_NAME)
610: THEN
611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
612: END IF;
613:
614: IF FND_API.to_boolean(l_init_msg_list) THEN
615: FND_MSG_PUB.initialize;
610: THEN
611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
612: END IF;
613:
614: IF FND_API.to_boolean(l_init_msg_list) THEN
615: FND_MSG_PUB.initialize;
616: END IF;
617:
618: x_return_status:=FND_API.G_RET_STS_SUCCESS;
614: IF FND_API.to_boolean(l_init_msg_list) THEN
615: FND_MSG_PUB.initialize;
616: END IF;
617:
618: x_return_status:=FND_API.G_RET_STS_SUCCESS;
619:
620:
621: IF p_module_type = 'JSP'
622: THEN
645: l_msg_count := FND_MSG_PUB.count_msg;
646: IF l_msg_count > 0
647: THEN
648: x_msg_count := l_msg_count;
649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
650: RAISE FND_API.G_EXC_ERROR;
651: END IF;
652:
653:
646: IF l_msg_count > 0
647: THEN
648: x_msg_count := l_msg_count;
649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
650: RAISE FND_API.G_EXC_ERROR;
651: END IF;
652:
653:
654: IF FND_API.to_boolean(p_default)
650: RAISE FND_API.G_EXC_ERROR;
651: END IF;
652:
653:
654: IF FND_API.to_boolean(p_default)
655: THEN
656: DEFAULT_MISSING_ATTRIBS
657: (
658: p_x_appr_deptshift_rec =>l_appr_deptshift_rec
658: p_x_appr_deptshift_rec =>l_appr_deptshift_rec
659: );
660: END IF;
661:
662: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL )
663: THEN
664:
665: VALIDATE_APPR_DEPT_SHIFT
666: (
677:
678: IF l_msg_count > 0
679: THEN
680: x_msg_count := l_msg_count;
681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
682: RAISE FND_API.G_EXC_ERROR;
683: END IF;
684:
685: -- insert process goes here
678: IF l_msg_count > 0
679: THEN
680: x_msg_count := l_msg_count;
681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
682: RAISE FND_API.G_EXC_ERROR;
683: END IF;
684:
685: -- insert process goes here
686: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
786: ' DESCRIPTION = ' || p_x_appr_deptshift_rec.DESCRIPTION);
787: END IF;
788: END IF;
789:
790: IF FND_API.TO_BOOLEAN(p_commit) THEN
791: COMMIT;
792: END IF;
793: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
794: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
794: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
795: END IF;
796:
797: EXCEPTION
798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
799: ROLLBACK TO CREATE_APPR_DEPT_SHIFTS;
800: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
801: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
802: p_count => x_msg_count,
796:
797: EXCEPTION
798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
799: ROLLBACK TO CREATE_APPR_DEPT_SHIFTS;
800: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
801: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
802: p_count => x_msg_count,
803: p_data => x_msg_data);
804: WHEN FND_API.G_EXC_ERROR THEN
797: EXCEPTION
798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
799: ROLLBACK TO CREATE_APPR_DEPT_SHIFTS;
800: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
801: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
802: p_count => x_msg_count,
803: p_data => x_msg_data);
804: WHEN FND_API.G_EXC_ERROR THEN
805: ROLLBACK TO CREATE_APPR_DEPT_SHIFTS;
800: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
801: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
802: p_count => x_msg_count,
803: p_data => x_msg_data);
804: WHEN FND_API.G_EXC_ERROR THEN
805: ROLLBACK TO CREATE_APPR_DEPT_SHIFTS;
806: X_return_status := FND_API.G_RET_STS_ERROR;
807: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
808: p_count => x_msg_count,
802: p_count => x_msg_count,
803: p_data => x_msg_data);
804: WHEN FND_API.G_EXC_ERROR THEN
805: ROLLBACK TO CREATE_APPR_DEPT_SHIFTS;
806: X_return_status := FND_API.G_RET_STS_ERROR;
807: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
808: p_count => x_msg_count,
809: p_data => X_msg_data);
810: WHEN OTHERS THEN
803: p_data => x_msg_data);
804: WHEN FND_API.G_EXC_ERROR THEN
805: ROLLBACK TO CREATE_APPR_DEPT_SHIFTS;
806: X_return_status := FND_API.G_RET_STS_ERROR;
807: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
808: p_count => x_msg_count,
809: p_data => X_msg_data);
810: WHEN OTHERS THEN
811: ROLLBACK TO CREATE_APPR_DEPT_SHIFTS;
808: p_count => x_msg_count,
809: p_data => X_msg_data);
810: WHEN OTHERS THEN
811: ROLLBACK TO CREATE_APPR_DEPT_SHIFTS;
812: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
813: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
814: THEN
815: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_DEPT_SHIFTS_PUB',
816: p_procedure_name => 'CREATE_APPR_DEPT_SHIFTS',
816: p_procedure_name => 'CREATE_APPR_DEPT_SHIFTS',
817: p_error_text => SUBSTR(SQLERRM,1,240));
818:
819: END IF;
820: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
821: p_count => x_msg_count,
822: p_data => X_msg_data);
823: END;
824:
827: p_api_version IN NUMBER:= 1.0,
828: p_init_msg_list IN VARCHAR2,
829: p_commit IN VARCHAR2,
830: p_validation_level IN NUMBER,
831: p_default IN VARCHAR2 := FND_API.G_FALSE,
832: p_module_type IN VARCHAR2,
833: x_return_status OUT NOCOPY VARCHAR2,
834: x_msg_count OUT NOCOPY NUMBER,
835: x_msg_data OUT NOCOPY VARCHAR2,
843: l_num_rec NUMBER;
844: l_msg_count NUMBER;
845: l_msg_data VARCHAR2(2000);
846: l_return_status VARCHAR2(1);
847: l_init_msg_list VARCHAR2(10):=FND_API.G_TRUE;
848: l_department_shifts_id number:=0;
849: l_lookup_var varchar2(1);
850: l_object_version_number NUMBER;
851: l_check_flag VARCHAR2(1):='Y';
860: SAVEPOINT DELETE_DEPT_SHIFTS;
861:
862: -- Initialize message list if p_init_msg_list is set to TRUE.
863:
864: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
865: p_api_version,
866: l_api_name,G_PKG_NAME)
867: THEN
868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
864: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
865: p_api_version,
866: l_api_name,G_PKG_NAME)
867: THEN
868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
869: END IF;
870:
871:
872: IF FND_API.to_boolean(l_init_msg_list) THEN
868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
869: END IF;
870:
871:
872: IF FND_API.to_boolean(l_init_msg_list) THEN
873: FND_MSG_PUB.initialize;
874: END IF;
875:
876:
873: FND_MSG_PUB.initialize;
874: END IF;
875:
876:
877: x_return_status:=FND_API.G_RET_STS_SUCCESS;
878:
879:
880: IF p_module_type = 'JSP'
881: THEN
888:
889:
890:
891:
892: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL )
893: THEN
894: VALIDATE_APPR_DEPT_SHIFT
895: (
896: x_return_status =>x_return_Status,
903:
904: IF l_msg_count > 0
905: THEN
906: x_msg_count := l_msg_count;
907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
908: RAISE FND_API.G_EXC_ERROR;
909: END IF;
910:
911: -- DELETE GOES HERE
904: IF l_msg_count > 0
905: THEN
906: x_msg_count := l_msg_count;
907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
908: RAISE FND_API.G_EXC_ERROR;
909: END IF;
910:
911: -- DELETE GOES HERE
912:
921: FND_MSG_PUB.ADD;
922: END IF;
923: END IF;
924:
925: IF FND_API.TO_BOOLEAN(p_commit) THEN
926: COMMIT;
927: END IF;
928: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
929: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
929: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
930: END IF;
931:
932: EXCEPTION
933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
934: ROLLBACK TO DELETE_DEPT_SHIFTS;
935: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
936: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
937: p_count => x_msg_count,
931:
932: EXCEPTION
933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
934: ROLLBACK TO DELETE_DEPT_SHIFTS;
935: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
936: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
937: p_count => x_msg_count,
938: p_data => x_msg_data);
939: WHEN FND_API.G_EXC_ERROR THEN
932: EXCEPTION
933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
934: ROLLBACK TO DELETE_DEPT_SHIFTS;
935: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
936: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
937: p_count => x_msg_count,
938: p_data => x_msg_data);
939: WHEN FND_API.G_EXC_ERROR THEN
940: ROLLBACK TO DELETE_DEPT_SHIFTS;
935: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
936: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
937: p_count => x_msg_count,
938: p_data => x_msg_data);
939: WHEN FND_API.G_EXC_ERROR THEN
940: ROLLBACK TO DELETE_DEPT_SHIFTS;
941: X_return_status := FND_API.G_RET_STS_ERROR;
942: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
943: p_count => x_msg_count,
937: p_count => x_msg_count,
938: p_data => x_msg_data);
939: WHEN FND_API.G_EXC_ERROR THEN
940: ROLLBACK TO DELETE_DEPT_SHIFTS;
941: X_return_status := FND_API.G_RET_STS_ERROR;
942: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
943: p_count => x_msg_count,
944: p_data => X_msg_data);
945:
938: p_data => x_msg_data);
939: WHEN FND_API.G_EXC_ERROR THEN
940: ROLLBACK TO DELETE_DEPT_SHIFTS;
941: X_return_status := FND_API.G_RET_STS_ERROR;
942: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
943: p_count => x_msg_count,
944: p_data => X_msg_data);
945:
946: WHEN OTHERS THEN
944: p_data => X_msg_data);
945:
946: WHEN OTHERS THEN
947: ROLLBACK TO DELETE_DEPT_SHIFTS;
948: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
949: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
950: THEN
951: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_DEPT_SHIFTS_PUB',
952: p_procedure_name => 'CREATE_APPR_DEPT_SHIFTS',
952: p_procedure_name => 'CREATE_APPR_DEPT_SHIFTS',
953: p_error_text => SUBSTR(SQLERRM,1,240));
954:
955: END IF;
956: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
957: p_count => x_msg_count,
958: p_data => X_msg_data);
959: END;
960:
964: p_api_version IN NUMBER:= 1.0,
965: p_init_msg_list IN VARCHAR2,
966: p_commit IN VARCHAR2,
967: p_validation_level IN NUMBER,
968: p_default IN VARCHAR2 := FND_API.G_FALSE,
969: p_module_type IN VARCHAR2,
970: x_return_status OUT NOCOPY VARCHAR2,
971: x_msg_count OUT NOCOPY NUMBER,
972: x_msg_data OUT NOCOPY VARCHAR2,
979: l_api_version CONSTANT NUMBER := 1.0;
980: l_msg_count NUMBER:=0;
981: l_msg_data VARCHAR2(2000);
982: l_return_status VARCHAR2(1);
983: l_init_msg_list VARCHAR2(10):=FND_API.G_TRUE;
984: l_department_shifts_id number:=0;
985: l_object_version_number NUMBER;
986: l_check_flag VARCHAR2(1):='Y';
987: -- Added by rbhavsar on Nov 27, 2007 for ER 5854712
994: SAVEPOINT EDIT_APPR_DEPT_SHIFTS;
995:
996: -- Initialize message list if p_init_msg_list is set to TRUE.
997:
998: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
999: p_api_version,
1000: l_api_name,G_PKG_NAME)
1001: THEN
1002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
998: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
999: p_api_version,
1000: l_api_name,G_PKG_NAME)
1001: THEN
1002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1003: END IF;
1004:
1005: IF FND_API.to_boolean(l_init_msg_list) THEN
1006: FND_MSG_PUB.initialize;
1001: THEN
1002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1003: END IF;
1004:
1005: IF FND_API.to_boolean(l_init_msg_list) THEN
1006: FND_MSG_PUB.initialize;
1007: END IF;
1008:
1009: x_return_status:=FND_API.G_RET_STS_SUCCESS;
1005: IF FND_API.to_boolean(l_init_msg_list) THEN
1006: FND_MSG_PUB.initialize;
1007: END IF;
1008:
1009: x_return_status:=FND_API.G_RET_STS_SUCCESS;
1010:
1011:
1012: IF p_module_type = 'JSP'
1013: THEN
1036: l_msg_count := FND_MSG_PUB.count_msg;
1037: IF l_msg_count > 0
1038: THEN
1039: x_msg_count := l_msg_count;
1040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1041: RAISE FND_API.G_EXC_ERROR;
1042: END IF;
1043:
1044:
1037: IF l_msg_count > 0
1038: THEN
1039: x_msg_count := l_msg_count;
1040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1041: RAISE FND_API.G_EXC_ERROR;
1042: END IF;
1043:
1044:
1045: IF FND_API.to_boolean(p_default)
1041: RAISE FND_API.G_EXC_ERROR;
1042: END IF;
1043:
1044:
1045: IF FND_API.to_boolean(p_default)
1046: THEN
1047: DEFAULT_MISSING_ATTRIBS
1048: (
1049: p_x_appr_deptshift_rec =>l_appr_deptshift_rec
1049: p_x_appr_deptshift_rec =>l_appr_deptshift_rec
1050: );
1051: END IF;
1052:
1053: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL )
1054: THEN
1055:
1056: VALIDATE_APPR_DEPT_SHIFT
1057: (
1068:
1069: IF l_msg_count > 0
1070: THEN
1071: x_msg_count := l_msg_count;
1072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1073: RAISE FND_API.G_EXC_ERROR;
1074: END IF;
1075:
1076: -- insert process goes here
1069: IF l_msg_count > 0
1070: THEN
1071: x_msg_count := l_msg_count;
1072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1073: RAISE FND_API.G_EXC_ERROR;
1074: END IF;
1075:
1076: -- insert process goes here
1077: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1132: --FND_MESSAGE.set_token( 'RECORD', get_record_identifier( l_appr_deptshift_rec ) );
1133: FND_MSG_PUB.add;
1134: END IF;
1135:
1136: IF FND_API.TO_BOOLEAN(p_commit) THEN
1137: COMMIT;
1138: END IF;
1139: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1140: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1140: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1141: END IF;
1142:
1143: EXCEPTION
1144: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1145: ROLLBACK TO EDIT_APPR_DEPT_SHIFTS;
1146: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1147: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1148: p_count => x_msg_count,
1142:
1143: EXCEPTION
1144: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1145: ROLLBACK TO EDIT_APPR_DEPT_SHIFTS;
1146: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1147: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1148: p_count => x_msg_count,
1149: p_data => x_msg_data);
1150: WHEN FND_API.G_EXC_ERROR THEN
1143: EXCEPTION
1144: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1145: ROLLBACK TO EDIT_APPR_DEPT_SHIFTS;
1146: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1147: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1148: p_count => x_msg_count,
1149: p_data => x_msg_data);
1150: WHEN FND_API.G_EXC_ERROR THEN
1151: ROLLBACK TO EDIT_APPR_DEPT_SHIFTS;
1146: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1147: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1148: p_count => x_msg_count,
1149: p_data => x_msg_data);
1150: WHEN FND_API.G_EXC_ERROR THEN
1151: ROLLBACK TO EDIT_APPR_DEPT_SHIFTS;
1152: X_return_status := FND_API.G_RET_STS_ERROR;
1153: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1154: p_count => x_msg_count,
1148: p_count => x_msg_count,
1149: p_data => x_msg_data);
1150: WHEN FND_API.G_EXC_ERROR THEN
1151: ROLLBACK TO EDIT_APPR_DEPT_SHIFTS;
1152: X_return_status := FND_API.G_RET_STS_ERROR;
1153: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1154: p_count => x_msg_count,
1155: p_data => X_msg_data);
1156: WHEN OTHERS THEN
1149: p_data => x_msg_data);
1150: WHEN FND_API.G_EXC_ERROR THEN
1151: ROLLBACK TO EDIT_APPR_DEPT_SHIFTS;
1152: X_return_status := FND_API.G_RET_STS_ERROR;
1153: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1154: p_count => x_msg_count,
1155: p_data => X_msg_data);
1156: WHEN OTHERS THEN
1157: ROLLBACK TO EDIT_APPR_DEPT_SHIFTS;
1154: p_count => x_msg_count,
1155: p_data => X_msg_data);
1156: WHEN OTHERS THEN
1157: ROLLBACK TO EDIT_APPR_DEPT_SHIFTS;
1158: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1159: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1160: THEN
1161: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_APPR_DEPT_SHIFTS_PUB',
1162: p_procedure_name => 'CREATE_APPR_DEPT_SHIFTS',
1162: p_procedure_name => 'CREATE_APPR_DEPT_SHIFTS',
1163: p_error_text => SUBSTR(SQLERRM,1,240));
1164:
1165: END IF;
1166: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1167: p_count => x_msg_count,
1168: p_data => X_msg_data);
1169: END;
1170: