[Home] [Help]
1: PACKAGE BODY hxt_interface_utilities AS
2: /* $Header: hxtinterfaceutil.pkb 120.3.12000000.5 2007/06/11 10:22:11 rchennur noship $ */
3:
4: -- Global package name
5: g_debug boolean := hr_utility.debug_enabled;
6: g_package CONSTANT package_name := 'hxt_interface_utilities.';
7: g_current_element pay_element_types_f.element_type_id%TYPE
8: := NULL;
9: -- GLOBAL SWITCHES --
38:
39: if g_debug then
40: l_proc := g_package
41: || 'current_element';
42: hr_utility.set_location ( 'Entering:'
43: || l_proc, 10);
44: hr_utility.set_location ( ' returning g_current_element = '
45: || g_current_element,
46: 20
40: l_proc := g_package
41: || 'current_element';
42: hr_utility.set_location ( 'Entering:'
43: || l_proc, 10);
44: hr_utility.set_location ( ' returning g_current_element = '
45: || g_current_element,
46: 20
47: );
48: hr_utility.set_location ( 'Leaving:'
44: hr_utility.set_location ( ' returning g_current_element = '
45: || g_current_element,
46: 20
47: );
48: hr_utility.set_location ( 'Leaving:'
49: || l_proc, 100);
50: end if;
51: RETURN g_current_element;
52: END current_element;
60:
61: if g_debug then
62: l_proc := g_package
63: || 'set_current_element';
64: hr_utility.set_location ( 'Entering:'
65: || l_proc, 10);
66: hr_utility.set_location ( ' setting g_current_element to '
67: || p_current_element,
68: 20
62: l_proc := g_package
63: || 'set_current_element';
64: hr_utility.set_location ( 'Entering:'
65: || l_proc, 10);
66: hr_utility.set_location ( ' setting g_current_element to '
67: || p_current_element,
68: 20
69: );
70: end if;
69: );
70: end if;
71: g_current_element := p_current_element;
72: if g_debug then
73: hr_utility.set_location ( 'Leaving:'
74: || l_proc, 100);
75: end if;
76: END set_current_element;
77:
79: RETURN BOOLEAN
80: IS
81: l_proc proc_name ;
82: BEGIN
83: g_debug :=hr_utility.debug_enabled;
84: if g_debug then
85: l_proc := g_package
86: || 'do_commit';
87: hr_utility.set_location ( 'Entering:'
83: g_debug :=hr_utility.debug_enabled;
84: if g_debug then
85: l_proc := g_package
86: || 'do_commit';
87: hr_utility.set_location ( 'Entering:'
88: || l_proc, 10);
89: end if;
90: IF (g_do_commit)
91: THEN
89: end if;
90: IF (g_do_commit)
91: THEN
92: if g_debug then
93: hr_utility.set_location (' returning g_do_commit = TRUE', 20);
94: end if;
95: ELSE
96: if g_debug then
97: hr_utility.set_location (' returning g_do_commit = FALSE', 30);
93: hr_utility.set_location (' returning g_do_commit = TRUE', 20);
94: end if;
95: ELSE
96: if g_debug then
97: hr_utility.set_location (' returning g_do_commit = FALSE', 30);
98: end if;
99: END IF;
100:
101: if g_debug then
98: end if;
99: END IF;
100:
101: if g_debug then
102: hr_utility.set_location ( 'Leaving:'
103: || l_proc, 100);
104: end if;
105: RETURN g_do_commit;
106: END do_commit;
108: PROCEDURE set_do_commit (p_do_commit IN BOOLEAN)
109: IS
110: l_proc proc_name ;
111: BEGIN
112: g_debug :=hr_utility.debug_enabled;
113: if g_debug then
114: l_proc := g_package
115: || 'set_do_commit';
116: hr_utility.set_location ( 'Entering:'
112: g_debug :=hr_utility.debug_enabled;
113: if g_debug then
114: l_proc := g_package
115: || 'set_do_commit';
116: hr_utility.set_location ( 'Entering:'
117: || l_proc, 10);
118: end if;
119: IF (p_do_commit)
120: THEN
118: end if;
119: IF (p_do_commit)
120: THEN
121: if g_debug then
122: hr_utility.set_location (' setting g_do_commit to TRUE', 20);
123: end if;
124: ELSE
125: if g_debug then
126: hr_utility.set_location (' setting g_do_commit to FALSE', 30);
122: hr_utility.set_location (' setting g_do_commit to TRUE', 20);
123: end if;
124: ELSE
125: if g_debug then
126: hr_utility.set_location (' setting g_do_commit to FALSE', 30);
127: end if;
128: END IF;
129:
130: g_do_commit := p_do_commit;
128: END IF;
129:
130: g_do_commit := p_do_commit;
131: if g_debug then
132: hr_utility.set_location ( 'Leaving:'
133: || l_proc, 100);
134: end if;
135: END set_do_commit;
136:
137: PROCEDURE perform_commit
138: IS
139: l_proc proc_name ;
140: BEGIN
141: g_debug :=hr_utility.debug_enabled;
142: if g_debug then
143: l_proc := g_package
144: || 'perform_commit';
145: hr_utility.set_location ( 'Entering:'
141: g_debug :=hr_utility.debug_enabled;
142: if g_debug then
143: l_proc := g_package
144: || 'perform_commit';
145: hr_utility.set_location ( 'Entering:'
146: || l_proc, 10);
147: end if;
148: IF (do_commit)
149: THEN
147: end if;
148: IF (do_commit)
149: THEN
150: if g_debug then
151: hr_utility.set_location (' Commiting', 20);
152: end if;
153: COMMIT;
154: ELSE
155: NULL; -- No Commit
155: NULL; -- No Commit
156: END IF;
157:
158: if g_debug then
159: hr_utility.set_location ( 'Leaving:'
160: || l_proc, 100);
161: end if;
162: END perform_commit;
163:
165: RETURN BOOLEAN
166: IS
167: l_proc proc_name ;
168: BEGIN
169: g_debug :=hr_utility.debug_enabled;
170: if g_debug then
171: l_proc := g_package
172: || 'use_old_retro_batches';
173: hr_utility.set_location ( 'Entering:'
169: g_debug :=hr_utility.debug_enabled;
170: if g_debug then
171: l_proc := g_package
172: || 'use_old_retro_batches';
173: hr_utility.set_location ( 'Entering:'
174: || l_proc, 10);
175: end if;
176: IF (g_use_old_retro_batches)
177: THEN
175: end if;
176: IF (g_use_old_retro_batches)
177: THEN
178: if g_debug then
179: hr_utility.set_location (' returning g_use_old_retro_batches = TRUE',
180: 20
181: );
182: end if;
183: ELSE
181: );
182: end if;
183: ELSE
184: if g_debug then
185: hr_utility.set_location (' returning g_use_old_retro_batches = FALSE',
186: 30
187: );
188: end if;
189: END IF;
188: end if;
189: END IF;
190:
191: if g_debug then
192: hr_utility.set_location ( 'Leaving:'
193: || l_proc, 100);
194: end if;
195: RETURN g_use_old_retro_batches;
196: END use_old_retro_batches;
198: PROCEDURE set_use_old_retro_batches (p_use_old_retro_batches IN BOOLEAN)
199: IS
200: l_proc proc_name ;
201: BEGIN
202: g_debug :=hr_utility.debug_enabled;
203: if g_debug then
204: l_proc := g_package
205: || 'set_use_old_retro_batches';
206: hr_utility.set_location ( 'Entering:'
202: g_debug :=hr_utility.debug_enabled;
203: if g_debug then
204: l_proc := g_package
205: || 'set_use_old_retro_batches';
206: hr_utility.set_location ( 'Entering:'
207: || l_proc, 10);
208: end if;
209: IF (p_use_old_retro_batches)
210: THEN
208: end if;
209: IF (p_use_old_retro_batches)
210: THEN
211: if g_debug then
212: hr_utility.set_location (' setting g_use_old_retro_batches to TRUE',
213: 20
214: );
215: end if;
216: ELSE
214: );
215: end if;
216: ELSE
217: if g_debug then
218: hr_utility.set_location (' setting g_use_old_retro_batches to FALSE',
219: 30
220: );
221: end if;
222: END IF;
222: END IF;
223:
224: g_use_old_retro_batches := p_use_old_retro_batches;
225: if g_debug then
226: hr_utility.set_location ( 'Leaving:'
227: || l_proc, 100);
228: end if;
229: END set_use_old_retro_batches;
230:
236:
237: if g_debug then
238: l_proc := g_package
239: || 'caching';
240: hr_utility.set_location ( 'Entering:'
241: || l_proc, 10);
242: end if;
243: IF (g_caching)
244: THEN
242: end if;
243: IF (g_caching)
244: THEN
245: if g_debug then
246: hr_utility.set_location (' returning g_caching = TRUE', 20);
247: end if;
248: ELSE
249: if g_debug then
250: hr_utility.set_location (' returning g_caching = FALSE', 30);
246: hr_utility.set_location (' returning g_caching = TRUE', 20);
247: end if;
248: ELSE
249: if g_debug then
250: hr_utility.set_location (' returning g_caching = FALSE', 30);
251: end if;
252: END IF;
253:
254: if g_debug then
251: end if;
252: END IF;
253:
254: if g_debug then
255: hr_utility.set_location ( 'Leaving:'
256: || l_proc, 100);
257: end if;
258: RETURN g_caching;
259: END caching;
265:
266: if g_debug then
267: l_proc := g_package
268: || 'set_caching';
269: hr_utility.set_location ( 'Entering:'
270: || l_proc, 10);
271: end if;
272: IF (p_caching)
273: THEN
271: end if;
272: IF (p_caching)
273: THEN
274: if g_debug then
275: hr_utility.set_location (' setting g_caching to TRUE', 20);
276: end if;
277: ELSE
278: if g_debug then
279: hr_utility.set_location (' setting g_caching to FALSE', 30);
275: hr_utility.set_location (' setting g_caching to TRUE', 20);
276: end if;
277: ELSE
278: if g_debug then
279: hr_utility.set_location (' setting g_caching to FALSE', 30);
280: end if;
281: END IF;
282:
283: g_caching := p_caching;
281: END IF;
282:
283: g_caching := p_caching;
284: if g_debug then
285: hr_utility.set_location ( 'Leaving:'
286: || l_proc, 100);
287: end if;
288: END set_caching;
289:
292: IS
293: l_proc proc_name;
294:
295: BEGIN
296: g_debug :=hr_utility.debug_enabled;
297: if g_debug then
298: l_proc := g_package
299: || 'batchname_suffix_connector';
300: hr_utility.set_location ( 'Entering:'
296: g_debug :=hr_utility.debug_enabled;
297: if g_debug then
298: l_proc := g_package
299: || 'batchname_suffix_connector';
300: hr_utility.set_location ( 'Entering:'
301: || l_proc, 10);
302: hr_utility.set_location ( ' returning g_batchname_suffix_connector = '
303: || g_batchname_suffix_connector,
304: 20
298: l_proc := g_package
299: || 'batchname_suffix_connector';
300: hr_utility.set_location ( 'Entering:'
301: || l_proc, 10);
302: hr_utility.set_location ( ' returning g_batchname_suffix_connector = '
303: || g_batchname_suffix_connector,
304: 20
305: );
306: hr_utility.set_location ( 'Leaving:'
302: hr_utility.set_location ( ' returning g_batchname_suffix_connector = '
303: || g_batchname_suffix_connector,
304: 20
305: );
306: hr_utility.set_location ( 'Leaving:'
307: || l_proc, 100);
308: end if;
309: RETURN g_batchname_suffix_connector;
310: END batchname_suffix_connector;
315: IS
316: l_proc proc_name;
317:
318: BEGIN
319: g_debug :=hr_utility.debug_enabled;
320: if g_debug then
321: l_proc := g_package
322: || 'set_batchname_suffix_connector';
323: hr_utility.set_location ( 'Entering:'
319: g_debug :=hr_utility.debug_enabled;
320: if g_debug then
321: l_proc := g_package
322: || 'set_batchname_suffix_connector';
323: hr_utility.set_location ( 'Entering:'
324: || l_proc, 10);
325: hr_utility.set_location ( ' setting g_batchname_suffix_connector to '
326: || p_batchname_suffix_connector,
327: 20
321: l_proc := g_package
322: || 'set_batchname_suffix_connector';
323: hr_utility.set_location ( 'Entering:'
324: || l_proc, 10);
325: hr_utility.set_location ( ' setting g_batchname_suffix_connector to '
326: || p_batchname_suffix_connector,
327: 20
328: );
329: end if;
328: );
329: end if;
330: g_batchname_suffix_connector := p_batchname_suffix_connector;
331: if g_debug then
332: hr_utility.set_location ( 'Leaving:'
333: || l_proc, 100);
334: end if;
335: END set_batchname_suffix_connector;
336:
345:
346: if g_debug then
347: l_proc := g_package
348: || 'hashval';
349: hr_utility.set_location ( 'Entering:'
350: || l_proc, 10);
351: end if;
352: l_hashval := DBMS_UTILITY.get_hash_value (p_str, c_start, c_maxrange);
353: if g_debug then
350: || l_proc, 10);
351: end if;
352: l_hashval := DBMS_UTILITY.get_hash_value (p_str, c_start, c_maxrange);
353: if g_debug then
354: hr_utility.set_location ( 'Leaving:'
355: || l_proc, 100);
356: end if;
357: RETURN l_hashval;
358: END hashval;
363:
364: l_empty_primary_assignments primary_assignment_table;
365: l_empty_assignment_info assignment_info_table;
366: BEGIN
367: g_debug :=hr_utility.debug_enabled;
368: if g_debug then
369: l_proc := g_package
370: || 'empty_asg_cache';
371: hr_utility.set_location ( 'Entering:'
367: g_debug :=hr_utility.debug_enabled;
368: if g_debug then
369: l_proc := g_package
370: || 'empty_asg_cache';
371: hr_utility.set_location ( 'Entering:'
372: || l_proc, 10);
373: end if;
374: g_primary_assignments := l_empty_primary_assignments;
375: g_assignment_info := l_empty_assignment_info;
373: end if;
374: g_primary_assignments := l_empty_primary_assignments;
375: g_assignment_info := l_empty_assignment_info;
376: if g_debug then
377: hr_utility.set_location ( 'Leaving:'
378: || l_proc, 100);
379: end if;
380: END empty_asg_cache;
381:
384: l_proc proc_name;
385:
386: l_empty_batch_info batch_info_table;
387: BEGIN
388: g_debug :=hr_utility.debug_enabled;
389: if g_debug then
390: l_proc := g_package
391: || 'empty_batch_suffix_cache';
392: hr_utility.set_location ( 'Entering:'
388: g_debug :=hr_utility.debug_enabled;
389: if g_debug then
390: l_proc := g_package
391: || 'empty_batch_suffix_cache';
392: hr_utility.set_location ( 'Entering:'
393: || l_proc, 10);
394: end if;
395: g_batch_info := l_empty_batch_info;
396: if g_debug then
393: || l_proc, 10);
394: end if;
395: g_batch_info := l_empty_batch_info;
396: if g_debug then
397: hr_utility.set_location ( 'Leaving:'
398: || l_proc, 100);
399: end if;
400: END empty_batch_suffix_cache;
401:
402: PROCEDURE empty_cache
403: IS
404: l_proc proc_name ;
405: BEGIN
406: g_debug :=hr_utility.debug_enabled;
407: if g_debug then
408: l_proc := g_package
409: || 'empty_cache';
410: hr_utility.set_location ( 'Entering:'
406: g_debug :=hr_utility.debug_enabled;
407: if g_debug then
408: l_proc := g_package
409: || 'empty_cache';
410: hr_utility.set_location ( 'Entering:'
411: || l_proc, 10);
412: end if;
413: empty_asg_cache;
414: if g_debug then
411: || l_proc, 10);
412: end if;
413: empty_asg_cache;
414: if g_debug then
415: hr_utility.set_location ( 'Leaving:'
416: || l_proc, 100);
417: end if;
418: END empty_cache;
419:
421: RETURN NUMBER
422: IS
423: l_proc proc_name ;
424: BEGIN
425: g_debug :=hr_utility.debug_enabled;
426: if g_debug then
427: l_proc := g_package
428: || 'max_batch_size';
429: hr_utility.set_location ( 'Entering:'
425: g_debug :=hr_utility.debug_enabled;
426: if g_debug then
427: l_proc := g_package
428: || 'max_batch_size';
429: hr_utility.set_location ( 'Entering:'
430: || l_proc, 10);
431: end if;
432: IF (g_max_batch_size = -1)
433: THEN
434: g_max_batch_size := fnd_profile.VALUE (g_otl_batchsize_profile);
435: END IF;
436:
437: if g_debug then
438: hr_utility.set_location ( ' returning max batch size: '
439: || g_max_batch_size,
440: 20
441: );
442: hr_utility.set_location ( 'Leaving:'
438: hr_utility.set_location ( ' returning max batch size: '
439: || g_max_batch_size,
440: 20
441: );
442: hr_utility.set_location ( 'Leaving:'
443: || l_proc, 100);
444: end if;
445: RETURN g_max_batch_size;
446: END max_batch_size;
451: l_proc proc_name;
452:
453: l_conc_request_id_suffix NUMBER;
454: BEGIN
455: g_debug :=hr_utility.debug_enabled;
456: if g_debug then
457: l_proc := g_package
458: || 'conc_request_id_suffix';
459: hr_utility.set_location ( 'Entering:'
455: g_debug :=hr_utility.debug_enabled;
456: if g_debug then
457: l_proc := g_package
458: || 'conc_request_id_suffix';
459: hr_utility.set_location ( 'Entering:'
460: || l_proc, 10);
461: end if;
462: IF (g_conc_request_id_suffix IS NULL)
463: THEN
476: l_conc_request_id_suffix := g_conc_request_id_suffix;
477: END IF;
478:
479: if g_debug then
480: hr_utility.set_location ( ' returning l_conc_request_id_suffix: '
481: || l_conc_request_id_suffix,
482: 20
483: );
484: hr_utility.set_location ( 'Leaving:'
480: hr_utility.set_location ( ' returning l_conc_request_id_suffix: '
481: || l_conc_request_id_suffix,
482: 20
483: );
484: hr_utility.set_location ( 'Leaving:'
485: || l_proc, 100);
486: end if;
487: RETURN l_conc_request_id_suffix;
488: END conc_request_id_suffix;
519:
520: l_batch_id pay_batch_headers.batch_id%TYPE;
521: l_batch_name pay_batch_headers.batch_name%TYPE;
522: BEGIN
523: g_debug :=hr_utility.debug_enabled;
524: if g_debug then
525: l_proc := g_package
526: || 'batch_name';
527: hr_utility.set_location ( 'Entering:'
523: g_debug :=hr_utility.debug_enabled;
524: if g_debug then
525: l_proc := g_package
526: || 'batch_name';
527: hr_utility.set_location ( 'Entering:'
528: || l_proc, 10);
529: end if;
530: IF (csr_max_batch_id%ISOPEN)
531: THEN
544: OPEN csr_batch_name (l_batch_id);
545: FETCH csr_batch_name INTO l_batch_name;
546: CLOSE csr_batch_name;
547: if g_debug then
548: hr_utility.set_location ( ' returning batch name: '
549: || l_batch_name, 20);
550: hr_utility.set_location ( 'Leaving:'
551: || l_proc, 100);
552: end if;
546: CLOSE csr_batch_name;
547: if g_debug then
548: hr_utility.set_location ( ' returning batch name: '
549: || l_batch_name, 20);
550: hr_utility.set_location ( 'Leaving:'
551: || l_proc, 100);
552: end if;
553: RETURN l_batch_name;
554: END batch_name;
572: AND pbh.business_group_id = p_bg_id;
573:
574: l_batch_id pay_batch_headers.batch_id%TYPE;
575: BEGIN
576: g_debug :=hr_utility.debug_enabled;
577: if g_debug then
578: l_proc := g_package
579: || 'max_batch_id';
580: hr_utility.set_location ( 'Entering:'
576: g_debug :=hr_utility.debug_enabled;
577: if g_debug then
578: l_proc := g_package
579: || 'max_batch_id';
580: hr_utility.set_location ( 'Entering:'
581: || l_proc, 10);
582: end if;
583: IF (csr_max_batch_id%ISOPEN)
584: THEN
588: OPEN csr_max_batch_id (p_batch_name, p_bg_id);
589: FETCH csr_max_batch_id INTO l_batch_id;
590: CLOSE csr_max_batch_id;
591: if g_debug then
592: hr_utility.set_location ( ' returning batch id: '
593: || l_batch_id, 20);
594: hr_utility.set_location ( 'Leaving:'
595: || l_proc, 100);
596: end if;
590: CLOSE csr_max_batch_id;
591: if g_debug then
592: hr_utility.set_location ( ' returning batch id: '
593: || l_batch_id, 20);
594: hr_utility.set_location ( 'Leaving:'
595: || l_proc, 100);
596: end if;
597: RETURN l_batch_id;
598: END max_batch_id;
616: AND pbh.business_group_id = p_bg_id;
617:
618: l_batch_id pay_batch_headers.batch_id%TYPE;
619: BEGIN
620: g_debug :=hr_utility.debug_enabled;
621: if g_debug then
622: l_proc := g_package
623: || 'max_batch_id';
624: hr_utility.set_location ( 'Entering:'
620: g_debug :=hr_utility.debug_enabled;
621: if g_debug then
622: l_proc := g_package
623: || 'max_batch_id';
624: hr_utility.set_location ( 'Entering:'
625: || l_proc, 10);
626: end if;
627: IF (csr_max_batch_id%ISOPEN)
628: THEN
632: OPEN csr_max_batch_id (p_batch_reference, p_bg_id);
633: FETCH csr_max_batch_id INTO l_batch_id;
634: CLOSE csr_max_batch_id;
635: if g_debug then
636: hr_utility.set_location ( ' returning batch id: '
637: || l_batch_id, 20);
638: hr_utility.set_location ( 'Leaving:'
639: || l_proc, 100);
640: end if;
634: CLOSE csr_max_batch_id;
635: if g_debug then
636: hr_utility.set_location ( ' returning batch id: '
637: || l_batch_id, 20);
638: hr_utility.set_location ( 'Leaving:'
639: || l_proc, 100);
640: end if;
641: RETURN l_batch_id;
642: END max_batch_id;
653: WHERE pbl.batch_id = p_batch_id;
654:
655: l_batch_lines NUMBER;
656: BEGIN
657: g_debug :=hr_utility.debug_enabled;
658: if g_debug then
659: l_proc := g_package
660: || 'count_batch_lines';
661: hr_utility.set_location ( 'Entering:'
657: g_debug :=hr_utility.debug_enabled;
658: if g_debug then
659: l_proc := g_package
660: || 'count_batch_lines';
661: hr_utility.set_location ( 'Entering:'
662: || l_proc, 10);
663: end if;
664: OPEN csr_batch_lines (p_batch_id);
665: FETCH csr_batch_lines INTO l_batch_lines;
664: OPEN csr_batch_lines (p_batch_id);
665: FETCH csr_batch_lines INTO l_batch_lines;
666: CLOSE csr_batch_lines;
667: if g_debug then
668: hr_utility.set_location ( ' returning number of batch lines: '
669: || l_batch_lines,
670: 20
671: );
672: hr_utility.set_location ( 'Leaving:'
668: hr_utility.set_location ( ' returning number of batch lines: '
669: || l_batch_lines,
670: 20
671: );
672: hr_utility.set_location ( 'Leaving:'
673: || l_proc, 100);
674: end if;
675: RETURN l_batch_lines;
676: END count_batch_lines;
684: l_proc proc_name ;
685: l_batch_id pay_batch_headers.batch_name%TYPE;
686: l_batch_lines NUMBER;
687: BEGIN
688: g_debug :=hr_utility.debug_enabled;
689: if g_debug then
690: l_proc := g_package
691: || 'count_batch_lines';
692: hr_utility.set_location ( 'Entering:'
688: g_debug :=hr_utility.debug_enabled;
689: if g_debug then
690: l_proc := g_package
691: || 'count_batch_lines';
692: hr_utility.set_location ( 'Entering:'
693: || l_proc, 10);
694: end if;
695: l_batch_id :=
696: max_batch_id (p_batch_name => p_batch_name,
696: max_batch_id (p_batch_name => p_batch_name,
697: p_bg_id => p_bg_id);
698: l_batch_lines := count_batch_lines (p_batch_id => l_batch_id);
699: if g_debug then
700: hr_utility.set_location ( ' returning number of batch lines: '
701: || l_batch_lines,
702: 20
703: );
704: hr_utility.set_location ( 'Leaving:'
700: hr_utility.set_location ( ' returning number of batch lines: '
701: || l_batch_lines,
702: 20
703: );
704: hr_utility.set_location ( 'Leaving:'
705: || l_proc, 100);
706: end if;
707: RETURN l_batch_lines;
708: END count_batch_lines;
727: AND batch_reference = p_batch_reference;
728:
729: l_batch_lines NUMBER;
730: BEGIN
731: g_debug :=hr_utility.debug_enabled;
732: if g_debug then
733: l_proc := g_package
734: || 'total_batch_lines';
735: hr_utility.set_location ( 'Entering:'
731: g_debug :=hr_utility.debug_enabled;
732: if g_debug then
733: l_proc := g_package
734: || 'total_batch_lines';
735: hr_utility.set_location ( 'Entering:'
736: || l_proc, 10);
737: end if;
738: OPEN csr_batch_lines (p_batch_reference, p_bg_id);
739: FETCH csr_batch_lines INTO l_batch_lines;
738: OPEN csr_batch_lines (p_batch_reference, p_bg_id);
739: FETCH csr_batch_lines INTO l_batch_lines;
740: CLOSE csr_batch_lines;
741: if g_debug then
742: hr_utility.set_location ( ' returning number of batch lines: '
743: || l_batch_lines,
744: 20
745: );
746: hr_utility.set_location ( 'Leaving:'
742: hr_utility.set_location ( ' returning number of batch lines: '
743: || l_batch_lines,
744: 20
745: );
746: hr_utility.set_location ( 'Leaving:'
747: || l_proc, 100);
748: end if;
749: RETURN l_batch_lines;
750: END total_batch_lines;
756: IS
757: l_proc proc_name ;
758: l_max_lines_exceeded BOOLEAN;
759: BEGIN
760: g_debug :=hr_utility.debug_enabled;
761: if g_debug then
762: l_proc := g_package
763: || 'max_lines_exceeded';
764: hr_utility.set_location ( 'Entering:'
760: g_debug :=hr_utility.debug_enabled;
761: if g_debug then
762: l_proc := g_package
763: || 'max_lines_exceeded';
764: hr_utility.set_location ( 'Entering:'
765: || l_proc, 10);
766: end if;
767: IF (count_batch_lines (p_batch_id => p_batch_id) >= max_batch_size)
768: THEN
767: IF (count_batch_lines (p_batch_id => p_batch_id) >= max_batch_size)
768: THEN
769: l_max_lines_exceeded := TRUE;
770: if g_debug then
771: hr_utility.set_location (' Maximum lines in batch exceeded!', 20);
772: end if;
773: ELSE
774: l_max_lines_exceeded := FALSE;
775: END IF;
774: l_max_lines_exceeded := FALSE;
775: END IF;
776:
777: if g_debug then
778: hr_utility.set_location ( 'Leaving:'
779: || l_proc, 100);
780: end if;
781: RETURN l_max_lines_exceeded;
782: END max_lines_exceeded;
789: IS
790: l_proc proc_name ;
791: l_max_lines_exceeded BOOLEAN;
792: BEGIN
793: g_debug :=hr_utility.debug_enabled;
794: if g_debug then
795: l_proc := g_package
796: || 'max_lines_exceeded';
797: hr_utility.set_location ( 'Entering:'
793: g_debug :=hr_utility.debug_enabled;
794: if g_debug then
795: l_proc := g_package
796: || 'max_lines_exceeded';
797: hr_utility.set_location ( 'Entering:'
798: || l_proc, 10);
799: end if;
800: IF (p_number_lines IS NULL)
801: THEN
805: IF (p_number_lines >= max_batch_size)
806: THEN
807: p_max_lines_exceeded := TRUE;
808: if g_debug then
809: hr_utility.set_location (' Maximum lines in batch exceeded!', 20);
810: end if;
811: ELSE
812: p_max_lines_exceeded := FALSE;
813: END IF;
812: p_max_lines_exceeded := FALSE;
813: END IF;
814:
815: if g_debug then
816: hr_utility.set_location ( 'Leaving:'
817: || l_proc, 100);
818: end if;
819: END max_lines_exceeded;
820:
827: l_proc proc_name ;
828: l_batch_name pay_batch_headers.batch_name%TYPE;
829: l_max_lines_exceeded BOOLEAN;
830: BEGIN
831: g_debug :=hr_utility.debug_enabled;
832: if g_debug then
833: l_proc := g_package
834: || 'max_lines_exceeded';
835: hr_utility.set_location ( 'Entering:'
831: g_debug :=hr_utility.debug_enabled;
832: if g_debug then
833: l_proc := g_package
834: || 'max_lines_exceeded';
835: hr_utility.set_location ( 'Entering:'
836: || l_proc, 10);
837: end if;
838: l_batch_name :=
839: batch_name (p_batch_ref => p_batch_ref,
846: )
847: THEN
848: l_max_lines_exceeded := TRUE;
849: if g_debug then
850: hr_utility.set_location (' Maximum lines in batch exceeded!', 20);
851: end if;
852: ELSE
853: l_max_lines_exceeded := FALSE;
854: END IF;
853: l_max_lines_exceeded := FALSE;
854: END IF;
855:
856: if g_debug then
857: hr_utility.set_location ( 'Leaving:'
858: || l_proc, 100);
859: end if;
860: RETURN l_max_lines_exceeded;
861: END max_lines_exceeded;
866: l_proc proc_name ;
867: l_number NUMBER;
868: l_isnumber BOOLEAN := FALSE;
869: BEGIN
870: g_debug :=hr_utility.debug_enabled;
871: if g_debug then
872: l_proc := g_package
873: || 'isnumber';
874: hr_utility.set_location ( 'Entering:'
870: g_debug :=hr_utility.debug_enabled;
871: if g_debug then
872: l_proc := g_package
873: || 'isnumber';
874: hr_utility.set_location ( 'Entering:'
875: || l_proc, 10);
876: end if;
877: BEGIN
878: l_number := p_value;
880: EXCEPTION
881: WHEN OTHERS
882: THEN
883: if g_debug then
884: hr_utility.set_location ( 'Leaving:'
885: || l_proc, 50);
886: end if;
887: RETURN l_isnumber;
888: END;
887: RETURN l_isnumber;
888: END;
889:
890: if g_debug then
891: hr_utility.set_location ( 'Leaving:'
892: || l_proc, 100);
893: end if;
894: RETURN l_isnumber;
895: END isnumber;
902: l_proc proc_name;
903:
904: l_detail_lines_retrieved BOOLEAN;
905: BEGIN
906: g_debug :=hr_utility.debug_enabled;
907: if g_debug then
908: l_proc := g_package
909: || 'detail_lines_retrieved';
910: hr_utility.set_location ( 'Entering:'
906: g_debug :=hr_utility.debug_enabled;
907: if g_debug then
908: l_proc := g_package
909: || 'detail_lines_retrieved';
910: hr_utility.set_location ( 'Entering:'
911: || l_proc, 10);
912: end if;
913: IF (p_tbb_tbl.COUNT <> 0)
914: THEN
913: IF (p_tbb_tbl.COUNT <> 0)
914: THEN
915: l_detail_lines_retrieved := TRUE;
916: if g_debug then
917: hr_utility.set_location (' Detail lines retrieved!', 20);
918: end if;
919: ELSE
920: l_detail_lines_retrieved := FALSE;
921: END IF;
920: l_detail_lines_retrieved := FALSE;
921: END IF;
922:
923: if g_debug then
924: hr_utility.set_location ( 'Leaving:'
925: || l_proc, 100);
926: end if;
927: RETURN l_detail_lines_retrieved;
928: END detail_lines_retrieved;
948: AND paaf.soft_coding_keyflex_id = hsck.soft_coding_keyflex_id;
949:
950: l_gre hr_soft_coding_keyflex.segment1%TYPE;
951: BEGIN
952: g_debug :=hr_utility.debug_enabled;
953: if g_debug then
954: l_proc := g_package
955: || 'gre';
956: hr_utility.set_location ( 'Entering '
952: g_debug :=hr_utility.debug_enabled;
953: if g_debug then
954: l_proc := g_package
955: || 'gre';
956: hr_utility.set_location ( 'Entering '
957: || l_proc, 10);
958: end if;
959: IF (csr_gre%ISOPEN)
960: THEN
964: OPEN csr_gre (p_assignment_id, p_effective_date);
965: FETCH csr_gre INTO l_gre;
966: CLOSE csr_gre;
967: if g_debug then
968: hr_utility.set_location ( ' returning gre = '
969: || l_gre, 90);
970: hr_utility.set_location ( 'Leaving '
971: || l_proc, 100);
972: end if;
966: CLOSE csr_gre;
967: if g_debug then
968: hr_utility.set_location ( ' returning gre = '
969: || l_gre, 90);
970: hr_utility.set_location ( 'Leaving '
971: || l_proc, 100);
972: end if;
973: RETURN l_gre;
974: END gre;
985:
986: if g_debug then
987: l_proc := g_package
988: || 'table_to_comma';
989: hr_utility.set_location ( 'Entering '
990: || l_proc, 10);
991: end if;
992: l_asg_types_idx := p_asg_type.FIRST;
993:
1002: tablen => l_tablen,
1003: LIST => l_list
1004: );
1005: if g_debug then
1006: hr_utility.set_location ( 'Leaving '
1007: || l_proc, 100);
1008: end if;
1009: RETURN l_list;
1010: END table_to_comma;
1017: l_var_asg_system_types DBMS_UTILITY.uncl_array;
1018: l_tablen BINARY_INTEGER;
1019: l_list VARCHAR2 (4000);
1020: BEGIN
1021: g_debug :=hr_utility.debug_enabled;
1022: if g_debug then
1023: l_proc := g_package
1024: || 'table_to_comma';
1025: hr_utility.set_location ( 'Entering '
1021: g_debug :=hr_utility.debug_enabled;
1022: if g_debug then
1023: l_proc := g_package
1024: || 'table_to_comma';
1025: hr_utility.set_location ( 'Entering '
1026: || l_proc, 10);
1027: end if;
1028: l_asg_system_types_idx := p_asg_system_type.FIRST;
1029:
1039: tablen => l_tablen,
1040: LIST => l_list
1041: );
1042: if g_debug then
1043: hr_utility.set_location ( 'Leaving '
1044: || l_proc, 100);
1045: end if;
1046: RETURN l_list;
1047: END table_to_comma;
1055: l_proc proc_name ;
1056: l_val_tbl_idx PLS_INTEGER;
1057: l_valid BOOLEAN := FALSE;
1058: BEGIN
1059: g_debug :=hr_utility.debug_enabled;
1060: if g_debug then
1061: l_proc := g_package
1062: || 'valid_assignment_type';
1063: hr_utility.set_location ( 'Entering '
1059: g_debug :=hr_utility.debug_enabled;
1060: if g_debug then
1061: l_proc := g_package
1062: || 'valid_assignment_type';
1063: hr_utility.set_location ( 'Entering '
1064: || l_proc, 10);
1065: end if;
1066: IF (p_validation_tbl.COUNT <> 0) -- values passed, start comparing
1067: THEN
1073: IF (p_validation_tbl (l_val_tbl_idx).asg_type = p_asg_type)
1074: THEN
1075: l_valid := TRUE;
1076: if g_debug then
1077: hr_utility.set_location (' Valid Assignment!', 20);
1078: end if;
1079: END IF;
1080:
1081: l_val_tbl_idx := p_validation_tbl.NEXT (l_val_tbl_idx);
1082: END LOOP;
1083: ELSE -- no values in table passed means everything is valid
1084: l_valid := TRUE;
1085: if g_debug then
1086: hr_utility.set_location (' Valid Assignment!', 30);
1087: end if;
1088: END IF;
1089:
1090: if g_debug then
1087: end if;
1088: END IF;
1089:
1090: if g_debug then
1091: hr_utility.set_location ( 'Leaving '
1092: || l_proc, 40);
1093: end if;
1094: RETURN l_valid;
1095: END valid_assignment_type;
1104:
1105: l_val_tbl_idx PLS_INTEGER;
1106: l_valid BOOLEAN := FALSE;
1107: BEGIN
1108: g_debug :=hr_utility.debug_enabled;
1109: if g_debug then
1110: l_proc := g_package
1111: || 'valid_assignment_system_status';
1112: hr_utility.set_location ( 'Entering '
1108: g_debug :=hr_utility.debug_enabled;
1109: if g_debug then
1110: l_proc := g_package
1111: || 'valid_assignment_system_status';
1112: hr_utility.set_location ( 'Entering '
1113: || l_proc, 10);
1114: end if;
1115: IF (p_validation_tbl.COUNT <> 0) -- values passed, start comparing
1116: THEN
1124: )
1125: THEN
1126: l_valid := TRUE;
1127: if g_debug then
1128: hr_utility.set_location (' Valid Assignment!', 20);
1129: end if;
1130: END IF;
1131:
1132: l_val_tbl_idx := p_validation_tbl.NEXT (l_val_tbl_idx);
1133: END LOOP;
1134: ELSE -- no values in table passed means everything is valid
1135: l_valid := TRUE;
1136: if g_debug then
1137: hr_utility.set_location (' Valid Assignment!', 30);
1138: end if;
1139: END IF;
1140:
1141: if g_debug then
1138: end if;
1139: END IF;
1140:
1141: if g_debug then
1142: hr_utility.set_location ( 'Leaving '
1143: || l_proc, 40);
1144: end if;
1145: RETURN l_valid;
1146: END valid_assignment_system_status;
1182: l_rec_prim_asg csr_prim_asg%ROWTYPE;
1183: l_prim_asg_id per_all_assignments_f.assignment_id%TYPE := NULL;
1184: l_found_in_cache BOOLEAN := FALSE;
1185: BEGIN
1186: g_debug :=hr_utility.debug_enabled;
1187: if g_debug then
1188: l_proc := g_package
1189: || 'primary_assignment_id';
1190: hr_utility.set_location ( 'Entering:'
1186: g_debug :=hr_utility.debug_enabled;
1187: if g_debug then
1188: l_proc := g_package
1189: || 'primary_assignment_id';
1190: hr_utility.set_location ( 'Entering:'
1191: || l_proc, 10);
1192: end if;
1193: IF ((caching) AND (g_primary_assignments.EXISTS (p_person_id)))
1194: THEN
1247: END IF;
1248: END IF;
1249:
1250: if g_debug then
1251: hr_utility.set_location ( ' returning '
1252: || l_prim_asg_id, 20);
1253: hr_utility.set_location ( 'Leaving:'
1254: || l_proc, 30);
1255: end if;
1249:
1250: if g_debug then
1251: hr_utility.set_location ( ' returning '
1252: || l_prim_asg_id, 20);
1253: hr_utility.set_location ( 'Leaving:'
1254: || l_proc, 30);
1255: end if;
1256: RETURN l_prim_asg_id;
1257: END primary_assignment_id;
1284:
1285: l_assignment_info csr_assignment_info%ROWTYPE;
1286: l_found_in_cache BOOLEAN := FALSE;
1287: BEGIN
1288: g_debug :=hr_utility.debug_enabled;
1289: if g_debug then
1290: l_proc := g_package
1291: || 'get_assignment_info';
1292: hr_utility.set_location ( 'Entering:'
1288: g_debug :=hr_utility.debug_enabled;
1289: if g_debug then
1290: l_proc := g_package
1291: || 'get_assignment_info';
1292: hr_utility.set_location ( 'Entering:'
1293: || l_proc, 10);
1294: end if;
1295: IF ((caching) AND (g_assignment_info.EXISTS (p_assignment_id)))
1296: THEN
1350: CLOSE csr_assignment_info;
1351: END IF;
1352:
1353: if g_debug then
1354: hr_utility.set_location ( 'Leaving:'
1355: || l_proc, 100);
1356: end if;
1357: END get_assignment_info;
1358:
1371:
1372: l_valid_asg_types asg_type_table;
1373: l_valid_asg_status_types asg_system_status_table;
1374: BEGIN
1375: g_debug :=hr_utility.debug_enabled;
1376: if g_debug then
1377: l_proc := g_package
1378: || 'get_primary_assignment_info';
1379: hr_utility.set_location ( 'Entering:'
1375: g_debug :=hr_utility.debug_enabled;
1376: if g_debug then
1377: l_proc := g_package
1378: || 'get_primary_assignment_info';
1379: hr_utility.set_location ( 'Entering:'
1380: || l_proc, 10);
1381: end if;
1382: l_valid_asg_types (1).asg_type := g_asg_type_employed;
1383: p_assignment_id :=
1394: p_location_id => p_location_id,
1395: p_bg_id => p_bg_id
1396: );
1397: if g_debug then
1398: hr_utility.set_location ( 'Leaving:'
1399: || l_proc, 100);
1400: end if;
1401: END get_primary_assignment_info;
1402:
1407: IS
1408: l_proc proc_name ;
1409: l_is_assignment BOOLEAN := FALSE;
1410: BEGIN
1411: g_debug :=hr_utility.debug_enabled;
1412: if g_debug then
1413: l_proc := g_package
1414: || 'is_assignment';
1415: hr_utility.set_location ( 'Entering '
1411: g_debug :=hr_utility.debug_enabled;
1412: if g_debug then
1413: l_proc := g_package
1414: || 'is_assignment';
1415: hr_utility.set_location ( 'Entering '
1416: || l_proc, 10);
1417: end if;
1418: IF (p_tbb_rec.resource_type = hxc_timecard.c_assignment_resource)
1419: THEN
1417: end if;
1418: IF (p_tbb_rec.resource_type = hxc_timecard.c_assignment_resource)
1419: THEN
1420: if g_debug then
1421: hr_utility.set_location (' resource_type = ASSIGNMENT ', 20);
1422: end if;
1423: l_is_assignment := TRUE;
1424: ELSE
1425: l_is_assignment := FALSE;
1425: l_is_assignment := FALSE;
1426: END IF;
1427:
1428: if g_debug then
1429: hr_utility.set_location ( 'Leaving '
1430: || l_proc, 100);
1431: end if;
1432: RETURN l_is_assignment;
1433: END is_assignment;
1437: IS
1438: l_proc proc_name ;
1439: l_is_person BOOLEAN := FALSE;
1440: BEGIN
1441: g_debug :=hr_utility.debug_enabled;
1442: if g_debug then
1443: l_proc := g_package
1444: || 'is_person';
1445: hr_utility.set_location ( 'Entering '
1441: g_debug :=hr_utility.debug_enabled;
1442: if g_debug then
1443: l_proc := g_package
1444: || 'is_person';
1445: hr_utility.set_location ( 'Entering '
1446: || l_proc, 10);
1447: end if;
1448: IF (p_tbb_rec.resource_type = hxc_timecard.c_person_resource)
1449: THEN
1447: end if;
1448: IF (p_tbb_rec.resource_type = hxc_timecard.c_person_resource)
1449: THEN
1450: if g_debug then
1451: hr_utility.set_location (' resource_type = PERSON ', 20);
1452: end if;
1453: l_is_person := TRUE;
1454: ELSE
1455: l_is_person := FALSE;
1455: l_is_person := FALSE;
1456: END IF;
1457:
1458: if g_debug then
1459: hr_utility.set_location ( 'Leaving '
1460: || l_proc, 100);
1461: end if;
1462: RETURN l_is_person;
1463: END is_person;
1473: l_org_id per_all_assignments_f.organization_id%TYPE;
1474: l_location_id per_all_assignments_f.location_id%TYPE;
1475: l_bg_id per_all_assignments_f.business_group_id%TYPE;
1476: BEGIN
1477: g_debug :=hr_utility.debug_enabled;
1478: if g_debug then
1479: l_proc := g_package
1480: || 'assignment_info';
1481: hr_utility.set_location ( 'Entering '
1477: g_debug :=hr_utility.debug_enabled;
1478: if g_debug then
1479: l_proc := g_package
1480: || 'assignment_info';
1481: hr_utility.set_location ( 'Entering '
1482: || l_proc, 10);
1483: end if;
1484: IF (is_assignment (p_tbb_rec))
1485: THEN
1510: NULL; -- unsupported resource_type!
1511: END IF;
1512:
1513: if g_debug then
1514: hr_utility.set_location ( ' OUT p_assignment_id = '
1515: || p_assignment_id,
1516: 20
1517: );
1518: hr_utility.set_location ( ' OUT p_assignment_number = '
1514: hr_utility.set_location ( ' OUT p_assignment_id = '
1515: || p_assignment_id,
1516: 20
1517: );
1518: hr_utility.set_location ( ' OUT p_assignment_number = '
1519: || p_assignment_number,
1520: 30
1521: );
1522: hr_utility.set_location ( 'Leaving '
1518: hr_utility.set_location ( ' OUT p_assignment_number = '
1519: || p_assignment_number,
1520: 30
1521: );
1522: hr_utility.set_location ( 'Leaving '
1523: || l_proc, 100);
1524: end if;
1525: END assignment_info;
1526:
1533: IS
1534: l_proc proc_name ;
1535: l_it_is BOOLEAN;
1536: BEGIN
1537: g_debug :=hr_utility.debug_enabled;
1538: if g_debug then
1539: l_proc := g_package
1540: || 'attribute_is';
1541: hr_utility.set_location ( 'Entering '
1537: g_debug :=hr_utility.debug_enabled;
1538: if g_debug then
1539: l_proc := g_package
1540: || 'attribute_is';
1541: hr_utility.set_location ( 'Entering '
1542: || l_proc, 10);
1543: end if;
1544: IF (p_case_sensitive)
1545: THEN
1545: THEN
1546: IF (p_attr_rec.field_name LIKE p_is_what)
1547: THEN
1548: if g_debug then
1549: hr_utility.set_location ( ' (Case Sensitive) Attribute is '
1550: || p_is_what,
1551: 20
1552: );
1553: end if;
1558: ELSE
1559: IF (UPPER (p_attr_rec.field_name) LIKE UPPER (p_is_what))
1560: THEN
1561: if g_debug then
1562: hr_utility.set_location ( ' (Case In-sensitive) Attribute is '
1563: || p_is_what,
1564: 30
1565: );
1566: end if;
1570: END IF;
1571: END IF;
1572:
1573: if g_debug then
1574: hr_utility.set_location ( 'Leaving '
1575: || l_proc, 100);
1576: end if;
1577: RETURN l_it_is;
1578: END attribute_is;
1584: IS
1585: l_proc proc_name ;
1586: l_element BOOLEAN;
1587: BEGIN
1588: g_debug :=hr_utility.debug_enabled;
1589: if g_debug then
1590: l_proc := g_package
1591: || 'attribute_is_element';
1592: hr_utility.set_location ( 'Entering '
1588: g_debug :=hr_utility.debug_enabled;
1589: if g_debug then
1590: l_proc := g_package
1591: || 'attribute_is_element';
1592: hr_utility.set_location ( 'Entering '
1593: || l_proc, 10);
1594: end if;
1595: l_element :=
1596: attribute_is (p_attr_rec => p_attr_rec,
1596: attribute_is (p_attr_rec => p_attr_rec,
1597: p_is_what => g_element_attribute
1598: );
1599: if g_debug then
1600: hr_utility.set_location ( 'Leaving '
1601: || l_proc, 100);
1602: end if;
1603: RETURN l_element;
1604: END attribute_is_element;
1610: IS
1611: l_proc proc_name ;
1612: l_cost_segment BOOLEAN;
1613: BEGIN
1614: g_debug :=hr_utility.debug_enabled;
1615: if g_debug then
1616: l_proc := g_package
1617: || 'attribute_is_cost_segment';
1618: hr_utility.set_location ( 'Entering '
1614: g_debug :=hr_utility.debug_enabled;
1615: if g_debug then
1616: l_proc := g_package
1617: || 'attribute_is_cost_segment';
1618: hr_utility.set_location ( 'Entering '
1619: || l_proc, 10);
1620: end if;
1621: l_cost_segment :=
1622: attribute_is (p_attr_rec => p_attr_rec,
1623: p_is_what => g_cost_attribute
1624: || g_wildcard
1625: );
1626: if g_debug then
1627: hr_utility.set_location ( 'Leaving '
1628: || l_proc, 100);
1629: end if;
1630: RETURN l_cost_segment;
1631: END attribute_is_cost_segment;
1637: IS
1638: l_proc proc_name ;
1639: l_input_value BOOLEAN;
1640: BEGIN
1641: g_debug :=hr_utility.debug_enabled;
1642: if g_debug then
1643: l_proc := g_package
1644: || 'attribute_is_input_value';
1645: hr_utility.set_location ( 'Entering '
1641: g_debug :=hr_utility.debug_enabled;
1642: if g_debug then
1643: l_proc := g_package
1644: || 'attribute_is_input_value';
1645: hr_utility.set_location ( 'Entering '
1646: || l_proc, 10);
1647: end if;
1648: l_input_value :=
1649: attribute_is (p_attr_rec => p_attr_rec,
1650: p_is_what => g_iv_attribute
1651: || g_wildcard
1652: );
1653: if g_debug then
1654: hr_utility.set_location ( 'Leaving '
1655: || l_proc, 100);
1656: end if;
1657: RETURN l_input_value;
1658: END attribute_is_input_value;
1664: IS
1665: l_proc proc_name ;
1666: l_asg_id BOOLEAN;
1667: BEGIN
1668: g_debug :=hr_utility.debug_enabled;
1669: if g_debug then
1670: l_proc := g_package
1671: || 'attribute_is_asg_id';
1672: hr_utility.set_location ( 'Entering '
1668: g_debug :=hr_utility.debug_enabled;
1669: if g_debug then
1670: l_proc := g_package
1671: || 'attribute_is_asg_id';
1672: hr_utility.set_location ( 'Entering '
1673: || l_proc, 10);
1674: end if;
1675: l_asg_id :=
1676: attribute_is (p_attr_rec => p_attr_rec,
1676: attribute_is (p_attr_rec => p_attr_rec,
1677: p_is_what => g_asg_id_attribute
1678: );
1679: if g_debug then
1680: hr_utility.set_location ( 'Leaving '
1681: || l_proc, 100);
1682: end if;
1683: RETURN l_asg_id;
1684: END attribute_is_asg_id;
1690: IS
1691: l_proc proc_name ;
1692: l_asg_num BOOLEAN;
1693: BEGIN
1694: g_debug :=hr_utility.debug_enabled;
1695: if g_debug then
1696: l_proc := g_package
1697: || 'attribute_is_asg_num';
1698: hr_utility.set_location ( 'Entering '
1694: g_debug :=hr_utility.debug_enabled;
1695: if g_debug then
1696: l_proc := g_package
1697: || 'attribute_is_asg_num';
1698: hr_utility.set_location ( 'Entering '
1699: || l_proc, 10);
1700: end if;
1701: l_asg_num :=
1702: attribute_is (p_attr_rec => p_attr_rec,
1702: attribute_is (p_attr_rec => p_attr_rec,
1703: p_is_what => g_asg_num_attribute
1704: );
1705: if g_debug then
1706: hr_utility.set_location ( 'Leaving '
1707: || l_proc, 100);
1708: end if;
1709: RETURN l_asg_num;
1710: END attribute_is_asg_num;
1719: l_proc proc_name ;
1720: l_char_number VARCHAR2 (30);
1721: l_number PLS_INTEGER;
1722: BEGIN
1723: g_debug :=hr_utility.debug_enabled;
1724: if g_debug then
1725: l_proc := g_package
1726: || 'extract_number';
1727: hr_utility.set_location ( 'Entering '
1723: g_debug :=hr_utility.debug_enabled;
1724: if g_debug then
1725: l_proc := g_package
1726: || 'extract_number';
1727: hr_utility.set_location ( 'Entering '
1728: || l_proc, 10);
1729: end if;
1730: IF (p_case_sensitive)
1731: THEN
1742: l_number := NULL;
1743: END IF;
1744:
1745: if g_debug then
1746: hr_utility.set_location ( ' Returning '
1747: || l_number, 20);
1748: hr_utility.set_location ( 'Leaving '
1749: || l_proc, 30);
1750: end if;
1744:
1745: if g_debug then
1746: hr_utility.set_location ( ' Returning '
1747: || l_number, 20);
1748: hr_utility.set_location ( 'Leaving '
1749: || l_proc, 30);
1750: end if;
1751: RETURN l_number;
1752: END extract_number;
1760:
1761: l_char_cost_segment_number VARCHAR2 (30);
1762: l_cost_segment_number PLS_INTEGER;
1763: BEGIN
1764: g_debug :=hr_utility.debug_enabled;
1765: if g_debug then
1766: l_proc := g_package
1767: || 'cost_segment_number';
1768: hr_utility.set_location ( 'Entering '
1764: g_debug :=hr_utility.debug_enabled;
1765: if g_debug then
1766: l_proc := g_package
1767: || 'cost_segment_number';
1768: hr_utility.set_location ( 'Entering '
1769: || l_proc, 10);
1770: end if;
1771: l_cost_segment_number :=
1772: extract_number (p_extract_from => p_attr_rec.field_name,
1772: extract_number (p_extract_from => p_attr_rec.field_name,
1773: p_sub_string => g_cost_attribute
1774: );
1775: if g_debug then
1776: hr_utility.set_location ( ' Returning '
1777: || l_cost_segment_number, 20);
1778: hr_utility.set_location ( 'Leaving '
1779: || l_proc, 30);
1780: end if;
1774: );
1775: if g_debug then
1776: hr_utility.set_location ( ' Returning '
1777: || l_cost_segment_number, 20);
1778: hr_utility.set_location ( 'Leaving '
1779: || l_proc, 30);
1780: end if;
1781: RETURN l_cost_segment_number;
1782: END cost_segment_number;
1790:
1791: l_char_input_value_number VARCHAR2 (30);
1792: l_input_value_number PLS_INTEGER;
1793: BEGIN
1794: g_debug :=hr_utility.debug_enabled;
1795: if g_debug then
1796: l_proc := g_package
1797: || 'input_value_number';
1798: hr_utility.set_location ( 'Entering '
1794: g_debug :=hr_utility.debug_enabled;
1795: if g_debug then
1796: l_proc := g_package
1797: || 'input_value_number';
1798: hr_utility.set_location ( 'Entering '
1799: || l_proc, 10);
1800: end if;
1801: l_input_value_number :=
1802: extract_number (p_extract_from => p_attr_rec.field_name,
1802: extract_number (p_extract_from => p_attr_rec.field_name,
1803: p_sub_string => g_iv_attribute
1804: );
1805: if g_debug then
1806: hr_utility.set_location ( ' Returning '
1807: || l_input_value_number, 20);
1808: hr_utility.set_location ( 'Leaving '
1809: || l_proc, 30);
1810: end if;
1804: );
1805: if g_debug then
1806: hr_utility.set_location ( ' Returning '
1807: || l_input_value_number, 20);
1808: hr_utility.set_location ( 'Leaving '
1809: || l_proc, 30);
1810: end if;
1811: RETURN l_input_value_number;
1812: END input_value_number;
1819: l_proc proc_name ;
1820: l_char_element_type_id VARCHAR2 (30);
1821: l_element_type_id pay_element_types_f.element_type_id%TYPE;
1822: BEGIN
1823: g_debug :=hr_utility.debug_enabled;
1824: if g_debug then
1825: l_proc := g_package
1826: || 'element_type_id';
1827: hr_utility.set_location ( 'Entering '
1823: g_debug :=hr_utility.debug_enabled;
1824: if g_debug then
1825: l_proc := g_package
1826: || 'element_type_id';
1827: hr_utility.set_location ( 'Entering '
1828: || l_proc, 10);
1829: end if;
1830: l_char_element_type_id :=
1831: REPLACE (UPPER (p_attr_rec.VALUE), c_element_context_prefix);
1837: l_element_type_id := NULL;
1838: END IF;
1839:
1840: if g_debug then
1841: hr_utility.set_location ( ' Returning '
1842: || l_element_type_id, 20);
1843: hr_utility.set_location ( 'Leaving '
1844: || l_proc, 30);
1845: end if;
1839:
1840: if g_debug then
1841: hr_utility.set_location ( ' Returning '
1842: || l_element_type_id, 20);
1843: hr_utility.set_location ( 'Leaving '
1844: || l_proc, 30);
1845: end if;
1846: RETURN l_element_type_id;
1847: END element_type_id;
1854: l_proc proc_name;
1855:
1856: l_element_flex_context_code fnd_descr_flex_column_usages.descriptive_flex_context_code%TYPE;
1857: BEGIN
1858: g_debug :=hr_utility.debug_enabled;
1859: if g_debug then
1860: l_proc := g_package
1861: || 'element_flex_context_code';
1862: hr_utility.set_location ( 'Entering '
1858: g_debug :=hr_utility.debug_enabled;
1859: if g_debug then
1860: l_proc := g_package
1861: || 'element_flex_context_code';
1862: hr_utility.set_location ( 'Entering '
1863: || l_proc, 10);
1864: end if;
1865: IF (p_element_type_id IS NOT NULL)
1866: THEN
1871: l_element_flex_context_code := NULL;
1872: END IF;
1873:
1874: if g_debug then
1875: hr_utility.set_location ( ' Returning '
1876: || l_element_flex_context_code,
1877: 20
1878: );
1879: hr_utility.set_location ( 'Leaving '
1875: hr_utility.set_location ( ' Returning '
1876: || l_element_flex_context_code,
1877: 20
1878: );
1879: hr_utility.set_location ( 'Leaving '
1880: || l_proc, 30);
1881: end if;
1882: RETURN l_element_flex_context_code;
1883: END element_flex_context_code;
1902: AND p_effective_date BETWEEN petf.effective_start_date
1903: AND petf.effective_end_date;
1904: l_element_name pay_element_types_f.element_name%TYPE;
1905: BEGIN
1906: g_debug :=hr_utility.debug_enabled;
1907: if g_debug then
1908: l_proc := g_package
1909: || 'element_name';
1910: hr_utility.set_location ( 'Entering '
1906: g_debug :=hr_utility.debug_enabled;
1907: if g_debug then
1908: l_proc := g_package
1909: || 'element_name';
1910: hr_utility.set_location ( 'Entering '
1911: || l_proc, 10);
1912: end if;
1913: OPEN csr_element_name (p_ele_type_id, p_effective_date);
1914: FETCH csr_element_name INTO l_element_name;
1913: OPEN csr_element_name (p_ele_type_id, p_effective_date);
1914: FETCH csr_element_name INTO l_element_name;
1915: CLOSE csr_element_name;
1916: if g_debug then
1917: hr_utility.set_location ( ' Returning '
1918: || l_element_name, 20);
1919: hr_utility.set_location ( 'Leaving '
1920: || l_proc, 30);
1921: end if;
1915: CLOSE csr_element_name;
1916: if g_debug then
1917: hr_utility.set_location ( ' Returning '
1918: || l_element_name, 20);
1919: hr_utility.set_location ( 'Leaving '
1920: || l_proc, 30);
1921: end if;
1922: RETURN l_element_name;
1923: END element_name;
1930: AS
1931: l_proc proc_name ;
1932: l_hours_worked NUMBER;
1933: BEGIN
1934: g_debug :=hr_utility.debug_enabled;
1935: if g_debug then
1936: l_proc := g_package
1937: || 'hours_worked';
1938: hr_utility.set_location ( 'Entering '
1934: g_debug :=hr_utility.debug_enabled;
1935: if g_debug then
1936: l_proc := g_package
1937: || 'hours_worked';
1938: hr_utility.set_location ( 'Entering '
1939: || l_proc, 10);
1940: end if;
1941: IF (p_detail_tbb.TYPE = hxc_timecard.c_measure_type)
1942: THEN
1949: * 24;
1950: END IF;
1951:
1952: if g_debug then
1953: hr_utility.set_location ( ' Returning '
1954: || l_hours_worked, 20);
1955: hr_utility.set_location ( 'Leaving '
1956: || l_proc, 30);
1957: end if;
1951:
1952: if g_debug then
1953: hr_utility.set_location ( ' Returning '
1954: || l_hours_worked, 20);
1955: hr_utility.set_location ( 'Leaving '
1956: || l_proc, 30);
1957: end if;
1958: RETURN l_hours_worked;
1959: END hours_worked;
1979: ORDER BY piv.display_sequence, piv.NAME;
1980:
1981: l_element_type_ivs input_value_name_table;
1982: BEGIN
1983: g_debug :=hr_utility.debug_enabled;
1984: if g_debug then
1985: l_proc := g_package
1986: || 'element_type_ivs';
1987: hr_utility.set_location ( 'Entering '
1983: g_debug :=hr_utility.debug_enabled;
1984: if g_debug then
1985: l_proc := g_package
1986: || 'element_type_ivs';
1987: hr_utility.set_location ( 'Entering '
1988: || l_proc, 10);
1989: end if;
1990: IF (p_element_type_id = current_element)
1991: THEN
1989: end if;
1990: IF (p_element_type_id = current_element)
1991: THEN
1992: if g_debug then
1993: hr_utility.set_location (' retrieving from cache', 20);
1994: end if;
1995: l_element_type_ivs := g_element_type_ivs;
1996: ELSE
1997: if g_debug then
1994: end if;
1995: l_element_type_ivs := g_element_type_ivs;
1996: ELSE
1997: if g_debug then
1998: hr_utility.set_location (' retrieving from DB', 30);
1999: end if;
2000:
2001: IF (csr_element_type_ivs%ISOPEN)
2002: THEN
2010: set_current_element (p_element_type_id);
2011: END IF;
2012:
2013: if g_debug then
2014: hr_utility.set_location ( ' returning # IVs'
2015: || l_element_type_ivs.COUNT,
2016: 40
2017: );
2018: hr_utility.set_location ( 'Leaving '
2014: hr_utility.set_location ( ' returning # IVs'
2015: || l_element_type_ivs.COUNT,
2016: 40
2017: );
2018: hr_utility.set_location ( 'Leaving '
2019: || l_proc, 100);
2020: end if;
2021: RETURN l_element_type_ivs;
2022: END element_type_ivs;
2045: AND UPPER (mpc.field_name) = UPPER (p_field_name);
2046:
2047: l_ddf_input_value_name fnd_descr_flex_column_usages.end_user_column_name%TYPE;
2048: BEGIN
2049: g_debug :=hr_utility.debug_enabled;
2050: if g_debug then
2051: l_proc := g_package
2052: || 'ddf_input_value_name';
2053: hr_utility.set_location ( 'Entering '
2049: g_debug :=hr_utility.debug_enabled;
2050: if g_debug then
2051: l_proc := g_package
2052: || 'ddf_input_value_name';
2053: hr_utility.set_location ( 'Entering '
2054: || l_proc, 10);
2055: hr_utility.set_location ( ' IN p_element_type_id '
2056: || p_element_type_id,
2057: 20
2051: l_proc := g_package
2052: || 'ddf_input_value_name';
2053: hr_utility.set_location ( 'Entering '
2054: || l_proc, 10);
2055: hr_utility.set_location ( ' IN p_element_type_id '
2056: || p_element_type_id,
2057: 20
2058: );
2059: hr_utility.set_location ( ' IN p_attr_rec.field_name '
2055: hr_utility.set_location ( ' IN p_element_type_id '
2056: || p_element_type_id,
2057: 20
2058: );
2059: hr_utility.set_location ( ' IN p_attr_rec.field_name '
2060: || p_attr_rec.field_name,
2061: 30
2062: );
2063: end if;
2072: );
2073: FETCH csr_ddf_input_value_name INTO l_ddf_input_value_name;
2074: CLOSE csr_ddf_input_value_name;
2075: if g_debug then
2076: hr_utility.set_location ( ' returning '
2077: || l_ddf_input_value_name, 100);
2078: hr_utility.set_location ( 'Leaving '
2079: || l_proc, 110);
2080: end if;
2074: CLOSE csr_ddf_input_value_name;
2075: if g_debug then
2076: hr_utility.set_location ( ' returning '
2077: || l_ddf_input_value_name, 100);
2078: hr_utility.set_location ( 'Leaving '
2079: || l_proc, 110);
2080: end if;
2081: RETURN l_ddf_input_value_name;
2082: END ddf_input_value_name;
2124:
2125: if g_debug then
2126: l_proc := g_package
2127: || 'accrual_plan_added_ivs';
2128: hr_utility.set_location ( 'Entering '
2129: || l_proc, 10);
2130: end if;
2131: IF (csr_accrual_plan_ivs%ISOPEN)
2132: THEN
2139: );
2140: FETCH csr_accrual_plan_ivs BULK COLLECT INTO l_accrual_plan_ivs;
2141: CLOSE csr_accrual_plan_ivs;
2142: if g_debug then
2143: hr_utility.set_location ( 'Leaving '
2144: || l_proc, 100);
2145: end if;
2146: RETURN l_accrual_plan_ivs;
2147: END accr_plan_added_date_ivs;
2173: ORDER BY accrual_plan_id;
2174:
2175: l_accrual_plan_ids accrual_plan_id_table;
2176: BEGIN
2177: g_debug :=hr_utility.debug_enabled;
2178: if g_debug then
2179: l_proc := g_package
2180: || 'accrual_plan_ids';
2181: hr_utility.set_location ( 'Entering '
2177: g_debug :=hr_utility.debug_enabled;
2178: if g_debug then
2179: l_proc := g_package
2180: || 'accrual_plan_ids';
2181: hr_utility.set_location ( 'Entering '
2182: || l_proc, 10);
2183: end if;
2184: IF (csr_accrual_plan_ids%ISOPEN)
2185: THEN
2189: OPEN csr_accrual_plan_ids (p_assignment_id, p_effective_date);
2190: FETCH csr_accrual_plan_ids BULK COLLECT INTO l_accrual_plan_ids;
2191: CLOSE csr_accrual_plan_ids;
2192: if g_debug then
2193: hr_utility.set_location ( 'Leaving '
2194: || l_proc, 100);
2195: end if;
2196: RETURN l_accrual_plan_ids;
2197: END accrual_plan_ids;
2211:
2212: if g_debug then
2213: l_proc := g_package
2214: || 'accrual_plan_exists';
2215: hr_utility.set_location ( 'Entering '
2216: || l_proc, 10);
2217: end if;
2218: l_accrual_plan_ids :=
2219: accrual_plan_ids (p_assignment_id => p_assignment_id,
2228:
2229: IF (l_accrual_plan_ids (l_accrual_plan_index) = p_accrual_plan_id)
2230: THEN
2231: if g_debug then
2232: hr_utility.set_location ( ' Accrual Plan exists'
2233: || l_proc, 20);
2234: end if;
2235: l_accrual_plan_exists := TRUE;
2236: END IF;
2239: l_accrual_plan_ids.NEXT (l_accrual_plan_index);
2240: END LOOP;
2241:
2242: if g_debug then
2243: hr_utility.set_location ( 'Leaving '
2244: || l_proc, 100);
2245: end if;
2246: RETURN l_accrual_plan_exists;
2247: END accrual_plan_exists;
2314: l_ddf_iv_name fnd_descr_flex_column_usages.end_user_column_name%TYPE;
2315: l_iv_found BOOLEAN := FALSE;
2316: l_iv_seq PLS_INTEGER;
2317: BEGIN
2318: g_debug :=hr_utility.debug_enabled;
2319: if g_debug then
2320: l_proc := g_package
2321: || 'convert_attr_to_ivs';
2322: hr_utility.set_location ( 'Entering '
2318: g_debug :=hr_utility.debug_enabled;
2319: if g_debug then
2320: l_proc := g_package
2321: || 'convert_attr_to_ivs';
2322: hr_utility.set_location ( 'Entering '
2323: || l_proc, 10);
2324: end if;
2325: IF (attribute_is_input_value (p_attr_rec))
2326: THEN
2342:
2343: IF (l_iv_table (l_iv_tbl_idx) = l_ddf_iv_name)
2344: THEN
2345: if g_debug then
2346: hr_utility.set_location ( ' iv found, seq = '
2347: || l_iv_tbl_idx,
2348: 20
2349: );
2350: end if;
2366: NULL; -- Error, you should not have called this procedure
2367: END IF;
2368:
2369: if g_debug then
2370: hr_utility.set_location ( 'Leaving '
2371: || l_proc, 100);
2372: end if;
2373: END convert_attr_to_ivs;
2374:
2382:
2383: l_cost_segment_number PLS_INTEGER;
2384: l_value pay_batch_lines.segment1%TYPE;
2385: BEGIN
2386: g_debug :=hr_utility.debug_enabled;
2387: if g_debug then
2388: l_proc := g_package
2389: || 'convert_attr_to_costsegment';
2390: hr_utility.set_location ( 'Entering '
2386: g_debug :=hr_utility.debug_enabled;
2387: if g_debug then
2388: l_proc := g_package
2389: || 'convert_attr_to_costsegment';
2390: hr_utility.set_location ( 'Entering '
2391: || l_proc, 10);
2392: end if;
2393: IF (attribute_is_cost_segment (p_attr_rec))
2394: THEN
2495: NULL; -- you should not have called this procedure
2496: END IF;
2497:
2498: if g_debug then
2499: hr_utility.set_location ( 'Leaving '
2500: || l_proc, 100);
2501: end if;
2502: END convert_attr_to_costsegment;
2503:
2527: l_translated_iv hr_lookups.lookup_code%TYPE;
2528: l_hashed_id PLS_INTEGER;
2529: l_found_in_cache BOOLEAN := FALSE;
2530: BEGIN
2531: g_debug :=hr_utility.debug_enabled;
2532: if g_debug then
2533: l_proc := g_package
2534: || 'translated_iv';
2535: hr_utility.set_location ( 'Entering '
2531: g_debug :=hr_utility.debug_enabled;
2532: if g_debug then
2533: l_proc := g_package
2534: || 'translated_iv';
2535: hr_utility.set_location ( 'Entering '
2536: || l_proc, 10);
2537: end if;
2538: l_hashed_id := hashval (p_iv_name);
2539:
2581: CLOSE csr_translated_info;
2582: END IF;
2583:
2584: if g_debug then
2585: hr_utility.set_location ( ' returning '
2586: || l_translated_iv, 20);
2587: hr_utility.set_location ( 'Leaving '
2588: || l_proc, 100);
2589: end if;
2583:
2584: if g_debug then
2585: hr_utility.set_location ( ' returning '
2586: || l_translated_iv, 20);
2587: hr_utility.set_location ( 'Leaving '
2588: || l_proc, 100);
2589: end if;
2590: RETURN l_translated_iv;
2591: END translated_iv;
2605: l_hours_found BOOLEAN := FALSE;
2606: l_jurisdiction_found BOOLEAN := FALSE;
2607: l_iv_tbl_idx PLS_INTEGER;
2608: BEGIN
2609: g_debug :=hr_utility.debug_enabled;
2610: if g_debug then
2611: l_proc := g_package
2612: || 'hours_iv_position';
2613: hr_utility.set_location ( 'Entering '
2609: g_debug :=hr_utility.debug_enabled;
2610: if g_debug then
2611: l_proc := g_package
2612: || 'hours_iv_position';
2613: hr_utility.set_location ( 'Entering '
2614: || l_proc, 10);
2615: end if;
2616: p_hours_iv_position := NULL;
2617: p_jurisdiction_iv_position := NULL;
2630: EXIT find_hours_iv WHEN ( (NOT l_iv_table.EXISTS (l_iv_tbl_idx))
2631: OR (l_hours_found)
2632: );
2633: if g_debug then
2634: hr_utility.trace('in find_hours_iv');
2635: end if;
2636: IF (translated_iv (p_iv_name => l_iv_table (l_iv_tbl_idx),
2637: p_date_active => p_effective_date
2638: ) = g_hours_iv
2638: ) = g_hours_iv
2639: )
2640: THEN
2641: if g_debug then
2642: hr_utility.set_location ( ' "HOURS" IV found, seq = '
2643: || l_iv_tbl_idx,
2644: 20
2645: );
2646: end if;
2658: EXIT find_jurisdiction_iv WHEN ( (NOT l_iv_table.EXISTS (l_iv_tbl_idx))
2659: OR (l_jurisdiction_found)
2660: );
2661: if g_debug then
2662: hr_utility.trace('find_jurisdiction_iv');
2663: end if;
2664: IF (translated_iv (p_iv_name => l_iv_table (l_iv_tbl_idx),
2665: p_date_active => p_effective_date
2666: ) = g_jurisdiction_iv
2666: ) = g_jurisdiction_iv
2667: )
2668: THEN
2669: if g_debug then
2670: hr_utility.set_location ( ' "HOURS" IV found, seq = '
2671: || l_iv_tbl_idx,
2672: 20
2673: );
2674: end if;
2686: EXIT find_hours_juris_iv WHEN ( (NOT l_iv_table.EXISTS (l_iv_tbl_idx))
2687: OR (l_hours_found AND l_jurisdiction_found)
2688: );
2689: if g_debug then
2690: hr_utility.trace('find_hours_juris_iv');
2691: end if;
2692: IF (translated_iv (p_iv_name => l_iv_table (l_iv_tbl_idx),
2693: p_date_active => p_effective_date
2694: ) = g_hours_iv
2694: ) = g_hours_iv
2695: )
2696: THEN
2697: if g_debug then
2698: hr_utility.set_location ( ' "HOURS" IV found, seq = '
2699: || l_iv_tbl_idx,
2700: 20
2701: );
2702: end if;
2709: ) = g_jurisdiction_iv
2710: )
2711: THEN
2712: if g_debug then
2713: hr_utility.set_location ( ' "HOURS" IV found, seq = '
2714: || l_iv_tbl_idx,
2715: 20
2716: );
2717: end if;
2724: END IF;
2725:
2726:
2727: if g_debug then
2728: -- hr_utility.set_location ( ' returning '
2729: -- || p_jurisdiction_iv_position, 20);
2730: hr_utility.set_location ( 'Leaving '
2731: || l_proc, 100);
2732: end if;
2726:
2727: if g_debug then
2728: -- hr_utility.set_location ( ' returning '
2729: -- || p_jurisdiction_iv_position, 20);
2730: hr_utility.set_location ( 'Leaving '
2731: || l_proc, 100);
2732: end if;
2733: END hours_iv_position;
2734:
2746: := NVL (p_start_position, p_att_table.FIRST);
2747: l_element_id_found BOOLEAN := FALSE;
2748: l_element_type_id pay_element_types_f.element_type_id%TYPE := NULL;
2749: BEGIN
2750: g_debug :=hr_utility.debug_enabled;
2751: if g_debug then
2752: l_proc := g_package
2753: || 'find_element_id_in_attr_tbl';
2754: hr_utility.set_location ( 'Entering '
2750: g_debug :=hr_utility.debug_enabled;
2751: if g_debug then
2752: l_proc := g_package
2753: || 'find_element_id_in_attr_tbl';
2754: hr_utility.set_location ( 'Entering '
2755: || l_proc, 10);
2756: end if;
2757: LOOP
2758: EXIT WHEN ( NOT p_att_table.EXISTS (l_att_idx)
2769: l_att_idx := p_att_table.NEXT (l_att_idx);
2770: END LOOP;
2771:
2772: if g_debug then
2773: hr_utility.set_location ( ' returning '
2774: || l_element_type_id, 30);
2775: hr_utility.set_location ( 'Leaving '
2776: || l_proc, 100);
2777: end if;
2771:
2772: if g_debug then
2773: hr_utility.set_location ( ' returning '
2774: || l_element_type_id, 30);
2775: hr_utility.set_location ( 'Leaving '
2776: || l_proc, 100);
2777: end if;
2778: RETURN l_element_type_id;
2779: END find_element_id_in_attr_tbl;
2820:
2821: if g_debug then
2822: l_proc := g_package
2823: || 'asg_id';
2824: hr_utility.set_location ( 'Entering '
2825: || l_proc, 10);
2826: hr_utility.set_location ( 'p_bg_id = '
2827: || p_bg_id, 20);
2828: hr_utility.set_location ( 'p_effective_date = '
2822: l_proc := g_package
2823: || 'asg_id';
2824: hr_utility.set_location ( 'Entering '
2825: || l_proc, 10);
2826: hr_utility.set_location ( 'p_bg_id = '
2827: || p_bg_id, 20);
2828: hr_utility.set_location ( 'p_effective_date = '
2829: || p_effective_date, 30);
2830: hr_utility.set_location ( 'p_bee_rec.pay_batch_line.assignment_number = '
2824: hr_utility.set_location ( 'Entering '
2825: || l_proc, 10);
2826: hr_utility.set_location ( 'p_bg_id = '
2827: || p_bg_id, 20);
2828: hr_utility.set_location ( 'p_effective_date = '
2829: || p_effective_date, 30);
2830: hr_utility.set_location ( 'p_bee_rec.pay_batch_line.assignment_number = '
2831: || p_bee_rec.pay_batch_line.assignment_number, 40);
2832: end if;
2826: hr_utility.set_location ( 'p_bg_id = '
2827: || p_bg_id, 20);
2828: hr_utility.set_location ( 'p_effective_date = '
2829: || p_effective_date, 30);
2830: hr_utility.set_location ( 'p_bee_rec.pay_batch_line.assignment_number = '
2831: || p_bee_rec.pay_batch_line.assignment_number, 40);
2832: end if;
2833: OPEN csr_asg_id (p_bg_id,
2834: p_effective_date,
2836: );
2837: FETCH csr_asg_id INTO l_asg_id;
2838: CLOSE csr_asg_id;
2839: if g_debug then
2840: hr_utility.set_location ( ' Returning Asg ID: '
2841: || l_asg_id, 20);
2842: hr_utility.set_location ( 'Leaving '
2843: || l_proc, 100);
2844: end if;
2838: CLOSE csr_asg_id;
2839: if g_debug then
2840: hr_utility.set_location ( ' Returning Asg ID: '
2841: || l_asg_id, 20);
2842: hr_utility.set_location ( 'Leaving '
2843: || l_proc, 100);
2844: end if;
2845: RETURN l_asg_id;
2846: END asg_id;
2865:
2866: if g_debug then
2867: l_proc := g_package
2868: || 'asg_num';
2869: hr_utility.set_location ( 'Entering '
2870: || l_proc, 10);
2871: end if;
2872: OPEN csr_asg_num (p_effective_date,
2873: p_bee_rec.pay_batch_line.assignment_id
2874: );
2875: FETCH csr_asg_num INTO l_asg_num;
2876: CLOSE csr_asg_num;
2877: if g_debug then
2878: hr_utility.set_location ( ' Returning Asg Num: '
2879: || l_asg_num, 20);
2880: hr_utility.set_location ( 'Leaving '
2881: || l_proc, 100);
2882: end if;
2876: CLOSE csr_asg_num;
2877: if g_debug then
2878: hr_utility.set_location ( ' Returning Asg Num: '
2879: || l_asg_num, 20);
2880: hr_utility.set_location ( 'Leaving '
2881: || l_proc, 100);
2882: end if;
2883: RETURN l_asg_num;
2884: END asg_num;
2882: end if;
2883: RETURN l_asg_num;
2884: END asg_num;
2885: BEGIN
2886: g_debug :=hr_utility.debug_enabled;
2887: if g_debug then
2888: l_proc := g_package
2889: || 'find_other_in_attr_tbl';
2890: hr_utility.set_location ( 'Entering '
2886: g_debug :=hr_utility.debug_enabled;
2887: if g_debug then
2888: l_proc := g_package
2889: || 'find_other_in_attr_tbl';
2890: hr_utility.set_location ( 'Entering '
2891: || l_proc, 10);
2892: end if;
2893: LOOP
2894: EXIT WHEN ( NOT p_att_table.EXISTS (l_att_idx)
2938: END LOOP;
2939:
2940: p_ending_position := l_att_idx;
2941: if g_debug then
2942: hr_utility.set_location ( ' returning p_ending_position '
2943: || p_ending_position,
2944: 20
2945: );
2946: hr_utility.set_location ( 'Leaving '
2942: hr_utility.set_location ( ' returning p_ending_position '
2943: || p_ending_position,
2944: 20
2945: );
2946: hr_utility.set_location ( 'Leaving '
2947: || l_proc, 100);
2948: end if;
2949: END find_other_in_attr_tbl;
2950:
2958: l_proc proc_name ;
2959: l_att_idx PLS_INTEGER
2960: := NVL (p_start_position, p_att_table.FIRST);
2961: BEGIN
2962: g_debug :=hr_utility.debug_enabled;
2963: if g_debug then
2964: l_proc := g_package
2965: || 'skip_attributes';
2966: hr_utility.set_location ( 'Entering '
2962: g_debug :=hr_utility.debug_enabled;
2963: if g_debug then
2964: l_proc := g_package
2965: || 'skip_attributes';
2966: hr_utility.set_location ( 'Entering '
2967: || l_proc, 10);
2968: end if;
2969: LOOP
2970: EXIT WHEN ( NOT p_att_table.EXISTS (l_att_idx)
2973: l_att_idx := p_att_table.NEXT (l_att_idx);
2974: END LOOP;
2975:
2976: if g_debug then
2977: hr_utility.set_location ( ' returning ending position '
2978: || l_att_idx,
2979: 20
2980: );
2981: hr_utility.set_location ( 'Leaving '
2977: hr_utility.set_location ( ' returning ending position '
2978: || l_att_idx,
2979: 20
2980: );
2981: hr_utility.set_location ( 'Leaving '
2982: || l_proc, 100);
2983: end if;
2984: RETURN l_att_idx;
2985: END skip_attributes;
2996: l_att_idx PLS_INTEGER := p_start_position;
2997: l_asg_id_found BOOLEAN := FALSE;
2998: l_asg_num_found BOOLEAN := FALSE;
2999: BEGIN
3000: g_debug :=hr_utility.debug_enabled;
3001: if g_debug then
3002: hr_utility.set_location ( 'Entering '
3003: || l_proc, 10);
3004: end if;
2998: l_asg_num_found BOOLEAN := FALSE;
2999: BEGIN
3000: g_debug :=hr_utility.debug_enabled;
3001: if g_debug then
3002: hr_utility.set_location ( 'Entering '
3003: || l_proc, 10);
3004: end if;
3005: LOOP
3006: EXIT WHEN ( NOT p_att_table.EXISTS (l_att_idx)
3023: l_att_idx := p_att_table.NEXT (l_att_idx);
3024: END LOOP;
3025:
3026: if g_debug then
3027: hr_utility.set_location ( 'Leaving '
3028: || l_proc, 100);
3029: end if;
3030: END find_asg_in_attr_tbl;
3031: */
3037: l_proc proc_name;
3038:
3039: l_cost_allocation_structure_id per_business_groups_perf.cost_allocation_structure%TYPE;
3040: BEGIN
3041: g_debug :=hr_utility.debug_enabled;
3042: if g_debug then
3043: l_proc := g_package
3044: || 'cost_flex_structure_id';
3045: hr_utility.set_location ( 'Entering '
3041: g_debug :=hr_utility.debug_enabled;
3042: if g_debug then
3043: l_proc := g_package
3044: || 'cost_flex_structure_id';
3045: hr_utility.set_location ( 'Entering '
3046: || l_proc, 10);
3047: end if;
3048: pay_paywsqee_pkg.populate_context_items (p_business_group_id,
3049: l_cost_allocation_structure_id
3048: pay_paywsqee_pkg.populate_context_items (p_business_group_id,
3049: l_cost_allocation_structure_id
3050: );
3051: if g_debug then
3052: hr_utility.set_location ( ' Returning '
3053: || l_cost_allocation_structure_id,
3054: 20
3055: );
3056: hr_utility.set_location ( 'Leaving '
3052: hr_utility.set_location ( ' Returning '
3053: || l_cost_allocation_structure_id,
3054: 20
3055: );
3056: hr_utility.set_location ( 'Leaving '
3057: || l_proc, 30);
3058: end if;
3059: RETURN l_cost_allocation_structure_id;
3060: END cost_flex_structure_id;
3092:
3093: l_costflex_value per_business_groups_perf.cost_allocation_structure%TYPE;
3094: l_found_in_cache BOOLEAN := FALSE;
3095: BEGIN
3096: g_debug :=hr_utility.debug_enabled;
3097: if g_debug then
3098: l_proc := g_package
3099: || 'costflex_value';
3100: hr_utility.set_location ( 'Entering '
3096: g_debug :=hr_utility.debug_enabled;
3097: if g_debug then
3098: l_proc := g_package
3099: || 'costflex_value';
3100: hr_utility.set_location ( 'Entering '
3101: || l_proc, 10);
3102: end if;
3103: IF (isnumber (p_flex_value_id))
3104: THEN
3157: l_costflex_value := p_flex_value_id;
3158: END IF;
3159:
3160: if g_debug then
3161: hr_utility.set_location ( ' returning l_costflex_value = '
3162: || l_costflex_value,
3163: 20
3164: );
3165: hr_utility.set_location ( 'Leaving '
3161: hr_utility.set_location ( ' returning l_costflex_value = '
3162: || l_costflex_value,
3163: 20
3164: );
3165: hr_utility.set_location ( 'Leaving '
3166: || l_proc, 30);
3167: end if;
3168: RETURN l_costflex_value;
3169: END costflex_value;
3186:
3187: l_costflex_concat_segments pay_cost_allocation_keyflex.concatenated_segments%TYPE;
3188: l_found_in_cache BOOLEAN := FALSE;
3189: BEGIN
3190: g_debug :=hr_utility.debug_enabled;
3191: if g_debug then
3192: l_proc := g_package
3193: || 'costflex_concat_segments';
3194: hr_utility.set_location ( 'Entering '
3190: g_debug :=hr_utility.debug_enabled;
3191: if g_debug then
3192: l_proc := g_package
3193: || 'costflex_concat_segments';
3194: hr_utility.set_location ( 'Entering '
3195: || l_proc, 10);
3196: end if;
3197: IF ( (caching)
3198: AND (g_concatenated_segments.EXISTS (p_cost_allocation_keyflex_id))
3222: CLOSE csr_costflex_concat_segments;
3223: END IF;
3224:
3225: if g_debug then
3226: hr_utility.set_location ( ' returning '
3227: || l_costflex_concat_segments,
3228: 20
3229: );
3230: hr_utility.set_location ( 'Leaving '
3226: hr_utility.set_location ( ' returning '
3227: || l_costflex_concat_segments,
3228: 20
3229: );
3230: hr_utility.set_location ( 'Leaving '
3231: || l_proc, 30);
3232: end if;
3233: RETURN l_costflex_concat_segments;
3234: END costflex_concat_segments;
3270: l_proc proc_name;
3271:
3272: l_cost_segments_all_null BOOLEAN := FALSE;
3273: BEGIN
3274: g_debug :=hr_utility.debug_enabled;
3275: if g_debug then
3276: l_proc := g_package
3277: || 'cost_segments_all_null';
3278: hr_utility.set_location ( 'Entering '
3274: g_debug :=hr_utility.debug_enabled;
3275: if g_debug then
3276: l_proc := g_package
3277: || 'cost_segments_all_null';
3278: hr_utility.set_location ( 'Entering '
3279: || l_proc, 10);
3280: end if;
3281: IF ( (p_segment_1 IS NULL)
3282: AND (p_segment_2 IS NULL)
3315: l_cost_segments_all_null := FALSE;
3316: END IF;
3317:
3318: if g_debug then
3319: hr_utility.set_location ( 'Leaving '
3320: || l_proc, 100);
3321: end if;
3322: RETURN (l_cost_segments_all_null);
3323: END cost_segments_all_null;
3328: l_proc proc_name;
3329:
3330: l_cost_segments_all_null BOOLEAN := FALSE;
3331: BEGIN
3332: g_debug :=hr_utility.debug_enabled;
3333: if g_debug then
3334: l_proc := g_package
3335: || 'cost_segments_all_null';
3336: hr_utility.set_location ( 'Entering '
3332: g_debug :=hr_utility.debug_enabled;
3333: if g_debug then
3334: l_proc := g_package
3335: || 'cost_segments_all_null';
3336: hr_utility.set_location ( 'Entering '
3337: || l_proc, 10);
3338: end if;
3339: l_cost_segments_all_null :=
3340: cost_segments_all_null (p_segment_1 => p_bee_rec.pay_batch_line.segment1,
3368: p_segment_29 => p_bee_rec.pay_batch_line.segment29,
3369: p_segment_30 => p_bee_rec.pay_batch_line.segment30
3370: );
3371: if g_debug then
3372: hr_utility.set_location ( 'Leaving '
3373: || l_proc, 100);
3374: end if;
3375: RETURN (l_cost_segments_all_null);
3376: END cost_segments_all_null;
3413: l_proc proc_name;
3414:
3415: l_cost_allocation_kff_id pay_cost_allocation_keyflex.cost_allocation_keyflex_id%TYPE;
3416: BEGIN
3417: g_debug :=hr_utility.debug_enabled;
3418: if g_debug then
3419: l_proc := g_package
3420: || 'cost_allocation_kff_id';
3421: hr_utility.set_location ( 'Entering '
3417: g_debug :=hr_utility.debug_enabled;
3418: if g_debug then
3419: l_proc := g_package
3420: || 'cost_allocation_kff_id';
3421: hr_utility.set_location ( 'Entering '
3422: || l_proc, 10);
3423: end if;
3424: IF (NOT cost_segments_all_null (p_segment_1 => p_segment_1,
3425: p_segment_2 => p_segment_2,
3497: l_cost_allocation_kff_id := NULL;
3498: END IF;
3499:
3500: if g_debug then
3501: hr_utility.set_location ( ' returning '
3502: || l_cost_allocation_kff_id,
3503: 20
3504: );
3505: hr_utility.set_location ( 'Leaving '
3501: hr_utility.set_location ( ' returning '
3502: || l_cost_allocation_kff_id,
3503: 20
3504: );
3505: hr_utility.set_location ( 'Leaving '
3506: || l_proc, 100);
3507: end if;
3508: RETURN (l_cost_allocation_kff_id);
3509: END cost_allocation_kff_id;
3517: l_proc proc_name;
3518:
3519: l_cost_allocation_kff_id pay_cost_allocation_keyflex.cost_allocation_keyflex_id%TYPE;
3520: BEGIN
3521: g_debug :=hr_utility.debug_enabled;
3522: if g_debug then
3523: l_proc := g_package
3524: || 'cost_allocation_kff_id (p_bee_rec)';
3525: hr_utility.set_location ( 'Entering '
3521: g_debug :=hr_utility.debug_enabled;
3522: if g_debug then
3523: l_proc := g_package
3524: || 'cost_allocation_kff_id (p_bee_rec)';
3525: hr_utility.set_location ( 'Entering '
3526: || l_proc, 10);
3527: end if;
3528: l_cost_allocation_kff_id :=
3529: cost_allocation_kff_id (p_business_group_id => p_business_group_id,
3558: p_segment_29 => p_bee_rec.pay_batch_line.segment29,
3559: p_segment_30 => p_bee_rec.pay_batch_line.segment30
3560: );
3561: if g_debug then
3562: hr_utility.set_location ( ' returning '
3563: || l_cost_allocation_kff_id,
3564: 20
3565: );
3566: hr_utility.set_location ( 'Leaving '
3562: hr_utility.set_location ( ' returning '
3563: || l_cost_allocation_kff_id,
3564: 20
3565: );
3566: hr_utility.set_location ( 'Leaving '
3567: || l_proc, 100);
3568: end if;
3569: RETURN (l_cost_allocation_kff_id);
3570: END cost_allocation_kff_id;
3574: IS
3575: l_proc proc_name ;
3576: l_hours_factor NUMBER (1);
3577: BEGIN
3578: g_debug :=hr_utility.debug_enabled;
3579: if g_debug then
3580: l_proc := g_package
3581: || 'hours_factor';
3582: hr_utility.set_location ( 'Entering '
3578: g_debug :=hr_utility.debug_enabled;
3579: if g_debug then
3580: l_proc := g_package
3581: || 'hours_factor';
3582: hr_utility.set_location ( 'Entering '
3583: || l_proc, 10);
3584: end if;
3585: IF (p_is_old)
3586: THEN
3589: l_hours_factor := 1;
3590: END IF;
3591:
3592: if g_debug then
3593: hr_utility.set_location ( ' Returning '
3594: || l_hours_factor, 20);
3595: hr_utility.set_location ( 'Leaving '
3596: || l_proc, 30);
3597: end if;
3591:
3592: if g_debug then
3593: hr_utility.set_location ( ' Returning '
3594: || l_hours_factor, 20);
3595: hr_utility.set_location ( 'Leaving '
3596: || l_proc, 30);
3597: end if;
3598: RETURN l_hours_factor;
3599: END hours_factor;
3609: || 'write_pipe_batch_info';
3610: l_send_message_status INTEGER;
3611: l_batch_info_idx PLS_INTEGER;
3612: BEGIN
3613: g_debug :=hr_utility.debug_enabled;
3614: if g_debug then
3615: hr_utility.set_location ( 'Entering '
3616: || l_proc, 10);
3617: end if;
3611: l_batch_info_idx PLS_INTEGER;
3612: BEGIN
3613: g_debug :=hr_utility.debug_enabled;
3614: if g_debug then
3615: hr_utility.set_location ( 'Entering '
3616: || l_proc, 10);
3617: end if;
3618: l_batch_info_idx := p_batch_info.FIRST;
3619: DBMS_PIPE.reset_buffer;
3641: NULL; -- RAISE ERROR
3642: END IF;
3643:
3644: if g_debug then
3645: hr_utility.set_location ( 'Leaving '
3646: || l_proc, 100);
3647: end if;
3648: END write_pipe_batch_info;
3649:
3657: l_batch_info_idx PLS_INTEGER := 1;
3658: e_pipe_empty EXCEPTION;
3659: PRAGMA EXCEPTION_INIT (e_pipe_empty, -6556);
3660: BEGIN
3661: g_debug :=hr_utility.debug_enabled;
3662: if g_debug then
3663: hr_utility.set_location ( 'Entering '
3664: || l_proc, 10);
3665: end if;
3659: PRAGMA EXCEPTION_INIT (e_pipe_empty, -6556);
3660: BEGIN
3661: g_debug :=hr_utility.debug_enabled;
3662: if g_debug then
3663: hr_utility.set_location ( 'Entering '
3664: || l_proc, 10);
3665: end if;
3666: l_recieve_message_status :=
3667: DBMS_PIPE.receive_message (
3684: EXCEPTION
3685: WHEN e_pipe_empty
3686: THEN
3687: if g_debug then
3688: hr_utility.set_location (
3689: ' returning '
3690: || l_batch_info.COUNT
3691: || ' batch_info lines',
3692: 20
3690: || l_batch_info.COUNT
3691: || ' batch_info lines',
3692: 20
3693: );
3694: hr_utility.set_location ( 'Leaving '
3695: || l_proc, 100);
3696: end if;
3697: DBMS_PIPE.reset_buffer;
3698: DBMS_PIPE.PURGE (hxt_interface_utilities.g_total_lines_pipe_name);
3728: l_batch_info_idx PLS_INTEGER;
3729: l_batch_ref_found BOOLEAN := FALSE;
3730: l_free_batch_suffix NUMBER;
3731: BEGIN
3732: g_debug :=hr_utility.debug_enabled;
3733: if g_debug then
3734: l_proc := g_package
3735: || 'free_batch_suffix';
3736: hr_utility.set_location ( 'Entering '
3732: g_debug :=hr_utility.debug_enabled;
3733: if g_debug then
3734: l_proc := g_package
3735: || 'free_batch_suffix';
3736: hr_utility.set_location ( 'Entering '
3737: || l_proc, 10);
3738: end if;
3739: l_batch_info_idx := g_batch_info.FIRST;
3740:
3769:
3770: IF (NOT l_batch_ref_found)
3771: THEN
3772: if g_debug then
3773: hr_utility.set_location (' new batch reference', 20);
3774: end if;
3775: l_batch_info_idx := NVL (g_batch_info.LAST, 0)
3776: + 1;
3777: g_batch_info (l_batch_info_idx).batch_ref := p_batch_reference;
3783: + 1;
3784: END IF;
3785:
3786: if g_debug then
3787: hr_utility.set_location ( 'Leaving '
3788: || l_proc, 100);
3789: end if;
3790: RETURN l_free_batch_suffix;
3791: END free_batch_suffix;
3805: AS
3806: l_proc proc_name ;
3807: l_is_changed BOOLEAN := FALSE;
3808: BEGIN
3809: g_debug :=hr_utility.debug_enabled;
3810: if g_debug then
3811: l_proc := g_package
3812: || 'is_changed';
3813: hr_utility.set_location ( 'Entering '
3809: g_debug :=hr_utility.debug_enabled;
3810: if g_debug then
3811: l_proc := g_package
3812: || 'is_changed';
3813: hr_utility.set_location ( 'Entering '
3814: || l_proc, 10);
3815: end if;
3816: IF (UPPER (p_tbb_rec.changed) = g_tbb_changed)
3817: THEN
3816: IF (UPPER (p_tbb_rec.changed) = g_tbb_changed)
3817: THEN
3818: l_is_changed := TRUE;
3819: if g_debug then
3820: hr_utility.set_location ( ' TBB '
3821: || p_tbb_rec.bb_id
3822: || ' changed',
3823: 20
3824: );
3827: l_is_changed := FALSE;
3828: END IF;
3829:
3830: if g_debug then
3831: hr_utility.set_location ( 'Leaving '
3832: || l_proc, 40);
3833: end if;
3834: RETURN l_is_changed;
3835: END is_changed;
3841: AS
3842: l_proc proc_name ;
3843: l_is_deleted BOOLEAN := FALSE;
3844: BEGIN
3845: g_debug :=hr_utility.debug_enabled;
3846: if g_debug then
3847: l_proc := g_package
3848: || 'is_deleted';
3849: hr_utility.set_location ( 'Entering '
3845: g_debug :=hr_utility.debug_enabled;
3846: if g_debug then
3847: l_proc := g_package
3848: || 'is_deleted';
3849: hr_utility.set_location ( 'Entering '
3850: || l_proc, 10);
3851: end if;
3852: IF (UPPER (p_tbb_rec.deleted) = g_tbb_deleted)
3853: THEN
3852: IF (UPPER (p_tbb_rec.deleted) = g_tbb_deleted)
3853: THEN
3854: l_is_deleted := TRUE;
3855: if g_debug then
3856: hr_utility.set_location ( ' TBB '
3857: || p_tbb_rec.bb_id
3858: || ' deleted',
3859: 20
3860: );
3863: l_is_deleted := FALSE;
3864: END IF;
3865:
3866: if g_debug then
3867: hr_utility.set_location ( 'Leaving '
3868: || l_proc, 40);
3869: end if;
3870: RETURN l_is_deleted;
3871: END is_deleted;
3878: AS
3879: l_proc proc_name ;
3880: l_is_in_sync BOOLEAN := FALSE;
3881: BEGIN
3882: g_debug :=hr_utility.debug_enabled;
3883: if g_debug then
3884: l_proc := g_package
3885: || 'is_in_sync';
3886: hr_utility.set_location ( 'Entering '
3882: g_debug :=hr_utility.debug_enabled;
3883: if g_debug then
3884: l_proc := g_package
3885: || 'is_in_sync';
3886: hr_utility.set_location ( 'Entering '
3887: || l_proc, 10);
3888: end if;
3889: IF (p_check_tbb_id = p_against_tbb_id)
3890: THEN
3891: l_is_in_sync := TRUE;
3892: ELSE
3893: l_is_in_sync := FALSE;
3894: if g_debug then
3895: hr_utility.set_location ( p_check_tbb_id
3896: || ' is NOT in sync with TBB '
3897: || p_against_tbb_id,
3898: 30
3899: );
3900: end if;
3901: END IF;
3902:
3903: if g_debug then
3904: hr_utility.set_location ( 'Leaving '
3905: || l_proc, 40);
3906: end if;
3907: RETURN l_is_in_sync;
3908: END is_in_sync;
3926: l_city_name pay_us_city_names.city_name%TYPE;
3927: l_zip_code pay_us_zip_codes.zip_start%TYPE;
3928:
3929: BEGIN
3930: g_debug :=hr_utility.debug_enabled;
3931: if g_debug then
3932: l_proc := g_package
3933: || 'get_geocode_from_attr_tab';
3934: hr_utility.set_location ( 'Entering '
3930: g_debug :=hr_utility.debug_enabled;
3931: if g_debug then
3932: l_proc := g_package
3933: || 'get_geocode_from_attr_tab';
3934: hr_utility.set_location ( 'Entering '
3935: || l_proc, 10);
3936: end if;
3937: LOOP
3938: EXIT WHEN ( NOT p_att_table.EXISTS (l_att_idx)