[Home] [Help]
1530: loop
1531: fetch get_notification_c into l_notification_id;
1532: exit when (l_notification_id is null or get_notification_c%NOTFOUND or get_notification_c%NOTFOUND is null) ;
1533:
1534: update wf_notifications set
1535: end_date = sysdate
1536: where notification_id = l_notification_id;
1537: end loop;
1538: close get_notification_c;
1561: return;
1562: END Delete_Item;
1563:
1564: ------------------------------------------------------------------
1565: -- delete_wf_notification
1566: ------------------------------------------------------------------
1567: PROCEDURE delete_wf_notification(p_type in varchar2, p_key in varchar2) IS
1568:
1569: cursor get_notification_c (p_type In Varchar2,
1563:
1564: ------------------------------------------------------------------
1565: -- delete_wf_notification
1566: ------------------------------------------------------------------
1567: PROCEDURE delete_wf_notification(p_type in varchar2, p_key in varchar2) IS
1568:
1569: cursor get_notification_c (p_type In Varchar2,
1570: p_key in varchar2) IS
1571:
1582: open get_notification_c (p_type, p_key);
1583: loop
1584: fetch get_notification_c into l_notification_id;
1585: exit when (l_notification_id is null or get_notification_c%NOTFOUND or get_notification_c%NOTFOUND is null) ;
1586: FND_FILE.PUT_LINE(FND_FILE.LOG,'inside PROCEDURE delete_wf_notification : l_notification_id = '||l_notification_id);
1587: wf_notification.cancel(l_notification_id);
1588:
1589: end loop;
1590: close get_notification_c;
1583: loop
1584: fetch get_notification_c into l_notification_id;
1585: exit when (l_notification_id is null or get_notification_c%NOTFOUND or get_notification_c%NOTFOUND is null) ;
1586: FND_FILE.PUT_LINE(FND_FILE.LOG,'inside PROCEDURE delete_wf_notification : l_notification_id = '||l_notification_id);
1587: wf_notification.cancel(l_notification_id);
1588:
1589: end loop;
1590: close get_notification_c;
1591:
1593: WHEN OTHERS THEN
1594: --dbms_output.put_line('Error in delete wf nid ' || sqlerrm);
1595: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error in delete wf nid '||sqlerrm);
1596: return;
1597: END delete_wf_notification;
1598:
1599: --------------------------------------------------------------------------
1600: -- Function GET_MESSAGE_TYPE
1601: ----------------------------------------------------------------------
2313: to_char(l_supplier_id) || '-' ||
2314: to_char(l_supplier_site_id) || '-' ||
2315: to_char(l_exception_detail_id) || '%';
2316:
2317: delete_wf_notification(l_item_type, l_item_key);
2318: BEGIN
2319: --dbms_output.put_line('---Maintaining exceptions details');
2320: delete msc_x_exception_details
2321: where plan_id = G_PLAN_ID
2423: to_char(l_supplier_id) || '-' ||
2424: to_char(l_supplier_site_id) || '-' ||
2425: to_char(l_exception_detail_id) || '%';
2426:
2427: delete_wf_notification(l_item_type, l_item_key);
2428:
2429: BEGIN
2430:
2431: delete msc_x_exception_details
2515: to_char(p_customer_site_id) || '-' ||
2516: to_char(p_supplier_id) || '-' ||
2517: to_char(p_supplier_site_id) || '%';
2518:
2519: delete_wf_notification(l_item_type, l_item_key);
2520:
2521: IF (p_obs_exc_type is not null) THEN
2522: l_item_key := to_char(p_exception_group) || '-' ||
2523: to_char(p_obs_exc_type) || '-' ||
2529: to_char(p_supplier_id) || '-' ||
2530: to_char(p_supplier_site_id) || '%';
2531:
2532: FND_FILE.PUT_LINE(FND_FILE.LOG,'for 1 : l_item_key'||l_item_key);
2533: delete_wf_notification(l_item_type, l_item_key);
2534:
2535: -- added for VMI Exceptions: notification deletion behaviour
2536:
2537: IF (p_obs_exc_type in (G_EXCEP29, G_EXCEP30)) then
2548: to_char(p_supplier_id) || '-' ||
2549: to_char(p_supplier_site_id) || '%';
2550:
2551: FND_FILE.PUT_LINE(FND_FILE.LOG,'for 2 : l_item_key = '||l_item_key);
2552: delete_wf_notification(l_item_type, l_item_key);
2553:
2554: END IF;
2555: END IF;
2556:
3520: to_char(t_customer_site_list(i)) || '-' ||
3521: to_char(t_supplier_list(i)) || '-' ||
3522: to_char(t_supplier_site_list(i)) || '%';
3523:
3524: delete_wf_notification(l_item_type, l_item_key);
3525: END LOOP;
3526: END IF;
3527:
3528: