DBA Data[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