[Home] [Help]
PACKAGE BODY: APPS.CSI_T_UI_PVT
Source
1 package body csi_t_ui_pvt AS
2 /* $Header: csivtuib.pls 120.1 2005/07/12 18:27:24 brmanesh noship $*/
3
4 FUNCTION g_miss_num RETURN number
5 IS
6 BEGIN
7 RETURN fnd_api.g_miss_num;
8 END g_miss_num;
9
10 FUNCTION g_miss_char RETURN varchar2
11 IS
12 BEGIN
13 RETURN fnd_api.g_miss_char ;
14 END g_miss_char;
15
16 FUNCTION g_miss_date RETURN date
17 IS
18 BEGIN
19 RETURN fnd_api.g_miss_date ;
20 END g_miss_date ;
21
22 FUNCTION g_valid_level(p_level varchar2) RETURN number
23 IS
24 BEGIN
25 IF p_level = 'NONE' then
26 RETURN fnd_api.g_valid_level_none;
27 ELSIF p_level = 'FULL' then
28 RETURN fnd_api.g_valid_level_full;
29 ELSE
30
31 fnd_msg_pub.add_exc_msg(
32 p_pkg_name => G_PKG_NAME ,
33 p_procedure_name => 'G_VALID_LEVEL',
34 p_error_text => 'Unrecognized Value: '||p_level);
35
36 RAISE fnd_api.g_exc_unexpected_error;
37
38 END IF;
39 END g_valid_level ;
40
41 FUNCTION g_boolean(p_FLAG varchar2) RETURN varchar2
42 IS
43 BEGIN
44 if p_flag = 'TRUE' then
45 return FND_API.G_TRUE ;
46 elsif p_flag = 'FALSE' then
47 return FND_API.G_FALSE ;
48 else
49 fnd_msg_pub.add_exc_msg(
50 p_pkg_name => G_PKG_NAME,
51 p_procedure_name => 'G_BOOLEAN',
52 p_error_text => 'Unrecognized Value: '||p_flag);
53 RAISE fnd_api.g_exc_unexpected_error;
54 END if;
55 END g_boolean;
56
57 FUNCTION get_error_constant(err_msg varchar2) RETURN varchar2
58 IS
59 BEGIN
60
61 IF err_msg = 'G_RET_STS_ERROR' THEN
62 RETURN fnd_api.g_ret_sts_error;
63 ELSIF err_msg = 'G_RET_STS_UNEXP_ERROR' THEN
64 RETURN fnd_api.g_ret_sts_unexp_error;
65 ELSIF err_msg = 'G_RET_STS_SUCCESS' THEN
66 RETURN fnd_api.g_ret_sts_success;
67 END IF;
68
69 END get_error_constant;
70
71 FUNCTION ui_txn_source_rec RETURN csi_t_ui_pvt.txn_source_rec
72 IS
73 l_txn_source_rec csi_t_ui_pvt.txn_source_rec;
74 BEGIN
75 RETURN l_txn_source_rec;
76 END ui_txn_source_rec;
77
78 FUNCTION ui_txn_source_param_rec RETURN csi_t_ui_pvt.txn_source_param_rec
79 IS
80 l_txn_source_param_rec csi_t_ui_pvt.txn_source_param_rec;
81 BEGIN
82 RETURN l_txn_source_param_rec;
83 END ui_txn_source_param_rec;
84
85 FUNCTION ui_txn_line_rec RETURN csi_t_datastructures_grp.txn_line_rec
86 IS
87 l_txn_line_rec csi_t_datastructures_grp.txn_line_rec;
88 BEGIN
89 RETURN l_txn_line_rec;
90 END ui_txn_line_rec;
91
92 -- Partner ordering changes
93 FUNCTION ui_partner_order_rec RETURN oe_install_base_util.partner_order_rec
94 IS
95 l_partner_order_rec oe_install_base_util.partner_order_rec;
96 BEGIN
97 RETURN l_partner_order_rec;
98 END ui_partner_order_rec;
99 -- End partner ordering changes
100
101 PROCEDURE get_src_txn_type_id(
102 p_order_line_id IN number,
103 px_txn_type_id IN OUT nocopy number,
104 x_return_status OUT nocopy varchar2)
105 IS
106 l_org_id number;
107 l_inventory_item_id number;
108 l_organization_id number;
109 l_shippable_flag varchar2(1);
110 l_receipt_node_found boolean;
111 l_source_doc_type_id number;
112 l_source_doc_line_id number;
113 l_destination_type_code varchar2(30);
114 BEGIN
115
116 x_return_status := fnd_api.g_ret_sts_success;
117
118 -- Added the condition for Bug 3808664
119 IF px_txn_type_id <> 56
120 THEN
121
122 SELECT oel.inventory_item_id,
123 oel.ship_from_org_id,
124 oel.source_document_type_id,
125 oel.source_document_line_id,
126 oel.org_id
127 INTO l_inventory_item_id,
128 l_organization_id,
129 l_source_doc_type_id,
130 l_source_doc_line_id,
131 l_org_id
132 FROM oe_order_lines_all oel
133 WHERE oel.line_id = p_order_line_id;
134
135 IF l_organization_id is null THEN
136 l_organization_id := oe_sys_parameters.value(
137 param_name => 'MASTER_ORGANIZATION_ID',
138 p_org_id => l_org_id);
139 END IF;
140
141 IF px_txn_type_id = 53 THEN
142
143 SELECT nvl(shippable_item_flag,'N')
144 INTO l_shippable_flag
145 FROM mtl_system_items
146 WHERE inventory_item_id = l_inventory_item_id
147 AND organization_id = l_organization_id;
148
149 IF l_shippable_flag = 'N' THEN
150 px_txn_type_id := 54;
151 ELSE
152 l_receipt_node_found := wf_engine.activity_exist_in_process(
153 p_item_type => 'OEOL',
154 p_item_key => to_char(p_order_line_id),
155 p_activity_item_type => 'OEOL',
156 p_activity_name => 'RMA_RECEIVING_SUB');
157 IF NOT(l_receipt_node_found) THEN
158 px_txn_type_id := 54;
159 END IF;
160 END IF;
161 ELSIF px_txn_type_id = 51 THEN
162 IF l_source_doc_type_id = 10 THEN
163 SELECT destination_type_code
164 INTO l_destination_type_code
165 FROM po_requisition_lines_all
166 WHERE requisition_line_id = l_source_doc_line_id;
167 IF l_destination_type_code = 'EXPENSE' THEN
168 px_txn_type_id := 126;
169 END IF;
170 END IF;
171 END IF;
172 END IF;
173 END get_src_txn_type_id;
174
175 END csi_t_ui_pvt;