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: (
255: p_api_version => p_api_version,
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: (
255: p_api_version => p_api_version,
256: p_init_msg_list => p_init_msg_list,
257: x_return_status => x_return_status,
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;
269: end if;
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: (
670: p_api_version => p_api_version,
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: (
670: p_api_version => p_api_version,
671: p_init_msg_list => p_init_msg_list,
672: x_return_status => x_return_status,
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;
684: end if;
1120: END IF;
1121: End copy_osh;
1122:
1123: Procedure copy_osp Is
1124: l_scpv_tbl_in OKS_SUBSCR_PTRNS_PUB.scpv_tbl_type;
1125: l_scpv_tbl_out OKS_SUBSCR_PTRNS_PUB.scpv_tbl_type;
1126: Cursor src_osp_cur Is
1127: select year, month, week, week_day, day
1128: from oks_subscr_patterns
1121: End copy_osh;
1122:
1123: Procedure copy_osp Is
1124: l_scpv_tbl_in OKS_SUBSCR_PTRNS_PUB.scpv_tbl_type;
1125: l_scpv_tbl_out OKS_SUBSCR_PTRNS_PUB.scpv_tbl_type;
1126: Cursor src_osp_cur Is
1127: select year, month, week, week_day, day
1128: from oks_subscr_patterns
1129: where dnz_cle_id = p_source_cle_id;
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,
1154: p_init_msg_list => p_init_msg_list,
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,
1154: p_init_msg_list => p_init_msg_list,
1155: x_return_status => x_return_status,
1156: x_msg_count => x_msg_count,
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',' ');
1167: END IF;
1370: Cursor scpv_cur Is
1371: Select id
1372: From oks_subscr_patterns
1373: Where dnz_cle_id = p_cle_id;
1374: l_scpv_tbl OKS_SUBSCR_PTRNS_PUB.scpv_tbl_type;
1375: i Number := 0;
1376: Begin
1377: For scpv_rec In scpv_cur
1378: Loop
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,
1388: p_init_msg_list => p_init_msg_list,
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,
1388: p_init_msg_list => p_init_msg_list,
1389: x_return_status => x_return_status,
1390: x_msg_count => x_msg_count,
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:
1400: Procedure delete_ose Is