[Home] [Help]
PACKAGE BODY: APPS.OKL_SYSTEM_ACCT_OPT_PUB
Source
1 PACKAGE BODY OKL_SYSTEM_ACCT_OPT_PUB AS
2 /* $Header: OKLPSYOB.pls 115.4 2002/12/18 12:41:34 kjinger noship $ */
3
4
5 PROCEDURE GET_SYSTEM_ACCT_OPT(p_api_version IN NUMBER,
6 p_init_msg_list IN VARCHAR2,
7 x_return_status OUT NOCOPY VARCHAR2,
8 x_msg_count OUT NOCOPY NUMBER,
9 x_msg_data OUT NOCOPY VARCHAR2,
10 p_set_of_books_id IN NUMBER,
11 x_saov_rec OUT NOCOPY saov_rec_type)
12
13 IS
14
15 l_api_version CONSTANT NUMBER := 1.0;
16 l_api_name CONSTANT VARCHAR2(30) := 'GET_SYSTEM_ACCT_OPT';
17 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
18 l_set_of_books_id NUMBER := p_set_of_books_id;
19
20
21
22 BEGIN
23
24
25 SAVEPOINT GET_SYSTEM_ACCT_OPT1;
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_SYSTEM_ACCT_OPT_PVT.GET_SYSTEM_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_set_of_books_id => l_set_of_books_id,
43 x_saov_rec => x_saov_rec);
44
45
46 IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
47
48 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
49
50 ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
51
52 RAISE FND_API.G_EXC_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_SYSTEM_ACCT_OPT1;
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_SYSTEM_ACCT_OPT1;
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 ROLLBACK TO GET_SYSTEM_ACCT_OPT1;
80 FND_MSG_PUB.ADD_EXC_MSG('OKL_SYSTEM_ACCT_OPT_PUB','GET_SYSTEM_ACCT_OPT');
81 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
82 ,p_count => x_msg_count
83 ,p_data => x_msg_data);
84 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
85
86
87
88 END GET_SYSTEM_ACCT_OPT;
89
90
91
92
93 PROCEDURE UPDT_SYSTEM_ACCT_OPT(p_api_version IN NUMBER,
94 p_init_msg_list IN VARCHAR2,
95 x_return_status OUT NOCOPY VARCHAR2,
96 x_msg_count OUT NOCOPY NUMBER,
97 x_msg_data OUT NOCOPY VARCHAR2,
98 p_saov_rec IN saov_rec_type,
99 x_saov_rec OUT NOCOPY saov_rec_type)
100 IS
101
102
103 l_api_version CONSTANT NUMBER := 1.0;
104 l_api_name CONSTANT VARCHAR2(30) := 'UPDT_SYSTEM_ACCT_OPT';
105 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
106 l_saov_rec saov_rec_type := p_saov_rec;
107
108
109
110
111 BEGIN
112
113
114 SAVEPOINT UPDT_SYSTEM_ACCT_OPT1;
115 x_return_status := FND_API.G_RET_STS_SUCCESS;
116
117 -- customer pre-processing
118
119
120
121
122 -- Run the MAIN Procedure
123
124 OKL_SYSTEM_ACCT_OPT_PVT.UPDT_SYSTEM_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_saov_rec => l_saov_rec,
130 x_saov_rec => x_saov_rec);
131
132
133 IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
134
135 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
136
137 ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
138
139 RAISE FND_API.G_EXC_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_SYSTEM_ACCT_OPT1;
151 x_return_status := FND_API.G_RET_STS_ERROR;
152
153 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
154 ,p_count => x_msg_count
155 ,p_data => x_msg_data);
156
157 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
158 ROLLBACK TO UPDT_SYSTEM_ACCT_OPT1;
159 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
160 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
161 ,p_count => x_msg_count
162 ,p_data => x_msg_data);
163
164 WHEN OTHERS THEN
165
166 ROLLBACK TO UPDT_SYSTEM_ACCT_OPT1;
167 FND_MSG_PUB.ADD_EXC_MSG('OKL_SYSTEM_ACCT_OPT_PUB','UPDT_SYSTEM_ACCT_OPT');
168 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
169 ,p_count => x_msg_count
170 ,p_data => x_msg_data);
171 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
172
173
174
175 END UPDT_SYSTEM_ACCT_OPT;
176
177 END OKL_SYSTEM_ACCT_OPT_PUB;
178