50: THEN
51: CLOSE c_lock;
52: fnd_message.set_name ('JTF', 'JTF_CAL_RECORD_DELETED');
53: fnd_msg_pub.add;
54: RAISE fnd_api.g_exc_unexpected_error;
55: END IF;
56:
57: /***************************************************************************
58: ** If the object version number has changed, the record has changed:
63: IF (l_object_version_number <> p_object_version_number)
64: THEN
65: fnd_message.set_name ('JTF', 'JTF_CAL_RECORD_CHANGED');
66: fnd_msg_pub.add;
67: RAISE fnd_api.g_exc_unexpected_error;
68: END IF;
69: END Lock_Row;
70:
71: --------------------------------------------------------------------------
96: -- End of comments
97: --------------------------------------------------------------------------
98: PROCEDURE Insert_Row
99: ( p_api_version IN NUMBER
100: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
101: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
102: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
103: , x_return_status OUT VARCHAR2
104: , x_msg_count OUT NUMBER
97: --------------------------------------------------------------------------
98: PROCEDURE Insert_Row
99: ( p_api_version IN NUMBER
100: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
101: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
102: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
103: , x_return_status OUT VARCHAR2
104: , x_msg_count OUT NUMBER
105: , x_msg_data OUT VARCHAR2
98: PROCEDURE Insert_Row
99: ( p_api_version IN NUMBER
100: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
101: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
102: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
103: , x_return_status OUT VARCHAR2
104: , x_msg_count OUT NUMBER
105: , x_msg_data OUT VARCHAR2
106: , p_adr_rec IN AddrRec
129:
130: --
131: -- Standard call to check for call compatibility
132: --
133: IF NOT FND_API.Compatible_API_Call( l_api_version
134: , p_api_version
135: , l_api_name
136: , G_PKG_NAME
137: )
135: , l_api_name
136: , G_PKG_NAME
137: )
138: THEN
139: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
140: END IF;
141:
142: --
143: -- Initialize message list if p_init_msg_list is set to TRUE
141:
142: --
143: -- Initialize message list if p_init_msg_list is set to TRUE
144: --
145: IF FND_API.To_Boolean(p_init_msg_list)
146: THEN
147: FND_MSG_PUB.Initialize;
148: END IF;
149:
149:
150: --
151: -- Initialize API return status to success
152: --
153: x_return_status := FND_API.G_RET_STS_SUCCESS;
154:
155: ------------------------------------------------------------------------
156: -- Insert into table. Generate the ID from the
157: -- sequence and return it
261:
262: --
263: -- Standard check of p_commit
264: --
265: IF FND_API.To_Boolean(p_commit)
266: THEN
267: COMMIT WORK;
268: END IF;
269:
274: , p_data => x_msg_data
275: );
276:
277: EXCEPTION
278: WHEN FND_API.G_EXC_ERROR
279: THEN
280: ROLLBACK TO Create_Address_PVT;
281: x_return_status := FND_API.G_RET_STS_ERROR;
282: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
277: EXCEPTION
278: WHEN FND_API.G_EXC_ERROR
279: THEN
280: ROLLBACK TO Create_Address_PVT;
281: x_return_status := FND_API.G_RET_STS_ERROR;
282: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
283: , p_data => x_msg_data
284: );
285:
282: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
283: , p_data => x_msg_data
284: );
285:
286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
287: THEN
288: ROLLBACK TO Create_Address_PVT;
289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
290: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
285:
286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
287: THEN
288: ROLLBACK TO Create_Address_PVT;
289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
290: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
291: , p_data => x_msg_data
292: );
293: WHEN OTHERS
292: );
293: WHEN OTHERS
294: THEN
295: ROLLBACK TO Create_Address_PVT;
296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
297: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
298: THEN
299: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
300: , l_api_name
335: -- End of comments
336: --------------------------------------------------------------------------
337: PROCEDURE Update_Row
338: ( p_api_version IN NUMBER
339: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
340: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
341: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
342: , x_return_status OUT VARCHAR2
343: , x_msg_count OUT NUMBER
336: --------------------------------------------------------------------------
337: PROCEDURE Update_Row
338: ( p_api_version IN NUMBER
339: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
340: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
341: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
342: , x_return_status OUT VARCHAR2
343: , x_msg_count OUT NUMBER
344: , x_msg_data OUT VARCHAR2
337: PROCEDURE Update_Row
338: ( p_api_version IN NUMBER
339: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
340: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
341: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
342: , x_return_status OUT VARCHAR2
343: , x_msg_count OUT NUMBER
344: , x_msg_data OUT VARCHAR2
345: , p_adr_rec IN AddrRec
358: -- Standard start of API savepoint
359: SAVEPOINT Update_Address_PVT;
360:
361: -- Standard call to check for call compatibility
362: IF NOT FND_API.Compatible_API_Call( l_api_version
363: , p_api_version
364: , l_api_name
365: , G_PKG_NAME
366: )
364: , l_api_name
365: , G_PKG_NAME
366: )
367: THEN
368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
369: END IF;
370:
371: -- Initialize message list if p_init_msg_list is set to TRUE
372: IF FND_API.To_Boolean(p_init_msg_list)
368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
369: END IF;
370:
371: -- Initialize message list if p_init_msg_list is set to TRUE
372: IF FND_API.To_Boolean(p_init_msg_list)
373: THEN
374: FND_MSG_PUB.Initialize;
375: END IF;
376:
374: FND_MSG_PUB.Initialize;
375: END IF;
376:
377: -- Initialize API return status to success
378: x_return_status := FND_API.G_RET_STS_SUCCESS;
379:
380: -- Try to lock the row before updating it
381: Lock_Row( p_adr_rec.address_id
382: , p_adr_rec.object_version_number
435:
436: --
437: -- Standard check of p_commit
438: --
439: IF FND_API.To_Boolean(p_commit)
440: THEN
441: COMMIT WORK;
442: END IF;
443:
453: , p_data => x_msg_data
454: );
455:
456: EXCEPTION
457: WHEN FND_API.G_EXC_ERROR
458: THEN
459: ROLLBACK TO Update_Address_PVT;
460: x_return_status := FND_API.G_RET_STS_ERROR;
461: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
456: EXCEPTION
457: WHEN FND_API.G_EXC_ERROR
458: THEN
459: ROLLBACK TO Update_Address_PVT;
460: x_return_status := FND_API.G_RET_STS_ERROR;
461: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
462: , p_data => x_msg_data
463: );
464:
461: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
462: , p_data => x_msg_data
463: );
464:
465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
466: THEN
467: ROLLBACK TO Update_Address_PVT;
468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
469: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
464:
465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
466: THEN
467: ROLLBACK TO Update_Address_PVT;
468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
469: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
470: , p_data => x_msg_data
471: );
472:
472:
473: WHEN OTHERS
474: THEN
475: ROLLBACK TO Update_Address_PVT;
476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
477: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
478: THEN
479: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
480: , l_api_name
516: -- End of comments
517: --------------------------------------------------------------------------
518: PROCEDURE Delete_Row
519: ( p_api_version IN NUMBER
520: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
521: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
522: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
523: , x_return_status OUT VARCHAR2
524: , x_msg_count OUT NUMBER
517: --------------------------------------------------------------------------
518: PROCEDURE Delete_Row
519: ( p_api_version IN NUMBER
520: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
521: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
522: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
523: , x_return_status OUT VARCHAR2
524: , x_msg_count OUT NUMBER
525: , x_msg_data OUT VARCHAR2
518: PROCEDURE Delete_Row
519: ( p_api_version IN NUMBER
520: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
521: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
522: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
523: , x_return_status OUT VARCHAR2
524: , x_msg_count OUT NUMBER
525: , x_msg_data OUT VARCHAR2
526: , p_address_id IN NUMBER
541:
542: --
543: -- Check version number
544: --
545: IF NOT FND_API.Compatible_API_Call( l_api_version
546: , p_api_version
547: , l_api_name
548: , G_PKG_NAME
549: )
547: , l_api_name
548: , G_PKG_NAME
549: )
550: THEN
551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
552: END IF;
553:
554: --
555: -- Initialize message list if requested
553:
554: --
555: -- Initialize message list if requested
556: --
557: IF FND_API.to_Boolean( p_init_msg_list )
558: THEN
559: FND_MSG_PUB.initialize;
560: END IF;
561:
576: THEN
577: RAISE NO_DATA_FOUND;
578: END IF;
579:
580: IF FND_API.To_Boolean( p_commit )
581: THEN
582: COMMIT WORK;
583: END IF;
584:
584:
585: --
586: -- Initialize return status to SUCCESS
587: --
588: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
589:
590:
591: FND_MSG_PUB.Count_And_Get( p_count => X_MSG_COUNT
592: , p_data => X_MSG_DATA
592: , p_data => X_MSG_DATA
593: );
594:
595: EXCEPTION
596: WHEN FND_API.G_EXC_ERROR
597: THEN
598: ROLLBACK TO Delete_ExpressionLine_PVT;
599: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
600: FND_MSG_PUB.Count_And_Get( p_count => X_MSG_COUNT
595: EXCEPTION
596: WHEN FND_API.G_EXC_ERROR
597: THEN
598: ROLLBACK TO Delete_ExpressionLine_PVT;
599: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
600: FND_MSG_PUB.Count_And_Get( p_count => X_MSG_COUNT
601: , p_data => X_MSG_DATA
602: );
603:
600: FND_MSG_PUB.Count_And_Get( p_count => X_MSG_COUNT
601: , p_data => X_MSG_DATA
602: );
603:
604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
605: THEN
606: ROLLBACK TO Delete_ExpressionLine_PVT;
607: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
608: FND_MSG_PUB.Count_And_Get( p_count => X_MSG_COUNT
603:
604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
605: THEN
606: ROLLBACK TO Delete_ExpressionLine_PVT;
607: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
608: FND_MSG_PUB.Count_And_Get( p_count => X_MSG_COUNT
609: , p_data => X_MSG_DATA
610: );
611:
611:
612: WHEN OTHERS
613: THEN
614: ROLLBACK TO Delete_ExpressionLine_PVT;
615: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
616: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
617: THEN
618: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
619: , l_api_name