DBA Data[Home] [Help]

PACKAGE BODY: APPS.BEN_EXT_WRITE

Source


4 /*
1 package body BEN_EXT_WRITE as
2 /* $Header: benxwrit.pkb 120.16 2006/04/30 21:26:51 hgattu noship $ */
3 --------------------------------------------------------------------------------
5 +==============================================================================+
6 |			Copyright (c) 1997 Oracle Corporation                  |
7 |			   Redwood Shores, California, USA                     |
8 |			        All rights reserved.	                         |
9 +==============================================================================+
10 Name:
11     Extract Write Process.
12 Purpose:
13     This process reads records from the ben_ext_rslt_dtl table and writes them
14     to a flat output file.
15 History:
16      Date             Who        Version    What?
17      ----             ---        -------    -----
18      24 Oct 98        Ty Hayden  115.0      Created.
19      11 Dec 98        Ty Hayden  115.1      Added directory logic and justification.
20      04 Feb 99        Ty Hayden  115.2      Added Hide logic.
21      09 Mar 99        G Perry    115.3      IS to AS.
22      29 Apr 99        Ty Hayden  115.5      Super Sort.
23      08 Jul 99        Ty Hayden  115.6      UTL Exception Handling.
24      12 Jul 99        Ty Hayden  115.7      Initialize Globals.
25                                             Fix overflow error.
26      05 Aug 99        ASEN 	 115.8      Change the log report message, added directoryname, file name.
27      06 Aug 99        ASEN 	 115.9      Added messages : Entering, Exiting.
28      27 Sep 99        Ty Hayden  115.10     Removed directory defaulting.
29      14 Jan 99        Ty Hayden  115.11     Changed record length from 200 to 2000
30      26 Oct 00        rchase     115.12     wwbug 1412809 fix
31                                             Changed utl_file.put statement to varchar
32                                             assignment and moved to final put_line.
33      30 JAN 01        tilak      115.13     wwbug 1579767 error messages is sent instead of name
34      21 jun 01        tilak      115.14     gv$system_parameter used instead of v$system_parmeter
35      06 JAN 02        nhunur     115.15     Added code to pickup max line size for UTL FILE from
36      					    a new profile .
37      16 JAN 02        hnarayan   115.16     bug 2066883 fix - Changed variable sizes to allow for
38                                             record length upto 32000.
39      11 mar 02        tjesumic   115.17     utf changes
40      11 oct 02        tjesumic   115.18     seq_num order in the order  in cursor c_xrd
41      24-Dec-02        bmanyam    115.19     NOCOPY Changes
42      21-Apr-02        tjesumic   115.20     new column output_type added in extract definition
43                                             if the output type is 'X'  xml procedure called
44                                             to create the xml file
45      10-Sep-03        tjesumic   115.21     when the last coulmns are null the delimiter appear in
46                                             record as per ansi std the last deliter should not apper
47                                             without data in the column the reciord end with data then
48                                             the endof record delimiter , there should not be
49                                             column delimiter between end of record delimiter and data
50                                             so -1 lenth of string is trimed for the dlimiter 3115428
51      03-Mar-04        tjesumic   115.22     delimiter value defined with 1 char and column with 90 char
55                                             from cache.
52                                             this cause error when the delimiter defined with more then
53                                             1 char
54      20-Jul-04        abparekh   115.23     Bug 3776045 : Use fnd_profile.get to fetch profile value
56      25 Aug 2004      tjesumic   115.24     xdo integeration
57      18 Oct 2004      nhunur     115.25     Bug : 3954449 Added union part to also look at gv$system_parameter.
58      19 Oct 2004      tjesumic   115.26     RECLINKS added to overcome the 75 column limitation
59      05 Nov 2004      tjesumic   115.28     115.27 reversed , RECLINKS  fixed
60      09 Nov 2004      tjesumic   115.29      nvl added to last_elmt_short_name
61      15 Dec 2004      tjesumic   115.30      ext_rcd_in_file id validation added in cursor
62      28-jan-2004      nhunur     115.31     4143619 - removed usage of cursor c_utl.
63      01-Feb-2005      tjesumic   115.32      300 elements allowed in  a record
64      17-Feb-2005      tjesumic   115.33      maximum line size error captured in form before
65                                               the variable length error
66      17-mar-2005      nhunur     115.34      4242821 - added condition to prevent maxlinesize error.
67      22-mar-2005      tjesumic   115.34      group_val_01,02 added in order  by
68      06-May-2005      tjesumic   115.35      bug 4242821 reverterd  for fix 4413826. max line sise validated against
69                                             variable instead of  32700
70     08-Jun-2005      tjesumic    115.36/37  pennserver enhancment
71     06-Oct-2005      tjesumic    115.38     c_utl cursor is removed
72     20-Oct-2005      tjesumic    115.39     truncation warning dispalyed with element name
73     20-Oct-2005      tjesumic    115.40     the data is not processed when element defined as hiden
74     20-Oct-2005      tjesumic    115.41     short name was not assign to arry sqn no 6 , fixed
75     30-Nov-2005      tjesumic    115.42     fnd_concurrent_request table updted with output file
76     06-Dec-2005      tjesumic    115.43     cm_display_flag added
77     16-Dec-2005      tjesumic    115.44     BEN_94036_EXT_XDO_PDF_NUL validated only for benxwrit
78     16-Dec-2005      tjesumic    115.45     when the disply is on and benxwrit executed , the process
79                                             rerout the proces to benxxmlwrit
80     22-Dec-2005      tjesumic    115.46     XSL changed to EXCEL
81     11-Jan-2006      tjesumic    115.47     BEN_94036_EXT_XDO_PDF_NUL validated only for benxwrit
82     06-Feb-2006      tjesumic    115.48     new result status 'W' added
83     16-Feb-2006      tjesumic    115.49     defautl 'N' assign to l_cm_disply_flag
84     28-APR-2006      hgattu      115.50     new parameter p_out_dummy is added(5131931)
85 
86 
87 */
88 -----------------------------------------------------------------------------------
89 --
90 g_package              varchar2(30) := ' ben_ext_write.';
91 --
92 Procedure initialize_globals is
93 --
94   l_proc     varchar2(72) := g_package||'initialize_globals';
95 --
96 begin
97 --
98 hr_utility.set_location('Entering'||l_proc, 5);
99 --
100 g_last_rcd_processed := null;
101 g_business_group_id := null;
102 g_err_name := null;
103 g_person_id := null;
104 --
105 g_val.delete;
106 g_strt_pos.delete;
107 g_array.delete;
108 g_dlmtr_val.delete;
109 g_just_cd.delete;
110 g_short_name.delete;
111 g_hide_flag.delete;
112 /*
113 --
114 for i in 1..g_strt_pos.count loop
115   if g_strt_pos(i) then
116     g_strt_pos(i) := null;
117   end if;
118 end loop;
119 --
120 for i in 1..g_array.count loop
121   if g_array(i).highest_seq_num then
122     g_array(i).highest_seq_num := null;
123   end if;
124 end loop; */
125 --
126 hr_utility.set_location('Exiting'||l_proc, 15);
127 --
128 end initialize_globals;
129 -----------------------------------------------------------------------------
130 --
131 procedure load_strt_pos
132               (p_ext_rcd_id number,
133                p_seq_num number) is
134 --
135 cursor c_xer is
136   select xer.seq_num,
137          xer.strt_pos,
138          xer.dlmtr_val,
139          xer.hide_flag,
140          xde.just_cd ,
141          xef.short_name
142    from  ben_ext_data_elmt_in_rcd xer,
143          ben_ext_data_elmt xde,
144          ben_ext_fld       xef
145          where xer.ext_rcd_id = p_ext_rcd_id
146    and   xer.ext_data_elmt_id = xde.ext_data_elmt_id
147    and   xde.ext_fld_id       = xef.ext_fld_id (+)
148          order by xer.seq_num;
149 --
150   l_proc     varchar2(72) := g_package||'load_strt_pos';
151 --
152 begin
153 --
154   hr_utility.set_location('Entering'||l_proc, 5);
155 --
156    for l_xer in c_xer loop
157       if l_xer.seq_num = 1 then
158         g_array(p_seq_num).strt_pos_01  := l_xer.strt_pos;
159         g_array(p_seq_num).dlmtr_val_01 := l_xer.dlmtr_val;
160         g_array(p_seq_num).just_cd_01   := l_xer.just_cd;
161         g_array(p_seq_num).hide_flag_01 := l_xer.hide_flag;
162         g_array(p_seq_num).short_name_01:= l_xer.short_name;
163 
164       elsif l_xer.seq_num = 2 then
165         g_array(p_seq_num).strt_pos_02 := l_xer.strt_pos;
166         g_array(p_seq_num).dlmtr_val_02 := l_xer.dlmtr_val;
167         g_array(p_seq_num).just_cd_02 := l_xer.just_cd;
168         g_array(p_seq_num).hide_flag_02 := l_xer.hide_flag;
169         g_array(p_seq_num).short_name_02   := l_xer.short_name;
170       elsif l_xer.seq_num = 3 then
171         g_array(p_seq_num).strt_pos_03 := l_xer.strt_pos;
172         g_array(p_seq_num).dlmtr_val_03 := l_xer.dlmtr_val;
173         g_array(p_seq_num).just_cd_03 := l_xer.just_cd;
174         g_array(p_seq_num).hide_flag_03 := l_xer.hide_flag;
178         g_array(p_seq_num).dlmtr_val_04 := l_xer.dlmtr_val;
175         g_array(p_seq_num).short_name_03   := l_xer.short_name;
176       elsif l_xer.seq_num = 4 then
177         g_array(p_seq_num).strt_pos_04 := l_xer.strt_pos;
179         g_array(p_seq_num).just_cd_04 := l_xer.just_cd;
180         g_array(p_seq_num).hide_flag_04 := l_xer.hide_flag;
181         g_array(p_seq_num).short_name_04   := l_xer.short_name;
182       elsif l_xer.seq_num = 5 then
183         g_array(p_seq_num).strt_pos_05 := l_xer.strt_pos;
184         g_array(p_seq_num).dlmtr_val_05 := l_xer.dlmtr_val;
185         g_array(p_seq_num).just_cd_05 := l_xer.just_cd;
186         g_array(p_seq_num).hide_flag_05 := l_xer.hide_flag;
187         g_array(p_seq_num).short_name_05   := l_xer.short_name;
188       elsif l_xer.seq_num = 6 then
189         g_array(p_seq_num).strt_pos_06 := l_xer.strt_pos;
190         g_array(p_seq_num).dlmtr_val_06 := l_xer.dlmtr_val;
191         g_array(p_seq_num).just_cd_06 := l_xer.just_cd;
192         g_array(p_seq_num).hide_flag_06 := l_xer.hide_flag;
193         g_array(p_seq_num).short_name_06   := l_xer.short_name;
194       elsif l_xer.seq_num = 7 then
195         g_array(p_seq_num).strt_pos_07 := l_xer.strt_pos;
196         g_array(p_seq_num).dlmtr_val_07 := l_xer.dlmtr_val;
197         g_array(p_seq_num).just_cd_07 := l_xer.just_cd;
198         g_array(p_seq_num).hide_flag_07 := l_xer.hide_flag;
199         g_array(p_seq_num).short_name_07   := l_xer.short_name;
200       elsif l_xer.seq_num = 8 then
201         g_array(p_seq_num).strt_pos_08 := l_xer.strt_pos;
202         g_array(p_seq_num).dlmtr_val_08 := l_xer.dlmtr_val;
203         g_array(p_seq_num).just_cd_08 := l_xer.just_cd;
204         g_array(p_seq_num).hide_flag_08 := l_xer.hide_flag;
205         g_array(p_seq_num).short_name_08   := l_xer.short_name;
206       elsif l_xer.seq_num = 9 then
207         g_array(p_seq_num).strt_pos_09 := l_xer.strt_pos;
208         g_array(p_seq_num).dlmtr_val_09 := l_xer.dlmtr_val;
209         g_array(p_seq_num).just_cd_09 := l_xer.just_cd;
210         g_array(p_seq_num).hide_flag_09 := l_xer.hide_flag;
211         g_array(p_seq_num).short_name_09   := l_xer.short_name;
212       elsif l_xer.seq_num = 10 then
213         g_array(p_seq_num).strt_pos_10 := l_xer.strt_pos;
214         g_array(p_seq_num).dlmtr_val_10 := l_xer.dlmtr_val;
215         g_array(p_seq_num).just_cd_10 := l_xer.just_cd;
216         g_array(p_seq_num).hide_flag_10 := l_xer.hide_flag;
217         g_array(p_seq_num).short_name_10   := l_xer.short_name;
218       elsif l_xer.seq_num = 11 then
219         g_array(p_seq_num).strt_pos_11 := l_xer.strt_pos;
220         g_array(p_seq_num).dlmtr_val_11 := l_xer.dlmtr_val;
221         g_array(p_seq_num).just_cd_11 := l_xer.just_cd;
222         g_array(p_seq_num).hide_flag_11 := l_xer.hide_flag;
223         g_array(p_seq_num).short_name_11   := l_xer.short_name;
224       elsif l_xer.seq_num = 12 then
225         g_array(p_seq_num).strt_pos_12 := l_xer.strt_pos;
226         g_array(p_seq_num).dlmtr_val_12 := l_xer.dlmtr_val;
227         g_array(p_seq_num).just_cd_12 := l_xer.just_cd;
228         g_array(p_seq_num).hide_flag_12 := l_xer.hide_flag;
229         g_array(p_seq_num).short_name_12   := l_xer.short_name;
230       elsif l_xer.seq_num = 13 then
231         g_array(p_seq_num).strt_pos_13 := l_xer.strt_pos;
232         g_array(p_seq_num).dlmtr_val_13 := l_xer.dlmtr_val;
233         g_array(p_seq_num).just_cd_13 := l_xer.just_cd;
234         g_array(p_seq_num).hide_flag_13 := l_xer.hide_flag;
235         g_array(p_seq_num).short_name_13   := l_xer.short_name;
236       elsif l_xer.seq_num = 14 then
237         g_array(p_seq_num).strt_pos_14 := l_xer.strt_pos;
238         g_array(p_seq_num).dlmtr_val_14 := l_xer.dlmtr_val;
239         g_array(p_seq_num).just_cd_14 := l_xer.just_cd;
240         g_array(p_seq_num).hide_flag_14 := l_xer.hide_flag;
241         g_array(p_seq_num).short_name_14   := l_xer.short_name;
242       elsif l_xer.seq_num = 15 then
243         g_array(p_seq_num).strt_pos_15 := l_xer.strt_pos;
244         g_array(p_seq_num).dlmtr_val_15 := l_xer.dlmtr_val;
245         g_array(p_seq_num).just_cd_15 := l_xer.just_cd;
246         g_array(p_seq_num).hide_flag_15 := l_xer.hide_flag;
247         g_array(p_seq_num).short_name_15   := l_xer.short_name;
248       elsif l_xer.seq_num = 16 then
249         g_array(p_seq_num).strt_pos_16 := l_xer.strt_pos;
250         g_array(p_seq_num).dlmtr_val_16 := l_xer.dlmtr_val;
251         g_array(p_seq_num).just_cd_16 := l_xer.just_cd;
252         g_array(p_seq_num).hide_flag_16 := l_xer.hide_flag;
253         g_array(p_seq_num).short_name_16   := l_xer.short_name;
254       elsif l_xer.seq_num = 17 then
255         g_array(p_seq_num).strt_pos_17 := l_xer.strt_pos;
256         g_array(p_seq_num).dlmtr_val_17 := l_xer.dlmtr_val;
257         g_array(p_seq_num).just_cd_17 := l_xer.just_cd;
258         g_array(p_seq_num).hide_flag_17 := l_xer.hide_flag;
259         g_array(p_seq_num).short_name_17   := l_xer.short_name;
260       elsif l_xer.seq_num = 18 then
261         g_array(p_seq_num).strt_pos_18  := l_xer.strt_pos;
262         g_array(p_seq_num).dlmtr_val_18 := l_xer.dlmtr_val;
263         g_array(p_seq_num).just_cd_18   := l_xer.just_cd;
264         g_array(p_seq_num).hide_flag_18 := l_xer.hide_flag;
265         g_array(p_seq_num).short_name_18:= l_xer.short_name;
266       elsif l_xer.seq_num = 19 then
267         g_array(p_seq_num).strt_pos_19 := l_xer.strt_pos;
268         g_array(p_seq_num).dlmtr_val_19 := l_xer.dlmtr_val;
269         g_array(p_seq_num).just_cd_19 := l_xer.just_cd;
270         g_array(p_seq_num).hide_flag_19 := l_xer.hide_flag;
271         g_array(p_seq_num).short_name_19   := l_xer.short_name;
272       elsif l_xer.seq_num = 20 then
273         g_array(p_seq_num).strt_pos_20 := l_xer.strt_pos;
274         g_array(p_seq_num).dlmtr_val_20 := l_xer.dlmtr_val;
278       elsif l_xer.seq_num = 21 then
275         g_array(p_seq_num).just_cd_20 := l_xer.just_cd;
276         g_array(p_seq_num).hide_flag_20 := l_xer.hide_flag;
277         g_array(p_seq_num).short_name_20   := l_xer.short_name;
279         g_array(p_seq_num).strt_pos_21 := l_xer.strt_pos;
280         g_array(p_seq_num).dlmtr_val_21 := l_xer.dlmtr_val;
281         g_array(p_seq_num).just_cd_21 := l_xer.just_cd;
282         g_array(p_seq_num).hide_flag_21 := l_xer.hide_flag;
283         g_array(p_seq_num).short_name_21   := l_xer.short_name;
284       elsif l_xer.seq_num = 22 then
285         g_array(p_seq_num).strt_pos_22 := l_xer.strt_pos;
286         g_array(p_seq_num).dlmtr_val_22 := l_xer.dlmtr_val;
287         g_array(p_seq_num).just_cd_22 := l_xer.just_cd;
288         g_array(p_seq_num).hide_flag_22 := l_xer.hide_flag;
289         g_array(p_seq_num).short_name_22   := l_xer.short_name;
290       elsif l_xer.seq_num = 23 then
291         g_array(p_seq_num).strt_pos_23 := l_xer.strt_pos;
292         g_array(p_seq_num).dlmtr_val_23 := l_xer.dlmtr_val;
293         g_array(p_seq_num).just_cd_23 := l_xer.just_cd;
294         g_array(p_seq_num).hide_flag_23 := l_xer.hide_flag;
295         g_array(p_seq_num).short_name_23   := l_xer.short_name;
296       elsif l_xer.seq_num = 24 then
297         g_array(p_seq_num).strt_pos_24 := l_xer.strt_pos;
298         g_array(p_seq_num).dlmtr_val_24 := l_xer.dlmtr_val;
299         g_array(p_seq_num).just_cd_24 := l_xer.just_cd;
300         g_array(p_seq_num).hide_flag_24 := l_xer.hide_flag;
301         g_array(p_seq_num).short_name_24   := l_xer.short_name;
302       elsif l_xer.seq_num = 25 then
303         g_array(p_seq_num).strt_pos_25 := l_xer.strt_pos;
304         g_array(p_seq_num).dlmtr_val_25 := l_xer.dlmtr_val;
305         g_array(p_seq_num).just_cd_25 := l_xer.just_cd;
306         g_array(p_seq_num).hide_flag_25 := l_xer.hide_flag;
307         g_array(p_seq_num).short_name_25   := l_xer.short_name;
308       elsif l_xer.seq_num = 26 then
309         g_array(p_seq_num).strt_pos_26 := l_xer.strt_pos;
310         g_array(p_seq_num).dlmtr_val_26 := l_xer.dlmtr_val;
311         g_array(p_seq_num).just_cd_26 := l_xer.just_cd;
312         g_array(p_seq_num).hide_flag_26 := l_xer.hide_flag;
313         g_array(p_seq_num).short_name_26   := l_xer.short_name;
314       elsif l_xer.seq_num = 27 then
315         g_array(p_seq_num).strt_pos_27 := l_xer.strt_pos;
316         g_array(p_seq_num).dlmtr_val_27 := l_xer.dlmtr_val;
317         g_array(p_seq_num).just_cd_27 := l_xer.just_cd;
318         g_array(p_seq_num).hide_flag_27 := l_xer.hide_flag;
319         g_array(p_seq_num).short_name_27   := l_xer.short_name;
320       elsif l_xer.seq_num = 28 then
321         g_array(p_seq_num).strt_pos_28 := l_xer.strt_pos;
322         g_array(p_seq_num).dlmtr_val_28 := l_xer.dlmtr_val;
323         g_array(p_seq_num).just_cd_28 := l_xer.just_cd;
324         g_array(p_seq_num).hide_flag_28 := l_xer.hide_flag;
325         g_array(p_seq_num).short_name_28   := l_xer.short_name;
326       elsif l_xer.seq_num = 29 then
327         g_array(p_seq_num).strt_pos_29 := l_xer.strt_pos;
328         g_array(p_seq_num).dlmtr_val_29 := l_xer.dlmtr_val;
329         g_array(p_seq_num).just_cd_29 := l_xer.just_cd;
330         g_array(p_seq_num).hide_flag_29 := l_xer.hide_flag;
331         g_array(p_seq_num).short_name_29   := l_xer.short_name;
332       elsif l_xer.seq_num = 30 then
333         g_array(p_seq_num).strt_pos_30 := l_xer.strt_pos;
334         g_array(p_seq_num).dlmtr_val_30 := l_xer.dlmtr_val;
335         g_array(p_seq_num).just_cd_30 := l_xer.just_cd;
336         g_array(p_seq_num).hide_flag_30 := l_xer.hide_flag;
337         g_array(p_seq_num).short_name_30   := l_xer.short_name;
338       elsif l_xer.seq_num = 31 then
339         g_array(p_seq_num).strt_pos_31 := l_xer.strt_pos;
340         g_array(p_seq_num).dlmtr_val_31 := l_xer.dlmtr_val;
341         g_array(p_seq_num).just_cd_31 := l_xer.just_cd;
342         g_array(p_seq_num).hide_flag_31 := l_xer.hide_flag;
343         g_array(p_seq_num).short_name_31   := l_xer.short_name;
344       elsif l_xer.seq_num = 32 then
345         g_array(p_seq_num).strt_pos_32 := l_xer.strt_pos;
346         g_array(p_seq_num).dlmtr_val_32 := l_xer.dlmtr_val;
347         g_array(p_seq_num).just_cd_32 := l_xer.just_cd;
348         g_array(p_seq_num).hide_flag_32 := l_xer.hide_flag;
349         g_array(p_seq_num).short_name_32   := l_xer.short_name;
350       elsif l_xer.seq_num = 33 then
351         g_array(p_seq_num).strt_pos_33 := l_xer.strt_pos;
352         g_array(p_seq_num).dlmtr_val_33 := l_xer.dlmtr_val;
353         g_array(p_seq_num).just_cd_33 := l_xer.just_cd;
354         g_array(p_seq_num).hide_flag_33 := l_xer.hide_flag;
355         g_array(p_seq_num).short_name_33   := l_xer.short_name;
356       elsif l_xer.seq_num = 34 then
357         g_array(p_seq_num).strt_pos_34 := l_xer.strt_pos;
358         g_array(p_seq_num).dlmtr_val_34 := l_xer.dlmtr_val;
359         g_array(p_seq_num).just_cd_34 := l_xer.just_cd;
360         g_array(p_seq_num).hide_flag_34 := l_xer.hide_flag;
361         g_array(p_seq_num).short_name_34   := l_xer.short_name;
362       elsif l_xer.seq_num = 35 then
363         g_array(p_seq_num).strt_pos_35 := l_xer.strt_pos;
364         g_array(p_seq_num).dlmtr_val_35 := l_xer.dlmtr_val;
365         g_array(p_seq_num).just_cd_35 := l_xer.just_cd;
366         g_array(p_seq_num).hide_flag_35 := l_xer.hide_flag;
367         g_array(p_seq_num).short_name_35   := l_xer.short_name;
368       elsif l_xer.seq_num = 36 then
369         g_array(p_seq_num).strt_pos_36 := l_xer.strt_pos;
370         g_array(p_seq_num).dlmtr_val_36 := l_xer.dlmtr_val;
371         g_array(p_seq_num).just_cd_36 := l_xer.just_cd;
372         g_array(p_seq_num).hide_flag_36 := l_xer.hide_flag;
373         g_array(p_seq_num).short_name_36   := l_xer.short_name;
374       elsif l_xer.seq_num = 37 then
378         g_array(p_seq_num).hide_flag_37 := l_xer.hide_flag;
375         g_array(p_seq_num).strt_pos_37 := l_xer.strt_pos;
376         g_array(p_seq_num).dlmtr_val_37 := l_xer.dlmtr_val;
377         g_array(p_seq_num).just_cd_37 := l_xer.just_cd;
379         g_array(p_seq_num).short_name_37   := l_xer.short_name;
380       elsif l_xer.seq_num = 38 then
381         g_array(p_seq_num).strt_pos_38 := l_xer.strt_pos;
382         g_array(p_seq_num).dlmtr_val_38 := l_xer.dlmtr_val;
383         g_array(p_seq_num).just_cd_38 := l_xer.just_cd;
384         g_array(p_seq_num).hide_flag_38 := l_xer.hide_flag;
385         g_array(p_seq_num).short_name_38   := l_xer.short_name;
386       elsif l_xer.seq_num = 39 then
387         g_array(p_seq_num).strt_pos_39 := l_xer.strt_pos;
388         g_array(p_seq_num).dlmtr_val_39 := l_xer.dlmtr_val;
389         g_array(p_seq_num).just_cd_39 := l_xer.just_cd;
390         g_array(p_seq_num).hide_flag_39 := l_xer.hide_flag;
391         g_array(p_seq_num).short_name_39   := l_xer.short_name;
392       elsif l_xer.seq_num = 40 then
393         g_array(p_seq_num).strt_pos_40 := l_xer.strt_pos;
394         g_array(p_seq_num).dlmtr_val_40 := l_xer.dlmtr_val;
395         g_array(p_seq_num).just_cd_40 := l_xer.just_cd;
396         g_array(p_seq_num).hide_flag_40 := l_xer.hide_flag;
397         g_array(p_seq_num).short_name_40   := l_xer.short_name;
398       elsif l_xer.seq_num = 41 then
399         g_array(p_seq_num).strt_pos_41 := l_xer.strt_pos;
400         g_array(p_seq_num).dlmtr_val_41 := l_xer.dlmtr_val;
401         g_array(p_seq_num).just_cd_41 := l_xer.just_cd;
402         g_array(p_seq_num).hide_flag_41 := l_xer.hide_flag;
403         g_array(p_seq_num).short_name_41   := l_xer.short_name;
404       elsif l_xer.seq_num = 42 then
405         g_array(p_seq_num).strt_pos_42 := l_xer.strt_pos;
406         g_array(p_seq_num).dlmtr_val_42 := l_xer.dlmtr_val;
407         g_array(p_seq_num).just_cd_42 := l_xer.just_cd;
408         g_array(p_seq_num).hide_flag_42 := l_xer.hide_flag;
409         g_array(p_seq_num).short_name_42   := l_xer.short_name;
410       elsif l_xer.seq_num = 43 then
411         g_array(p_seq_num).strt_pos_43 := l_xer.strt_pos;
412         g_array(p_seq_num).dlmtr_val_43 := l_xer.dlmtr_val;
413         g_array(p_seq_num).just_cd_43 := l_xer.just_cd;
414         g_array(p_seq_num).hide_flag_43 := l_xer.hide_flag;
415         g_array(p_seq_num).short_name_43   := l_xer.short_name;
416       elsif l_xer.seq_num = 44 then
417         g_array(p_seq_num).strt_pos_44 := l_xer.strt_pos;
418         g_array(p_seq_num).dlmtr_val_44 := l_xer.dlmtr_val;
419         g_array(p_seq_num).just_cd_44 := l_xer.just_cd;
420         g_array(p_seq_num).hide_flag_44 := l_xer.hide_flag;
421         g_array(p_seq_num).short_name_44   := l_xer.short_name;
422       elsif l_xer.seq_num = 45 then
423         g_array(p_seq_num).strt_pos_45 := l_xer.strt_pos;
424         g_array(p_seq_num).dlmtr_val_45 := l_xer.dlmtr_val;
425         g_array(p_seq_num).just_cd_45 := l_xer.just_cd;
426         g_array(p_seq_num).hide_flag_45 := l_xer.hide_flag;
427         g_array(p_seq_num).short_name_45   := l_xer.short_name;
428       elsif l_xer.seq_num = 46 then
429         g_array(p_seq_num).strt_pos_46 := l_xer.strt_pos;
430         g_array(p_seq_num).dlmtr_val_46 := l_xer.dlmtr_val;
431         g_array(p_seq_num).just_cd_46 := l_xer.just_cd;
432         g_array(p_seq_num).hide_flag_46 := l_xer.hide_flag;
433         g_array(p_seq_num).short_name_46   := l_xer.short_name;
434       elsif l_xer.seq_num = 47 then
435         g_array(p_seq_num).strt_pos_47 := l_xer.strt_pos;
436         g_array(p_seq_num).dlmtr_val_47 := l_xer.dlmtr_val;
437         g_array(p_seq_num).just_cd_47 := l_xer.just_cd;
438         g_array(p_seq_num).hide_flag_47 := l_xer.hide_flag;
439         g_array(p_seq_num).short_name_47   := l_xer.short_name;
440       elsif l_xer.seq_num = 48 then
441         g_array(p_seq_num).strt_pos_48 := l_xer.strt_pos;
442         g_array(p_seq_num).dlmtr_val_48 := l_xer.dlmtr_val;
443         g_array(p_seq_num).just_cd_48 := l_xer.just_cd;
444         g_array(p_seq_num).hide_flag_48 := l_xer.hide_flag;
445         g_array(p_seq_num).short_name_48   := l_xer.short_name;
446       elsif l_xer.seq_num = 49 then
447         g_array(p_seq_num).strt_pos_49 := l_xer.strt_pos;
448         g_array(p_seq_num).dlmtr_val_49 := l_xer.dlmtr_val;
449         g_array(p_seq_num).just_cd_49 := l_xer.just_cd;
450         g_array(p_seq_num).hide_flag_49 := l_xer.hide_flag;
451         g_array(p_seq_num).short_name_49   := l_xer.short_name;
452       elsif l_xer.seq_num = 50 then
453         g_array(p_seq_num).strt_pos_50 := l_xer.strt_pos;
454         g_array(p_seq_num).dlmtr_val_50 := l_xer.dlmtr_val;
455         g_array(p_seq_num).just_cd_50 := l_xer.just_cd;
456         g_array(p_seq_num).hide_flag_50 := l_xer.hide_flag;
457         g_array(p_seq_num).short_name_50   := l_xer.short_name;
458       elsif l_xer.seq_num = 51 then
459         g_array(p_seq_num).strt_pos_51 := l_xer.strt_pos;
460         g_array(p_seq_num).dlmtr_val_51 := l_xer.dlmtr_val;
461         g_array(p_seq_num).just_cd_51 := l_xer.just_cd;
462         g_array(p_seq_num).hide_flag_51 := l_xer.hide_flag;
463         g_array(p_seq_num).short_name_51   := l_xer.short_name;
464       elsif l_xer.seq_num = 52 then
465         g_array(p_seq_num).strt_pos_52 := l_xer.strt_pos;
466         g_array(p_seq_num).dlmtr_val_52 := l_xer.dlmtr_val;
467         g_array(p_seq_num).just_cd_52 := l_xer.just_cd;
468         g_array(p_seq_num).hide_flag_52 := l_xer.hide_flag;
469         g_array(p_seq_num).short_name_52   := l_xer.short_name;
470       elsif l_xer.seq_num = 53 then
471         g_array(p_seq_num).strt_pos_53 := l_xer.strt_pos;
472         g_array(p_seq_num).dlmtr_val_53 := l_xer.dlmtr_val;
473         g_array(p_seq_num).just_cd_53 := l_xer.just_cd;
477         g_array(p_seq_num).strt_pos_54 := l_xer.strt_pos;
474         g_array(p_seq_num).hide_flag_53 := l_xer.hide_flag;
475         g_array(p_seq_num).short_name_53   := l_xer.short_name;
476       elsif l_xer.seq_num = 54 then
478         g_array(p_seq_num).dlmtr_val_54 := l_xer.dlmtr_val;
479         g_array(p_seq_num).just_cd_54 := l_xer.just_cd;
480         g_array(p_seq_num).hide_flag_54 := l_xer.hide_flag;
481         g_array(p_seq_num).short_name_54   := l_xer.short_name;
482       elsif l_xer.seq_num = 55 then
483         g_array(p_seq_num).strt_pos_55 := l_xer.strt_pos;
484         g_array(p_seq_num).dlmtr_val_55 := l_xer.dlmtr_val;
485         g_array(p_seq_num).just_cd_55 := l_xer.just_cd;
486         g_array(p_seq_num).hide_flag_55 := l_xer.hide_flag;
487         g_array(p_seq_num).short_name_55   := l_xer.short_name;
488       elsif l_xer.seq_num = 56 then
489         g_array(p_seq_num).strt_pos_56 := l_xer.strt_pos;
490         g_array(p_seq_num).dlmtr_val_56 := l_xer.dlmtr_val;
491         g_array(p_seq_num).just_cd_56 := l_xer.just_cd;
492         g_array(p_seq_num).hide_flag_56 := l_xer.hide_flag;
493         g_array(p_seq_num).short_name_56   := l_xer.short_name;
494       elsif l_xer.seq_num = 57 then
495         g_array(p_seq_num).strt_pos_57 := l_xer.strt_pos;
496         g_array(p_seq_num).dlmtr_val_57 := l_xer.dlmtr_val;
497         g_array(p_seq_num).just_cd_57 := l_xer.just_cd;
498         g_array(p_seq_num).hide_flag_57 := l_xer.hide_flag;
499         g_array(p_seq_num).short_name_57   := l_xer.short_name;
500       elsif l_xer.seq_num = 58 then
501         g_array(p_seq_num).strt_pos_58 := l_xer.strt_pos;
502         g_array(p_seq_num).dlmtr_val_58 := l_xer.dlmtr_val;
503         g_array(p_seq_num).just_cd_58 := l_xer.just_cd;
504         g_array(p_seq_num).hide_flag_58 := l_xer.hide_flag;
505         g_array(p_seq_num).short_name_58   := l_xer.short_name;
506       elsif l_xer.seq_num = 59 then
507         g_array(p_seq_num).strt_pos_59 := l_xer.strt_pos;
508         g_array(p_seq_num).dlmtr_val_59 := l_xer.dlmtr_val;
509         g_array(p_seq_num).just_cd_59 := l_xer.just_cd;
510         g_array(p_seq_num).hide_flag_59 := l_xer.hide_flag;
511         g_array(p_seq_num).short_name_59   := l_xer.short_name;
512       elsif l_xer.seq_num = 60 then
513         g_array(p_seq_num).strt_pos_60 := l_xer.strt_pos;
514         g_array(p_seq_num).dlmtr_val_60 := l_xer.dlmtr_val;
515         g_array(p_seq_num).just_cd_60 := l_xer.just_cd;
516         g_array(p_seq_num).hide_flag_60 := l_xer.hide_flag;
517         g_array(p_seq_num).short_name_60   := l_xer.short_name;
518       elsif l_xer.seq_num = 61 then
519         g_array(p_seq_num).strt_pos_61 := l_xer.strt_pos;
520         g_array(p_seq_num).dlmtr_val_61 := l_xer.dlmtr_val;
521         g_array(p_seq_num).just_cd_61 := l_xer.just_cd;
522         g_array(p_seq_num).hide_flag_61 := l_xer.hide_flag;
523         g_array(p_seq_num).short_name_61   := l_xer.short_name;
524       elsif l_xer.seq_num = 62 then
525         g_array(p_seq_num).strt_pos_62 := l_xer.strt_pos;
526         g_array(p_seq_num).dlmtr_val_62 := l_xer.dlmtr_val;
527         g_array(p_seq_num).just_cd_62 := l_xer.just_cd;
528         g_array(p_seq_num).hide_flag_62 := l_xer.hide_flag;
529         g_array(p_seq_num).short_name_62   := l_xer.short_name;
530       elsif l_xer.seq_num = 63 then
531         g_array(p_seq_num).strt_pos_63 := l_xer.strt_pos;
532         g_array(p_seq_num).dlmtr_val_63 := l_xer.dlmtr_val;
533         g_array(p_seq_num).just_cd_63 := l_xer.just_cd;
534         g_array(p_seq_num).hide_flag_63 := l_xer.hide_flag;
535         g_array(p_seq_num).short_name_63   := l_xer.short_name;
536       elsif l_xer.seq_num = 64 then
537         g_array(p_seq_num).strt_pos_64 := l_xer.strt_pos;
538         g_array(p_seq_num).dlmtr_val_64 := l_xer.dlmtr_val;
539         g_array(p_seq_num).just_cd_64 := l_xer.just_cd;
540         g_array(p_seq_num).hide_flag_64 := l_xer.hide_flag;
541         g_array(p_seq_num).short_name_64   := l_xer.short_name;
542       elsif l_xer.seq_num = 65 then
543         g_array(p_seq_num).strt_pos_65 := l_xer.strt_pos;
544         g_array(p_seq_num).dlmtr_val_65 := l_xer.dlmtr_val;
545         g_array(p_seq_num).just_cd_65 := l_xer.just_cd;
546         g_array(p_seq_num).hide_flag_65 := l_xer.hide_flag;
547         g_array(p_seq_num).short_name_65   := l_xer.short_name;
548       elsif l_xer.seq_num = 66 then
549         g_array(p_seq_num).strt_pos_66 := l_xer.strt_pos;
550         g_array(p_seq_num).dlmtr_val_66 := l_xer.dlmtr_val;
551         g_array(p_seq_num).just_cd_66 := l_xer.just_cd;
552         g_array(p_seq_num).hide_flag_66 := l_xer.hide_flag;
553         g_array(p_seq_num).short_name_66   := l_xer.short_name;
554       elsif l_xer.seq_num = 67 then
555         g_array(p_seq_num).strt_pos_67 := l_xer.strt_pos;
556         g_array(p_seq_num).dlmtr_val_67 := l_xer.dlmtr_val;
557         g_array(p_seq_num).just_cd_67 := l_xer.just_cd;
558         g_array(p_seq_num).hide_flag_67 := l_xer.hide_flag;
559         g_array(p_seq_num).short_name_67   := l_xer.short_name;
560       elsif l_xer.seq_num = 68 then
561         g_array(p_seq_num).strt_pos_68 := l_xer.strt_pos;
562         g_array(p_seq_num).dlmtr_val_68 := l_xer.dlmtr_val;
563         g_array(p_seq_num).just_cd_68 := l_xer.just_cd;
564         g_array(p_seq_num).hide_flag_68 := l_xer.hide_flag;
565         g_array(p_seq_num).short_name_68   := l_xer.short_name;
566       elsif l_xer.seq_num = 69 then
567         g_array(p_seq_num).strt_pos_69 := l_xer.strt_pos;
568         g_array(p_seq_num).dlmtr_val_69 := l_xer.dlmtr_val;
569         g_array(p_seq_num).just_cd_69 := l_xer.just_cd;
570         g_array(p_seq_num).hide_flag_69 := l_xer.hide_flag;
571         g_array(p_seq_num).short_name_69   := l_xer.short_name;
572       elsif l_xer.seq_num = 70 then
573         g_array(p_seq_num).strt_pos_70 := l_xer.strt_pos;
574         g_array(p_seq_num).dlmtr_val_70 := l_xer.dlmtr_val;
575         g_array(p_seq_num).just_cd_70 := l_xer.just_cd;
576         g_array(p_seq_num).hide_flag_70 := l_xer.hide_flag;
580         g_array(p_seq_num).dlmtr_val_71 := l_xer.dlmtr_val;
577         g_array(p_seq_num).short_name_70   := l_xer.short_name;
578       elsif l_xer.seq_num = 71 then
579         g_array(p_seq_num).strt_pos_71 := l_xer.strt_pos;
581         g_array(p_seq_num).just_cd_71 := l_xer.just_cd;
582         g_array(p_seq_num).hide_flag_71 := l_xer.hide_flag;
583         g_array(p_seq_num).short_name_71   := l_xer.short_name;
584       elsif l_xer.seq_num = 72 then
585         g_array(p_seq_num).strt_pos_72 := l_xer.strt_pos;
586         g_array(p_seq_num).dlmtr_val_72 := l_xer.dlmtr_val;
587         g_array(p_seq_num).just_cd_72 := l_xer.just_cd;
588         g_array(p_seq_num).hide_flag_72 := l_xer.hide_flag;
589         g_array(p_seq_num).short_name_72   := l_xer.short_name;
590       elsif l_xer.seq_num = 73 then
591         g_array(p_seq_num).strt_pos_73 := l_xer.strt_pos;
592         g_array(p_seq_num).dlmtr_val_73 := l_xer.dlmtr_val;
593         g_array(p_seq_num).just_cd_73 := l_xer.just_cd;
594         g_array(p_seq_num).hide_flag_73 := l_xer.hide_flag;
595         g_array(p_seq_num).short_name_73   := l_xer.short_name;
596       elsif l_xer.seq_num = 74 then
597         g_array(p_seq_num).strt_pos_74 := l_xer.strt_pos;
598         g_array(p_seq_num).dlmtr_val_74 := l_xer.dlmtr_val;
599         g_array(p_seq_num).just_cd_74 := l_xer.just_cd;
600         g_array(p_seq_num).hide_flag_74 := l_xer.hide_flag;
601         g_array(p_seq_num).short_name_74   := l_xer.short_name;
602       elsif l_xer.seq_num = 75 then
603         g_array(p_seq_num).strt_pos_75 := l_xer.strt_pos;
604         g_array(p_seq_num).dlmtr_val_75 := l_xer.dlmtr_val;
605         g_array(p_seq_num).just_cd_75 := l_xer.just_cd;
606         g_array(p_seq_num).hide_flag_75 := l_xer.hide_flag;
607         g_array(p_seq_num).short_name_75   := l_xer.short_name;
608             elsif l_xer.seq_num = 76 then
609         g_array(p_seq_num).strt_pos_76 := l_xer.strt_pos;
610         g_array(p_seq_num).dlmtr_val_76 := l_xer.dlmtr_val;
611         g_array(p_seq_num).just_cd_76 := l_xer.just_cd;
612         g_array(p_seq_num).hide_flag_76 := l_xer.hide_flag;
613         g_array(p_seq_num).short_name_76   := l_xer.short_name;
614       elsif l_xer.seq_num = 77 then
615         g_array(p_seq_num).strt_pos_77 := l_xer.strt_pos;
616         g_array(p_seq_num).dlmtr_val_77 := l_xer.dlmtr_val;
617         g_array(p_seq_num).just_cd_77 := l_xer.just_cd;
618         g_array(p_seq_num).hide_flag_77 := l_xer.hide_flag;
619         g_array(p_seq_num).short_name_77   := l_xer.short_name;
620       elsif l_xer.seq_num = 78 then
621         g_array(p_seq_num).strt_pos_78 := l_xer.strt_pos;
622         g_array(p_seq_num).dlmtr_val_78 := l_xer.dlmtr_val;
623         g_array(p_seq_num).just_cd_78 := l_xer.just_cd;
624         g_array(p_seq_num).hide_flag_78 := l_xer.hide_flag;
625         g_array(p_seq_num).short_name_78   := l_xer.short_name;
626       elsif l_xer.seq_num = 79 then
627         g_array(p_seq_num).strt_pos_79 := l_xer.strt_pos;
628         g_array(p_seq_num).dlmtr_val_79 := l_xer.dlmtr_val;
629         g_array(p_seq_num).just_cd_79 := l_xer.just_cd;
630         g_array(p_seq_num).hide_flag_79 := l_xer.hide_flag;
631         g_array(p_seq_num).short_name_79   := l_xer.short_name;
632       elsif l_xer.seq_num = 80 then
633         g_array(p_seq_num).strt_pos_80 := l_xer.strt_pos;
634         g_array(p_seq_num).dlmtr_val_80 := l_xer.dlmtr_val;
635         g_array(p_seq_num).just_cd_80 := l_xer.just_cd;
636         g_array(p_seq_num).hide_flag_80 := l_xer.hide_flag;
637         g_array(p_seq_num).short_name_80   := l_xer.short_name;
638       elsif l_xer.seq_num = 81 then
639         g_array(p_seq_num).strt_pos_81 := l_xer.strt_pos;
640         g_array(p_seq_num).dlmtr_val_81 := l_xer.dlmtr_val;
641         g_array(p_seq_num).just_cd_81 := l_xer.just_cd;
642         g_array(p_seq_num).hide_flag_81 := l_xer.hide_flag;
643         g_array(p_seq_num).short_name_81   := l_xer.short_name;
644       elsif l_xer.seq_num = 82 then
645         g_array(p_seq_num).strt_pos_82 := l_xer.strt_pos;
646         g_array(p_seq_num).dlmtr_val_82 := l_xer.dlmtr_val;
647         g_array(p_seq_num).just_cd_82 := l_xer.just_cd;
648         g_array(p_seq_num).hide_flag_82 := l_xer.hide_flag;
649         g_array(p_seq_num).short_name_82   := l_xer.short_name;
650       elsif l_xer.seq_num = 83 then
651         g_array(p_seq_num).strt_pos_83 := l_xer.strt_pos;
652         g_array(p_seq_num).dlmtr_val_83 := l_xer.dlmtr_val;
653         g_array(p_seq_num).just_cd_83 := l_xer.just_cd;
654         g_array(p_seq_num).hide_flag_83 := l_xer.hide_flag;
655         g_array(p_seq_num).short_name_83   := l_xer.short_name;
656       elsif l_xer.seq_num = 84 then
657         g_array(p_seq_num).strt_pos_84 := l_xer.strt_pos;
658         g_array(p_seq_num).dlmtr_val_84 := l_xer.dlmtr_val;
659         g_array(p_seq_num).just_cd_84 := l_xer.just_cd;
660         g_array(p_seq_num).hide_flag_84 := l_xer.hide_flag;
661         g_array(p_seq_num).short_name_84   := l_xer.short_name;
662       elsif l_xer.seq_num = 85 then
663         g_array(p_seq_num).strt_pos_85 := l_xer.strt_pos;
664         g_array(p_seq_num).dlmtr_val_85 := l_xer.dlmtr_val;
665         g_array(p_seq_num).just_cd_85 := l_xer.just_cd;
666         g_array(p_seq_num).hide_flag_85 := l_xer.hide_flag;
667         g_array(p_seq_num).short_name_85   := l_xer.short_name;
668       elsif l_xer.seq_num = 86 then
669         g_array(p_seq_num).strt_pos_86 := l_xer.strt_pos;
670         g_array(p_seq_num).dlmtr_val_86 := l_xer.dlmtr_val;
671         g_array(p_seq_num).just_cd_86 := l_xer.just_cd;
672         g_array(p_seq_num).hide_flag_86 := l_xer.hide_flag;
673         g_array(p_seq_num).short_name_86   := l_xer.short_name;
674       elsif l_xer.seq_num = 87 then
675         g_array(p_seq_num).strt_pos_87 := l_xer.strt_pos;
676         g_array(p_seq_num).dlmtr_val_87 := l_xer.dlmtr_val;
677         g_array(p_seq_num).just_cd_87 := l_xer.just_cd;
681         g_array(p_seq_num).strt_pos_88 := l_xer.strt_pos;
678         g_array(p_seq_num).hide_flag_87 := l_xer.hide_flag;
679         g_array(p_seq_num).short_name_87   := l_xer.short_name;
680       elsif l_xer.seq_num = 88 then
682         g_array(p_seq_num).dlmtr_val_88 := l_xer.dlmtr_val;
683         g_array(p_seq_num).just_cd_88 := l_xer.just_cd;
684         g_array(p_seq_num).hide_flag_88 := l_xer.hide_flag;
685         g_array(p_seq_num).short_name_88   := l_xer.short_name;
686       elsif l_xer.seq_num = 89 then
687         g_array(p_seq_num).strt_pos_89 := l_xer.strt_pos;
688         g_array(p_seq_num).dlmtr_val_89 := l_xer.dlmtr_val;
689         g_array(p_seq_num).just_cd_89 := l_xer.just_cd;
690         g_array(p_seq_num).hide_flag_89 := l_xer.hide_flag;
691         g_array(p_seq_num).short_name_89   := l_xer.short_name;
692       elsif l_xer.seq_num = 90 then
693         g_array(p_seq_num).strt_pos_90 := l_xer.strt_pos;
694         g_array(p_seq_num).dlmtr_val_90 := l_xer.dlmtr_val;
695         g_array(p_seq_num).just_cd_90 := l_xer.just_cd;
696         g_array(p_seq_num).hide_flag_90 := l_xer.hide_flag;
697         g_array(p_seq_num).short_name_90   := l_xer.short_name;
698       elsif l_xer.seq_num = 91 then
699         g_array(p_seq_num).strt_pos_91 := l_xer.strt_pos;
700         g_array(p_seq_num).dlmtr_val_91 := l_xer.dlmtr_val;
701         g_array(p_seq_num).just_cd_91 := l_xer.just_cd;
702         g_array(p_seq_num).hide_flag_91 := l_xer.hide_flag;
703         g_array(p_seq_num).short_name_91   := l_xer.short_name;
704       elsif l_xer.seq_num = 92 then
705         g_array(p_seq_num).strt_pos_92 := l_xer.strt_pos;
706         g_array(p_seq_num).dlmtr_val_92 := l_xer.dlmtr_val;
707         g_array(p_seq_num).just_cd_92 := l_xer.just_cd;
708         g_array(p_seq_num).hide_flag_92 := l_xer.hide_flag;
709         g_array(p_seq_num).short_name_92   := l_xer.short_name;
710       elsif l_xer.seq_num = 93 then
711         g_array(p_seq_num).strt_pos_93 := l_xer.strt_pos;
712         g_array(p_seq_num).dlmtr_val_93 := l_xer.dlmtr_val;
713         g_array(p_seq_num).just_cd_93 := l_xer.just_cd;
714         g_array(p_seq_num).hide_flag_93 := l_xer.hide_flag;
715         g_array(p_seq_num).short_name_93   := l_xer.short_name;
716       elsif l_xer.seq_num = 94 then
717         g_array(p_seq_num).strt_pos_94 := l_xer.strt_pos;
718         g_array(p_seq_num).dlmtr_val_94 := l_xer.dlmtr_val;
719         g_array(p_seq_num).just_cd_94 := l_xer.just_cd;
720         g_array(p_seq_num).hide_flag_94 := l_xer.hide_flag;
721         g_array(p_seq_num).short_name_94   := l_xer.short_name;
722       elsif l_xer.seq_num = 95 then
723         g_array(p_seq_num).strt_pos_95 := l_xer.strt_pos;
724         g_array(p_seq_num).dlmtr_val_95 := l_xer.dlmtr_val;
725         g_array(p_seq_num).just_cd_95 := l_xer.just_cd;
726         g_array(p_seq_num).hide_flag_95 := l_xer.hide_flag;
727         g_array(p_seq_num).short_name_95   := l_xer.short_name;
728             elsif l_xer.seq_num = 96 then
729         g_array(p_seq_num).strt_pos_96 := l_xer.strt_pos;
730         g_array(p_seq_num).dlmtr_val_96 := l_xer.dlmtr_val;
731         g_array(p_seq_num).just_cd_96 := l_xer.just_cd;
732         g_array(p_seq_num).hide_flag_96 := l_xer.hide_flag;
733         g_array(p_seq_num).short_name_96   := l_xer.short_name;
734       elsif l_xer.seq_num = 97 then
735         g_array(p_seq_num).strt_pos_97 := l_xer.strt_pos;
736         g_array(p_seq_num).dlmtr_val_97 := l_xer.dlmtr_val;
737         g_array(p_seq_num).just_cd_97 := l_xer.just_cd;
738         g_array(p_seq_num).hide_flag_97 := l_xer.hide_flag;
739         g_array(p_seq_num).short_name_97   := l_xer.short_name;
740       elsif l_xer.seq_num = 98 then
741         g_array(p_seq_num).strt_pos_98 := l_xer.strt_pos;
742         g_array(p_seq_num).dlmtr_val_98 := l_xer.dlmtr_val;
743         g_array(p_seq_num).just_cd_98 := l_xer.just_cd;
744         g_array(p_seq_num).hide_flag_98 := l_xer.hide_flag;
745         g_array(p_seq_num).short_name_98   := l_xer.short_name;
746       elsif l_xer.seq_num = 99 then
747         g_array(p_seq_num).strt_pos_99 := l_xer.strt_pos;
748         g_array(p_seq_num).dlmtr_val_99 := l_xer.dlmtr_val;
749         g_array(p_seq_num).just_cd_99 := l_xer.just_cd;
750         g_array(p_seq_num).hide_flag_99 := l_xer.hide_flag;
751         g_array(p_seq_num).short_name_99   := l_xer.short_name;
752       elsif l_xer.seq_num = 100 then
753         g_array(p_seq_num).strt_pos_100 := l_xer.strt_pos;
754         g_array(p_seq_num).dlmtr_val_100 := l_xer.dlmtr_val;
755         g_array(p_seq_num).just_cd_100 := l_xer.just_cd;
756         g_array(p_seq_num).hide_flag_100 := l_xer.hide_flag;
757         g_array(p_seq_num).short_name_100   := l_xer.short_name;
758      elsif l_xer.seq_num = 101 then
759         g_array(p_seq_num).strt_pos_101  := l_xer.strt_pos;
760         g_array(p_seq_num).dlmtr_val_101 := l_xer.dlmtr_val;
761         g_array(p_seq_num).just_cd_101   := l_xer.just_cd;
762         g_array(p_seq_num).hide_flag_101 := l_xer.hide_flag;
763         g_array(p_seq_num).short_name_101:= l_xer.short_name;
764 
765       elsif l_xer.seq_num = 102 then
766         g_array(p_seq_num).strt_pos_102 := l_xer.strt_pos;
767         g_array(p_seq_num).dlmtr_val_102 := l_xer.dlmtr_val;
768         g_array(p_seq_num).just_cd_102 := l_xer.just_cd;
769         g_array(p_seq_num).hide_flag_102 := l_xer.hide_flag;
770         g_array(p_seq_num).short_name_102   := l_xer.short_name;
771       elsif l_xer.seq_num = 103 then
772         g_array(p_seq_num).strt_pos_103 := l_xer.strt_pos;
773         g_array(p_seq_num).dlmtr_val_103 := l_xer.dlmtr_val;
774         g_array(p_seq_num).just_cd_103 := l_xer.just_cd;
775         g_array(p_seq_num).hide_flag_103 := l_xer.hide_flag;
776         g_array(p_seq_num).short_name_103   := l_xer.short_name;
777       elsif l_xer.seq_num = 104 then
778         g_array(p_seq_num).strt_pos_104 := l_xer.strt_pos;
782         g_array(p_seq_num).short_name_104   := l_xer.short_name;
779         g_array(p_seq_num).dlmtr_val_104 := l_xer.dlmtr_val;
780         g_array(p_seq_num).just_cd_104 := l_xer.just_cd;
781         g_array(p_seq_num).hide_flag_104 := l_xer.hide_flag;
783       elsif l_xer.seq_num = 105 then
784         g_array(p_seq_num).strt_pos_105 := l_xer.strt_pos;
785         g_array(p_seq_num).dlmtr_val_105 := l_xer.dlmtr_val;
786         g_array(p_seq_num).just_cd_105 := l_xer.just_cd;
787         g_array(p_seq_num).hide_flag_105 := l_xer.hide_flag;
788         g_array(p_seq_num).short_name_105   := l_xer.short_name;
789       elsif l_xer.seq_num = 106 then
790         g_array(p_seq_num).strt_pos_106 := l_xer.strt_pos;
791         g_array(p_seq_num).dlmtr_val_106 := l_xer.dlmtr_val;
792         g_array(p_seq_num).just_cd_106 := l_xer.just_cd;
793         g_array(p_seq_num).hide_flag_106 := l_xer.hide_flag;
794       elsif l_xer.seq_num = 107 then
795         g_array(p_seq_num).strt_pos_107 := l_xer.strt_pos;
796         g_array(p_seq_num).dlmtr_val_107 := l_xer.dlmtr_val;
797         g_array(p_seq_num).just_cd_107 := l_xer.just_cd;
798         g_array(p_seq_num).hide_flag_107 := l_xer.hide_flag;
799         g_array(p_seq_num).short_name_107   := l_xer.short_name;
800       elsif l_xer.seq_num = 108 then
801         g_array(p_seq_num).strt_pos_108 := l_xer.strt_pos;
802         g_array(p_seq_num).dlmtr_val_108 := l_xer.dlmtr_val;
803         g_array(p_seq_num).just_cd_108 := l_xer.just_cd;
804         g_array(p_seq_num).hide_flag_108 := l_xer.hide_flag;
805         g_array(p_seq_num).short_name_108   := l_xer.short_name;
806       elsif l_xer.seq_num = 109 then
807         g_array(p_seq_num).strt_pos_109 := l_xer.strt_pos;
808         g_array(p_seq_num).dlmtr_val_109 := l_xer.dlmtr_val;
809         g_array(p_seq_num).just_cd_109 := l_xer.just_cd;
810         g_array(p_seq_num).hide_flag_109 := l_xer.hide_flag;
811         g_array(p_seq_num).short_name_109   := l_xer.short_name;
812       elsif l_xer.seq_num = 110 then
813         g_array(p_seq_num).strt_pos_110 := l_xer.strt_pos;
814         g_array(p_seq_num).dlmtr_val_110 := l_xer.dlmtr_val;
815         g_array(p_seq_num).just_cd_110 := l_xer.just_cd;
816         g_array(p_seq_num).hide_flag_110 := l_xer.hide_flag;
817         g_array(p_seq_num).short_name_110   := l_xer.short_name;
818       elsif l_xer.seq_num = 111 then
819         g_array(p_seq_num).strt_pos_111 := l_xer.strt_pos;
820         g_array(p_seq_num).dlmtr_val_111 := l_xer.dlmtr_val;
821         g_array(p_seq_num).just_cd_111 := l_xer.just_cd;
822         g_array(p_seq_num).hide_flag_111 := l_xer.hide_flag;
823         g_array(p_seq_num).short_name_111   := l_xer.short_name;
824       elsif l_xer.seq_num = 112 then
825         g_array(p_seq_num).strt_pos_112 := l_xer.strt_pos;
826         g_array(p_seq_num).dlmtr_val_112 := l_xer.dlmtr_val;
827         g_array(p_seq_num).just_cd_112 := l_xer.just_cd;
828         g_array(p_seq_num).hide_flag_112 := l_xer.hide_flag;
829         g_array(p_seq_num).short_name_112   := l_xer.short_name;
830       elsif l_xer.seq_num = 113 then
831         g_array(p_seq_num).strt_pos_113 := l_xer.strt_pos;
832         g_array(p_seq_num).dlmtr_val_113 := l_xer.dlmtr_val;
833         g_array(p_seq_num).just_cd_113 := l_xer.just_cd;
834         g_array(p_seq_num).hide_flag_113 := l_xer.hide_flag;
835         g_array(p_seq_num).short_name_113   := l_xer.short_name;
836       elsif l_xer.seq_num = 114 then
837         g_array(p_seq_num).strt_pos_114 := l_xer.strt_pos;
838         g_array(p_seq_num).dlmtr_val_114 := l_xer.dlmtr_val;
839         g_array(p_seq_num).just_cd_114 := l_xer.just_cd;
840         g_array(p_seq_num).hide_flag_114 := l_xer.hide_flag;
841         g_array(p_seq_num).short_name_114   := l_xer.short_name;
842       elsif l_xer.seq_num = 115 then
843         g_array(p_seq_num).strt_pos_115 := l_xer.strt_pos;
844         g_array(p_seq_num).dlmtr_val_115 := l_xer.dlmtr_val;
845         g_array(p_seq_num).just_cd_115 := l_xer.just_cd;
846         g_array(p_seq_num).hide_flag_115 := l_xer.hide_flag;
847         g_array(p_seq_num).short_name_115   := l_xer.short_name;
848       elsif l_xer.seq_num = 116 then
849         g_array(p_seq_num).strt_pos_116 := l_xer.strt_pos;
850         g_array(p_seq_num).dlmtr_val_116 := l_xer.dlmtr_val;
851         g_array(p_seq_num).just_cd_116 := l_xer.just_cd;
852         g_array(p_seq_num).hide_flag_116 := l_xer.hide_flag;
853         g_array(p_seq_num).short_name_116   := l_xer.short_name;
854       elsif l_xer.seq_num = 117 then
855         g_array(p_seq_num).strt_pos_117 := l_xer.strt_pos;
856         g_array(p_seq_num).dlmtr_val_117 := l_xer.dlmtr_val;
857         g_array(p_seq_num).just_cd_117 := l_xer.just_cd;
858         g_array(p_seq_num).hide_flag_117 := l_xer.hide_flag;
859         g_array(p_seq_num).short_name_117   := l_xer.short_name;
860       elsif l_xer.seq_num = 118 then
861         g_array(p_seq_num).strt_pos_118  := l_xer.strt_pos;
862         g_array(p_seq_num).dlmtr_val_118 := l_xer.dlmtr_val;
863         g_array(p_seq_num).just_cd_118   := l_xer.just_cd;
864         g_array(p_seq_num).hide_flag_118 := l_xer.hide_flag;
865         g_array(p_seq_num).short_name_118:= l_xer.short_name;
866       elsif l_xer.seq_num = 119 then
867         g_array(p_seq_num).strt_pos_119 := l_xer.strt_pos;
868         g_array(p_seq_num).dlmtr_val_119 := l_xer.dlmtr_val;
869         g_array(p_seq_num).just_cd_119 := l_xer.just_cd;
870         g_array(p_seq_num).hide_flag_119 := l_xer.hide_flag;
871         g_array(p_seq_num).short_name_119   := l_xer.short_name;
872       elsif l_xer.seq_num = 120 then
873         g_array(p_seq_num).strt_pos_120 := l_xer.strt_pos;
874         g_array(p_seq_num).dlmtr_val_120 := l_xer.dlmtr_val;
875         g_array(p_seq_num).just_cd_120 := l_xer.just_cd;
876         g_array(p_seq_num).hide_flag_120 := l_xer.hide_flag;
877         g_array(p_seq_num).short_name_120   := l_xer.short_name;
878       elsif l_xer.seq_num = 121 then
882         g_array(p_seq_num).hide_flag_121 := l_xer.hide_flag;
879         g_array(p_seq_num).strt_pos_121 := l_xer.strt_pos;
880         g_array(p_seq_num).dlmtr_val_121 := l_xer.dlmtr_val;
881         g_array(p_seq_num).just_cd_121 := l_xer.just_cd;
883         g_array(p_seq_num).short_name_121   := l_xer.short_name;
884       elsif l_xer.seq_num = 122 then
885         g_array(p_seq_num).strt_pos_122 := l_xer.strt_pos;
886         g_array(p_seq_num).dlmtr_val_122 := l_xer.dlmtr_val;
887         g_array(p_seq_num).just_cd_122 := l_xer.just_cd;
888         g_array(p_seq_num).hide_flag_122 := l_xer.hide_flag;
889         g_array(p_seq_num).short_name_122   := l_xer.short_name;
890       elsif l_xer.seq_num = 123 then
891         g_array(p_seq_num).strt_pos_123 := l_xer.strt_pos;
892         g_array(p_seq_num).dlmtr_val_123 := l_xer.dlmtr_val;
893         g_array(p_seq_num).just_cd_123 := l_xer.just_cd;
894         g_array(p_seq_num).hide_flag_123 := l_xer.hide_flag;
895         g_array(p_seq_num).short_name_123   := l_xer.short_name;
896       elsif l_xer.seq_num = 124 then
897         g_array(p_seq_num).strt_pos_124 := l_xer.strt_pos;
898         g_array(p_seq_num).dlmtr_val_124 := l_xer.dlmtr_val;
899         g_array(p_seq_num).just_cd_124 := l_xer.just_cd;
900         g_array(p_seq_num).hide_flag_124 := l_xer.hide_flag;
901         g_array(p_seq_num).short_name_124   := l_xer.short_name;
902       elsif l_xer.seq_num = 125 then
903         g_array(p_seq_num).strt_pos_125 := l_xer.strt_pos;
904         g_array(p_seq_num).dlmtr_val_125 := l_xer.dlmtr_val;
905         g_array(p_seq_num).just_cd_125 := l_xer.just_cd;
906         g_array(p_seq_num).hide_flag_125 := l_xer.hide_flag;
907         g_array(p_seq_num).short_name_125   := l_xer.short_name;
908       elsif l_xer.seq_num = 126 then
909         g_array(p_seq_num).strt_pos_126 := l_xer.strt_pos;
910         g_array(p_seq_num).dlmtr_val_126 := l_xer.dlmtr_val;
911         g_array(p_seq_num).just_cd_126 := l_xer.just_cd;
912         g_array(p_seq_num).hide_flag_126 := l_xer.hide_flag;
913         g_array(p_seq_num).short_name_126   := l_xer.short_name;
914       elsif l_xer.seq_num = 127 then
915         g_array(p_seq_num).strt_pos_127 := l_xer.strt_pos;
916         g_array(p_seq_num).dlmtr_val_127 := l_xer.dlmtr_val;
917         g_array(p_seq_num).just_cd_127 := l_xer.just_cd;
918         g_array(p_seq_num).hide_flag_127 := l_xer.hide_flag;
919         g_array(p_seq_num).short_name_127   := l_xer.short_name;
920       elsif l_xer.seq_num = 128 then
921         g_array(p_seq_num).strt_pos_128 := l_xer.strt_pos;
922         g_array(p_seq_num).dlmtr_val_128 := l_xer.dlmtr_val;
923         g_array(p_seq_num).just_cd_128 := l_xer.just_cd;
924         g_array(p_seq_num).hide_flag_128 := l_xer.hide_flag;
925         g_array(p_seq_num).short_name_128   := l_xer.short_name;
926       elsif l_xer.seq_num = 129 then
927         g_array(p_seq_num).strt_pos_129 := l_xer.strt_pos;
928         g_array(p_seq_num).dlmtr_val_129 := l_xer.dlmtr_val;
929         g_array(p_seq_num).just_cd_129 := l_xer.just_cd;
930         g_array(p_seq_num).hide_flag_129 := l_xer.hide_flag;
931         g_array(p_seq_num).short_name_129   := l_xer.short_name;
932       elsif l_xer.seq_num = 130 then
933         g_array(p_seq_num).strt_pos_130 := l_xer.strt_pos;
934         g_array(p_seq_num).dlmtr_val_130 := l_xer.dlmtr_val;
935         g_array(p_seq_num).just_cd_130 := l_xer.just_cd;
936         g_array(p_seq_num).hide_flag_130 := l_xer.hide_flag;
937         g_array(p_seq_num).short_name_130   := l_xer.short_name;
938       elsif l_xer.seq_num = 131 then
939         g_array(p_seq_num).strt_pos_131 := l_xer.strt_pos;
940         g_array(p_seq_num).dlmtr_val_131 := l_xer.dlmtr_val;
941         g_array(p_seq_num).just_cd_131 := l_xer.just_cd;
942         g_array(p_seq_num).hide_flag_131 := l_xer.hide_flag;
943         g_array(p_seq_num).short_name_131   := l_xer.short_name;
944       elsif l_xer.seq_num = 132 then
945         g_array(p_seq_num).strt_pos_132 := l_xer.strt_pos;
946         g_array(p_seq_num).dlmtr_val_132 := l_xer.dlmtr_val;
947         g_array(p_seq_num).just_cd_132 := l_xer.just_cd;
948         g_array(p_seq_num).hide_flag_132 := l_xer.hide_flag;
949         g_array(p_seq_num).short_name_132   := l_xer.short_name;
950       elsif l_xer.seq_num = 133 then
951         g_array(p_seq_num).strt_pos_133 := l_xer.strt_pos;
952         g_array(p_seq_num).dlmtr_val_133 := l_xer.dlmtr_val;
953         g_array(p_seq_num).just_cd_133 := l_xer.just_cd;
954         g_array(p_seq_num).hide_flag_133 := l_xer.hide_flag;
955         g_array(p_seq_num).short_name_133   := l_xer.short_name;
956       elsif l_xer.seq_num = 134 then
957         g_array(p_seq_num).strt_pos_134 := l_xer.strt_pos;
958         g_array(p_seq_num).dlmtr_val_134 := l_xer.dlmtr_val;
959         g_array(p_seq_num).just_cd_134 := l_xer.just_cd;
960         g_array(p_seq_num).hide_flag_134 := l_xer.hide_flag;
961         g_array(p_seq_num).short_name_134   := l_xer.short_name;
962       elsif l_xer.seq_num = 135 then
963         g_array(p_seq_num).strt_pos_135 := l_xer.strt_pos;
964         g_array(p_seq_num).dlmtr_val_135 := l_xer.dlmtr_val;
965         g_array(p_seq_num).just_cd_135 := l_xer.just_cd;
966         g_array(p_seq_num).hide_flag_135 := l_xer.hide_flag;
967         g_array(p_seq_num).short_name_135   := l_xer.short_name;
968       elsif l_xer.seq_num = 136 then
969         g_array(p_seq_num).strt_pos_136 := l_xer.strt_pos;
970         g_array(p_seq_num).dlmtr_val_136 := l_xer.dlmtr_val;
971         g_array(p_seq_num).just_cd_136 := l_xer.just_cd;
972         g_array(p_seq_num).hide_flag_136 := l_xer.hide_flag;
973         g_array(p_seq_num).short_name_136   := l_xer.short_name;
974       elsif l_xer.seq_num = 137 then
975         g_array(p_seq_num).strt_pos_137 := l_xer.strt_pos;
976         g_array(p_seq_num).dlmtr_val_137 := l_xer.dlmtr_val;
977         g_array(p_seq_num).just_cd_137 := l_xer.just_cd;
981         g_array(p_seq_num).strt_pos_138 := l_xer.strt_pos;
978         g_array(p_seq_num).hide_flag_137 := l_xer.hide_flag;
979         g_array(p_seq_num).short_name_137   := l_xer.short_name;
980       elsif l_xer.seq_num = 138 then
982         g_array(p_seq_num).dlmtr_val_138 := l_xer.dlmtr_val;
983         g_array(p_seq_num).just_cd_138 := l_xer.just_cd;
984         g_array(p_seq_num).hide_flag_138 := l_xer.hide_flag;
985         g_array(p_seq_num).short_name_138   := l_xer.short_name;
986       elsif l_xer.seq_num = 139 then
987         g_array(p_seq_num).strt_pos_139 := l_xer.strt_pos;
988         g_array(p_seq_num).dlmtr_val_139 := l_xer.dlmtr_val;
989         g_array(p_seq_num).just_cd_139 := l_xer.just_cd;
990         g_array(p_seq_num).hide_flag_139 := l_xer.hide_flag;
991         g_array(p_seq_num).short_name_139   := l_xer.short_name;
992       elsif l_xer.seq_num = 140 then
993         g_array(p_seq_num).strt_pos_140 := l_xer.strt_pos;
994         g_array(p_seq_num).dlmtr_val_140 := l_xer.dlmtr_val;
995         g_array(p_seq_num).just_cd_140 := l_xer.just_cd;
996         g_array(p_seq_num).hide_flag_140 := l_xer.hide_flag;
997         g_array(p_seq_num).short_name_140   := l_xer.short_name;
998       elsif l_xer.seq_num = 141 then
999         g_array(p_seq_num).strt_pos_141 := l_xer.strt_pos;
1000         g_array(p_seq_num).dlmtr_val_141 := l_xer.dlmtr_val;
1001         g_array(p_seq_num).just_cd_141 := l_xer.just_cd;
1002         g_array(p_seq_num).hide_flag_141 := l_xer.hide_flag;
1003         g_array(p_seq_num).short_name_141   := l_xer.short_name;
1004       elsif l_xer.seq_num = 142 then
1005         g_array(p_seq_num).strt_pos_142 := l_xer.strt_pos;
1006         g_array(p_seq_num).dlmtr_val_142 := l_xer.dlmtr_val;
1007         g_array(p_seq_num).just_cd_142 := l_xer.just_cd;
1008         g_array(p_seq_num).hide_flag_142 := l_xer.hide_flag;
1009         g_array(p_seq_num).short_name_142   := l_xer.short_name;
1010       elsif l_xer.seq_num = 143 then
1011         g_array(p_seq_num).strt_pos_143 := l_xer.strt_pos;
1012         g_array(p_seq_num).dlmtr_val_143 := l_xer.dlmtr_val;
1013         g_array(p_seq_num).just_cd_143 := l_xer.just_cd;
1014         g_array(p_seq_num).hide_flag_143 := l_xer.hide_flag;
1015         g_array(p_seq_num).short_name_143   := l_xer.short_name;
1016       elsif l_xer.seq_num = 144 then
1017         g_array(p_seq_num).strt_pos_144 := l_xer.strt_pos;
1018         g_array(p_seq_num).dlmtr_val_144 := l_xer.dlmtr_val;
1019         g_array(p_seq_num).just_cd_144 := l_xer.just_cd;
1020         g_array(p_seq_num).hide_flag_144 := l_xer.hide_flag;
1021         g_array(p_seq_num).short_name_144   := l_xer.short_name;
1022       elsif l_xer.seq_num = 145 then
1023         g_array(p_seq_num).strt_pos_145 := l_xer.strt_pos;
1024         g_array(p_seq_num).dlmtr_val_145 := l_xer.dlmtr_val;
1025         g_array(p_seq_num).just_cd_145 := l_xer.just_cd;
1026         g_array(p_seq_num).hide_flag_145 := l_xer.hide_flag;
1027         g_array(p_seq_num).short_name_145   := l_xer.short_name;
1028       elsif l_xer.seq_num = 146 then
1029         g_array(p_seq_num).strt_pos_146 := l_xer.strt_pos;
1030         g_array(p_seq_num).dlmtr_val_146 := l_xer.dlmtr_val;
1031         g_array(p_seq_num).just_cd_146 := l_xer.just_cd;
1032         g_array(p_seq_num).hide_flag_146 := l_xer.hide_flag;
1033         g_array(p_seq_num).short_name_146   := l_xer.short_name;
1034       elsif l_xer.seq_num = 147 then
1035         g_array(p_seq_num).strt_pos_147 := l_xer.strt_pos;
1036         g_array(p_seq_num).dlmtr_val_147 := l_xer.dlmtr_val;
1037         g_array(p_seq_num).just_cd_147 := l_xer.just_cd;
1038         g_array(p_seq_num).hide_flag_147 := l_xer.hide_flag;
1039         g_array(p_seq_num).short_name_147   := l_xer.short_name;
1040       elsif l_xer.seq_num = 148 then
1041         g_array(p_seq_num).strt_pos_148 := l_xer.strt_pos;
1042         g_array(p_seq_num).dlmtr_val_148 := l_xer.dlmtr_val;
1043         g_array(p_seq_num).just_cd_148 := l_xer.just_cd;
1044         g_array(p_seq_num).hide_flag_148 := l_xer.hide_flag;
1045         g_array(p_seq_num).short_name_148   := l_xer.short_name;
1046       elsif l_xer.seq_num = 149 then
1047         g_array(p_seq_num).strt_pos_149 := l_xer.strt_pos;
1048         g_array(p_seq_num).dlmtr_val_149 := l_xer.dlmtr_val;
1049         g_array(p_seq_num).just_cd_149 := l_xer.just_cd;
1050         g_array(p_seq_num).hide_flag_149 := l_xer.hide_flag;
1051         g_array(p_seq_num).short_name_149   := l_xer.short_name;
1052       elsif l_xer.seq_num = 150 then
1053         g_array(p_seq_num).strt_pos_150 := l_xer.strt_pos;
1054         g_array(p_seq_num).dlmtr_val_150 := l_xer.dlmtr_val;
1055         g_array(p_seq_num).just_cd_150 := l_xer.just_cd;
1056         g_array(p_seq_num).hide_flag_150 := l_xer.hide_flag;
1057         g_array(p_seq_num).short_name_150   := l_xer.short_name;
1058       elsif l_xer.seq_num = 151 then
1059         g_array(p_seq_num).strt_pos_151 := l_xer.strt_pos;
1060         g_array(p_seq_num).dlmtr_val_151 := l_xer.dlmtr_val;
1061         g_array(p_seq_num).just_cd_151 := l_xer.just_cd;
1062         g_array(p_seq_num).hide_flag_151 := l_xer.hide_flag;
1063         g_array(p_seq_num).short_name_151   := l_xer.short_name;
1064       elsif l_xer.seq_num = 152 then
1065         g_array(p_seq_num).strt_pos_152 := l_xer.strt_pos;
1066         g_array(p_seq_num).dlmtr_val_152 := l_xer.dlmtr_val;
1067         g_array(p_seq_num).just_cd_152 := l_xer.just_cd;
1068         g_array(p_seq_num).hide_flag_152 := l_xer.hide_flag;
1069         g_array(p_seq_num).short_name_152   := l_xer.short_name;
1070       elsif l_xer.seq_num = 153 then
1071         g_array(p_seq_num).strt_pos_153 := l_xer.strt_pos;
1072         g_array(p_seq_num).dlmtr_val_153 := l_xer.dlmtr_val;
1073         g_array(p_seq_num).just_cd_153 := l_xer.just_cd;
1074         g_array(p_seq_num).hide_flag_153 := l_xer.hide_flag;
1075         g_array(p_seq_num).short_name_153   := l_xer.short_name;
1079         g_array(p_seq_num).just_cd_154 := l_xer.just_cd;
1076       elsif l_xer.seq_num = 154 then
1077         g_array(p_seq_num).strt_pos_154 := l_xer.strt_pos;
1078         g_array(p_seq_num).dlmtr_val_154 := l_xer.dlmtr_val;
1080         g_array(p_seq_num).hide_flag_154 := l_xer.hide_flag;
1081         g_array(p_seq_num).short_name_154   := l_xer.short_name;
1082       elsif l_xer.seq_num = 155 then
1083         g_array(p_seq_num).strt_pos_155 := l_xer.strt_pos;
1084         g_array(p_seq_num).dlmtr_val_155 := l_xer.dlmtr_val;
1085         g_array(p_seq_num).just_cd_155 := l_xer.just_cd;
1086         g_array(p_seq_num).hide_flag_155 := l_xer.hide_flag;
1087         g_array(p_seq_num).short_name_155   := l_xer.short_name;
1088       elsif l_xer.seq_num = 156 then
1089         g_array(p_seq_num).strt_pos_156 := l_xer.strt_pos;
1090         g_array(p_seq_num).dlmtr_val_156 := l_xer.dlmtr_val;
1091         g_array(p_seq_num).just_cd_156 := l_xer.just_cd;
1092         g_array(p_seq_num).hide_flag_156 := l_xer.hide_flag;
1093         g_array(p_seq_num).short_name_156   := l_xer.short_name;
1094       elsif l_xer.seq_num = 157 then
1095         g_array(p_seq_num).strt_pos_157 := l_xer.strt_pos;
1096         g_array(p_seq_num).dlmtr_val_157 := l_xer.dlmtr_val;
1097         g_array(p_seq_num).just_cd_157 := l_xer.just_cd;
1098         g_array(p_seq_num).hide_flag_157 := l_xer.hide_flag;
1099         g_array(p_seq_num).short_name_157   := l_xer.short_name;
1100       elsif l_xer.seq_num = 158 then
1101         g_array(p_seq_num).strt_pos_158 := l_xer.strt_pos;
1102         g_array(p_seq_num).dlmtr_val_158 := l_xer.dlmtr_val;
1103         g_array(p_seq_num).just_cd_158 := l_xer.just_cd;
1104         g_array(p_seq_num).hide_flag_158 := l_xer.hide_flag;
1105         g_array(p_seq_num).short_name_158   := l_xer.short_name;
1106       elsif l_xer.seq_num = 159 then
1107         g_array(p_seq_num).strt_pos_159 := l_xer.strt_pos;
1108         g_array(p_seq_num).dlmtr_val_159 := l_xer.dlmtr_val;
1109         g_array(p_seq_num).just_cd_159 := l_xer.just_cd;
1110         g_array(p_seq_num).hide_flag_159 := l_xer.hide_flag;
1111         g_array(p_seq_num).short_name_159   := l_xer.short_name;
1112       elsif l_xer.seq_num = 160 then
1113         g_array(p_seq_num).strt_pos_160 := l_xer.strt_pos;
1114         g_array(p_seq_num).dlmtr_val_160 := l_xer.dlmtr_val;
1115         g_array(p_seq_num).just_cd_160 := l_xer.just_cd;
1116         g_array(p_seq_num).hide_flag_160 := l_xer.hide_flag;
1117         g_array(p_seq_num).short_name_160   := l_xer.short_name;
1118       elsif l_xer.seq_num = 161 then
1119         g_array(p_seq_num).strt_pos_161 := l_xer.strt_pos;
1120         g_array(p_seq_num).dlmtr_val_161 := l_xer.dlmtr_val;
1121         g_array(p_seq_num).just_cd_161 := l_xer.just_cd;
1122         g_array(p_seq_num).hide_flag_161 := l_xer.hide_flag;
1123         g_array(p_seq_num).short_name_161   := l_xer.short_name;
1124       elsif l_xer.seq_num = 162 then
1125         g_array(p_seq_num).strt_pos_162 := l_xer.strt_pos;
1126         g_array(p_seq_num).dlmtr_val_162 := l_xer.dlmtr_val;
1127         g_array(p_seq_num).just_cd_162 := l_xer.just_cd;
1128         g_array(p_seq_num).hide_flag_162 := l_xer.hide_flag;
1129         g_array(p_seq_num).short_name_162   := l_xer.short_name;
1130       elsif l_xer.seq_num = 163 then
1131         g_array(p_seq_num).strt_pos_163 := l_xer.strt_pos;
1132         g_array(p_seq_num).dlmtr_val_163 := l_xer.dlmtr_val;
1133         g_array(p_seq_num).just_cd_163 := l_xer.just_cd;
1134         g_array(p_seq_num).hide_flag_163 := l_xer.hide_flag;
1135         g_array(p_seq_num).short_name_163   := l_xer.short_name;
1136       elsif l_xer.seq_num = 164 then
1137         g_array(p_seq_num).strt_pos_164 := l_xer.strt_pos;
1138         g_array(p_seq_num).dlmtr_val_164 := l_xer.dlmtr_val;
1139         g_array(p_seq_num).just_cd_164 := l_xer.just_cd;
1140         g_array(p_seq_num).hide_flag_164 := l_xer.hide_flag;
1141         g_array(p_seq_num).short_name_164   := l_xer.short_name;
1142       elsif l_xer.seq_num = 165 then
1143         g_array(p_seq_num).strt_pos_165 := l_xer.strt_pos;
1144         g_array(p_seq_num).dlmtr_val_165 := l_xer.dlmtr_val;
1145         g_array(p_seq_num).just_cd_165 := l_xer.just_cd;
1146         g_array(p_seq_num).hide_flag_165 := l_xer.hide_flag;
1147         g_array(p_seq_num).short_name_165   := l_xer.short_name;
1148       elsif l_xer.seq_num = 166 then
1149         g_array(p_seq_num).strt_pos_166 := l_xer.strt_pos;
1150         g_array(p_seq_num).dlmtr_val_166 := l_xer.dlmtr_val;
1151         g_array(p_seq_num).just_cd_166 := l_xer.just_cd;
1152         g_array(p_seq_num).hide_flag_166 := l_xer.hide_flag;
1153         g_array(p_seq_num).short_name_166   := l_xer.short_name;
1154       elsif l_xer.seq_num = 167 then
1155         g_array(p_seq_num).strt_pos_167 := l_xer.strt_pos;
1156         g_array(p_seq_num).dlmtr_val_167 := l_xer.dlmtr_val;
1157         g_array(p_seq_num).just_cd_167 := l_xer.just_cd;
1158         g_array(p_seq_num).hide_flag_167 := l_xer.hide_flag;
1159         g_array(p_seq_num).short_name_167   := l_xer.short_name;
1160       elsif l_xer.seq_num = 168 then
1161         g_array(p_seq_num).strt_pos_168 := l_xer.strt_pos;
1162         g_array(p_seq_num).dlmtr_val_168 := l_xer.dlmtr_val;
1163         g_array(p_seq_num).just_cd_168 := l_xer.just_cd;
1164         g_array(p_seq_num).hide_flag_168 := l_xer.hide_flag;
1165         g_array(p_seq_num).short_name_168   := l_xer.short_name;
1166       elsif l_xer.seq_num = 169 then
1167         g_array(p_seq_num).strt_pos_169 := l_xer.strt_pos;
1168         g_array(p_seq_num).dlmtr_val_169 := l_xer.dlmtr_val;
1169         g_array(p_seq_num).just_cd_169 := l_xer.just_cd;
1170         g_array(p_seq_num).hide_flag_169 := l_xer.hide_flag;
1171         g_array(p_seq_num).short_name_169   := l_xer.short_name;
1172       elsif l_xer.seq_num = 170 then
1173         g_array(p_seq_num).strt_pos_170 := l_xer.strt_pos;
1174         g_array(p_seq_num).dlmtr_val_170 := l_xer.dlmtr_val;
1175         g_array(p_seq_num).just_cd_170 := l_xer.just_cd;
1176         g_array(p_seq_num).hide_flag_170 := l_xer.hide_flag;
1180         g_array(p_seq_num).dlmtr_val_171 := l_xer.dlmtr_val;
1177         g_array(p_seq_num).short_name_170   := l_xer.short_name;
1178       elsif l_xer.seq_num = 171 then
1179         g_array(p_seq_num).strt_pos_171 := l_xer.strt_pos;
1181         g_array(p_seq_num).just_cd_171 := l_xer.just_cd;
1182         g_array(p_seq_num).hide_flag_171 := l_xer.hide_flag;
1183         g_array(p_seq_num).short_name_171   := l_xer.short_name;
1184       elsif l_xer.seq_num = 172 then
1185         g_array(p_seq_num).strt_pos_172 := l_xer.strt_pos;
1186         g_array(p_seq_num).dlmtr_val_172 := l_xer.dlmtr_val;
1187         g_array(p_seq_num).just_cd_172 := l_xer.just_cd;
1188         g_array(p_seq_num).hide_flag_172 := l_xer.hide_flag;
1189         g_array(p_seq_num).short_name_172   := l_xer.short_name;
1190       elsif l_xer.seq_num = 173 then
1191         g_array(p_seq_num).strt_pos_173 := l_xer.strt_pos;
1192         g_array(p_seq_num).dlmtr_val_173 := l_xer.dlmtr_val;
1193         g_array(p_seq_num).just_cd_173 := l_xer.just_cd;
1194         g_array(p_seq_num).hide_flag_173 := l_xer.hide_flag;
1195         g_array(p_seq_num).short_name_173   := l_xer.short_name;
1196       elsif l_xer.seq_num = 174 then
1197         g_array(p_seq_num).strt_pos_174 := l_xer.strt_pos;
1198         g_array(p_seq_num).dlmtr_val_174 := l_xer.dlmtr_val;
1199         g_array(p_seq_num).just_cd_174 := l_xer.just_cd;
1200         g_array(p_seq_num).hide_flag_174 := l_xer.hide_flag;
1201         g_array(p_seq_num).short_name_174   := l_xer.short_name;
1202       elsif l_xer.seq_num = 175 then
1203         g_array(p_seq_num).strt_pos_175 := l_xer.strt_pos;
1204         g_array(p_seq_num).dlmtr_val_175 := l_xer.dlmtr_val;
1205         g_array(p_seq_num).just_cd_175 := l_xer.just_cd;
1206         g_array(p_seq_num).hide_flag_175 := l_xer.hide_flag;
1207         g_array(p_seq_num).short_name_175   := l_xer.short_name;
1208             elsif l_xer.seq_num = 176 then
1209         g_array(p_seq_num).strt_pos_176 := l_xer.strt_pos;
1210         g_array(p_seq_num).dlmtr_val_176 := l_xer.dlmtr_val;
1211         g_array(p_seq_num).just_cd_176 := l_xer.just_cd;
1212         g_array(p_seq_num).hide_flag_176 := l_xer.hide_flag;
1213         g_array(p_seq_num).short_name_176   := l_xer.short_name;
1214       elsif l_xer.seq_num = 177 then
1215         g_array(p_seq_num).strt_pos_177 := l_xer.strt_pos;
1216         g_array(p_seq_num).dlmtr_val_177 := l_xer.dlmtr_val;
1217         g_array(p_seq_num).just_cd_177 := l_xer.just_cd;
1218         g_array(p_seq_num).hide_flag_177 := l_xer.hide_flag;
1219         g_array(p_seq_num).short_name_177   := l_xer.short_name;
1220       elsif l_xer.seq_num = 178 then
1221         g_array(p_seq_num).strt_pos_178 := l_xer.strt_pos;
1222         g_array(p_seq_num).dlmtr_val_178 := l_xer.dlmtr_val;
1223         g_array(p_seq_num).just_cd_178 := l_xer.just_cd;
1224         g_array(p_seq_num).hide_flag_178 := l_xer.hide_flag;
1225         g_array(p_seq_num).short_name_178   := l_xer.short_name;
1226       elsif l_xer.seq_num = 179 then
1227         g_array(p_seq_num).strt_pos_179 := l_xer.strt_pos;
1228         g_array(p_seq_num).dlmtr_val_179 := l_xer.dlmtr_val;
1229         g_array(p_seq_num).just_cd_179 := l_xer.just_cd;
1230         g_array(p_seq_num).hide_flag_179 := l_xer.hide_flag;
1231         g_array(p_seq_num).short_name_179   := l_xer.short_name;
1232       elsif l_xer.seq_num = 180 then
1233         g_array(p_seq_num).strt_pos_180 := l_xer.strt_pos;
1234         g_array(p_seq_num).dlmtr_val_180 := l_xer.dlmtr_val;
1235         g_array(p_seq_num).just_cd_180 := l_xer.just_cd;
1236         g_array(p_seq_num).hide_flag_180 := l_xer.hide_flag;
1237         g_array(p_seq_num).short_name_180   := l_xer.short_name;
1238       elsif l_xer.seq_num = 181 then
1239         g_array(p_seq_num).strt_pos_181 := l_xer.strt_pos;
1240         g_array(p_seq_num).dlmtr_val_181 := l_xer.dlmtr_val;
1241         g_array(p_seq_num).just_cd_181 := l_xer.just_cd;
1242         g_array(p_seq_num).hide_flag_181 := l_xer.hide_flag;
1243         g_array(p_seq_num).short_name_181   := l_xer.short_name;
1244       elsif l_xer.seq_num = 182 then
1245         g_array(p_seq_num).strt_pos_182 := l_xer.strt_pos;
1246         g_array(p_seq_num).dlmtr_val_182 := l_xer.dlmtr_val;
1247         g_array(p_seq_num).just_cd_182 := l_xer.just_cd;
1248         g_array(p_seq_num).hide_flag_182 := l_xer.hide_flag;
1249         g_array(p_seq_num).short_name_182   := l_xer.short_name;
1250       elsif l_xer.seq_num = 183 then
1251         g_array(p_seq_num).strt_pos_183 := l_xer.strt_pos;
1252         g_array(p_seq_num).dlmtr_val_183 := l_xer.dlmtr_val;
1253         g_array(p_seq_num).just_cd_183 := l_xer.just_cd;
1254         g_array(p_seq_num).hide_flag_183 := l_xer.hide_flag;
1255         g_array(p_seq_num).short_name_183   := l_xer.short_name;
1256       elsif l_xer.seq_num = 184 then
1257         g_array(p_seq_num).strt_pos_184 := l_xer.strt_pos;
1258         g_array(p_seq_num).dlmtr_val_184 := l_xer.dlmtr_val;
1259         g_array(p_seq_num).just_cd_184 := l_xer.just_cd;
1260         g_array(p_seq_num).hide_flag_184 := l_xer.hide_flag;
1261         g_array(p_seq_num).short_name_184   := l_xer.short_name;
1262       elsif l_xer.seq_num = 185 then
1263         g_array(p_seq_num).strt_pos_185 := l_xer.strt_pos;
1264         g_array(p_seq_num).dlmtr_val_185 := l_xer.dlmtr_val;
1265         g_array(p_seq_num).just_cd_185 := l_xer.just_cd;
1266         g_array(p_seq_num).hide_flag_185 := l_xer.hide_flag;
1267         g_array(p_seq_num).short_name_185   := l_xer.short_name;
1268       elsif l_xer.seq_num = 186 then
1269         g_array(p_seq_num).strt_pos_186 := l_xer.strt_pos;
1270         g_array(p_seq_num).dlmtr_val_186 := l_xer.dlmtr_val;
1271         g_array(p_seq_num).just_cd_186 := l_xer.just_cd;
1272         g_array(p_seq_num).hide_flag_186 := l_xer.hide_flag;
1273         g_array(p_seq_num).short_name_186   := l_xer.short_name;
1274       elsif l_xer.seq_num = 187 then
1275         g_array(p_seq_num).strt_pos_187 := l_xer.strt_pos;
1276         g_array(p_seq_num).dlmtr_val_187 := l_xer.dlmtr_val;
1280       elsif l_xer.seq_num = 188 then
1277         g_array(p_seq_num).just_cd_187 := l_xer.just_cd;
1278         g_array(p_seq_num).hide_flag_187 := l_xer.hide_flag;
1279         g_array(p_seq_num).short_name_187   := l_xer.short_name;
1281         g_array(p_seq_num).strt_pos_188 := l_xer.strt_pos;
1282         g_array(p_seq_num).dlmtr_val_188 := l_xer.dlmtr_val;
1283         g_array(p_seq_num).just_cd_188 := l_xer.just_cd;
1284         g_array(p_seq_num).hide_flag_188 := l_xer.hide_flag;
1285         g_array(p_seq_num).short_name_188   := l_xer.short_name;
1286       elsif l_xer.seq_num = 189 then
1287         g_array(p_seq_num).strt_pos_189 := l_xer.strt_pos;
1288         g_array(p_seq_num).dlmtr_val_189 := l_xer.dlmtr_val;
1289         g_array(p_seq_num).just_cd_189 := l_xer.just_cd;
1290         g_array(p_seq_num).hide_flag_189 := l_xer.hide_flag;
1291         g_array(p_seq_num).short_name_189   := l_xer.short_name;
1292       elsif l_xer.seq_num = 190 then
1293         g_array(p_seq_num).strt_pos_190 := l_xer.strt_pos;
1294         g_array(p_seq_num).dlmtr_val_190 := l_xer.dlmtr_val;
1295         g_array(p_seq_num).just_cd_190 := l_xer.just_cd;
1296         g_array(p_seq_num).hide_flag_190 := l_xer.hide_flag;
1297         g_array(p_seq_num).short_name_190   := l_xer.short_name;
1298       elsif l_xer.seq_num = 191 then
1299         g_array(p_seq_num).strt_pos_191 := l_xer.strt_pos;
1300         g_array(p_seq_num).dlmtr_val_191 := l_xer.dlmtr_val;
1301         g_array(p_seq_num).just_cd_191 := l_xer.just_cd;
1302         g_array(p_seq_num).hide_flag_191 := l_xer.hide_flag;
1303         g_array(p_seq_num).short_name_191   := l_xer.short_name;
1304       elsif l_xer.seq_num = 192 then
1305         g_array(p_seq_num).strt_pos_192 := l_xer.strt_pos;
1306         g_array(p_seq_num).dlmtr_val_192 := l_xer.dlmtr_val;
1307         g_array(p_seq_num).just_cd_192 := l_xer.just_cd;
1308         g_array(p_seq_num).hide_flag_192 := l_xer.hide_flag;
1309         g_array(p_seq_num).short_name_192   := l_xer.short_name;
1310       elsif l_xer.seq_num = 193 then
1311         g_array(p_seq_num).strt_pos_193 := l_xer.strt_pos;
1312         g_array(p_seq_num).dlmtr_val_193 := l_xer.dlmtr_val;
1313         g_array(p_seq_num).just_cd_193 := l_xer.just_cd;
1314         g_array(p_seq_num).hide_flag_193 := l_xer.hide_flag;
1315         g_array(p_seq_num).short_name_193   := l_xer.short_name;
1316       elsif l_xer.seq_num = 194 then
1317         g_array(p_seq_num).strt_pos_194 := l_xer.strt_pos;
1318         g_array(p_seq_num).dlmtr_val_194 := l_xer.dlmtr_val;
1319         g_array(p_seq_num).just_cd_194 := l_xer.just_cd;
1320         g_array(p_seq_num).hide_flag_194 := l_xer.hide_flag;
1321         g_array(p_seq_num).short_name_194   := l_xer.short_name;
1322       elsif l_xer.seq_num = 195 then
1323         g_array(p_seq_num).strt_pos_195 := l_xer.strt_pos;
1324         g_array(p_seq_num).dlmtr_val_195 := l_xer.dlmtr_val;
1325         g_array(p_seq_num).just_cd_195 := l_xer.just_cd;
1326         g_array(p_seq_num).hide_flag_195 := l_xer.hide_flag;
1327         g_array(p_seq_num).short_name_195   := l_xer.short_name;
1328             elsif l_xer.seq_num = 196 then
1329         g_array(p_seq_num).strt_pos_196 := l_xer.strt_pos;
1330         g_array(p_seq_num).dlmtr_val_196 := l_xer.dlmtr_val;
1331         g_array(p_seq_num).just_cd_196 := l_xer.just_cd;
1332         g_array(p_seq_num).hide_flag_196 := l_xer.hide_flag;
1333         g_array(p_seq_num).short_name_196   := l_xer.short_name;
1334       elsif l_xer.seq_num = 197 then
1335         g_array(p_seq_num).strt_pos_197 := l_xer.strt_pos;
1336         g_array(p_seq_num).dlmtr_val_197 := l_xer.dlmtr_val;
1337         g_array(p_seq_num).just_cd_197 := l_xer.just_cd;
1338         g_array(p_seq_num).hide_flag_197 := l_xer.hide_flag;
1339         g_array(p_seq_num).short_name_197   := l_xer.short_name;
1340       elsif l_xer.seq_num = 198 then
1341         g_array(p_seq_num).strt_pos_198 := l_xer.strt_pos;
1342         g_array(p_seq_num).dlmtr_val_198 := l_xer.dlmtr_val;
1343         g_array(p_seq_num).just_cd_198 := l_xer.just_cd;
1344         g_array(p_seq_num).hide_flag_198 := l_xer.hide_flag;
1345         g_array(p_seq_num).short_name_198   := l_xer.short_name;
1346       elsif l_xer.seq_num = 199 then
1347         g_array(p_seq_num).strt_pos_199 := l_xer.strt_pos;
1348         g_array(p_seq_num).dlmtr_val_199 := l_xer.dlmtr_val;
1349         g_array(p_seq_num).just_cd_199 := l_xer.just_cd;
1350         g_array(p_seq_num).hide_flag_199 := l_xer.hide_flag;
1351         g_array(p_seq_num).short_name_199   := l_xer.short_name;
1352       elsif l_xer.seq_num = 200 then
1353         g_array(p_seq_num).strt_pos_200 := l_xer.strt_pos;
1354         g_array(p_seq_num).dlmtr_val_200 := l_xer.dlmtr_val;
1355         g_array(p_seq_num).just_cd_200 := l_xer.just_cd;
1356         g_array(p_seq_num).hide_flag_200 := l_xer.hide_flag;
1357         g_array(p_seq_num).short_name_200   := l_xer.short_name;
1358      elsif l_xer.seq_num = 201 then
1359         g_array(p_seq_num).strt_pos_201  := l_xer.strt_pos;
1360         g_array(p_seq_num).dlmtr_val_201 := l_xer.dlmtr_val;
1361         g_array(p_seq_num).just_cd_201   := l_xer.just_cd;
1362         g_array(p_seq_num).hide_flag_201 := l_xer.hide_flag;
1363         g_array(p_seq_num).short_name_201:= l_xer.short_name;
1364      elsif l_xer.seq_num = 202 then
1365         g_array(p_seq_num).strt_pos_202 := l_xer.strt_pos;
1366         g_array(p_seq_num).dlmtr_val_202 := l_xer.dlmtr_val;
1367         g_array(p_seq_num).just_cd_202 := l_xer.just_cd;
1368         g_array(p_seq_num).hide_flag_202 := l_xer.hide_flag;
1369         g_array(p_seq_num).short_name_202   := l_xer.short_name;
1370      elsif l_xer.seq_num = 203 then
1371         g_array(p_seq_num).strt_pos_203 := l_xer.strt_pos;
1372         g_array(p_seq_num).dlmtr_val_203 := l_xer.dlmtr_val;
1373         g_array(p_seq_num).just_cd_203 := l_xer.just_cd;
1374         g_array(p_seq_num).hide_flag_203 := l_xer.hide_flag;
1375         g_array(p_seq_num).short_name_203   := l_xer.short_name;
1376      elsif l_xer.seq_num = 204 then
1380         g_array(p_seq_num).hide_flag_204 := l_xer.hide_flag;
1377         g_array(p_seq_num).strt_pos_204 := l_xer.strt_pos;
1378         g_array(p_seq_num).dlmtr_val_204 := l_xer.dlmtr_val;
1379         g_array(p_seq_num).just_cd_204 := l_xer.just_cd;
1381         g_array(p_seq_num).short_name_204   := l_xer.short_name;
1382       elsif l_xer.seq_num = 205 then
1383         g_array(p_seq_num).strt_pos_205 := l_xer.strt_pos;
1384         g_array(p_seq_num).dlmtr_val_205 := l_xer.dlmtr_val;
1385         g_array(p_seq_num).just_cd_205 := l_xer.just_cd;
1386         g_array(p_seq_num).hide_flag_205 := l_xer.hide_flag;
1387         g_array(p_seq_num).short_name_205   := l_xer.short_name;
1388       elsif l_xer.seq_num = 206 then
1389         g_array(p_seq_num).strt_pos_206 := l_xer.strt_pos;
1390         g_array(p_seq_num).dlmtr_val_206 := l_xer.dlmtr_val;
1391         g_array(p_seq_num).just_cd_206 := l_xer.just_cd;
1392         g_array(p_seq_num).hide_flag_206 := l_xer.hide_flag;
1393       elsif l_xer.seq_num = 207 then
1394         g_array(p_seq_num).strt_pos_207 := l_xer.strt_pos;
1395         g_array(p_seq_num).dlmtr_val_207 := l_xer.dlmtr_val;
1396         g_array(p_seq_num).just_cd_207 := l_xer.just_cd;
1397         g_array(p_seq_num).hide_flag_207 := l_xer.hide_flag;
1398         g_array(p_seq_num).short_name_207   := l_xer.short_name;
1399       elsif l_xer.seq_num = 208 then
1400         g_array(p_seq_num).strt_pos_208 := l_xer.strt_pos;
1401         g_array(p_seq_num).dlmtr_val_208 := l_xer.dlmtr_val;
1402         g_array(p_seq_num).just_cd_208 := l_xer.just_cd;
1403         g_array(p_seq_num).hide_flag_208 := l_xer.hide_flag;
1404         g_array(p_seq_num).short_name_208   := l_xer.short_name;
1405       elsif l_xer.seq_num = 209 then
1406         g_array(p_seq_num).strt_pos_209 := l_xer.strt_pos;
1407         g_array(p_seq_num).dlmtr_val_209 := l_xer.dlmtr_val;
1408         g_array(p_seq_num).just_cd_209 := l_xer.just_cd;
1409         g_array(p_seq_num).hide_flag_209 := l_xer.hide_flag;
1410         g_array(p_seq_num).short_name_209   := l_xer.short_name;
1411       elsif l_xer.seq_num = 210 then
1412         g_array(p_seq_num).strt_pos_210 := l_xer.strt_pos;
1413         g_array(p_seq_num).dlmtr_val_210 := l_xer.dlmtr_val;
1414         g_array(p_seq_num).just_cd_210 := l_xer.just_cd;
1415         g_array(p_seq_num).hide_flag_210 := l_xer.hide_flag;
1416         g_array(p_seq_num).short_name_210   := l_xer.short_name;
1417       elsif l_xer.seq_num = 211 then
1418         g_array(p_seq_num).strt_pos_211 := l_xer.strt_pos;
1419         g_array(p_seq_num).dlmtr_val_211 := l_xer.dlmtr_val;
1420         g_array(p_seq_num).just_cd_211 := l_xer.just_cd;
1421         g_array(p_seq_num).hide_flag_211 := l_xer.hide_flag;
1422         g_array(p_seq_num).short_name_211   := l_xer.short_name;
1423       elsif l_xer.seq_num = 212 then
1424         g_array(p_seq_num).strt_pos_212 := l_xer.strt_pos;
1425         g_array(p_seq_num).dlmtr_val_212 := l_xer.dlmtr_val;
1426         g_array(p_seq_num).just_cd_212 := l_xer.just_cd;
1427         g_array(p_seq_num).hide_flag_212 := l_xer.hide_flag;
1428         g_array(p_seq_num).short_name_212   := l_xer.short_name;
1429       elsif l_xer.seq_num = 213 then
1430         g_array(p_seq_num).strt_pos_213 := l_xer.strt_pos;
1431         g_array(p_seq_num).dlmtr_val_213 := l_xer.dlmtr_val;
1432         g_array(p_seq_num).just_cd_213 := l_xer.just_cd;
1433         g_array(p_seq_num).hide_flag_213 := l_xer.hide_flag;
1434         g_array(p_seq_num).short_name_213   := l_xer.short_name;
1435       elsif l_xer.seq_num = 214 then
1436         g_array(p_seq_num).strt_pos_214 := l_xer.strt_pos;
1437         g_array(p_seq_num).dlmtr_val_214 := l_xer.dlmtr_val;
1438         g_array(p_seq_num).just_cd_214 := l_xer.just_cd;
1439         g_array(p_seq_num).hide_flag_214 := l_xer.hide_flag;
1440         g_array(p_seq_num).short_name_214   := l_xer.short_name;
1441       elsif l_xer.seq_num = 215 then
1442         g_array(p_seq_num).strt_pos_215 := l_xer.strt_pos;
1443         g_array(p_seq_num).dlmtr_val_215 := l_xer.dlmtr_val;
1444         g_array(p_seq_num).just_cd_215 := l_xer.just_cd;
1445         g_array(p_seq_num).hide_flag_215 := l_xer.hide_flag;
1446         g_array(p_seq_num).short_name_215   := l_xer.short_name;
1447       elsif l_xer.seq_num = 216 then
1448         g_array(p_seq_num).strt_pos_216 := l_xer.strt_pos;
1449         g_array(p_seq_num).dlmtr_val_216 := l_xer.dlmtr_val;
1450         g_array(p_seq_num).just_cd_216 := l_xer.just_cd;
1451         g_array(p_seq_num).hide_flag_216 := l_xer.hide_flag;
1452         g_array(p_seq_num).short_name_216   := l_xer.short_name;
1453       elsif l_xer.seq_num = 217 then
1454         g_array(p_seq_num).strt_pos_217 := l_xer.strt_pos;
1455         g_array(p_seq_num).dlmtr_val_217 := l_xer.dlmtr_val;
1456         g_array(p_seq_num).just_cd_217 := l_xer.just_cd;
1457         g_array(p_seq_num).hide_flag_217 := l_xer.hide_flag;
1458         g_array(p_seq_num).short_name_217   := l_xer.short_name;
1459       elsif l_xer.seq_num = 218 then
1460         g_array(p_seq_num).strt_pos_218  := l_xer.strt_pos;
1461         g_array(p_seq_num).dlmtr_val_218 := l_xer.dlmtr_val;
1462         g_array(p_seq_num).just_cd_218   := l_xer.just_cd;
1463         g_array(p_seq_num).hide_flag_218 := l_xer.hide_flag;
1464         g_array(p_seq_num).short_name_218:= l_xer.short_name;
1465       elsif l_xer.seq_num = 219 then
1466         g_array(p_seq_num).strt_pos_219 := l_xer.strt_pos;
1467         g_array(p_seq_num).dlmtr_val_219 := l_xer.dlmtr_val;
1468         g_array(p_seq_num).just_cd_219 := l_xer.just_cd;
1469         g_array(p_seq_num).hide_flag_219 := l_xer.hide_flag;
1470         g_array(p_seq_num).short_name_219   := l_xer.short_name;
1471       elsif l_xer.seq_num = 220 then
1472         g_array(p_seq_num).strt_pos_220 := l_xer.strt_pos;
1473         g_array(p_seq_num).dlmtr_val_220 := l_xer.dlmtr_val;
1474         g_array(p_seq_num).just_cd_220 := l_xer.just_cd;
1475         g_array(p_seq_num).hide_flag_220 := l_xer.hide_flag;
1479         g_array(p_seq_num).dlmtr_val_221 := l_xer.dlmtr_val;
1476         g_array(p_seq_num).short_name_220   := l_xer.short_name;
1477       elsif l_xer.seq_num = 221 then
1478         g_array(p_seq_num).strt_pos_221 := l_xer.strt_pos;
1480         g_array(p_seq_num).just_cd_221 := l_xer.just_cd;
1481         g_array(p_seq_num).hide_flag_221 := l_xer.hide_flag;
1482         g_array(p_seq_num).short_name_221   := l_xer.short_name;
1483       elsif l_xer.seq_num = 222 then
1484         g_array(p_seq_num).strt_pos_222 := l_xer.strt_pos;
1485         g_array(p_seq_num).dlmtr_val_222 := l_xer.dlmtr_val;
1486         g_array(p_seq_num).just_cd_222 := l_xer.just_cd;
1487         g_array(p_seq_num).hide_flag_222 := l_xer.hide_flag;
1488         g_array(p_seq_num).short_name_222   := l_xer.short_name;
1489       elsif l_xer.seq_num = 223 then
1490         g_array(p_seq_num).strt_pos_223 := l_xer.strt_pos;
1491         g_array(p_seq_num).dlmtr_val_223 := l_xer.dlmtr_val;
1492         g_array(p_seq_num).just_cd_223 := l_xer.just_cd;
1493         g_array(p_seq_num).hide_flag_223 := l_xer.hide_flag;
1494         g_array(p_seq_num).short_name_223   := l_xer.short_name;
1495       elsif l_xer.seq_num = 224 then
1496         g_array(p_seq_num).strt_pos_224 := l_xer.strt_pos;
1497         g_array(p_seq_num).dlmtr_val_224 := l_xer.dlmtr_val;
1498         g_array(p_seq_num).just_cd_224 := l_xer.just_cd;
1499         g_array(p_seq_num).hide_flag_224 := l_xer.hide_flag;
1500         g_array(p_seq_num).short_name_224   := l_xer.short_name;
1501       elsif l_xer.seq_num = 225 then
1502         g_array(p_seq_num).strt_pos_225 := l_xer.strt_pos;
1503         g_array(p_seq_num).dlmtr_val_225 := l_xer.dlmtr_val;
1504         g_array(p_seq_num).just_cd_225 := l_xer.just_cd;
1505         g_array(p_seq_num).hide_flag_225 := l_xer.hide_flag;
1506         g_array(p_seq_num).short_name_225   := l_xer.short_name;
1507       elsif l_xer.seq_num = 226 then
1508         g_array(p_seq_num).strt_pos_226 := l_xer.strt_pos;
1509         g_array(p_seq_num).dlmtr_val_226 := l_xer.dlmtr_val;
1510         g_array(p_seq_num).just_cd_226 := l_xer.just_cd;
1511         g_array(p_seq_num).hide_flag_226 := l_xer.hide_flag;
1512         g_array(p_seq_num).short_name_226   := l_xer.short_name;
1513       elsif l_xer.seq_num = 227 then
1514         g_array(p_seq_num).strt_pos_227 := l_xer.strt_pos;
1515         g_array(p_seq_num).dlmtr_val_227 := l_xer.dlmtr_val;
1516         g_array(p_seq_num).just_cd_227 := l_xer.just_cd;
1517         g_array(p_seq_num).hide_flag_227 := l_xer.hide_flag;
1518         g_array(p_seq_num).short_name_227   := l_xer.short_name;
1519       elsif l_xer.seq_num = 228 then
1520         g_array(p_seq_num).strt_pos_228 := l_xer.strt_pos;
1521         g_array(p_seq_num).dlmtr_val_228 := l_xer.dlmtr_val;
1522         g_array(p_seq_num).just_cd_228 := l_xer.just_cd;
1523         g_array(p_seq_num).hide_flag_228 := l_xer.hide_flag;
1524         g_array(p_seq_num).short_name_228   := l_xer.short_name;
1525       elsif l_xer.seq_num = 229 then
1526         g_array(p_seq_num).strt_pos_229 := l_xer.strt_pos;
1527         g_array(p_seq_num).dlmtr_val_229 := l_xer.dlmtr_val;
1528         g_array(p_seq_num).just_cd_229 := l_xer.just_cd;
1529         g_array(p_seq_num).hide_flag_229 := l_xer.hide_flag;
1530         g_array(p_seq_num).short_name_229   := l_xer.short_name;
1531       elsif l_xer.seq_num = 230 then
1532         g_array(p_seq_num).strt_pos_230 := l_xer.strt_pos;
1533         g_array(p_seq_num).dlmtr_val_230 := l_xer.dlmtr_val;
1534         g_array(p_seq_num).just_cd_230 := l_xer.just_cd;
1535         g_array(p_seq_num).hide_flag_230 := l_xer.hide_flag;
1536         g_array(p_seq_num).short_name_230   := l_xer.short_name;
1537       elsif l_xer.seq_num = 231 then
1538         g_array(p_seq_num).strt_pos_231 := l_xer.strt_pos;
1539         g_array(p_seq_num).dlmtr_val_231 := l_xer.dlmtr_val;
1540         g_array(p_seq_num).just_cd_231 := l_xer.just_cd;
1541         g_array(p_seq_num).hide_flag_231 := l_xer.hide_flag;
1542         g_array(p_seq_num).short_name_231   := l_xer.short_name;
1543       elsif l_xer.seq_num = 232 then
1544         g_array(p_seq_num).strt_pos_232 := l_xer.strt_pos;
1545         g_array(p_seq_num).dlmtr_val_232 := l_xer.dlmtr_val;
1546         g_array(p_seq_num).just_cd_232 := l_xer.just_cd;
1547         g_array(p_seq_num).hide_flag_232 := l_xer.hide_flag;
1548         g_array(p_seq_num).short_name_232   := l_xer.short_name;
1549       elsif l_xer.seq_num = 233 then
1550         g_array(p_seq_num).strt_pos_233 := l_xer.strt_pos;
1551         g_array(p_seq_num).dlmtr_val_233 := l_xer.dlmtr_val;
1552         g_array(p_seq_num).just_cd_233 := l_xer.just_cd;
1553         g_array(p_seq_num).hide_flag_233 := l_xer.hide_flag;
1554         g_array(p_seq_num).short_name_233   := l_xer.short_name;
1555       elsif l_xer.seq_num = 234 then
1556         g_array(p_seq_num).strt_pos_234 := l_xer.strt_pos;
1557         g_array(p_seq_num).dlmtr_val_234 := l_xer.dlmtr_val;
1558         g_array(p_seq_num).just_cd_234 := l_xer.just_cd;
1559         g_array(p_seq_num).hide_flag_234 := l_xer.hide_flag;
1560         g_array(p_seq_num).short_name_234   := l_xer.short_name;
1561       elsif l_xer.seq_num = 235 then
1562         g_array(p_seq_num).strt_pos_235 := l_xer.strt_pos;
1563         g_array(p_seq_num).dlmtr_val_235 := l_xer.dlmtr_val;
1564         g_array(p_seq_num).just_cd_235 := l_xer.just_cd;
1565         g_array(p_seq_num).hide_flag_235 := l_xer.hide_flag;
1566         g_array(p_seq_num).short_name_235   := l_xer.short_name;
1567       elsif l_xer.seq_num = 236 then
1568         g_array(p_seq_num).strt_pos_236 := l_xer.strt_pos;
1569         g_array(p_seq_num).dlmtr_val_236 := l_xer.dlmtr_val;
1570         g_array(p_seq_num).just_cd_236 := l_xer.just_cd;
1571         g_array(p_seq_num).hide_flag_236 := l_xer.hide_flag;
1572         g_array(p_seq_num).short_name_236   := l_xer.short_name;
1573       elsif l_xer.seq_num = 237 then
1574         g_array(p_seq_num).strt_pos_237 := l_xer.strt_pos;
1578         g_array(p_seq_num).short_name_237   := l_xer.short_name;
1575         g_array(p_seq_num).dlmtr_val_237 := l_xer.dlmtr_val;
1576         g_array(p_seq_num).just_cd_237 := l_xer.just_cd;
1577         g_array(p_seq_num).hide_flag_237 := l_xer.hide_flag;
1579       elsif l_xer.seq_num = 238 then
1580         g_array(p_seq_num).strt_pos_238 := l_xer.strt_pos;
1581         g_array(p_seq_num).dlmtr_val_238 := l_xer.dlmtr_val;
1582         g_array(p_seq_num).just_cd_238 := l_xer.just_cd;
1583         g_array(p_seq_num).hide_flag_238 := l_xer.hide_flag;
1584         g_array(p_seq_num).short_name_238   := l_xer.short_name;
1585       elsif l_xer.seq_num = 239 then
1586         g_array(p_seq_num).strt_pos_239 := l_xer.strt_pos;
1587         g_array(p_seq_num).dlmtr_val_239 := l_xer.dlmtr_val;
1588         g_array(p_seq_num).just_cd_239 := l_xer.just_cd;
1589         g_array(p_seq_num).hide_flag_239 := l_xer.hide_flag;
1590         g_array(p_seq_num).short_name_239   := l_xer.short_name;
1591       elsif l_xer.seq_num = 240 then
1592         g_array(p_seq_num).strt_pos_240 := l_xer.strt_pos;
1593         g_array(p_seq_num).dlmtr_val_240 := l_xer.dlmtr_val;
1594         g_array(p_seq_num).just_cd_240 := l_xer.just_cd;
1595         g_array(p_seq_num).hide_flag_240 := l_xer.hide_flag;
1596         g_array(p_seq_num).short_name_240   := l_xer.short_name;
1597       elsif l_xer.seq_num = 241 then
1598         g_array(p_seq_num).strt_pos_241 := l_xer.strt_pos;
1599         g_array(p_seq_num).dlmtr_val_241 := l_xer.dlmtr_val;
1600         g_array(p_seq_num).just_cd_241 := l_xer.just_cd;
1601         g_array(p_seq_num).hide_flag_241 := l_xer.hide_flag;
1602         g_array(p_seq_num).short_name_241   := l_xer.short_name;
1603       elsif l_xer.seq_num = 242 then
1604         g_array(p_seq_num).strt_pos_242 := l_xer.strt_pos;
1605         g_array(p_seq_num).dlmtr_val_242 := l_xer.dlmtr_val;
1606         g_array(p_seq_num).just_cd_242 := l_xer.just_cd;
1607         g_array(p_seq_num).hide_flag_242 := l_xer.hide_flag;
1608         g_array(p_seq_num).short_name_242   := l_xer.short_name;
1609       elsif l_xer.seq_num = 243 then
1610         g_array(p_seq_num).strt_pos_243 := l_xer.strt_pos;
1611         g_array(p_seq_num).dlmtr_val_243 := l_xer.dlmtr_val;
1612         g_array(p_seq_num).just_cd_243 := l_xer.just_cd;
1613         g_array(p_seq_num).hide_flag_243 := l_xer.hide_flag;
1614         g_array(p_seq_num).short_name_243   := l_xer.short_name;
1615       elsif l_xer.seq_num = 244 then
1616         g_array(p_seq_num).strt_pos_244 := l_xer.strt_pos;
1617         g_array(p_seq_num).dlmtr_val_244 := l_xer.dlmtr_val;
1618         g_array(p_seq_num).just_cd_244 := l_xer.just_cd;
1619         g_array(p_seq_num).hide_flag_244 := l_xer.hide_flag;
1620         g_array(p_seq_num).short_name_244   := l_xer.short_name;
1621       elsif l_xer.seq_num = 245 then
1622         g_array(p_seq_num).strt_pos_245 := l_xer.strt_pos;
1623         g_array(p_seq_num).dlmtr_val_245 := l_xer.dlmtr_val;
1624         g_array(p_seq_num).just_cd_245 := l_xer.just_cd;
1625         g_array(p_seq_num).hide_flag_245 := l_xer.hide_flag;
1626         g_array(p_seq_num).short_name_245   := l_xer.short_name;
1627       elsif l_xer.seq_num = 246 then
1628         g_array(p_seq_num).strt_pos_246 := l_xer.strt_pos;
1629         g_array(p_seq_num).dlmtr_val_246 := l_xer.dlmtr_val;
1630         g_array(p_seq_num).just_cd_246 := l_xer.just_cd;
1631         g_array(p_seq_num).hide_flag_246 := l_xer.hide_flag;
1632         g_array(p_seq_num).short_name_246   := l_xer.short_name;
1633       elsif l_xer.seq_num = 247 then
1634         g_array(p_seq_num).strt_pos_247 := l_xer.strt_pos;
1635         g_array(p_seq_num).dlmtr_val_247 := l_xer.dlmtr_val;
1636         g_array(p_seq_num).just_cd_247 := l_xer.just_cd;
1637         g_array(p_seq_num).hide_flag_247 := l_xer.hide_flag;
1638         g_array(p_seq_num).short_name_247   := l_xer.short_name;
1639       elsif l_xer.seq_num = 248 then
1640         g_array(p_seq_num).strt_pos_248 := l_xer.strt_pos;
1641         g_array(p_seq_num).dlmtr_val_248 := l_xer.dlmtr_val;
1642         g_array(p_seq_num).just_cd_248 := l_xer.just_cd;
1643         g_array(p_seq_num).hide_flag_248 := l_xer.hide_flag;
1644         g_array(p_seq_num).short_name_248   := l_xer.short_name;
1645       elsif l_xer.seq_num = 249 then
1646         g_array(p_seq_num).strt_pos_249 := l_xer.strt_pos;
1647         g_array(p_seq_num).dlmtr_val_249 := l_xer.dlmtr_val;
1648         g_array(p_seq_num).just_cd_249 := l_xer.just_cd;
1649         g_array(p_seq_num).hide_flag_249 := l_xer.hide_flag;
1650         g_array(p_seq_num).short_name_249   := l_xer.short_name;
1651       elsif l_xer.seq_num = 250 then
1652         g_array(p_seq_num).strt_pos_250 := l_xer.strt_pos;
1653         g_array(p_seq_num).dlmtr_val_250 := l_xer.dlmtr_val;
1654         g_array(p_seq_num).just_cd_250 := l_xer.just_cd;
1655         g_array(p_seq_num).hide_flag_250 := l_xer.hide_flag;
1656         g_array(p_seq_num).short_name_250   := l_xer.short_name;
1657       elsif l_xer.seq_num = 251 then
1658         g_array(p_seq_num).strt_pos_251 := l_xer.strt_pos;
1659         g_array(p_seq_num).dlmtr_val_251 := l_xer.dlmtr_val;
1660         g_array(p_seq_num).just_cd_251 := l_xer.just_cd;
1661         g_array(p_seq_num).hide_flag_251 := l_xer.hide_flag;
1662         g_array(p_seq_num).short_name_251   := l_xer.short_name;
1663       elsif l_xer.seq_num = 252 then
1664         g_array(p_seq_num).strt_pos_252 := l_xer.strt_pos;
1665         g_array(p_seq_num).dlmtr_val_252 := l_xer.dlmtr_val;
1666         g_array(p_seq_num).just_cd_252 := l_xer.just_cd;
1667         g_array(p_seq_num).hide_flag_252 := l_xer.hide_flag;
1668         g_array(p_seq_num).short_name_252   := l_xer.short_name;
1669       elsif l_xer.seq_num = 253 then
1670         g_array(p_seq_num).strt_pos_253 := l_xer.strt_pos;
1671         g_array(p_seq_num).dlmtr_val_253 := l_xer.dlmtr_val;
1672         g_array(p_seq_num).just_cd_253 := l_xer.just_cd;
1673         g_array(p_seq_num).hide_flag_253 := l_xer.hide_flag;
1677         g_array(p_seq_num).dlmtr_val_254 := l_xer.dlmtr_val;
1674         g_array(p_seq_num).short_name_253   := l_xer.short_name;
1675       elsif l_xer.seq_num = 254 then
1676         g_array(p_seq_num).strt_pos_254 := l_xer.strt_pos;
1678         g_array(p_seq_num).just_cd_254 := l_xer.just_cd;
1679         g_array(p_seq_num).hide_flag_254 := l_xer.hide_flag;
1680         g_array(p_seq_num).short_name_254   := l_xer.short_name;
1681       elsif l_xer.seq_num = 255 then
1682         g_array(p_seq_num).strt_pos_255 := l_xer.strt_pos;
1683         g_array(p_seq_num).dlmtr_val_255 := l_xer.dlmtr_val;
1684         g_array(p_seq_num).just_cd_255 := l_xer.just_cd;
1685         g_array(p_seq_num).hide_flag_255 := l_xer.hide_flag;
1686         g_array(p_seq_num).short_name_255   := l_xer.short_name;
1687       elsif l_xer.seq_num = 256 then
1688         g_array(p_seq_num).strt_pos_256 := l_xer.strt_pos;
1689         g_array(p_seq_num).dlmtr_val_256 := l_xer.dlmtr_val;
1690         g_array(p_seq_num).just_cd_256 := l_xer.just_cd;
1691         g_array(p_seq_num).hide_flag_256 := l_xer.hide_flag;
1692         g_array(p_seq_num).short_name_256   := l_xer.short_name;
1693       elsif l_xer.seq_num = 257 then
1694         g_array(p_seq_num).strt_pos_257 := l_xer.strt_pos;
1695         g_array(p_seq_num).dlmtr_val_257 := l_xer.dlmtr_val;
1696         g_array(p_seq_num).just_cd_257 := l_xer.just_cd;
1697         g_array(p_seq_num).hide_flag_257 := l_xer.hide_flag;
1698         g_array(p_seq_num).short_name_257   := l_xer.short_name;
1699       elsif l_xer.seq_num = 258 then
1700         g_array(p_seq_num).strt_pos_258 := l_xer.strt_pos;
1701         g_array(p_seq_num).dlmtr_val_258 := l_xer.dlmtr_val;
1702         g_array(p_seq_num).just_cd_258 := l_xer.just_cd;
1703         g_array(p_seq_num).hide_flag_258 := l_xer.hide_flag;
1704         g_array(p_seq_num).short_name_258   := l_xer.short_name;
1705       elsif l_xer.seq_num = 259 then
1706         g_array(p_seq_num).strt_pos_259 := l_xer.strt_pos;
1707         g_array(p_seq_num).dlmtr_val_259 := l_xer.dlmtr_val;
1708         g_array(p_seq_num).just_cd_259 := l_xer.just_cd;
1709         g_array(p_seq_num).hide_flag_259 := l_xer.hide_flag;
1710         g_array(p_seq_num).short_name_259   := l_xer.short_name;
1711       elsif l_xer.seq_num = 260 then
1712         g_array(p_seq_num).strt_pos_260 := l_xer.strt_pos;
1713         g_array(p_seq_num).dlmtr_val_260 := l_xer.dlmtr_val;
1714         g_array(p_seq_num).just_cd_260 := l_xer.just_cd;
1715         g_array(p_seq_num).hide_flag_260 := l_xer.hide_flag;
1716         g_array(p_seq_num).short_name_260   := l_xer.short_name;
1717       elsif l_xer.seq_num = 261 then
1718         g_array(p_seq_num).strt_pos_261 := l_xer.strt_pos;
1719         g_array(p_seq_num).dlmtr_val_261 := l_xer.dlmtr_val;
1720         g_array(p_seq_num).just_cd_261 := l_xer.just_cd;
1721         g_array(p_seq_num).hide_flag_261 := l_xer.hide_flag;
1722         g_array(p_seq_num).short_name_261   := l_xer.short_name;
1723       elsif l_xer.seq_num = 262 then
1724         g_array(p_seq_num).strt_pos_262 := l_xer.strt_pos;
1725         g_array(p_seq_num).dlmtr_val_262 := l_xer.dlmtr_val;
1726         g_array(p_seq_num).just_cd_262 := l_xer.just_cd;
1727         g_array(p_seq_num).hide_flag_262 := l_xer.hide_flag;
1728         g_array(p_seq_num).short_name_262   := l_xer.short_name;
1729       elsif l_xer.seq_num = 263 then
1730         g_array(p_seq_num).strt_pos_263 := l_xer.strt_pos;
1731         g_array(p_seq_num).dlmtr_val_263 := l_xer.dlmtr_val;
1732         g_array(p_seq_num).just_cd_263 := l_xer.just_cd;
1733         g_array(p_seq_num).hide_flag_263 := l_xer.hide_flag;
1734         g_array(p_seq_num).short_name_263   := l_xer.short_name;
1735       elsif l_xer.seq_num = 264 then
1736         g_array(p_seq_num).strt_pos_264 := l_xer.strt_pos;
1737         g_array(p_seq_num).dlmtr_val_264 := l_xer.dlmtr_val;
1738         g_array(p_seq_num).just_cd_264 := l_xer.just_cd;
1739         g_array(p_seq_num).hide_flag_264 := l_xer.hide_flag;
1740         g_array(p_seq_num).short_name_264   := l_xer.short_name;
1741       elsif l_xer.seq_num = 265 then
1742         g_array(p_seq_num).strt_pos_265 := l_xer.strt_pos;
1743         g_array(p_seq_num).dlmtr_val_265 := l_xer.dlmtr_val;
1744         g_array(p_seq_num).just_cd_265 := l_xer.just_cd;
1745         g_array(p_seq_num).hide_flag_265 := l_xer.hide_flag;
1746         g_array(p_seq_num).short_name_265   := l_xer.short_name;
1747       elsif l_xer.seq_num = 266 then
1748         g_array(p_seq_num).strt_pos_266 := l_xer.strt_pos;
1749         g_array(p_seq_num).dlmtr_val_266 := l_xer.dlmtr_val;
1750         g_array(p_seq_num).just_cd_266 := l_xer.just_cd;
1751         g_array(p_seq_num).hide_flag_266 := l_xer.hide_flag;
1752         g_array(p_seq_num).short_name_266   := l_xer.short_name;
1753       elsif l_xer.seq_num = 267 then
1754         g_array(p_seq_num).strt_pos_267 := l_xer.strt_pos;
1755         g_array(p_seq_num).dlmtr_val_267 := l_xer.dlmtr_val;
1756         g_array(p_seq_num).just_cd_267 := l_xer.just_cd;
1757         g_array(p_seq_num).hide_flag_267 := l_xer.hide_flag;
1758         g_array(p_seq_num).short_name_267   := l_xer.short_name;
1759       elsif l_xer.seq_num = 268 then
1760         g_array(p_seq_num).strt_pos_268 := l_xer.strt_pos;
1761         g_array(p_seq_num).dlmtr_val_268 := l_xer.dlmtr_val;
1762         g_array(p_seq_num).just_cd_268 := l_xer.just_cd;
1763         g_array(p_seq_num).hide_flag_268 := l_xer.hide_flag;
1764         g_array(p_seq_num).short_name_268   := l_xer.short_name;
1765       elsif l_xer.seq_num = 269 then
1766         g_array(p_seq_num).strt_pos_269 := l_xer.strt_pos;
1767         g_array(p_seq_num).dlmtr_val_269 := l_xer.dlmtr_val;
1768         g_array(p_seq_num).just_cd_269 := l_xer.just_cd;
1769         g_array(p_seq_num).hide_flag_269 := l_xer.hide_flag;
1770         g_array(p_seq_num).short_name_269   := l_xer.short_name;
1771       elsif l_xer.seq_num = 270 then
1772         g_array(p_seq_num).strt_pos_270 := l_xer.strt_pos;
1776         g_array(p_seq_num).short_name_270   := l_xer.short_name;
1773         g_array(p_seq_num).dlmtr_val_270 := l_xer.dlmtr_val;
1774         g_array(p_seq_num).just_cd_270 := l_xer.just_cd;
1775         g_array(p_seq_num).hide_flag_270 := l_xer.hide_flag;
1777       elsif l_xer.seq_num = 271 then
1778         g_array(p_seq_num).strt_pos_271 := l_xer.strt_pos;
1779         g_array(p_seq_num).dlmtr_val_271 := l_xer.dlmtr_val;
1780         g_array(p_seq_num).just_cd_271 := l_xer.just_cd;
1781         g_array(p_seq_num).hide_flag_271 := l_xer.hide_flag;
1782         g_array(p_seq_num).short_name_271   := l_xer.short_name;
1783       elsif l_xer.seq_num = 272 then
1784         g_array(p_seq_num).strt_pos_272 := l_xer.strt_pos;
1785         g_array(p_seq_num).dlmtr_val_272 := l_xer.dlmtr_val;
1786         g_array(p_seq_num).just_cd_272 := l_xer.just_cd;
1787         g_array(p_seq_num).hide_flag_272 := l_xer.hide_flag;
1788         g_array(p_seq_num).short_name_272   := l_xer.short_name;
1789       elsif l_xer.seq_num = 273 then
1790         g_array(p_seq_num).strt_pos_273 := l_xer.strt_pos;
1791         g_array(p_seq_num).dlmtr_val_273 := l_xer.dlmtr_val;
1792         g_array(p_seq_num).just_cd_273 := l_xer.just_cd;
1793         g_array(p_seq_num).hide_flag_273 := l_xer.hide_flag;
1794         g_array(p_seq_num).short_name_273   := l_xer.short_name;
1795       elsif l_xer.seq_num = 274 then
1796         g_array(p_seq_num).strt_pos_274 := l_xer.strt_pos;
1797         g_array(p_seq_num).dlmtr_val_274 := l_xer.dlmtr_val;
1798         g_array(p_seq_num).just_cd_274 := l_xer.just_cd;
1799         g_array(p_seq_num).hide_flag_274 := l_xer.hide_flag;
1800         g_array(p_seq_num).short_name_274   := l_xer.short_name;
1801       elsif l_xer.seq_num = 275 then
1802         g_array(p_seq_num).strt_pos_275 := l_xer.strt_pos;
1803         g_array(p_seq_num).dlmtr_val_275 := l_xer.dlmtr_val;
1804         g_array(p_seq_num).just_cd_275 := l_xer.just_cd;
1805         g_array(p_seq_num).hide_flag_275 := l_xer.hide_flag;
1806         g_array(p_seq_num).short_name_275   := l_xer.short_name;
1807             elsif l_xer.seq_num = 276 then
1808         g_array(p_seq_num).strt_pos_276 := l_xer.strt_pos;
1809         g_array(p_seq_num).dlmtr_val_276 := l_xer.dlmtr_val;
1810         g_array(p_seq_num).just_cd_276 := l_xer.just_cd;
1811         g_array(p_seq_num).hide_flag_276 := l_xer.hide_flag;
1812         g_array(p_seq_num).short_name_276   := l_xer.short_name;
1813       elsif l_xer.seq_num = 277 then
1814         g_array(p_seq_num).strt_pos_277 := l_xer.strt_pos;
1815         g_array(p_seq_num).dlmtr_val_277 := l_xer.dlmtr_val;
1816         g_array(p_seq_num).just_cd_277 := l_xer.just_cd;
1817         g_array(p_seq_num).hide_flag_277 := l_xer.hide_flag;
1818         g_array(p_seq_num).short_name_277   := l_xer.short_name;
1819       elsif l_xer.seq_num = 278 then
1820         g_array(p_seq_num).strt_pos_278 := l_xer.strt_pos;
1821         g_array(p_seq_num).dlmtr_val_278 := l_xer.dlmtr_val;
1822         g_array(p_seq_num).just_cd_278 := l_xer.just_cd;
1823         g_array(p_seq_num).hide_flag_278 := l_xer.hide_flag;
1824         g_array(p_seq_num).short_name_278   := l_xer.short_name;
1825       elsif l_xer.seq_num = 279 then
1826         g_array(p_seq_num).strt_pos_279 := l_xer.strt_pos;
1827         g_array(p_seq_num).dlmtr_val_279 := l_xer.dlmtr_val;
1828         g_array(p_seq_num).just_cd_279 := l_xer.just_cd;
1829         g_array(p_seq_num).hide_flag_279 := l_xer.hide_flag;
1830         g_array(p_seq_num).short_name_279   := l_xer.short_name;
1831       elsif l_xer.seq_num = 280 then
1832         g_array(p_seq_num).strt_pos_280 := l_xer.strt_pos;
1833         g_array(p_seq_num).dlmtr_val_280 := l_xer.dlmtr_val;
1834         g_array(p_seq_num).just_cd_280 := l_xer.just_cd;
1835         g_array(p_seq_num).hide_flag_280 := l_xer.hide_flag;
1836         g_array(p_seq_num).short_name_280   := l_xer.short_name;
1837       elsif l_xer.seq_num = 281 then
1838         g_array(p_seq_num).strt_pos_281 := l_xer.strt_pos;
1839         g_array(p_seq_num).dlmtr_val_281 := l_xer.dlmtr_val;
1840         g_array(p_seq_num).just_cd_281 := l_xer.just_cd;
1841         g_array(p_seq_num).hide_flag_281 := l_xer.hide_flag;
1842         g_array(p_seq_num).short_name_281   := l_xer.short_name;
1843       elsif l_xer.seq_num = 282 then
1844         g_array(p_seq_num).strt_pos_282 := l_xer.strt_pos;
1845         g_array(p_seq_num).dlmtr_val_282 := l_xer.dlmtr_val;
1846         g_array(p_seq_num).just_cd_282 := l_xer.just_cd;
1847         g_array(p_seq_num).hide_flag_282 := l_xer.hide_flag;
1848         g_array(p_seq_num).short_name_282   := l_xer.short_name;
1849       elsif l_xer.seq_num = 283 then
1850         g_array(p_seq_num).strt_pos_283 := l_xer.strt_pos;
1851         g_array(p_seq_num).dlmtr_val_283 := l_xer.dlmtr_val;
1852         g_array(p_seq_num).just_cd_283 := l_xer.just_cd;
1853         g_array(p_seq_num).hide_flag_283 := l_xer.hide_flag;
1854         g_array(p_seq_num).short_name_283   := l_xer.short_name;
1855       elsif l_xer.seq_num = 284 then
1856         g_array(p_seq_num).strt_pos_284 := l_xer.strt_pos;
1857         g_array(p_seq_num).dlmtr_val_284 := l_xer.dlmtr_val;
1858         g_array(p_seq_num).just_cd_284 := l_xer.just_cd;
1859         g_array(p_seq_num).hide_flag_284 := l_xer.hide_flag;
1860         g_array(p_seq_num).short_name_284   := l_xer.short_name;
1861       elsif l_xer.seq_num = 285 then
1862         g_array(p_seq_num).strt_pos_285 := l_xer.strt_pos;
1863         g_array(p_seq_num).dlmtr_val_285 := l_xer.dlmtr_val;
1864         g_array(p_seq_num).just_cd_285 := l_xer.just_cd;
1865         g_array(p_seq_num).hide_flag_285 := l_xer.hide_flag;
1866         g_array(p_seq_num).short_name_285   := l_xer.short_name;
1867       elsif l_xer.seq_num = 286 then
1868         g_array(p_seq_num).strt_pos_286 := l_xer.strt_pos;
1869         g_array(p_seq_num).dlmtr_val_286 := l_xer.dlmtr_val;
1870         g_array(p_seq_num).just_cd_286 := l_xer.just_cd;
1871         g_array(p_seq_num).hide_flag_286 := l_xer.hide_flag;
1872         g_array(p_seq_num).short_name_286   := l_xer.short_name;
1873       elsif l_xer.seq_num = 287 then
1877         g_array(p_seq_num).hide_flag_287 := l_xer.hide_flag;
1874         g_array(p_seq_num).strt_pos_287 := l_xer.strt_pos;
1875         g_array(p_seq_num).dlmtr_val_287 := l_xer.dlmtr_val;
1876         g_array(p_seq_num).just_cd_287 := l_xer.just_cd;
1878         g_array(p_seq_num).short_name_287   := l_xer.short_name;
1879       elsif l_xer.seq_num = 288 then
1880         g_array(p_seq_num).strt_pos_288 := l_xer.strt_pos;
1881         g_array(p_seq_num).dlmtr_val_288 := l_xer.dlmtr_val;
1882         g_array(p_seq_num).just_cd_288 := l_xer.just_cd;
1883         g_array(p_seq_num).hide_flag_288 := l_xer.hide_flag;
1884         g_array(p_seq_num).short_name_288   := l_xer.short_name;
1885       elsif l_xer.seq_num = 289 then
1886         g_array(p_seq_num).strt_pos_289 := l_xer.strt_pos;
1887         g_array(p_seq_num).dlmtr_val_289 := l_xer.dlmtr_val;
1888         g_array(p_seq_num).just_cd_289 := l_xer.just_cd;
1889         g_array(p_seq_num).hide_flag_289 := l_xer.hide_flag;
1890         g_array(p_seq_num).short_name_289   := l_xer.short_name;
1891       elsif l_xer.seq_num = 290 then
1892         g_array(p_seq_num).strt_pos_290 := l_xer.strt_pos;
1893         g_array(p_seq_num).dlmtr_val_290 := l_xer.dlmtr_val;
1894         g_array(p_seq_num).just_cd_290 := l_xer.just_cd;
1895         g_array(p_seq_num).hide_flag_290 := l_xer.hide_flag;
1896         g_array(p_seq_num).short_name_290   := l_xer.short_name;
1897       elsif l_xer.seq_num = 291 then
1898         g_array(p_seq_num).strt_pos_291 := l_xer.strt_pos;
1899         g_array(p_seq_num).dlmtr_val_291 := l_xer.dlmtr_val;
1900         g_array(p_seq_num).just_cd_291 := l_xer.just_cd;
1901         g_array(p_seq_num).hide_flag_291 := l_xer.hide_flag;
1902         g_array(p_seq_num).short_name_291   := l_xer.short_name;
1903       elsif l_xer.seq_num = 292 then
1904         g_array(p_seq_num).strt_pos_292 := l_xer.strt_pos;
1905         g_array(p_seq_num).dlmtr_val_292 := l_xer.dlmtr_val;
1906         g_array(p_seq_num).just_cd_292 := l_xer.just_cd;
1907         g_array(p_seq_num).hide_flag_292 := l_xer.hide_flag;
1908         g_array(p_seq_num).short_name_292   := l_xer.short_name;
1909       elsif l_xer.seq_num = 293 then
1910         g_array(p_seq_num).strt_pos_293 := l_xer.strt_pos;
1911         g_array(p_seq_num).dlmtr_val_293 := l_xer.dlmtr_val;
1912         g_array(p_seq_num).just_cd_293 := l_xer.just_cd;
1913         g_array(p_seq_num).hide_flag_293 := l_xer.hide_flag;
1914         g_array(p_seq_num).short_name_293   := l_xer.short_name;
1915       elsif l_xer.seq_num = 294 then
1916         g_array(p_seq_num).strt_pos_294 := l_xer.strt_pos;
1917         g_array(p_seq_num).dlmtr_val_294 := l_xer.dlmtr_val;
1918         g_array(p_seq_num).just_cd_294 := l_xer.just_cd;
1919         g_array(p_seq_num).hide_flag_294 := l_xer.hide_flag;
1920         g_array(p_seq_num).short_name_294   := l_xer.short_name;
1921       elsif l_xer.seq_num = 295 then
1922         g_array(p_seq_num).strt_pos_295 := l_xer.strt_pos;
1923         g_array(p_seq_num).dlmtr_val_295 := l_xer.dlmtr_val;
1924         g_array(p_seq_num).just_cd_295 := l_xer.just_cd;
1925         g_array(p_seq_num).hide_flag_295 := l_xer.hide_flag;
1926         g_array(p_seq_num).short_name_295   := l_xer.short_name;
1927             elsif l_xer.seq_num = 296 then
1928         g_array(p_seq_num).strt_pos_296 := l_xer.strt_pos;
1929         g_array(p_seq_num).dlmtr_val_296 := l_xer.dlmtr_val;
1930         g_array(p_seq_num).just_cd_296 := l_xer.just_cd;
1931         g_array(p_seq_num).hide_flag_296 := l_xer.hide_flag;
1932         g_array(p_seq_num).short_name_296   := l_xer.short_name;
1933       elsif l_xer.seq_num = 297 then
1934         g_array(p_seq_num).strt_pos_297 := l_xer.strt_pos;
1935         g_array(p_seq_num).dlmtr_val_297 := l_xer.dlmtr_val;
1936         g_array(p_seq_num).just_cd_297 := l_xer.just_cd;
1937         g_array(p_seq_num).hide_flag_297 := l_xer.hide_flag;
1938         g_array(p_seq_num).short_name_297   := l_xer.short_name;
1939       elsif l_xer.seq_num = 298 then
1940         g_array(p_seq_num).strt_pos_298 := l_xer.strt_pos;
1941         g_array(p_seq_num).dlmtr_val_298 := l_xer.dlmtr_val;
1942         g_array(p_seq_num).just_cd_298 := l_xer.just_cd;
1943         g_array(p_seq_num).hide_flag_298 := l_xer.hide_flag;
1944         g_array(p_seq_num).short_name_298   := l_xer.short_name;
1945       elsif l_xer.seq_num = 299 then
1946         g_array(p_seq_num).strt_pos_299 := l_xer.strt_pos;
1947         g_array(p_seq_num).dlmtr_val_299 := l_xer.dlmtr_val;
1948         g_array(p_seq_num).just_cd_299 := l_xer.just_cd;
1949         g_array(p_seq_num).hide_flag_299 := l_xer.hide_flag;
1950         g_array(p_seq_num).short_name_299   := l_xer.short_name;
1951       elsif l_xer.seq_num = 300 then
1952         g_array(p_seq_num).strt_pos_300 := l_xer.strt_pos;
1953         g_array(p_seq_num).dlmtr_val_300 := l_xer.dlmtr_val;
1954         g_array(p_seq_num).just_cd_300 := l_xer.just_cd;
1955         g_array(p_seq_num).hide_flag_300 := l_xer.hide_flag;
1956         g_array(p_seq_num).short_name_300   := l_xer.short_name;
1957 
1958      end if;
1959      --
1960      g_array(p_seq_num).highest_seq_num := l_xer.seq_num;
1961       --
1962    end loop;
1963 --
1964   hr_utility.set_location('Exiting'||l_proc, 15);
1965 --
1966 end load_strt_pos;
1967 -----------------------------------------------------------------------------
1968 procedure load_arrays
1969     (p_ext_rcd_id in number,
1970      p_val_01 in varchar2,
1971      p_val_02 in varchar2,
1972      p_val_03 in varchar2,
1973      p_val_04 in varchar2,
1974      p_val_05 in varchar2,
1975      p_val_06 in varchar2,
1976      p_val_07 in varchar2,
1977      p_val_08 in varchar2,
1978      p_val_09 in varchar2,
1979      p_val_10 in varchar2,
1980      p_val_11 in varchar2,
1981      p_val_12 in varchar2,
1982      p_val_13 in varchar2,
1983      p_val_14 in varchar2,
1984      p_val_15 in varchar2,
1985      p_val_16 in varchar2,
1986      p_val_17 in varchar2,
1987      p_val_18 in varchar2,
1991      p_val_22 in varchar2,
1988      p_val_19 in varchar2,
1989      p_val_20 in varchar2,
1990      p_val_21 in varchar2,
1992      p_val_23 in varchar2,
1993      p_val_24 in varchar2,
1994      p_val_25 in varchar2,
1995      p_val_26 in varchar2,
1996      p_val_27 in varchar2,
1997      p_val_28 in varchar2,
1998      p_val_29 in varchar2,
1999      p_val_30 in varchar2,
2000      p_val_31 in varchar2,
2001      p_val_32 in varchar2,
2002      p_val_33 in varchar2,
2003      p_val_34 in varchar2,
2004      p_val_35 in varchar2,
2005      p_val_36 in varchar2,
2006      p_val_37 in varchar2,
2007      p_val_38 in varchar2,
2008      p_val_39 in varchar2,
2009      p_val_40 in varchar2,
2010      p_val_41 in varchar2,
2011      p_val_42 in varchar2,
2012      p_val_43 in varchar2,
2013      p_val_44 in varchar2,
2014      p_val_45 in varchar2,
2015      p_val_46 in varchar2,
2016      p_val_47 in varchar2,
2017      p_val_48 in varchar2,
2018      p_val_49 in varchar2,
2019      p_val_50 in varchar2,
2020      p_val_51 in varchar2,
2021      p_val_52 in varchar2,
2022      p_val_53 in varchar2,
2023      p_val_54 in varchar2,
2024      p_val_55 in varchar2,
2025      p_val_56 in varchar2,
2026      p_val_57 in varchar2,
2027      p_val_58 in varchar2,
2028      p_val_59 in varchar2,
2029      p_val_60 in varchar2,
2030      p_val_61 in varchar2,
2031      p_val_62 in varchar2,
2032      p_val_63 in varchar2,
2033      p_val_64 in varchar2,
2034      p_val_65 in varchar2,
2035      p_val_66 in varchar2,
2036      p_val_67 in varchar2,
2037      p_val_68 in varchar2,
2038      p_val_69 in varchar2,
2039      p_val_70 in varchar2,
2040      p_val_71 in varchar2,
2041      p_val_72 in varchar2,
2042      p_val_73 in varchar2,
2043      p_val_74 in varchar2,
2044      p_val_75 in varchar2,
2045      p_val_76 in varchar2,
2046      p_val_77 in varchar2,
2047      p_val_78 in varchar2,
2048      p_val_79 in varchar2,
2049      p_val_80 in varchar2,
2050      p_val_81 in varchar2,
2051      p_val_82 in varchar2,
2052      p_val_83 in varchar2,
2053      p_val_84 in varchar2,
2054      p_val_85 in varchar2,
2055      p_val_86 in varchar2,
2056      p_val_87 in varchar2,
2057      p_val_88 in varchar2,
2058      p_val_89 in varchar2,
2059      p_val_90 in varchar2,
2060      p_val_91 in varchar2,
2061      p_val_92 in varchar2,
2062      p_val_93 in varchar2,
2063      p_val_94 in varchar2,
2064      p_val_95 in varchar2,
2065      p_val_96 in varchar2,
2066      p_val_97 in varchar2,
2067      p_val_98 in varchar2,
2068      p_val_99 in varchar2,
2069      p_val_100 in varchar2,
2070      p_val_101 in varchar2,
2071      p_val_102 in varchar2,
2072      p_val_103 in varchar2,
2073      p_val_104 in varchar2,
2074      p_val_105 in varchar2,
2075      p_val_106 in varchar2,
2076      p_val_107 in varchar2,
2077      p_val_108 in varchar2,
2078      p_val_109 in varchar2,
2079      p_val_110 in varchar2,
2080      p_val_111 in varchar2,
2081      p_val_112 in varchar2,
2082      p_val_113 in varchar2,
2083      p_val_114 in varchar2,
2084      p_val_115 in varchar2,
2085      p_val_116 in varchar2,
2086      p_val_117 in varchar2,
2087      p_val_118 in varchar2,
2088      p_val_119 in varchar2,
2089      p_val_120 in varchar2,
2090      p_val_121 in varchar2,
2091      p_val_122 in varchar2,
2092      p_val_123 in varchar2,
2093      p_val_124 in varchar2,
2094      p_val_125 in varchar2,
2095      p_val_126 in varchar2,
2096      p_val_127 in varchar2,
2097      p_val_128 in varchar2,
2098      p_val_129 in varchar2,
2099      p_val_130 in varchar2,
2100      p_val_131 in varchar2,
2101      p_val_132 in varchar2,
2102      p_val_133 in varchar2,
2103      p_val_134 in varchar2,
2104      p_val_135 in varchar2,
2105      p_val_136 in varchar2,
2106      p_val_137 in varchar2,
2107      p_val_138 in varchar2,
2108      p_val_139 in varchar2,
2109      p_val_140 in varchar2,
2110      p_val_141 in varchar2,
2111      p_val_142 in varchar2,
2112      p_val_143 in varchar2,
2113      p_val_144 in varchar2,
2114      p_val_145 in varchar2,
2115      p_val_146 in varchar2,
2116      p_val_147 in varchar2,
2117      p_val_148 in varchar2,
2118      p_val_149 in varchar2,
2119      p_val_150 in varchar2,
2120      p_val_151 in varchar2,
2121      p_val_152 in varchar2,
2122      p_val_153 in varchar2,
2123      p_val_154 in varchar2,
2124      p_val_155 in varchar2,
2125      p_val_156 in varchar2,
2126      p_val_157 in varchar2,
2127      p_val_158 in varchar2,
2128      p_val_159 in varchar2,
2129      p_val_160 in varchar2,
2130      p_val_161 in varchar2,
2131      p_val_162 in varchar2,
2132      p_val_163 in varchar2,
2133      p_val_164 in varchar2,
2134      p_val_165 in varchar2,
2135      p_val_166 in varchar2,
2136      p_val_167 in varchar2,
2137      p_val_168 in varchar2,
2138      p_val_169 in varchar2,
2139      p_val_170 in varchar2,
2140      p_val_171 in varchar2,
2141      p_val_172 in varchar2,
2142      p_val_173 in varchar2,
2143      p_val_174 in varchar2,
2144      p_val_175 in varchar2,
2145      p_val_176 in varchar2,
2146      p_val_177 in varchar2,
2147      p_val_178 in varchar2,
2148      p_val_179 in varchar2,
2149      p_val_180 in varchar2,
2150      p_val_181 in varchar2,
2151      p_val_182 in varchar2,
2152      p_val_183 in varchar2,
2153      p_val_184 in varchar2,
2154      p_val_185 in varchar2,
2155      p_val_186 in varchar2,
2156      p_val_187 in varchar2,
2157      p_val_188 in varchar2,
2158      p_val_189 in varchar2,
2162      p_val_193 in varchar2,
2159      p_val_190 in varchar2,
2160      p_val_191 in varchar2,
2161      p_val_192 in varchar2,
2163      p_val_194 in varchar2,
2164      p_val_195 in varchar2,
2165      p_val_196 in varchar2,
2166      p_val_197 in varchar2,
2167      p_val_198 in varchar2,
2168      p_val_199 in varchar2,
2169      p_val_200 in varchar2,
2170      p_val_201 in varchar2,
2171      p_val_202 in varchar2,
2172      p_val_203 in varchar2,
2173      p_val_204 in varchar2,
2174      p_val_205 in varchar2,
2175      p_val_206 in varchar2,
2176      p_val_207 in varchar2,
2177      p_val_208 in varchar2,
2178      p_val_209 in varchar2,
2179      p_val_210 in varchar2,
2180      p_val_211 in varchar2,
2181      p_val_212 in varchar2,
2182      p_val_213 in varchar2,
2183      p_val_214 in varchar2,
2184      p_val_215 in varchar2,
2185      p_val_216 in varchar2,
2186      p_val_217 in varchar2,
2187      p_val_218 in varchar2,
2188      p_val_219 in varchar2,
2189      p_val_220 in varchar2,
2190      p_val_221 in varchar2,
2191      p_val_222 in varchar2,
2192      p_val_223 in varchar2,
2193      p_val_224 in varchar2,
2194      p_val_225 in varchar2,
2195      p_val_226 in varchar2,
2196      p_val_227 in varchar2,
2197      p_val_228 in varchar2,
2198      p_val_229 in varchar2,
2199      p_val_230 in varchar2,
2200      p_val_231 in varchar2,
2201      p_val_232 in varchar2,
2202      p_val_233 in varchar2,
2203      p_val_234 in varchar2,
2204      p_val_235 in varchar2,
2205      p_val_236 in varchar2,
2206      p_val_237 in varchar2,
2207      p_val_238 in varchar2,
2208      p_val_239 in varchar2,
2209      p_val_240 in varchar2,
2210      p_val_241 in varchar2,
2211      p_val_242 in varchar2,
2212      p_val_243 in varchar2,
2213      p_val_244 in varchar2,
2214      p_val_245 in varchar2,
2215      p_val_246 in varchar2,
2216      p_val_247 in varchar2,
2217      p_val_248 in varchar2,
2218      p_val_249 in varchar2,
2219      p_val_250 in varchar2,
2220      p_val_251 in varchar2,
2221      p_val_252 in varchar2,
2222      p_val_253 in varchar2,
2223      p_val_254 in varchar2,
2224      p_val_255 in varchar2,
2225      p_val_256 in varchar2,
2226      p_val_257 in varchar2,
2227      p_val_258 in varchar2,
2228      p_val_259 in varchar2,
2229      p_val_260 in varchar2,
2230      p_val_261 in varchar2,
2231      p_val_262 in varchar2,
2232      p_val_263 in varchar2,
2233      p_val_264 in varchar2,
2234      p_val_265 in varchar2,
2235      p_val_266 in varchar2,
2236      p_val_267 in varchar2,
2237      p_val_268 in varchar2,
2238      p_val_269 in varchar2,
2239      p_val_270 in varchar2,
2240      p_val_271 in varchar2,
2241      p_val_272 in varchar2,
2242      p_val_273 in varchar2,
2243      p_val_274 in varchar2,
2244      p_val_275 in varchar2,
2245      p_val_276 in varchar2,
2246      p_val_277 in varchar2,
2247      p_val_278 in varchar2,
2248      p_val_279 in varchar2,
2249      p_val_280 in varchar2,
2250      p_val_281 in varchar2,
2251      p_val_282 in varchar2,
2252      p_val_283 in varchar2,
2253      p_val_284 in varchar2,
2254      p_val_285 in varchar2,
2255      p_val_286 in varchar2,
2256      p_val_287 in varchar2,
2257      p_val_288 in varchar2,
2258      p_val_289 in varchar2,
2259      p_val_290 in varchar2,
2260      p_val_291 in varchar2,
2261      p_val_292 in varchar2,
2262      p_val_293 in varchar2,
2263      p_val_294 in varchar2,
2264      p_val_295 in varchar2,
2265      p_val_296 in varchar2,
2266      p_val_297 in varchar2,
2267      p_val_298 in varchar2,
2268      p_val_299 in varchar2,
2269      p_val_300 in varchar2,
2270      p_seq_num in number) is
2271 --
2272   l_proc     varchar2(72) := g_package||'load_arrays';
2273 --
2274 begin
2275 --
2276   hr_utility.set_location('Entering'||l_proc, 5);
2277 --
2278  g_val(01) := p_val_01;
2279  g_val(02) := p_val_02;
2280  g_val(03) := p_val_03;
2281  g_val(04) := p_val_04;
2282  g_val(05) := p_val_05;
2283  g_val(06) := p_val_06;
2284  g_val(07) := p_val_07;
2285  g_val(08) := p_val_08;
2286  g_val(09) := p_val_09;
2287  g_val(10) := p_val_10;
2288  g_val(11) := p_val_11;
2289  g_val(12) := p_val_12;
2290  g_val(13) := p_val_13;
2291  g_val(14) := p_val_14;
2292  g_val(15) := p_val_15;
2293  g_val(16) := p_val_16;
2294  g_val(17) := p_val_17;
2295  g_val(18) := p_val_18;
2296  g_val(19) := p_val_19;
2297  g_val(20) := p_val_20;
2298  g_val(21) := p_val_21;
2299  g_val(22) := p_val_22;
2300  g_val(23) := p_val_23;
2301  g_val(24) := p_val_24;
2302  g_val(25) := p_val_25;
2303  g_val(26) := p_val_26;
2304  g_val(27) := p_val_27;
2305  g_val(28) := p_val_28;
2306  g_val(29) := p_val_29;
2307  g_val(30) := p_val_30;
2308  g_val(31) := p_val_31;
2309  g_val(32) := p_val_32;
2310  g_val(33) := p_val_33;
2311  g_val(34) := p_val_34;
2312  g_val(35) := p_val_35;
2313  g_val(36) := p_val_36;
2314  g_val(37) := p_val_37;
2315  g_val(38) := p_val_38;
2316  g_val(39) := p_val_39;
2317  g_val(40) := p_val_40;
2318  g_val(41) := p_val_41;
2319  g_val(42) := p_val_42;
2320  g_val(43) := p_val_43;
2321  g_val(44) := p_val_44;
2322  g_val(45) := p_val_45;
2323  g_val(46) := p_val_46;
2324  g_val(47) := p_val_47;
2325  g_val(48) := p_val_48;
2326  g_val(49) := p_val_49;
2327  g_val(50) := p_val_50;
2328  g_val(51) := p_val_51;
2329  g_val(52) := p_val_52;
2330  g_val(53) := p_val_53;
2331  g_val(54) := p_val_54;
2332  g_val(55) := p_val_55;
2333  g_val(56) := p_val_56;
2337  g_val(60) := p_val_60;
2334  g_val(57) := p_val_57;
2335  g_val(58) := p_val_58;
2336  g_val(59) := p_val_59;
2338  g_val(61) := p_val_61;
2339  g_val(62) := p_val_62;
2340  g_val(63) := p_val_63;
2341  g_val(64) := p_val_64;
2342  g_val(65) := p_val_65;
2343  g_val(66) := p_val_66;
2344  g_val(67) := p_val_67;
2345  g_val(68) := p_val_68;
2346  g_val(69) := p_val_69;
2347  g_val(70) := p_val_70;
2348  g_val(71) := p_val_71;
2349  g_val(72) := p_val_72;
2350  g_val(73) := p_val_73;
2351  g_val(74) := p_val_74;
2352  g_val(75) := p_val_75;
2353  g_val(76) := p_val_76;
2354  g_val(77) := p_val_77;
2355  g_val(78) := p_val_78;
2356  g_val(79) := p_val_79;
2357  g_val(80) := p_val_80;
2358  g_val(81) := p_val_81;
2359  g_val(82) := p_val_82;
2360  g_val(83) := p_val_83;
2361  g_val(84) := p_val_84;
2362  g_val(85) := p_val_85;
2363  g_val(86) := p_val_86;
2364  g_val(87) := p_val_87;
2365  g_val(88) := p_val_88;
2366  g_val(89) := p_val_89;
2367  g_val(90) := p_val_90;
2368  g_val(91) := p_val_91;
2369  g_val(92) := p_val_92;
2370  g_val(93) := p_val_93;
2371  g_val(94) := p_val_94;
2372  g_val(95) := p_val_95;
2373  g_val(96) := p_val_96;
2374  g_val(97) := p_val_97;
2375  g_val(98) := p_val_98;
2376  g_val(99) := p_val_99;
2377  g_val(100) := p_val_100;
2378  g_val(101) := p_val_101;
2379  g_val(102) := p_val_102;
2380  g_val(103) := p_val_103;
2381  g_val(104) := p_val_104;
2382  g_val(105) := p_val_105;
2383  g_val(106) := p_val_106;
2384  g_val(107) := p_val_107;
2385  g_val(108) := p_val_108;
2386  g_val(109) := p_val_109;
2387  g_val(110) := p_val_110;
2388  g_val(111) := p_val_111;
2389  g_val(112) := p_val_112;
2390  g_val(113) := p_val_113;
2391  g_val(114) := p_val_114;
2392  g_val(115) := p_val_115;
2393  g_val(116) := p_val_116;
2394  g_val(117) := p_val_117;
2395  g_val(118) := p_val_118;
2396  g_val(119) := p_val_119;
2397  g_val(120) := p_val_120;
2398  g_val(121) := p_val_121;
2399  g_val(122) := p_val_122;
2400  g_val(123) := p_val_123;
2401  g_val(124) := p_val_124;
2402  g_val(125) := p_val_125;
2403  g_val(126) := p_val_126;
2404  g_val(127) := p_val_127;
2405  g_val(128) := p_val_128;
2406  g_val(129) := p_val_129;
2407  g_val(130) := p_val_130;
2408  g_val(131) := p_val_131;
2409  g_val(132) := p_val_132;
2410  g_val(133) := p_val_133;
2411  g_val(134) := p_val_134;
2412  g_val(135) := p_val_135;
2413  g_val(136) := p_val_136;
2414  g_val(137) := p_val_137;
2415  g_val(138) := p_val_138;
2416  g_val(139) := p_val_139;
2417  g_val(140) := p_val_140;
2418  g_val(141) := p_val_141;
2419  g_val(142) := p_val_142;
2420  g_val(143) := p_val_143;
2421  g_val(144) := p_val_144;
2422  g_val(145) := p_val_145;
2423  g_val(146) := p_val_146;
2424  g_val(147) := p_val_147;
2425  g_val(148) := p_val_148;
2426  g_val(149) := p_val_149;
2427  g_val(150) := p_val_150;
2428  g_val(151) := p_val_151;
2429  g_val(152) := p_val_152;
2430  g_val(153) := p_val_153;
2431  g_val(154) := p_val_154;
2432  g_val(155) := p_val_155;
2433  g_val(156) := p_val_156;
2434  g_val(157) := p_val_157;
2435  g_val(158) := p_val_158;
2436  g_val(159) := p_val_159;
2437  g_val(160) := p_val_160;
2438  g_val(161) := p_val_161;
2439  g_val(162) := p_val_162;
2440  g_val(163) := p_val_163;
2441  g_val(164) := p_val_164;
2442  g_val(165) := p_val_165;
2443  g_val(166) := p_val_166;
2444  g_val(167) := p_val_167;
2445  g_val(168) := p_val_168;
2446  g_val(169) := p_val_169;
2447  g_val(170) := p_val_170;
2448  g_val(171) := p_val_171;
2449  g_val(172) := p_val_172;
2450  g_val(173) := p_val_173;
2451  g_val(174) := p_val_174;
2452  g_val(175) := p_val_175;
2453  g_val(176) := p_val_176;
2454  g_val(177) := p_val_177;
2455  g_val(178) := p_val_178;
2456  g_val(179) := p_val_179;
2457  g_val(180) := p_val_180;
2458  g_val(181) := p_val_181;
2459  g_val(182) := p_val_182;
2460  g_val(183) := p_val_183;
2461  g_val(184) := p_val_184;
2462  g_val(185) := p_val_185;
2463  g_val(186) := p_val_186;
2464  g_val(187) := p_val_187;
2465  g_val(188) := p_val_188;
2466  g_val(189) := p_val_189;
2467  g_val(190) := p_val_190;
2468  g_val(191) := p_val_191;
2469  g_val(192) := p_val_192;
2470  g_val(193) := p_val_193;
2471  g_val(194) := p_val_194;
2472  g_val(195) := p_val_195;
2473  g_val(196) := p_val_196;
2474  g_val(197) := p_val_197;
2475  g_val(198) := p_val_198;
2476  g_val(199) := p_val_199;
2477  g_val(200) := p_val_200;
2478  g_val(201) := p_val_201;
2479  g_val(202) := p_val_202;
2480  g_val(203) := p_val_203;
2481  g_val(204) := p_val_204;
2482  g_val(205) := p_val_205;
2483  g_val(206) := p_val_206;
2484  g_val(207) := p_val_207;
2485  g_val(208) := p_val_208;
2486  g_val(209) := p_val_209;
2487  g_val(210) := p_val_210;
2488  g_val(211) := p_val_211;
2489  g_val(212) := p_val_212;
2490  g_val(213) := p_val_213;
2491  g_val(214) := p_val_214;
2492  g_val(215) := p_val_215;
2493  g_val(216) := p_val_216;
2494  g_val(217) := p_val_217;
2495  g_val(218) := p_val_218;
2496  g_val(219) := p_val_219;
2497  g_val(220) := p_val_220;
2498  g_val(221) := p_val_221;
2499  g_val(222) := p_val_222;
2500  g_val(223) := p_val_223;
2501  g_val(224) := p_val_224;
2502  g_val(225) := p_val_225;
2503  g_val(226) := p_val_226;
2504  g_val(227) := p_val_227;
2505  g_val(228) := p_val_228;
2506  g_val(229) := p_val_229;
2507  g_val(230) := p_val_230;
2508  g_val(231) := p_val_231;
2509  g_val(232) := p_val_232;
2513  g_val(236) := p_val_236;
2510  g_val(233) := p_val_233;
2511  g_val(234) := p_val_234;
2512  g_val(235) := p_val_235;
2514  g_val(237) := p_val_237;
2515  g_val(238) := p_val_238;
2516  g_val(239) := p_val_239;
2517  g_val(240) := p_val_240;
2518  g_val(241) := p_val_241;
2519  g_val(242) := p_val_242;
2520  g_val(243) := p_val_243;
2521  g_val(244) := p_val_244;
2522  g_val(245) := p_val_245;
2523  g_val(246) := p_val_246;
2524  g_val(247) := p_val_247;
2525  g_val(248) := p_val_248;
2526  g_val(249) := p_val_249;
2527  g_val(250) := p_val_250;
2528  g_val(251) := p_val_251;
2529  g_val(252) := p_val_252;
2530  g_val(253) := p_val_253;
2531  g_val(254) := p_val_254;
2532  g_val(255) := p_val_255;
2533  g_val(256) := p_val_256;
2534  g_val(257) := p_val_257;
2535  g_val(258) := p_val_258;
2536  g_val(259) := p_val_259;
2537  g_val(260) := p_val_260;
2538  g_val(261) := p_val_261;
2539  g_val(262) := p_val_262;
2540  g_val(263) := p_val_263;
2541  g_val(264) := p_val_264;
2542  g_val(265) := p_val_265;
2543  g_val(266) := p_val_266;
2544  g_val(267) := p_val_267;
2545  g_val(268) := p_val_268;
2546  g_val(269) := p_val_269;
2547  g_val(270) := p_val_270;
2548  g_val(271) := p_val_271;
2549  g_val(272) := p_val_272;
2550  g_val(273) := p_val_273;
2551  g_val(274) := p_val_274;
2552  g_val(275) := p_val_275;
2553  g_val(276) := p_val_276;
2554  g_val(277) := p_val_277;
2555  g_val(278) := p_val_278;
2556  g_val(279) := p_val_279;
2557  g_val(280) := p_val_280;
2558  g_val(281) := p_val_281;
2559  g_val(282) := p_val_282;
2560  g_val(283) := p_val_283;
2561  g_val(284) := p_val_284;
2562  g_val(285) := p_val_285;
2563  g_val(286) := p_val_286;
2564  g_val(287) := p_val_287;
2565  g_val(288) := p_val_288;
2566  g_val(289) := p_val_289;
2567  g_val(290) := p_val_290;
2568  g_val(291) := p_val_291;
2569  g_val(292) := p_val_292;
2570  g_val(293) := p_val_293;
2571  g_val(294) := p_val_294;
2572  g_val(295) := p_val_295;
2573  g_val(296) := p_val_296;
2574  g_val(297) := p_val_297;
2575  g_val(298) := p_val_298;
2576  g_val(299) := p_val_299;
2577  g_val(300) := p_val_300;
2578 --
2579 --test to make sure this is only called once per record
2580  if not g_array.exists(p_seq_num) then
2581     load_strt_pos(p_ext_rcd_id,p_seq_num);
2582  end if;
2583  --
2584  --only perform this if we are on a record different from the last record.
2585   if g_last_rcd_processed is null or g_last_rcd_processed <> p_ext_rcd_id then
2586     --
2587     g_strt_pos(01) := g_array(p_seq_num).strt_pos_01;
2588     g_strt_pos(02) := g_array(p_seq_num).strt_pos_02;
2589     g_strt_pos(03) := g_array(p_seq_num).strt_pos_03;
2590     g_strt_pos(04) := g_array(p_seq_num).strt_pos_04;
2591     g_strt_pos(05) := g_array(p_seq_num).strt_pos_05;
2592     g_strt_pos(06) := g_array(p_seq_num).strt_pos_06;
2593     g_strt_pos(07) := g_array(p_seq_num).strt_pos_07;
2594     g_strt_pos(08) := g_array(p_seq_num).strt_pos_08;
2595     g_strt_pos(09) := g_array(p_seq_num).strt_pos_09;
2596     g_strt_pos(10) := g_array(p_seq_num).strt_pos_10;
2597     g_strt_pos(11) := g_array(p_seq_num).strt_pos_11;
2598     g_strt_pos(12) := g_array(p_seq_num).strt_pos_12;
2599     g_strt_pos(13) := g_array(p_seq_num).strt_pos_13;
2600     g_strt_pos(14) := g_array(p_seq_num).strt_pos_14;
2601     g_strt_pos(15) := g_array(p_seq_num).strt_pos_15;
2602     g_strt_pos(16) := g_array(p_seq_num).strt_pos_16;
2603     g_strt_pos(17) := g_array(p_seq_num).strt_pos_17;
2604     g_strt_pos(18) := g_array(p_seq_num).strt_pos_18;
2605     g_strt_pos(19) := g_array(p_seq_num).strt_pos_19;
2606     g_strt_pos(20) := g_array(p_seq_num).strt_pos_20;
2607     g_strt_pos(21) := g_array(p_seq_num).strt_pos_21;
2608     g_strt_pos(22) := g_array(p_seq_num).strt_pos_22;
2609     g_strt_pos(23) := g_array(p_seq_num).strt_pos_23;
2610     g_strt_pos(24) := g_array(p_seq_num).strt_pos_24;
2611     g_strt_pos(25) := g_array(p_seq_num).strt_pos_25;
2612     g_strt_pos(26) := g_array(p_seq_num).strt_pos_26;
2613     g_strt_pos(27) := g_array(p_seq_num).strt_pos_27;
2614     g_strt_pos(28) := g_array(p_seq_num).strt_pos_28;
2615     g_strt_pos(29) := g_array(p_seq_num).strt_pos_29;
2616     g_strt_pos(30) := g_array(p_seq_num).strt_pos_30;
2617     g_strt_pos(31) := g_array(p_seq_num).strt_pos_31;
2618     g_strt_pos(32) := g_array(p_seq_num).strt_pos_32;
2619     g_strt_pos(33) := g_array(p_seq_num).strt_pos_33;
2620     g_strt_pos(34) := g_array(p_seq_num).strt_pos_34;
2621     g_strt_pos(35) := g_array(p_seq_num).strt_pos_35;
2622     g_strt_pos(36) := g_array(p_seq_num).strt_pos_36;
2623     g_strt_pos(37) := g_array(p_seq_num).strt_pos_37;
2624     g_strt_pos(38) := g_array(p_seq_num).strt_pos_38;
2625     g_strt_pos(39) := g_array(p_seq_num).strt_pos_39;
2626     g_strt_pos(40) := g_array(p_seq_num).strt_pos_40;
2627     g_strt_pos(41) := g_array(p_seq_num).strt_pos_41;
2628     g_strt_pos(42) := g_array(p_seq_num).strt_pos_42;
2629     g_strt_pos(43) := g_array(p_seq_num).strt_pos_43;
2630     g_strt_pos(44) := g_array(p_seq_num).strt_pos_44;
2631     g_strt_pos(45) := g_array(p_seq_num).strt_pos_45;
2632     g_strt_pos(46) := g_array(p_seq_num).strt_pos_46;
2633     g_strt_pos(47) := g_array(p_seq_num).strt_pos_47;
2634     g_strt_pos(48) := g_array(p_seq_num).strt_pos_48;
2635     g_strt_pos(49) := g_array(p_seq_num).strt_pos_49;
2636     g_strt_pos(50) := g_array(p_seq_num).strt_pos_50;
2637     g_strt_pos(51) := g_array(p_seq_num).strt_pos_51;
2638     g_strt_pos(52) := g_array(p_seq_num).strt_pos_52;
2639     g_strt_pos(53) := g_array(p_seq_num).strt_pos_53;
2640     g_strt_pos(54) := g_array(p_seq_num).strt_pos_54;
2641     g_strt_pos(55) := g_array(p_seq_num).strt_pos_55;
2645     g_strt_pos(59) := g_array(p_seq_num).strt_pos_59;
2642     g_strt_pos(56) := g_array(p_seq_num).strt_pos_56;
2643     g_strt_pos(57) := g_array(p_seq_num).strt_pos_57;
2644     g_strt_pos(58) := g_array(p_seq_num).strt_pos_58;
2646     g_strt_pos(60) := g_array(p_seq_num).strt_pos_60;
2647     g_strt_pos(61) := g_array(p_seq_num).strt_pos_61;
2648     g_strt_pos(62) := g_array(p_seq_num).strt_pos_62;
2649     g_strt_pos(63) := g_array(p_seq_num).strt_pos_63;
2650     g_strt_pos(64) := g_array(p_seq_num).strt_pos_64;
2651     g_strt_pos(65) := g_array(p_seq_num).strt_pos_65;
2652     g_strt_pos(66) := g_array(p_seq_num).strt_pos_66;
2653     g_strt_pos(67) := g_array(p_seq_num).strt_pos_67;
2654     g_strt_pos(68) := g_array(p_seq_num).strt_pos_68;
2655     g_strt_pos(69) := g_array(p_seq_num).strt_pos_69;
2656     g_strt_pos(70) := g_array(p_seq_num).strt_pos_70;
2657     g_strt_pos(71) := g_array(p_seq_num).strt_pos_71;
2658     g_strt_pos(72) := g_array(p_seq_num).strt_pos_72;
2659     g_strt_pos(73) := g_array(p_seq_num).strt_pos_73;
2660     g_strt_pos(74) := g_array(p_seq_num).strt_pos_74;
2661     g_strt_pos(75) := g_array(p_seq_num).strt_pos_75;
2662     g_strt_pos(76) := g_array(p_seq_num).strt_pos_76;
2663     g_strt_pos(77) := g_array(p_seq_num).strt_pos_77;
2664     g_strt_pos(78) := g_array(p_seq_num).strt_pos_78;
2665     g_strt_pos(79) := g_array(p_seq_num).strt_pos_79;
2666     g_strt_pos(80) := g_array(p_seq_num).strt_pos_80;
2667     g_strt_pos(81) := g_array(p_seq_num).strt_pos_81;
2668     g_strt_pos(82) := g_array(p_seq_num).strt_pos_82;
2669     g_strt_pos(83) := g_array(p_seq_num).strt_pos_83;
2670     g_strt_pos(84) := g_array(p_seq_num).strt_pos_84;
2671     g_strt_pos(85) := g_array(p_seq_num).strt_pos_85;
2672     g_strt_pos(86) := g_array(p_seq_num).strt_pos_86;
2673     g_strt_pos(87) := g_array(p_seq_num).strt_pos_87;
2674     g_strt_pos(88) := g_array(p_seq_num).strt_pos_88;
2675     g_strt_pos(89) := g_array(p_seq_num).strt_pos_89;
2676     g_strt_pos(90) := g_array(p_seq_num).strt_pos_90;
2677     g_strt_pos(91) := g_array(p_seq_num).strt_pos_91;
2678     g_strt_pos(92) := g_array(p_seq_num).strt_pos_92;
2679     g_strt_pos(93) := g_array(p_seq_num).strt_pos_93;
2680     g_strt_pos(94) := g_array(p_seq_num).strt_pos_94;
2681     g_strt_pos(95) := g_array(p_seq_num).strt_pos_95;
2682     g_strt_pos(96) := g_array(p_seq_num).strt_pos_96;
2683     g_strt_pos(97) := g_array(p_seq_num).strt_pos_97;
2684     g_strt_pos(98) := g_array(p_seq_num).strt_pos_98;
2685     g_strt_pos(99) := g_array(p_seq_num).strt_pos_99;
2686     g_strt_pos(100) := g_array(p_seq_num).strt_pos_100;
2687     g_strt_pos(101) := g_array(p_seq_num).strt_pos_101;
2688     g_strt_pos(102) := g_array(p_seq_num).strt_pos_102;
2689     g_strt_pos(103) := g_array(p_seq_num).strt_pos_103;
2690     g_strt_pos(104) := g_array(p_seq_num).strt_pos_104;
2691     g_strt_pos(105) := g_array(p_seq_num).strt_pos_105;
2692     g_strt_pos(106) := g_array(p_seq_num).strt_pos_106;
2693     g_strt_pos(107) := g_array(p_seq_num).strt_pos_107;
2694     g_strt_pos(108) := g_array(p_seq_num).strt_pos_108;
2695     g_strt_pos(109) := g_array(p_seq_num).strt_pos_109;
2696     g_strt_pos(110) := g_array(p_seq_num).strt_pos_110;
2697     g_strt_pos(111) := g_array(p_seq_num).strt_pos_111;
2698     g_strt_pos(112) := g_array(p_seq_num).strt_pos_112;
2699     g_strt_pos(113) := g_array(p_seq_num).strt_pos_113;
2700     g_strt_pos(114) := g_array(p_seq_num).strt_pos_114;
2701     g_strt_pos(115) := g_array(p_seq_num).strt_pos_115;
2702     g_strt_pos(116) := g_array(p_seq_num).strt_pos_116;
2703     g_strt_pos(117) := g_array(p_seq_num).strt_pos_117;
2704     g_strt_pos(118) := g_array(p_seq_num).strt_pos_118;
2705     g_strt_pos(119) := g_array(p_seq_num).strt_pos_119;
2706     g_strt_pos(120) := g_array(p_seq_num).strt_pos_120;
2707     g_strt_pos(121) := g_array(p_seq_num).strt_pos_121;
2708     g_strt_pos(122) := g_array(p_seq_num).strt_pos_122;
2709     g_strt_pos(123) := g_array(p_seq_num).strt_pos_123;
2710     g_strt_pos(124) := g_array(p_seq_num).strt_pos_124;
2711     g_strt_pos(125) := g_array(p_seq_num).strt_pos_125;
2712     g_strt_pos(126) := g_array(p_seq_num).strt_pos_126;
2713     g_strt_pos(127) := g_array(p_seq_num).strt_pos_127;
2714     g_strt_pos(128) := g_array(p_seq_num).strt_pos_128;
2715     g_strt_pos(129) := g_array(p_seq_num).strt_pos_129;
2716     g_strt_pos(130) := g_array(p_seq_num).strt_pos_130;
2717     g_strt_pos(131) := g_array(p_seq_num).strt_pos_131;
2718     g_strt_pos(132) := g_array(p_seq_num).strt_pos_132;
2719     g_strt_pos(133) := g_array(p_seq_num).strt_pos_133;
2720     g_strt_pos(134) := g_array(p_seq_num).strt_pos_134;
2721     g_strt_pos(135) := g_array(p_seq_num).strt_pos_135;
2722     g_strt_pos(136) := g_array(p_seq_num).strt_pos_136;
2723     g_strt_pos(137) := g_array(p_seq_num).strt_pos_137;
2724     g_strt_pos(138) := g_array(p_seq_num).strt_pos_138;
2725     g_strt_pos(139) := g_array(p_seq_num).strt_pos_139;
2726     g_strt_pos(140) := g_array(p_seq_num).strt_pos_140;
2727     g_strt_pos(141) := g_array(p_seq_num).strt_pos_141;
2728     g_strt_pos(142) := g_array(p_seq_num).strt_pos_142;
2729     g_strt_pos(143) := g_array(p_seq_num).strt_pos_143;
2730     g_strt_pos(144) := g_array(p_seq_num).strt_pos_144;
2731     g_strt_pos(145) := g_array(p_seq_num).strt_pos_145;
2732     g_strt_pos(146) := g_array(p_seq_num).strt_pos_146;
2733     g_strt_pos(147) := g_array(p_seq_num).strt_pos_147;
2734     g_strt_pos(148) := g_array(p_seq_num).strt_pos_148;
2735     g_strt_pos(149) := g_array(p_seq_num).strt_pos_149;
2736     g_strt_pos(150) := g_array(p_seq_num).strt_pos_150;
2737     g_strt_pos(151) := g_array(p_seq_num).strt_pos_151;
2738     g_strt_pos(152) := g_array(p_seq_num).strt_pos_152;
2739     g_strt_pos(153) := g_array(p_seq_num).strt_pos_153;
2740     g_strt_pos(154) := g_array(p_seq_num).strt_pos_154;
2741     g_strt_pos(155) := g_array(p_seq_num).strt_pos_155;
2742     g_strt_pos(156) := g_array(p_seq_num).strt_pos_156;
2746     g_strt_pos(160) := g_array(p_seq_num).strt_pos_160;
2743     g_strt_pos(157) := g_array(p_seq_num).strt_pos_157;
2744     g_strt_pos(158) := g_array(p_seq_num).strt_pos_158;
2745     g_strt_pos(159) := g_array(p_seq_num).strt_pos_159;
2747     g_strt_pos(161) := g_array(p_seq_num).strt_pos_161;
2748     g_strt_pos(162) := g_array(p_seq_num).strt_pos_162;
2749     g_strt_pos(163) := g_array(p_seq_num).strt_pos_163;
2750     g_strt_pos(164) := g_array(p_seq_num).strt_pos_164;
2751     g_strt_pos(165) := g_array(p_seq_num).strt_pos_165;
2752     g_strt_pos(166) := g_array(p_seq_num).strt_pos_166;
2753     g_strt_pos(167) := g_array(p_seq_num).strt_pos_167;
2754     g_strt_pos(168) := g_array(p_seq_num).strt_pos_168;
2755     g_strt_pos(169) := g_array(p_seq_num).strt_pos_169;
2756     g_strt_pos(170) := g_array(p_seq_num).strt_pos_170;
2757     g_strt_pos(171) := g_array(p_seq_num).strt_pos_171;
2758     g_strt_pos(172) := g_array(p_seq_num).strt_pos_172;
2759     g_strt_pos(173) := g_array(p_seq_num).strt_pos_173;
2760     g_strt_pos(174) := g_array(p_seq_num).strt_pos_174;
2761     g_strt_pos(175) := g_array(p_seq_num).strt_pos_175;
2762     g_strt_pos(176) := g_array(p_seq_num).strt_pos_176;
2763     g_strt_pos(177) := g_array(p_seq_num).strt_pos_177;
2764     g_strt_pos(178) := g_array(p_seq_num).strt_pos_178;
2765     g_strt_pos(179) := g_array(p_seq_num).strt_pos_179;
2766     g_strt_pos(180) := g_array(p_seq_num).strt_pos_180;
2767     g_strt_pos(181) := g_array(p_seq_num).strt_pos_181;
2768     g_strt_pos(182) := g_array(p_seq_num).strt_pos_182;
2769     g_strt_pos(183) := g_array(p_seq_num).strt_pos_183;
2770     g_strt_pos(184) := g_array(p_seq_num).strt_pos_184;
2771     g_strt_pos(185) := g_array(p_seq_num).strt_pos_185;
2772     g_strt_pos(186) := g_array(p_seq_num).strt_pos_186;
2773     g_strt_pos(187) := g_array(p_seq_num).strt_pos_187;
2774     g_strt_pos(188) := g_array(p_seq_num).strt_pos_188;
2775     g_strt_pos(189) := g_array(p_seq_num).strt_pos_189;
2776     g_strt_pos(190) := g_array(p_seq_num).strt_pos_190;
2777     g_strt_pos(191) := g_array(p_seq_num).strt_pos_191;
2778     g_strt_pos(192) := g_array(p_seq_num).strt_pos_192;
2779     g_strt_pos(193) := g_array(p_seq_num).strt_pos_193;
2780     g_strt_pos(194) := g_array(p_seq_num).strt_pos_194;
2781     g_strt_pos(195) := g_array(p_seq_num).strt_pos_195;
2782     g_strt_pos(196) := g_array(p_seq_num).strt_pos_196;
2783     g_strt_pos(197) := g_array(p_seq_num).strt_pos_197;
2784     g_strt_pos(198) := g_array(p_seq_num).strt_pos_198;
2785     g_strt_pos(199) := g_array(p_seq_num).strt_pos_199;
2786     g_strt_pos(200) := g_array(p_seq_num).strt_pos_200;
2787     g_strt_pos(201) := g_array(p_seq_num).strt_pos_201;
2788     g_strt_pos(202) := g_array(p_seq_num).strt_pos_202;
2789     g_strt_pos(203) := g_array(p_seq_num).strt_pos_203;
2790     g_strt_pos(204) := g_array(p_seq_num).strt_pos_204;
2791     g_strt_pos(205) := g_array(p_seq_num).strt_pos_205;
2792     g_strt_pos(206) := g_array(p_seq_num).strt_pos_206;
2793     g_strt_pos(207) := g_array(p_seq_num).strt_pos_207;
2794     g_strt_pos(208) := g_array(p_seq_num).strt_pos_208;
2795     g_strt_pos(209) := g_array(p_seq_num).strt_pos_209;
2796     g_strt_pos(210) := g_array(p_seq_num).strt_pos_210;
2797     g_strt_pos(211) := g_array(p_seq_num).strt_pos_211;
2798     g_strt_pos(212) := g_array(p_seq_num).strt_pos_212;
2799     g_strt_pos(213) := g_array(p_seq_num).strt_pos_213;
2800     g_strt_pos(214) := g_array(p_seq_num).strt_pos_214;
2801     g_strt_pos(215) := g_array(p_seq_num).strt_pos_215;
2802     g_strt_pos(216) := g_array(p_seq_num).strt_pos_216;
2803     g_strt_pos(217) := g_array(p_seq_num).strt_pos_217;
2804     g_strt_pos(218) := g_array(p_seq_num).strt_pos_218;
2805     g_strt_pos(219) := g_array(p_seq_num).strt_pos_219;
2806     g_strt_pos(220) := g_array(p_seq_num).strt_pos_220;
2807     g_strt_pos(221) := g_array(p_seq_num).strt_pos_221;
2808     g_strt_pos(222) := g_array(p_seq_num).strt_pos_222;
2809     g_strt_pos(223) := g_array(p_seq_num).strt_pos_223;
2810     g_strt_pos(224) := g_array(p_seq_num).strt_pos_224;
2811     g_strt_pos(225) := g_array(p_seq_num).strt_pos_225;
2812     g_strt_pos(226) := g_array(p_seq_num).strt_pos_226;
2813     g_strt_pos(227) := g_array(p_seq_num).strt_pos_227;
2814     g_strt_pos(228) := g_array(p_seq_num).strt_pos_228;
2815     g_strt_pos(229) := g_array(p_seq_num).strt_pos_229;
2816     g_strt_pos(230) := g_array(p_seq_num).strt_pos_230;
2817     g_strt_pos(231) := g_array(p_seq_num).strt_pos_231;
2818     g_strt_pos(232) := g_array(p_seq_num).strt_pos_232;
2819     g_strt_pos(233) := g_array(p_seq_num).strt_pos_233;
2820     g_strt_pos(234) := g_array(p_seq_num).strt_pos_234;
2821     g_strt_pos(235) := g_array(p_seq_num).strt_pos_235;
2822     g_strt_pos(236) := g_array(p_seq_num).strt_pos_236;
2823     g_strt_pos(237) := g_array(p_seq_num).strt_pos_237;
2824     g_strt_pos(238) := g_array(p_seq_num).strt_pos_238;
2825     g_strt_pos(239) := g_array(p_seq_num).strt_pos_239;
2826     g_strt_pos(240) := g_array(p_seq_num).strt_pos_240;
2827     g_strt_pos(241) := g_array(p_seq_num).strt_pos_241;
2828     g_strt_pos(242) := g_array(p_seq_num).strt_pos_242;
2829     g_strt_pos(243) := g_array(p_seq_num).strt_pos_243;
2830     g_strt_pos(244) := g_array(p_seq_num).strt_pos_244;
2831     g_strt_pos(245) := g_array(p_seq_num).strt_pos_245;
2832     g_strt_pos(246) := g_array(p_seq_num).strt_pos_246;
2833     g_strt_pos(247) := g_array(p_seq_num).strt_pos_247;
2834     g_strt_pos(248) := g_array(p_seq_num).strt_pos_248;
2835     g_strt_pos(249) := g_array(p_seq_num).strt_pos_249;
2836     g_strt_pos(250) := g_array(p_seq_num).strt_pos_250;
2837     g_strt_pos(251) := g_array(p_seq_num).strt_pos_251;
2838     g_strt_pos(252) := g_array(p_seq_num).strt_pos_252;
2839     g_strt_pos(253) := g_array(p_seq_num).strt_pos_253;
2840     g_strt_pos(254) := g_array(p_seq_num).strt_pos_254;
2841     g_strt_pos(255) := g_array(p_seq_num).strt_pos_255;
2842     g_strt_pos(256) := g_array(p_seq_num).strt_pos_256;
2843     g_strt_pos(257) := g_array(p_seq_num).strt_pos_257;
2844     g_strt_pos(258) := g_array(p_seq_num).strt_pos_258;
2848     g_strt_pos(262) := g_array(p_seq_num).strt_pos_262;
2845     g_strt_pos(259) := g_array(p_seq_num).strt_pos_259;
2846     g_strt_pos(260) := g_array(p_seq_num).strt_pos_260;
2847     g_strt_pos(261) := g_array(p_seq_num).strt_pos_261;
2849     g_strt_pos(263) := g_array(p_seq_num).strt_pos_263;
2850     g_strt_pos(264) := g_array(p_seq_num).strt_pos_264;
2851     g_strt_pos(265) := g_array(p_seq_num).strt_pos_265;
2852     g_strt_pos(266) := g_array(p_seq_num).strt_pos_266;
2853     g_strt_pos(267) := g_array(p_seq_num).strt_pos_267;
2854     g_strt_pos(268) := g_array(p_seq_num).strt_pos_268;
2855     g_strt_pos(269) := g_array(p_seq_num).strt_pos_269;
2856     g_strt_pos(270) := g_array(p_seq_num).strt_pos_270;
2857     g_strt_pos(271) := g_array(p_seq_num).strt_pos_271;
2858     g_strt_pos(272) := g_array(p_seq_num).strt_pos_272;
2859     g_strt_pos(273) := g_array(p_seq_num).strt_pos_273;
2860     g_strt_pos(274) := g_array(p_seq_num).strt_pos_274;
2861     g_strt_pos(275) := g_array(p_seq_num).strt_pos_275;
2862     g_strt_pos(276) := g_array(p_seq_num).strt_pos_276;
2863     g_strt_pos(277) := g_array(p_seq_num).strt_pos_277;
2864     g_strt_pos(278) := g_array(p_seq_num).strt_pos_278;
2865     g_strt_pos(279) := g_array(p_seq_num).strt_pos_279;
2866     g_strt_pos(280) := g_array(p_seq_num).strt_pos_280;
2867     g_strt_pos(281) := g_array(p_seq_num).strt_pos_281;
2868     g_strt_pos(282) := g_array(p_seq_num).strt_pos_282;
2869     g_strt_pos(283) := g_array(p_seq_num).strt_pos_283;
2870     g_strt_pos(284) := g_array(p_seq_num).strt_pos_284;
2871     g_strt_pos(285) := g_array(p_seq_num).strt_pos_285;
2872     g_strt_pos(286) := g_array(p_seq_num).strt_pos_286;
2873     g_strt_pos(287) := g_array(p_seq_num).strt_pos_287;
2874     g_strt_pos(288) := g_array(p_seq_num).strt_pos_288;
2875     g_strt_pos(289) := g_array(p_seq_num).strt_pos_289;
2876     g_strt_pos(290) := g_array(p_seq_num).strt_pos_290;
2877     g_strt_pos(291) := g_array(p_seq_num).strt_pos_291;
2878     g_strt_pos(292) := g_array(p_seq_num).strt_pos_292;
2879     g_strt_pos(293) := g_array(p_seq_num).strt_pos_293;
2880     g_strt_pos(294) := g_array(p_seq_num).strt_pos_294;
2881     g_strt_pos(295) := g_array(p_seq_num).strt_pos_295;
2882     g_strt_pos(296) := g_array(p_seq_num).strt_pos_296;
2883     g_strt_pos(297) := g_array(p_seq_num).strt_pos_297;
2884     g_strt_pos(298) := g_array(p_seq_num).strt_pos_298;
2885     g_strt_pos(299) := g_array(p_seq_num).strt_pos_299;
2886     g_strt_pos(300) := g_array(p_seq_num).strt_pos_300;
2887     --
2888     g_dlmtr_val(01) := g_array(p_seq_num).dlmtr_val_01;
2889     g_dlmtr_val(02) := g_array(p_seq_num).dlmtr_val_02;
2890     g_dlmtr_val(03) := g_array(p_seq_num).dlmtr_val_03;
2891     g_dlmtr_val(04) := g_array(p_seq_num).dlmtr_val_04;
2892     g_dlmtr_val(05) := g_array(p_seq_num).dlmtr_val_05;
2893     g_dlmtr_val(06) := g_array(p_seq_num).dlmtr_val_06;
2894     g_dlmtr_val(07) := g_array(p_seq_num).dlmtr_val_07;
2895     g_dlmtr_val(08) := g_array(p_seq_num).dlmtr_val_08;
2896     g_dlmtr_val(09) := g_array(p_seq_num).dlmtr_val_09;
2897     g_dlmtr_val(10) := g_array(p_seq_num).dlmtr_val_10;
2898     g_dlmtr_val(11) := g_array(p_seq_num).dlmtr_val_11;
2899     g_dlmtr_val(12) := g_array(p_seq_num).dlmtr_val_12;
2900     g_dlmtr_val(13) := g_array(p_seq_num).dlmtr_val_13;
2901     g_dlmtr_val(14) := g_array(p_seq_num).dlmtr_val_14;
2902     g_dlmtr_val(15) := g_array(p_seq_num).dlmtr_val_15;
2903     g_dlmtr_val(16) := g_array(p_seq_num).dlmtr_val_16;
2904     g_dlmtr_val(17) := g_array(p_seq_num).dlmtr_val_17;
2905     g_dlmtr_val(18) := g_array(p_seq_num).dlmtr_val_18;
2906     g_dlmtr_val(19) := g_array(p_seq_num).dlmtr_val_19;
2907     g_dlmtr_val(20) := g_array(p_seq_num).dlmtr_val_20;
2908     g_dlmtr_val(21) := g_array(p_seq_num).dlmtr_val_21;
2909     g_dlmtr_val(22) := g_array(p_seq_num).dlmtr_val_22;
2910     g_dlmtr_val(23) := g_array(p_seq_num).dlmtr_val_23;
2911     g_dlmtr_val(24) := g_array(p_seq_num).dlmtr_val_24;
2912     g_dlmtr_val(25) := g_array(p_seq_num).dlmtr_val_25;
2913     g_dlmtr_val(26) := g_array(p_seq_num).dlmtr_val_26;
2914     g_dlmtr_val(27) := g_array(p_seq_num).dlmtr_val_27;
2915     g_dlmtr_val(28) := g_array(p_seq_num).dlmtr_val_28;
2916     g_dlmtr_val(29) := g_array(p_seq_num).dlmtr_val_29;
2917     g_dlmtr_val(30) := g_array(p_seq_num).dlmtr_val_30;
2918     g_dlmtr_val(31) := g_array(p_seq_num).dlmtr_val_31;
2919     g_dlmtr_val(32) := g_array(p_seq_num).dlmtr_val_32;
2920     g_dlmtr_val(33) := g_array(p_seq_num).dlmtr_val_33;
2921     g_dlmtr_val(34) := g_array(p_seq_num).dlmtr_val_34;
2922     g_dlmtr_val(35) := g_array(p_seq_num).dlmtr_val_35;
2923     g_dlmtr_val(36) := g_array(p_seq_num).dlmtr_val_36;
2924     g_dlmtr_val(37) := g_array(p_seq_num).dlmtr_val_37;
2925     g_dlmtr_val(38) := g_array(p_seq_num).dlmtr_val_38;
2926     g_dlmtr_val(39) := g_array(p_seq_num).dlmtr_val_39;
2927     g_dlmtr_val(40) := g_array(p_seq_num).dlmtr_val_40;
2928     g_dlmtr_val(41) := g_array(p_seq_num).dlmtr_val_41;
2929     g_dlmtr_val(42) := g_array(p_seq_num).dlmtr_val_42;
2930     g_dlmtr_val(43) := g_array(p_seq_num).dlmtr_val_43;
2931     g_dlmtr_val(44) := g_array(p_seq_num).dlmtr_val_44;
2932     g_dlmtr_val(45) := g_array(p_seq_num).dlmtr_val_45;
2933     g_dlmtr_val(46) := g_array(p_seq_num).dlmtr_val_46;
2934     g_dlmtr_val(47) := g_array(p_seq_num).dlmtr_val_47;
2935     g_dlmtr_val(48) := g_array(p_seq_num).dlmtr_val_48;
2936     g_dlmtr_val(49) := g_array(p_seq_num).dlmtr_val_49;
2937     g_dlmtr_val(50) := g_array(p_seq_num).dlmtr_val_50;
2938     g_dlmtr_val(51) := g_array(p_seq_num).dlmtr_val_51;
2939     g_dlmtr_val(52) := g_array(p_seq_num).dlmtr_val_52;
2940     g_dlmtr_val(53) := g_array(p_seq_num).dlmtr_val_53;
2941     g_dlmtr_val(54) := g_array(p_seq_num).dlmtr_val_54;
2942     g_dlmtr_val(55) := g_array(p_seq_num).dlmtr_val_55;
2943     g_dlmtr_val(56) := g_array(p_seq_num).dlmtr_val_56;
2944     g_dlmtr_val(57) := g_array(p_seq_num).dlmtr_val_57;
2945     g_dlmtr_val(58) := g_array(p_seq_num).dlmtr_val_58;
2946     g_dlmtr_val(59) := g_array(p_seq_num).dlmtr_val_59;
2950     g_dlmtr_val(63) := g_array(p_seq_num).dlmtr_val_63;
2947     g_dlmtr_val(60) := g_array(p_seq_num).dlmtr_val_60;
2948     g_dlmtr_val(61) := g_array(p_seq_num).dlmtr_val_61;
2949     g_dlmtr_val(62) := g_array(p_seq_num).dlmtr_val_62;
2951     g_dlmtr_val(64) := g_array(p_seq_num).dlmtr_val_64;
2952     g_dlmtr_val(65) := g_array(p_seq_num).dlmtr_val_65;
2953     g_dlmtr_val(66) := g_array(p_seq_num).dlmtr_val_66;
2954     g_dlmtr_val(67) := g_array(p_seq_num).dlmtr_val_67;
2955     g_dlmtr_val(68) := g_array(p_seq_num).dlmtr_val_68;
2956     g_dlmtr_val(69) := g_array(p_seq_num).dlmtr_val_69;
2957     g_dlmtr_val(70) := g_array(p_seq_num).dlmtr_val_70;
2958     g_dlmtr_val(71) := g_array(p_seq_num).dlmtr_val_71;
2959     g_dlmtr_val(72) := g_array(p_seq_num).dlmtr_val_72;
2960     g_dlmtr_val(73) := g_array(p_seq_num).dlmtr_val_73;
2961     g_dlmtr_val(74) := g_array(p_seq_num).dlmtr_val_74;
2962     g_dlmtr_val(75) := g_array(p_seq_num).dlmtr_val_75;
2963     g_dlmtr_val(76) := g_array(p_seq_num).dlmtr_val_76;
2964     g_dlmtr_val(77) := g_array(p_seq_num).dlmtr_val_77;
2965     g_dlmtr_val(78) := g_array(p_seq_num).dlmtr_val_78;
2966     g_dlmtr_val(79) := g_array(p_seq_num).dlmtr_val_79;
2967     g_dlmtr_val(80) := g_array(p_seq_num).dlmtr_val_80;
2968     g_dlmtr_val(81) := g_array(p_seq_num).dlmtr_val_81;
2969     g_dlmtr_val(82) := g_array(p_seq_num).dlmtr_val_82;
2970     g_dlmtr_val(83) := g_array(p_seq_num).dlmtr_val_83;
2971     g_dlmtr_val(84) := g_array(p_seq_num).dlmtr_val_84;
2972     g_dlmtr_val(85) := g_array(p_seq_num).dlmtr_val_85;
2973     g_dlmtr_val(86) := g_array(p_seq_num).dlmtr_val_86;
2974     g_dlmtr_val(87) := g_array(p_seq_num).dlmtr_val_87;
2975     g_dlmtr_val(88) := g_array(p_seq_num).dlmtr_val_88;
2976     g_dlmtr_val(89) := g_array(p_seq_num).dlmtr_val_89;
2977     g_dlmtr_val(90) := g_array(p_seq_num).dlmtr_val_90;
2978     g_dlmtr_val(91) := g_array(p_seq_num).dlmtr_val_91;
2979     g_dlmtr_val(92) := g_array(p_seq_num).dlmtr_val_92;
2980     g_dlmtr_val(93) := g_array(p_seq_num).dlmtr_val_93;
2981     g_dlmtr_val(94) := g_array(p_seq_num).dlmtr_val_94;
2982     g_dlmtr_val(95) := g_array(p_seq_num).dlmtr_val_95;
2983     g_dlmtr_val(96) := g_array(p_seq_num).dlmtr_val_96;
2984     g_dlmtr_val(97) := g_array(p_seq_num).dlmtr_val_97;
2985     g_dlmtr_val(98) := g_array(p_seq_num).dlmtr_val_98;
2986     g_dlmtr_val(99) := g_array(p_seq_num).dlmtr_val_99;
2987     g_dlmtr_val(100) := g_array(p_seq_num).dlmtr_val_100;
2988     g_dlmtr_val(101) := g_array(p_seq_num).dlmtr_val_101;
2989     g_dlmtr_val(102) := g_array(p_seq_num).dlmtr_val_102;
2990     g_dlmtr_val(103) := g_array(p_seq_num).dlmtr_val_103;
2991     g_dlmtr_val(104) := g_array(p_seq_num).dlmtr_val_104;
2992     g_dlmtr_val(105) := g_array(p_seq_num).dlmtr_val_105;
2993     g_dlmtr_val(106) := g_array(p_seq_num).dlmtr_val_106;
2994     g_dlmtr_val(107) := g_array(p_seq_num).dlmtr_val_107;
2995     g_dlmtr_val(108) := g_array(p_seq_num).dlmtr_val_108;
2996     g_dlmtr_val(109) := g_array(p_seq_num).dlmtr_val_109;
2997     g_dlmtr_val(110) := g_array(p_seq_num).dlmtr_val_110;
2998     g_dlmtr_val(111) := g_array(p_seq_num).dlmtr_val_111;
2999     g_dlmtr_val(112) := g_array(p_seq_num).dlmtr_val_112;
3000     g_dlmtr_val(113) := g_array(p_seq_num).dlmtr_val_113;
3001     g_dlmtr_val(114) := g_array(p_seq_num).dlmtr_val_114;
3002     g_dlmtr_val(115) := g_array(p_seq_num).dlmtr_val_115;
3003     g_dlmtr_val(116) := g_array(p_seq_num).dlmtr_val_116;
3004     g_dlmtr_val(117) := g_array(p_seq_num).dlmtr_val_117;
3005     g_dlmtr_val(118) := g_array(p_seq_num).dlmtr_val_118;
3006     g_dlmtr_val(119) := g_array(p_seq_num).dlmtr_val_119;
3007     g_dlmtr_val(120) := g_array(p_seq_num).dlmtr_val_120;
3008     g_dlmtr_val(121) := g_array(p_seq_num).dlmtr_val_121;
3009     g_dlmtr_val(122) := g_array(p_seq_num).dlmtr_val_122;
3010     g_dlmtr_val(123) := g_array(p_seq_num).dlmtr_val_123;
3011     g_dlmtr_val(124) := g_array(p_seq_num).dlmtr_val_124;
3012     g_dlmtr_val(125) := g_array(p_seq_num).dlmtr_val_125;
3013     g_dlmtr_val(126) := g_array(p_seq_num).dlmtr_val_126;
3014     g_dlmtr_val(127) := g_array(p_seq_num).dlmtr_val_127;
3015     g_dlmtr_val(128) := g_array(p_seq_num).dlmtr_val_128;
3016     g_dlmtr_val(129) := g_array(p_seq_num).dlmtr_val_129;
3017     g_dlmtr_val(130) := g_array(p_seq_num).dlmtr_val_130;
3018     g_dlmtr_val(131) := g_array(p_seq_num).dlmtr_val_131;
3019     g_dlmtr_val(132) := g_array(p_seq_num).dlmtr_val_132;
3020     g_dlmtr_val(133) := g_array(p_seq_num).dlmtr_val_133;
3021     g_dlmtr_val(134) := g_array(p_seq_num).dlmtr_val_134;
3022     g_dlmtr_val(135) := g_array(p_seq_num).dlmtr_val_135;
3023     g_dlmtr_val(136) := g_array(p_seq_num).dlmtr_val_136;
3024     g_dlmtr_val(137) := g_array(p_seq_num).dlmtr_val_137;
3025     g_dlmtr_val(138) := g_array(p_seq_num).dlmtr_val_138;
3026     g_dlmtr_val(139) := g_array(p_seq_num).dlmtr_val_139;
3027     g_dlmtr_val(140) := g_array(p_seq_num).dlmtr_val_140;
3028     g_dlmtr_val(141) := g_array(p_seq_num).dlmtr_val_141;
3029     g_dlmtr_val(142) := g_array(p_seq_num).dlmtr_val_142;
3030     g_dlmtr_val(143) := g_array(p_seq_num).dlmtr_val_143;
3031     g_dlmtr_val(144) := g_array(p_seq_num).dlmtr_val_144;
3032     g_dlmtr_val(145) := g_array(p_seq_num).dlmtr_val_145;
3033     g_dlmtr_val(146) := g_array(p_seq_num).dlmtr_val_146;
3034     g_dlmtr_val(147) := g_array(p_seq_num).dlmtr_val_147;
3035     g_dlmtr_val(148) := g_array(p_seq_num).dlmtr_val_148;
3036     g_dlmtr_val(149) := g_array(p_seq_num).dlmtr_val_149;
3037     g_dlmtr_val(150) := g_array(p_seq_num).dlmtr_val_150;
3038     g_dlmtr_val(151) := g_array(p_seq_num).dlmtr_val_151;
3039     g_dlmtr_val(152) := g_array(p_seq_num).dlmtr_val_152;
3040     g_dlmtr_val(153) := g_array(p_seq_num).dlmtr_val_153;
3041     g_dlmtr_val(154) := g_array(p_seq_num).dlmtr_val_154;
3042     g_dlmtr_val(155) := g_array(p_seq_num).dlmtr_val_155;
3043     g_dlmtr_val(156) := g_array(p_seq_num).dlmtr_val_156;
3044     g_dlmtr_val(157) := g_array(p_seq_num).dlmtr_val_157;
3045     g_dlmtr_val(158) := g_array(p_seq_num).dlmtr_val_158;
3049     g_dlmtr_val(162) := g_array(p_seq_num).dlmtr_val_162;
3046     g_dlmtr_val(159) := g_array(p_seq_num).dlmtr_val_159;
3047     g_dlmtr_val(160) := g_array(p_seq_num).dlmtr_val_160;
3048     g_dlmtr_val(161) := g_array(p_seq_num).dlmtr_val_161;
3050     g_dlmtr_val(163) := g_array(p_seq_num).dlmtr_val_163;
3051     g_dlmtr_val(164) := g_array(p_seq_num).dlmtr_val_164;
3052     g_dlmtr_val(165) := g_array(p_seq_num).dlmtr_val_165;
3053     g_dlmtr_val(166) := g_array(p_seq_num).dlmtr_val_166;
3054     g_dlmtr_val(167) := g_array(p_seq_num).dlmtr_val_167;
3055     g_dlmtr_val(168) := g_array(p_seq_num).dlmtr_val_168;
3056     g_dlmtr_val(169) := g_array(p_seq_num).dlmtr_val_169;
3057     g_dlmtr_val(170) := g_array(p_seq_num).dlmtr_val_170;
3058     g_dlmtr_val(171) := g_array(p_seq_num).dlmtr_val_171;
3059     g_dlmtr_val(172) := g_array(p_seq_num).dlmtr_val_172;
3060     g_dlmtr_val(173) := g_array(p_seq_num).dlmtr_val_173;
3061     g_dlmtr_val(174) := g_array(p_seq_num).dlmtr_val_174;
3062     g_dlmtr_val(175) := g_array(p_seq_num).dlmtr_val_175;
3063     g_dlmtr_val(176) := g_array(p_seq_num).dlmtr_val_176;
3064     g_dlmtr_val(177) := g_array(p_seq_num).dlmtr_val_177;
3065     g_dlmtr_val(178) := g_array(p_seq_num).dlmtr_val_178;
3066     g_dlmtr_val(179) := g_array(p_seq_num).dlmtr_val_179;
3067     g_dlmtr_val(180) := g_array(p_seq_num).dlmtr_val_180;
3068     g_dlmtr_val(181) := g_array(p_seq_num).dlmtr_val_181;
3069     g_dlmtr_val(182) := g_array(p_seq_num).dlmtr_val_182;
3070     g_dlmtr_val(183) := g_array(p_seq_num).dlmtr_val_183;
3071     g_dlmtr_val(184) := g_array(p_seq_num).dlmtr_val_184;
3072     g_dlmtr_val(185) := g_array(p_seq_num).dlmtr_val_185;
3073     g_dlmtr_val(186) := g_array(p_seq_num).dlmtr_val_186;
3074     g_dlmtr_val(187) := g_array(p_seq_num).dlmtr_val_187;
3075     g_dlmtr_val(188) := g_array(p_seq_num).dlmtr_val_188;
3076     g_dlmtr_val(189) := g_array(p_seq_num).dlmtr_val_189;
3077     g_dlmtr_val(190) := g_array(p_seq_num).dlmtr_val_190;
3078     g_dlmtr_val(191) := g_array(p_seq_num).dlmtr_val_191;
3079     g_dlmtr_val(192) := g_array(p_seq_num).dlmtr_val_192;
3080     g_dlmtr_val(193) := g_array(p_seq_num).dlmtr_val_193;
3081     g_dlmtr_val(194) := g_array(p_seq_num).dlmtr_val_194;
3082     g_dlmtr_val(195) := g_array(p_seq_num).dlmtr_val_195;
3083     g_dlmtr_val(196) := g_array(p_seq_num).dlmtr_val_196;
3084     g_dlmtr_val(197) := g_array(p_seq_num).dlmtr_val_197;
3085     g_dlmtr_val(198) := g_array(p_seq_num).dlmtr_val_198;
3086     g_dlmtr_val(199) := g_array(p_seq_num).dlmtr_val_199;
3087     g_dlmtr_val(200) := g_array(p_seq_num).dlmtr_val_200;
3088     g_dlmtr_val(201) := g_array(p_seq_num).dlmtr_val_201;
3089     g_dlmtr_val(202) := g_array(p_seq_num).dlmtr_val_202;
3090     g_dlmtr_val(203) := g_array(p_seq_num).dlmtr_val_203;
3091     g_dlmtr_val(204) := g_array(p_seq_num).dlmtr_val_204;
3092     g_dlmtr_val(205) := g_array(p_seq_num).dlmtr_val_205;
3093     g_dlmtr_val(206) := g_array(p_seq_num).dlmtr_val_206;
3094     g_dlmtr_val(207) := g_array(p_seq_num).dlmtr_val_207;
3095     g_dlmtr_val(208) := g_array(p_seq_num).dlmtr_val_208;
3096     g_dlmtr_val(209) := g_array(p_seq_num).dlmtr_val_209;
3097     g_dlmtr_val(210) := g_array(p_seq_num).dlmtr_val_210;
3098     g_dlmtr_val(211) := g_array(p_seq_num).dlmtr_val_211;
3099     g_dlmtr_val(212) := g_array(p_seq_num).dlmtr_val_212;
3100     g_dlmtr_val(213) := g_array(p_seq_num).dlmtr_val_213;
3101     g_dlmtr_val(214) := g_array(p_seq_num).dlmtr_val_214;
3102     g_dlmtr_val(215) := g_array(p_seq_num).dlmtr_val_215;
3103     g_dlmtr_val(216) := g_array(p_seq_num).dlmtr_val_216;
3104     g_dlmtr_val(217) := g_array(p_seq_num).dlmtr_val_217;
3105     g_dlmtr_val(218) := g_array(p_seq_num).dlmtr_val_218;
3106     g_dlmtr_val(219) := g_array(p_seq_num).dlmtr_val_219;
3107     g_dlmtr_val(220) := g_array(p_seq_num).dlmtr_val_220;
3108     g_dlmtr_val(221) := g_array(p_seq_num).dlmtr_val_221;
3109     g_dlmtr_val(222) := g_array(p_seq_num).dlmtr_val_222;
3110     g_dlmtr_val(223) := g_array(p_seq_num).dlmtr_val_223;
3111     g_dlmtr_val(224) := g_array(p_seq_num).dlmtr_val_224;
3112     g_dlmtr_val(225) := g_array(p_seq_num).dlmtr_val_225;
3113     g_dlmtr_val(226) := g_array(p_seq_num).dlmtr_val_226;
3114     g_dlmtr_val(227) := g_array(p_seq_num).dlmtr_val_227;
3115     g_dlmtr_val(228) := g_array(p_seq_num).dlmtr_val_228;
3116     g_dlmtr_val(229) := g_array(p_seq_num).dlmtr_val_229;
3117     g_dlmtr_val(230) := g_array(p_seq_num).dlmtr_val_230;
3118     g_dlmtr_val(231) := g_array(p_seq_num).dlmtr_val_231;
3119     g_dlmtr_val(232) := g_array(p_seq_num).dlmtr_val_232;
3120     g_dlmtr_val(233) := g_array(p_seq_num).dlmtr_val_233;
3121     g_dlmtr_val(234) := g_array(p_seq_num).dlmtr_val_234;
3122     g_dlmtr_val(235) := g_array(p_seq_num).dlmtr_val_235;
3123     g_dlmtr_val(236) := g_array(p_seq_num).dlmtr_val_236;
3124     g_dlmtr_val(237) := g_array(p_seq_num).dlmtr_val_237;
3125     g_dlmtr_val(238) := g_array(p_seq_num).dlmtr_val_238;
3126     g_dlmtr_val(239) := g_array(p_seq_num).dlmtr_val_239;
3127     g_dlmtr_val(240) := g_array(p_seq_num).dlmtr_val_240;
3128     g_dlmtr_val(241) := g_array(p_seq_num).dlmtr_val_241;
3129     g_dlmtr_val(242) := g_array(p_seq_num).dlmtr_val_242;
3130     g_dlmtr_val(243) := g_array(p_seq_num).dlmtr_val_243;
3131     g_dlmtr_val(244) := g_array(p_seq_num).dlmtr_val_244;
3132     g_dlmtr_val(245) := g_array(p_seq_num).dlmtr_val_245;
3133     g_dlmtr_val(246) := g_array(p_seq_num).dlmtr_val_246;
3134     g_dlmtr_val(247) := g_array(p_seq_num).dlmtr_val_247;
3135     g_dlmtr_val(248) := g_array(p_seq_num).dlmtr_val_248;
3136     g_dlmtr_val(249) := g_array(p_seq_num).dlmtr_val_249;
3137     g_dlmtr_val(250) := g_array(p_seq_num).dlmtr_val_250;
3138     g_dlmtr_val(251) := g_array(p_seq_num).dlmtr_val_251;
3139     g_dlmtr_val(252) := g_array(p_seq_num).dlmtr_val_252;
3140     g_dlmtr_val(253) := g_array(p_seq_num).dlmtr_val_253;
3141     g_dlmtr_val(254) := g_array(p_seq_num).dlmtr_val_254;
3142     g_dlmtr_val(255) := g_array(p_seq_num).dlmtr_val_255;
3143     g_dlmtr_val(256) := g_array(p_seq_num).dlmtr_val_256;
3147     g_dlmtr_val(260) := g_array(p_seq_num).dlmtr_val_260;
3144     g_dlmtr_val(257) := g_array(p_seq_num).dlmtr_val_257;
3145     g_dlmtr_val(258) := g_array(p_seq_num).dlmtr_val_258;
3146     g_dlmtr_val(259) := g_array(p_seq_num).dlmtr_val_259;
3148     g_dlmtr_val(261) := g_array(p_seq_num).dlmtr_val_261;
3149     g_dlmtr_val(262) := g_array(p_seq_num).dlmtr_val_262;
3150     g_dlmtr_val(263) := g_array(p_seq_num).dlmtr_val_263;
3151     g_dlmtr_val(264) := g_array(p_seq_num).dlmtr_val_264;
3152     g_dlmtr_val(265) := g_array(p_seq_num).dlmtr_val_265;
3153     g_dlmtr_val(266) := g_array(p_seq_num).dlmtr_val_266;
3154     g_dlmtr_val(267) := g_array(p_seq_num).dlmtr_val_267;
3155     g_dlmtr_val(268) := g_array(p_seq_num).dlmtr_val_268;
3156     g_dlmtr_val(269) := g_array(p_seq_num).dlmtr_val_269;
3157     g_dlmtr_val(270) := g_array(p_seq_num).dlmtr_val_270;
3158     g_dlmtr_val(271) := g_array(p_seq_num).dlmtr_val_271;
3159     g_dlmtr_val(272) := g_array(p_seq_num).dlmtr_val_272;
3160     g_dlmtr_val(273) := g_array(p_seq_num).dlmtr_val_273;
3161     g_dlmtr_val(274) := g_array(p_seq_num).dlmtr_val_274;
3162     g_dlmtr_val(275) := g_array(p_seq_num).dlmtr_val_275;
3163     g_dlmtr_val(276) := g_array(p_seq_num).dlmtr_val_276;
3164     g_dlmtr_val(277) := g_array(p_seq_num).dlmtr_val_277;
3165     g_dlmtr_val(278) := g_array(p_seq_num).dlmtr_val_278;
3166     g_dlmtr_val(279) := g_array(p_seq_num).dlmtr_val_279;
3167     g_dlmtr_val(280) := g_array(p_seq_num).dlmtr_val_280;
3168     g_dlmtr_val(281) := g_array(p_seq_num).dlmtr_val_281;
3169     g_dlmtr_val(282) := g_array(p_seq_num).dlmtr_val_282;
3170     g_dlmtr_val(283) := g_array(p_seq_num).dlmtr_val_283;
3171     g_dlmtr_val(284) := g_array(p_seq_num).dlmtr_val_284;
3172     g_dlmtr_val(285) := g_array(p_seq_num).dlmtr_val_285;
3173     g_dlmtr_val(286) := g_array(p_seq_num).dlmtr_val_286;
3174     g_dlmtr_val(287) := g_array(p_seq_num).dlmtr_val_287;
3175     g_dlmtr_val(288) := g_array(p_seq_num).dlmtr_val_288;
3176     g_dlmtr_val(289) := g_array(p_seq_num).dlmtr_val_289;
3177     g_dlmtr_val(290) := g_array(p_seq_num).dlmtr_val_290;
3178     g_dlmtr_val(291) := g_array(p_seq_num).dlmtr_val_291;
3179     g_dlmtr_val(292) := g_array(p_seq_num).dlmtr_val_292;
3180     g_dlmtr_val(293) := g_array(p_seq_num).dlmtr_val_293;
3181     g_dlmtr_val(294) := g_array(p_seq_num).dlmtr_val_294;
3182     g_dlmtr_val(295) := g_array(p_seq_num).dlmtr_val_295;
3183     g_dlmtr_val(296) := g_array(p_seq_num).dlmtr_val_296;
3184     g_dlmtr_val(297) := g_array(p_seq_num).dlmtr_val_297;
3185     g_dlmtr_val(298) := g_array(p_seq_num).dlmtr_val_298;
3186     g_dlmtr_val(299) := g_array(p_seq_num).dlmtr_val_299;
3187     g_dlmtr_val(300) := g_array(p_seq_num).dlmtr_val_300;
3188     --
3189     g_just_cd(01) := g_array(p_seq_num).just_cd_01;
3190     g_just_cd(02) := g_array(p_seq_num).just_cd_02;
3191     g_just_cd(03) := g_array(p_seq_num).just_cd_03;
3192     g_just_cd(04) := g_array(p_seq_num).just_cd_04;
3193     g_just_cd(05) := g_array(p_seq_num).just_cd_05;
3194     g_just_cd(06) := g_array(p_seq_num).just_cd_06;
3195     g_just_cd(07) := g_array(p_seq_num).just_cd_07;
3196     g_just_cd(08) := g_array(p_seq_num).just_cd_08;
3197     g_just_cd(09) := g_array(p_seq_num).just_cd_09;
3198     g_just_cd(10) := g_array(p_seq_num).just_cd_10;
3199     g_just_cd(11) := g_array(p_seq_num).just_cd_11;
3200     g_just_cd(12) := g_array(p_seq_num).just_cd_12;
3201     g_just_cd(13) := g_array(p_seq_num).just_cd_13;
3202     g_just_cd(14) := g_array(p_seq_num).just_cd_14;
3203     g_just_cd(15) := g_array(p_seq_num).just_cd_15;
3204     g_just_cd(16) := g_array(p_seq_num).just_cd_16;
3205     g_just_cd(17) := g_array(p_seq_num).just_cd_17;
3206     g_just_cd(18) := g_array(p_seq_num).just_cd_18;
3207     g_just_cd(19) := g_array(p_seq_num).just_cd_19;
3208     g_just_cd(20) := g_array(p_seq_num).just_cd_20;
3209     g_just_cd(21) := g_array(p_seq_num).just_cd_21;
3210     g_just_cd(22) := g_array(p_seq_num).just_cd_22;
3211     g_just_cd(23) := g_array(p_seq_num).just_cd_23;
3212     g_just_cd(24) := g_array(p_seq_num).just_cd_24;
3213     g_just_cd(25) := g_array(p_seq_num).just_cd_25;
3214     g_just_cd(26) := g_array(p_seq_num).just_cd_26;
3215     g_just_cd(27) := g_array(p_seq_num).just_cd_27;
3216     g_just_cd(28) := g_array(p_seq_num).just_cd_28;
3217     g_just_cd(29) := g_array(p_seq_num).just_cd_29;
3218     g_just_cd(30) := g_array(p_seq_num).just_cd_30;
3219     g_just_cd(31) := g_array(p_seq_num).just_cd_31;
3220     g_just_cd(32) := g_array(p_seq_num).just_cd_32;
3221     g_just_cd(33) := g_array(p_seq_num).just_cd_33;
3222     g_just_cd(34) := g_array(p_seq_num).just_cd_34;
3223     g_just_cd(35) := g_array(p_seq_num).just_cd_35;
3224     g_just_cd(36) := g_array(p_seq_num).just_cd_36;
3225     g_just_cd(37) := g_array(p_seq_num).just_cd_37;
3226     g_just_cd(38) := g_array(p_seq_num).just_cd_38;
3227     g_just_cd(39) := g_array(p_seq_num).just_cd_39;
3228     g_just_cd(40) := g_array(p_seq_num).just_cd_40;
3229     g_just_cd(41) := g_array(p_seq_num).just_cd_41;
3230     g_just_cd(42) := g_array(p_seq_num).just_cd_42;
3231     g_just_cd(43) := g_array(p_seq_num).just_cd_43;
3232     g_just_cd(44) := g_array(p_seq_num).just_cd_44;
3233     g_just_cd(45) := g_array(p_seq_num).just_cd_45;
3234     g_just_cd(46) := g_array(p_seq_num).just_cd_46;
3235     g_just_cd(47) := g_array(p_seq_num).just_cd_47;
3236     g_just_cd(48) := g_array(p_seq_num).just_cd_48;
3237     g_just_cd(49) := g_array(p_seq_num).just_cd_49;
3238     g_just_cd(50) := g_array(p_seq_num).just_cd_50;
3239     g_just_cd(51) := g_array(p_seq_num).just_cd_51;
3240     g_just_cd(52) := g_array(p_seq_num).just_cd_52;
3241     g_just_cd(53) := g_array(p_seq_num).just_cd_53;
3242     g_just_cd(54) := g_array(p_seq_num).just_cd_54;
3243     g_just_cd(55) := g_array(p_seq_num).just_cd_55;
3244     g_just_cd(56) := g_array(p_seq_num).just_cd_56;
3245     g_just_cd(57) := g_array(p_seq_num).just_cd_57;
3246     g_just_cd(58) := g_array(p_seq_num).just_cd_58;
3250     g_just_cd(62) := g_array(p_seq_num).just_cd_62;
3247     g_just_cd(59) := g_array(p_seq_num).just_cd_59;
3248     g_just_cd(60) := g_array(p_seq_num).just_cd_60;
3249     g_just_cd(61) := g_array(p_seq_num).just_cd_61;
3251     g_just_cd(63) := g_array(p_seq_num).just_cd_63;
3252     g_just_cd(64) := g_array(p_seq_num).just_cd_64;
3253     g_just_cd(65) := g_array(p_seq_num).just_cd_65;
3254     g_just_cd(66) := g_array(p_seq_num).just_cd_66;
3255     g_just_cd(67) := g_array(p_seq_num).just_cd_67;
3256     g_just_cd(68) := g_array(p_seq_num).just_cd_68;
3257     g_just_cd(69) := g_array(p_seq_num).just_cd_69;
3258     g_just_cd(70) := g_array(p_seq_num).just_cd_70;
3259     g_just_cd(71) := g_array(p_seq_num).just_cd_71;
3260     g_just_cd(72) := g_array(p_seq_num).just_cd_72;
3261     g_just_cd(73) := g_array(p_seq_num).just_cd_73;
3262     g_just_cd(74) := g_array(p_seq_num).just_cd_74;
3263     g_just_cd(75) := g_array(p_seq_num).just_cd_75;
3264     g_just_cd(76) := g_array(p_seq_num).just_cd_76;
3265     g_just_cd(77) := g_array(p_seq_num).just_cd_77;
3266     g_just_cd(78) := g_array(p_seq_num).just_cd_78;
3267     g_just_cd(79) := g_array(p_seq_num).just_cd_79;
3268     g_just_cd(80) := g_array(p_seq_num).just_cd_80;
3269     g_just_cd(81) := g_array(p_seq_num).just_cd_81;
3270     g_just_cd(82) := g_array(p_seq_num).just_cd_82;
3271     g_just_cd(83) := g_array(p_seq_num).just_cd_83;
3272     g_just_cd(84) := g_array(p_seq_num).just_cd_84;
3273     g_just_cd(85) := g_array(p_seq_num).just_cd_85;
3274     g_just_cd(86) := g_array(p_seq_num).just_cd_86;
3275     g_just_cd(87) := g_array(p_seq_num).just_cd_87;
3276     g_just_cd(88) := g_array(p_seq_num).just_cd_88;
3277     g_just_cd(89) := g_array(p_seq_num).just_cd_89;
3278     g_just_cd(90) := g_array(p_seq_num).just_cd_90;
3279     g_just_cd(91) := g_array(p_seq_num).just_cd_91;
3280     g_just_cd(92) := g_array(p_seq_num).just_cd_92;
3281     g_just_cd(93) := g_array(p_seq_num).just_cd_93;
3282     g_just_cd(94) := g_array(p_seq_num).just_cd_94;
3283     g_just_cd(95) := g_array(p_seq_num).just_cd_95;
3284     g_just_cd(96) := g_array(p_seq_num).just_cd_96;
3285     g_just_cd(97) := g_array(p_seq_num).just_cd_97;
3286     g_just_cd(98) := g_array(p_seq_num).just_cd_98;
3287     g_just_cd(99) := g_array(p_seq_num).just_cd_99;
3288     g_just_cd(100) := g_array(p_seq_num).just_cd_100;
3289     g_just_cd(101) := g_array(p_seq_num).just_cd_101;
3290     g_just_cd(102) := g_array(p_seq_num).just_cd_102;
3291     g_just_cd(103) := g_array(p_seq_num).just_cd_103;
3292     g_just_cd(104) := g_array(p_seq_num).just_cd_104;
3293     g_just_cd(105) := g_array(p_seq_num).just_cd_105;
3294     g_just_cd(106) := g_array(p_seq_num).just_cd_106;
3295     g_just_cd(107) := g_array(p_seq_num).just_cd_107;
3296     g_just_cd(108) := g_array(p_seq_num).just_cd_108;
3297     g_just_cd(109) := g_array(p_seq_num).just_cd_109;
3298     g_just_cd(110) := g_array(p_seq_num).just_cd_110;
3299     g_just_cd(111) := g_array(p_seq_num).just_cd_111;
3300     g_just_cd(112) := g_array(p_seq_num).just_cd_112;
3301     g_just_cd(113) := g_array(p_seq_num).just_cd_113;
3302     g_just_cd(114) := g_array(p_seq_num).just_cd_114;
3303     g_just_cd(115) := g_array(p_seq_num).just_cd_115;
3304     g_just_cd(116) := g_array(p_seq_num).just_cd_116;
3305     g_just_cd(117) := g_array(p_seq_num).just_cd_117;
3306     g_just_cd(118) := g_array(p_seq_num).just_cd_118;
3307     g_just_cd(119) := g_array(p_seq_num).just_cd_119;
3308     g_just_cd(120) := g_array(p_seq_num).just_cd_120;
3309     g_just_cd(121) := g_array(p_seq_num).just_cd_121;
3310     g_just_cd(122) := g_array(p_seq_num).just_cd_122;
3311     g_just_cd(123) := g_array(p_seq_num).just_cd_123;
3312     g_just_cd(124) := g_array(p_seq_num).just_cd_124;
3313     g_just_cd(125) := g_array(p_seq_num).just_cd_125;
3314     g_just_cd(126) := g_array(p_seq_num).just_cd_126;
3315     g_just_cd(127) := g_array(p_seq_num).just_cd_127;
3316     g_just_cd(128) := g_array(p_seq_num).just_cd_128;
3317     g_just_cd(129) := g_array(p_seq_num).just_cd_129;
3318     g_just_cd(130) := g_array(p_seq_num).just_cd_130;
3319     g_just_cd(131) := g_array(p_seq_num).just_cd_131;
3320     g_just_cd(132) := g_array(p_seq_num).just_cd_132;
3321     g_just_cd(133) := g_array(p_seq_num).just_cd_133;
3322     g_just_cd(134) := g_array(p_seq_num).just_cd_134;
3323     g_just_cd(135) := g_array(p_seq_num).just_cd_135;
3324     g_just_cd(136) := g_array(p_seq_num).just_cd_136;
3325     g_just_cd(137) := g_array(p_seq_num).just_cd_137;
3326     g_just_cd(138) := g_array(p_seq_num).just_cd_138;
3327     g_just_cd(139) := g_array(p_seq_num).just_cd_139;
3328     g_just_cd(140) := g_array(p_seq_num).just_cd_140;
3329     g_just_cd(141) := g_array(p_seq_num).just_cd_141;
3330     g_just_cd(142) := g_array(p_seq_num).just_cd_142;
3331     g_just_cd(143) := g_array(p_seq_num).just_cd_143;
3332     g_just_cd(144) := g_array(p_seq_num).just_cd_144;
3333     g_just_cd(145) := g_array(p_seq_num).just_cd_145;
3334     g_just_cd(146) := g_array(p_seq_num).just_cd_146;
3335     g_just_cd(147) := g_array(p_seq_num).just_cd_147;
3336     g_just_cd(148) := g_array(p_seq_num).just_cd_148;
3337     g_just_cd(149) := g_array(p_seq_num).just_cd_149;
3338     g_just_cd(150) := g_array(p_seq_num).just_cd_150;
3339     g_just_cd(151) := g_array(p_seq_num).just_cd_151;
3340     g_just_cd(152) := g_array(p_seq_num).just_cd_152;
3341     g_just_cd(153) := g_array(p_seq_num).just_cd_153;
3342     g_just_cd(154) := g_array(p_seq_num).just_cd_154;
3343     g_just_cd(155) := g_array(p_seq_num).just_cd_155;
3344     g_just_cd(156) := g_array(p_seq_num).just_cd_156;
3345     g_just_cd(157) := g_array(p_seq_num).just_cd_157;
3346     g_just_cd(158) := g_array(p_seq_num).just_cd_158;
3347     g_just_cd(159) := g_array(p_seq_num).just_cd_159;
3348     g_just_cd(160) := g_array(p_seq_num).just_cd_160;
3349     g_just_cd(161) := g_array(p_seq_num).just_cd_161;
3353     g_just_cd(165) := g_array(p_seq_num).just_cd_165;
3350     g_just_cd(162) := g_array(p_seq_num).just_cd_162;
3351     g_just_cd(163) := g_array(p_seq_num).just_cd_163;
3352     g_just_cd(164) := g_array(p_seq_num).just_cd_164;
3354     g_just_cd(166) := g_array(p_seq_num).just_cd_166;
3355     g_just_cd(167) := g_array(p_seq_num).just_cd_167;
3356     g_just_cd(168) := g_array(p_seq_num).just_cd_168;
3357     g_just_cd(169) := g_array(p_seq_num).just_cd_169;
3358     g_just_cd(170) := g_array(p_seq_num).just_cd_170;
3359     g_just_cd(171) := g_array(p_seq_num).just_cd_171;
3360     g_just_cd(172) := g_array(p_seq_num).just_cd_172;
3361     g_just_cd(173) := g_array(p_seq_num).just_cd_173;
3362     g_just_cd(174) := g_array(p_seq_num).just_cd_174;
3363     g_just_cd(175) := g_array(p_seq_num).just_cd_175;
3364     g_just_cd(176) := g_array(p_seq_num).just_cd_176;
3365     g_just_cd(177) := g_array(p_seq_num).just_cd_177;
3366     g_just_cd(178) := g_array(p_seq_num).just_cd_178;
3367     g_just_cd(179) := g_array(p_seq_num).just_cd_179;
3368     g_just_cd(180) := g_array(p_seq_num).just_cd_180;
3369     g_just_cd(181) := g_array(p_seq_num).just_cd_181;
3370     g_just_cd(182) := g_array(p_seq_num).just_cd_182;
3371     g_just_cd(183) := g_array(p_seq_num).just_cd_183;
3372     g_just_cd(184) := g_array(p_seq_num).just_cd_184;
3373     g_just_cd(185) := g_array(p_seq_num).just_cd_185;
3374     g_just_cd(186) := g_array(p_seq_num).just_cd_186;
3375     g_just_cd(187) := g_array(p_seq_num).just_cd_187;
3376     g_just_cd(188) := g_array(p_seq_num).just_cd_188;
3377     g_just_cd(189) := g_array(p_seq_num).just_cd_189;
3378     g_just_cd(190) := g_array(p_seq_num).just_cd_190;
3379     g_just_cd(191) := g_array(p_seq_num).just_cd_191;
3380     g_just_cd(192) := g_array(p_seq_num).just_cd_192;
3381     g_just_cd(193) := g_array(p_seq_num).just_cd_193;
3382     g_just_cd(194) := g_array(p_seq_num).just_cd_194;
3383     g_just_cd(195) := g_array(p_seq_num).just_cd_195;
3384     g_just_cd(196) := g_array(p_seq_num).just_cd_196;
3385     g_just_cd(197) := g_array(p_seq_num).just_cd_197;
3386     g_just_cd(198) := g_array(p_seq_num).just_cd_198;
3387     g_just_cd(199) := g_array(p_seq_num).just_cd_199;
3388     g_just_cd(200) := g_array(p_seq_num).just_cd_200;
3389     g_just_cd(201) := g_array(p_seq_num).just_cd_201;
3390     g_just_cd(202) := g_array(p_seq_num).just_cd_202;
3391     g_just_cd(203) := g_array(p_seq_num).just_cd_203;
3392     g_just_cd(204) := g_array(p_seq_num).just_cd_204;
3393     g_just_cd(205) := g_array(p_seq_num).just_cd_205;
3394     g_just_cd(206) := g_array(p_seq_num).just_cd_206;
3395     g_just_cd(207) := g_array(p_seq_num).just_cd_207;
3396     g_just_cd(208) := g_array(p_seq_num).just_cd_208;
3397     g_just_cd(209) := g_array(p_seq_num).just_cd_209;
3398     g_just_cd(210) := g_array(p_seq_num).just_cd_210;
3399     g_just_cd(211) := g_array(p_seq_num).just_cd_211;
3400     g_just_cd(212) := g_array(p_seq_num).just_cd_212;
3401     g_just_cd(213) := g_array(p_seq_num).just_cd_213;
3402     g_just_cd(214) := g_array(p_seq_num).just_cd_214;
3403     g_just_cd(215) := g_array(p_seq_num).just_cd_215;
3404     g_just_cd(216) := g_array(p_seq_num).just_cd_216;
3405     g_just_cd(217) := g_array(p_seq_num).just_cd_217;
3406     g_just_cd(218) := g_array(p_seq_num).just_cd_218;
3407     g_just_cd(219) := g_array(p_seq_num).just_cd_219;
3408     g_just_cd(220) := g_array(p_seq_num).just_cd_220;
3409     g_just_cd(221) := g_array(p_seq_num).just_cd_221;
3410     g_just_cd(222) := g_array(p_seq_num).just_cd_222;
3411     g_just_cd(223) := g_array(p_seq_num).just_cd_223;
3412     g_just_cd(224) := g_array(p_seq_num).just_cd_224;
3413     g_just_cd(225) := g_array(p_seq_num).just_cd_225;
3414     g_just_cd(226) := g_array(p_seq_num).just_cd_226;
3415     g_just_cd(227) := g_array(p_seq_num).just_cd_227;
3416     g_just_cd(228) := g_array(p_seq_num).just_cd_228;
3417     g_just_cd(229) := g_array(p_seq_num).just_cd_229;
3418     g_just_cd(230) := g_array(p_seq_num).just_cd_230;
3419     g_just_cd(231) := g_array(p_seq_num).just_cd_231;
3420     g_just_cd(232) := g_array(p_seq_num).just_cd_232;
3421     g_just_cd(233) := g_array(p_seq_num).just_cd_233;
3422     g_just_cd(234) := g_array(p_seq_num).just_cd_234;
3423     g_just_cd(235) := g_array(p_seq_num).just_cd_235;
3424     g_just_cd(236) := g_array(p_seq_num).just_cd_236;
3425     g_just_cd(237) := g_array(p_seq_num).just_cd_237;
3426     g_just_cd(238) := g_array(p_seq_num).just_cd_238;
3427     g_just_cd(239) := g_array(p_seq_num).just_cd_239;
3428     g_just_cd(240) := g_array(p_seq_num).just_cd_240;
3429     g_just_cd(241) := g_array(p_seq_num).just_cd_241;
3430     g_just_cd(242) := g_array(p_seq_num).just_cd_242;
3431     g_just_cd(243) := g_array(p_seq_num).just_cd_243;
3432     g_just_cd(244) := g_array(p_seq_num).just_cd_244;
3433     g_just_cd(245) := g_array(p_seq_num).just_cd_245;
3434     g_just_cd(246) := g_array(p_seq_num).just_cd_246;
3435     g_just_cd(247) := g_array(p_seq_num).just_cd_247;
3436     g_just_cd(248) := g_array(p_seq_num).just_cd_248;
3437     g_just_cd(249) := g_array(p_seq_num).just_cd_249;
3438     g_just_cd(250) := g_array(p_seq_num).just_cd_250;
3439     g_just_cd(251) := g_array(p_seq_num).just_cd_251;
3440     g_just_cd(252) := g_array(p_seq_num).just_cd_252;
3441     g_just_cd(253) := g_array(p_seq_num).just_cd_253;
3442     g_just_cd(254) := g_array(p_seq_num).just_cd_254;
3443     g_just_cd(255) := g_array(p_seq_num).just_cd_255;
3444     g_just_cd(256) := g_array(p_seq_num).just_cd_256;
3445     g_just_cd(257) := g_array(p_seq_num).just_cd_257;
3446     g_just_cd(258) := g_array(p_seq_num).just_cd_258;
3447     g_just_cd(259) := g_array(p_seq_num).just_cd_259;
3448     g_just_cd(260) := g_array(p_seq_num).just_cd_260;
3449     g_just_cd(261) := g_array(p_seq_num).just_cd_261;
3450     g_just_cd(262) := g_array(p_seq_num).just_cd_262;
3451     g_just_cd(263) := g_array(p_seq_num).just_cd_263;
3452     g_just_cd(264) := g_array(p_seq_num).just_cd_264;
3453     g_just_cd(265) := g_array(p_seq_num).just_cd_265;
3454     g_just_cd(266) := g_array(p_seq_num).just_cd_266;
3458     g_just_cd(270) := g_array(p_seq_num).just_cd_270;
3455     g_just_cd(267) := g_array(p_seq_num).just_cd_267;
3456     g_just_cd(268) := g_array(p_seq_num).just_cd_268;
3457     g_just_cd(269) := g_array(p_seq_num).just_cd_269;
3459     g_just_cd(271) := g_array(p_seq_num).just_cd_271;
3460     g_just_cd(272) := g_array(p_seq_num).just_cd_272;
3461     g_just_cd(273) := g_array(p_seq_num).just_cd_273;
3462     g_just_cd(274) := g_array(p_seq_num).just_cd_274;
3463     g_just_cd(275) := g_array(p_seq_num).just_cd_275;
3464     g_just_cd(276) := g_array(p_seq_num).just_cd_276;
3465     g_just_cd(277) := g_array(p_seq_num).just_cd_277;
3466     g_just_cd(278) := g_array(p_seq_num).just_cd_278;
3467     g_just_cd(279) := g_array(p_seq_num).just_cd_279;
3468     g_just_cd(280) := g_array(p_seq_num).just_cd_280;
3469     g_just_cd(281) := g_array(p_seq_num).just_cd_281;
3470     g_just_cd(282) := g_array(p_seq_num).just_cd_282;
3471     g_just_cd(283) := g_array(p_seq_num).just_cd_283;
3472     g_just_cd(284) := g_array(p_seq_num).just_cd_284;
3473     g_just_cd(285) := g_array(p_seq_num).just_cd_285;
3474     g_just_cd(286) := g_array(p_seq_num).just_cd_286;
3475     g_just_cd(287) := g_array(p_seq_num).just_cd_287;
3476     g_just_cd(288) := g_array(p_seq_num).just_cd_288;
3477     g_just_cd(289) := g_array(p_seq_num).just_cd_289;
3478     g_just_cd(290) := g_array(p_seq_num).just_cd_290;
3479     g_just_cd(291) := g_array(p_seq_num).just_cd_291;
3480     g_just_cd(292) := g_array(p_seq_num).just_cd_292;
3481     g_just_cd(293) := g_array(p_seq_num).just_cd_293;
3482     g_just_cd(294) := g_array(p_seq_num).just_cd_294;
3483     g_just_cd(295) := g_array(p_seq_num).just_cd_295;
3484     g_just_cd(296) := g_array(p_seq_num).just_cd_296;
3485     g_just_cd(297) := g_array(p_seq_num).just_cd_297;
3486     g_just_cd(298) := g_array(p_seq_num).just_cd_298;
3487     g_just_cd(299) := g_array(p_seq_num).just_cd_299;
3488     g_just_cd(300) := g_array(p_seq_num).just_cd_300;
3489 
3490 
3491     --
3492     g_hide_flag(01) := g_array(p_seq_num).hide_flag_01;
3493     g_hide_flag(02) := g_array(p_seq_num).hide_flag_02;
3494     g_hide_flag(03) := g_array(p_seq_num).hide_flag_03;
3495     g_hide_flag(04) := g_array(p_seq_num).hide_flag_04;
3496     g_hide_flag(05) := g_array(p_seq_num).hide_flag_05;
3497     g_hide_flag(06) := g_array(p_seq_num).hide_flag_06;
3498     g_hide_flag(07) := g_array(p_seq_num).hide_flag_07;
3499     g_hide_flag(08) := g_array(p_seq_num).hide_flag_08;
3500     g_hide_flag(09) := g_array(p_seq_num).hide_flag_09;
3501     g_hide_flag(10) := g_array(p_seq_num).hide_flag_10;
3502     g_hide_flag(11) := g_array(p_seq_num).hide_flag_11;
3503     g_hide_flag(12) := g_array(p_seq_num).hide_flag_12;
3504     g_hide_flag(13) := g_array(p_seq_num).hide_flag_13;
3505     g_hide_flag(14) := g_array(p_seq_num).hide_flag_14;
3506     g_hide_flag(15) := g_array(p_seq_num).hide_flag_15;
3507     g_hide_flag(16) := g_array(p_seq_num).hide_flag_16;
3508     g_hide_flag(17) := g_array(p_seq_num).hide_flag_17;
3509     g_hide_flag(18) := g_array(p_seq_num).hide_flag_18;
3510     g_hide_flag(19) := g_array(p_seq_num).hide_flag_19;
3511     g_hide_flag(20) := g_array(p_seq_num).hide_flag_20;
3512     g_hide_flag(21) := g_array(p_seq_num).hide_flag_21;
3513     g_hide_flag(22) := g_array(p_seq_num).hide_flag_22;
3514     g_hide_flag(23) := g_array(p_seq_num).hide_flag_23;
3515     g_hide_flag(24) := g_array(p_seq_num).hide_flag_24;
3516     g_hide_flag(25) := g_array(p_seq_num).hide_flag_25;
3517     g_hide_flag(26) := g_array(p_seq_num).hide_flag_26;
3518     g_hide_flag(27) := g_array(p_seq_num).hide_flag_27;
3519     g_hide_flag(28) := g_array(p_seq_num).hide_flag_28;
3520     g_hide_flag(29) := g_array(p_seq_num).hide_flag_29;
3521     g_hide_flag(30) := g_array(p_seq_num).hide_flag_30;
3522     g_hide_flag(31) := g_array(p_seq_num).hide_flag_31;
3523     g_hide_flag(32) := g_array(p_seq_num).hide_flag_32;
3524     g_hide_flag(33) := g_array(p_seq_num).hide_flag_33;
3525     g_hide_flag(34) := g_array(p_seq_num).hide_flag_34;
3526     g_hide_flag(35) := g_array(p_seq_num).hide_flag_35;
3527     g_hide_flag(36) := g_array(p_seq_num).hide_flag_36;
3528     g_hide_flag(37) := g_array(p_seq_num).hide_flag_37;
3529     g_hide_flag(38) := g_array(p_seq_num).hide_flag_38;
3530     g_hide_flag(39) := g_array(p_seq_num).hide_flag_39;
3531     g_hide_flag(40) := g_array(p_seq_num).hide_flag_40;
3532     g_hide_flag(41) := g_array(p_seq_num).hide_flag_41;
3533     g_hide_flag(42) := g_array(p_seq_num).hide_flag_42;
3534     g_hide_flag(43) := g_array(p_seq_num).hide_flag_43;
3535     g_hide_flag(44) := g_array(p_seq_num).hide_flag_44;
3536     g_hide_flag(45) := g_array(p_seq_num).hide_flag_45;
3537     g_hide_flag(46) := g_array(p_seq_num).hide_flag_46;
3538     g_hide_flag(47) := g_array(p_seq_num).hide_flag_47;
3539     g_hide_flag(48) := g_array(p_seq_num).hide_flag_48;
3540     g_hide_flag(49) := g_array(p_seq_num).hide_flag_49;
3541     g_hide_flag(50) := g_array(p_seq_num).hide_flag_50;
3542     g_hide_flag(51) := g_array(p_seq_num).hide_flag_51;
3543     g_hide_flag(52) := g_array(p_seq_num).hide_flag_52;
3544     g_hide_flag(53) := g_array(p_seq_num).hide_flag_53;
3545     g_hide_flag(54) := g_array(p_seq_num).hide_flag_54;
3546     g_hide_flag(55) := g_array(p_seq_num).hide_flag_55;
3547     g_hide_flag(56) := g_array(p_seq_num).hide_flag_56;
3548     g_hide_flag(57) := g_array(p_seq_num).hide_flag_57;
3549     g_hide_flag(58) := g_array(p_seq_num).hide_flag_58;
3550     g_hide_flag(59) := g_array(p_seq_num).hide_flag_59;
3551     g_hide_flag(60) := g_array(p_seq_num).hide_flag_60;
3552     g_hide_flag(61) := g_array(p_seq_num).hide_flag_61;
3553     g_hide_flag(62) := g_array(p_seq_num).hide_flag_62;
3554     g_hide_flag(63) := g_array(p_seq_num).hide_flag_63;
3555     g_hide_flag(64) := g_array(p_seq_num).hide_flag_64;
3556     g_hide_flag(65) := g_array(p_seq_num).hide_flag_65;
3557     g_hide_flag(66) := g_array(p_seq_num).hide_flag_66;
3558     g_hide_flag(67) := g_array(p_seq_num).hide_flag_67;
3559     g_hide_flag(68) := g_array(p_seq_num).hide_flag_68;
3563     g_hide_flag(72) := g_array(p_seq_num).hide_flag_72;
3560     g_hide_flag(69) := g_array(p_seq_num).hide_flag_69;
3561     g_hide_flag(70) := g_array(p_seq_num).hide_flag_70;
3562     g_hide_flag(71) := g_array(p_seq_num).hide_flag_71;
3564     g_hide_flag(73) := g_array(p_seq_num).hide_flag_73;
3565     g_hide_flag(74) := g_array(p_seq_num).hide_flag_74;
3566     g_hide_flag(75) := g_array(p_seq_num).hide_flag_75;
3567     g_hide_flag(76) := g_array(p_seq_num).hide_flag_76;
3568     g_hide_flag(77) := g_array(p_seq_num).hide_flag_77;
3569     g_hide_flag(78) := g_array(p_seq_num).hide_flag_78;
3570     g_hide_flag(79) := g_array(p_seq_num).hide_flag_79;
3571     g_hide_flag(80) := g_array(p_seq_num).hide_flag_80;
3572     g_hide_flag(81) := g_array(p_seq_num).hide_flag_81;
3573     g_hide_flag(82) := g_array(p_seq_num).hide_flag_82;
3574     g_hide_flag(83) := g_array(p_seq_num).hide_flag_83;
3575     g_hide_flag(84) := g_array(p_seq_num).hide_flag_84;
3576     g_hide_flag(85) := g_array(p_seq_num).hide_flag_85;
3577     g_hide_flag(86) := g_array(p_seq_num).hide_flag_86;
3578     g_hide_flag(87) := g_array(p_seq_num).hide_flag_87;
3579     g_hide_flag(88) := g_array(p_seq_num).hide_flag_88;
3580     g_hide_flag(89) := g_array(p_seq_num).hide_flag_89;
3581     g_hide_flag(90) := g_array(p_seq_num).hide_flag_90;
3582     g_hide_flag(91) := g_array(p_seq_num).hide_flag_91;
3583     g_hide_flag(92) := g_array(p_seq_num).hide_flag_92;
3584     g_hide_flag(93) := g_array(p_seq_num).hide_flag_93;
3585     g_hide_flag(94) := g_array(p_seq_num).hide_flag_94;
3586     g_hide_flag(95) := g_array(p_seq_num).hide_flag_95;
3587     g_hide_flag(96) := g_array(p_seq_num).hide_flag_96;
3588     g_hide_flag(97) := g_array(p_seq_num).hide_flag_97;
3589     g_hide_flag(98) := g_array(p_seq_num).hide_flag_98;
3590     g_hide_flag(99) := g_array(p_seq_num).hide_flag_99;
3591     g_hide_flag(100) := g_array(p_seq_num).hide_flag_100;
3592     g_hide_flag(101) := g_array(p_seq_num).hide_flag_101;
3593     g_hide_flag(102) := g_array(p_seq_num).hide_flag_102;
3594     g_hide_flag(103) := g_array(p_seq_num).hide_flag_103;
3595     g_hide_flag(104) := g_array(p_seq_num).hide_flag_104;
3596     g_hide_flag(105) := g_array(p_seq_num).hide_flag_105;
3597     g_hide_flag(106) := g_array(p_seq_num).hide_flag_106;
3598     g_hide_flag(107) := g_array(p_seq_num).hide_flag_107;
3599     g_hide_flag(108) := g_array(p_seq_num).hide_flag_108;
3600     g_hide_flag(109) := g_array(p_seq_num).hide_flag_109;
3601     g_hide_flag(110) := g_array(p_seq_num).hide_flag_110;
3602     g_hide_flag(111) := g_array(p_seq_num).hide_flag_111;
3603     g_hide_flag(112) := g_array(p_seq_num).hide_flag_112;
3604     g_hide_flag(113) := g_array(p_seq_num).hide_flag_113;
3605     g_hide_flag(114) := g_array(p_seq_num).hide_flag_114;
3606     g_hide_flag(115) := g_array(p_seq_num).hide_flag_115;
3607     g_hide_flag(116) := g_array(p_seq_num).hide_flag_116;
3608     g_hide_flag(117) := g_array(p_seq_num).hide_flag_117;
3609     g_hide_flag(118) := g_array(p_seq_num).hide_flag_118;
3610     g_hide_flag(119) := g_array(p_seq_num).hide_flag_119;
3611     g_hide_flag(120) := g_array(p_seq_num).hide_flag_120;
3612     g_hide_flag(121) := g_array(p_seq_num).hide_flag_121;
3613     g_hide_flag(122) := g_array(p_seq_num).hide_flag_122;
3614     g_hide_flag(123) := g_array(p_seq_num).hide_flag_123;
3615     g_hide_flag(124) := g_array(p_seq_num).hide_flag_124;
3616     g_hide_flag(125) := g_array(p_seq_num).hide_flag_125;
3617     g_hide_flag(126) := g_array(p_seq_num).hide_flag_126;
3618     g_hide_flag(127) := g_array(p_seq_num).hide_flag_127;
3619     g_hide_flag(128) := g_array(p_seq_num).hide_flag_128;
3620     g_hide_flag(129) := g_array(p_seq_num).hide_flag_129;
3621     g_hide_flag(130) := g_array(p_seq_num).hide_flag_130;
3622     g_hide_flag(131) := g_array(p_seq_num).hide_flag_131;
3623     g_hide_flag(132) := g_array(p_seq_num).hide_flag_132;
3624     g_hide_flag(133) := g_array(p_seq_num).hide_flag_133;
3625     g_hide_flag(134) := g_array(p_seq_num).hide_flag_134;
3626     g_hide_flag(135) := g_array(p_seq_num).hide_flag_135;
3627     g_hide_flag(136) := g_array(p_seq_num).hide_flag_136;
3628     g_hide_flag(137) := g_array(p_seq_num).hide_flag_137;
3629     g_hide_flag(138) := g_array(p_seq_num).hide_flag_138;
3630     g_hide_flag(139) := g_array(p_seq_num).hide_flag_139;
3631     g_hide_flag(140) := g_array(p_seq_num).hide_flag_140;
3632     g_hide_flag(141) := g_array(p_seq_num).hide_flag_141;
3633     g_hide_flag(142) := g_array(p_seq_num).hide_flag_142;
3634     g_hide_flag(143) := g_array(p_seq_num).hide_flag_143;
3635     g_hide_flag(144) := g_array(p_seq_num).hide_flag_144;
3636     g_hide_flag(145) := g_array(p_seq_num).hide_flag_145;
3637     g_hide_flag(146) := g_array(p_seq_num).hide_flag_146;
3638     g_hide_flag(147) := g_array(p_seq_num).hide_flag_147;
3639     g_hide_flag(148) := g_array(p_seq_num).hide_flag_148;
3640     g_hide_flag(149) := g_array(p_seq_num).hide_flag_149;
3641     g_hide_flag(150) := g_array(p_seq_num).hide_flag_150;
3642     g_hide_flag(151) := g_array(p_seq_num).hide_flag_151;
3643     g_hide_flag(152) := g_array(p_seq_num).hide_flag_152;
3644     g_hide_flag(153) := g_array(p_seq_num).hide_flag_153;
3645     g_hide_flag(154) := g_array(p_seq_num).hide_flag_154;
3646     g_hide_flag(155) := g_array(p_seq_num).hide_flag_155;
3647     g_hide_flag(156) := g_array(p_seq_num).hide_flag_156;
3648     g_hide_flag(157) := g_array(p_seq_num).hide_flag_157;
3649     g_hide_flag(158) := g_array(p_seq_num).hide_flag_158;
3650     g_hide_flag(159) := g_array(p_seq_num).hide_flag_159;
3651     g_hide_flag(160) := g_array(p_seq_num).hide_flag_160;
3652     g_hide_flag(161) := g_array(p_seq_num).hide_flag_161;
3653     g_hide_flag(162) := g_array(p_seq_num).hide_flag_162;
3654     g_hide_flag(163) := g_array(p_seq_num).hide_flag_163;
3655     g_hide_flag(164) := g_array(p_seq_num).hide_flag_164;
3656     g_hide_flag(165) := g_array(p_seq_num).hide_flag_165;
3657     g_hide_flag(166) := g_array(p_seq_num).hide_flag_166;
3658     g_hide_flag(167) := g_array(p_seq_num).hide_flag_167;
3662     g_hide_flag(171) := g_array(p_seq_num).hide_flag_171;
3659     g_hide_flag(168) := g_array(p_seq_num).hide_flag_168;
3660     g_hide_flag(169) := g_array(p_seq_num).hide_flag_169;
3661     g_hide_flag(170) := g_array(p_seq_num).hide_flag_170;
3663     g_hide_flag(172) := g_array(p_seq_num).hide_flag_172;
3664     g_hide_flag(173) := g_array(p_seq_num).hide_flag_173;
3665     g_hide_flag(174) := g_array(p_seq_num).hide_flag_174;
3666     g_hide_flag(175) := g_array(p_seq_num).hide_flag_175;
3667     g_hide_flag(176) := g_array(p_seq_num).hide_flag_176;
3668     g_hide_flag(177) := g_array(p_seq_num).hide_flag_177;
3669     g_hide_flag(178) := g_array(p_seq_num).hide_flag_178;
3670     g_hide_flag(179) := g_array(p_seq_num).hide_flag_179;
3671     g_hide_flag(180) := g_array(p_seq_num).hide_flag_180;
3672     g_hide_flag(181) := g_array(p_seq_num).hide_flag_181;
3673     g_hide_flag(182) := g_array(p_seq_num).hide_flag_182;
3674     g_hide_flag(183) := g_array(p_seq_num).hide_flag_183;
3675     g_hide_flag(184) := g_array(p_seq_num).hide_flag_184;
3676     g_hide_flag(185) := g_array(p_seq_num).hide_flag_185;
3677     g_hide_flag(186) := g_array(p_seq_num).hide_flag_186;
3678     g_hide_flag(187) := g_array(p_seq_num).hide_flag_187;
3679     g_hide_flag(188) := g_array(p_seq_num).hide_flag_188;
3680     g_hide_flag(189) := g_array(p_seq_num).hide_flag_189;
3681     g_hide_flag(190) := g_array(p_seq_num).hide_flag_190;
3682     g_hide_flag(191) := g_array(p_seq_num).hide_flag_191;
3683     g_hide_flag(192) := g_array(p_seq_num).hide_flag_192;
3684     g_hide_flag(193) := g_array(p_seq_num).hide_flag_193;
3685     g_hide_flag(194) := g_array(p_seq_num).hide_flag_194;
3686     g_hide_flag(195) := g_array(p_seq_num).hide_flag_195;
3687     g_hide_flag(196) := g_array(p_seq_num).hide_flag_196;
3688     g_hide_flag(197) := g_array(p_seq_num).hide_flag_197;
3689     g_hide_flag(198) := g_array(p_seq_num).hide_flag_198;
3690     g_hide_flag(199) := g_array(p_seq_num).hide_flag_199;
3691     g_hide_flag(200) := g_array(p_seq_num).hide_flag_200;
3692     g_hide_flag(201) := g_array(p_seq_num).hide_flag_201;
3693     g_hide_flag(202) := g_array(p_seq_num).hide_flag_202;
3694     g_hide_flag(203) := g_array(p_seq_num).hide_flag_203;
3695     g_hide_flag(204) := g_array(p_seq_num).hide_flag_204;
3696     g_hide_flag(205) := g_array(p_seq_num).hide_flag_205;
3697     g_hide_flag(206) := g_array(p_seq_num).hide_flag_206;
3698     g_hide_flag(207) := g_array(p_seq_num).hide_flag_207;
3699     g_hide_flag(208) := g_array(p_seq_num).hide_flag_208;
3700     g_hide_flag(209) := g_array(p_seq_num).hide_flag_209;
3701     g_hide_flag(210) := g_array(p_seq_num).hide_flag_210;
3702     g_hide_flag(211) := g_array(p_seq_num).hide_flag_211;
3703     g_hide_flag(212) := g_array(p_seq_num).hide_flag_212;
3704     g_hide_flag(213) := g_array(p_seq_num).hide_flag_213;
3705     g_hide_flag(214) := g_array(p_seq_num).hide_flag_214;
3706     g_hide_flag(215) := g_array(p_seq_num).hide_flag_215;
3707     g_hide_flag(216) := g_array(p_seq_num).hide_flag_216;
3708     g_hide_flag(217) := g_array(p_seq_num).hide_flag_217;
3709     g_hide_flag(218) := g_array(p_seq_num).hide_flag_218;
3710     g_hide_flag(219) := g_array(p_seq_num).hide_flag_219;
3711     g_hide_flag(220) := g_array(p_seq_num).hide_flag_220;
3712     g_hide_flag(221) := g_array(p_seq_num).hide_flag_221;
3713     g_hide_flag(222) := g_array(p_seq_num).hide_flag_222;
3714     g_hide_flag(223) := g_array(p_seq_num).hide_flag_223;
3715     g_hide_flag(224) := g_array(p_seq_num).hide_flag_224;
3716     g_hide_flag(225) := g_array(p_seq_num).hide_flag_225;
3717     g_hide_flag(226) := g_array(p_seq_num).hide_flag_226;
3718     g_hide_flag(227) := g_array(p_seq_num).hide_flag_227;
3719     g_hide_flag(228) := g_array(p_seq_num).hide_flag_228;
3720     g_hide_flag(229) := g_array(p_seq_num).hide_flag_229;
3721     g_hide_flag(230) := g_array(p_seq_num).hide_flag_230;
3722     g_hide_flag(231) := g_array(p_seq_num).hide_flag_231;
3723     g_hide_flag(232) := g_array(p_seq_num).hide_flag_232;
3724     g_hide_flag(233) := g_array(p_seq_num).hide_flag_233;
3725     g_hide_flag(234) := g_array(p_seq_num).hide_flag_234;
3726     g_hide_flag(235) := g_array(p_seq_num).hide_flag_235;
3727     g_hide_flag(236) := g_array(p_seq_num).hide_flag_236;
3728     g_hide_flag(237) := g_array(p_seq_num).hide_flag_237;
3729     g_hide_flag(238) := g_array(p_seq_num).hide_flag_238;
3730     g_hide_flag(239) := g_array(p_seq_num).hide_flag_239;
3731     g_hide_flag(240) := g_array(p_seq_num).hide_flag_240;
3732     g_hide_flag(241) := g_array(p_seq_num).hide_flag_241;
3733     g_hide_flag(242) := g_array(p_seq_num).hide_flag_242;
3734     g_hide_flag(243) := g_array(p_seq_num).hide_flag_243;
3735     g_hide_flag(244) := g_array(p_seq_num).hide_flag_244;
3736     g_hide_flag(245) := g_array(p_seq_num).hide_flag_245;
3737     g_hide_flag(246) := g_array(p_seq_num).hide_flag_246;
3738     g_hide_flag(247) := g_array(p_seq_num).hide_flag_247;
3739     g_hide_flag(248) := g_array(p_seq_num).hide_flag_248;
3740     g_hide_flag(249) := g_array(p_seq_num).hide_flag_249;
3741     g_hide_flag(250) := g_array(p_seq_num).hide_flag_250;
3742     g_hide_flag(251) := g_array(p_seq_num).hide_flag_251;
3743     g_hide_flag(252) := g_array(p_seq_num).hide_flag_252;
3744     g_hide_flag(253) := g_array(p_seq_num).hide_flag_253;
3745     g_hide_flag(254) := g_array(p_seq_num).hide_flag_254;
3746     g_hide_flag(255) := g_array(p_seq_num).hide_flag_255;
3747     g_hide_flag(256) := g_array(p_seq_num).hide_flag_256;
3748     g_hide_flag(257) := g_array(p_seq_num).hide_flag_257;
3749     g_hide_flag(258) := g_array(p_seq_num).hide_flag_258;
3750     g_hide_flag(259) := g_array(p_seq_num).hide_flag_259;
3751     g_hide_flag(260) := g_array(p_seq_num).hide_flag_260;
3752     g_hide_flag(261) := g_array(p_seq_num).hide_flag_261;
3753     g_hide_flag(262) := g_array(p_seq_num).hide_flag_262;
3754     g_hide_flag(263) := g_array(p_seq_num).hide_flag_263;
3755     g_hide_flag(264) := g_array(p_seq_num).hide_flag_264;
3756     g_hide_flag(265) := g_array(p_seq_num).hide_flag_265;
3760     g_hide_flag(269) := g_array(p_seq_num).hide_flag_269;
3757     g_hide_flag(266) := g_array(p_seq_num).hide_flag_266;
3758     g_hide_flag(267) := g_array(p_seq_num).hide_flag_267;
3759     g_hide_flag(268) := g_array(p_seq_num).hide_flag_268;
3761     g_hide_flag(270) := g_array(p_seq_num).hide_flag_270;
3762     g_hide_flag(271) := g_array(p_seq_num).hide_flag_271;
3763     g_hide_flag(272) := g_array(p_seq_num).hide_flag_272;
3764     g_hide_flag(273) := g_array(p_seq_num).hide_flag_273;
3765     g_hide_flag(274) := g_array(p_seq_num).hide_flag_274;
3766     g_hide_flag(275) := g_array(p_seq_num).hide_flag_275;
3767     g_hide_flag(276) := g_array(p_seq_num).hide_flag_276;
3768     g_hide_flag(277) := g_array(p_seq_num).hide_flag_277;
3769     g_hide_flag(278) := g_array(p_seq_num).hide_flag_278;
3770     g_hide_flag(279) := g_array(p_seq_num).hide_flag_279;
3771     g_hide_flag(280) := g_array(p_seq_num).hide_flag_280;
3772     g_hide_flag(281) := g_array(p_seq_num).hide_flag_281;
3773     g_hide_flag(282) := g_array(p_seq_num).hide_flag_282;
3774     g_hide_flag(283) := g_array(p_seq_num).hide_flag_283;
3775     g_hide_flag(284) := g_array(p_seq_num).hide_flag_284;
3776     g_hide_flag(285) := g_array(p_seq_num).hide_flag_285;
3777     g_hide_flag(286) := g_array(p_seq_num).hide_flag_286;
3778     g_hide_flag(287) := g_array(p_seq_num).hide_flag_287;
3779     g_hide_flag(288) := g_array(p_seq_num).hide_flag_288;
3780     g_hide_flag(289) := g_array(p_seq_num).hide_flag_289;
3781     g_hide_flag(290) := g_array(p_seq_num).hide_flag_290;
3782     g_hide_flag(291) := g_array(p_seq_num).hide_flag_291;
3783     g_hide_flag(292) := g_array(p_seq_num).hide_flag_292;
3784     g_hide_flag(293) := g_array(p_seq_num).hide_flag_293;
3785     g_hide_flag(294) := g_array(p_seq_num).hide_flag_294;
3786     g_hide_flag(295) := g_array(p_seq_num).hide_flag_295;
3787     g_hide_flag(296) := g_array(p_seq_num).hide_flag_296;
3788     g_hide_flag(297) := g_array(p_seq_num).hide_flag_297;
3789     g_hide_flag(298) := g_array(p_seq_num).hide_flag_298;
3790     g_hide_flag(299) := g_array(p_seq_num).hide_flag_299;
3791     g_hide_flag(300) := g_array(p_seq_num).hide_flag_300;
3792     --
3793     g_short_name(01) := g_array(p_seq_num).short_name_01;
3794     g_short_name(02) := g_array(p_seq_num).short_name_02;
3795     g_short_name(03) := g_array(p_seq_num).short_name_03;
3796     g_short_name(04) := g_array(p_seq_num).short_name_04;
3797     g_short_name(05) := g_array(p_seq_num).short_name_05;
3798     g_short_name(06) := g_array(p_seq_num).short_name_06;
3799     g_short_name(07) := g_array(p_seq_num).short_name_07;
3800     g_short_name(08) := g_array(p_seq_num).short_name_08;
3801     g_short_name(09) := g_array(p_seq_num).short_name_09;
3802     g_short_name(10) := g_array(p_seq_num).short_name_10;
3803     g_short_name(11) := g_array(p_seq_num).short_name_11;
3804     g_short_name(12) := g_array(p_seq_num).short_name_12;
3805     g_short_name(13) := g_array(p_seq_num).short_name_13;
3806     g_short_name(14) := g_array(p_seq_num).short_name_14;
3807     g_short_name(15) := g_array(p_seq_num).short_name_15;
3808     g_short_name(16) := g_array(p_seq_num).short_name_16;
3809     g_short_name(17) := g_array(p_seq_num).short_name_17;
3810     g_short_name(18) := g_array(p_seq_num).short_name_18;
3811     g_short_name(19) := g_array(p_seq_num).short_name_19;
3812     g_short_name(20) := g_array(p_seq_num).short_name_20;
3813     g_short_name(21) := g_array(p_seq_num).short_name_21;
3814     g_short_name(22) := g_array(p_seq_num).short_name_22;
3815     g_short_name(23) := g_array(p_seq_num).short_name_23;
3816     g_short_name(24) := g_array(p_seq_num).short_name_24;
3817     g_short_name(25) := g_array(p_seq_num).short_name_25;
3818     g_short_name(26) := g_array(p_seq_num).short_name_26;
3819     g_short_name(27) := g_array(p_seq_num).short_name_27;
3820     g_short_name(28) := g_array(p_seq_num).short_name_28;
3821     g_short_name(29) := g_array(p_seq_num).short_name_29;
3822     g_short_name(30) := g_array(p_seq_num).short_name_30;
3823     g_short_name(31) := g_array(p_seq_num).short_name_31;
3824     g_short_name(32) := g_array(p_seq_num).short_name_32;
3825     g_short_name(33) := g_array(p_seq_num).short_name_33;
3826     g_short_name(34) := g_array(p_seq_num).short_name_34;
3827     g_short_name(35) := g_array(p_seq_num).short_name_35;
3828     g_short_name(36) := g_array(p_seq_num).short_name_36;
3829     g_short_name(37) := g_array(p_seq_num).short_name_37;
3830     g_short_name(38) := g_array(p_seq_num).short_name_38;
3831     g_short_name(39) := g_array(p_seq_num).short_name_39;
3832     g_short_name(40) := g_array(p_seq_num).short_name_40;
3833     g_short_name(41) := g_array(p_seq_num).short_name_41;
3834     g_short_name(42) := g_array(p_seq_num).short_name_42;
3835     g_short_name(43) := g_array(p_seq_num).short_name_43;
3836     g_short_name(44) := g_array(p_seq_num).short_name_44;
3837     g_short_name(45) := g_array(p_seq_num).short_name_45;
3838     g_short_name(46) := g_array(p_seq_num).short_name_46;
3839     g_short_name(47) := g_array(p_seq_num).short_name_47;
3840     g_short_name(48) := g_array(p_seq_num).short_name_48;
3841     g_short_name(49) := g_array(p_seq_num).short_name_49;
3842     g_short_name(50) := g_array(p_seq_num).short_name_50;
3843     g_short_name(51) := g_array(p_seq_num).short_name_51;
3844     g_short_name(52) := g_array(p_seq_num).short_name_52;
3845     g_short_name(53) := g_array(p_seq_num).short_name_53;
3846     g_short_name(54) := g_array(p_seq_num).short_name_54;
3847     g_short_name(55) := g_array(p_seq_num).short_name_55;
3848     g_short_name(56) := g_array(p_seq_num).short_name_56;
3849     g_short_name(57) := g_array(p_seq_num).short_name_57;
3850     g_short_name(58) := g_array(p_seq_num).short_name_58;
3851     g_short_name(59) := g_array(p_seq_num).short_name_59;
3852     g_short_name(60) := g_array(p_seq_num).short_name_60;
3853     g_short_name(61) := g_array(p_seq_num).short_name_61;
3854     g_short_name(62) := g_array(p_seq_num).short_name_62;
3858     g_short_name(66) := g_array(p_seq_num).short_name_66;
3855     g_short_name(63) := g_array(p_seq_num).short_name_63;
3856     g_short_name(64) := g_array(p_seq_num).short_name_64;
3857     g_short_name(65) := g_array(p_seq_num).short_name_65;
3859     g_short_name(67) := g_array(p_seq_num).short_name_67;
3860     g_short_name(68) := g_array(p_seq_num).short_name_68;
3861     g_short_name(69) := g_array(p_seq_num).short_name_69;
3862     g_short_name(70) := g_array(p_seq_num).short_name_70;
3863     g_short_name(71) := g_array(p_seq_num).short_name_71;
3864     g_short_name(72) := g_array(p_seq_num).short_name_72;
3865     g_short_name(73) := g_array(p_seq_num).short_name_73;
3866     g_short_name(74) := g_array(p_seq_num).short_name_74;
3867     g_short_name(75) := g_array(p_seq_num).short_name_75;
3868     g_short_name(76) := g_array(p_seq_num).short_name_76;
3869     g_short_name(77) := g_array(p_seq_num).short_name_77;
3870     g_short_name(78) := g_array(p_seq_num).short_name_78;
3871     g_short_name(79) := g_array(p_seq_num).short_name_79;
3872     g_short_name(80) := g_array(p_seq_num).short_name_80;
3873     g_short_name(81) := g_array(p_seq_num).short_name_81;
3874     g_short_name(82) := g_array(p_seq_num).short_name_82;
3875     g_short_name(83) := g_array(p_seq_num).short_name_83;
3876     g_short_name(84) := g_array(p_seq_num).short_name_84;
3877     g_short_name(85) := g_array(p_seq_num).short_name_85;
3878     g_short_name(86) := g_array(p_seq_num).short_name_86;
3879     g_short_name(87) := g_array(p_seq_num).short_name_87;
3880     g_short_name(88) := g_array(p_seq_num).short_name_88;
3881     g_short_name(89) := g_array(p_seq_num).short_name_89;
3882     g_short_name(90) := g_array(p_seq_num).short_name_90;
3883     g_short_name(91) := g_array(p_seq_num).short_name_91;
3884     g_short_name(92) := g_array(p_seq_num).short_name_92;
3885     g_short_name(93) := g_array(p_seq_num).short_name_93;
3886     g_short_name(94) := g_array(p_seq_num).short_name_94;
3887     g_short_name(95) := g_array(p_seq_num).short_name_95;
3888     g_short_name(96) := g_array(p_seq_num).short_name_96;
3889     g_short_name(97) := g_array(p_seq_num).short_name_97;
3890     g_short_name(98) := g_array(p_seq_num).short_name_98;
3891     g_short_name(99) := g_array(p_seq_num).short_name_99;
3892     g_short_name(100) := g_array(p_seq_num).short_name_100;
3893     g_short_name(101) := g_array(p_seq_num).short_name_101;
3894     g_short_name(102) := g_array(p_seq_num).short_name_102;
3895     g_short_name(103) := g_array(p_seq_num).short_name_103;
3896     g_short_name(104) := g_array(p_seq_num).short_name_104;
3897     g_short_name(105) := g_array(p_seq_num).short_name_105;
3898     g_short_name(106) := g_array(p_seq_num).short_name_106;
3899     g_short_name(107) := g_array(p_seq_num).short_name_107;
3900     g_short_name(108) := g_array(p_seq_num).short_name_108;
3901     g_short_name(109) := g_array(p_seq_num).short_name_109;
3902     g_short_name(110) := g_array(p_seq_num).short_name_110;
3903     g_short_name(111) := g_array(p_seq_num).short_name_111;
3904     g_short_name(112) := g_array(p_seq_num).short_name_112;
3905     g_short_name(113) := g_array(p_seq_num).short_name_113;
3906     g_short_name(114) := g_array(p_seq_num).short_name_114;
3907     g_short_name(115) := g_array(p_seq_num).short_name_115;
3908     g_short_name(116) := g_array(p_seq_num).short_name_116;
3909     g_short_name(117) := g_array(p_seq_num).short_name_117;
3910     g_short_name(118) := g_array(p_seq_num).short_name_118;
3911     g_short_name(119) := g_array(p_seq_num).short_name_119;
3912     g_short_name(120) := g_array(p_seq_num).short_name_120;
3913     g_short_name(121) := g_array(p_seq_num).short_name_121;
3914     g_short_name(122) := g_array(p_seq_num).short_name_122;
3915     g_short_name(123) := g_array(p_seq_num).short_name_123;
3916     g_short_name(124) := g_array(p_seq_num).short_name_124;
3917     g_short_name(125) := g_array(p_seq_num).short_name_125;
3918     g_short_name(126) := g_array(p_seq_num).short_name_126;
3919     g_short_name(127) := g_array(p_seq_num).short_name_127;
3920     g_short_name(128) := g_array(p_seq_num).short_name_128;
3921     g_short_name(129) := g_array(p_seq_num).short_name_129;
3922     g_short_name(130) := g_array(p_seq_num).short_name_130;
3923     g_short_name(131) := g_array(p_seq_num).short_name_131;
3924     g_short_name(132) := g_array(p_seq_num).short_name_132;
3925     g_short_name(133) := g_array(p_seq_num).short_name_133;
3926     g_short_name(134) := g_array(p_seq_num).short_name_134;
3927     g_short_name(135) := g_array(p_seq_num).short_name_135;
3928     g_short_name(136) := g_array(p_seq_num).short_name_136;
3929     g_short_name(137) := g_array(p_seq_num).short_name_137;
3930     g_short_name(138) := g_array(p_seq_num).short_name_138;
3931     g_short_name(139) := g_array(p_seq_num).short_name_139;
3932     g_short_name(140) := g_array(p_seq_num).short_name_140;
3933     g_short_name(141) := g_array(p_seq_num).short_name_141;
3934     g_short_name(142) := g_array(p_seq_num).short_name_142;
3935     g_short_name(143) := g_array(p_seq_num).short_name_143;
3936     g_short_name(144) := g_array(p_seq_num).short_name_144;
3937     g_short_name(145) := g_array(p_seq_num).short_name_145;
3938     g_short_name(146) := g_array(p_seq_num).short_name_146;
3939     g_short_name(147) := g_array(p_seq_num).short_name_147;
3940     g_short_name(148) := g_array(p_seq_num).short_name_148;
3941     g_short_name(149) := g_array(p_seq_num).short_name_149;
3942     g_short_name(150) := g_array(p_seq_num).short_name_150;
3943     g_short_name(151) := g_array(p_seq_num).short_name_151;
3944     g_short_name(152) := g_array(p_seq_num).short_name_152;
3945     g_short_name(153) := g_array(p_seq_num).short_name_153;
3946     g_short_name(154) := g_array(p_seq_num).short_name_154;
3947     g_short_name(155) := g_array(p_seq_num).short_name_155;
3948     g_short_name(156) := g_array(p_seq_num).short_name_156;
3949     g_short_name(157) := g_array(p_seq_num).short_name_157;
3950     g_short_name(158) := g_array(p_seq_num).short_name_158;
3954     g_short_name(162) := g_array(p_seq_num).short_name_162;
3951     g_short_name(159) := g_array(p_seq_num).short_name_159;
3952     g_short_name(160) := g_array(p_seq_num).short_name_160;
3953     g_short_name(161) := g_array(p_seq_num).short_name_161;
3955     g_short_name(163) := g_array(p_seq_num).short_name_163;
3956     g_short_name(164) := g_array(p_seq_num).short_name_164;
3957     g_short_name(165) := g_array(p_seq_num).short_name_165;
3958     g_short_name(166) := g_array(p_seq_num).short_name_166;
3959     g_short_name(167) := g_array(p_seq_num).short_name_167;
3960     g_short_name(168) := g_array(p_seq_num).short_name_168;
3961     g_short_name(169) := g_array(p_seq_num).short_name_169;
3962     g_short_name(170) := g_array(p_seq_num).short_name_170;
3963     g_short_name(171) := g_array(p_seq_num).short_name_171;
3964     g_short_name(172) := g_array(p_seq_num).short_name_172;
3965     g_short_name(173) := g_array(p_seq_num).short_name_173;
3966     g_short_name(174) := g_array(p_seq_num).short_name_174;
3967     g_short_name(175) := g_array(p_seq_num).short_name_175;
3968     g_short_name(176) := g_array(p_seq_num).short_name_176;
3969     g_short_name(177) := g_array(p_seq_num).short_name_177;
3970     g_short_name(178) := g_array(p_seq_num).short_name_178;
3971     g_short_name(179) := g_array(p_seq_num).short_name_179;
3972     g_short_name(180) := g_array(p_seq_num).short_name_180;
3973     g_short_name(181) := g_array(p_seq_num).short_name_181;
3974     g_short_name(182) := g_array(p_seq_num).short_name_182;
3975     g_short_name(183) := g_array(p_seq_num).short_name_183;
3976     g_short_name(184) := g_array(p_seq_num).short_name_184;
3977     g_short_name(185) := g_array(p_seq_num).short_name_185;
3978     g_short_name(186) := g_array(p_seq_num).short_name_186;
3979     g_short_name(187) := g_array(p_seq_num).short_name_187;
3980     g_short_name(188) := g_array(p_seq_num).short_name_188;
3981     g_short_name(189) := g_array(p_seq_num).short_name_189;
3982     g_short_name(190) := g_array(p_seq_num).short_name_190;
3983     g_short_name(191) := g_array(p_seq_num).short_name_191;
3984     g_short_name(192) := g_array(p_seq_num).short_name_192;
3985     g_short_name(193) := g_array(p_seq_num).short_name_193;
3986     g_short_name(194) := g_array(p_seq_num).short_name_194;
3987     g_short_name(195) := g_array(p_seq_num).short_name_195;
3988     g_short_name(196) := g_array(p_seq_num).short_name_196;
3989     g_short_name(197) := g_array(p_seq_num).short_name_197;
3990     g_short_name(198) := g_array(p_seq_num).short_name_198;
3991     g_short_name(199) := g_array(p_seq_num).short_name_199;
3992     g_short_name(200) := g_array(p_seq_num).short_name_200;
3993     g_short_name(201) := g_array(p_seq_num).short_name_201;
3994     g_short_name(202) := g_array(p_seq_num).short_name_202;
3995     g_short_name(203) := g_array(p_seq_num).short_name_203;
3996     g_short_name(204) := g_array(p_seq_num).short_name_204;
3997     g_short_name(205) := g_array(p_seq_num).short_name_205;
3998     g_short_name(206) := g_array(p_seq_num).short_name_206;
3999     g_short_name(207) := g_array(p_seq_num).short_name_207;
4000     g_short_name(208) := g_array(p_seq_num).short_name_208;
4001     g_short_name(209) := g_array(p_seq_num).short_name_209;
4002     g_short_name(210) := g_array(p_seq_num).short_name_210;
4003     g_short_name(211) := g_array(p_seq_num).short_name_211;
4004     g_short_name(212) := g_array(p_seq_num).short_name_212;
4005     g_short_name(213) := g_array(p_seq_num).short_name_213;
4006     g_short_name(214) := g_array(p_seq_num).short_name_214;
4007     g_short_name(215) := g_array(p_seq_num).short_name_215;
4008     g_short_name(216) := g_array(p_seq_num).short_name_216;
4009     g_short_name(217) := g_array(p_seq_num).short_name_217;
4010     g_short_name(218) := g_array(p_seq_num).short_name_218;
4011     g_short_name(219) := g_array(p_seq_num).short_name_219;
4012     g_short_name(220) := g_array(p_seq_num).short_name_220;
4013     g_short_name(221) := g_array(p_seq_num).short_name_221;
4014     g_short_name(222) := g_array(p_seq_num).short_name_222;
4015     g_short_name(223) := g_array(p_seq_num).short_name_223;
4016     g_short_name(224) := g_array(p_seq_num).short_name_224;
4017     g_short_name(225) := g_array(p_seq_num).short_name_225;
4018     g_short_name(226) := g_array(p_seq_num).short_name_226;
4019     g_short_name(227) := g_array(p_seq_num).short_name_227;
4020     g_short_name(228) := g_array(p_seq_num).short_name_228;
4021     g_short_name(229) := g_array(p_seq_num).short_name_229;
4022     g_short_name(230) := g_array(p_seq_num).short_name_230;
4023     g_short_name(231) := g_array(p_seq_num).short_name_231;
4024     g_short_name(232) := g_array(p_seq_num).short_name_232;
4025     g_short_name(233) := g_array(p_seq_num).short_name_233;
4026     g_short_name(234) := g_array(p_seq_num).short_name_234;
4027     g_short_name(235) := g_array(p_seq_num).short_name_235;
4028     g_short_name(236) := g_array(p_seq_num).short_name_236;
4029     g_short_name(237) := g_array(p_seq_num).short_name_237;
4030     g_short_name(238) := g_array(p_seq_num).short_name_238;
4031     g_short_name(239) := g_array(p_seq_num).short_name_239;
4032     g_short_name(240) := g_array(p_seq_num).short_name_240;
4033     g_short_name(241) := g_array(p_seq_num).short_name_241;
4034     g_short_name(242) := g_array(p_seq_num).short_name_242;
4035     g_short_name(243) := g_array(p_seq_num).short_name_243;
4036     g_short_name(244) := g_array(p_seq_num).short_name_244;
4037     g_short_name(245) := g_array(p_seq_num).short_name_245;
4038     g_short_name(246) := g_array(p_seq_num).short_name_246;
4039     g_short_name(247) := g_array(p_seq_num).short_name_247;
4040     g_short_name(248) := g_array(p_seq_num).short_name_248;
4041     g_short_name(249) := g_array(p_seq_num).short_name_249;
4042     g_short_name(250) := g_array(p_seq_num).short_name_250;
4043     g_short_name(251) := g_array(p_seq_num).short_name_251;
4044     g_short_name(252) := g_array(p_seq_num).short_name_252;
4048     g_short_name(256) := g_array(p_seq_num).short_name_256;
4045     g_short_name(253) := g_array(p_seq_num).short_name_253;
4046     g_short_name(254) := g_array(p_seq_num).short_name_254;
4047     g_short_name(255) := g_array(p_seq_num).short_name_255;
4049     g_short_name(257) := g_array(p_seq_num).short_name_257;
4050     g_short_name(258) := g_array(p_seq_num).short_name_258;
4051     g_short_name(259) := g_array(p_seq_num).short_name_259;
4052     g_short_name(260) := g_array(p_seq_num).short_name_260;
4053     g_short_name(261) := g_array(p_seq_num).short_name_261;
4054     g_short_name(262) := g_array(p_seq_num).short_name_262;
4055     g_short_name(263) := g_array(p_seq_num).short_name_263;
4056     g_short_name(264) := g_array(p_seq_num).short_name_264;
4057     g_short_name(265) := g_array(p_seq_num).short_name_265;
4058     g_short_name(266) := g_array(p_seq_num).short_name_266;
4059     g_short_name(267) := g_array(p_seq_num).short_name_267;
4060     g_short_name(268) := g_array(p_seq_num).short_name_268;
4061     g_short_name(269) := g_array(p_seq_num).short_name_269;
4062     g_short_name(270) := g_array(p_seq_num).short_name_270;
4063     g_short_name(271) := g_array(p_seq_num).short_name_271;
4064     g_short_name(272) := g_array(p_seq_num).short_name_272;
4065     g_short_name(273) := g_array(p_seq_num).short_name_273;
4066     g_short_name(274) := g_array(p_seq_num).short_name_274;
4067     g_short_name(275) := g_array(p_seq_num).short_name_275;
4068     g_short_name(276) := g_array(p_seq_num).short_name_276;
4069     g_short_name(277) := g_array(p_seq_num).short_name_277;
4070     g_short_name(278) := g_array(p_seq_num).short_name_278;
4071     g_short_name(279) := g_array(p_seq_num).short_name_279;
4072     g_short_name(280) := g_array(p_seq_num).short_name_280;
4073     g_short_name(281) := g_array(p_seq_num).short_name_281;
4074     g_short_name(282) := g_array(p_seq_num).short_name_282;
4075     g_short_name(283) := g_array(p_seq_num).short_name_283;
4076     g_short_name(284) := g_array(p_seq_num).short_name_284;
4077     g_short_name(285) := g_array(p_seq_num).short_name_285;
4078     g_short_name(286) := g_array(p_seq_num).short_name_286;
4079     g_short_name(287) := g_array(p_seq_num).short_name_287;
4080     g_short_name(288) := g_array(p_seq_num).short_name_288;
4081     g_short_name(289) := g_array(p_seq_num).short_name_289;
4082     g_short_name(290) := g_array(p_seq_num).short_name_290;
4083     g_short_name(291) := g_array(p_seq_num).short_name_291;
4084     g_short_name(292) := g_array(p_seq_num).short_name_292;
4085     g_short_name(293) := g_array(p_seq_num).short_name_293;
4086     g_short_name(294) := g_array(p_seq_num).short_name_294;
4087     g_short_name(295) := g_array(p_seq_num).short_name_295;
4088     g_short_name(296) := g_array(p_seq_num).short_name_296;
4089     g_short_name(297) := g_array(p_seq_num).short_name_297;
4090     g_short_name(298) := g_array(p_seq_num).short_name_298;
4091     g_short_name(299) := g_array(p_seq_num).short_name_299;
4092     g_short_name(300) := g_array(p_seq_num).short_name_300;
4093     --
4094     g_last_rcd_processed := p_ext_rcd_id;
4095     --
4096   end if;
4097 --
4098 hr_utility.set_location('Exiting'||l_proc, 15);
4099 --
4100 --
4101 end load_arrays;
4102 -----------------------------------------------------------------------------
4103 Procedure WRITE_WARNING
4104            (p_err_name in varchar2,
4105             p_ext_rslt_id in number default null ,
4106             l_value       in varchar2 default null  ) is
4107 --
4108   l_proc     varchar2(72) := g_package||'write_warning';
4109 --
4110   l_err_name   varchar2(2000) ;
4111 begin
4112 --
4113   hr_utility.set_location('Entering'||l_proc, 5);
4114   if l_value is not null then
4115      if to_number(substr(p_err_name,5,5)) = 91870 then
4116         l_err_name := ben_ext_fmt.get_error_msg(to_number(substr(p_err_name,5,5)) ,p_err_name ) ;
4117         l_err_name := l_err_name || ' - '|| l_value ;
4118      end if ;
4119 
4120    end if ;
4121    if g_business_group_id is not null then
4122      ben_ext_util.write_err
4123       (p_err_num => to_number(substr(p_err_name,5,5)),
4124        p_err_name => l_err_name , --p_err_name,
4125        p_typ_cd => 'W',
4126        p_person_id => g_person_id,
4127        p_ext_rslt_id  => p_ext_rslt_id,
4128        p_business_group_id => g_business_group_id);
4129      commit;
4130    end if;
4131 --
4132 hr_utility.set_location('Exiting'||l_proc, 15);
4133 --
4134 --
4135 end write_warning;
4136 -----------------------------------------------------------------------------
4137 
4138 Procedure MAIN
4139           (errbuf            out nocopy varchar2,   --needed by concurrent manager.
4140            retcode           out nocopy number,     --needed by concurrent manager.
4141            p_ext_rslt_id     in number ,
4142            p_output_type     in varchar2 default null  ,
4143            p_out_dummy         in varchar2  default null,
4144            p_xdo_template_id in number  default null   ,
4145            p_source          in varchar2  default 'BENXWRIT'
4146           ) is
4147 --
4148 --
4149 file_handle utl_file.file_type;
4150 l_output_name ben_ext_rslt.output_name%type ;
4151 l_drctry_name ben_ext_rslt.drctry_name%type ;
4152 l_ext_stat_cd ben_ext_rslt.ext_stat_cd%type ;
4153 -- hnarayan - bug fix 2066883 - changed size of l_val from 2000 to 32000
4154 -- l_val varchar2(2000);
4155 l_val varchar2(32700);
4156 -- RCHASE wwbug 1412809 fix - added l_val_all
4157 l_val_all varchar2(32700);
4158 -- hnarayan - bug fix 2066883 - changed size of l_tmp from 2000 to 32000
4159 -- l_tmp varchar2(2000);
4160 l_tmp varchar2(32700);
4161 l_length number;
4162 l_accum_length number :=0 ;
4163 job_failure exception;
4164 l_dummy varchar2(1);
4165 l_request_id number;
4166 l_rcd_count number :=0;
4167 l_just_cd ben_ext_data_elmt.just_cd%type ;
4168 l_output_type  varchar2(30)  ;
4169 l_xdo_template_id number     ;
4173 --
4170 l_cm_display_flag  varchar2(30)  ;
4171 l_spcl_hndl_flag  ben_ext_dfn.spcl_hndl_flag%type ;
4172 l_delimiter      ben_ext_data_elmt_in_rcd.DLMTR_VAL%type  ;
4174 cursor c_xrs is
4175   select xrs.output_name,
4176          xrs.drctry_name,
4177          xrs.ext_stat_cd,
4178          xrs.business_group_id,
4179          xdf.spcl_hndl_flag,
4180          nvl(xrs.output_type, xdf.output_type ) output_type  ,
4181          xdf.cm_display_flag ,
4182          nvl(xrs.xdo_template_id, xdf.xdo_template_id) xdo_template_id
4183     from ben_ext_rslt xrs,
4184          ben_ext_dfn  xdf
4185    where xrs.ext_rslt_id = p_ext_rslt_id
4186      and xdf.ext_dfn_id  = xrs.ext_dfn_id;
4187 --
4188 cursor c_xrd is
4189   select xrd.ext_rcd_id,
4190          xrd.person_id,
4191          xrd.val_01,
4192          xrd.val_02,
4193          xrd.val_03,
4194          xrd.val_04,
4195          xrd.val_05,
4196          xrd.val_06,
4197          xrd.val_07,
4198          xrd.val_08,
4199          xrd.val_09,
4200          xrd.val_10,
4201          xrd.val_11,
4202          xrd.val_12,
4203          xrd.val_13,
4204          xrd.val_14,
4205          xrd.val_15,
4206          xrd.val_16,
4207          xrd.val_17,
4208          xrd.val_18,
4209          xrd.val_19,
4210          xrd.val_20,
4211          xrd.val_21,
4212          xrd.val_22,
4213          xrd.val_23,
4214          xrd.val_24,
4215          xrd.val_25,
4216          xrd.val_26,
4217          xrd.val_27,
4218          xrd.val_28,
4219          xrd.val_29,
4220          xrd.val_30,
4221          xrd.val_31,
4222          xrd.val_32,
4223          xrd.val_33,
4224          xrd.val_34,
4225          xrd.val_35,
4226          xrd.val_36,
4227          xrd.val_37,
4228          xrd.val_38,
4229          xrd.val_39,
4230          xrd.val_40,
4231          xrd.val_41,
4232          xrd.val_42,
4233          xrd.val_43,
4234          xrd.val_44,
4235          xrd.val_45,
4236          xrd.val_46,
4237          xrd.val_47,
4238          xrd.val_48,
4239          xrd.val_49,
4240          xrd.val_50,
4241          xrd.val_51,
4242          xrd.val_52,
4243          xrd.val_53,
4244          xrd.val_54,
4245          xrd.val_55,
4246          xrd.val_56,
4247          xrd.val_57,
4248          xrd.val_58,
4249          xrd.val_59,
4250          xrd.val_60,
4251          xrd.val_61,
4252          xrd.val_62,
4253          xrd.val_63,
4254          xrd.val_64,
4255          xrd.val_65,
4256          xrd.val_66,
4257          xrd.val_67,
4258          xrd.val_68,
4259          xrd.val_69,
4260          xrd.val_70,
4261          xrd.val_71,
4262          xrd.val_72,
4263          xrd.val_73,
4264          xrd.val_74,
4265          xrd.val_75,
4266          xrd.val_76,
4267          xrd.val_77,
4268          xrd.val_78,
4269          xrd.val_79,
4270          xrd.val_80,
4271          xrd.val_81,
4272          xrd.val_82,
4273          xrd.val_83,
4274          xrd.val_84,
4275          xrd.val_85,
4276          xrd.val_86,
4277          xrd.val_87,
4278          xrd.val_88,
4279          xrd.val_89,
4280          xrd.val_90,
4281          xrd.val_91,
4282          xrd.val_92,
4283          xrd.val_93,
4284          xrd.val_94,
4285          xrd.val_95,
4286          xrd.val_96,
4287          xrd.val_97,
4288          xrd.val_98,
4289          xrd.val_99,
4290          xrd.val_100,
4291          xrd.val_101,
4292          xrd.val_102,
4293          xrd.val_103,
4294          xrd.val_104,
4295          xrd.val_105,
4296          xrd.val_106,
4297          xrd.val_107,
4298          xrd.val_108,
4299          xrd.val_109,
4300          xrd.val_110,
4301          xrd.val_111,
4302          xrd.val_112,
4303          xrd.val_113,
4304          xrd.val_114,
4305          xrd.val_115,
4306          xrd.val_116,
4307          xrd.val_117,
4308          xrd.val_118,
4309          xrd.val_119,
4310          xrd.val_120,
4311          xrd.val_121,
4312          xrd.val_122,
4313          xrd.val_123,
4314          xrd.val_124,
4315          xrd.val_125,
4316          xrd.val_126,
4317          xrd.val_127,
4318          xrd.val_128,
4319          xrd.val_129,
4320          xrd.val_130,
4321          xrd.val_131,
4322          xrd.val_132,
4323          xrd.val_133,
4324          xrd.val_134,
4325          xrd.val_135,
4326          xrd.val_136,
4327          xrd.val_137,
4328          xrd.val_138,
4329          xrd.val_139,
4330          xrd.val_140,
4331          xrd.val_141,
4332          xrd.val_142,
4333          xrd.val_143,
4334          xrd.val_144,
4335          xrd.val_145,
4336          xrd.val_146,
4337          xrd.val_147,
4338          xrd.val_148,
4339          xrd.val_149,
4340          xrd.val_150,
4341          xrd.val_151,
4342          xrd.val_152,
4343          xrd.val_153,
4344          xrd.val_154,
4345          xrd.val_155,
4346          xrd.val_156,
4347          xrd.val_157,
4348          xrd.val_158,
4349          xrd.val_159,
4350          xrd.val_160,
4351          xrd.val_161,
4352          xrd.val_162,
4353          xrd.val_163,
4354          xrd.val_164,
4355          xrd.val_165,
4356          xrd.val_166,
4357          xrd.val_167,
4358          xrd.val_168,
4359          xrd.val_169,
4360          xrd.val_170,
4361          xrd.val_171,
4362          xrd.val_172,
4363          xrd.val_173,
4367          xrd.val_177,
4364          xrd.val_174,
4365          xrd.val_175,
4366          xrd.val_176,
4368          xrd.val_178,
4369          xrd.val_179,
4370          xrd.val_180,
4371          xrd.val_181,
4372          xrd.val_182,
4373          xrd.val_183,
4374          xrd.val_184,
4375          xrd.val_185,
4376          xrd.val_186,
4377          xrd.val_187,
4378          xrd.val_188,
4379          xrd.val_189,
4380          xrd.val_190,
4381          xrd.val_191,
4382          xrd.val_192,
4383          xrd.val_193,
4384          xrd.val_194,
4385          xrd.val_195,
4386          xrd.val_196,
4387          xrd.val_197,
4388          xrd.val_198,
4389          xrd.val_199,
4390          xrd.val_200,
4391          xrd.val_201,
4392          xrd.val_202,
4393          xrd.val_203,
4394          xrd.val_204,
4395          xrd.val_205,
4396          xrd.val_206,
4397          xrd.val_207,
4398          xrd.val_208,
4399          xrd.val_209,
4400          xrd.val_210,
4401          xrd.val_211,
4402          xrd.val_212,
4403          xrd.val_213,
4404          xrd.val_214,
4405          xrd.val_215,
4406          xrd.val_216,
4407          xrd.val_217,
4408          xrd.val_218,
4409          xrd.val_219,
4410          xrd.val_220,
4411          xrd.val_221,
4412          xrd.val_222,
4413          xrd.val_223,
4414          xrd.val_224,
4415          xrd.val_225,
4416          xrd.val_226,
4417          xrd.val_227,
4418          xrd.val_228,
4419          xrd.val_229,
4420          xrd.val_230,
4421          xrd.val_231,
4422          xrd.val_232,
4423          xrd.val_233,
4424          xrd.val_234,
4425          xrd.val_235,
4426          xrd.val_236,
4427          xrd.val_237,
4428          xrd.val_238,
4429          xrd.val_239,
4430          xrd.val_240,
4431          xrd.val_241,
4432          xrd.val_242,
4433          xrd.val_243,
4434          xrd.val_244,
4435          xrd.val_245,
4436          xrd.val_246,
4437          xrd.val_247,
4438          xrd.val_248,
4439          xrd.val_249,
4440          xrd.val_250,
4441          xrd.val_251,
4442          xrd.val_252,
4443          xrd.val_253,
4444          xrd.val_254,
4445          xrd.val_255,
4446          xrd.val_256,
4447          xrd.val_257,
4448          xrd.val_258,
4449          xrd.val_259,
4450          xrd.val_260,
4451          xrd.val_261,
4452          xrd.val_262,
4453          xrd.val_263,
4454          xrd.val_264,
4455          xrd.val_265,
4456          xrd.val_266,
4457          xrd.val_267,
4458          xrd.val_268,
4459          xrd.val_269,
4460          xrd.val_270,
4461          xrd.val_271,
4462          xrd.val_272,
4463          xrd.val_273,
4464          xrd.val_274,
4465          xrd.val_275,
4466          xrd.val_276,
4467          xrd.val_277,
4468          xrd.val_278,
4469          xrd.val_279,
4470          xrd.val_280,
4471          xrd.val_281,
4472          xrd.val_282,
4473          xrd.val_283,
4474          xrd.val_284,
4475          xrd.val_285,
4476          xrd.val_286,
4477          xrd.val_287,
4478          xrd.val_288,
4479          xrd.val_289,
4480          xrd.val_290,
4481          xrd.val_291,
4482          xrd.val_292,
4483          xrd.val_293,
4484          xrd.val_294,
4485          xrd.val_295,
4486          xrd.val_296,
4487          xrd.val_297,
4488          xrd.val_298,
4489          xrd.val_299,
4490          xrd.val_300,
4491         xrf.seq_num
4492  from   ben_ext_rslt_dtl xrd,
4493         ben_ext_rslt xrs,
4494         ben_ext_dfn xdf,
4495         ben_ext_rcd_in_file xrf
4496  where  xrd.ext_rslt_id = p_ext_rslt_id
4497  and  xrd.ext_rslt_id = xrs.ext_rslt_id
4498  and  xrs.ext_dfn_id = xdf.ext_dfn_id
4499  and  xdf.ext_file_id = xrf.ext_file_id
4500  and  xrd.ext_rcd_id = xrf.ext_rcd_id
4501  and (xrd.ext_rcd_in_file_id is null
4502       or xrd.ext_rcd_in_file_id = xrf.ext_rcd_in_file_id ) -- or condition taken care of previous results
4503  and  xrf.hide_flag = 'N'
4504  order by xrd.group_val_01,
4505           xrd.group_val_02,
4506           xrd.prmy_sort_val,
4507           xrd.scnd_sort_val,
4508           xrd.thrd_sort_val,
4509           xrf.seq_num ;  -- this is addedd  ther are  many time header may not sorted in order
4510 --
4511 cursor c_xrd1 is --this cursor is for validation only.
4512   select 'x'
4513   from   ben_ext_rslt_dtl xrd
4514   where xrd.ext_rslt_id = p_ext_rslt_id;
4515 --
4516 -- BUG - 3954449 ADDED UNION CLAUSE
4517 --
4518 /*
4519 -- apps may not have acces gv$system_parameter2, create compilation error
4520 cursor c_utl is
4521   select 'x'
4522   from gv$system_parameter
4523   where name = 'utl_file_dir'
4524   and value like ('%' || l_drctry_name || '%')
4525   union
4526   select 'x'
4527   from gv$system_parameter2
4528   where name = 'utl_file_dir'
4529   and value like ('%' || l_drctry_name || '%');
4530 */
4531 --
4532   cursor c_xel_name(p_ext_rcd_id number  ,
4533                     p_seq_num  number) is
4534   select  xel.name
4535     from  ben_ext_data_elmt xel,
4536           ben_Ext_data_elmt_in_rcd xdr
4537     where xdr.ext_data_elmt_id = xel.ext_data_elmt_id
4538       and xdr.ext_rcd_id = p_ext_rcd_id
4539       and xdr.seq_num    = p_seq_num
4540    ;
4541    l_ext_data_elmt_name  ben_ext_data_elmt.name%type ;
4542    l_prev_seq_num        number ;
4543 
4544 
4545   cursor c_xdoi (c_xdo_id  number)  is
4546   select application_short_name ,
4550   from xdo_templates_b
4547          template_code ,
4548          default_language,
4549          default_territory
4551  where template_id = c_xdo_id  ;
4552 
4553  l_application_short_name  xdo_templates_b.application_short_name%type ;
4554  l_template_code           xdo_templates_b.template_code%type ;
4555  l_default_language        xdo_templates_b.default_language%type ;
4556  l_default_territory       xdo_templates_b.default_territory%type ;
4557  l_fnd_out                 boolean ;
4558  l_output_code             varchar2(25) ;
4559 
4560 --
4561   l_proc     varchar2(72) := g_package||'main';
4562   l_max_ext_line_size  Number ;
4563   l_max_prf_value      Number ;
4564   -- l_defined            Boolean ;
4565   l_last_elmt_short_name ben_Ext_fld.short_name%type ;
4566   l_prev_elmt_short_name ben_Ext_fld.short_name%type ;
4567   l_prev_person_id    Number ;
4568 --
4569 begin
4570 --
4571   hr_Utility.set_location('Entering'||l_proc, 5);
4572 --
4573 initialize_globals;
4574 
4575 --
4576 open c_xrs;
4577    fetch c_xrs into l_output_name
4578                    ,l_drctry_name
4579                    ,l_ext_stat_cd
4580                    ,g_business_group_id
4581                    ,l_spcl_hndl_flag
4582                    ,l_output_type
4583                    ,l_cm_display_flag
4584                    ,l_xdo_template_id
4585                    ;
4586 
4587    if c_xrs%notfound then
4588      close c_xrs;
4589      g_err_name := 'BEN_91873_EXT_NOT_FOUND';
4590      raise job_failure;
4591    end if;
4592 
4593 close c_xrs;
4594 
4595 --- validate the output type
4596 if p_output_type is not null then
4597    l_output_type      := p_output_type ;
4598    l_xdo_template_id  := nvl(p_xdo_template_id, l_xdo_template_id ) ;
4599 
4600    if l_output_type in ('F', 'X') and l_xdo_template_id is not null then
4601        l_xdo_template_id := null ;
4602    end if ;
4603 
4604    if l_output_type not in ('F', 'X') and l_xdo_template_id is null and
4605       p_source  <>  'BENXMLWRIT'     then
4606       fnd_message.set_name('BEN','BEN_94036_EXT_XDO_PDF_NULL');
4607       fnd_message.raise_error;
4608    end if ;
4609 
4610 end if ;
4611 
4612 -- assign default to display flag
4613 if l_cm_display_flag is null then
4614    l_cm_display_flag := 'N' ;
4615 end if ;
4616 --
4617 open c_xrd1;
4618    fetch c_xrd1 into l_dummy;
4619    if c_xrd1%notfound then
4620      close c_xrd1;
4621      g_err_name := 'BEN_91872_EXT_NO_DTL_ERR';
4622      raise job_failure;
4623    end if;
4624 close c_xrd1;
4625 --
4626 if l_ext_stat_cd not in ('A','S','E','W') then
4627   g_err_name := 'BEN_91875_EXT_INVLD_STAT';
4628   raise job_failure;
4629 end if;
4630 --
4631   hr_Utility.set_location('dir '||l_drctry_name, 5);
4632   /*
4633    -- 4143619 - Dont need this SQL for validating the directory
4634    -- if utl_file.fopen fails to find the directory, it will
4635    -- raise invalid path exception where this message will now be displayed.
4636     open c_utl;
4637     fetch c_utl into l_dummy;
4638     if c_utl%notfound then
4639       close c_utl;
4640       g_err_name := 'BEN_91874_EXT_DRCTRY_ERR';
4641       raise job_failure;
4642     end if;
4643   close c_utl;
4644  */
4645 --
4646 if l_output_name is null  and l_cm_display_flag <> 'Y'  then
4647      g_err_name := 'BEN_91871_EXT_OUTFILE_WARN'; --filename was not specified,
4648      raise job_failure;
4649 end if;
4650 --
4651 
4652 
4653 ---- if the disply is on   and the source is BENXWRIT and  xdo is not null  then
4654 ---- assume the ext writ proceess is executed by mistake
4655 ---  redirect the  extract xml write process
4656 
4657 if  l_cm_display_flag = 'Y' and  p_source = 'BENXWRIT'  and p_xdo_template_id is not null then
4658 
4659     open  c_xdoi (l_xdo_template_id ) ;
4660     fetch c_xdoi  into
4661           l_application_short_name ,
4662           l_template_code ,
4663           l_default_language,
4664           l_default_territory ;
4665     close c_xdoi ;
4666 
4667    if l_output_type = 'H'  then
4668       l_output_code := 'HTML' ;
4669    elsif  l_output_type = 'R'  then
4670       l_output_code := 'RTF' ;
4671    elsif  l_output_type = 'P'  then
4672       l_output_code := 'PDF' ;
4673    elsif  l_output_type = 'E'  then
4674       l_output_code := 'EXCEL' ;
4675    else
4676       l_output_code := 'PDF' ;
4677    end if ;
4678 
4679     --- popilate the variable for post poroccing of cm - templates
4680 
4681     l_fnd_out := fnd_request.add_layout
4682                 (template_appl_name => l_application_short_name,
4683                  template_code      => l_template_code,
4684                  template_language  => l_default_language,
4685                  template_territory => l_default_territory,
4686                  output_format      => l_output_code
4687                  ) ;
4688 
4689      --- call the concurrent manager with  XML output
4690 
4691 
4692      l_request_id := fnd_request.submit_request
4693              (application => 'BEN',
4694               program     => 'BENXMLWRIT',
4695               description => NULL,
4696               sub_request => FALSE,
4697               argument1   => p_ext_rslt_id,
4698               argument2   => l_output_type ,
4699               argument3   => null,
4700               argument4   => 'BENXMLWRIT'
4701          );
4702 
4703     return ;
4704 end if ;
4705 
4706 
4707 
4708 -- ----------------------------------------------------------------------------------------
4709 
4710 --  Start - Bug : 2066883
4714 ---- we can avoid this for  xml
4711 --  Changed code to use value set at new profile created to store the max extract ine size
4712 --
4713 
4715 
4716 if nvl(l_output_type,'F')  = 'F' then
4717    --
4718    -- Bug : 3776045
4719    -- Use FND_PROFILE.GET to get CACHED profile value.
4720    /*
4721    fnd_profile.get_specific( name_z              => 'BEN_MAX_EXT_LINE_SIZE'
4722    		            ,user_id_z           => fnd_global.user_id
4723    		            ,responsibility_id_z => fnd_global.resp_id
4724                             ,application_id_z    => fnd_global.resp_appl_id
4725                             ,val_z               => l_max_prf_value
4726                             ,defined_z           => l_defined );
4727    */
4728    fnd_profile.get( NAME => 'BEN_MAX_EXT_LINE_SIZE'
4729                    ,VAL  => l_max_prf_value );
4730    --
4731    -- Bug : 3776045
4732    --
4733    if (l_max_prf_value is null /*or l_defined = FALSE*/  ) then
4734        -- if max value is not set then set the max extract line size to 32767 .
4735        l_max_ext_line_size := 32767 ;
4736    elsif l_max_prf_value < 1 then
4737        l_max_ext_line_size :=  32767 ;
4738    else
4739        l_max_ext_line_size := l_max_prf_value ;
4740    end if ;
4741 
4742 
4743 
4744 --
4745    if  l_cm_display_flag <> 'Y' then
4746        file_handle := utl_file.fopen (l_drctry_name,l_output_name,'w' , l_max_ext_line_size );
4747    end if ;
4748 --
4749 --  End - Bug : 2066883
4750 --  ----------------------------------------------------------------------------------------
4751 --
4752    for l_xrd in c_xrd loop
4753      --
4754      g_person_id := l_xrd.person_id;
4755 
4756      -- if the previous person if and current person_id is not same
4757      -- and previous rcord last element is continues then write the record
4758      -- and reintialise  the variable
4759 
4760     if g_person_id <> l_prev_person_id and  l_prev_elmt_short_name = 'RECLINKS' and  l_val_all is not null    then
4761 
4762        hr_utility.set_location(' writing last person Record ' || l_prev_person_id, 99 ) ;
4763 
4764        if nvl(l_spcl_hndl_flag,'x') = 'Y' and l_delimiter is not  null then
4765           if l_val_all is not null and  length(l_val_all) > 1  then
4766              l_val_all := rtrim(substr(l_val_all,1, (length(l_val_all)-1)),l_delimiter)
4767                          || substr(l_val_all,-1)  ;
4768              hr_utility.set_location('  triming  ' , 428 );
4769           end if ;
4770 
4771        end if ;
4772        if l_cm_display_flag  = 'Y' then
4773           fnd_file.put_line(FND_FILE.OUTPUT, l_val_all ) ;
4774        else
4775           utl_file.put_line(file_handle,l_val_all);
4776        end if ;
4777        l_accum_length := 0;
4778        l_val := '';
4779        l_val_all := '';
4780     end if ;
4781     --
4782     load_arrays
4783      (l_xrd.ext_rcd_id,
4784       l_xrd.val_01,
4785       l_xrd.val_02,
4786       l_xrd.val_03,
4787       l_xrd.val_04,
4788       l_xrd.val_05,
4789       l_xrd.val_06,
4790       l_xrd.val_07,
4791       l_xrd.val_08,
4792       l_xrd.val_09,
4793       l_xrd.val_10,
4794       l_xrd.val_11,
4795       l_xrd.val_12,
4796       l_xrd.val_13,
4797       l_xrd.val_14,
4798       l_xrd.val_15,
4799       l_xrd.val_16,
4800       l_xrd.val_17,
4801      l_xrd.val_18,
4802      l_xrd.val_19,
4803      l_xrd.val_20,
4804      l_xrd.val_21,
4805      l_xrd.val_22,
4806      l_xrd.val_23,
4807      l_xrd.val_24,
4808      l_xrd.val_25,
4809      l_xrd.val_26,
4810      l_xrd.val_27,
4811      l_xrd.val_28,
4812      l_xrd.val_29,
4813      l_xrd.val_30,
4814      l_xrd.val_31,
4815      l_xrd.val_32,
4816      l_xrd.val_33,
4817      l_xrd.val_34,
4818      l_xrd.val_35,
4819      l_xrd.val_36,
4820      l_xrd.val_37,
4821      l_xrd.val_38,
4822      l_xrd.val_39,
4823      l_xrd.val_40,
4824      l_xrd.val_41,
4825      l_xrd.val_42,
4826      l_xrd.val_43,
4827      l_xrd.val_44,
4828      l_xrd.val_45,
4829      l_xrd.val_46,
4830      l_xrd.val_47,
4831      l_xrd.val_48,
4832      l_xrd.val_49,
4833      l_xrd.val_50,
4834      l_xrd.val_51,
4835      l_xrd.val_52,
4836      l_xrd.val_53,
4837      l_xrd.val_54,
4838      l_xrd.val_55,
4839      l_xrd.val_56,
4840      l_xrd.val_57,
4841      l_xrd.val_58,
4842      l_xrd.val_59,
4843      l_xrd.val_60,
4844      l_xrd.val_61,
4845      l_xrd.val_62,
4846      l_xrd.val_63,
4847      l_xrd.val_64,
4848      l_xrd.val_65,
4849      l_xrd.val_66,
4850      l_xrd.val_67,
4851      l_xrd.val_68,
4852      l_xrd.val_69,
4853      l_xrd.val_70,
4854      l_xrd.val_71,
4855      l_xrd.val_72,
4856      l_xrd.val_73,
4857      l_xrd.val_74,
4858      l_xrd.val_75,
4859      l_xrd.val_76,
4860      l_xrd.val_77,
4861      l_xrd.val_78,
4862      l_xrd.val_79,
4863      l_xrd.val_80,
4864      l_xrd.val_81,
4865      l_xrd.val_82,
4866      l_xrd.val_83,
4867      l_xrd.val_84,
4868      l_xrd.val_85,
4869      l_xrd.val_86,
4870      l_xrd.val_87,
4871      l_xrd.val_88,
4872      l_xrd.val_89,
4873      l_xrd.val_90,
4874      l_xrd.val_91,
4875      l_xrd.val_92,
4876      l_xrd.val_93,
4877      l_xrd.val_94,
4878      l_xrd.val_95,
4879      l_xrd.val_96,
4880      l_xrd.val_97,
4881      l_xrd.val_98,
4882      l_xrd.val_99,
4883      l_xrd.val_100,
4884      l_xrd.val_101,
4885      l_xrd.val_102,
4889      l_xrd.val_106,
4886      l_xrd.val_103,
4887      l_xrd.val_104,
4888      l_xrd.val_105,
4890      l_xrd.val_107,
4891      l_xrd.val_108,
4892      l_xrd.val_109,
4893      l_xrd.val_110,
4894      l_xrd.val_111,
4895      l_xrd.val_112,
4896      l_xrd.val_113,
4897      l_xrd.val_114,
4898      l_xrd.val_115,
4899      l_xrd.val_116,
4900      l_xrd.val_117,
4901      l_xrd.val_118,
4902      l_xrd.val_119,
4903      l_xrd.val_120,
4904      l_xrd.val_121,
4905      l_xrd.val_122,
4906      l_xrd.val_123,
4907      l_xrd.val_124,
4908      l_xrd.val_125,
4909      l_xrd.val_126,
4910      l_xrd.val_127,
4911      l_xrd.val_128,
4912      l_xrd.val_129,
4913      l_xrd.val_130,
4914      l_xrd.val_131,
4915      l_xrd.val_132,
4916      l_xrd.val_133,
4917      l_xrd.val_134,
4918      l_xrd.val_135,
4919      l_xrd.val_136,
4920      l_xrd.val_137,
4921      l_xrd.val_138,
4922      l_xrd.val_139,
4923      l_xrd.val_140,
4924      l_xrd.val_141,
4925      l_xrd.val_142,
4926      l_xrd.val_143,
4927      l_xrd.val_144,
4928      l_xrd.val_145,
4929      l_xrd.val_146,
4930      l_xrd.val_147,
4931      l_xrd.val_148,
4932      l_xrd.val_149,
4933      l_xrd.val_150,
4934      l_xrd.val_151,
4935      l_xrd.val_152,
4936      l_xrd.val_153,
4937      l_xrd.val_154,
4938      l_xrd.val_155,
4939      l_xrd.val_156,
4940      l_xrd.val_157,
4941      l_xrd.val_158,
4942      l_xrd.val_159,
4943      l_xrd.val_160,
4944      l_xrd.val_161,
4945      l_xrd.val_162,
4946      l_xrd.val_163,
4947      l_xrd.val_164,
4948      l_xrd.val_165,
4949      l_xrd.val_166,
4950      l_xrd.val_167,
4951      l_xrd.val_168,
4952      l_xrd.val_169,
4953      l_xrd.val_170,
4954      l_xrd.val_171,
4955      l_xrd.val_172,
4956      l_xrd.val_173,
4957      l_xrd.val_174,
4958      l_xrd.val_175,
4959      l_xrd.val_176,
4960      l_xrd.val_177,
4961      l_xrd.val_178,
4962      l_xrd.val_179,
4963      l_xrd.val_180,
4964      l_xrd.val_181,
4965      l_xrd.val_182,
4966      l_xrd.val_183,
4967      l_xrd.val_184,
4968      l_xrd.val_185,
4969      l_xrd.val_186,
4970      l_xrd.val_187,
4971      l_xrd.val_188,
4972      l_xrd.val_189,
4973      l_xrd.val_190,
4974      l_xrd.val_191,
4975      l_xrd.val_192,
4976      l_xrd.val_193,
4977      l_xrd.val_194,
4978      l_xrd.val_195,
4979      l_xrd.val_196,
4980      l_xrd.val_197,
4981      l_xrd.val_198,
4982      l_xrd.val_199,
4983      l_xrd.val_200,
4984      l_xrd.val_201,
4985      l_xrd.val_202,
4986      l_xrd.val_203,
4987      l_xrd.val_204,
4988      l_xrd.val_205,
4989      l_xrd.val_206,
4990      l_xrd.val_207,
4991      l_xrd.val_208,
4992      l_xrd.val_209,
4993      l_xrd.val_210,
4994      l_xrd.val_211,
4995      l_xrd.val_212,
4996      l_xrd.val_213,
4997      l_xrd.val_214,
4998      l_xrd.val_215,
4999      l_xrd.val_216,
5000      l_xrd.val_217,
5001      l_xrd.val_218,
5002      l_xrd.val_219,
5003      l_xrd.val_220,
5004      l_xrd.val_221,
5005      l_xrd.val_222,
5006      l_xrd.val_223,
5007      l_xrd.val_224,
5008      l_xrd.val_225,
5009      l_xrd.val_226,
5010      l_xrd.val_227,
5011      l_xrd.val_228,
5012      l_xrd.val_229,
5013      l_xrd.val_230,
5014      l_xrd.val_231,
5015      l_xrd.val_232,
5016      l_xrd.val_233,
5017      l_xrd.val_234,
5018      l_xrd.val_235,
5019      l_xrd.val_236,
5020      l_xrd.val_237,
5021      l_xrd.val_238,
5022      l_xrd.val_239,
5023      l_xrd.val_240,
5024      l_xrd.val_241,
5025      l_xrd.val_242,
5026      l_xrd.val_243,
5027      l_xrd.val_244,
5028      l_xrd.val_245,
5029      l_xrd.val_246,
5030      l_xrd.val_247,
5031      l_xrd.val_248,
5032      l_xrd.val_249,
5033      l_xrd.val_250,
5034      l_xrd.val_251,
5035      l_xrd.val_252,
5036      l_xrd.val_253,
5037      l_xrd.val_254,
5038      l_xrd.val_255,
5039      l_xrd.val_256,
5040      l_xrd.val_257,
5041      l_xrd.val_258,
5042      l_xrd.val_259,
5043      l_xrd.val_260,
5044      l_xrd.val_261,
5045      l_xrd.val_262,
5046      l_xrd.val_263,
5047      l_xrd.val_264,
5048      l_xrd.val_265,
5049      l_xrd.val_266,
5050      l_xrd.val_267,
5051      l_xrd.val_268,
5052      l_xrd.val_269,
5053      l_xrd.val_270,
5054      l_xrd.val_271,
5055      l_xrd.val_272,
5056      l_xrd.val_273,
5057      l_xrd.val_274,
5058      l_xrd.val_275,
5059      l_xrd.val_276,
5060      l_xrd.val_277,
5061      l_xrd.val_278,
5062      l_xrd.val_279,
5063      l_xrd.val_280,
5064      l_xrd.val_281,
5065      l_xrd.val_282,
5066      l_xrd.val_283,
5067      l_xrd.val_284,
5068      l_xrd.val_285,
5069      l_xrd.val_286,
5070      l_xrd.val_287,
5071      l_xrd.val_288,
5072      l_xrd.val_289,
5073      l_xrd.val_290,
5074      l_xrd.val_291,
5075      l_xrd.val_292,
5076      l_xrd.val_293,
5077      l_xrd.val_294,
5078      l_xrd.val_295,
5079      l_xrd.val_296,
5080      l_xrd.val_297,
5081      l_xrd.val_298,
5082      l_xrd.val_299,
5083      l_xrd.val_300,
5084      l_xrd.seq_num);
5085      --
5086      l_delimiter := null ;
5090      hr_utility.set_location( 'seq ' || l_xrd.seq_num, 70) ;
5087      l_last_elmt_short_name := null ;
5088      l_prev_seq_num         := null ;
5089      hr_utility.set_location( 'high seq ' || g_array(l_xrd.seq_num).highest_seq_num , 70) ;
5091 
5092      for k in 1..g_array(l_xrd.seq_num).highest_seq_num loop
5093         --
5094         -- added condition for 4242821
5095         --
5096         if g_hide_flag(k) = 'N' then
5097            if l_val is not null and g_strt_pos(k) is not null then
5098               --
5099               hr_utility.set_location( ' before length ', 99);
5100               -- determine number of characters that need to be written.
5101               l_length := g_strt_pos(k) - 1 - l_accum_length;
5102 
5103               hr_utility.set_location( ' length ' || l_length , 99);
5104               hr_utility.set_location( ' length val ' || length(l_val) , 99);
5105               -- validate whether l_val length is more then the max line sixe
5106               -- if the size more then 32700 then the variable may error so validate
5107               if length(l_val) > l_max_ext_line_size then
5108                  raise  utl_file.invalid_maxlinesize  ;
5109               end if;
5110 
5111              -- add a warning when truncating data.
5112                 if length(l_val) > l_length then
5113 
5114                     l_ext_data_elmt_name  := null ;
5115                     open c_xel_name (l_xrd.ext_rcd_id,l_prev_seq_num) ;
5116                     fetch c_xel_name into l_ext_data_elmt_name ;
5117                     close c_xel_name  ;
5118                     hr_utility.set_location( ' element  ' || l_ext_data_elmt_name || '  -  '|| l_prev_seq_num , 99);
5119                    write_warning('BEN_91870_EXT_TRUNC_WARN' , p_ext_rslt_id ,l_ext_data_elmt_name  );
5120                 end if;
5121              -- if l_val exceeds l_length we must truncate.
5122                 l_val := substr(l_val,1,l_length);
5123              -- if l_val falls short of l_length we must pad with blanks.
5124                 if l_just_cd = 'R' then
5125                   l_val := lpad(l_val,l_length);
5126                 else
5127                   l_val := rpad(l_val,l_length);
5128                 end if;
5129              -- now write l_val.
5130              -- RCHASE wwbug 1412809 fix - Changed utl_file.put statement to varchar
5131              --                            assignment and moved to final put_line.
5132 
5133                 -- when the lenght exceeds the max length then  throw the error with
5134                 -- dont let the system erroes with ORA error
5135                 hr_utility.set_location( ' length l_val_all ' ||  length(l_val_all||l_val) , 99);
5136                 if  length(l_val_all||l_val) >  l_max_ext_line_size  then      -- variable defined to 32700
5137                     hr_utility.set_location( ' raise warning ' ||  length(l_val_all||l_val) , 99);
5138                     raise  utl_file.invalid_maxlinesize  ;
5139                 end if ;
5140 
5141                 l_val_all:=l_val_all||l_val;
5142                 l_prev_seq_num  := k ;
5143                 --utl_file.put(file_handle,l_val);
5144              -- RCHASE end
5145              -- add to length written accumlator.
5146                 l_accum_length := l_accum_length +l_length;
5147              -- init l_val
5148                 l_val := '';
5149              --
5150            end if;
5151            --
5152            -- if data element is hidden wipe it out.
5153            if g_hide_flag(k) = 'Y' then
5154               l_tmp := '';
5155            else
5156 
5157               l_tmp := g_val(k);
5158            end if;
5159 
5160            --  build the record.
5161            if  length(l_val || l_tmp || g_dlmtr_val(k)) >  l_max_ext_line_size  then      -- variable defined to 32700
5162                 hr_utility.set_location( ' raise warning ' ||  length(l_val || l_tmp || g_dlmtr_val(k)) , 99);
5163                raise  utl_file.invalid_maxlinesize  ;
5164            end if ;
5165 
5166            l_val :=  l_val || l_tmp || g_dlmtr_val(k);
5167            -- store the justification code in buffer.
5168            l_just_cd := g_just_cd(k);
5169            -- handle null values such as fillers.
5170            if l_val is null then
5171              l_val := ' ';
5172            else
5173              if g_strt_pos(k) is not null then
5174                 l_prev_seq_num  := k ;
5175              end if ;
5176            end if;
5177            -- this is variable use for ansi to  remove the last delimiters
5178            -- this is taken from the delimiter instead of hardcoding *
5179            -- so only first avaialble is taken to variable, the last one can not be taken that
5180            -- end of row delimiter. if user use different dlimiter for column that is against ansi
5181            if l_delimiter is null then
5182               l_delimiter := g_dlmtr_val(k) ;
5183            end if;
5184         end if ;
5185         --- continue
5186         l_last_elmt_short_name := nvl( g_short_name(k) , '-1') ;
5187       end loop;
5188 
5189 
5190       hr_utility.set_location( ' length l_val_all ' ||  length(l_val_all||l_val) , 99);
5191        -- when the lenght exceeds the max length then  throw the error with
5192        -- dont let the system erroes with ORA error
5193       if  length(l_val_all||l_val) >  l_max_ext_line_size  then      -- variable defined to 32700
5194             hr_utility.set_location( ' raise warning ' ||  length(l_val_all||l_val) , 99);
5195             raise  utl_file.invalid_maxlinesize  ;
5196       end if ;
5197 
5198       l_val_all := l_val_all||l_val ;
5199 
5200 
5201      --- whne the last element is 'RECLINKS' then  dont write to the file
5202      --  continue  with next record
5206          -- as per ansi std the last deliter should not apper without data in the column
5203      hr_utility.set_location(' last_elmt_short_name ' || l_last_elmt_short_name, 428 );
5204      if  l_last_elmt_short_name <>  'RECLINKS'  then
5205          -- when the last coulmns are null the delimiter appear in  record
5207          -- the reciord end with data then the endof record delimiter , there should not be
5208          -- column delimiter between end of record delimiter and data
5209          -- so -1 lenth of string is trimed for the dlimiter 3115428
5210          if nvl(l_spcl_hndl_flag,'x') = 'Y' and l_delimiter is not  null then
5211             if l_val_all is not null and  length(l_val_all) > 1  then
5212                 l_val_all := rtrim(substr(l_val_all,1, (length(l_val_all)-1)),l_delimiter)
5213                          || substr(l_val_all,-1)  ;
5214                 hr_utility.set_location('  triming  ' , 428 );
5215            end if ;
5216 
5217          end if ;
5218          --
5219          -- RCHASE wwbug 1412809 fix - altered put_line by adding l_val_all
5220          if l_cm_display_flag  = 'Y' then
5221             fnd_file.put_line(FND_FILE.OUTPUT, l_val_all ) ;
5222          else
5223             utl_file.put_line(file_handle,l_val_all);
5224          end if ;
5225 
5226          --utl_file.put_line(file_handle,l_val_all);
5227          l_accum_length := 0;
5228          --l_val := '';
5229          l_val_all := '';
5230       end if ;
5231       l_val := '';
5232       l_rcd_count := l_rcd_count + 1;
5233       -- to continue the record
5234       l_prev_person_id        := g_person_id  ;
5235       l_prev_elmt_short_name  := l_last_elmt_short_name ;
5236       --
5237   end loop;
5238 
5239   -- if the last person last records last element is relink , write the record
5240   if  l_last_elmt_short_name =   'RECLINKS'  then
5241 
5242         if nvl(l_spcl_hndl_flag,'x') = 'Y' and l_delimiter is not  null then
5243           if l_val_all is not null and  length(l_val_all) > 1  then
5244              l_val_all := rtrim(substr(l_val_all,1, (length(l_val_all)-1)),l_delimiter)
5245                          || substr(l_val_all,-1)  ;
5246              hr_utility.set_location('  triming  ' , 428 );
5247           end if ;
5248         end if ;
5249          if l_cm_display_flag  = 'Y' then
5250           fnd_file.put_line(FND_FILE.OUTPUT, l_val_all ) ;
5251        else
5252           utl_file.put_line(file_handle,l_val_all);
5253        end if ;
5254        --utl_file.put_line(file_handle,l_val_all);
5255   end if ;
5256   --
5257   if l_cm_display_flag  <>  'Y' then
5258      utl_file.fclose(file_handle);
5259   end if ;
5260 
5261 Else   -- this is called for xml and pdf
5262    --- call the function to write the xml file
5263     ben_Ext_xml_write.main(p_output_name     => l_output_name,
5264                            p_drctry_name     => l_drctry_name,
5265                            p_ext_rslt_id     => p_ext_rslt_id,
5266                            p_rec_count       => l_rcd_count ,
5267                            p_output_type     => l_output_type,
5268                            p_cm_display_flag => nvl(l_cm_display_flag,'N'),
5269                            p_xdo_template_id => l_xdo_template_id  ,
5270                            p_source          => p_source ) ;
5271 
5272 
5273 end if ;
5274 --
5275 -- now call the error report to report warnings etc.
5276         l_request_id := fnd_request.submit_request
5277         (application => 'BEN',
5278          program     => 'BENXERRO',
5279          description => NULL,
5280          sub_request => FALSE,
5281          argument1   => fnd_global.conc_request_id);
5282 --
5283 -- write to logfile a successful completion message
5284        fnd_message.set_name('BEN','BEN_91877_GENERAL_JOB_SUCCESS');
5285        fnd_file.put_line(fnd_file.log, fnd_message.get);
5286 --
5287 -- write to logfile the record count
5288        fnd_message.set_name('BEN','BEN_91878_EXT_TTL_RCRDS');
5289        fnd_file.put_line(fnd_file.log, to_char(l_rcd_count)||' '||fnd_message.get || ' ' || l_drctry_name||'/'||l_output_name);
5290 --
5291 --
5292 hr_utility.set_location('Exiting'||l_proc, 15);
5293 --
5294 --
5295 EXCEPTION
5296 --
5297     WHEN job_failure THEN
5298        fnd_message.set_name('BEN',g_err_name);
5299        fnd_file.put_line(fnd_file.log, fnd_message.get);
5300         write_warning(g_err_name , p_ext_rslt_id );
5301        fnd_message.raise_error;
5302 --
5303     WHEN utl_file.invalid_path then
5304         fnd_message.set_name('BEN', 'BEN_91874_EXT_DRCTRY_ERR');
5305         fnd_file.put_line(fnd_file.log, fnd_message.get);
5306         write_warning('BEN_91874_EXT_DRCTRY_ERR' , p_ext_rslt_id );
5307         fnd_message.raise_error;
5308 --
5309     WHEN utl_file.invalid_mode then
5310         fnd_message.set_name('BEN', 'BEN_92249_UTL_INVLD_MODE');
5311         fnd_file.put_line(fnd_file.log, fnd_message.get);
5312         write_warning('BEN_92249_UTL_INVLD_MODE' , p_ext_rslt_id );
5313         fnd_message.raise_error;
5314 --
5315     WHEN utl_file.invalid_filehandle then
5316         fnd_message.set_name('BEN', 'BEN_92250_UTL_INVLD_FILEHANDLE');
5317         fnd_file.put_line(fnd_file.log, fnd_message.get);
5318         write_warning('BEN_92250_UTL_INVLD_FILEHANDLE' , p_ext_rslt_id );
5319         fnd_message.raise_error;
5320 --
5321     WHEN utl_file.invalid_operation then
5322         fnd_message.set_name('BEN', 'BEN_92251_UTL_INVLD_OPER');
5323         fnd_file.put_line(fnd_file.log, fnd_message.get);
5324         write_warning('BEN_92251_UTL_INVLD_OPER' , p_ext_rslt_id );
5325         fnd_message.raise_error;
5326 --
5327     WHEN utl_file.read_error then
5328         fnd_message.set_name('BEN', 'BEN_92252_UTL_READ_ERROR');
5329         fnd_file.put_line(fnd_file.log, fnd_message.get);
5330         write_warning('BEN_92252_UTL_READ_ERROR' , p_ext_rslt_id );
5331         fnd_message.raise_error;
5335         fnd_file.put_line(fnd_file.log, fnd_message.get);
5332 --
5333     WHEN utl_file.internal_error then
5334         fnd_message.set_name('BEN', 'BEN_92253_UTL_INTRNL_ERROR');
5336         write_warning('BEN_92253_UTL_INTRNL_ERROR' , p_ext_rslt_id );
5337         fnd_message.raise_error;
5338 --
5339 --  -----------------------------------------------------------------------
5340 --  Start - Bug : 2066883
5341     WHEN utl_file.invalid_maxlinesize  then
5342         fnd_message.set_name ('BEN' ,'BEN_92492_UTL_LINESIZE_ERROR');
5343         fnd_file.put_line(fnd_file.log , fnd_message.get );
5344         write_warning('BEN_92492_UTL_LINESIZE_ERROR' , p_ext_rslt_id );
5345         fnd_message.raise_error ;
5346 --  End - Bug : 2066883
5347 -- -----------------------------------------------------------------------
5348 
5349     WHEN others THEN
5350        hr_utility.set_location ( ' other excep ' || substr(sqlerrm,1,70)  , 99 ) ;
5351        fnd_message.set_name('PER','FFU10_GENERAL_ORACLE_ERROR');
5352        fnd_message.set_token('2',substr(sqlerrm,1,200));
5353        fnd_file.put_line(fnd_file.log, fnd_message.get);
5354        fnd_message.raise_error;
5355 --
5356 END main;
5357 --
5358 END; --package