[Home] [Help]
PACKAGE BODY: APPS.OKL_TRANS_ACCT_OPT_PUB
Source
1 PACKAGE BODY OKL_TRANS_ACCT_OPT_PUB AS
2 /* $Header: OKLPTACB.pls 115.3 2002/12/18 12:41:47 kjinger noship $ */
3
4
5
6 PROCEDURE GET_TRX_ACCT_OPT(p_api_version IN NUMBER,
7 p_init_msg_list IN VARCHAR2,
8 x_return_status OUT NOCOPY VARCHAR2,
9 x_msg_count OUT NOCOPY NUMBER,
10 x_msg_data OUT NOCOPY VARCHAR2,
11 p_taov_rec IN taov_rec_type,
12 x_taov_rec OUT NOCOPY taov_rec_type)
13 IS
14
15
16 l_api_version CONSTANT NUMBER := 1.0;
17 l_api_name CONSTANT VARCHAR2(30) := 'GET_TRX_ACCT_OPT';
18 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
19 l_taov_rec taov_rec_type := p_taov_rec;
20
21
22
23 BEGIN
24
25 SAVEPOINT GET_TRX_ACCT_OPT;
26
27 x_return_status := FND_API.G_RET_STS_SUCCESS;
28
29 -- customer pre-processing
30
31
32
33
34 -- Run the MAIN Procedure
35
36
37 OKL_TRANS_ACCT_OPT_PVT.GET_TRX_ACCT_OPT(p_api_version => l_api_version,
38 p_init_msg_list => p_init_msg_list,
39 x_return_status => x_return_status,
40 x_msg_count => x_msg_count,
41 x_msg_data => x_msg_data,
42 p_taov_rec => l_taov_rec,
43 x_taov_rec => x_taov_rec);
44
45
46 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
47
48 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
49
50 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
51
52 RAISE OKL_API.G_EXCEPTION_ERROR;
53
54 END IF;
55
56
57
58
59
60 EXCEPTION
61
62 WHEN FND_API.G_EXC_ERROR THEN
63 ROLLBACK TO GET_TRX_ACCT_OPT;
64 x_return_status := FND_API.G_RET_STS_ERROR;
65
66 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
67 ,p_count => x_msg_count
68 ,p_data => x_msg_data);
69
70 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
71 ROLLBACK TO GET_TRX_ACCT_OPT;
72 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
73 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
74 ,p_count => x_msg_count
75 ,p_data => x_msg_data);
76
77 WHEN OTHERS THEN
78
79 FND_MSG_PUB.ADD_EXC_MSG('OKL_TRANS_ACCT_OPT_PUB','GET_TRX_ACCT_OPT');
80 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
81 ,p_count => x_msg_count
82 ,p_data => x_msg_data);
83 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
84
85
86 END GET_TRX_ACCT_OPT;
87
88
89
90
91
92 PROCEDURE UPDT_TRX_ACCT_OPT(p_api_version IN NUMBER,
93 p_init_msg_list IN VARCHAR2,
94 x_return_status OUT NOCOPY VARCHAR2,
95 x_msg_count OUT NOCOPY NUMBER,
96 x_msg_data OUT NOCOPY VARCHAR2,
97 p_taov_rec IN taov_rec_type,
98 x_taov_rec OUT NOCOPY taov_rec_type)
99 IS
100
101
102 l_api_version CONSTANT NUMBER := 1.0;
103 l_api_name CONSTANT VARCHAR2(30) := 'UPDT_TRX_ACCT_OPT';
104 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
105 l_taov_rec taov_rec_type := p_taov_rec;
106
107
108
109 BEGIN
110
111 SAVEPOINT UPDT_TRX_ACCT_OPT;
112
113 x_return_status := FND_API.G_RET_STS_SUCCESS;
114
115 -- customer pre-processing
116
117
118
119
120 -- Run the MAIN Procedure
121
122
123
124 OKL_TRANS_ACCT_OPT_PVT.UPDT_TRX_ACCT_OPT(p_api_version => l_api_version,
125 p_init_msg_list => p_init_msg_list,
126 x_return_status => x_return_status,
127 x_msg_count => x_msg_count,
128 x_msg_data => x_msg_data,
129 p_taov_rec => l_taov_rec,
130 x_taov_rec => x_taov_rec);
131
132
133 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
134
135 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
136
137 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
138
139 RAISE OKL_API.G_EXCEPTION_ERROR;
140
141 END IF;
142
143
144
145
146
147 EXCEPTION
148
149 WHEN FND_API.G_EXC_ERROR THEN
150 ROLLBACK TO UPDT_TRX_ACCT_OPT;
151 x_return_status := FND_API.G_RET_STS_ERROR;
152 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
153 ,p_count => x_msg_count
154 ,p_data => x_msg_data);
155
156 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
157 ROLLBACK TO UPDT_TRX_ACCT_OPT;
158 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
159 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
160 ,p_count => x_msg_count
161 ,p_data => x_msg_data);
162
163 WHEN OTHERS THEN
164
165 FND_MSG_PUB.ADD_EXC_MSG('OKL_TRANS_ACCT_OPT_PUB','UPDT_TRX_ACCT_OPT');
166 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
167 ,p_count => x_msg_count
168 ,p_data => x_msg_data);
169 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
170
171
172
173 END UPDT_TRX_ACCT_OPT;
174
175
176 END OKL_TRANS_ACCT_OPT_PUB;
177