[Home] [Help]
PACKAGE BODY: APPS.PO_IP_INTEGRATION_GRP
Source
1 PACKAGE BODY PO_IP_INTEGRATION_GRP AS
2 /* $Header: PO_IP_INTEGRATION_GRP.plb 120.4 2005/08/03 16:51 mbhargav noship $ */
3 g_pkg_name CONSTANT varchar2(30) := 'PO_IP_INTEGRATION_GRP';
4
5 -------------------------------------------------------
6 ----------- PRIVATE PROCEDURES PROTOTYPE --------------
7 -------------------------------------------------------
8
9
10
11 -------------------------------------------------------
12 -------------- PUBLIC PROCEDURES ----------------------
13 -------------------------------------------------------
14
15 -----------------------------------------------------------------------
16 --Start of Comments
17 --Name: get_mapped_ip_category
18 --Pre-reqs: None
19 --Modifies:
20 --Locks:
21 --Function:
22 -- Returns mapped ip category id, given po category id
23 --Parameters:
24 --IN: po_category_id
25 --IN OUT:
26 --OUT: ip_category_id
27 --Notes:
28 --Testing:
29 --End of Comments
30 ------------------------------------------------------------------------
31 PROCEDURE get_mapped_ip_category
32 ( p_po_category_id IN NUMBER,
33 x_ip_category_id OUT nocopy NUMBER
34 ) IS
35
36 l_api_name CONSTANT VARCHAR2(30) := 'get_mapped_ip_category';
37 l_progress VARCHAR2(3) := '000';
38 l_category_key VARCHAR2(250);
39 BEGIN
40
41 l_progress := '010';
42 SELECT shopping_category_id
43 INTO x_ip_category_id
44 FROM ICX_CAT_PURCHASING_CAT_MAP_V
45 WHERE po_category_id = p_po_category_id;
46
47 EXCEPTION
48 WHEN OTHERS THEN
49 x_ip_category_id := null;
50 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
51 FND_MSG_PUB.add_exc_msg(p_pkg_name => g_pkg_name,
52 p_procedure_name => l_api_name,
53 p_error_text => SUBSTRB(SQLERRM, 1, 200)
54 ||' at location '||l_progress);
55 END IF;
56 END get_mapped_ip_category;
57
58
59 -----------------------------------------------------------------------
60 --Start of Comments
61 --Name: get_mapped_po_category
62 --Pre-reqs: None
63 --Modifies:
64 --Locks:
65 --Function:
66 -- Returns the mapped PO Category, given IP Category
67 --Parameters:
68 --IN: ip_category_id
69 --IN OUT:
70 --OUT: po_category_id
71 --Notes:
72 --Testing:
73 --End of Comments
74 ------------------------------------------------------------------------
75 PROCEDURE get_mapped_po_category
76 ( p_ip_category_id IN NUMBER,
77 x_po_category_id OUT nocopy NUMBER
78 ) IS
79
80 l_api_name CONSTANT VARCHAR2(30) := 'get_mapped_po_category';
81 l_progress VARCHAR2(3) := '000';
82 BEGIN
83
84 l_progress := '010';
85 SELECT po_category_id
86 INTO x_po_category_id
87 FROM ICX_CAT_SHOPPING_CAT_MAP_V
88 WHERE shopping_category_id = p_ip_category_id;
89
90 EXCEPTION
91 WHEN OTHERS THEN
92 x_po_category_id := null;
93 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
94 FND_MSG_PUB.add_exc_msg(p_pkg_name => g_pkg_name,
95 p_procedure_name => l_api_name,
96 p_error_text => SUBSTRB(SQLERRM, 1, 200)
97 ||' at location '||l_progress);
98 END IF;
99
100 END get_mapped_po_category;
101
102 -----------------------------------------------------------------------
103 --Start of Comments
104 --Name: get_shopping_category_from_id
105 --Pre-reqs: None
106 --Modifies:
107 --Locks:
108 --Function:
109 -- Returns Shopping Category name, given ip_category and language
110 --Parameters:
111 --IN: ip_category_id
112 --IN: language
113 --IN OUT:
114 --OUT: shopping_category_name
115 --Notes:
116 --Testing:
117 --End of Comments
118 ------------------------------------------------------------------------
119 PROCEDURE get_shopping_category_from_id
120 ( p_ip_category_id IN NUMBER,
121 p_language IN VARCHAR2,
122 x_shopping_category_name OUT nocopy VARCHAR2
123 ) IS
124
125 l_api_name CONSTANT VARCHAR2(30) := 'get_shopping_category_from_id';
126 l_progress VARCHAR2(3) := '000';
127 BEGIN
128
129 l_progress := '010';
130 SELECT category_name
131 INTO x_shopping_category_name
132 FROM ICX_CAT_CATEGORIES_V
133 WHERE rt_category_id = p_ip_category_id
134 AND language = p_language;
135
136 EXCEPTION
137 WHEN OTHERS THEN
138 x_shopping_category_name := null;
139 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
140 FND_MSG_PUB.add_exc_msg(p_pkg_name => g_pkg_name,
141 p_procedure_name => l_api_name,
142 p_error_text => SUBSTRB(SQLERRM, 1, 200)
143 ||' at location '||l_progress);
144 END IF;
145
146 END get_shopping_category_from_id;
147
148 END PO_IP_INTEGRATION_GRP;