31: x_rec_tax := JTF_NUMBER_TABLE();
32: x_rec_charges := JTF_NUMBER_TABLE();
33: x_rec_total := JTF_NUMBER_TABLE();
34:
35: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
36: IBE_Util.Debug('In Get_Ord_Recurring_totals : After Initializations. Calling OE_Totals_GRP.GET_RECURRING_TOTALS');
37: END IF;
38:
39: OE_Totals_GRP.GET_RECURRING_TOTALS
32: x_rec_charges := JTF_NUMBER_TABLE();
33: x_rec_total := JTF_NUMBER_TABLE();
34:
35: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
36: IBE_Util.Debug('In Get_Ord_Recurring_totals : After Initializations. Calling OE_Totals_GRP.GET_RECURRING_TOTALS');
37: END IF;
38:
39: OE_Totals_GRP.GET_RECURRING_TOTALS
40: (
41: p_header_id => p_header_id,
42: x_rec_charges_tbl => l_rec_charge_tbl
43: );
44:
45: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
46: IBE_Util.Debug('In Get_Ord_Recurring_totals : Returned from OE_Totals_GRP.GET_RECURRING_TOTALS');
47: END IF;
48:
49: IF(l_rec_charge_tbl is not null) THEN
42: x_rec_charges_tbl => l_rec_charge_tbl
43: );
44:
45: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
46: IBE_Util.Debug('In Get_Ord_Recurring_totals : Returned from OE_Totals_GRP.GET_RECURRING_TOTALS');
47: END IF;
48:
49: IF(l_rec_charge_tbl is not null) THEN
50:
47: END IF;
48:
49: IF(l_rec_charge_tbl is not null) THEN
50:
51: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
52: IBE_Util.Debug('In Get_Ord_Recurring_totals : Count :: '||l_rec_charge_tbl.count);
53: END IF;
54:
55: FOR n IN l_rec_charge_tbl.first .. l_rec_charge_tbl.last LOOP
48:
49: IF(l_rec_charge_tbl is not null) THEN
50:
51: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
52: IBE_Util.Debug('In Get_Ord_Recurring_totals : Count :: '||l_rec_charge_tbl.count);
53: END IF;
54:
55: FOR n IN l_rec_charge_tbl.first .. l_rec_charge_tbl.last LOOP
56: x_charge_periodicity_code.EXTEND();
69: x_rec_total(n) := l_rec_charge_tbl(n).rec_total;
70: END LOOP;
71: END IF;
72:
73: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
74: IBE_Util.Debug('In Get_Ord_Recurring_totals : End');
75: END IF;
76:
77: END Get_Ord_Recurring_totals;
70: END LOOP;
71: END IF;
72:
73: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
74: IBE_Util.Debug('In Get_Ord_Recurring_totals : End');
75: END IF;
76:
77: END Get_Ord_Recurring_totals;
78:
96: l_adj_detail_tbl OE_Header_Adj_Util.line_adjustments_tab_type ;
97:
98:
99: BEGIN
100: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
101: IBE_Util.Debug('In Get_Adjustments : Start');
102: END IF;
103: x_price_adjustment_id := JTF_NUMBER_TABLE();
104: x_adjustment_name := JTF_VARCHAR2_TABLE_300();
97:
98:
99: BEGIN
100: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
101: IBE_Util.Debug('In Get_Adjustments : Start');
102: END IF;
103: x_price_adjustment_id := JTF_NUMBER_TABLE();
104: x_adjustment_name := JTF_VARCHAR2_TABLE_300();
105: x_adjustment_description := JTF_VARCHAR2_TABLE_2000();
108: x_operand := JTF_NUMBER_TABLE();
109: x_arithmetic_operator := JTF_VARCHAR2_TABLE_300();
110: x_unit_discount_amount := JTF_NUMBER_TABLE();
111:
112: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
113: IBE_Util.Debug('In Get_Adjustments : After Initializations. Calling oe_lineinfo_grp.Get_Adjustments');
114: END IF;
115:
116: OE_LineInfo_Grp.Get_Adjustments(
109: x_arithmetic_operator := JTF_VARCHAR2_TABLE_300();
110: x_unit_discount_amount := JTF_NUMBER_TABLE();
111:
112: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
113: IBE_Util.Debug('In Get_Adjustments : After Initializations. Calling oe_lineinfo_grp.Get_Adjustments');
114: END IF;
115:
116: OE_LineInfo_Grp.Get_Adjustments(
117: p_header_id => p_header_id,
119: x_adj_detail => l_adj_detail_tbl,
120: x_return_status => x_return_status
121: );
122:
123: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
124: IBE_Util.Debug('In Get_Adjustments : After Call to oe_lineinfo_grp.Get_Adjustments');
125: END IF;
126:
127: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
120: x_return_status => x_return_status
121: );
122:
123: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
124: IBE_Util.Debug('In Get_Adjustments : After Call to oe_lineinfo_grp.Get_Adjustments');
125: END IF;
126:
127: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
128: IBE_Util.Debug('In Get_Adjustments : Indexes of l_adj_detail_tbl Fist : '||l_adj_detail_tbl.first || ' Last : ' || l_adj_detail_tbl.last);
123: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
124: IBE_Util.Debug('In Get_Adjustments : After Call to oe_lineinfo_grp.Get_Adjustments');
125: END IF;
126:
127: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
128: IBE_Util.Debug('In Get_Adjustments : Indexes of l_adj_detail_tbl Fist : '||l_adj_detail_tbl.first || ' Last : ' || l_adj_detail_tbl.last);
129: END IF;
130: x_count_lines:=l_adj_detail_tbl.count();
131: for n in l_adj_detail_tbl.first .. l_adj_detail_tbl.last LOOP
124: IBE_Util.Debug('In Get_Adjustments : After Call to oe_lineinfo_grp.Get_Adjustments');
125: END IF;
126:
127: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
128: IBE_Util.Debug('In Get_Adjustments : Indexes of l_adj_detail_tbl Fist : '||l_adj_detail_tbl.first || ' Last : ' || l_adj_detail_tbl.last);
129: END IF;
130: x_count_lines:=l_adj_detail_tbl.count();
131: for n in l_adj_detail_tbl.first .. l_adj_detail_tbl.last LOOP
132: x_price_adjustment_id.EXTEND();
146: x_unit_discount_amount.EXTEND();
147: x_unit_discount_amount(n) := l_adj_detail_tbl(n).unit_discount_amount;
148: END LOOP;
149:
150: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
151: IBE_Util.Debug('In Get_Adjustments : End');
152: END IF;
153: END Get_Adjustments;
154:
147: x_unit_discount_amount(n) := l_adj_detail_tbl(n).unit_discount_amount;
148: END LOOP;
149:
150: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
151: IBE_Util.Debug('In Get_Adjustments : End');
152: END IF;
153: END Get_Adjustments;
154:
155:
181: AND oel.header_id = c_header_id;
182:
183: BEGIN
184:
185: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
186: IBE_Util.Debug('In Get_MACD_Action_Mode : Start');
187: END IF;
188:
189: x_top_model_line_id := JTF_NUMBER_TABLE();
182:
183: BEGIN
184:
185: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
186: IBE_Util.Debug('In Get_MACD_Action_Mode : Start');
187: END IF;
188:
189: x_top_model_line_id := JTF_NUMBER_TABLE();
190: x_line_is_reconfig := JTF_VARCHAR2_TABLE_100();
192: OPEN c_top_model(P_header_id);
193: LOOP
194: FETCH c_top_model INTO l_line_id ,l_top_model_line_id;
195:
196: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
197: IBE_Util.Debug('In Get_MACD_Action_Mode : l_top_model_line_id:' ||l_top_model_line_id);
198: END IF;
199:
200:
193: LOOP
194: FETCH c_top_model INTO l_line_id ,l_top_model_line_id;
195:
196: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
197: IBE_Util.Debug('In Get_MACD_Action_Mode : l_top_model_line_id:' ||l_top_model_line_id);
198: END IF;
199:
200:
201: EXIT WHEN c_top_model%NOTFOUND;
202:
203: /*Call the OE procedure to check that the line is reconfigured or not
204: If the value of l_config_mode in (2,3 4) , the model is reconfigred. */
205:
206: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
207: IBE_Util.Debug('In Get_MACD_Action_Mode : After Initializations. Calling OE_CONFIG_TSO_GRP.Get_MACD_Action_Mode');
208: END IF;
209:
210:
203: /*Call the OE procedure to check that the line is reconfigured or not
204: If the value of l_config_mode in (2,3 4) , the model is reconfigred. */
205:
206: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
207: IBE_Util.Debug('In Get_MACD_Action_Mode : After Initializations. Calling OE_CONFIG_TSO_GRP.Get_MACD_Action_Mode');
208: END IF;
209:
210:
211:
216: x_config_mode => l_config_mode,
217: x_return_status => l_return_status
218: );
219:
220: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
221: IBE_Util.Debug('In Get_MACD_Action_Mode : After Calling OE_CONFIG_TSO_GRP.Get_MACD_Action_Mode');
222: END IF;
223:
224:
217: x_return_status => l_return_status
218: );
219:
220: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
221: IBE_Util.Debug('In Get_MACD_Action_Mode : After Calling OE_CONFIG_TSO_GRP.Get_MACD_Action_Mode');
222: END IF;
223:
224:
225:
232: x_line_is_reconfig.extend();
233: x_line_is_reconfig(l_index) := 'Y' ;
234:
235:
236: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
237: IBE_Util.Debug('In Get_MACD_Action_Mode : x_top_model_line_id(l_index) :' || x_top_model_line_id(l_index) );
238: IBE_Util.Debug('In Get_MACD_Action_Mode : x_line_is_reconfig(l_index) :' || x_line_is_reconfig(l_index) );
239: END IF;
240:
233: x_line_is_reconfig(l_index) := 'Y' ;
234:
235:
236: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
237: IBE_Util.Debug('In Get_MACD_Action_Mode : x_top_model_line_id(l_index) :' || x_top_model_line_id(l_index) );
238: IBE_Util.Debug('In Get_MACD_Action_Mode : x_line_is_reconfig(l_index) :' || x_line_is_reconfig(l_index) );
239: END IF;
240:
241: l_index := l_index +1;
234:
235:
236: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
237: IBE_Util.Debug('In Get_MACD_Action_Mode : x_top_model_line_id(l_index) :' || x_top_model_line_id(l_index) );
238: IBE_Util.Debug('In Get_MACD_Action_Mode : x_line_is_reconfig(l_index) :' || x_line_is_reconfig(l_index) );
239: END IF;
240:
241: l_index := l_index +1;
242:
247:
248: END LOOP;
249: CLOSE c_top_model;
250:
251: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
252: IBE_Util.Debug('In Get_Adjustments : End');
253: END IF;
254:
255: END Get_MACD_Action_Mode;
248: END LOOP;
249: CLOSE c_top_model;
250:
251: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
252: IBE_Util.Debug('In Get_Adjustments : End');
253: END IF;
254:
255: END Get_MACD_Action_Mode;
256:
297: IF lc_contact_details.CONTACT_POINT_TYPE = 'EMAIL' THEN
298: l_cntct_email := lc_contact_details.EMAIL_ADDRESS;
299: ELSE
300: IF (lc_contact_details.CONTACT_POINT_TYPE = 'PHONE') THEN
301: l_cntct_phone := IBE_UTIL.format_phone(lc_contact_details.PHONE_COUNTRY_CODE,lc_contact_details.PHONE_AREA_CODE,
302: lc_contact_details.PHONE_NUMBER,lc_contact_details.PHONE_EXTENSION );
303: END IF;
304: END IF;
305: end loop;
335: l_is_diff_last_update VARCHAR2(1) := 'F';
336:
337:
338: BEGIN
339: IBE_Util.Debug('In validate_last_update_date : start' );
340:
341: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
342: IBE_Util.Debug('In validate_last_update_date : After Initializations');
343: END IF;
337:
338: BEGIN
339: IBE_Util.Debug('In validate_last_update_date : start' );
340:
341: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
342: IBE_Util.Debug('In validate_last_update_date : After Initializations');
343: END IF;
344:
345: --
338: BEGIN
339: IBE_Util.Debug('In validate_last_update_date : start' );
340:
341: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
342: IBE_Util.Debug('In validate_last_update_date : After Initializations');
343: END IF;
344:
345: --
346: OPEN c_getLastUpdatedDate(p_header_id);
345: --
346: OPEN c_getLastUpdatedDate(p_header_id);
347: FETCH c_getLastUpdatedDate INTO l_getLastUpdatedDate;
348: IF (c_getLastUpdatedDate%NOTFOUND) THEN
349: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
350: IBE_Util.Debug('No order with this header id, it is cancelled');
351: END IF;
352: l_is_diff_last_update := 'T';
353: ELSIF (l_getLastUpdatedDate.last_update_date > p_last_update_date) THEN
346: OPEN c_getLastUpdatedDate(p_header_id);
347: FETCH c_getLastUpdatedDate INTO l_getLastUpdatedDate;
348: IF (c_getLastUpdatedDate%NOTFOUND) THEN
349: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
350: IBE_Util.Debug('No order with this header id, it is cancelled');
351: END IF;
352: l_is_diff_last_update := 'T';
353: ELSIF (l_getLastUpdatedDate.last_update_date > p_last_update_date) THEN
354: l_is_diff_last_update := 'T';
357: END IF;
358: CLOSE c_getLastUpdatedDate;
359:
360: x_is_diff_last_update := l_is_diff_last_update;
361: IBE_Util.Debug('In validate_last_update_date : End' || x_is_diff_last_update );
362:
363: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
364: IBE_Util.Debug('In validate_last_update_date : End');
365: END IF;
359:
360: x_is_diff_last_update := l_is_diff_last_update;
361: IBE_Util.Debug('In validate_last_update_date : End' || x_is_diff_last_update );
362:
363: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
364: IBE_Util.Debug('In validate_last_update_date : End');
365: END IF;
366:
367: END validate_last_update_date;
360: x_is_diff_last_update := l_is_diff_last_update;
361: IBE_Util.Debug('In validate_last_update_date : End' || x_is_diff_last_update );
362:
363: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
364: IBE_Util.Debug('In validate_last_update_date : End');
365: END IF;
366:
367: END validate_last_update_date;
368: