[Home] [Help]
PACKAGE BODY: APPS.PV_K_REL_OBJS_PVT
Source
1 PACKAGE BODY PV_K_REL_OBJS_PVT AS
2 /* $Header: pvxvkrob.pls 115.2 2003/10/24 01:17:36 ktsao ship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30):= 'PV_K_REL_OBJS_PVT';
5
6 PV_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
7 PV_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
8 PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
9
10 PROCEDURE create_k_rel_obj(
11 p_api_version_number IN NUMBER,
12 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
13 x_return_status OUT NOCOPY VARCHAR2,
14 x_msg_count OUT NOCOPY NUMBER,
15 x_msg_data OUT NOCOPY VARCHAR2,
16 p_crj_rel_hdr_full_rec IN crj_rel_hdr_full_rec_type,
17 x_crj_rel_hdr_full_rec OUT NOCOPY crj_rel_hdr_full_rec_type)
18
19 IS
20 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
21 l_api_name CONSTANT VARCHAR2(30) := 'create_k_rel_obj';
22 l_api_version_number CONSTANT NUMBER := 1.0;
23 l_crj_rel_hdr_full_rec OKC_K_REL_OBJS_PUB.crj_rel_hdr_full_rec_type;
24 l_crj_rel_line_tbl OKC_K_REL_OBJS_PUB.crj_rel_line_tbl_type;
25 l_x_crj_rel_hdr_full_rec OKC_K_REL_OBJS_PUB.crj_rel_hdr_full_rec_type;
26 x_crj_rel_line_tbl OKC_K_REL_OBJS_PUB.crj_rel_line_tbl_type;
27
28 BEGIN
29
30 -- Standard call to check for call compatibility.
31 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
32 p_api_version_number,
33 l_api_name,
34 G_PKG_NAME)
35 THEN
36 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
37 END IF;
38
39
40 -- Initialize message list if p_init_msg_list is set to TRUE.
41 IF FND_API.to_Boolean( p_init_msg_list )
42 THEN
43 FND_MSG_PUB.initialize;
44 END IF;
45
46
47
48 -- Debug Message
49 IF (PV_DEBUG_HIGH_ON) THEN
50
51 PVX_Utility_PVT.debug_message('Private API: ' || l_api_name || 'start');
52 END IF;
53
54
55
56 -- Initialize API return status to SUCCESS
57 x_return_status := FND_API.G_RET_STS_SUCCESS;
58
59 l_crj_rel_hdr_full_rec.chr_id := p_crj_rel_hdr_full_rec.chr_id;
60 l_crj_rel_hdr_full_rec.object1_id1 := p_crj_rel_hdr_full_rec.object1_id1;
61 l_crj_rel_hdr_full_rec.object1_id2 := p_crj_rel_hdr_full_rec.object1_id2;
62 l_crj_rel_hdr_full_rec.jtot_object1_code := p_crj_rel_hdr_full_rec.jtot_object1_code;
63 l_crj_rel_hdr_full_rec.line_jtot_object1_code := p_crj_rel_hdr_full_rec.line_jtot_object1_code;
64 l_crj_rel_hdr_full_rec.rty_code := p_crj_rel_hdr_full_rec.rty_code;
65
66
67 OKC_K_REL_OBJS_PUB.create_k_rel_obj(
68 p_api_version => p_api_version_number,
69 p_init_msg_list => FND_API.G_FALSE,
70 x_return_status => x_return_status,
71 x_msg_count => x_msg_count,
72 x_msg_data => x_msg_data,
73 p_crj_rel_hdr_full_rec => l_crj_rel_hdr_full_rec,
74 p_crj_rel_line_tbl => l_crj_rel_line_tbl,
75 x_crj_rel_hdr_full_rec => l_x_crj_rel_hdr_full_rec,
76 x_crj_rel_line_tbl => x_crj_rel_line_tbl);
77
78
79 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
80 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
81 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
82 raise OKC_API.G_EXCEPTION_ERROR;
83 END IF;
84
85 x_crj_rel_hdr_full_rec.chr_id := l_x_crj_rel_hdr_full_rec.chr_id;
86 x_crj_rel_hdr_full_rec.object1_id1 := l_x_crj_rel_hdr_full_rec.object1_id1;
87 x_crj_rel_hdr_full_rec.object1_id2 := l_x_crj_rel_hdr_full_rec.object1_id2;
88 x_crj_rel_hdr_full_rec.jtot_object1_code := l_x_crj_rel_hdr_full_rec.jtot_object1_code;
89 x_crj_rel_hdr_full_rec.line_jtot_object1_code := l_x_crj_rel_hdr_full_rec.line_jtot_object1_code;
90 x_crj_rel_hdr_full_rec.rty_code := l_x_crj_rel_hdr_full_rec.rty_code;
91
92
93 EXCEPTION
94
95 WHEN OKC_API.G_EXCEPTION_ERROR THEN
96 x_return_status := OKC_API.HANDLE_EXCEPTIONS( l_api_name
97 ,G_PKG_NAME
98 ,'OKC_API.G_RET_STS_ERROR'
99 ,x_msg_count
100 ,x_msg_data
101 ,'_PUB');
102 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
103 x_return_status :=OKC_API.HANDLE_EXCEPTIONS( l_api_name
104 ,G_PKG_NAME
105 ,'OKC_API.G_RET_STS_UNEXP_ERROR'
106 ,x_msg_count
107 ,x_msg_data
108 ,'_PUB');
109 WHEN OTHERS THEN
110 x_return_status :=OKC_API.HANDLE_EXCEPTIONS( l_api_name
111 ,G_PKG_NAME
112 ,'OTHERS'
113 ,x_msg_count
114 ,x_msg_data
115 ,'_PUB');
116 END create_k_rel_obj;
117 END PV_K_REL_OBJS_PVT;
118