[Home] [Help]
1: PACKAGE BODY pos_pub_history_bo_pkg AS
2: /* $Header: POSPUBHIB.pls 120.1 2010/11/25 12:27:30 puppulur noship $ */
3:
4: g_pkg_name CONSTANT VARCHAR2(30) := 'pos_pub_history_bo_pkg';
5:
1: PACKAGE BODY pos_pub_history_bo_pkg AS
2: /* $Header: POSPUBHIB.pls 120.1 2010/11/25 12:27:30 puppulur noship $ */
3:
4: g_pkg_name CONSTANT VARCHAR2(30) := 'pos_pub_history_bo_pkg';
5:
6: PROCEDURE add_message(
7: p_pkg_name VARCHAR2,
8: p_api_name VARCHAR2,
40:
41: /*
42: * Use this routine to get publication history bo
43: */
44: PROCEDURE get_pos_pub_history_bo_tbl
45: (
46: p_api_version IN NUMBER DEFAULT NULL,
47: p_init_msg_list IN VARCHAR2 DEFAULT NULL,
48: p_event_id IN NUMBER,
48: p_event_id IN NUMBER,
49: p_party_id IN NUMBER,
50: p_orig_system IN VARCHAR2,
51: p_orig_system_reference IN VARCHAR2,
52: x_pos_pub_history_bo_tbl OUT NOCOPY pos_pub_history_bo_tbl,
53: x_return_status OUT NOCOPY VARCHAR2,
54: x_msg_count OUT NOCOPY NUMBER,
55: x_msg_data OUT NOCOPY VARCHAR2
56: ) IS
54: x_msg_count OUT NOCOPY NUMBER,
55: x_msg_data OUT NOCOPY VARCHAR2
56: ) IS
57:
58: l_pos_pub_history_bo_tbl pos_pub_history_bo_tbl := pos_pub_history_bo_tbl();
59: l_party_id NUMBER;
60: l_event_id NUMBER;
61:
62: l_api_name CONSTANT VARCHAR2(30) := 'get_published_suppliers';
99: IF (l_event_id IS NULL AND l_party_id IS NULL) THEN
100: RETURN;
101: END IF;
102:
103: SELECT pos_pub_history_bo(ph.publication_event_id,
104: ph.party_id,
105: ph.publication_date,
106: ph.published_by,
107: ph.publish_detail,
112: ph.last_update_date,
113: ph.last_update_login,
114: ph.request_id)
115: BULK COLLECT
116: INTO l_pos_pub_history_bo_tbl
117: FROM pos_supp_pub_history ph
118: WHERE ph.publication_event_id = nvl(l_event_id, publication_event_id)
119: AND ph.party_id = nvl(l_party_id, party_id);
120:
126: add_no_data_found_message(g_pkg_name, l_api_name);
127: RAISE fnd_api.g_exc_error;
128: END IF;
129:
130: x_pos_pub_history_bo_tbl := l_pos_pub_history_bo_tbl;
131:
132: EXCEPTION
133: WHEN fnd_api.g_exc_error THEN
134: x_return_status := fnd_api.g_ret_sts_error;
153: fnd_msg_pub.count_and_get(
154: p_count => x_msg_count,
155: p_data => x_msg_data);
156:
157: END get_pos_pub_history_bo_tbl;
158:
159:
160: /*
161: Public wrapper of get_pos_pub_history_bo_tbl
157: END get_pos_pub_history_bo_tbl;
158:
159:
160: /*
161: Public wrapper of get_pos_pub_history_bo_tbl
162: This procedure name is easier to understand for public callers.
163: */
164: PROCEDURE get_published_suppliers
165: (
168: p_event_id IN NUMBER,
169: p_party_id IN NUMBER,
170: p_orig_system IN VARCHAR2,
171: p_orig_system_reference IN VARCHAR2,
172: x_suppliers OUT NOCOPY pos_pub_history_bo_tbl,
173: x_return_status OUT NOCOPY VARCHAR2,
174: x_msg_count OUT NOCOPY NUMBER,
175: x_msg_data OUT NOCOPY VARCHAR2
176: ) IS
174: x_msg_count OUT NOCOPY NUMBER,
175: x_msg_data OUT NOCOPY VARCHAR2
176: ) IS
177: BEGIN
178: get_pos_pub_history_bo_tbl(
179: p_api_version => p_api_version,
180: p_init_msg_list => p_init_msg_list,
181: p_event_id => p_event_id,
182: p_party_id => p_party_id,
181: p_event_id => p_event_id,
182: p_party_id => p_party_id,
183: p_orig_system => p_orig_system,
184: p_orig_system_reference => p_orig_system_reference,
185: x_pos_pub_history_bo_tbl => x_suppliers,
186: x_return_status => x_return_status,
187: x_msg_count => x_msg_count,
188: x_msg_data => x_msg_data
189: );
385:
386: END create_publication_response;
387:
388:
389: END pos_pub_history_bo_pkg;