[Home] [Help]
1: PACKAGE BODY CSP_PLANNER_NOTIFICATIONS AS
2: /* $Header: cspvppnb.pls 120.0 2005/05/25 11:28:34 appldev noship $ */
3: --
4: -- Purpose: This package will hold all APIs related to the creation of
5: -- planner notifications and recommendations for the notifications
76: PROCEDURE Create_Notification_Details(
77: p_source_type IN VARCHAR2
78: ,p_order_by_dt IN DATE := sysdate
79: ,p_notification_id IN NUMBER
80: ,p_parts_rec IN csp_planner_notifications.excess_parts_rectype);
81:
82: PROCEDURE Generate_Repair_Recomm(
83: p_notification_id IN NUMBER
84: ,p_organization_id IN NUMBER
966: FOR onc IN open_notifs_cur LOOP
967: IF (onc.notification_type <> 'EOO') THEN
968:
969: declare
970: l_item_rec CSP_PLANNER_NOTIFICATIONS.item_list_rectype;
971: l_excess_parts_tbl CSP_PLANNER_NOTIFICATIONS.excess_parts_tbl;
972: l_fixed_lt NUMBER;
973: l_variable_lt NUMBER;
974: l_buying_lt NUMBER;
967: IF (onc.notification_type <> 'EOO') THEN
968:
969: declare
970: l_item_rec CSP_PLANNER_NOTIFICATIONS.item_list_rectype;
971: l_excess_parts_tbl CSP_PLANNER_NOTIFICATIONS.excess_parts_tbl;
972: l_fixed_lt NUMBER;
973: l_variable_lt NUMBER;
974: l_buying_lt NUMBER;
975: begin
1107: -- generate new buy recommendations if notifications type is not
1108: -- 'No source Notification'
1109: IF (onc.notification_type <> 'NS') THEN
1110: declare
1111: l_parts_rec CSP_PLANNER_NOTIFICATIONS.excess_parts_rectype;
1112: l_business_rule_rec CSP_PLANNER_NOTIFICATIONS.business_rule_rectype;
1113: l_source_type VARCHAR2(30) := 'IO';
1114: l_business_rule_id NUMBER;
1115: l_create_notif VARCHAR2(1) := 'Y';
1108: -- 'No source Notification'
1109: IF (onc.notification_type <> 'NS') THEN
1110: declare
1111: l_parts_rec CSP_PLANNER_NOTIFICATIONS.excess_parts_rectype;
1112: l_business_rule_rec CSP_PLANNER_NOTIFICATIONS.business_rule_rectype;
1113: l_source_type VARCHAR2(30) := 'IO';
1114: l_business_rule_id NUMBER;
1115: l_create_notif VARCHAR2(1) := 'Y';
1116: l_total_excess NUMBER;
1897: END re_wip;
1898:
1899: PROCEDURE Calculate_Excess(
1900: p_organization_id IN NUMBER
1901: ,p_item_rec IN csp_planner_notifications.item_list_rectype
1902: ,p_called_from IN VARCHAR2 := 'NOTIF'
1903: ,p_notification_id IN NUMBER := null
1904: ,p_order_by_date IN DATE := sysdate
1905: ,x_excess_parts_tbl OUT NOCOPY csp_planner_notifications.excess_parts_tbl
1901: ,p_item_rec IN csp_planner_notifications.item_list_rectype
1902: ,p_called_from IN VARCHAR2 := 'NOTIF'
1903: ,p_notification_id IN NUMBER := null
1904: ,p_order_by_date IN DATE := sysdate
1905: ,x_excess_parts_tbl OUT NOCOPY csp_planner_notifications.excess_parts_tbl
1906: ,x_return_status OUT NOCOPY VARCHAR2
1907: ,x_msg_data OUT NOCOPY VARCHAR2
1908: ,x_msg_count OUT NOCOPY NUMBER) IS
1909: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2390: l_atr NUMBER;
2391: l_repair_qty NUMBER;
2392: l_organization_type VARCHAR2(10);
2393: l_condition_type VARCHAR2(10);
2394: l_parts_rec csp_planner_notifications.excess_parts_rectype;
2395:
2396: l_Serviceable VARCHAR2(30);
2397: l_repair_supplier_id NUMBER;
2398: l_source_type VARCHAR2(30):= 'REPAIR';
2640: PROCEDURE Create_Notification_Details(
2641: p_source_type IN VARCHAR2
2642: ,p_order_by_dt IN DATE := sysdate
2643: ,p_notification_id IN NUMBER
2644: ,p_parts_rec IN csp_planner_notifications.excess_parts_rectype) IS
2645: l_notif_detail_id NUMBER;
2646: BEGIN
2647:
2648: l_notif_detail_id := NULL;