[Home] [Help]
PACKAGE BODY: APPS.ORDER_SCH_WB
Source
1 PACKAGE BODY order_sch_wb AS
2 /* $Header: MRPOSCWB.pls 115.56 2003/08/29 00:30:13 mahamed ship $ */
3
4
5 PROCEDURE GET_ATP_RESULT (
6 x_session_id IN NUMBER,
7 commit_flag IN NUMBER,
8 call_oe IN NUMBER,
9 x_msg_count OUT NoCopy NUMBER,
10 x_msg_data OUT NoCopy VARCHAR2,
11 x_return_status OUT NoCopy VARCHAR2
12 )
13 IS
14 BEGIN
15 MSC_SCH_WB.GET_ATP_RESULT (
16 x_session_id,
17 commit_flag,
18 call_oe,
19 x_msg_count,
20 x_msg_data,
21 x_return_status,
22 NULL);
23
24
25 EXCEPTION
26 WHEN OTHERS THEN
27 IF order_sch_wb.mr_debug in ('Y', 'C') THEN
28 atp_debug(' Exception in get_atp_results '||Substr(Sqlerrm,1,100));
29 END IF;
30 x_return_status := 'E';
31 x_msg_data := Substr(Sqlerrm,1,100);
32 END get_atp_result;
33
34 PROCEDURE delete_lines
35 ( p_session_id NUMBER,
36 p_where_clause varchar2) IS
37 BEGIN
38 MSC_SCH_WB.delete_lines(p_session_id, p_where_clause);
39
40 END delete_lines;
41
42 PROCEDURE get_supply_sources_local(
43 x_dblink IN VARCHAR2,
44 x_session_id IN NUMBER,
45 x_sr_instance_id IN NUMBER,
46 x_assignment_set_id IN NUMBER,
47 x_plan_id IN NUMBER,
48 x_calling_inst IN VARCHAR2,
49 x_ret_status OUT NoCopy VARCHAR2,
50 x_error_mesg OUT NoCopy VARCHAR2)
51 IS
52 BEGIN
53 MSC_SCH_WB.get_supply_sources_local(
54 x_dblink,
55 x_session_id,
56 x_sr_instance_id,
57 x_assignment_set_id,
58 x_plan_id,
59 x_calling_inst,
60 x_ret_status,
61 x_error_mesg);
62 END get_supply_sources_local;
63
64
65 PROCEDURE get_atp_rule_name (
66 dblink VARCHAR2,
67 item_id NUMBER,
68 org_id NUMBER,
69 sr_instance_id NUMBER,
70 atp_rule_name OUT NoCopy VARCHAR2,
71 inst VARCHAR2)
72 IS
73 BEGIN
74 MSC_SCH_WB.get_atp_rule_name (
75 dblink,
76 item_id,
77 org_id,
78 sr_instance_id,
79 atp_rule_name,
80 inst);
81 END get_atp_rule_name;
82
83
84 PROCEDURE get_assignment_set (
85 x_dblink VARCHAR2,
86 x_assignment_set_id OUT NoCopy NUMBER,
87 -- This we return what is on the server (MSC)
88 x_assignment_set_name OUT NoCopy VARCHAR2,
89 x_plan_id OUT NoCopy NUMBER,
90 x_plan_name OUT NoCopy VARCHAR2,
91 x_sr_instance_id NUMBER,
92 x_inst VARCHAR2,
93 x_ret_code OUT NoCopy VARCHAR2,
94 x_err_mesg OUT NoCopy VARCHAR2)
95 IS
96 BEGIN
97 MSC_SCH_WB.get_assignment_set (
98 x_dblink,
99 x_assignment_set_id,
100 x_assignment_set_name,
101 x_plan_id,
102 x_plan_name,
103 x_sr_instance_id,
104 x_inst,
105 x_ret_code,
106 x_err_mesg);
107 EXCEPTION
108 WHEN no_data_found THEN
109 x_ret_code := 'E';
110 x_err_mesg := substr(sqlerrm,1,100);
111 END get_assignment_set;
112
113 PROCEDURE atp_debug(buf IN VARCHAR2) IS
114 BEGIN
115 MSC_SCH_WB.atp_debug(buf);
116 END atp_debug;
117
118 PROCEDURE MRP_TIMING(buf IN VARCHAR2)
119 IS
120 BEGIN
121 MSC_SCH_WB.mrp_timing(buf);
122 EXCEPTION
123 WHEN OTHERS THEN
124 --dbms_output.put_line('Exception in mrp_timing '||Sqlerrm);
125 return;
126 END MRP_TIMING;
127
128
129 PROCEDURE get_period_atp_strings(
130 p_is_allocated BOOLEAN,
131 p_session_id NUMBER,
132 p_old_session_id number,
133 p_dmd_flag number,
134 p_end_pegging_id number,
135 p_pegging_id NUMBER,
136 p_organization_id NUMBER,
137 p_sr_instance_id NUMBER,
138 p_inst VARCHAR2,
139 p_supply_str OUT NoCopy VARCHAR2,
140 p_demand_str OUT NoCopy VARCHAR2,
141 p_bkd_demand_str OUT NoCopy VARCHAR2,
142 p_net_atp_str OUT NoCopy VARCHAR2,
143 p_cum_atp_str OUT NoCopy VARCHAR2,
144 p_row_hdr_str OUT NoCopy VARCHAR2,
145 p_date_str OUT NoCopy VARCHAR2,
146 p_week_str OUT NoCopy VARCHAR2,
147 p_period_str OUT NoCopy VARCHAR2
148 ) is
149 BEGIN
150 MSC_SCH_WB.get_period_atp_strings(
151 p_is_allocated,
152 p_session_id,
153 p_old_session_id,
154 p_dmd_flag,
155 p_end_pegging_id,
156 p_pegging_id,
157 p_organization_id,
158 p_sr_instance_id,
159 p_inst,
160 p_supply_str,
161 p_demand_str,
162 p_bkd_demand_str,
163 p_net_atp_str,
164 p_cum_atp_str,
165 p_row_hdr_str,
166 p_date_str,
167 p_week_str,
168 p_period_str);
169 EXCEPTION
170 WHEN OTHERS THEN
171 IF order_sch_wb.mr_debug in ('Y', 'C') THEN
172 msc_sch_wb.atp_debug('get_period_atp_strings: ' || ' excp in get_period_strings '||substr(Sqlerrm, 1, 100));
173 END IF;
174 END get_period_atp_strings;
175
176 PROCEDURE calc_exceptions(
177 p_session_id IN NUMBER,
178 x_return_status OUT NoCopy VARCHAR2,
179 x_msg_data OUT NoCopy VARCHAR2,
180 x_msg_count OUT NoCopy NUMBER
181 )
182 IS
183 PRAGMA AUTONOMOUS_TRANSACTION;
184 BEGIN
185 MSC_SCH_WB.calc_exceptions(
186 p_session_id,
187 x_return_status,
188 x_msg_data,
189 x_msg_count);
190 EXCEPTION
191 WHEN OTHERS THEN
192 IF order_sch_wb.mr_debug in ('Y', 'C') THEN
193 atp_debug('calc_exceptions: ' || ' exception in calc_excep - '||substr(sqlerrm,1,100));
194 END IF;
195 x_return_status := 'E';
196 END calc_exceptions;
197
198 FUNCTION get_supply_demand_source_name (
199 organization_id IN NUMBER,
200 supply_demand_source_type IN NUMBER,
201 supply_demand_source_id IN NUMBER
202 ) RETURN VARCHAR2 IS
203 BEGIN
204 RETURN MSC_SCH_WB.get_supply_demand_source_name (
205 organization_id,
206 supply_demand_source_type,
207 supply_demand_source_id);
208
209 END get_supply_demand_source_name;
210
211 PROCEDURE pipe_utility(
212 p_session_id IN NUMBER,
213 p_command IN VARCHAR2,
214 p_message IN OUT NoCopy VARCHAR2,
215 p_message_count OUT NoCopy NUMBER, -- Right now just 0 or 1
216 x_return_status OUT NoCopy VARCHAR2,
217 x_msg_data OUT NoCopy VARCHAR2,
218 x_msg_count OUT NoCopy NUMBER
219 )
220 IS
221 ret NUMBER;
222 empty_pipe EXCEPTION;
223 PRAGMA EXCEPTION_INIT (EMPTY_PIPE, -6556);
224 BEGIN
225 MSC_SCH_WB.pipe_utility(
226 p_session_id,
227 p_command,
228 p_message,
229 p_message_count,
230 x_return_status,
231 x_msg_data,
232 x_msg_count);
233 EXCEPTION
234 WHEN EMPTY_PIPE THEN
235 NULL;
236 WHEN OTHERS THEN
237 IF order_sch_wb.mr_debug in ('Y', 'C') THEN
238 atp_debug(' Exception in pipe_utility '||p_command||Substr(Sqlerrm,1,100));
239 END IF;
240 x_return_status := 'E';
241 x_msg_data := Substr(Sqlerrm,1,100);
242 END pipe_utility;
243
244 PROCEDURE set_session_id(p_session_id IN NUMBER)
245 IS
246 BEGIN
247 MSC_SCH_WB.set_session_id(p_session_id);
248 END set_session_id;
249
250 PROCEDURE extend_other_cols(x_other_cols IN OUT NoCopy other_cols_typ, amount NUMBER)
251 IS
252 BEGIN
253 MSC_SCH_WB.extend_other_cols(x_other_cols, amount);
254 END extend_other_cols;
255
256 PROCEDURE commit_db IS
257 BEGIN
258 COMMIT;
259 END commit_db;
260
261 PROCEDURE get_master_org(p_master_org_id OUT NoCopy NUMBER)
262 IS
263 BEGIN
264 MSC_SCH_WB.get_master_org(p_master_org_id);
265 END get_master_org;
266
267 PROCEDURE get_profile(profile_name VARCHAR2, profile_value OUT NoCopy NUMBER)
268 IS
269 BEGIN
270 MSC_SCH_WB.get_profile(profile_name, profile_value);
271 END get_profile;
272
273 END ORDER_SCH_WB;