[Home] [Help]
PACKAGE: APPS.MSC_OWB_TREE
Source
1 PACKAGE MSC_OWB_TREE AUTHID CURRENT_USER AS
2 /* $Header: MSCOSTRS.pls 120.2 2007/12/14 06:58:21 sbnaik ship $ */
3
4
5 LABEL_DELIM CONSTANT VARCHAR2(1) := '$';
6
7 --MFG_LOOKUPS
8
9 ORGANIZATIONS CONSTANT NUMBER := 2;
10 CATEGORIES CONSTANT NUMBER := 12;
11 EXCEPTIONS CONSTANT NUMBER := 18;
12 SALES_ORDERS CONSTANT NUMBER := 30;
13 SHIP_SETS CONSTANT NUMBER := 31;
14 ARRIVAL_SETS CONSTANT NUMBER := 32;
15 SHORTAGE CONSTANT NUMBER := 33;
16 LATER_THAN_OLD_SCHEDULE_DATE CONSTANT NUMBER := 34;
17 LATER_THAN_PROMISE_DATE CONSTANT NUMBER := 35;
18 LATER_THAN_REQUEST_DATE CONSTANT NUMBER := 36;
19 INSUFFICIENT_MARGIN CONSTANT NUMBER := 37;
20 MODIFIED_SOURCE CONSTANT NUMBER := 39;
21
22 SALES_ORDERS_N CONSTANT NUMBER := 40;
23 CATEGORY_SETS CONSTANT NUMBER := 41; -- not used
24 CATEGORY_SETS_N CONSTANT NUMBER := 42; -- not used
25 PRODUCT_FAMILIES_N CONSTANT NUMBER := 43;
26 ITEMS CONSTANT NUMBER := 4;
27 SHIP_SETS_N CONSTANT NUMBER := 45;
28 ARRIVAL_SETS_N CONSTANT NUMBER := 46;
29 CATEGORIES_N CONSTANT NUMBER := 47;
30 PRODUCT_FAMILIES CONSTANT NUMBER := 48;
31 ORGANIZATIONS_N CONSTANT NUMBER := 49;
32 INDEP_LINES CONSTANT NUMBER := 50;
33 SOURCES CONSTANT NUMBER := 51;
34 SOURCES_N CONSTANT NUMBER := 52;
35 ITEMS_N CONSTANT NUMBER := 53;
36 ERRORS CONSTANT NUMBER := 54;
37
38 -- I don't need Option classes in the text
39
40 EXCP_TREE CONSTANT NUMBER := 1;
41 ITEMS_TREE CONSTANT NUMBER := 2;
42 ORDERS_TREE CONSTANT NUMBER := 3;
43
44 NODES_IN_EXCP_TREE CONSTANT NUMBER := 8;
45 NODES_IN_ORDERS_TREE CONSTANT NUMBER := 5;
46 NODES_IN_ITEMS_TREE CONSTANT NUMBER := 7;
47
48 ICON_FOLDER CONSTANT VARCHAR2(10) := 'aftreecl';
49 --ICON_SALES_ORDER CONSTANT VARCHAR2(10) := 'MRPSAORD';
50 ICON_DEMAND CONSTANT VARCHAR2(10) := 'afplan';
51 ICON_MAKE_AT CONSTANT VARCHAR2(10) := 'mscmake1';
52 ICON_TRANSFER CONSTANT VARCHAR2(10) := 'msctxfer';
53 ICON_BUY CONSTANT VARCHAR2(10) := 'mscsupps';
54 ICON_SUP_CAP CONSTANT VARCHAR2(10) := 'mscsuppg';
55 ICON_SUP_CAP_CRIT CONSTANT VARCHAR2(10) := 'mscsuppr';
56 --ICON_MATERIAL_DEM CONSTANT VARCHAR2(10) := 'mscmatls';
57 ICON_MATERIAL CONSTANT VARCHAR2(10) := 'mscflagg'; -- 'mscmatlg';
58 ICON_MATERIAL_CRIT CONSTANT VARCHAR2(10) := 'mscsupc'; -- 'mscmatlr';
59 --ICON_RESOURCE_DEM CONSTANT VARCHAR2(10) := 'mschamrs';
60 ICON_RESOURCE_CAP CONSTANT VARCHAR2(10) := 'mschamrg';
61 ICON_RESOURCE_CAP_CRIT CONSTANT VARCHAR2(10) := 'mschamrr';
62 ICON_NO_PEGGING CONSTANT VARCHAR2(10) := 'mscnopeg';
63 ICON_BATCH_RESOURCE CONSTANT VARCHAR2(10) := 'mscresbt';
64
65
66 LOOKUPS_COUNT CONSTANT NUMBER := 25;
67
68 NULL_VALUE CONSTANT NUMBER := -1;
69
70 COLLAPSED CONSTANT NUMBER := -1;
71 EXPANDED CONSTANT NUMBER := 1;
72 LEAF_NODE CONSTANT NUMBER := 0;
73 next_level CONSTANT NUMBER := 1;
74 all_levels CONSTANT NUMBER := 9999999999;
75 -- ATP Pegging
76 constraint_level CONSTANT NUMBER := 2;
77 /*
78 TYPE number_arr IS TABLE OF number;
79 TYPE char80_arr IS TABLE of VARCHAR2(80);
80 TYPE char100_arr IS TABLE of VARCHAR2(100);
81 TYPE char240_arr IS TABLE of VARCHAR2(240);
82 TYPE char_500_arr IS TABLE of VARCHAR2(500);
83
84 -- same as lookups_count
85 TYPE char80_var_arr IS varray(25) OF VARCHAR2(80);
86
87 lookups char80_var_arr;
88
89 TYPE nodeRec IS RECORD (
90 tree_type OWB_TREE.number_arr,
91 parent_node_type OWB_TREE.number_arr,
92 state OWB_TREE.number_arr,
93 depth OWB_TREE.number_arr,
94 label OWB_TREE.char240_arr,
95 icon OWB_TREE.char80_arr,
96 data OWB_TREE.char80_arr
97 );
98
99 TYPE nodeData IS RECORD (
100 state OWB_TREE.number_arr,
101 depth OWB_TREE.number_arr,
102 label OWB_TREE.char240_arr,
103 -- many things are concatenated in the sourcing tree.
104 icon OWB_TREE.char80_arr,
105 data OWB_TREE.char80_arr
106 );
107 */
108
109 PROCEDURE getstructure ( p_session_id NUMBER,
110 p_mode NUMBER,
111 p_nodes OUT NoCopy OWB_TREE.noderec);
112 FUNCTION get_excp_count( p_session_id NUMBER,
113 col_num NUMBER) RETURN INTEGER ;
114 FUNCTION get_cust_hier_string
115 (dmd_class in VARCHAR2) return VARCHAR2;
116
117 FUNCTION get_demand_class ( p_pegging_id IN NUMBER, p_session_id IN NUMBER)
118 return VARCHAR2;
119
120 PROCEDURE get_Sourcing_Nodes(p_end_pegging_id NUMBER,
121 p_session_id NUMBER,
122 p_nodes OUT NoCopy OWB_TREE.NodeData,
123 p_expand_level NUMBER,
124 p_current_node_data NUMBER,
125 p_checkbox BOOLEAN DEFAULT FALSE);
126 PROCEDURE get_lookups;
127
128 record_count NUMBER;
129
130
131 END MSC_OWB_TREE;