56: l_count number :=0;
57:
58:
59: BEGIN
60: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM1',1);
61:
62: p_DirNum1 :=' ';
63: p_MedTxCrUsed1 :=0;
64: p_DirNum2 :=' ';
80: p_DirNum10 :=' ';
81: p_MedTxCrUsed10 :=0;
82:
83: l_cur_max_dir := LEAST(l_dir_end, trc_LSDirTab.count - ((l_chunk-1)*l_dir_end));
84: hr_utility.set_location('l_cur_max_dir:'||l_cur_max_dir,2);
85:
86: l_ls_dirnum := trc_LSDirTab.first;
87: while (l_ls_dirnum is not null)
88: loop
85:
86: l_ls_dirnum := trc_LSDirTab.first;
87: while (l_ls_dirnum is not null)
88: loop
89: hr_utility.set_location('DirNum:'||l_ls_dirnum,3);
90: hr_utility.set_location('DirValue:'||trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN,3);
91: l_count := l_count+1;
92: IF (l_count = l_dir_st) THEN
93: p_DirNum1 := l_ls_dirnum;
86: l_ls_dirnum := trc_LSDirTab.first;
87: while (l_ls_dirnum is not null)
88: loop
89: hr_utility.set_location('DirNum:'||l_ls_dirnum,3);
90: hr_utility.set_location('DirValue:'||trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN,3);
91: l_count := l_count+1;
92: IF (l_count = l_dir_st) THEN
93: p_DirNum1 := l_ls_dirnum;
94: p_MedTxCrUsed1 := -1 * trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN;
127: l_ls_dirnum := trc_LSDirTab.next(l_ls_dirnum);
128: end loop;
129:
130: p_MedCrUsedLS := l_cur_max_dir;
131: hr_utility.set_location('trc_LSDirTab.count:'||trc_LSDirTab.count,4);
132: hr_utility.set_location('p_MedCrUsedLS:'||p_MedCrUsedLS,4);
133:
134: RETURN 1;
135:
128: end loop;
129:
130: p_MedCrUsedLS := l_cur_max_dir;
131: hr_utility.set_location('trc_LSDirTab.count:'||trc_LSDirTab.count,4);
132: hr_utility.set_location('p_MedCrUsedLS:'||p_MedCrUsedLS,4);
133:
134: RETURN 1;
135:
136: EXCEPTION
134: RETURN 1;
135:
136: EXCEPTION
137: WHEN OTHERS THEN
138: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM1',50);
139: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),50);
140: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),50);
141:
142: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM1: '||TO_CHAR(SQLCODE));
135:
136: EXCEPTION
137: WHEN OTHERS THEN
138: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM1',50);
139: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),50);
140: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),50);
141:
142: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM1: '||TO_CHAR(SQLCODE));
143: hr_utility.raise_error;
136: EXCEPTION
137: WHEN OTHERS THEN
138: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM1',50);
139: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),50);
140: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),50);
141:
142: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM1: '||TO_CHAR(SQLCODE));
143: hr_utility.raise_error;
144: END ZATXMEDTXCRLMPSM1;
138: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM1',50);
139: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),50);
140: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),50);
141:
142: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM1: '||TO_CHAR(SQLCODE));
143: hr_utility.raise_error;
144: END ZATXMEDTXCRLMPSM1;
145:
146: FUNCTION ZATXMEDTXCRLMPSM2(
139: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),50);
140: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),50);
141:
142: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM1: '||TO_CHAR(SQLCODE));
143: hr_utility.raise_error;
144: END ZATXMEDTXCRLMPSM1;
145:
146: FUNCTION ZATXMEDTXCRLMPSM2(
147: p_MedCrUsedLS OUT NOCOPY NUMBER
176: l_count number :=0;
177:
178:
179: BEGIN
180: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM2',1);
181:
182: p_DirNum1 :=' ';
183: p_MedTxCrUsed1 :=0;
184: p_DirNum2 :=' ';
200: p_DirNum10 :=' ';
201: p_MedTxCrUsed10 :=0;
202:
203: l_cur_max_dir := LEAST(l_dir_end, trc_LSDirTab.count - ((l_chunk-1)*l_dir_end));
204: hr_utility.set_location('l_cur_max_dir:'||l_cur_max_dir,2);
205:
206: l_ls_dirnum := trc_LSDirTab.first;
207: while (l_ls_dirnum is not null)
208: loop
205:
206: l_ls_dirnum := trc_LSDirTab.first;
207: while (l_ls_dirnum is not null)
208: loop
209: hr_utility.set_location('DirNum:'||l_ls_dirnum,3);
210: hr_utility.set_location('DirValue:'||trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN,3);
211: l_count := l_count+1;
212: IF (l_count = l_dir_st) THEN
213: p_DirNum1 := l_ls_dirnum;
206: l_ls_dirnum := trc_LSDirTab.first;
207: while (l_ls_dirnum is not null)
208: loop
209: hr_utility.set_location('DirNum:'||l_ls_dirnum,3);
210: hr_utility.set_location('DirValue:'||trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN,3);
211: l_count := l_count+1;
212: IF (l_count = l_dir_st) THEN
213: p_DirNum1 := l_ls_dirnum;
214: p_MedTxCrUsed1 := -1 * trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN;
247: l_ls_dirnum := trc_LSDirTab.next(l_ls_dirnum);
248: end loop;
249:
250: p_MedCrUsedLS := l_cur_max_dir;
251: hr_utility.set_location('trc_LSDirTab.count:'||trc_LSDirTab.count,4);
252: hr_utility.set_location('p_MedCrUsedLS:'||p_MedCrUsedLS,4);
253:
254: RETURN 1;
255:
248: end loop;
249:
250: p_MedCrUsedLS := l_cur_max_dir;
251: hr_utility.set_location('trc_LSDirTab.count:'||trc_LSDirTab.count,4);
252: hr_utility.set_location('p_MedCrUsedLS:'||p_MedCrUsedLS,4);
253:
254: RETURN 1;
255:
256: EXCEPTION
254: RETURN 1;
255:
256: EXCEPTION
257: WHEN OTHERS THEN
258: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM2',51);
259: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),51);
260: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),51);
261:
262: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM2: '||TO_CHAR(SQLCODE));
255:
256: EXCEPTION
257: WHEN OTHERS THEN
258: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM2',51);
259: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),51);
260: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),51);
261:
262: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM2: '||TO_CHAR(SQLCODE));
263: hr_utility.raise_error;
256: EXCEPTION
257: WHEN OTHERS THEN
258: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM2',51);
259: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),51);
260: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),51);
261:
262: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM2: '||TO_CHAR(SQLCODE));
263: hr_utility.raise_error;
264: END ZATXMEDTXCRLMPSM2;
258: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM2',51);
259: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),51);
260: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),51);
261:
262: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM2: '||TO_CHAR(SQLCODE));
263: hr_utility.raise_error;
264: END ZATXMEDTXCRLMPSM2;
265:
266: FUNCTION ZATXMEDTXCRLMPSM3(
259: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),51);
260: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),51);
261:
262: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM2: '||TO_CHAR(SQLCODE));
263: hr_utility.raise_error;
264: END ZATXMEDTXCRLMPSM2;
265:
266: FUNCTION ZATXMEDTXCRLMPSM3(
267: p_MedCrUsedLS OUT NOCOPY NUMBER
296: l_count number :=0;
297:
298:
299: BEGIN
300: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM3',1);
301:
302: p_DirNum1 :=' ';
303: p_MedTxCrUsed1 :=0;
304: p_DirNum2 :=' ';
320: p_DirNum10 :=' ';
321: p_MedTxCrUsed10 :=0;
322:
323: l_cur_max_dir := LEAST(l_dir_end, trc_LSDirTab.count - ((l_chunk-1)*l_dir_end));
324: hr_utility.set_location('l_cur_max_dir:'||l_cur_max_dir,2);
325:
326: l_ls_dirnum := trc_LSDirTab.first;
327: while (l_ls_dirnum is not null)
328: loop
325:
326: l_ls_dirnum := trc_LSDirTab.first;
327: while (l_ls_dirnum is not null)
328: loop
329: hr_utility.set_location('DirNum:'||l_ls_dirnum,3);
330: hr_utility.set_location('DirValue:'||trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN,3);
331: l_count := l_count+1;
332: IF (l_count = l_dir_st) THEN
333: p_DirNum1 := l_ls_dirnum;
326: l_ls_dirnum := trc_LSDirTab.first;
327: while (l_ls_dirnum is not null)
328: loop
329: hr_utility.set_location('DirNum:'||l_ls_dirnum,3);
330: hr_utility.set_location('DirValue:'||trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN,3);
331: l_count := l_count+1;
332: IF (l_count = l_dir_st) THEN
333: p_DirNum1 := l_ls_dirnum;
334: p_MedTxCrUsed1 := -1 * trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN;
367: l_ls_dirnum := trc_LSDirTab.next(l_ls_dirnum);
368: end loop;
369:
370: p_MedCrUsedLS := l_cur_max_dir;
371: hr_utility.set_location('trc_LSDirTab.count:'||trc_LSDirTab.count,4);
372: hr_utility.set_location('p_MedCrUsedLS:'||p_MedCrUsedLS,4);
373:
374: RETURN 1;
375:
368: end loop;
369:
370: p_MedCrUsedLS := l_cur_max_dir;
371: hr_utility.set_location('trc_LSDirTab.count:'||trc_LSDirTab.count,4);
372: hr_utility.set_location('p_MedCrUsedLS:'||p_MedCrUsedLS,4);
373:
374: RETURN 1;
375:
376: EXCEPTION
374: RETURN 1;
375:
376: EXCEPTION
377: WHEN OTHERS THEN
378: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM3',52);
379: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),52);
380: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),52);
381:
382: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM3: '||TO_CHAR(SQLCODE));
375:
376: EXCEPTION
377: WHEN OTHERS THEN
378: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM3',52);
379: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),52);
380: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),52);
381:
382: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM3: '||TO_CHAR(SQLCODE));
383: hr_utility.raise_error;
376: EXCEPTION
377: WHEN OTHERS THEN
378: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM3',52);
379: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),52);
380: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),52);
381:
382: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM3: '||TO_CHAR(SQLCODE));
383: hr_utility.raise_error;
384: END ZATXMEDTXCRLMPSM3;
378: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM3',52);
379: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),52);
380: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),52);
381:
382: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM3: '||TO_CHAR(SQLCODE));
383: hr_utility.raise_error;
384: END ZATXMEDTXCRLMPSM3;
385:
386:
379: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),52);
380: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),52);
381:
382: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM3: '||TO_CHAR(SQLCODE));
383: hr_utility.raise_error;
384: END ZATXMEDTXCRLMPSM3;
385:
386:
387: FUNCTION ZATXMEDTXCRLMPSM4(
417: l_count number :=0;
418:
419:
420: BEGIN
421: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM4',1);
422:
423: p_DirNum1 :=' ';
424: p_MedTxCrUsed1 :=0;
425: p_DirNum2 :=' ';
441: p_DirNum10 :=' ';
442: p_MedTxCrUsed10 :=0;
443:
444: l_cur_max_dir := LEAST(l_dir_end, trc_LSDirTab.count - ((l_chunk-1)*l_dir_end));
445: hr_utility.set_location('l_cur_max_dir:'||l_cur_max_dir,2);
446:
447: l_ls_dirnum := trc_LSDirTab.first;
448: while (l_ls_dirnum is not null)
449: loop
446:
447: l_ls_dirnum := trc_LSDirTab.first;
448: while (l_ls_dirnum is not null)
449: loop
450: hr_utility.set_location('DirNum:'||l_ls_dirnum,3);
451: hr_utility.set_location('DirValue:'||trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN,3);
452: l_count := l_count+1;
453: IF (l_count = l_dir_st) THEN
454: p_DirNum1 := l_ls_dirnum;
447: l_ls_dirnum := trc_LSDirTab.first;
448: while (l_ls_dirnum is not null)
449: loop
450: hr_utility.set_location('DirNum:'||l_ls_dirnum,3);
451: hr_utility.set_location('DirValue:'||trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN,3);
452: l_count := l_count+1;
453: IF (l_count = l_dir_st) THEN
454: p_DirNum1 := l_ls_dirnum;
455: p_MedTxCrUsed1 := -1 * trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN;
488: l_ls_dirnum := trc_LSDirTab.next(l_ls_dirnum);
489: end loop;
490:
491: p_MedCrUsedLS := l_cur_max_dir;
492: hr_utility.set_location('trc_LSDirTab.count:'||trc_LSDirTab.count,4);
493: hr_utility.set_location('p_MedCrUsedLS:'||p_MedCrUsedLS,4);
494:
495: RETURN 1;
496:
489: end loop;
490:
491: p_MedCrUsedLS := l_cur_max_dir;
492: hr_utility.set_location('trc_LSDirTab.count:'||trc_LSDirTab.count,4);
493: hr_utility.set_location('p_MedCrUsedLS:'||p_MedCrUsedLS,4);
494:
495: RETURN 1;
496:
497: EXCEPTION
495: RETURN 1;
496:
497: EXCEPTION
498: WHEN OTHERS THEN
499: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM4',53);
500: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),53);
501: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),53);
502:
503: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM4: '||TO_CHAR(SQLCODE));
496:
497: EXCEPTION
498: WHEN OTHERS THEN
499: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM4',53);
500: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),53);
501: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),53);
502:
503: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM4: '||TO_CHAR(SQLCODE));
504: hr_utility.raise_error;
497: EXCEPTION
498: WHEN OTHERS THEN
499: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM4',53);
500: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),53);
501: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),53);
502:
503: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM4: '||TO_CHAR(SQLCODE));
504: hr_utility.raise_error;
505: END ZATXMEDTXCRLMPSM4;
499: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM4',53);
500: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),53);
501: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),53);
502:
503: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM4: '||TO_CHAR(SQLCODE));
504: hr_utility.raise_error;
505: END ZATXMEDTXCRLMPSM4;
506:
507: FUNCTION ZATXMEDTXCRLMPSM5(
500: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),53);
501: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),53);
502:
503: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM4: '||TO_CHAR(SQLCODE));
504: hr_utility.raise_error;
505: END ZATXMEDTXCRLMPSM4;
506:
507: FUNCTION ZATXMEDTXCRLMPSM5(
508: p_MedCrUsedLS OUT NOCOPY NUMBER
537: l_count number :=0;
538:
539:
540: BEGIN
541: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM5',1);
542:
543: p_DirNum1 :=' ';
544: p_MedTxCrUsed1 :=0;
545: p_DirNum2 :=' ';
561: p_DirNum10 :=' ';
562: p_MedTxCrUsed10 :=0;
563:
564: l_cur_max_dir := LEAST(l_dir_end, trc_LSDirTab.count - ((l_chunk-1)*l_dir_end));
565: hr_utility.set_location('l_cur_max_dir:'||l_cur_max_dir,2);
566:
567: l_ls_dirnum := trc_LSDirTab.first;
568: while (l_ls_dirnum is not null)
569: loop
566:
567: l_ls_dirnum := trc_LSDirTab.first;
568: while (l_ls_dirnum is not null)
569: loop
570: hr_utility.set_location('DirNum:'||l_ls_dirnum,3);
571: hr_utility.set_location('DirValue:'||trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN,3);
572: l_count := l_count+1;
573: IF (l_count = l_dir_st) THEN
574: p_DirNum1 := l_ls_dirnum;
567: l_ls_dirnum := trc_LSDirTab.first;
568: while (l_ls_dirnum is not null)
569: loop
570: hr_utility.set_location('DirNum:'||l_ls_dirnum,3);
571: hr_utility.set_location('DirValue:'||trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN,3);
572: l_count := l_count+1;
573: IF (l_count = l_dir_st) THEN
574: p_DirNum1 := l_ls_dirnum;
575: p_MedTxCrUsed1 := -1 * trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN;
608: l_ls_dirnum := trc_LSDirTab.next(l_ls_dirnum);
609: end loop;
610:
611: p_MedCrUsedLS := l_cur_max_dir;
612: hr_utility.set_location('trc_LSDirTab.count:'||trc_LSDirTab.count,4);
613: hr_utility.set_location('p_MedCrUsedLS:'||p_MedCrUsedLS,4);
614:
615: RETURN 1;
616:
609: end loop;
610:
611: p_MedCrUsedLS := l_cur_max_dir;
612: hr_utility.set_location('trc_LSDirTab.count:'||trc_LSDirTab.count,4);
613: hr_utility.set_location('p_MedCrUsedLS:'||p_MedCrUsedLS,4);
614:
615: RETURN 1;
616:
617: EXCEPTION
615: RETURN 1;
616:
617: EXCEPTION
618: WHEN OTHERS THEN
619: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM5',54);
620: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),54);
621: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),54);
622:
623: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM5: '||TO_CHAR(SQLCODE));
616:
617: EXCEPTION
618: WHEN OTHERS THEN
619: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM5',54);
620: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),54);
621: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),54);
622:
623: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM5: '||TO_CHAR(SQLCODE));
624: hr_utility.raise_error;
617: EXCEPTION
618: WHEN OTHERS THEN
619: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM5',54);
620: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),54);
621: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),54);
622:
623: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM5: '||TO_CHAR(SQLCODE));
624: hr_utility.raise_error;
625: END ZATXMEDTXCRLMPSM5;
619: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM5',54);
620: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),54);
621: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),54);
622:
623: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM5: '||TO_CHAR(SQLCODE));
624: hr_utility.raise_error;
625: END ZATXMEDTXCRLMPSM5;
626:
627: FUNCTION ZATXMEDTXCRLMPSM6(
620: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),54);
621: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),54);
622:
623: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM5: '||TO_CHAR(SQLCODE));
624: hr_utility.raise_error;
625: END ZATXMEDTXCRLMPSM5;
626:
627: FUNCTION ZATXMEDTXCRLMPSM6(
628: p_MedCrUsedLS OUT NOCOPY NUMBER
657: l_count number :=0;
658:
659:
660: BEGIN
661: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM6',1);
662:
663: p_DirNum1 :=' ';
664: p_MedTxCrUsed1 :=0;
665: p_DirNum2 :=' ';
681: p_DirNum10 :=' ';
682: p_MedTxCrUsed10 :=0;
683:
684: l_cur_max_dir := LEAST(l_dir_end, trc_LSDirTab.count - ((l_chunk-1)*l_dir_end));
685: hr_utility.set_location('l_cur_max_dir:'||l_cur_max_dir,2);
686:
687: l_ls_dirnum := trc_LSDirTab.first;
688: while (l_ls_dirnum is not null)
689: loop
686:
687: l_ls_dirnum := trc_LSDirTab.first;
688: while (l_ls_dirnum is not null)
689: loop
690: hr_utility.set_location('DirNum:'||l_ls_dirnum,3);
691: hr_utility.set_location('DirValue:'||trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN,3);
692: l_count := l_count+1;
693: IF (l_count = l_dir_st) THEN
694: p_DirNum1 := l_ls_dirnum;
687: l_ls_dirnum := trc_LSDirTab.first;
688: while (l_ls_dirnum is not null)
689: loop
690: hr_utility.set_location('DirNum:'||l_ls_dirnum,3);
691: hr_utility.set_location('DirValue:'||trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN,3);
692: l_count := l_count+1;
693: IF (l_count = l_dir_st) THEN
694: p_DirNum1 := l_ls_dirnum;
695: p_MedTxCrUsed1 := -1 * trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN;
728: l_ls_dirnum := trc_LSDirTab.next(l_ls_dirnum);
729: end loop;
730:
731: p_MedCrUsedLS := l_cur_max_dir;
732: hr_utility.set_location('trc_LSDirTab.count:'||trc_LSDirTab.count,4);
733: hr_utility.set_location('p_MedCrUsedLS:'||p_MedCrUsedLS,4);
734:
735: RETURN 1;
736:
729: end loop;
730:
731: p_MedCrUsedLS := l_cur_max_dir;
732: hr_utility.set_location('trc_LSDirTab.count:'||trc_LSDirTab.count,4);
733: hr_utility.set_location('p_MedCrUsedLS:'||p_MedCrUsedLS,4);
734:
735: RETURN 1;
736:
737: EXCEPTION
735: RETURN 1;
736:
737: EXCEPTION
738: WHEN OTHERS THEN
739: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM6',55);
740: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),55);
741: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),55);
742:
743: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM6: '||TO_CHAR(SQLCODE));
736:
737: EXCEPTION
738: WHEN OTHERS THEN
739: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM6',55);
740: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),55);
741: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),55);
742:
743: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM6: '||TO_CHAR(SQLCODE));
744: hr_utility.raise_error;
737: EXCEPTION
738: WHEN OTHERS THEN
739: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM6',55);
740: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),55);
741: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),55);
742:
743: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM6: '||TO_CHAR(SQLCODE));
744: hr_utility.raise_error;
745: END ZATXMEDTXCRLMPSM6;
739: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM6',55);
740: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),55);
741: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),55);
742:
743: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM6: '||TO_CHAR(SQLCODE));
744: hr_utility.raise_error;
745: END ZATXMEDTXCRLMPSM6;
746:
747:
740: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),55);
741: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),55);
742:
743: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM6: '||TO_CHAR(SQLCODE));
744: hr_utility.raise_error;
745: END ZATXMEDTXCRLMPSM6;
746:
747:
748: FUNCTION ZATXMEDTXCRLMPSM7(
778: l_count number :=0;
779:
780:
781: BEGIN
782: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM7',1);
783:
784: p_DirNum1 :=' ';
785: p_MedTxCrUsed1 :=0;
786: p_DirNum2 :=' ';
802: p_DirNum10 :=' ';
803: p_MedTxCrUsed10 :=0;
804:
805: l_cur_max_dir := LEAST(l_dir_end, trc_LSDirTab.count - ((l_chunk-1)*l_dir_end));
806: hr_utility.set_location('l_cur_max_dir:'||l_cur_max_dir,2);
807:
808: l_ls_dirnum := trc_LSDirTab.first;
809: while (l_ls_dirnum is not null)
810: loop
807:
808: l_ls_dirnum := trc_LSDirTab.first;
809: while (l_ls_dirnum is not null)
810: loop
811: hr_utility.set_location('DirNum:'||l_ls_dirnum,3);
812: hr_utility.set_location('DirValue:'||trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN,3);
813: l_count := l_count+1;
814: IF (l_count = l_dir_st) THEN
815: p_DirNum1 := l_ls_dirnum;
808: l_ls_dirnum := trc_LSDirTab.first;
809: while (l_ls_dirnum is not null)
810: loop
811: hr_utility.set_location('DirNum:'||l_ls_dirnum,3);
812: hr_utility.set_location('DirValue:'||trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN,3);
813: l_count := l_count+1;
814: IF (l_count = l_dir_st) THEN
815: p_DirNum1 := l_ls_dirnum;
816: p_MedTxCrUsed1 := -1 * trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN;
849: l_ls_dirnum := trc_LSDirTab.next(l_ls_dirnum);
850: end loop;
851:
852: p_MedCrUsedLS := l_cur_max_dir;
853: hr_utility.set_location('trc_LSDirTab.count:'||trc_LSDirTab.count,4);
854: hr_utility.set_location('p_MedCrUsedLS:'||p_MedCrUsedLS,4);
855:
856: RETURN 1;
857:
850: end loop;
851:
852: p_MedCrUsedLS := l_cur_max_dir;
853: hr_utility.set_location('trc_LSDirTab.count:'||trc_LSDirTab.count,4);
854: hr_utility.set_location('p_MedCrUsedLS:'||p_MedCrUsedLS,4);
855:
856: RETURN 1;
857:
858: EXCEPTION
856: RETURN 1;
857:
858: EXCEPTION
859: WHEN OTHERS THEN
860: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM7',56);
861: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),56);
862: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),56);
863:
864: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM7: '||TO_CHAR(SQLCODE));
857:
858: EXCEPTION
859: WHEN OTHERS THEN
860: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM7',56);
861: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),56);
862: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),56);
863:
864: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM7: '||TO_CHAR(SQLCODE));
865: hr_utility.raise_error;
858: EXCEPTION
859: WHEN OTHERS THEN
860: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM7',56);
861: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),56);
862: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),56);
863:
864: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM7: '||TO_CHAR(SQLCODE));
865: hr_utility.raise_error;
866: END ZATXMEDTXCRLMPSM7;
860: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM7',56);
861: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),56);
862: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),56);
863:
864: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM7: '||TO_CHAR(SQLCODE));
865: hr_utility.raise_error;
866: END ZATXMEDTXCRLMPSM7;
867:
868:
861: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),56);
862: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),56);
863:
864: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM7: '||TO_CHAR(SQLCODE));
865: hr_utility.raise_error;
866: END ZATXMEDTXCRLMPSM7;
867:
868:
869: FUNCTION ZATXMEDTXCRLMPSM8(
899: l_count number :=0;
900:
901:
902: BEGIN
903: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM8',1);
904:
905: p_DirNum1 :=' ';
906: p_MedTxCrUsed1 :=0;
907: p_DirNum2 :=' ';
923: p_DirNum10 :=' ';
924: p_MedTxCrUsed10 :=0;
925:
926: l_cur_max_dir := LEAST(l_dir_end, trc_LSDirTab.count - ((l_chunk-1)*l_dir_end));
927: hr_utility.set_location('l_cur_max_dir:'||l_cur_max_dir,2);
928:
929: l_ls_dirnum := trc_LSDirTab.first;
930: while (l_ls_dirnum is not null)
931: loop
928:
929: l_ls_dirnum := trc_LSDirTab.first;
930: while (l_ls_dirnum is not null)
931: loop
932: hr_utility.set_location('DirNum:'||l_ls_dirnum,3);
933: hr_utility.set_location('DirValue:'||trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN,3);
934: l_count := l_count+1;
935: IF (l_count = l_dir_st) THEN
936: p_DirNum1 := l_ls_dirnum;
929: l_ls_dirnum := trc_LSDirTab.first;
930: while (l_ls_dirnum is not null)
931: loop
932: hr_utility.set_location('DirNum:'||l_ls_dirnum,3);
933: hr_utility.set_location('DirValue:'||trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN,3);
934: l_count := l_count+1;
935: IF (l_count = l_dir_st) THEN
936: p_DirNum1 := l_ls_dirnum;
937: p_MedTxCrUsed1 := -1 * trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN;
970: l_ls_dirnum := trc_LSDirTab.next(l_ls_dirnum);
971: end loop;
972:
973: p_MedCrUsedLS := l_cur_max_dir;
974: hr_utility.set_location('trc_LSDirTab.count:'||trc_LSDirTab.count,4);
975: hr_utility.set_location('p_MedCrUsedLS:'||p_MedCrUsedLS,4);
976:
977: RETURN 1;
978:
971: end loop;
972:
973: p_MedCrUsedLS := l_cur_max_dir;
974: hr_utility.set_location('trc_LSDirTab.count:'||trc_LSDirTab.count,4);
975: hr_utility.set_location('p_MedCrUsedLS:'||p_MedCrUsedLS,4);
976:
977: RETURN 1;
978:
979: EXCEPTION
977: RETURN 1;
978:
979: EXCEPTION
980: WHEN OTHERS THEN
981: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM8',57);
982: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),57);
983: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),57);
984:
985: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM8: '||TO_CHAR(SQLCODE));
978:
979: EXCEPTION
980: WHEN OTHERS THEN
981: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM8',57);
982: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),57);
983: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),57);
984:
985: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM8: '||TO_CHAR(SQLCODE));
986: hr_utility.raise_error;
979: EXCEPTION
980: WHEN OTHERS THEN
981: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM8',57);
982: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),57);
983: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),57);
984:
985: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM8: '||TO_CHAR(SQLCODE));
986: hr_utility.raise_error;
987: END ZATXMEDTXCRLMPSM8;
981: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM8',57);
982: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),57);
983: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),57);
984:
985: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM8: '||TO_CHAR(SQLCODE));
986: hr_utility.raise_error;
987: END ZATXMEDTXCRLMPSM8;
988:
989:
982: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),57);
983: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),57);
984:
985: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM8: '||TO_CHAR(SQLCODE));
986: hr_utility.raise_error;
987: END ZATXMEDTXCRLMPSM8;
988:
989:
990: FUNCTION ZATXMEDTXCRLMPSM9(
1020: l_count number :=0;
1021:
1022:
1023: BEGIN
1024: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM9',1);
1025:
1026: p_DirNum1 :=' ';
1027: p_MedTxCrUsed1 :=0;
1028: p_DirNum2 :=' ';
1044: p_DirNum10 :=' ';
1045: p_MedTxCrUsed10 :=0;
1046:
1047: l_cur_max_dir := LEAST(l_dir_end, trc_LSDirTab.count - ((l_chunk-1)*l_dir_end));
1048: hr_utility.set_location('l_cur_max_dir:'||l_cur_max_dir,2);
1049:
1050: l_ls_dirnum := trc_LSDirTab.first;
1051: while (l_ls_dirnum is not null)
1052: loop
1049:
1050: l_ls_dirnum := trc_LSDirTab.first;
1051: while (l_ls_dirnum is not null)
1052: loop
1053: hr_utility.set_location('DirNum:'||l_ls_dirnum,3);
1054: hr_utility.set_location('DirValue:'||trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN,3);
1055: l_count := l_count+1;
1056: IF (l_count = l_dir_st) THEN
1057: p_DirNum1 := l_ls_dirnum;
1050: l_ls_dirnum := trc_LSDirTab.first;
1051: while (l_ls_dirnum is not null)
1052: loop
1053: hr_utility.set_location('DirNum:'||l_ls_dirnum,3);
1054: hr_utility.set_location('DirValue:'||trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN,3);
1055: l_count := l_count+1;
1056: IF (l_count = l_dir_st) THEN
1057: p_DirNum1 := l_ls_dirnum;
1058: p_MedTxCrUsed1 := -1 * trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN;
1091: l_ls_dirnum := trc_LSDirTab.next(l_ls_dirnum);
1092: end loop;
1093:
1094: p_MedCrUsedLS := l_cur_max_dir;
1095: hr_utility.set_location('trc_LSDirTab.count:'||trc_LSDirTab.count,4);
1096: hr_utility.set_location('p_MedCrUsedLS:'||p_MedCrUsedLS,4);
1097:
1098: RETURN 1;
1099:
1092: end loop;
1093:
1094: p_MedCrUsedLS := l_cur_max_dir;
1095: hr_utility.set_location('trc_LSDirTab.count:'||trc_LSDirTab.count,4);
1096: hr_utility.set_location('p_MedCrUsedLS:'||p_MedCrUsedLS,4);
1097:
1098: RETURN 1;
1099:
1100: EXCEPTION
1098: RETURN 1;
1099:
1100: EXCEPTION
1101: WHEN OTHERS THEN
1102: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM9',58);
1103: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),58);
1104: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),58);
1105:
1106: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM9: '||TO_CHAR(SQLCODE));
1099:
1100: EXCEPTION
1101: WHEN OTHERS THEN
1102: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM9',58);
1103: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),58);
1104: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),58);
1105:
1106: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM9: '||TO_CHAR(SQLCODE));
1107: hr_utility.raise_error;
1100: EXCEPTION
1101: WHEN OTHERS THEN
1102: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM9',58);
1103: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),58);
1104: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),58);
1105:
1106: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM9: '||TO_CHAR(SQLCODE));
1107: hr_utility.raise_error;
1108: END ZATXMEDTXCRLMPSM9;
1102: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM9',58);
1103: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),58);
1104: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),58);
1105:
1106: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM9: '||TO_CHAR(SQLCODE));
1107: hr_utility.raise_error;
1108: END ZATXMEDTXCRLMPSM9;
1109:
1110:
1103: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),58);
1104: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),58);
1105:
1106: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM9: '||TO_CHAR(SQLCODE));
1107: hr_utility.raise_error;
1108: END ZATXMEDTXCRLMPSM9;
1109:
1110:
1111: FUNCTION ZATXMEDTXCRLMPSM10(
1141: l_count number :=0;
1142:
1143:
1144: BEGIN
1145: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM10',1);
1146:
1147: p_DirNum1 :=' ';
1148: p_MedTxCrUsed1 :=0;
1149: p_DirNum2 :=' ';
1165: p_DirNum10 :=' ';
1166: p_MedTxCrUsed10 :=0;
1167:
1168: l_cur_max_dir := LEAST(l_dir_end, trc_LSDirTab.count - ((l_chunk-1)*l_dir_end));
1169: hr_utility.set_location('l_cur_max_dir:'||l_cur_max_dir,2);
1170:
1171: l_ls_dirnum := trc_LSDirTab.first;
1172: while (l_ls_dirnum is not null)
1173: loop
1170:
1171: l_ls_dirnum := trc_LSDirTab.first;
1172: while (l_ls_dirnum is not null)
1173: loop
1174: hr_utility.set_location('DirNum:'||l_ls_dirnum,3);
1175: hr_utility.set_location('DirValue:'||trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN,3);
1176: l_count := l_count+1;
1177: IF (l_count = l_dir_st) THEN
1178: p_DirNum1 := l_ls_dirnum;
1171: l_ls_dirnum := trc_LSDirTab.first;
1172: while (l_ls_dirnum is not null)
1173: loop
1174: hr_utility.set_location('DirNum:'||l_ls_dirnum,3);
1175: hr_utility.set_location('DirValue:'||trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN,3);
1176: l_count := l_count+1;
1177: IF (l_count = l_dir_st) THEN
1178: p_DirNum1 := l_ls_dirnum;
1179: p_MedTxCrUsed1 := -1 * trc_LSDirTab(l_ls_dirnum).MedTxCrUsedOnLSDirRUN;
1212: l_ls_dirnum := trc_LSDirTab.next(l_ls_dirnum);
1213: end loop;
1214:
1215: p_MedCrUsedLS := l_cur_max_dir;
1216: hr_utility.set_location('trc_LSDirTab.count:'||trc_LSDirTab.count,4);
1217: hr_utility.set_location('p_MedCrUsedLS:'||p_MedCrUsedLS,4);
1218:
1219: RETURN 1;
1220:
1213: end loop;
1214:
1215: p_MedCrUsedLS := l_cur_max_dir;
1216: hr_utility.set_location('trc_LSDirTab.count:'||trc_LSDirTab.count,4);
1217: hr_utility.set_location('p_MedCrUsedLS:'||p_MedCrUsedLS,4);
1218:
1219: RETURN 1;
1220:
1221: EXCEPTION
1219: RETURN 1;
1220:
1221: EXCEPTION
1222: WHEN OTHERS THEN
1223: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM10',59);
1224: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),59);
1225: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),59);
1226:
1227: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM10: '||TO_CHAR(SQLCODE));
1220:
1221: EXCEPTION
1222: WHEN OTHERS THEN
1223: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM10',59);
1224: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),59);
1225: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),59);
1226:
1227: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM10: '||TO_CHAR(SQLCODE));
1228: hr_utility.raise_error;
1221: EXCEPTION
1222: WHEN OTHERS THEN
1223: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM10',59);
1224: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),59);
1225: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),59);
1226:
1227: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM10: '||TO_CHAR(SQLCODE));
1228: hr_utility.raise_error;
1229: END ZATXMEDTXCRLMPSM10;
1223: hr_utility.set_location('PY_ZA_TX_LS.ZATXMEDTXCRLMPSM10',59);
1224: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),59);
1225: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),59);
1226:
1227: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM10: '||TO_CHAR(SQLCODE));
1228: hr_utility.raise_error;
1229: END ZATXMEDTXCRLMPSM10;
1230:
1231:
1224: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),59);
1225: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),59);
1226:
1227: hr_utility.set_message(801, 'PY_ZA_TX_LS.ZATXMEDTXCRLMPSM10: '||TO_CHAR(SQLCODE));
1228: hr_utility.raise_error;
1229: END ZATXMEDTXCRLMPSM10;
1230:
1231:
1232: -- Bug 14376752
1293: RETURN trc_LScount ;
1294:
1295: EXCEPTION
1296: WHEN OTHERS THEN
1297: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),50);
1298: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),50);
1299: hr_utility.raise_error;
1300: END NetTxbSklDirNum;
1301:
1294:
1295: EXCEPTION
1296: WHEN OTHERS THEN
1297: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),50);
1298: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),50);
1299: hr_utility.raise_error;
1300: END NetTxbSklDirNum;
1301:
1302: FUNCTION LSNetTxbIncUpd(
1295: EXCEPTION
1296: WHEN OTHERS THEN
1297: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),50);
1298: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),50);
1299: hr_utility.raise_error;
1300: END NetTxbSklDirNum;
1301:
1302: FUNCTION LSNetTxbIncUpd(
1303: p_Dir_Num IN VARCHAR2
1312: RETURN 1;
1313:
1314: EXCEPTION
1315: WHEN OTHERS THEN
1316: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),51);
1317: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),51);
1318: hr_utility.raise_error;
1319: END LSNetTxbIncUpd;
1320:
1313:
1314: EXCEPTION
1315: WHEN OTHERS THEN
1316: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),51);
1317: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),51);
1318: hr_utility.raise_error;
1319: END LSNetTxbIncUpd;
1320:
1321:
1314: EXCEPTION
1315: WHEN OTHERS THEN
1316: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),51);
1317: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),51);
1318: hr_utility.raise_error;
1319: END LSNetTxbIncUpd;
1320:
1321:
1322:
1333: RETURN 1;
1334:
1335: EXCEPTION
1336: WHEN OTHERS THEN
1337: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),52);
1338: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),52);
1339: hr_utility.raise_error;
1340: END LSSkillsLevy;
1341:
1334:
1335: EXCEPTION
1336: WHEN OTHERS THEN
1337: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),52);
1338: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),52);
1339: hr_utility.raise_error;
1340: END LSSkillsLevy;
1341:
1342: FUNCTION LSDirCount RETURN NUMBER
1335: EXCEPTION
1336: WHEN OTHERS THEN
1337: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),52);
1338: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),52);
1339: hr_utility.raise_error;
1340: END LSSkillsLevy;
1341:
1342: FUNCTION LSDirCount RETURN NUMBER
1343: AS
1350: RETURN l_count;
1351:
1352: EXCEPTION
1353: WHEN OTHERS THEN
1354: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),53);
1355: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),53);
1356: hr_utility.raise_error;
1357: END LSDirCount;
1358:
1351:
1352: EXCEPTION
1353: WHEN OTHERS THEN
1354: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),53);
1355: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),53);
1356: hr_utility.raise_error;
1357: END LSDirCount;
1358:
1359: FUNCTION LSDirNetTxbInc(
1352: EXCEPTION
1353: WHEN OTHERS THEN
1354: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),53);
1355: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),53);
1356: hr_utility.raise_error;
1357: END LSDirCount;
1358:
1359: FUNCTION LSDirNetTxbInc(
1360: p_Dir_Num IN VARCHAR2
1363: AS
1364:
1365: BEGIN
1366:
1367: hr_utility.set_location('PY_ZA_TX_LS.LSDirNetTxbInc',1);
1368: hr_utility.set_location('Processing Directive Number: '|| p_Dir_Num,1);
1369:
1370: p_LSNetTxbInc := trc_LSNetTxbIncTab(p_Dir_Num).LSTxbIncMTD;
1371:
1364:
1365: BEGIN
1366:
1367: hr_utility.set_location('PY_ZA_TX_LS.LSDirNetTxbInc',1);
1368: hr_utility.set_location('Processing Directive Number: '|| p_Dir_Num,1);
1369:
1370: p_LSNetTxbInc := trc_LSNetTxbIncTab(p_Dir_Num).LSTxbIncMTD;
1371:
1372: hr_utility.set_location('p_LSNetTxbInc: '|| p_LSNetTxbInc,1);
1368: hr_utility.set_location('Processing Directive Number: '|| p_Dir_Num,1);
1369:
1370: p_LSNetTxbInc := trc_LSNetTxbIncTab(p_Dir_Num).LSTxbIncMTD;
1371:
1372: hr_utility.set_location('p_LSNetTxbInc: '|| p_LSNetTxbInc,1);
1373:
1374: RETURN 1;
1375:
1376: EXCEPTION
1374: RETURN 1;
1375:
1376: EXCEPTION
1377: WHEN OTHERS THEN
1378: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),54);
1379: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),54);
1380: hr_utility.raise_error;
1381: END LSDirNetTxbInc;
1382:
1375:
1376: EXCEPTION
1377: WHEN OTHERS THEN
1378: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),54);
1379: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),54);
1380: hr_utility.raise_error;
1381: END LSDirNetTxbInc;
1382:
1383:
1376: EXCEPTION
1377: WHEN OTHERS THEN
1378: hr_utility.set_location('Sql error code: '||TO_CHAR(SQLCODE),54);
1379: hr_utility.set_location('Sql error msg: '||SUBSTR(SQLERRM(SQLCODE), 1, 100),54);
1380: hr_utility.raise_error;
1381: END LSDirNetTxbInc;
1382:
1383:
1384: END PY_ZA_TX_LS;