1: PACKAGE BODY BIS_BUCKET_PUB AS
2: /* $Header: BISPBKTB.pls 115.4 2004/01/24 08:37:51 jxyu noship $ */
3:
4:
5: --This API should call BIS_BUCKET_PVT.CREATE_BIS_BUCKET
1: PACKAGE BODY BIS_BUCKET_PUB AS
2: /* $Header: BISPBKTB.pls 115.4 2004/01/24 08:37:51 jxyu noship $ */
3:
4:
5: --This API should call BIS_BUCKET_PVT.CREATE_BIS_BUCKET
6: PROCEDURE CREATE_BIS_BUCKET (
7: p_bis_bucket_rec IN BIS_BUCKET_PUB.bis_bucket_rec_type
8: ,x_return_status OUT NOCOPY VARCHAR2
9: ,x_error_tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
2: /* $Header: BISPBKTB.pls 115.4 2004/01/24 08:37:51 jxyu noship $ */
3:
4:
5: --This API should call BIS_BUCKET_PVT.CREATE_BIS_BUCKET
6: PROCEDURE CREATE_BIS_BUCKET (
7: p_bis_bucket_rec IN BIS_BUCKET_PUB.bis_bucket_rec_type
8: ,x_return_status OUT NOCOPY VARCHAR2
9: ,x_error_tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
10: )
3:
4:
5: --This API should call BIS_BUCKET_PVT.CREATE_BIS_BUCKET
6: PROCEDURE CREATE_BIS_BUCKET (
7: p_bis_bucket_rec IN BIS_BUCKET_PUB.bis_bucket_rec_type
8: ,x_return_status OUT NOCOPY VARCHAR2
9: ,x_error_tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
10: )
11: IS
13: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
14:
15: BEGIN
16:
17: BIS_BUCKET_PVT.CREATE_BIS_BUCKET(
18: p_bis_bucket_rec => p_bis_bucket_rec
19: ,x_return_status => x_return_status
20: ,x_error_tbl => x_error_tbl
21: );
14:
15: BEGIN
16:
17: BIS_BUCKET_PVT.CREATE_BIS_BUCKET(
18: p_bis_bucket_rec => p_bis_bucket_rec
19: ,x_return_status => x_return_status
20: ,x_error_tbl => x_error_tbl
21: );
22:
27: l_error_tbl := x_error_tbl;
28: BIS_UTILITIES_PVT.Add_Error_Message(
29: p_error_msg_id => SQLCODE
30: ,p_error_description => SQLERRM
31: ,p_error_proc_name => G_PKG_NAME||'.CREATE_BIS_BUCKET'
32: ,p_error_table => l_error_tbl
33: ,x_error_table => x_error_tbl
34: );
35:
32: ,p_error_table => l_error_tbl
33: ,x_error_table => x_error_tbl
34: );
35:
36: END CREATE_BIS_BUCKET;
37:
38:
39:
40: --This API should call BIS_BUCKET_PVT.UPDATE_BIS_BUCKET
36: END CREATE_BIS_BUCKET;
37:
38:
39:
40: --This API should call BIS_BUCKET_PVT.UPDATE_BIS_BUCKET
41: PROCEDURE UPDATE_BIS_BUCKET (
42: p_bis_bucket_rec IN BIS_BUCKET_PUB.bis_bucket_rec_type
43: ,x_return_status OUT NOCOPY VARCHAR2
44: ,x_error_tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
37:
38:
39:
40: --This API should call BIS_BUCKET_PVT.UPDATE_BIS_BUCKET
41: PROCEDURE UPDATE_BIS_BUCKET (
42: p_bis_bucket_rec IN BIS_BUCKET_PUB.bis_bucket_rec_type
43: ,x_return_status OUT NOCOPY VARCHAR2
44: ,x_error_tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
45: )
38:
39:
40: --This API should call BIS_BUCKET_PVT.UPDATE_BIS_BUCKET
41: PROCEDURE UPDATE_BIS_BUCKET (
42: p_bis_bucket_rec IN BIS_BUCKET_PUB.bis_bucket_rec_type
43: ,x_return_status OUT NOCOPY VARCHAR2
44: ,x_error_tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
45: )
46: IS
48: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
49:
50: BEGIN
51:
52: BIS_BUCKET_PVT.UPDATE_BIS_BUCKET(
53: p_bis_bucket_rec => p_bis_bucket_rec
54: ,x_return_status => x_return_status
55: ,x_error_tbl => x_error_tbl
56: );
49:
50: BEGIN
51:
52: BIS_BUCKET_PVT.UPDATE_BIS_BUCKET(
53: p_bis_bucket_rec => p_bis_bucket_rec
54: ,x_return_status => x_return_status
55: ,x_error_tbl => x_error_tbl
56: );
57:
62: l_error_tbl := x_error_tbl;
63: BIS_UTILITIES_PVT.Add_Error_Message(
64: p_error_msg_id => SQLCODE
65: ,p_error_description => SQLERRM
66: ,p_error_proc_name => G_PKG_NAME||'.UPDATE_BIS_BUCKET'
67: ,p_error_table => l_error_tbl
68: ,x_error_table => x_error_tbl
69: );
70:
67: ,p_error_table => l_error_tbl
68: ,x_error_table => x_error_tbl
69: );
70:
71: END UPDATE_BIS_BUCKET;
72:
73:
74:
75: --This API should call BIS_BUCKET_PVT.DELETE_BIS_BUCKET
71: END UPDATE_BIS_BUCKET;
72:
73:
74:
75: --This API should call BIS_BUCKET_PVT.DELETE_BIS_BUCKET
76: PROCEDURE DELETE_BIS_BUCKET (
77: p_bucket_id IN BIS_BUCKET.bucket_id%TYPE := BIS_UTILITIES_PUB.G_NULL_NUM
78: ,p_short_name IN BIS_BUCKET.short_name%TYPE := BIS_UTILITIES_PUB.G_NULL_CHAR
79: ,x_return_status OUT NOCOPY VARCHAR2
72:
73:
74:
75: --This API should call BIS_BUCKET_PVT.DELETE_BIS_BUCKET
76: PROCEDURE DELETE_BIS_BUCKET (
77: p_bucket_id IN BIS_BUCKET.bucket_id%TYPE := BIS_UTILITIES_PUB.G_NULL_NUM
78: ,p_short_name IN BIS_BUCKET.short_name%TYPE := BIS_UTILITIES_PUB.G_NULL_CHAR
79: ,x_return_status OUT NOCOPY VARCHAR2
80: ,x_error_tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
73:
74:
75: --This API should call BIS_BUCKET_PVT.DELETE_BIS_BUCKET
76: PROCEDURE DELETE_BIS_BUCKET (
77: p_bucket_id IN BIS_BUCKET.bucket_id%TYPE := BIS_UTILITIES_PUB.G_NULL_NUM
78: ,p_short_name IN BIS_BUCKET.short_name%TYPE := BIS_UTILITIES_PUB.G_NULL_CHAR
79: ,x_return_status OUT NOCOPY VARCHAR2
80: ,x_error_tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
81: )
74:
75: --This API should call BIS_BUCKET_PVT.DELETE_BIS_BUCKET
76: PROCEDURE DELETE_BIS_BUCKET (
77: p_bucket_id IN BIS_BUCKET.bucket_id%TYPE := BIS_UTILITIES_PUB.G_NULL_NUM
78: ,p_short_name IN BIS_BUCKET.short_name%TYPE := BIS_UTILITIES_PUB.G_NULL_CHAR
79: ,x_return_status OUT NOCOPY VARCHAR2
80: ,x_error_tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
81: )
82: IS
84: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
85:
86: BEGIN
87:
88: BIS_BUCKET_PVT.DELETE_BIS_BUCKET(
89: p_bucket_id => p_bucket_id
90: ,p_short_name => p_short_name
91: ,x_return_status => x_return_status
92: ,x_error_tbl => x_error_tbl
99: l_error_tbl := x_error_tbl;
100: BIS_UTILITIES_PVT.Add_Error_Message(
101: p_error_msg_id => SQLCODE
102: ,p_error_description => SQLERRM
103: ,p_error_proc_name => G_PKG_NAME||'.DELETE_BIS_BUCKET'
104: ,p_error_table => l_error_tbl
105: ,x_error_table => x_error_tbl
106: );
107:
104: ,p_error_table => l_error_tbl
105: ,x_error_table => x_error_tbl
106: );
107:
108: END DELETE_BIS_BUCKET;
109:
110:
111:
112: --This API should call BIS_BUCKET_PVT.RETRIEVE_BIS_BUCKET
108: END DELETE_BIS_BUCKET;
109:
110:
111:
112: --This API should call BIS_BUCKET_PVT.RETRIEVE_BIS_BUCKET
113: PROCEDURE RETRIEVE_BIS_BUCKET (
114: p_short_name IN BIS_BUCKET.short_name%TYPE := BIS_UTILITIES_PUB.G_NULL_CHAR
115: ,x_bis_bucket_rec OUT NOCOPY BIS_BUCKET_PUB.bis_bucket_rec_type
116: ,x_return_status OUT NOCOPY VARCHAR2
109:
110:
111:
112: --This API should call BIS_BUCKET_PVT.RETRIEVE_BIS_BUCKET
113: PROCEDURE RETRIEVE_BIS_BUCKET (
114: p_short_name IN BIS_BUCKET.short_name%TYPE := BIS_UTILITIES_PUB.G_NULL_CHAR
115: ,x_bis_bucket_rec OUT NOCOPY BIS_BUCKET_PUB.bis_bucket_rec_type
116: ,x_return_status OUT NOCOPY VARCHAR2
117: ,x_error_tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
110:
111:
112: --This API should call BIS_BUCKET_PVT.RETRIEVE_BIS_BUCKET
113: PROCEDURE RETRIEVE_BIS_BUCKET (
114: p_short_name IN BIS_BUCKET.short_name%TYPE := BIS_UTILITIES_PUB.G_NULL_CHAR
115: ,x_bis_bucket_rec OUT NOCOPY BIS_BUCKET_PUB.bis_bucket_rec_type
116: ,x_return_status OUT NOCOPY VARCHAR2
117: ,x_error_tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
118: )
111:
112: --This API should call BIS_BUCKET_PVT.RETRIEVE_BIS_BUCKET
113: PROCEDURE RETRIEVE_BIS_BUCKET (
114: p_short_name IN BIS_BUCKET.short_name%TYPE := BIS_UTILITIES_PUB.G_NULL_CHAR
115: ,x_bis_bucket_rec OUT NOCOPY BIS_BUCKET_PUB.bis_bucket_rec_type
116: ,x_return_status OUT NOCOPY VARCHAR2
117: ,x_error_tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
118: )
119: IS
121: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
122:
123: BEGIN
124:
125: BIS_BUCKET_PVT.RETRIEVE_BIS_BUCKET(
126: p_short_name => p_short_name
127: ,x_bis_bucket_rec => x_bis_bucket_rec
128: ,x_return_status => x_return_status
129: ,x_error_tbl => x_error_tbl
123: BEGIN
124:
125: BIS_BUCKET_PVT.RETRIEVE_BIS_BUCKET(
126: p_short_name => p_short_name
127: ,x_bis_bucket_rec => x_bis_bucket_rec
128: ,x_return_status => x_return_status
129: ,x_error_tbl => x_error_tbl
130: );
131:
136: l_error_tbl := x_error_tbl;
137: BIS_UTILITIES_PVT.Add_Error_Message(
138: p_error_msg_id => SQLCODE
139: ,p_error_description => SQLERRM
140: ,p_error_proc_name => G_PKG_NAME||'.RETRIEVE_BIS_BUCKET'
141: ,p_error_table => l_error_tbl
142: ,x_error_table => x_error_tbl
143: );
144:
141: ,p_error_table => l_error_tbl
142: ,x_error_table => x_error_tbl
143: );
144:
145: END RETRIEVE_BIS_BUCKET;
146: -- This API is called from LCT file
147: --=============================================================================
148: PROCEDURE LOAD_BIS_BUCKET (
149: p_bis_bucket_rec IN BIS_BUCKET_PUB.bis_bucket_rec_type
144:
145: END RETRIEVE_BIS_BUCKET;
146: -- This API is called from LCT file
147: --=============================================================================
148: PROCEDURE LOAD_BIS_BUCKET (
149: p_bis_bucket_rec IN BIS_BUCKET_PUB.bis_bucket_rec_type
150: ,x_return_status OUT NOCOPY VARCHAR2
151: ,x_error_tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
152: ) IS
145: END RETRIEVE_BIS_BUCKET;
146: -- This API is called from LCT file
147: --=============================================================================
148: PROCEDURE LOAD_BIS_BUCKET (
149: p_bis_bucket_rec IN BIS_BUCKET_PUB.bis_bucket_rec_type
150: ,x_return_status OUT NOCOPY VARCHAR2
151: ,x_error_tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
152: ) IS
153:
152: ) IS
153:
154: CURSOR c_bkt_set IS
155: SELECT 1
156: FROM bis_bucket
157: WHERE short_name = p_bis_bucket_rec.short_name;
158: l_bucket_exists NUMBER := 0;
159: l_bis_bucket_rec BIS_BUCKET_PUB.bis_bucket_rec_type;
160: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
153:
154: CURSOR c_bkt_set IS
155: SELECT 1
156: FROM bis_bucket
157: WHERE short_name = p_bis_bucket_rec.short_name;
158: l_bucket_exists NUMBER := 0;
159: l_bis_bucket_rec BIS_BUCKET_PUB.bis_bucket_rec_type;
160: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
161: BEGIN
155: SELECT 1
156: FROM bis_bucket
157: WHERE short_name = p_bis_bucket_rec.short_name;
158: l_bucket_exists NUMBER := 0;
159: l_bis_bucket_rec BIS_BUCKET_PUB.bis_bucket_rec_type;
160: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
161: BEGIN
162:
163: x_return_status := FND_API.G_RET_STS_SUCCESS;
160: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
161: BEGIN
162:
163: x_return_status := FND_API.G_RET_STS_SUCCESS;
164: l_bis_bucket_rec := p_bis_bucket_rec;
165:
166: IF (c_bkt_set%ISOPEN) THEN
167: CLOSE c_bkt_set;
168: END IF;
170: OPEN c_bkt_set;
171: FETCH c_bkt_set INTO l_bucket_exists;
172: IF (c_bkt_set%FOUND) THEN
173: CLOSE c_bkt_set;
174: BIS_BUCKET_PVT.UPDATE_BIS_BUCKET (
175: p_bis_bucket_rec => l_bis_bucket_rec
176: ,x_return_status => x_return_status
177: ,x_error_tbl => x_error_tbl
178: );
171: FETCH c_bkt_set INTO l_bucket_exists;
172: IF (c_bkt_set%FOUND) THEN
173: CLOSE c_bkt_set;
174: BIS_BUCKET_PVT.UPDATE_BIS_BUCKET (
175: p_bis_bucket_rec => l_bis_bucket_rec
176: ,x_return_status => x_return_status
177: ,x_error_tbl => x_error_tbl
178: );
179: ELSE
177: ,x_error_tbl => x_error_tbl
178: );
179: ELSE
180: CLOSE c_bkt_set;
181: BIS_BUCKET_PVT.CREATE_BIS_BUCKET (
182: p_bis_bucket_rec => l_bis_bucket_rec
183: ,x_return_status => x_return_status
184: ,x_error_tbl => x_error_tbl
185: );
178: );
179: ELSE
180: CLOSE c_bkt_set;
181: BIS_BUCKET_PVT.CREATE_BIS_BUCKET (
182: p_bis_bucket_rec => l_bis_bucket_rec
183: ,x_return_status => x_return_status
184: ,x_error_tbl => x_error_tbl
185: );
186: END IF;
201: l_error_tbl := x_error_tbl;
202: BIS_UTILITIES_PVT.Add_Error_Message(
203: p_error_msg_id => SQLCODE
204: ,p_error_description => SQLERRM
205: ,p_error_proc_name => G_PKG_NAME||'.LOAD_BIS_BUCKET'
206: ,p_error_table => l_error_tbl
207: ,x_error_table => x_error_tbl
208: );
209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
206: ,p_error_table => l_error_tbl
207: ,x_error_table => x_error_tbl
208: );
209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
210: END LOAD_BIS_BUCKET;
211: --=============================================================================
212:
213:
214: PROCEDURE ADD_LANGUAGE
214: PROCEDURE ADD_LANGUAGE
215: IS
216: BEGIN
217:
218: BIS_BUCKET_PVT.ADD_LANGUAGE;
219:
220: END ADD_LANGUAGE;
221:
222: END BIS_BUCKET_PUB;
218: BIS_BUCKET_PVT.ADD_LANGUAGE;
219:
220: END ADD_LANGUAGE;
221:
222: END BIS_BUCKET_PUB;