[Home] [Help]
PACKAGE BODY: APPS.OKL_RELEASE_PUB
Source
1 Package body OKL_RELEASE_PUB as
2 /* $Header: OKLPREKB.pls 120.3 2005/10/30 03:33:47 appldev noship $ */
3 G_API_TYPE CONSTANT VARCHAR2(4) := '_PUB';
4 G_API_VERSION CONSTANT NUMBER := 1.0;
5 G_SCOPE CONSTANT VARCHAR2(4) := '_PUB';
6 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_RELEASE_PUB';
7 G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
8
9 -----------------------------------------------------------------------------------------------
10 ------------------------ Main Process for Create Release Contract------------------------------
11 -----------------------------------------------------------------------------------------------
12 --Bug 3948361
13 Procedure create_release_contract(
14 p_api_version IN NUMBER,
15 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
16 x_return_status OUT NOCOPY VARCHAR2,
17 x_msg_count OUT NOCOPY NUMBER,
18 x_msg_data OUT NOCOPY VARCHAR2,
19 p_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
20 p_release_reason_code IN VARCHAR2,
21 p_release_description IN VARCHAR2,
22 p_trx_date IN DATE,
23 p_source_trx_id IN NUMBER,
24 p_source_trx_type IN VARCHAR2,
25 x_tcnv_rec OUT NOCOPY tcnv_rec_type,
26 x_release_chr_id OUT NOCOPY OKC_K_HEADERS_B.ID%TYPE) IS
27 l_api_name CONSTANT VARCHAR2(30) := 'CREATE_RELEASE_CONTRACT';
28 l_api_version CONSTANT NUMBER := 1;
29 BEGIN
30 savepoint create_release_contract_pub;
31 x_return_status := FND_API.G_RET_STS_SUCCESS;
32 -- Standard call to check for call compatibility.
33 IF NOT (FND_API.Compatible_API_Call (l_api_version,
34 p_api_version,
35 l_api_name,
36 G_PKG_NAME)) THEN
37 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
38 END IF;
39 -- Initialize message list if p_init_msg_list is set to TRUE.
40 IF (FND_API.to_Boolean( p_init_msg_list )) THEN
41 FND_MSG_PUB.initialize;
42 END IF;
43 -- Customer pre processing section
44 -- Verticle industry pre- processing section
45 -- Business API call section
46
47 --Bug# 3948361
48
49 OKL_RELEASE_PVT.create_release_contract(p_api_version => p_api_version,
50 p_init_msg_list => p_init_msg_list,
51 x_return_status => x_return_status,
52 x_msg_count => x_msg_count,
53 x_msg_data => x_msg_data,
54 p_chr_id => p_chr_id,
55 p_release_reason_code => p_release_reason_code,
56 p_release_description => p_release_description,
57 p_trx_date => p_trx_date,
58 p_source_trx_id => p_source_trx_id,
59 p_source_trx_type => p_source_trx_type,
60 x_tcnv_rec => x_tcnv_rec,
61 x_release_chr_id => x_release_chr_id
62 );
63 IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
64 RAISE FND_API.G_EXC_ERROR;
65 ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
66 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
67 END IF;
68
69
70 -- Verticle industry post- processing section
71 -- Customer post processing section
72 EXCEPTION
73 When FND_API.G_EXC_ERROR then
74 ROLLBACK TO create_release_contract_pub;
75 x_return_status := FND_API.G_RET_STS_ERROR;
76 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
77 p_data => x_msg_data);
78 When FND_API.G_EXC_UNEXPECTED_ERROR then
79 ROLLBACK TO create_release_contract_pub;
80 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
81 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
82 p_data => x_msg_data);
83 When OTHERS then
84 ROLLBACK TO create_release_contract_pub;
85 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
86 FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'OKL_COPY_ASSET_PUB');
87 FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
88 p_count => x_msg_count,
89 p_data => x_msg_data);
90
91 END create_release_contract;
92
93
94 -----------------------------------------------------------------------------------------------
95 ------------------------ Main Process for Activate Release Contract------------------------------
96 -----------------------------------------------------------------------------------------------
97 PROCEDURE activate_release_contract(
98 p_api_version IN NUMBER,
99 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
100 x_return_status OUT NOCOPY VARCHAR2,
101 x_msg_count OUT NOCOPY NUMBER,
102 x_msg_data OUT NOCOPY VARCHAR2,
103 p_chr_id IN OKC_K_HEADERS_B.ID%TYPE) IS
104 l_api_name CONSTANT VARCHAR2(30) := 'ACTIVATE_RELEASE_CONTRACT';
105 l_api_version CONSTANT NUMBER := 1;
106 BEGIN
107 savepoint activate_release_contract_pub;
108 x_return_status := FND_API.G_RET_STS_SUCCESS;
109 -- Standard call to check for call compatibility.
110 IF NOT (FND_API.Compatible_API_Call (l_api_version,
111 p_api_version,
112 l_api_name,
113 G_PKG_NAME)) THEN
114 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
115 END IF;
116 -- Initialize message list if p_init_msg_list is set to TRUE.
117 IF (FND_API.to_Boolean( p_init_msg_list )) THEN
118 FND_MSG_PUB.initialize;
119 END IF;
120 -- Customer pre processing section
121 -- Verticle industry pre- processing section
122 -- Business API call section
123 OKL_RELEASE_PVT.activate_release_contract(p_api_version => p_api_version,
124 p_init_msg_list => p_init_msg_list,
125 x_return_status => x_return_status,
126 x_msg_count => x_msg_count,
127 x_msg_data => x_msg_data,
128 p_chr_id => p_chr_id);
129 IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
130 RAISE FND_API.G_EXC_ERROR;
131 ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
132 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133 END IF;
134 -- Verticle industry post- processing section
135 -- Customer post processing section
136 EXCEPTION
137 When FND_API.G_EXC_ERROR then
138 ROLLBACK TO activate_release_contract_pub;
139 x_return_status := FND_API.G_RET_STS_ERROR;
140 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
141 p_data => x_msg_data);
142 When FND_API.G_EXC_UNEXPECTED_ERROR then
143 ROLLBACK TO activate_release_contract_pub;
144 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
145 FND_MSG_PUB.count_and_get (p_count => x_msg_count,
146 p_data => x_msg_data);
147 When OTHERS then
148 ROLLBACK TO activate_release_contract_pub;
149 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
150 FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'OKL_COPY_ASSET_PUB');
151 FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
152 p_count => x_msg_count,
153 p_data => x_msg_data);
154
155 END activate_release_contract;
156
157 End OKL_RELEASE_PUB;