[Home] [Help]
PACKAGE BODY: APPS.CSP_TRANSACTIONS_PUB_W
Source
1 package body csp_transactions_pub_w as
2 /* $Header: csptppwb.pls 120.1 2005/09/09 10:50:28 ajosephg noship $ */
3 procedure transact_material(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , p_commit VARCHAR2
6 , px_transaction_id in out nocopy NUMBER
7 , px_transaction_header_id in out nocopy NUMBER
8 , p_inventory_item_id NUMBER
9 , p_organization_id NUMBER
10 , p_subinventory_code VARCHAR2
11 , p_locator_id NUMBER
12 , p_lot_number VARCHAR2
13 , p_lot_expiration_date DATE
14 , p_revision VARCHAR2
15 , p_serial_number VARCHAR2
16 , p_to_serial_number VARCHAR2
17 , p_quantity NUMBER
18 , p_uom VARCHAR2
19 , p_source_id VARCHAR2
20 , p_source_line_id NUMBER
21 , p_transaction_type_id NUMBER
22 , p_account_id NUMBER
23 , p_transfer_to_subinventory VARCHAR2
24 , p_transfer_to_locator NUMBER
25 , p_transfer_to_organization NUMBER
26 , p_online_process_flag number
27 , p_transaction_source_id NUMBER
28 , p_trx_source_line_id NUMBER
29 , p_transaction_source_name VARCHAR2
30 , p_waybill_airbill VARCHAR2
31 , p_shipment_number VARCHAR2
32 , p_freight_code VARCHAR2
33 , p_reason_id NUMBER
34 , p_transaction_reference VARCHAR2
35 , p_transaction_date DATE
36 , p_expected_delivery_date DATE
37 , p_FINAL_COMPLETION_FLAG VARCHAR2
38 , x_return_status out nocopy VARCHAR2
39 , x_msg_count out nocopy NUMBER
40 , x_msg_data out nocopy VARCHAR2
41 )
42
43 as
44 ddp_online_process_flag boolean;
45 ddindx binary_integer; indx binary_integer;
46 begin
47
48 -- copy data to the local IN or IN-OUT args, if any
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72 if p_online_process_flag is null
73 then ddp_online_process_flag := null;
74 elsif p_online_process_flag = 0
75 then ddp_online_process_flag := false;
76 else ddp_online_process_flag := true;
77 end if;
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92 -- here's the delegated call to the old PL/SQL routine
93 csp_transactions_pub.transact_material(p_api_version,
94 p_init_msg_list,
95 p_commit,
96 px_transaction_id,
97 px_transaction_header_id,
98 p_inventory_item_id,
99 p_organization_id,
100 p_subinventory_code,
101 p_locator_id,
102 p_lot_number,
103 p_lot_expiration_date,
104 p_revision,
105 p_serial_number,
106 p_to_serial_number,
107 p_quantity,
108 p_uom,
109 p_source_id,
110 p_source_line_id,
111 p_transaction_type_id,
112 p_account_id,
113 p_transfer_to_subinventory,
114 p_transfer_to_locator,
115 p_transfer_to_organization,
116 ddp_online_process_flag,
117 p_transaction_source_id,
118 p_trx_source_line_id,
119 p_transaction_source_name,
120 p_waybill_airbill,
121 p_shipment_number,
122 p_freight_code,
123 p_reason_id,
124 p_transaction_reference,
125 p_transaction_date,
126 p_expected_delivery_date,
127 p_FINAL_COMPLETION_FLAG,
128 x_return_status,
129 x_msg_count,
130 x_msg_data);
131
132 -- copy data back from the local variables to OUT or IN-OUT args, if any
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169 end;
170
171 procedure transact_temp_record(p_api_version_number NUMBER
172 , p_init_msg_list VARCHAR2
173 , p_commit VARCHAR2
174 , p_validation_level NUMBER
175 , p_transaction_temp_id NUMBER
176 , px_transaction_header_id in out nocopy NUMBER
177 , p_online_process_flag number
178 , x_return_status out nocopy VARCHAR2
179 , x_msg_count out nocopy NUMBER
180 , x_msg_data out nocopy VARCHAR2
181 )
182
183 as
184 ddp_online_process_flag boolean;
185 ddindx binary_integer; indx binary_integer;
186 begin
187
188 -- copy data to the local IN or IN-OUT args, if any
189
190
191
192
193
194
195 if p_online_process_flag is null
196 then ddp_online_process_flag := null;
197 elsif p_online_process_flag = 0
198 then ddp_online_process_flag := false;
199 else ddp_online_process_flag := true;
200 end if;
201
202
203
204
205 -- here's the delegated call to the old PL/SQL routine
206 csp_transactions_pub.transact_temp_record(p_api_version_number,
207 p_init_msg_list,
208 p_commit,
209 p_validation_level,
210 p_transaction_temp_id,
211 px_transaction_header_id,
212 ddp_online_process_flag,
213 x_return_status,
214 x_msg_count,
215 x_msg_data);
216
217 -- copy data back from the local variables to OUT or IN-OUT args, if any
218
219
220
221
222
223
224
225
226
227 end;
228
229 end csp_transactions_pub_w;