[Home] [Help]
PACKAGE BODY: APPS.PA_RESOURCE_PREC_PUB
Source
1 PACKAGE BODY PA_RESOURCE_PREC_PUB AS
2 /* $Header: PARSPREB.pls 120.0 2005/06/03 14:09:02 appldev noship $ */
3
4 ----------------------------------------------------------
5 --Initializes the format precedence global variables
6 --TODO: Need to seed these format precedence in a table
7 --and load them into collection as the first step
8 ---------------------------------------------------------
9 PROCEDURE format_precedence_init IS
10 BEGIN
11
12 --Initialize the format collections for all 4 resource classes
13 g_people_formats := plan_res_formats (
14 pa_plan_res_format( 4, 'PER,FN1,ROL', 1),
15 pa_plan_res_format( 4, 'PER,FN2,ROL', 2),
16 pa_plan_res_format( 4, 'PER,FN3,ROL', 3),
17 pa_plan_res_format( 4, 'PER,FN4,ROL', 4),
18 pa_plan_res_format( 6, 'PER,ROL', 5),
19 pa_plan_res_format( 3, 'PER,FN1,ORG', 6),
20 pa_plan_res_format( 3, 'PER,FN2,ORG', 7),
21 pa_plan_res_format( 3, 'PER,FN3,ORG', 8),
22 pa_plan_res_format( 3, 'PER,FN4,ORG', 9),
23 pa_plan_res_format( 2, 'PER,FN1', 10),
24 pa_plan_res_format( 2, 'PER,FN2', 11),
25 pa_plan_res_format( 2, 'PER,FN3', 12),
26 pa_plan_res_format( 2, 'PER,FN4', 13),
27 pa_plan_res_format( 5, 'PER,ORG', 14),
28 pa_plan_res_format( 1, 'PER', 15),
29 pa_plan_res_format( 10, 'BML,ORG', 16),
30 pa_plan_res_format( 13, 'JOB,FN1,ORG', 17),
31 pa_plan_res_format( 13, 'JOB,FN2,ORG', 18),
32 pa_plan_res_format( 13, 'JOB,FN3,ORG', 19),
33 pa_plan_res_format( 13, 'JOB,FN4,ORG', 20),
34 pa_plan_res_format( 12, 'JOB,FN1', 21),
35 pa_plan_res_format( 12, 'JOB,FN2', 22),
36 pa_plan_res_format( 12, 'JOB,FN3', 23),
37 pa_plan_res_format( 12, 'JOB,FN4', 24),
38 pa_plan_res_format( 15, 'JOB,ORG', 25),
39 pa_plan_res_format( 11, 'JOB', 26),
40 pa_plan_res_format( 28, 'PTP,ROL', 27),
41 pa_plan_res_format( 23, 'PTP,FN1', 28),
42 pa_plan_res_format( 23, 'PTP,FN2', 29),
43 pa_plan_res_format( 23, 'PTP,FN3', 30),
44 pa_plan_res_format( 23, 'PTP,FN4', 31),
45 pa_plan_res_format( 26, 'PTP,ORG', 32),
46 pa_plan_res_format( 22, 'PTP', 33),
47 pa_plan_res_format( 31, 'FN1,ORG,ROL', 34),
48 pa_plan_res_format( 31, 'FN2,ORG,ROL', 35),
49 pa_plan_res_format( 31, 'FN3,ORG,ROL', 36),
50 pa_plan_res_format( 31, 'FN4,ORG,ROL', 37),
51 pa_plan_res_format( 34, 'FN1,ROL', 38),
52 pa_plan_res_format( 34, 'FN2,ROL', 39),
53 pa_plan_res_format( 34, 'FN3,ROL', 40),
54 pa_plan_res_format( 34, 'FN4,ROL', 41),
55 pa_plan_res_format( 32, 'FN1,VND', 42),
56 pa_plan_res_format( 32, 'FN2,VND', 43),
57 pa_plan_res_format( 32, 'FN3,VND', 44),
58 pa_plan_res_format( 32, 'FN4,VND', 45),
59 pa_plan_res_format( 30, 'FN1,ORG', 46),
60 pa_plan_res_format( 30, 'FN2,ORG', 47),
61 pa_plan_res_format( 30, 'FN3,ORG', 48),
62 pa_plan_res_format( 30, 'FN4,ORG', 49),
63 pa_plan_res_format( 38, 'VND,ROL', 50),
64 pa_plan_res_format( 36, 'ORG,ROL', 51),
65 pa_plan_res_format( 39, 'ROL', 52),
66 pa_plan_res_format( 29, 'FN1', 53),
67 pa_plan_res_format( 29, 'FN2', 54),
68 pa_plan_res_format( 29, 'FN3', 55),
69 pa_plan_res_format( 29, 'FN4', 56),
70 pa_plan_res_format( 37, 'VND', 57),
71 pa_plan_res_format( 35, 'ORG', 58),
72 pa_plan_res_format( 40, 'PEP', 59) );
73
74 g_equipment_formats := plan_res_formats (
75 pa_plan_res_format( 43, 'NLB,FN1,ORG', 1),
76 pa_plan_res_format( 43, 'NLB,FN2,ORG', 2),
77 pa_plan_res_format( 43, 'NLB,FN3,ORG', 3),
78 pa_plan_res_format( 43, 'NLB,FN4,ORG', 4),
79 pa_plan_res_format( 44, 'NLB,ORG', 5),
80 pa_plan_res_format( 48, 'BME,ORG', 6),
81 pa_plan_res_format( 51, 'FN1,VND', 7),
82 pa_plan_res_format( 51, 'FN2,VND', 8),
83 pa_plan_res_format( 51, 'FN3,VND', 9),
84 pa_plan_res_format( 51, 'FN4,VND',10),
85 pa_plan_res_format( 50, 'FN1,ORG',11),
86 pa_plan_res_format( 50, 'FN2,ORG',12),
87 pa_plan_res_format( 50, 'FN3,ORG',13),
88 pa_plan_res_format( 50, 'FN4,ORG',14),
89 pa_plan_res_format( 49, 'FN1', 15),
90 pa_plan_res_format( 49, 'FN2', 16),
91 pa_plan_res_format( 49, 'FN3', 17),
92 pa_plan_res_format( 49, 'FN4', 18),
93 pa_plan_res_format( 52, 'ORG', 19),
94 pa_plan_res_format( 54, 'EQP', 20) );
95
96
97 g_material_formats := plan_res_formats (
98 pa_plan_res_format( 56, 'ITM,FN1',1),
99 pa_plan_res_format( 56, 'ITM,FN2',2),
100 pa_plan_res_format( 56, 'ITM,FN3',3),
101 pa_plan_res_format( 56, 'ITM,FN4',4),
102 pa_plan_res_format( 60, 'ITM,VND',5),
103 pa_plan_res_format( 59, 'ITM,ORG',6),
104 pa_plan_res_format( 55, 'ITM', 7),
105 pa_plan_res_format( 66, 'ITC,VND',8),
106 pa_plan_res_format( 64, 'ITC,ORG',9),
107 pa_plan_res_format( 61, 'ITC', 10),
108 pa_plan_res_format( 68, 'FN1,VND',11),
109 pa_plan_res_format( 68, 'FN2,VND',12),
110 pa_plan_res_format( 68, 'FN3,VND',13),
111 pa_plan_res_format( 68, 'FN4,VND',14),
112 pa_plan_res_format( 69, 'FN1,ORG',15),
113 pa_plan_res_format( 69, 'FN2,ORG',16),
114 pa_plan_res_format( 69, 'FN3,ORG',17),
115 pa_plan_res_format( 69, 'FN4,ORG',18),
116 pa_plan_res_format( 67, 'FN1',19),
117 pa_plan_res_format( 67, 'FN2',20),
118 pa_plan_res_format( 67, 'FN3',21),
119 pa_plan_res_format( 67, 'FN4',22),
120 pa_plan_res_format( 71, 'VND',23),
121 pa_plan_res_format( 70, 'ORG',24),
122 pa_plan_res_format( 72, 'MTL',25) );
123
124 g_fin_element_formats := plan_res_formats (
125 pa_plan_res_format( 75, 'FN1,ORG,IR1', 1),
126 pa_plan_res_format( 75, 'FN1,ORG,IR2', 2),
127 pa_plan_res_format( 75, 'FN1,ORG,IR3', 3),
128 pa_plan_res_format( 75, 'FN1,ORG,IR4', 4),
129 --bug#3608042 pa_plan_res_format( 75, 'FN1,ORG,IR5', 5),
130 pa_plan_res_format( 75, 'FN2,ORG,IR1', 5),
131 pa_plan_res_format( 75, 'FN2,ORG,IR2', 6),
132 pa_plan_res_format( 75, 'FN2,ORG,IR3', 7),
133 pa_plan_res_format( 75, 'FN2,ORG,IR4', 8),
134 --bug#3608042 pa_plan_res_format( 75, 'FN2,ORG,IR5', 10),
135 pa_plan_res_format( 75, 'FN3,ORG,IR1', 9),
136 pa_plan_res_format( 75, 'FN3,ORG,IR2', 10),
137 pa_plan_res_format( 75, 'FN3,ORG,IR3', 11),
138 pa_plan_res_format( 75, 'FN3,ORG,IR4', 12),
139 --bug#3608042 pa_plan_res_format( 75, 'FN3,ORG,IR5', 15),
140 pa_plan_res_format( 75, 'FN4,ORG,IR1', 13),
141 pa_plan_res_format( 75, 'FN4,ORG,IR2', 14),
142 pa_plan_res_format( 75, 'FN4,ORG,IR3', 15),
143 pa_plan_res_format( 75, 'FN4,ORG,IR4', 16),
144 --bug#3608042 pa_plan_res_format( 75, 'FN4,ORG,IR5', 20),
145 pa_plan_res_format( 77, 'FN1,IR1', 17),
146 pa_plan_res_format( 77, 'FN1,IR2', 18),
147 pa_plan_res_format( 77, 'FN1,IR3', 19),
148 pa_plan_res_format( 77, 'FN1,IR4', 20),
149 --bug#3608042 pa_plan_res_format( 77, 'FN1,IR5', 25),
150 pa_plan_res_format( 77, 'FN2,IR1', 21),
151 pa_plan_res_format( 77, 'FN2,IR2', 22),
152 pa_plan_res_format( 77, 'FN2,IR3', 23),
153 pa_plan_res_format( 77, 'FN2,IR4', 24),
154 --bug#3608042 pa_plan_res_format( 77, 'FN2,IR5', 30),
155 pa_plan_res_format( 77, 'FN3,IR1', 25),
156 pa_plan_res_format( 77, 'FN3,IR2', 26),
157 pa_plan_res_format( 77, 'FN3,IR3', 27),
158 pa_plan_res_format( 77, 'FN3,IR4', 28),
159 --bug#3608042 pa_plan_res_format( 77, 'FN3,IR5', 35),
160 pa_plan_res_format( 77, 'FN4,IR1', 29),
161 pa_plan_res_format( 77, 'FN4,IR2', 30),
162 pa_plan_res_format( 77, 'FN4,IR3', 31),
163 pa_plan_res_format( 77, 'FN4,IR4', 32),
164 --bug#3608042 pa_plan_res_format( 77, 'FN4,IR5', 40),
165 pa_plan_res_format( 79, 'ORG,IR1', 33),
166 pa_plan_res_format( 79, 'ORG,IR2', 34),
167 pa_plan_res_format( 79, 'ORG,IR3', 35),
168 pa_plan_res_format( 79, 'ORG,IR4', 36),
169 --bug#3608042 pa_plan_res_format( 79, 'ORG,IR5', 45),
170 pa_plan_res_format( 82, 'IR1', 37),
171 pa_plan_res_format( 82, 'IR2', 38),
172 pa_plan_res_format( 82, 'IR3', 39),
173 pa_plan_res_format( 82, 'IR4', 40),
174 --bug#3608042 pa_plan_res_format( 82, 'IR5', 50),
175 pa_plan_res_format( 76, 'FN1,VND', 41),
176 pa_plan_res_format( 76, 'FN2,VND', 42),
177 pa_plan_res_format( 76, 'FN3,VND', 43),
178 pa_plan_res_format( 76, 'FN4,VND', 44),
179 pa_plan_res_format( 74, 'FN1,ORG', 45),
180 pa_plan_res_format( 74, 'FN2,ORG', 46),
181 pa_plan_res_format( 74, 'FN3,ORG', 47),
182 pa_plan_res_format( 74, 'FN4,ORG', 48),
183 pa_plan_res_format( 73, 'FN1', 49),
184 pa_plan_res_format( 73, 'FN2', 50),
185 pa_plan_res_format( 73, 'FN3', 51),
186 pa_plan_res_format( 73, 'FN4', 52),
187 pa_plan_res_format( 80, 'ORG,VND', 53),
188 pa_plan_res_format( 81, 'VND', 54),
189 pa_plan_res_format( 78, 'ORG', 55),
190 pa_plan_res_format( 83, 'FNL', 56) );
191
192 END;
193
194
195 END; --end package PA_RESOURCE_PREC_PUB