[Home] [Help]
68: idx Number;
69: tot_qty Number;
70: gen_exit EXCEPTION;
71: Begin
72: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
73: fnd_log.string(FND_LOG.LEVEL_PROCEDURE ,G_MODULE_CURRENT||'.create_default_schedule.begin'
74: ,'p_cle_id = '||p_cle_id||' ,p_intent = '||p_intent);
75: END IF;
76: x_return_status := 'S';
69: tot_qty Number;
70: gen_exit EXCEPTION;
71: Begin
72: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
73: fnd_log.string(FND_LOG.LEVEL_PROCEDURE ,G_MODULE_CURRENT||'.create_default_schedule.begin'
74: ,'p_cle_id = '||p_cle_id||' ,p_intent = '||p_intent);
75: END IF;
76: x_return_status := 'S';
77: OKC_API.init_msg_list(p_init_msg_list);
86: p_msg_name => 'OKS_SUB_INVAL_LINE',
87: p_token1 => 'LINEID',
88: p_token1_value => p_cle_id
89: );
90: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
91: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.create_default_schedule.ERROR','Invalid Line');
92: END IF;
93: Raise gen_exit;
94: END IF;
87: p_token1 => 'LINEID',
88: p_token1_value => p_cle_id
89: );
90: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
91: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.create_default_schedule.ERROR','Invalid Line');
92: END IF;
93: Raise gen_exit;
94: END IF;
95: Close kl_cur;
92: END IF;
93: Raise gen_exit;
94: END IF;
95: Close kl_cur;
96: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
97: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.create_default_schedule.line_details',
98: 'Header Id = '||g_chr_id||' ,Start Date = '||to_char(l_start_date,'DD-MON-YYYY')
99: ||' ,End Date = '||to_char(l_end_date,'DD-MON-YYYY')||' ,Quantity = '||l_qty
100: ||' ,UOM = '||l_uom||', Item Type Code = '||l_itype||' , Template Id = '||l_template_id
93: Raise gen_exit;
94: END IF;
95: Close kl_cur;
96: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
97: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.create_default_schedule.line_details',
98: 'Header Id = '||g_chr_id||' ,Start Date = '||to_char(l_start_date,'DD-MON-YYYY')
99: ||' ,End Date = '||to_char(l_end_date,'DD-MON-YYYY')||' ,Quantity = '||l_qty
100: ||' ,UOM = '||l_uom||', Item Type Code = '||l_itype||' , Template Id = '||l_template_id
101: ||' ,NL Trackable(For Non-Subscription Items) = '||l_tangible
103: END IF;
104: IF l_itype = 'SUBSCRIPTION' Or l_tangible = 'Y' THEN
105: -- For Subscription Items, get the subscription header details from the template
106: If l_itype = 'SUBSCRIPTION' Then -- Tangible or Intangible Subscription Item
107: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
108: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.create_default_schedule.subs','it is a subscription item');
109: END IF;
110: if l_template_id is null then
111: x_return_status := OKC_API.G_RET_STS_ERROR;
104: IF l_itype = 'SUBSCRIPTION' Or l_tangible = 'Y' THEN
105: -- For Subscription Items, get the subscription header details from the template
106: If l_itype = 'SUBSCRIPTION' Then -- Tangible or Intangible Subscription Item
107: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
108: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.create_default_schedule.subs','it is a subscription item');
109: END IF;
110: if l_template_id is null then
111: x_return_status := OKC_API.G_RET_STS_ERROR;
112: OKC_API.set_message
112: OKC_API.set_message
113: ( p_app_name => 'OKS',
114: p_msg_name => 'OKS_SUB_NO_TMPL'
115: );
116: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
117: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.create_default_schedule.ERROR','No Template');
118: END IF;
119: Raise gen_exit;
120: end if;
113: ( p_app_name => 'OKS',
114: p_msg_name => 'OKS_SUB_NO_TMPL'
115: );
116: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
117: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.create_default_schedule.ERROR','No Template');
118: END IF;
119: Raise gen_exit;
120: end if;
121: For osh_rec In osh_cur(l_template_id) Loop
129: l_hdr_tbl_in(1).fulfillment_channel := osh_rec.fulfillment_channel;
130: l_hdr_tbl_in(1).comments := osh_rec.comments;
131: l_hdr_tbl_in(1).item_type := osh_rec.item_type;
132: l_status := osh_rec.status;
133: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
134: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.create_default_schedule.template_details',
135: 'Name = '||osh_rec.name||', Description = '||osh_rec.description
136: ||', Subs. Type = '||osh_rec.subscription_type||', Media Type = '||osh_rec.media_type
137: ||', Frequency = '||osh_rec.frequency||', Fulfill. Channel = '||osh_rec.fulfillment_channel
130: l_hdr_tbl_in(1).comments := osh_rec.comments;
131: l_hdr_tbl_in(1).item_type := osh_rec.item_type;
132: l_status := osh_rec.status;
133: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
134: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.create_default_schedule.template_details',
135: 'Name = '||osh_rec.name||', Description = '||osh_rec.description
136: ||', Subs. Type = '||osh_rec.subscription_type||', Media Type = '||osh_rec.media_type
137: ||', Frequency = '||osh_rec.frequency||', Fulfill. Channel = '||osh_rec.fulfillment_channel
138: ||', Item Type = '||osh_rec.item_type||', Status = '||osh_rec.status
147: p_msg_name => 'OKS_SUB_INACT_TMPL',
148: p_token1 => 'TMPL',
149: p_token1_value => l_hdr_tbl_in(1).name
150: );
151: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
152: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.create_default_schedule.ERROR','Inactive Template');
153: END IF;
154: Raise gen_exit;
155: end if;
148: p_token1 => 'TMPL',
149: p_token1_value => l_hdr_tbl_in(1).name
150: );
151: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
152: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.create_default_schedule.ERROR','Inactive Template');
153: END IF;
154: Raise gen_exit;
155: end if;
156: -- Create Item Instance in the Installed Base --
153: END IF;
154: Raise gen_exit;
155: end if;
156: -- Create Item Instance in the Installed Base --
157: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
158: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.before',
159: 'oks_auth_util_pub.create_cii_for_subscription(p_cle_id = '||p_cle_id||')');
160: END IF;
161: OKS_AUTH_UTIL_PUB.CREATE_CII_FOR_SUBSCRIPTION
154: Raise gen_exit;
155: end if;
156: -- Create Item Instance in the Installed Base --
157: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
158: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.before',
159: 'oks_auth_util_pub.create_cii_for_subscription(p_cle_id = '||p_cle_id||')');
160: END IF;
161: OKS_AUTH_UTIL_PUB.CREATE_CII_FOR_SUBSCRIPTION
162: (
167: x_msg_data => x_msg_data,
168: p_cle_id => p_cle_id,
169: x_instance_id => l_instance_id
170: );
171: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
172: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.after',
173: 'oks_auth_util_pub.create_cii_for_subscription(x_return_status = '||x_return_status
174: ||', x_instance_id = '||l_instance_id||')');
175: END IF;
168: p_cle_id => p_cle_id,
169: x_instance_id => l_instance_id
170: );
171: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
172: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.after',
173: 'oks_auth_util_pub.create_cii_for_subscription(x_return_status = '||x_return_status
174: ||', x_instance_id = '||l_instance_id||')');
175: END IF;
176: If NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS Then
188: l_hdr_tbl_in(1).fulfillment_channel := 'OM';
189: l_hdr_tbl_in(1).item_type := 'NT';
190: End If;
191: l_hdr_tbl_in(1).status := 'A';
192: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
193: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.before',
194: 'oks_subscr_hdr_pub.insert_row');
195: END IF;
196: OKS_SUBSCR_HDR_PUB.insert_row
189: l_hdr_tbl_in(1).item_type := 'NT';
190: End If;
191: l_hdr_tbl_in(1).status := 'A';
192: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
193: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.before',
194: 'oks_subscr_hdr_pub.insert_row');
195: END IF;
196: OKS_SUBSCR_HDR_PUB.insert_row
197: (
202: x_msg_data => x_msg_data,
203: p_schv_tbl => l_hdr_tbl_in,
204: x_schv_tbl => l_hdr_tbl_out
205: );
206: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
207: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.after',
208: 'oks_subscr_hdr_pub.insert_row(x_return_status = '||x_return_status||')');
209: END IF;
210: If NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS Then
203: p_schv_tbl => l_hdr_tbl_in,
204: x_schv_tbl => l_hdr_tbl_out
205: );
206: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
207: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.after',
208: 'oks_subscr_hdr_pub.insert_row(x_return_status = '||x_return_status||')');
209: END IF;
210: If NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS Then
211: Raise gen_exit;
213:
214: -- FOR TANGIBLE ITEMS(SUBSCRIPTION OR NON-SUB), CREATE DEFAULT PATTERN --
215: If l_hdr_tbl_out(1).fulfillment_channel <> 'NONE' then
216: -- CREATE DEFAULT SCHEDULE PATTERN --
217: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
218: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.create_default_schedule.tangible','it is a tangible item');
219: END IF;
220: l_ptrns_tbl_in(1).osh_id := l_hdr_tbl_out(1).id;
221: l_ptrns_tbl_in(1).dnz_chr_id := g_chr_id;
214: -- FOR TANGIBLE ITEMS(SUBSCRIPTION OR NON-SUB), CREATE DEFAULT PATTERN --
215: If l_hdr_tbl_out(1).fulfillment_channel <> 'NONE' then
216: -- CREATE DEFAULT SCHEDULE PATTERN --
217: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
218: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.create_default_schedule.tangible','it is a tangible item');
219: END IF;
220: l_ptrns_tbl_in(1).osh_id := l_hdr_tbl_out(1).id;
221: l_ptrns_tbl_in(1).dnz_chr_id := g_chr_id;
222: l_ptrns_tbl_in(1).dnz_cle_id := p_cle_id;
221: l_ptrns_tbl_in(1).dnz_chr_id := g_chr_id;
222: l_ptrns_tbl_in(1).dnz_cle_id := p_cle_id;
223: l_ptrns_tbl_in(1).seq_no := 1;
224: if l_itype = 'SUBSCRIPTION' then
225: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
226: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.create_default_schedule.tansub',
227: 'it is a tangible subscription item. creating default pattern');
228: END IF;
229: l_ptrns_tbl_in(1).year := '*';
222: l_ptrns_tbl_in(1).dnz_cle_id := p_cle_id;
223: l_ptrns_tbl_in(1).seq_no := 1;
224: if l_itype = 'SUBSCRIPTION' then
225: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
226: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.create_default_schedule.tansub',
227: 'it is a tangible subscription item. creating default pattern');
228: END IF;
229: l_ptrns_tbl_in(1).year := '*';
230: if l_hdr_tbl_out(1).frequency = 'M' then
236: l_ptrns_tbl_in(1).month := '*';
237: l_ptrns_tbl_in(1).day := '*';
238: end if;
239: else -- non-subscription item, it will be shippable
240: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
241: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.create_default_schedule.tannonsub',
242: 'it is a tangible non-subscription item. creating one-time schedule pattern');
243: END IF;
244: -- CREATE PATTERN FOR ONE-TIME SCHEDULE IF SHIPPABLE NON-SUBSCRIPTION ITEM
237: l_ptrns_tbl_in(1).day := '*';
238: end if;
239: else -- non-subscription item, it will be shippable
240: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
241: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.create_default_schedule.tannonsub',
242: 'it is a tangible non-subscription item. creating one-time schedule pattern');
243: END IF;
244: -- CREATE PATTERN FOR ONE-TIME SCHEDULE IF SHIPPABLE NON-SUBSCRIPTION ITEM
245: l_ptrns_tbl_in(1).year := to_char(l_start_date,'YYYY');
245: l_ptrns_tbl_in(1).year := to_char(l_start_date,'YYYY');
246: l_ptrns_tbl_in(1).month := to_char(l_start_date,'MM');
247: l_ptrns_tbl_in(1).day := to_char(l_start_date,'DD');
248: end if;
249: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
250: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.before',
251: 'oks_subscr_ptrns_pub.insert_row');
252: END IF;
253: OKS_SUBSCR_PTRNS_PUB.insert_row
246: l_ptrns_tbl_in(1).month := to_char(l_start_date,'MM');
247: l_ptrns_tbl_in(1).day := to_char(l_start_date,'DD');
248: end if;
249: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
250: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.before',
251: 'oks_subscr_ptrns_pub.insert_row');
252: END IF;
253: OKS_SUBSCR_PTRNS_PUB.insert_row
254: (
259: x_msg_data => x_msg_data,
260: p_scpv_tbl => l_ptrns_tbl_in,
261: x_scpv_tbl => l_ptrns_tbl_out
262: );
263: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
264: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.after',
265: 'oks_subscr_ptrns_pub.insert_row(x_return_status = '||x_return_status||')');
266: END IF;
267: if NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS then
260: p_scpv_tbl => l_ptrns_tbl_in,
261: x_scpv_tbl => l_ptrns_tbl_out
262: );
263: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
264: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.after',
265: 'oks_subscr_ptrns_pub.insert_row(x_return_status = '||x_return_status||')');
266: END IF;
267: if NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS then
268: Raise gen_exit;
273: l_pattern_tbl(1).mth_pattern := l_ptrns_tbl_out(1).month;
274: l_pattern_tbl(1).week_pattern := l_ptrns_tbl_out(1).week;
275: l_pattern_tbl(1).wday_pattern := l_ptrns_tbl_out(1).week_day;
276: l_pattern_tbl(1).day_pattern := l_ptrns_tbl_out(1).day;
277: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
278: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.before',
279: 'oks_subscription_sch_pvt.calc_delivery_date');
280: END IF;
281: OKS_SUBSCRIPTION_SCH_PVT.calc_delivery_date
274: l_pattern_tbl(1).week_pattern := l_ptrns_tbl_out(1).week;
275: l_pattern_tbl(1).wday_pattern := l_ptrns_tbl_out(1).week_day;
276: l_pattern_tbl(1).day_pattern := l_ptrns_tbl_out(1).day;
277: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
278: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.before',
279: 'oks_subscription_sch_pvt.calc_delivery_date');
280: END IF;
281: OKS_SUBSCRIPTION_SCH_PVT.calc_delivery_date
282: (
287: p_pattern_tbl => l_pattern_tbl,
288: x_delivery_tbl => l_delivery_tbl,
289: x_return_status => x_return_status
290: );
291: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
292: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.after',
293: 'oks_subscription_sch_pvt.calc_delivery_date(x_return_status = '||x_return_status||')');
294: END IF;
295: if NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS then
288: x_delivery_tbl => l_delivery_tbl,
289: x_return_status => x_return_status
290: );
291: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
292: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.after',
293: 'oks_subscription_sch_pvt.calc_delivery_date(x_return_status = '||x_return_status||')');
294: END IF;
295: if NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS then
296: Raise gen_exit;
314: idx := l_delivery_tbl.NEXT(idx);
315: i := i + 1;
316: END LOOP;
317: tot_qty := i * l_qty;
318: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
319: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.before',
320: 'oks_subscr_elems_pub.insert_row');
321: END IF;
322: OKS_SUBSCR_ELEMS_PUB.insert_row
315: i := i + 1;
316: END LOOP;
317: tot_qty := i * l_qty;
318: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
319: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.before',
320: 'oks_subscr_elems_pub.insert_row');
321: END IF;
322: OKS_SUBSCR_ELEMS_PUB.insert_row
323: (
328: x_msg_data => x_msg_data,
329: p_scev_tbl => l_elems_tbl_in,
330: x_scev_tbl => l_elems_tbl_out
331: );
332: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
333: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.after',
334: 'oks_subscr_elems_pub.insert_row(x_return_status = '||x_return_status||')');
335: END IF;
336: if NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS then
329: p_scev_tbl => l_elems_tbl_in,
330: x_scev_tbl => l_elems_tbl_out
331: );
332: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
333: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.after',
334: 'oks_subscr_elems_pub.insert_row(x_return_status = '||x_return_status||')');
335: END IF;
336: if NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS then
337: Raise gen_exit;
339: else
340: Null; -- No Schedule for this line. Handle exception here if needed
341: end if; -- l_delivery_tbl.COUNT
342: Else
343: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
344: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.create_default_schedule.intansub',
345: 'it is an intangible subscription item. only header is created');
346: END IF;
347: End If;
340: Null; -- No Schedule for this line. Handle exception here if needed
341: end if; -- l_delivery_tbl.COUNT
342: Else
343: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
344: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.create_default_schedule.intansub',
345: 'it is an intangible subscription item. only header is created');
346: END IF;
347: End If;
348: ELSE
345: 'it is an intangible subscription item. only header is created');
346: END IF;
347: End If;
348: ELSE
349: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
350: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.create_default_schedule.intannonsub',
351: 'it is an intangible non-subscription item. nothing created (only pricing will be called)');
352: END IF;
353: END IF;
346: END IF;
347: End If;
348: ELSE
349: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
350: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.create_default_schedule.intannonsub',
351: 'it is an intangible non-subscription item. nothing created (only pricing will be called)');
352: END IF;
353: END IF;
354: -- PRICE THE TOP LINE
353: END IF;
354: -- PRICE THE TOP LINE
355: l_price_details_in.line_id := p_cle_id;
356: l_price_details_in.intent := NVL(p_intent,'SB_P');
357: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
358: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.before',
359: 'oks_qp_int_pvt.compute_price(p_detail_rec.line_id = '||l_price_details_in.line_id||
360: ', p_detail_rec.intent = '||l_price_details_in.intent||')');
361: END IF;
354: -- PRICE THE TOP LINE
355: l_price_details_in.line_id := p_cle_id;
356: l_price_details_in.intent := NVL(p_intent,'SB_P');
357: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
358: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.before',
359: 'oks_qp_int_pvt.compute_price(p_detail_rec.line_id = '||l_price_details_in.line_id||
360: ', p_detail_rec.intent = '||l_price_details_in.intent||')');
361: END IF;
362: OKS_QP_INT_PVT.compute_price
370: x_price_details => x_price_details_out,
371: x_modifier_details => x_mo_details,
372: x_price_break_details => x_pb_details
373: );
374: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
375: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.after',
376: 'oks_qp_int_pvt.compute_price(x_return_status = '||x_return_status||')');
377: END IF;
378: IF NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS THEN
371: x_modifier_details => x_mo_details,
372: x_price_break_details => x_pb_details
373: );
374: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
375: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.create_default_schedule.external_call.after',
376: 'oks_qp_int_pvt.compute_price(x_return_status = '||x_return_status||')');
377: END IF;
378: IF NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS THEN
379: Raise gen_exit;
377: END IF;
378: IF NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS THEN
379: Raise gen_exit;
380: END IF;
381: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
382: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.create_default_schedule.end',' ');
383: END IF;
384: Exception
385: When gen_exit Then
378: IF NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS THEN
379: Raise gen_exit;
380: END IF;
381: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
382: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.create_default_schedule.end',' ');
383: END IF;
384: Exception
385: When gen_exit Then
386: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
382: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.create_default_schedule.end',' ');
383: END IF;
384: Exception
385: When gen_exit Then
386: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
387: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE_CURRENT||'.create_default_schedule.EXCEPTION','gen_exit');
388: END IF;
389: When OTHERS Then
390: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
383: END IF;
384: Exception
385: When gen_exit Then
386: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
387: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE_CURRENT||'.create_default_schedule.EXCEPTION','gen_exit');
388: END IF;
389: When OTHERS Then
390: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
391: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.create_default_schedule.UNEXPECTED',
386: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
387: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE_CURRENT||'.create_default_schedule.EXCEPTION','gen_exit');
388: END IF;
389: When OTHERS Then
390: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
391: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.create_default_schedule.UNEXPECTED',
392: 'sqlcode = '||sqlcode||', sqlerrm = '||sqlerrm);
393: END IF;
394: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
387: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE_CURRENT||'.create_default_schedule.EXCEPTION','gen_exit');
388: END IF;
389: When OTHERS Then
390: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
391: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.create_default_schedule.UNEXPECTED',
392: 'sqlcode = '||sqlcode||', sqlerrm = '||sqlerrm);
393: END IF;
394: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
395: OKC_API.set_message
557: l_elems_tbl_del_in(del_idx).id := tmp_elem_tbl(i).id;
558: end create_delete_rec;
559:
560: Begin
561: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
562: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.recreate_schedule.begin','p_cle_id = '||p_cle_id||
563: ' ,p_intent = '||p_intent);
564: END IF;
565: x_return_status := OKC_API.G_RET_STS_SUCCESS;
558: end create_delete_rec;
559:
560: Begin
561: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
562: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.recreate_schedule.begin','p_cle_id = '||p_cle_id||
563: ' ,p_intent = '||p_intent);
564: END IF;
565: x_return_status := OKC_API.G_RET_STS_SUCCESS;
566: Open kl_cur;
573: p_msg_name => 'OKS_SUB_INVAL_LINE',
574: p_token1 => 'LINEID',
575: p_token1_value => p_cle_id
576: );
577: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
578: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.recreate_schedule.ERROR','Invalid Subscription Line');
579: END IF;
580: Raise gen_exit;
581: END IF;
574: p_token1 => 'LINEID',
575: p_token1_value => p_cle_id
576: );
577: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
578: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.recreate_schedule.ERROR','Invalid Subscription Line');
579: END IF;
580: Raise gen_exit;
581: END IF;
582: Close kl_cur;
579: END IF;
580: Raise gen_exit;
581: END IF;
582: Close kl_cur;
583: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
584: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.line_details',
585: 'Header Id = '||g_chr_id||' ,Start Date = '||to_char(l_start_date,'DD-MON-YYYY')
586: ||' ,End Date = '||to_char(l_end_date,'DD-MON-YYYY')||' ,Quantity = '||l_qty
587: ||' ,UOM = '||l_uom||', Item Type Code = '||l_itype
580: Raise gen_exit;
581: END IF;
582: Close kl_cur;
583: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
584: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.line_details',
585: 'Header Id = '||g_chr_id||' ,Start Date = '||to_char(l_start_date,'DD-MON-YYYY')
586: ||' ,End Date = '||to_char(l_end_date,'DD-MON-YYYY')||' ,Quantity = '||l_qty
587: ||' ,UOM = '||l_uom||', Item Type Code = '||l_itype
588: );
593: l_osh_id := osh_rec.id;
594: l_frequency := osh_rec.frequency;
595: l_fulfill_chnl := osh_rec.fulfillment_channel;
596: l_offset := osh_rec.offset;
597: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
598: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.subs_header_details',
599: 'Id = '||osh_rec.id||', Fulfill. Channel = '||osh_rec.fulfillment_channel
600: ||', Frequency = '||osh_rec.frequency||', Offset = '||osh_rec.offset);
601: END IF;
594: l_frequency := osh_rec.frequency;
595: l_fulfill_chnl := osh_rec.fulfillment_channel;
596: l_offset := osh_rec.offset;
597: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
598: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.subs_header_details',
599: 'Id = '||osh_rec.id||', Fulfill. Channel = '||osh_rec.fulfillment_channel
600: ||', Frequency = '||osh_rec.frequency||', Offset = '||osh_rec.offset);
601: END IF;
602: Exit;
603: End Loop;
604:
605: -- RECREATE DELIVERY SCHEDULE ONLY FOR TANGIBLE ITEMS(SUBSCRIPTION OR NON-SUB) --
606: IF l_fulfill_chnl <> 'NONE' THEN
607: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
608: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.tan',
609: 'it is an tangible item');
610: END IF;
611: -- Need the unit price for populating the elements table if pricing is not called
604:
605: -- RECREATE DELIVERY SCHEDULE ONLY FOR TANGIBLE ITEMS(SUBSCRIPTION OR NON-SUB) --
606: IF l_fulfill_chnl <> 'NONE' THEN
607: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
608: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.tan',
609: 'it is an tangible item');
610: END IF;
611: -- Need the unit price for populating the elements table if pricing is not called
612: -- (The procedure is called with p_intent=NULL while copying subscription, to skip pricing call)
616: l_sch_found := unitprice_cur%FOUND;
617: Close unitprice_cur;
618: If l_sch_found Then
619: l_elem_amount := l_unitprice * l_qty;
620: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
621: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.unitprice',
622: 'Unit Price = '||l_unitprice||' ,UOM Code = '||l_uom1||
623: ' ,Elem. Amount = '||l_elem_amount
624: );
617: Close unitprice_cur;
618: If l_sch_found Then
619: l_elem_amount := l_unitprice * l_qty;
620: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
621: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.unitprice',
622: 'Unit Price = '||l_unitprice||' ,UOM Code = '||l_uom1||
623: ' ,Elem. Amount = '||l_elem_amount
624: );
625: END IF;
640: End If;
641: idx := idx + 1;
642: End Loop;
643: If l_itype <> 'SUBSCRIPTION' Then
644: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
645: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.tannonsub',
646: 'it is a tangible non-subscription item');
647: END IF;
648: if NVL(l_pattern_tbl(1).yr_pattern,'!') <> to_char(l_start_date,'YYYY') or
641: idx := idx + 1;
642: End Loop;
643: If l_itype <> 'SUBSCRIPTION' Then
644: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
645: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.tannonsub',
646: 'it is a tangible non-subscription item');
647: END IF;
648: if NVL(l_pattern_tbl(1).yr_pattern,'!') <> to_char(l_start_date,'YYYY') or
649: NVL(l_pattern_tbl(1).mth_pattern,'!') <> to_char(l_start_date,'MM') or
647: END IF;
648: if NVL(l_pattern_tbl(1).yr_pattern,'!') <> to_char(l_start_date,'YYYY') or
649: NVL(l_pattern_tbl(1).mth_pattern,'!') <> to_char(l_start_date,'MM') or
650: NVL(l_pattern_tbl(1).day_pattern,'!') <> to_char(l_start_date,'DD') then
651: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
652: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.updptrn',
653: 'start date changed. the single record pattern will be updated');
654: END IF;
655: l_ptrns_tbl_in(1).id := l_ptrn_id;
648: if NVL(l_pattern_tbl(1).yr_pattern,'!') <> to_char(l_start_date,'YYYY') or
649: NVL(l_pattern_tbl(1).mth_pattern,'!') <> to_char(l_start_date,'MM') or
650: NVL(l_pattern_tbl(1).day_pattern,'!') <> to_char(l_start_date,'DD') then
651: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
652: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.updptrn',
653: 'start date changed. the single record pattern will be updated');
654: END IF;
655: l_ptrns_tbl_in(1).id := l_ptrn_id;
656: l_ptrns_tbl_in(1).object_version_number := l_ptrn_ovn;
660: l_ptrns_tbl_in(1).seq_no := 1;
661: l_ptrns_tbl_in(1).year := to_char(l_start_date,'YYYY');
662: l_ptrns_tbl_in(1).month := to_char(l_start_date,'MM');
663: l_ptrns_tbl_in(1).day := to_char(l_start_date,'DD');
664: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
665: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.before',
666: 'oks_subscr_ptrns_pub.update_row(p_scpv_tbl(1).id = '||l_ptrns_tbl_in(1).id||')');
667: END IF;
668: OKS_SUBSCR_PTRNS_PUB.update_row
661: l_ptrns_tbl_in(1).year := to_char(l_start_date,'YYYY');
662: l_ptrns_tbl_in(1).month := to_char(l_start_date,'MM');
663: l_ptrns_tbl_in(1).day := to_char(l_start_date,'DD');
664: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
665: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.before',
666: 'oks_subscr_ptrns_pub.update_row(p_scpv_tbl(1).id = '||l_ptrns_tbl_in(1).id||')');
667: END IF;
668: OKS_SUBSCR_PTRNS_PUB.update_row
669: (
674: x_msg_data => x_msg_data,
675: p_scpv_tbl => l_ptrns_tbl_in,
676: x_scpv_tbl => l_ptrns_tbl_out
677: );
678: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
679: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.after',
680: 'oks_subscr_ptrns_pub.update_row(x_return_status = '||x_return_status||')');
681: END IF;
682: if NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS then
675: p_scpv_tbl => l_ptrns_tbl_in,
676: x_scpv_tbl => l_ptrns_tbl_out
677: );
678: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
679: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.after',
680: 'oks_subscr_ptrns_pub.update_row(x_return_status = '||x_return_status||')');
681: END IF;
682: if NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS then
683: Raise gen_exit;
686: l_pattern_tbl(1).mth_pattern := to_char(l_start_date,'MM');
687: l_pattern_tbl(1).day_pattern := to_char(l_start_date,'DD');
688: end if;
689: End If;
690: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
691: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.before',
692: 'oks_subscription_sch_pvt.calc_delivery_date');
693: END IF;
694: OKS_SUBSCRIPTION_SCH_PVT.calc_delivery_date
687: l_pattern_tbl(1).day_pattern := to_char(l_start_date,'DD');
688: end if;
689: End If;
690: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
691: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.before',
692: 'oks_subscription_sch_pvt.calc_delivery_date');
693: END IF;
694: OKS_SUBSCRIPTION_SCH_PVT.calc_delivery_date
695: (
700: p_pattern_tbl => l_pattern_tbl,
701: x_delivery_tbl => l_delivery_tbl,
702: x_return_status => x_return_status
703: );
704: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
705: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.after',
706: 'oks_subscription_sch_pvt.calc_delivery_date(x_return_status = '||x_return_status||')');
707: END IF;
708: If nvl(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS Then
701: x_delivery_tbl => l_delivery_tbl,
702: x_return_status => x_return_status
703: );
704: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
705: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.after',
706: 'oks_subscription_sch_pvt.calc_delivery_date(x_return_status = '||x_return_status||')');
707: END IF;
708: If nvl(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS Then
709: Raise gen_exit;
728: LOOP
729: idx := to_char(l_delivery_tbl(i).start_date,'YYYYMMDD');
730: if tmp_elem_tbl.EXISTS(idx) then
731: if tmp_elem_tbl(idx).order_id Is Null then
732: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
733: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.updelem',
734: 'marking element for update: period start date - '
735: ||to_char(l_delivery_tbl(i).start_date,'DD-MON-YYYY')
736: );
729: idx := to_char(l_delivery_tbl(i).start_date,'YYYYMMDD');
730: if tmp_elem_tbl.EXISTS(idx) then
731: if tmp_elem_tbl(idx).order_id Is Null then
732: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
733: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.updelem',
734: 'marking element for update: period start date - '
735: ||to_char(l_delivery_tbl(i).start_date,'DD-MON-YYYY')
736: );
737: END IF;
737: END IF;
738: create_update_rec;
739: tmp_elem_tbl.DELETE(idx);
740: else
741: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
742: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.noupdelem',
743: 'not marking element for update since shipped: period start date - '
744: ||to_char(l_delivery_tbl(i).start_date,'DD-MON-YYYY')
745: );
738: create_update_rec;
739: tmp_elem_tbl.DELETE(idx);
740: else
741: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
742: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.noupdelem',
743: 'not marking element for update since shipped: period start date - '
744: ||to_char(l_delivery_tbl(i).start_date,'DD-MON-YYYY')
745: );
746: END IF;
745: );
746: END IF;
747: end if;
748: else
749: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
750: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.inselem',
751: 'marking element for insert: period start date - '
752: ||to_char(l_delivery_tbl(i).start_date,'DD-MON-YYYY')
753: );
746: END IF;
747: end if;
748: else
749: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
750: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.inselem',
751: 'marking element for insert: period start date - '
752: ||to_char(l_delivery_tbl(i).start_date,'DD-MON-YYYY')
753: );
754: END IF;
761: If tmp_elem_tbl.COUNT <> 0 Then
762: i := tmp_elem_tbl.FIRST;
763: LOOP
764: if tmp_elem_tbl(i).order_id Is Null then
765: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
766: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.delelem',
767: 'marking element for delete: period start date - '
768: ||to_char(tmp_elem_tbl(i).start_date,'DD-MON-YYYY')
769: );
762: i := tmp_elem_tbl.FIRST;
763: LOOP
764: if tmp_elem_tbl(i).order_id Is Null then
765: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
766: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.delelem',
767: 'marking element for delete: period start date - '
768: ||to_char(tmp_elem_tbl(i).start_date,'DD-MON-YYYY')
769: );
770: END IF;
769: );
770: END IF;
771: create_delete_rec;
772: else
773: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
774: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.nodelelem',
775: 'not marking element for delete since shipped: period start date - '
776: ||to_char(tmp_elem_tbl(i).start_date,'DD-MON-YYYY')
777: );
770: END IF;
771: create_delete_rec;
772: else
773: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
774: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_schedule.nodelelem',
775: 'not marking element for delete since shipped: period start date - '
776: ||to_char(tmp_elem_tbl(i).start_date,'DD-MON-YYYY')
777: );
778: END IF;
783: End If;
784:
785: -- DELETE UNWANTED SCHEDULE ELEMENTS --
786: If l_elems_tbl_del_in.COUNT <> 0 Then
787: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
788: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.before',
789: 'oks_subscr_elems_pub.delete_row');
790: END IF;
791: OKS_SUBSCR_ELEMS_PUB.delete_row
784:
785: -- DELETE UNWANTED SCHEDULE ELEMENTS --
786: If l_elems_tbl_del_in.COUNT <> 0 Then
787: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
788: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.before',
789: 'oks_subscr_elems_pub.delete_row');
790: END IF;
791: OKS_SUBSCR_ELEMS_PUB.delete_row
792: (
796: x_msg_count => x_msg_count,
797: x_msg_data => x_msg_data,
798: p_scev_tbl => l_elems_tbl_del_in
799: );
800: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
801: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.after',
802: 'oks_subscr_elems_pub.delete_row(x_return_status = '||x_return_status||')');
803: END IF;
804: if NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS then
797: x_msg_data => x_msg_data,
798: p_scev_tbl => l_elems_tbl_del_in
799: );
800: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
801: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.after',
802: 'oks_subscr_elems_pub.delete_row(x_return_status = '||x_return_status||')');
803: END IF;
804: if NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS then
805: Raise gen_exit;
807: End If;
808:
809: -- UPDATE CHANGED SCHEDULE ELEMENTS --
810: If l_elems_tbl_upd_in.COUNT <> 0 Then
811: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
812: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.before',
813: 'oks_subscr_elems_pub.update_row');
814: END IF;
815: OKS_SUBSCR_ELEMS_PUB.update_row
808:
809: -- UPDATE CHANGED SCHEDULE ELEMENTS --
810: If l_elems_tbl_upd_in.COUNT <> 0 Then
811: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
812: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.before',
813: 'oks_subscr_elems_pub.update_row');
814: END IF;
815: OKS_SUBSCR_ELEMS_PUB.update_row
816: (
821: x_msg_data => x_msg_data,
822: p_scev_tbl => l_elems_tbl_upd_in,
823: x_scev_tbl => l_elems_tbl_out
824: );
825: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
826: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.after',
827: 'oks_subscr_elems_pub.update_row(x_return_status = '||x_return_status||')');
828: END IF;
829: if NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS then
822: p_scev_tbl => l_elems_tbl_upd_in,
823: x_scev_tbl => l_elems_tbl_out
824: );
825: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
826: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.after',
827: 'oks_subscr_elems_pub.update_row(x_return_status = '||x_return_status||')');
828: END IF;
829: if NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS then
830: Raise gen_exit;
832: End If;
833:
834: -- INSERT NEW SCHEDULE ELEMENTS --
835: If l_elems_tbl_ins_in.COUNT <> 0 Then
836: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
837: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.before',
838: 'oks_subscr_elems_pub.insert_row');
839: END IF;
840: OKS_SUBSCR_ELEMS_PUB.insert_row
833:
834: -- INSERT NEW SCHEDULE ELEMENTS --
835: If l_elems_tbl_ins_in.COUNT <> 0 Then
836: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
837: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.before',
838: 'oks_subscr_elems_pub.insert_row');
839: END IF;
840: OKS_SUBSCR_ELEMS_PUB.insert_row
841: (
846: x_msg_data => x_msg_data,
847: p_scev_tbl => l_elems_tbl_ins_in,
848: x_scev_tbl => l_elems_tbl_out
849: );
850: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
851: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.after',
852: 'oks_subscr_elems_pub.insert_row(x_return_status = '||x_return_status||')');
853: END IF;
854: if NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS then
847: p_scev_tbl => l_elems_tbl_ins_in,
848: x_scev_tbl => l_elems_tbl_out
849: );
850: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
851: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.after',
852: 'oks_subscr_elems_pub.insert_row(x_return_status = '||x_return_status||')');
853: END IF;
854: if NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS then
855: Raise gen_exit;
864: -- Reprice the line if intention is good
865: IF p_intent Is Not NULL THEN
866: l_price_details_in.line_id := p_cle_id;
867: l_price_details_in.intent := p_intent;
868: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
869: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.before',
870: 'oks_qp_int_pvt.compute_price(p_detail_rec.line_id = '||l_price_details_in.line_id||
871: ', p_detail_rec.intent = '||l_price_details_in.intent||')');
872: END IF;
865: IF p_intent Is Not NULL THEN
866: l_price_details_in.line_id := p_cle_id;
867: l_price_details_in.intent := p_intent;
868: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
869: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.before',
870: 'oks_qp_int_pvt.compute_price(p_detail_rec.line_id = '||l_price_details_in.line_id||
871: ', p_detail_rec.intent = '||l_price_details_in.intent||')');
872: END IF;
873: OKS_QP_INT_PVT.compute_price
881: x_price_details => x_price_details_out,
882: x_modifier_details => x_mo_details,
883: x_price_break_details => x_pb_details
884: );
885: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
886: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.after',
887: 'oks_qp_int_pvt.compute_price(x_return_status = '||x_return_status||')');
888: END IF;
889: If NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS Then
882: x_modifier_details => x_mo_details,
883: x_price_break_details => x_pb_details
884: );
885: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
886: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_schedule.external_call.after',
887: 'oks_qp_int_pvt.compute_price(x_return_status = '||x_return_status||')');
888: END IF;
889: If NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS Then
890: Raise gen_exit;
889: If NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS Then
890: Raise gen_exit;
891: End If;
892: END IF;
893: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
894: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.recreate_schedule.end','x_quantity = '||x_quantity);
895: END IF;
896: Exception
897: When gen_exit Then
890: Raise gen_exit;
891: End If;
892: END IF;
893: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
894: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.recreate_schedule.end','x_quantity = '||x_quantity);
895: END IF;
896: Exception
897: When gen_exit Then
898: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
894: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.recreate_schedule.end','x_quantity = '||x_quantity);
895: END IF;
896: Exception
897: When gen_exit Then
898: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
899: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE_CURRENT||'.recreate_schedule.EXCEPTION','gen_exit');
900: END IF;
901: When OTHERS Then
902: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
895: END IF;
896: Exception
897: When gen_exit Then
898: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
899: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE_CURRENT||'.recreate_schedule.EXCEPTION','gen_exit');
900: END IF;
901: When OTHERS Then
902: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
903: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
899: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE_CURRENT||'.recreate_schedule.EXCEPTION','gen_exit');
900: END IF;
901: When OTHERS Then
902: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
903: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
904: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.recreate_schedule.UNEXPECTED',
905: 'sqlcode = '||sqlcode||', sqlerrm = '||sqlerrm);
906: END IF;
907: OKC_API.set_message
900: END IF;
901: When OTHERS Then
902: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
903: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
904: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.recreate_schedule.UNEXPECTED',
905: 'sqlcode = '||sqlcode||', sqlerrm = '||sqlerrm);
906: END IF;
907: OKC_API.set_message
908: ( p_app_name => 'OKS',
931: FROM oks_subscr_header_b
932: WHERE cle_id = p_cle_id;
933: gen_exit EXCEPTION;
934: Begin
935: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
936: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.recreate_instance.begin','p_cle_id = '||p_cle_id||
937: ' ,p_custacct_id = '||p_custacct_id);
938: END IF;
939: OPEN osh_cur;
932: WHERE cle_id = p_cle_id;
933: gen_exit EXCEPTION;
934: Begin
935: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
936: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.recreate_instance.begin','p_cle_id = '||p_cle_id||
937: ' ,p_custacct_id = '||p_custacct_id);
938: END IF;
939: OPEN osh_cur;
940: FETCH osh_cur INTO l_osh_id,l_item_type;
943: x_return_status := OKC_API.G_RET_STS_SUCCESS;
944: RAISE gen_exit;
945: END IF;
946: CLOSE osh_cur;
947: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
948: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_instance.osh_details',
949: 'Osh Id = '||l_osh_id||' ,Item Type = '||l_item_type);
950: END IF;
951: IF l_item_type IN ('ST','SI') THEN
944: RAISE gen_exit;
945: END IF;
946: CLOSE osh_cur;
947: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
948: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_instance.osh_details',
949: 'Osh Id = '||l_osh_id||' ,Item Type = '||l_item_type);
950: END IF;
951: IF l_item_type IN ('ST','SI') THEN
952: -- Create Item Instance in the Installed Base --
949: 'Osh Id = '||l_osh_id||' ,Item Type = '||l_item_type);
950: END IF;
951: IF l_item_type IN ('ST','SI') THEN
952: -- Create Item Instance in the Installed Base --
953: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
954: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_instance.external_call.before',
955: 'oks_auth_util_pub.create_cii_for_subscription(p_cle_id = '||p_cle_id||')');
956: END IF;
957: OKS_AUTH_UTIL_PUB.CREATE_CII_FOR_SUBSCRIPTION
950: END IF;
951: IF l_item_type IN ('ST','SI') THEN
952: -- Create Item Instance in the Installed Base --
953: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
954: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_instance.external_call.before',
955: 'oks_auth_util_pub.create_cii_for_subscription(p_cle_id = '||p_cle_id||')');
956: END IF;
957: OKS_AUTH_UTIL_PUB.CREATE_CII_FOR_SUBSCRIPTION
958: (
963: x_msg_data => x_msg_data,
964: p_cle_id => p_cle_id,
965: x_instance_id => l_instance_id
966: );
967: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
968: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_instance.external_call.after',
969: 'oks_auth_util_pub.create_cii_for_subscription(x_return_status = '||x_return_status
970: ||', x_instance_id = '||l_instance_id||')');
971: END IF;
964: p_cle_id => p_cle_id,
965: x_instance_id => l_instance_id
966: );
967: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
968: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.recreate_instance.external_call.after',
969: 'oks_auth_util_pub.create_cii_for_subscription(x_return_status = '||x_return_status
970: ||', x_instance_id = '||l_instance_id||')');
971: END IF;
972: If NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS Then
971: END IF;
972: If NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS Then
973: Raise gen_exit;
974: End If;
975: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
976: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_instance.updhdr.before',
977: 'oks_subscr_header_b(id = '||l_osh_id||', instance_id = '||l_instance_id||')');
978: END IF;
979: UPDATE oks_subscr_header_b
972: If NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS Then
973: Raise gen_exit;
974: End If;
975: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
976: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_instance.updhdr.before',
977: 'oks_subscr_header_b(id = '||l_osh_id||', instance_id = '||l_instance_id||')');
978: END IF;
979: UPDATE oks_subscr_header_b
980: SET instance_id = l_instance_id
978: END IF;
979: UPDATE oks_subscr_header_b
980: SET instance_id = l_instance_id
981: WHERE id = l_osh_id;
982: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
983: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_instance.updhdr.after',' ');
984: END IF;
985: END IF;
986: x_return_status := OKC_API.G_RET_STS_SUCCESS;
979: UPDATE oks_subscr_header_b
980: SET instance_id = l_instance_id
981: WHERE id = l_osh_id;
982: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
983: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_instance.updhdr.after',' ');
984: END IF;
985: END IF;
986: x_return_status := OKC_API.G_RET_STS_SUCCESS;
987: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
983: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.recreate_instance.updhdr.after',' ');
984: END IF;
985: END IF;
986: x_return_status := OKC_API.G_RET_STS_SUCCESS;
987: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
988: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.recreate_instance.end',' ');
989: END IF;
990: EXCEPTION
991: When gen_exit Then
984: END IF;
985: END IF;
986: x_return_status := OKC_API.G_RET_STS_SUCCESS;
987: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
988: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.recreate_instance.end',' ');
989: END IF;
990: EXCEPTION
991: When gen_exit Then
992: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
988: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.recreate_instance.end',' ');
989: END IF;
990: EXCEPTION
991: When gen_exit Then
992: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
993: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE_CURRENT||'.recreate_instance.EXCEPTION','gen_exit');
994: END IF;
995: When OTHERS Then
996: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
989: END IF;
990: EXCEPTION
991: When gen_exit Then
992: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
993: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE_CURRENT||'.recreate_instance.EXCEPTION','gen_exit');
994: END IF;
995: When OTHERS Then
996: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
997: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
993: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE_CURRENT||'.recreate_instance.EXCEPTION','gen_exit');
994: END IF;
995: When OTHERS Then
996: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
997: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
998: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.recreate_instance.UNEXPECTED',
999: 'sqlcode = '||sqlcode||', sqlerrm = '||sqlerrm);
1000: END IF;
1001: OKC_API.set_message
994: END IF;
995: When OTHERS Then
996: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
997: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
998: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.recreate_instance.UNEXPECTED',
999: 'sqlcode = '||sqlcode||', sqlerrm = '||sqlerrm);
1000: END IF;
1001: OKC_API.set_message
1002: ( p_app_name => 'OKS',
1048: fulfillment_channel, offset, comments, item_type
1049: from oks_subscr_header_v
1050: where cle_id = p_source_cle_id;
1051: Begin
1052: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1053: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.copy_subscription.copy_osh.begin',' ');
1054: END IF;
1055: For src_osh_rec In src_osh_cur
1056: Loop
1049: from oks_subscr_header_v
1050: where cle_id = p_source_cle_id;
1051: Begin
1052: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1053: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.copy_subscription.copy_osh.begin',' ');
1054: END IF;
1055: For src_osh_rec In src_osh_cur
1056: Loop
1057: l_schv_tbl_in(1).name := src_osh_rec.name;
1069: l_schv_tbl_in(1).item_type := src_osh_rec.item_type;
1070: IF p_intent = 'COPY' THEN
1071: -- Create Item Instance in the Installed Base if called from subscription is getting copied
1072: If src_osh_rec.item_type In ('ST','SI') Then
1073: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1074: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.copy_subscription.copy_osh.external_call.before',
1075: 'oks_auth_util_pub.create_cii_for_subscription(p_cle_id = '||p_target_cle_id||')');
1076: END IF;
1077: OKS_AUTH_UTIL_PUB.CREATE_CII_FOR_SUBSCRIPTION
1070: IF p_intent = 'COPY' THEN
1071: -- Create Item Instance in the Installed Base if called from subscription is getting copied
1072: If src_osh_rec.item_type In ('ST','SI') Then
1073: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1074: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.copy_subscription.copy_osh.external_call.before',
1075: 'oks_auth_util_pub.create_cii_for_subscription(p_cle_id = '||p_target_cle_id||')');
1076: END IF;
1077: OKS_AUTH_UTIL_PUB.CREATE_CII_FOR_SUBSCRIPTION
1078: (
1083: x_msg_data => x_msg_data,
1084: p_cle_id => p_target_cle_id,
1085: x_instance_id => l_instance_id
1086: );
1087: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1088: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.copy_subscription.copy_osh.external_call.after',
1089: 'oks_auth_util_pub.create_cii_for_subscription(x_return_status = '||x_return_status
1090: ||', x_instance_id = '||l_instance_id||')');
1091: END IF;
1084: p_cle_id => p_target_cle_id,
1085: x_instance_id => l_instance_id
1086: );
1087: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1088: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.copy_subscription.copy_osh.external_call.after',
1089: 'oks_auth_util_pub.create_cii_for_subscription(x_return_status = '||x_return_status
1090: ||', x_instance_id = '||l_instance_id||')');
1091: END IF;
1092: if NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS then
1094: end if;
1095: l_schv_tbl_in(1).instance_id := l_instance_id;
1096: End If;
1097: END IF;
1098: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1099: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.copy_subscription.copy_osh.external_call.before',
1100: 'oks_subscr_hdr_pub.insert_row');
1101: END IF;
1102: OKS_SUBSCR_HDR_PUB.insert_row
1095: l_schv_tbl_in(1).instance_id := l_instance_id;
1096: End If;
1097: END IF;
1098: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1099: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.copy_subscription.copy_osh.external_call.before',
1100: 'oks_subscr_hdr_pub.insert_row');
1101: END IF;
1102: OKS_SUBSCR_HDR_PUB.insert_row
1103: ( p_api_version => p_api_version,
1106: x_msg_count => x_msg_count,
1107: x_msg_data => x_msg_data,
1108: p_schv_tbl => l_schv_tbl_in,
1109: x_schv_tbl => l_schv_tbl_out);
1110: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1111: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.copy_subscription.copy_osh.external_call.after',
1112: 'oks_subscr_hdr_pub.insert_row(x_return_status = '||x_return_status||')');
1113: END IF;
1114: If x_return_status = OKC_API.G_RET_STS_SUCCESS Then
1107: x_msg_data => x_msg_data,
1108: p_schv_tbl => l_schv_tbl_in,
1109: x_schv_tbl => l_schv_tbl_out);
1110: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1111: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.copy_subscription.copy_osh.external_call.after',
1112: 'oks_subscr_hdr_pub.insert_row(x_return_status = '||x_return_status||')');
1113: END IF;
1114: If x_return_status = OKC_API.G_RET_STS_SUCCESS Then
1115: g_osh_id := l_schv_tbl_out(1).id;
1114: If x_return_status = OKC_API.G_RET_STS_SUCCESS Then
1115: g_osh_id := l_schv_tbl_out(1).id;
1116: End If;
1117: End Loop;
1118: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1119: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.copy_subscription.copy_osh.end',' ');
1120: END IF;
1121: End copy_osh;
1122:
1115: g_osh_id := l_schv_tbl_out(1).id;
1116: End If;
1117: End Loop;
1118: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1119: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.copy_subscription.copy_osh.end',' ');
1120: END IF;
1121: End copy_osh;
1122:
1123: Procedure copy_osp Is
1128: from oks_subscr_patterns
1129: where dnz_cle_id = p_source_cle_id;
1130: i Number := 0;
1131: Begin
1132: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1133: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.copy_subscription.copy_osp.begin',' ');
1134: END IF;
1135: For src_osp_rec In src_osp_cur
1136: Loop
1129: where dnz_cle_id = p_source_cle_id;
1130: i Number := 0;
1131: Begin
1132: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1133: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.copy_subscription.copy_osp.begin',' ');
1134: END IF;
1135: For src_osp_rec In src_osp_cur
1136: Loop
1137: i := i + 1;
1144: l_scpv_tbl_in(i).week := src_osp_rec.week;
1145: l_scpv_tbl_in(i).week_day := src_osp_rec.week_day;
1146: l_scpv_tbl_in(i).day := src_osp_rec.day;
1147: End Loop;
1148: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1149: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.copy_subscription.copy_osp.external_call.before',
1150: 'oks_subscr_ptrns_pub.insert_row');
1151: END IF;
1152: OKS_SUBSCR_PTRNS_PUB.insert_row
1145: l_scpv_tbl_in(i).week_day := src_osp_rec.week_day;
1146: l_scpv_tbl_in(i).day := src_osp_rec.day;
1147: End Loop;
1148: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1149: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.copy_subscription.copy_osp.external_call.before',
1150: 'oks_subscr_ptrns_pub.insert_row');
1151: END IF;
1152: OKS_SUBSCR_PTRNS_PUB.insert_row
1153: ( p_api_version => p_api_version,
1157: x_msg_data => x_msg_data,
1158: p_scpv_tbl => l_scpv_tbl_in,
1159: x_scpv_tbl => l_scpv_tbl_out
1160: );
1161: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1162: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.copy_subscription.copy_osp.external_call.after',
1163: 'oks_subscr_ptrns_pub.insert_row(x_return_status = '||x_return_status||')');
1164: END IF;
1165: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1158: p_scpv_tbl => l_scpv_tbl_in,
1159: x_scpv_tbl => l_scpv_tbl_out
1160: );
1161: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1162: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.copy_subscription.copy_osp.external_call.after',
1163: 'oks_subscr_ptrns_pub.insert_row(x_return_status = '||x_return_status||')');
1164: END IF;
1165: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1166: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.copy_subscription.copy_osh.end',' ');
1161: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1162: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.copy_subscription.copy_osp.external_call.after',
1163: 'oks_subscr_ptrns_pub.insert_row(x_return_status = '||x_return_status||')');
1164: END IF;
1165: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1166: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.copy_subscription.copy_osh.end',' ');
1167: END IF;
1168: End copy_osp;
1169: Begin
1162: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.copy_subscription.copy_osp.external_call.after',
1163: 'oks_subscr_ptrns_pub.insert_row(x_return_status = '||x_return_status||')');
1164: END IF;
1165: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1166: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.copy_subscription.copy_osh.end',' ');
1167: END IF;
1168: End copy_osp;
1169: Begin
1170: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1166: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.copy_subscription.copy_osh.end',' ');
1167: END IF;
1168: End copy_osp;
1169: Begin
1170: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1171: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.copy_subscription.begin','p_source_cle_id = '||p_source_cle_id||
1172: ', p_target_cle_id = '||p_target_cle_id||' ,p_intent = '||p_intent);
1173: END IF;
1174: Open tgt_chr_cur;
1167: END IF;
1168: End copy_osp;
1169: Begin
1170: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1171: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.copy_subscription.begin','p_source_cle_id = '||p_source_cle_id||
1172: ', p_target_cle_id = '||p_target_cle_id||' ,p_intent = '||p_intent);
1173: END IF;
1174: Open tgt_chr_cur;
1175: Fetch tgt_chr_cur Into g_chr_id;
1181: p_msg_name => 'OKS_SUB_INVAL_TGT',
1182: p_token1 => 'TARGET',
1183: p_token1_value => p_target_cle_id
1184: );
1185: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1186: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.copy_subscription.ERROR','Invalid Target Line');
1187: END IF;
1188: Raise gen_exit;
1189: End If;
1182: p_token1 => 'TARGET',
1183: p_token1_value => p_target_cle_id
1184: );
1185: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1186: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.copy_subscription.ERROR','Invalid Target Line');
1187: END IF;
1188: Raise gen_exit;
1189: End If;
1190: Close tgt_chr_cur;
1198: p_msg_name => 'OKS_SUB_INVAL_SRC',
1199: p_token1 => 'SOURCE',
1200: p_token1_value => p_source_cle_id
1201: );
1202: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1203: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.copy_subscription.ERROR','Invalid Source Line');
1204: END IF;
1205: Raise gen_exit;
1206: End If;
1199: p_token1 => 'SOURCE',
1200: p_token1_value => p_source_cle_id
1201: );
1202: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1203: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.copy_subscription.ERROR','Invalid Source Line');
1204: END IF;
1205: Raise gen_exit;
1206: End If;
1207: Close src_line_cur;
1225: );
1226: Else -- No OSH Id => The item must be Non-Subscription Intangible
1227: -- PRICE THE NEW SUBSCRIPTION LINE
1228: If l_intent is Not Null Then
1229: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1230: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.copy_subscription.intannonsubprice',
1231: 'intangible non-subscription item with pricing intent');
1232: END IF;
1233: l_price_details_in.line_id := p_target_cle_id;
1226: Else -- No OSH Id => The item must be Non-Subscription Intangible
1227: -- PRICE THE NEW SUBSCRIPTION LINE
1228: If l_intent is Not Null Then
1229: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1230: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.copy_subscription.intannonsubprice',
1231: 'intangible non-subscription item with pricing intent');
1232: END IF;
1233: l_price_details_in.line_id := p_target_cle_id;
1234: l_price_details_in.intent := l_intent;
1231: 'intangible non-subscription item with pricing intent');
1232: END IF;
1233: l_price_details_in.line_id := p_target_cle_id;
1234: l_price_details_in.intent := l_intent;
1235: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1236: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.copy_subscription.external_call.before',
1237: 'oks_qp_int_pvt.compute_price(p_detail_rec.line_id = '||l_price_details_in.line_id||
1238: ', p_detail_rec.intent = '||l_price_details_in.intent||')');
1239: END IF;
1232: END IF;
1233: l_price_details_in.line_id := p_target_cle_id;
1234: l_price_details_in.intent := l_intent;
1235: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1236: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.copy_subscription.external_call.before',
1237: 'oks_qp_int_pvt.compute_price(p_detail_rec.line_id = '||l_price_details_in.line_id||
1238: ', p_detail_rec.intent = '||l_price_details_in.intent||')');
1239: END IF;
1240: OKS_QP_INT_PVT.compute_price
1248: x_price_details => x_price_details_out,
1249: x_modifier_details => x_mo_details,
1250: x_price_break_details => x_pb_details
1251: );
1252: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1253: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.copy_subscription.external_call.after',
1254: 'oks_qp_int_pvt.compute_price(x_return_status = '||x_return_status||')');
1255: END IF;
1256: if NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS then
1249: x_modifier_details => x_mo_details,
1250: x_price_break_details => x_pb_details
1251: );
1252: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1253: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.copy_subscription.external_call.after',
1254: 'oks_qp_int_pvt.compute_price(x_return_status = '||x_return_status||')');
1255: END IF;
1256: if NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS then
1257: Raise gen_exit;
1260: End If;
1261:
1262: Exception
1263: When gen_exit Then
1264: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1265: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE_CURRENT||'.copy_subscription.EXCEPTION','gen_exit');
1266: END IF;
1267: When OTHERS Then
1268: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1261:
1262: Exception
1263: When gen_exit Then
1264: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1265: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE_CURRENT||'.copy_subscription.EXCEPTION','gen_exit');
1266: END IF;
1267: When OTHERS Then
1268: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1269: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1265: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE_CURRENT||'.copy_subscription.EXCEPTION','gen_exit');
1266: END IF;
1267: When OTHERS Then
1268: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1269: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1270: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.create_default_schedule.UNEXPECTED',
1271: 'sqlcode = '||sqlcode||', sqlerrm = '||sqlerrm);
1272: END IF;
1273: OKC_API.set_message
1266: END IF;
1267: When OTHERS Then
1268: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1269: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1270: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.create_default_schedule.UNEXPECTED',
1271: 'sqlcode = '||sqlcode||', sqlerrm = '||sqlerrm);
1272: END IF;
1273: OKC_API.set_message
1274: ( p_app_name => 'OKS',
1314: l_ff_chan := schv_rec.fulfillment_channel;
1315: --l_instance_id := schv_rec.instance_id;
1316: Exit; -- There will always be only one record, if at all
1317: End Loop;
1318: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1319: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.undo_subscription.delete_cii.osh_details',
1320: 'Osh Id = '||l_osh_id||' ,Fulfillment Channel = '||l_ff_chan);
1321: END IF;
1322: /* No Item instance deletion for release 11.5.9
1315: --l_instance_id := schv_rec.instance_id;
1316: Exit; -- There will always be only one record, if at all
1317: End Loop;
1318: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1319: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.undo_subscription.delete_cii.osh_details',
1320: 'Osh Id = '||l_osh_id||' ,Fulfillment Channel = '||l_ff_chan);
1321: END IF;
1322: /* No Item instance deletion for release 11.5.9
1323: -- Uncomment when the procedure OKS_AUTH_UTIL_PUB.delete_cii_for_subscription is ready
1347: Procedure delete_osh Is
1348: l_schv_tbl OKS_SUBSCR_HDR_PUB.schv_tbl_type;
1349: Begin
1350: l_schv_tbl(1).id := l_osh_id;
1351: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1352: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.undo_subscription.delete_osh.external_call.before',
1353: 'oks_subscr_hdr_pub.delete_row(p_schv_tbl(1).id = '||l_schv_tbl(1).id||')');
1354: END IF;
1355: OKS_SUBSCR_HDR_PUB.delete_row
1348: l_schv_tbl OKS_SUBSCR_HDR_PUB.schv_tbl_type;
1349: Begin
1350: l_schv_tbl(1).id := l_osh_id;
1351: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1352: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.undo_subscription.delete_osh.external_call.before',
1353: 'oks_subscr_hdr_pub.delete_row(p_schv_tbl(1).id = '||l_schv_tbl(1).id||')');
1354: END IF;
1355: OKS_SUBSCR_HDR_PUB.delete_row
1356: ( p_api_version => p_api_version,
1359: x_msg_count => x_msg_count,
1360: x_msg_data => x_msg_data,
1361: p_schv_tbl => l_schv_tbl
1362: );
1363: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1364: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.undo_subscription.delete_osh.external_call.after',
1365: 'oks_subscr_hdr_pub.delete_row(x_return_status = '||x_return_status||')');
1366: END IF;
1367: End delete_osh;
1360: x_msg_data => x_msg_data,
1361: p_schv_tbl => l_schv_tbl
1362: );
1363: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1364: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.undo_subscription.delete_osh.external_call.after',
1365: 'oks_subscr_hdr_pub.delete_row(x_return_status = '||x_return_status||')');
1366: END IF;
1367: End delete_osh;
1368:
1378: Loop
1379: i := i + 1;
1380: l_scpv_tbl(i).id := scpv_rec.id;
1381: End Loop;
1382: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1383: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.undo_subscription.delete_osp.external_call.before',
1384: 'oks_subscr_ptrns_pub.delete_row(p_scpv_tbl.COUNT = '||i||')');
1385: END IF;
1386: OKS_SUBSCR_PTRNS_PUB.delete_row
1379: i := i + 1;
1380: l_scpv_tbl(i).id := scpv_rec.id;
1381: End Loop;
1382: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1383: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.undo_subscription.delete_osp.external_call.before',
1384: 'oks_subscr_ptrns_pub.delete_row(p_scpv_tbl.COUNT = '||i||')');
1385: END IF;
1386: OKS_SUBSCR_PTRNS_PUB.delete_row
1387: ( p_api_version => p_api_version,
1390: x_msg_count => x_msg_count,
1391: x_msg_data => x_msg_data,
1392: p_scpv_tbl => l_scpv_tbl
1393: );
1394: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1395: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.undo_subscription.delete_osp.external_call.after',
1396: 'oks_subscr_ptrns_pub.delete_row(x_return_status = '||x_return_status||')');
1397: END IF;
1398: End delete_osp;
1391: x_msg_data => x_msg_data,
1392: p_scpv_tbl => l_scpv_tbl
1393: );
1394: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1395: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.undo_subscription.delete_osp.external_call.after',
1396: 'oks_subscr_ptrns_pub.delete_row(x_return_status = '||x_return_status||')');
1397: END IF;
1398: End delete_osp;
1399:
1409: Loop
1410: i := i + 1;
1411: l_scev_tbl(i).id := scev_rec.id;
1412: End Loop;
1413: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1414: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.undo_subscription.delete_ose.external_call.before',
1415: 'oks_subscr_elems_pub.delete_row(p_scev_tbl.COUNT = '||i||')');
1416: END IF;
1417: OKS_SUBSCR_ELEMS_PUB.delete_row
1410: i := i + 1;
1411: l_scev_tbl(i).id := scev_rec.id;
1412: End Loop;
1413: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1414: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.undo_subscription.delete_ose.external_call.before',
1415: 'oks_subscr_elems_pub.delete_row(p_scev_tbl.COUNT = '||i||')');
1416: END IF;
1417: OKS_SUBSCR_ELEMS_PUB.delete_row
1418: ( p_api_version => p_api_version,
1421: x_msg_count => x_msg_count,
1422: x_msg_data => x_msg_data,
1423: p_scev_tbl => l_scev_tbl
1424: );
1425: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1426: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.undo_subscription.delete_ose.external_call.after',
1427: 'oks_subscr_elems_pub.delete_row(x_return_status = '||x_return_status||')');
1428: END IF;
1429: End delete_ose;
1422: x_msg_data => x_msg_data,
1423: p_scev_tbl => l_scev_tbl
1424: );
1425: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1426: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.undo_subscription.delete_ose.external_call.after',
1427: 'oks_subscr_elems_pub.delete_row(x_return_status = '||x_return_status||')');
1428: END IF;
1429: End delete_ose;
1430: Begin
1427: 'oks_subscr_elems_pub.delete_row(x_return_status = '||x_return_status||')');
1428: END IF;
1429: End delete_ose;
1430: Begin
1431: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1432: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.undo_subscription.begin','p_cle_id = '||p_cle_id);
1433: END IF;
1434: delete_cii; -- (Delete the item instance if one exists and) Get the OSH.id and fulfillment channel
1435: IF l_osh_id Is Null Or NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS THEN
1428: END IF;
1429: End delete_ose;
1430: Begin
1431: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1432: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.undo_subscription.begin','p_cle_id = '||p_cle_id);
1433: END IF;
1434: delete_cii; -- (Delete the item instance if one exists and) Get the OSH.id and fulfillment channel
1435: IF l_osh_id Is Null Or NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS THEN
1436: return;
1445: return;
1446: End If;
1447: END IF;
1448: delete_osh; -- delete the subscription header (tangible or intangible)
1449: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1450: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.undo_subscription.end',' ');
1451: END IF;
1452: Exception
1453: When OTHERS Then
1446: End If;
1447: END IF;
1448: delete_osh; -- delete the subscription header (tangible or intangible)
1449: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1450: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.undo_subscription.end',' ');
1451: END IF;
1452: Exception
1453: When OTHERS Then
1454: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1697: l_chr_id NUMBER;
1698: INVALID_HDR_ID_EXCEPTION EXCEPTION;
1699: EXC_ERROR EXCEPTION;
1700: Begin
1701: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1702: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.get_subs_qty.begin','p_cle_id = '||p_cle_id);
1703: END IF;
1704: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1705: l_pricing_method:=FND_PROFILE.value('OKS_SUBS_PRICING_METHOD');
1698: INVALID_HDR_ID_EXCEPTION EXCEPTION;
1699: EXC_ERROR EXCEPTION;
1700: Begin
1701: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1702: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.get_subs_qty.begin','p_cle_id = '||p_cle_id);
1703: END IF;
1704: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1705: l_pricing_method:=FND_PROFILE.value('OKS_SUBS_PRICING_METHOD');
1706: Open k_item_cur;
1708: Close k_item_cur;
1709: Open subs_hdr;
1710: Fetch subs_hdr Into l_item_type, l_frequency;
1711: Close subs_hdr;
1712: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1713: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.get_subs_qty.line_details',
1714: 'Qty per period = '||l_quantity||' ,UOM = '||l_uom_code
1715: ||', Item Type = '||l_item_type||', Frequency = '||l_frequency
1716: ||', Intangible Pricing Method = '||l_pricing_method);
1709: Open subs_hdr;
1710: Fetch subs_hdr Into l_item_type, l_frequency;
1711: Close subs_hdr;
1712: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1713: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.get_subs_qty.line_details',
1714: 'Qty per period = '||l_quantity||' ,UOM = '||l_uom_code
1715: ||', Item Type = '||l_item_type||', Frequency = '||l_frequency
1716: ||', Intangible Pricing Method = '||l_pricing_method);
1717: END IF;
1718: If l_item_type In ('ST','NT') Then
1719: Open subs_qty;
1720: Fetch subs_qty Into l_quantity;
1721: Close subs_qty;
1722: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1723: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.get_subs_qty.tanqty','Tangible Qty = '||l_quantity);
1724: END IF;
1725: Elsif l_item_type = 'SI' Then
1726: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1719: Open subs_qty;
1720: Fetch subs_qty Into l_quantity;
1721: Close subs_qty;
1722: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1723: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.get_subs_qty.tanqty','Tangible Qty = '||l_quantity);
1724: END IF;
1725: Elsif l_item_type = 'SI' Then
1726: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1727: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.get_subs_qty.intan','intangible item');
1722: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1723: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.get_subs_qty.tanqty','Tangible Qty = '||l_quantity);
1724: END IF;
1725: Elsif l_item_type = 'SI' Then
1726: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1727: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.get_subs_qty.intan','intangible item');
1728: END IF;
1729: Open k_line_cur;
1730: Fetch k_line_cur Into l_act_start, l_act_end;
1723: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.get_subs_qty.tanqty','Tangible Qty = '||l_quantity);
1724: END IF;
1725: Elsif l_item_type = 'SI' Then
1726: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1727: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.get_subs_qty.intan','intangible item');
1728: END IF;
1729: Open k_line_cur;
1730: Fetch k_line_cur Into l_act_start, l_act_end;
1731: Close k_line_cur;
1735: else
1736: stretch_effectivity
1737: (l_act_start, l_act_end, l_frequency, l_start_date, l_end_date);
1738: end if;
1739: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1740: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.get_subs_qty.stretch_eff',
1741: 'New Start Date = '||to_char(l_start_date,'DD-MON-YYYY')
1742: ||', New End Date = '||to_char(l_end_date,'DD-MON-YYYY'));
1743: END IF;
1736: stretch_effectivity
1737: (l_act_start, l_act_end, l_frequency, l_start_date, l_end_date);
1738: end if;
1739: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1740: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.get_subs_qty.stretch_eff',
1741: 'New Start Date = '||to_char(l_start_date,'DD-MON-YYYY')
1742: ||', New End Date = '||to_char(l_end_date,'DD-MON-YYYY'));
1743: END IF;
1744: l_cal_uom := map_freq_uom(l_frequency);
1741: 'New Start Date = '||to_char(l_start_date,'DD-MON-YYYY')
1742: ||', New End Date = '||to_char(l_end_date,'DD-MON-YYYY'));
1743: END IF;
1744: l_cal_uom := map_freq_uom(l_frequency);
1745: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1746: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.get_subs_qty.freq_uom','Frequency UOM = '||l_cal_uom);
1747: END IF;
1748: if l_cal_uom is Null then
1749: x_return_status := OKC_API.G_RET_STS_ERROR;
1742: ||', New End Date = '||to_char(l_end_date,'DD-MON-YYYY'));
1743: END IF;
1744: l_cal_uom := map_freq_uom(l_frequency);
1745: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1746: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.get_subs_qty.freq_uom','Frequency UOM = '||l_cal_uom);
1747: END IF;
1748: if l_cal_uom is Null then
1749: x_return_status := OKC_API.G_RET_STS_ERROR;
1750: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1746: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.get_subs_qty.freq_uom','Frequency UOM = '||l_cal_uom);
1747: END IF;
1748: if l_cal_uom is Null then
1749: x_return_status := OKC_API.G_RET_STS_ERROR;
1750: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1751: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.get_subs_qty.ERROR','Invalid UOM Code');
1752: END IF;
1753: OKC_API.SET_MESSAGE(p_app_name => 'OKS',
1754: p_msg_name => 'OKS_INVD_UOM_CODE',
1747: END IF;
1748: if l_cal_uom is Null then
1749: x_return_status := OKC_API.G_RET_STS_ERROR;
1750: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1751: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.get_subs_qty.ERROR','Invalid UOM Code');
1752: END IF;
1753: OKC_API.SET_MESSAGE(p_app_name => 'OKS',
1754: p_msg_name => 'OKS_INVD_UOM_CODE',
1755: p_token1 => 'OKS_API_NAME',
1756: p_token1_value => 'OKS_SUBSCRIPTION_PVT.get_subs_qty',
1757: p_token2 => 'UOM_CODE',
1758: p_token2_value => p_cle_id);
1759: else
1760: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1761: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.get_subs_qty.external_call.before',
1762: 'oks_time_measures_pub.get_quantity');
1763: END IF;
1764: -- Begin new logic for Partial periods
1757: p_token2 => 'UOM_CODE',
1758: p_token2_value => p_cle_id);
1759: else
1760: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1761: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.get_subs_qty.external_call.before',
1762: 'oks_time_measures_pub.get_quantity');
1763: END IF;
1764: -- Begin new logic for Partial periods
1765: OPEN l_get_hdrid_csr;
1800: p_end_date => l_end_date,
1801: p_source_uom => l_cal_uom);
1802: END IF;
1803: --End new logic for partial periods
1804: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1805: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.get_subs_qty.external_call.after',
1806: 'oks_time_measures_pub.get_quantity(return = '||l_multiplier||')');
1807: END IF;
1808: l_quantity := l_quantity * l_multiplier;
1801: p_source_uom => l_cal_uom);
1802: END IF;
1803: --End new logic for partial periods
1804: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1805: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.get_subs_qty.external_call.after',
1806: 'oks_time_measures_pub.get_quantity(return = '||l_multiplier||')');
1807: END IF;
1808: l_quantity := l_quantity * l_multiplier;
1809: end if;
1809: end if;
1810: End If;
1811: x_quantity := l_quantity;
1812: x_uom_code := l_uom_code;
1813: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1814: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.get_subs_qty.end',
1815: 'x_quantity = '||x_quantity||' ,x_uom_code = '||x_uom_code);
1816: END IF;
1817: Exception
1810: End If;
1811: x_quantity := l_quantity;
1812: x_uom_code := l_uom_code;
1813: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1814: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.get_subs_qty.end',
1815: 'x_quantity = '||x_quantity||' ,x_uom_code = '||x_uom_code);
1816: END IF;
1817: Exception
1818: WHEN EXC_ERROR THEN
1923: -- End partial period computation logic
1924: -------------------------------------------------------------------------
1925:
1926:
1927: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1928: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.subs_termn_amount.begin',
1929: 'p_cle_id = '||p_cle_id||' ,p_termn_date = '||to_char(p_termn_date,'DD-MON-YYYY')
1930: ||', Intangible Pricing Method = '||l_pricing_method);
1931: END IF;
1924: -------------------------------------------------------------------------
1925:
1926:
1927: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1928: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.subs_termn_amount.begin',
1929: 'p_cle_id = '||p_cle_id||' ,p_termn_date = '||to_char(p_termn_date,'DD-MON-YYYY')
1930: ||', Intangible Pricing Method = '||l_pricing_method);
1931: END IF;
1932: l_pricing_method :=FND_PROFILE.value('OKS_SUBS_PRICING_METHOD');
1943: Close k_line_cur;
1944: Open osh_cur;
1945: Fetch osh_cur Into l_item_type, l_frequency;
1946: If osh_cur%NotFound Then
1947: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1948: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.subs_termn_amount.NI',
1949: 'intangible non-subscription, no refund');
1950: END IF;
1951: l_trmn_amount := l_orig_price;
1944: Open osh_cur;
1945: Fetch osh_cur Into l_item_type, l_frequency;
1946: If osh_cur%NotFound Then
1947: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1948: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.subs_termn_amount.NI',
1949: 'intangible non-subscription, no refund');
1950: END IF;
1951: l_trmn_amount := l_orig_price;
1952: End If;
1950: END IF;
1951: l_trmn_amount := l_orig_price;
1952: End If;
1953: Close osh_cur;
1954: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1955: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.subs_termn_amount.details',
1956: 'Start Date = '||to_char(l_act_start,'DD-MON-YYYY')
1957: ||', End Date = '||to_char(l_act_end,'DD-MON-YYYY')
1958: ||', Orig. Price = '||l_orig_price
1951: l_trmn_amount := l_orig_price;
1952: End If;
1953: Close osh_cur;
1954: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1955: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.subs_termn_amount.details',
1956: 'Start Date = '||to_char(l_act_start,'DD-MON-YYYY')
1957: ||', End Date = '||to_char(l_act_end,'DD-MON-YYYY')
1958: ||', Orig. Price = '||l_orig_price
1959: ||', Item Type = '||l_item_type||', Frequency = '||l_frequency);
1958: ||', Orig. Price = '||l_orig_price
1959: ||', Item Type = '||l_item_type||', Frequency = '||l_frequency);
1960: END IF;
1961: If l_item_type = 'SI' Then
1962: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1963: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.subs_termn_amount.SI','intangible subscription');
1964: END IF;
1965: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1966: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.subs_termn_amount.calcvals',
1959: ||', Item Type = '||l_item_type||', Frequency = '||l_frequency);
1960: END IF;
1961: If l_item_type = 'SI' Then
1962: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1963: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.subs_termn_amount.SI','intangible subscription');
1964: END IF;
1965: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1966: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.subs_termn_amount.calcvals',
1967: 'Divisor = '||l_divisor||', Multiplier = '||l_multiplier);
1961: If l_item_type = 'SI' Then
1962: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1963: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.subs_termn_amount.SI','intangible subscription');
1964: END IF;
1965: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1966: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.subs_termn_amount.calcvals',
1967: 'Divisor = '||l_divisor||', Multiplier = '||l_multiplier);
1968: END IF;
1969: if l_pricing_method = 'EFFECTIVITY' then
1962: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1963: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.subs_termn_amount.SI','intangible subscription');
1964: END IF;
1965: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1966: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.subs_termn_amount.calcvals',
1967: 'Divisor = '||l_divisor||', Multiplier = '||l_multiplier);
1968: END IF;
1969: if l_pricing_method = 'EFFECTIVITY' then
1970: l_start_date := l_act_start;
2032: -------------------------------------------------------------------------
2033: -- End partial period computation logic
2034: -------------------------------------------------------------------------
2035:
2036: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2037: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.subs_termn_amount.calcvals',
2038: 'Divisor = '||l_divisor||', Multiplier = '||l_multiplier);
2039: END IF;
2040:
2033: -- End partial period computation logic
2034: -------------------------------------------------------------------------
2035:
2036: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2037: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.subs_termn_amount.calcvals',
2038: 'Divisor = '||l_divisor||', Multiplier = '||l_multiplier);
2039: END IF;
2040:
2041: end if;
2039: END IF;
2040:
2041: end if;
2042: Else
2043: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2044: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.subs_termn_amount.tang',
2045: 'tangible item, fetch amount from elements');
2046: END IF;
2047: Open trmn_amt_cur;
2040:
2041: end if;
2042: Else
2043: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2044: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.subs_termn_amount.tang',
2045: 'tangible item, fetch amount from elements');
2046: END IF;
2047: Open trmn_amt_cur;
2048: Fetch trmn_amt_cur Into l_trmn_amount;
2050: l_trmn_amount := NVL(l_trmn_amount,0);
2051: End If;
2052: Close trmn_amt_cur;
2053: End If;
2054: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2055: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.recreate_schedule.end','return = '||l_trmn_amount);
2056: END IF;
2057: Return l_trmn_amount;
2058: Exception
2051: End If;
2052: Close trmn_amt_cur;
2053: End If;
2054: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2055: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.recreate_schedule.end','return = '||l_trmn_amount);
2056: END IF;
2057: Return l_trmn_amount;
2058: Exception
2059: WHEN EXC_ERROR THEN