1 PACKAGE MSC_PEG_UTIL AUTHID CURRENT_USER AS
2 /* $Header: MSCPEGS.pls 120.2 2007/12/14 07:07:04 sbnaik ship $ */
3
4
5
6 TYPE itemOrg_tab IS TABLE OF msc_flp_supply_demand_v.item_org%TYPE;
7 TYPE pegId_tab IS TABLE OF msc_flp_supply_demand_v.pegging_id%TYPE;
8 TYPE prevPegId_tab IS TABLE OF msc_flp_supply_demand_v.prev_pegging_id%TYPE;
9 TYPE Qty_Tab IS TABLE OF msc_flp_supply_demand_v.demand_qty%TYPE;
10 TYPE Date_tab IS TABLE OF msc_flp_supply_demand_v.demand_date%TYPE;
11 TYPE OrderName_tab IS TABLE OF msc_flp_supply_demand_v.origination_name%TYPE;
12 TYPE demId_tab IS TABLE OF msc_flp_supply_demand_v.demand_id%TYPE;
13 TYPE trxId_tab IS TABLE OF msc_flp_supply_demand_v.transaction_id%TYPE;
14 TYPE itemId_tab IS TABLE OF msc_flp_supply_demand_v.item_id%TYPE;
15 TYPE pegQty_tab IS TABLE OF msc_flp_supply_demand_v.pegged_qty%TYPE;
16 TYPE orderNum_tab IS TABLE OF msc_flp_supply_demand_v.end_disposition%TYPE;
17 TYPE orderTyp_tab IS TABLE OF msc_flp_supply_demand_v.order_type%TYPE;
18 TYPE disp_tab IS TABLE OF msc_flp_supply_demand_v.end_disposition%TYPE;
19 TYPE end_demClass_tab IS TABLE of msc_flp_supply_demand_v.end_demand_class%TYPE;
20
21 TYPE itemorg_pegnode_rec is RECORD (
22 Item_Org ItemOrg_tab := itemOrg_tab(),
23 Pegging_id pegId_tab := pegId_tab(),
24 Prev_pegging_id prevPegId_tab := prevPegId_tab(),
25 Qty Qty_Tab := Qty_Tab(),
26 Peg_Date Date_tab := Date_tab(),
27 Order_name OrderName_tab := OrderName_tab(),
28 Demand_id demId_tab := demId_tab(),
29 Transaction_id trxId_tab := trxId_tab(),
30 Item_id itemId_tab := itemId_tab(),
31 Pegged_qty pegQty_tab := pegQty_tab(),
32 Order_number orderNum_tab := orderNum_tab(),
33 Order_type orderTyp_tab := orderTyp_tab(),
34 Disposition disp_tab := disp_tab(),
35 End_Demand_class end_demClass_Tab := end_demClass_Tab());
36
37 /*
38 TYPE itemorg_sup_rec is RECORD (
39 Item_Org ItemOrg_tab := itemOrg_tab(),
40 supply_qty demQty_Tab := demQty_Tab(),
41 supply_date demDate_tab := demDate_tab(),
42 order_name origin_tab := origin_tab(),
43 pegging_id pegId_tab := pegId_tab(),
44 prev_pegging_id prevPegId_tab := prevPegId_tab(),
45 transaction_id trxId_tab := trxId_tab(),
46 demand_id demId_tab := demId_tab(),
47 pegged_qty demQty_Tab := demQty_Tab(),
48 item_id itemId_tab := itemId_tab(),
49 order_type orderTyp_tab := orderTyp_tab(),
50 disposition pegId_tab := pegId_tab());
51 */
52 ---bug #3556405 while tranfering code from MSCFTPEG.pld (115.176) to MSCPEGS.pls and MSCPEGB.pls we missed to pass V_PREV_PEGGING_ID
53 ---variable as a part of node value instead we pass its value -111 for supply node so to take care that we created additional
54 ---parameter in p_prev_pegging_value in Procedure get_suptree_dem_values of MSCPEGS.pls package.
55 Procedure get_suptree_dem_values(p_plan_id IN NUMBER,
56 p_transaction_id IN NUMBER,
57 x_itemorg_pegnode_rec OUT NOCOPY MSC_PEG_UTIL.itemorg_pegnode_rec,
58 p_item_id IN NUMBER,
59 p_pegging_id IN NUMBER,
60 p_instance_id IN NUMBER,
61 p_trigger_node_type IN NUMBER DEFAULT 2,
62 p_condense_supply_oper IN NUMBER DEFAULT 0,
63 p_hide_oper IN NUMBER DEFAULT 0,
64 p_organization_id IN NUMBER DEFAULT NULL,
65 p_supply_pegging IN NUMBER DEFAULT 0);
66 ---bug #3556405
67 Procedure get_label_and_nodevalue(Item_org IN VARCHAR2,
68 Qty IN NUMBER,
69 Pegged_qty IN NUMBER,
70 Peg_date IN DATE,
71 Order_name IN VARCHAR2,
72 end_demand_class IN VARCHAR2,
73 order_type IN NUMBER,
74 Disposition IN NUMBER,
75 Pegging_id IN NUMBER,
76 Prev_pegging_id IN NUMBER,
77 Demand_id IN NUMBER,
78 Transaction_id IN NUMBER,
79 Item_id IN NUMBER,
80 x_node_value OUT NOCOPY varchar2,
81 x_node_label OUT NOCOPY varchar2,
82 p_tmp IN NUMBER,
83 p_supply_org_id IN NUMBER,
84 pvt_so_number IN VARCHAR2,
85 pvt_l_node_number IN NUMBER,
86 p_constr_label IN BOOLEAN default FALSE,
87 p_node_type IN NUMBER default 1,
88 p_calling_module IN NUMBER default 1,
89 p_prev_pegging_value IN NUMBER default null );
90
91 Procedure get_disposition_id(p_demand_id IN NUMBER,
92 x_disposition_id OUT NOCOPY NUMBER,
93 x_origination_type OUT NOCOPY NUMBER,
94 p_sr_instance_id IN NUMBER,
95 p_organization_id IN NUMBER,
96 p_plan_id IN NUMBER);
97
98 Procedure get_demtree_dem_values( p_plan_id IN NUMBER,
99 p_transaction_id IN NUMBER,
100 x_itemorg_pegnode_rec OUT NOCOPY MSC_PEG_UTIL.itemorg_pegnode_rec,
101 p_instance_id IN NUMBER,
102 p_organization_id IN NUMBER,
103 p_bom_item_type IN NUMBER);
104
105
106
107 Procedure get_suptree_sup_values(p_plan_id IN NUMBER,
108 p_demand_id IN NUMBER,
109 p_sr_instance_id IN NUMBER,
110 p_organization_id IN NUMBER,
111 p_prev_peg_id IN NUMBER,
112 x_itemorg_pegnode_rec OUT NOCOPY MSC_PEG_UTIL.itemorg_pegnode_rec,
113 p_supply_pegging IN NUMBER DEFAULT 0 ); -- demand pegging ( peg up)
114
115 END MSC_PEG_UTIL;