[Home] [Help]
1: PACKAGE BODY hxt_interface_utilities AS
2: /* $Header: hxtinterfaceutil.pkb 120.8.12020000.3 2013/03/26 14:12:55 asrajago ship $ */
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:
2547: l_translated_iv hr_lookups.lookup_code%TYPE;
2548: l_hashed_id PLS_INTEGER;
2549: l_found_in_cache BOOLEAN := FALSE;
2550: BEGIN
2551: g_debug :=hr_utility.debug_enabled;
2552:
2553: -- Bug 13705204
2554: IF g_debug
2555: THEN
2552:
2553: -- Bug 13705204
2554: IF g_debug
2555: THEN
2556: hr_utility.trace('Entering Translated _iv for '||p_iv_name);
2557: hr_utility.trace('p_date_active '||p_date_active);
2558: END IF;
2559: if g_debug then
2560: l_proc := g_package
2553: -- Bug 13705204
2554: IF g_debug
2555: THEN
2556: hr_utility.trace('Entering Translated _iv for '||p_iv_name);
2557: hr_utility.trace('p_date_active '||p_date_active);
2558: END IF;
2559: if g_debug then
2560: l_proc := g_package
2561: || 'translated_iv';
2558: END IF;
2559: if g_debug then
2560: l_proc := g_package
2561: || 'translated_iv';
2562: hr_utility.set_location ( 'Entering '
2563: || l_proc, 10);
2564: end if;
2565: l_hashed_id := hashval (p_iv_name);
2566:
2567: IF ((caching) AND (g_iv_translations.EXISTS (l_hashed_id)))
2568: THEN
2569: IF g_debug
2570: THEN
2571: hr_utility.trace('Checking from cache ');
2572: END IF;
2573:
2574: IF (p_date_active
2575: BETWEEN NVL (g_iv_translations (l_hashed_id).start_date_active,
2582: THEN
2583: l_translated_iv := g_iv_translations (l_hashed_id).lookup_code;
2584: IF g_debug
2585: THEN
2586: hr_utility.trace(' Got the value from cache '||l_translated_iv);
2587: END IF;
2588: l_found_in_cache := TRUE;
2589:
2590: ELSE
2592: -- Control is here means that the lookup code did not exist in the Table,
2593: -- or is not active. But we still know that we checked the cache, so setting the flag right.
2594: IF g_debug
2595: THEN
2596: hr_utility.trace(' Cache exists, but value not matching ');
2597: END IF;
2598: l_found_in_cache := TRUE;
2599:
2600: END IF;
2619:
2620: -- Bug 13705204
2621: IF g_debug
2622: THEN
2623: hr_utility.trace('Storing Value cache ');
2624: END IF;
2625: g_iv_translations (l_hashed_id).lookup_code :=
2626: l_translated_info.lookup_code;
2627: g_iv_translations (l_hashed_id).start_date_active :=
2636: -- Marking an empty cache here. Note the start and stop times with end of time and start of time
2637: -- respectively. This so that the above condition if p_date b/w start and end never turns true.
2638: IF g_debug
2639: THEN
2640: hr_utility.trace('Storing empty cache ');
2641: END IF;
2642:
2643: g_iv_translations (l_hashed_id).lookup_code :=
2644: NULL;
2652: CLOSE csr_translated_info;
2653: END IF;
2654:
2655: if g_debug then
2656: hr_utility.set_location ( ' returning '
2657: || l_translated_iv, 20);
2658: hr_utility.set_location ( 'Leaving '
2659: || l_proc, 100);
2660: end if;
2654:
2655: if g_debug then
2656: hr_utility.set_location ( ' returning '
2657: || l_translated_iv, 20);
2658: hr_utility.set_location ( 'Leaving '
2659: || l_proc, 100);
2660: end if;
2661: RETURN l_translated_iv;
2662: END translated_iv;
2676: l_hours_found BOOLEAN := FALSE;
2677: l_jurisdiction_found BOOLEAN := FALSE;
2678: l_iv_tbl_idx PLS_INTEGER;
2679: BEGIN
2680: g_debug :=hr_utility.debug_enabled;
2681: if g_debug then
2682: l_proc := g_package
2683: || 'hours_iv_position';
2684: hr_utility.set_location ( 'Entering '
2680: g_debug :=hr_utility.debug_enabled;
2681: if g_debug then
2682: l_proc := g_package
2683: || 'hours_iv_position';
2684: hr_utility.set_location ( 'Entering '
2685: || l_proc, 10);
2686: end if;
2687: p_hours_iv_position := NULL;
2688: p_jurisdiction_iv_position := NULL;
2701: EXIT find_hours_iv WHEN ( (NOT l_iv_table.EXISTS (l_iv_tbl_idx))
2702: OR (l_hours_found)
2703: );
2704: if g_debug then
2705: hr_utility.trace('in find_hours_iv');
2706: end if;
2707: IF (translated_iv (p_iv_name => l_iv_table (l_iv_tbl_idx),
2708: p_date_active => p_effective_date
2709: ) = g_hours_iv
2709: ) = g_hours_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;
2729: EXIT find_jurisdiction_iv WHEN ( (NOT l_iv_table.EXISTS (l_iv_tbl_idx))
2730: OR (l_jurisdiction_found)
2731: );
2732: if g_debug then
2733: hr_utility.trace('find_jurisdiction_iv');
2734: end if;
2735: IF (translated_iv (p_iv_name => l_iv_table (l_iv_tbl_idx),
2736: p_date_active => p_effective_date
2737: ) = g_jurisdiction_iv
2737: ) = g_jurisdiction_iv
2738: )
2739: THEN
2740: if g_debug then
2741: hr_utility.set_location ( ' "HOURS" IV found, seq = '
2742: || l_iv_tbl_idx,
2743: 20
2744: );
2745: end if;
2757: EXIT find_hours_juris_iv WHEN ( (NOT l_iv_table.EXISTS (l_iv_tbl_idx))
2758: OR (l_hours_found AND l_jurisdiction_found)
2759: );
2760: if g_debug then
2761: hr_utility.trace('find_hours_juris_iv');
2762: end if;
2763: IF (translated_iv (p_iv_name => l_iv_table (l_iv_tbl_idx),
2764: p_date_active => p_effective_date
2765: ) = g_hours_iv
2765: ) = g_hours_iv
2766: )
2767: THEN
2768: if g_debug then
2769: hr_utility.set_location ( ' "HOURS" IV found, seq = '
2770: || l_iv_tbl_idx,
2771: 20
2772: );
2773: end if;
2780: ) = g_jurisdiction_iv
2781: )
2782: THEN
2783: if g_debug then
2784: hr_utility.set_location ( ' "HOURS" IV found, seq = '
2785: || l_iv_tbl_idx,
2786: 20
2787: );
2788: end if;
2795: END IF;
2796:
2797:
2798: if g_debug then
2799: -- hr_utility.set_location ( ' returning '
2800: -- || p_jurisdiction_iv_position, 20);
2801: hr_utility.set_location ( 'Leaving '
2802: || l_proc, 100);
2803: end if;
2797:
2798: if g_debug then
2799: -- hr_utility.set_location ( ' returning '
2800: -- || p_jurisdiction_iv_position, 20);
2801: hr_utility.set_location ( 'Leaving '
2802: || l_proc, 100);
2803: end if;
2804: END hours_iv_position;
2805:
2817: := NVL (p_start_position, p_att_table.FIRST);
2818: l_element_id_found BOOLEAN := FALSE;
2819: l_element_type_id pay_element_types_f.element_type_id%TYPE := NULL;
2820: BEGIN
2821: g_debug :=hr_utility.debug_enabled;
2822: if g_debug then
2823: l_proc := g_package
2824: || 'find_element_id_in_attr_tbl';
2825: hr_utility.set_location ( 'Entering '
2821: g_debug :=hr_utility.debug_enabled;
2822: if g_debug then
2823: l_proc := g_package
2824: || 'find_element_id_in_attr_tbl';
2825: hr_utility.set_location ( 'Entering '
2826: || l_proc, 10);
2827: end if;
2828: LOOP
2829: EXIT WHEN ( NOT p_att_table.EXISTS (l_att_idx)
2840: l_att_idx := p_att_table.NEXT (l_att_idx);
2841: END LOOP;
2842:
2843: if g_debug then
2844: hr_utility.set_location ( ' returning '
2845: || l_element_type_id, 30);
2846: hr_utility.set_location ( 'Leaving '
2847: || l_proc, 100);
2848: end if;
2842:
2843: if g_debug then
2844: hr_utility.set_location ( ' returning '
2845: || l_element_type_id, 30);
2846: hr_utility.set_location ( 'Leaving '
2847: || l_proc, 100);
2848: end if;
2849: RETURN l_element_type_id;
2850: END find_element_id_in_attr_tbl;
2891:
2892: if g_debug then
2893: l_proc := g_package
2894: || 'asg_id';
2895: hr_utility.set_location ( 'Entering '
2896: || l_proc, 10);
2897: hr_utility.set_location ( 'p_bg_id = '
2898: || p_bg_id, 20);
2899: hr_utility.set_location ( 'p_effective_date = '
2893: l_proc := g_package
2894: || 'asg_id';
2895: hr_utility.set_location ( 'Entering '
2896: || l_proc, 10);
2897: hr_utility.set_location ( 'p_bg_id = '
2898: || p_bg_id, 20);
2899: hr_utility.set_location ( 'p_effective_date = '
2900: || p_effective_date, 30);
2901: hr_utility.set_location ( 'p_bee_rec.pay_batch_line.assignment_number = '
2895: hr_utility.set_location ( 'Entering '
2896: || l_proc, 10);
2897: hr_utility.set_location ( 'p_bg_id = '
2898: || p_bg_id, 20);
2899: hr_utility.set_location ( 'p_effective_date = '
2900: || p_effective_date, 30);
2901: hr_utility.set_location ( 'p_bee_rec.pay_batch_line.assignment_number = '
2902: || p_bee_rec.pay_batch_line.assignment_number, 40);
2903: end if;
2897: hr_utility.set_location ( 'p_bg_id = '
2898: || p_bg_id, 20);
2899: hr_utility.set_location ( 'p_effective_date = '
2900: || p_effective_date, 30);
2901: hr_utility.set_location ( 'p_bee_rec.pay_batch_line.assignment_number = '
2902: || p_bee_rec.pay_batch_line.assignment_number, 40);
2903: end if;
2904: OPEN csr_asg_id (p_bg_id,
2905: p_effective_date,
2907: );
2908: FETCH csr_asg_id INTO l_asg_id;
2909: CLOSE csr_asg_id;
2910: if g_debug then
2911: hr_utility.set_location ( ' Returning Asg ID: '
2912: || l_asg_id, 20);
2913: hr_utility.set_location ( 'Leaving '
2914: || l_proc, 100);
2915: end if;
2909: CLOSE csr_asg_id;
2910: if g_debug then
2911: hr_utility.set_location ( ' Returning Asg ID: '
2912: || l_asg_id, 20);
2913: hr_utility.set_location ( 'Leaving '
2914: || l_proc, 100);
2915: end if;
2916: RETURN l_asg_id;
2917: END asg_id;
2936:
2937: if g_debug then
2938: l_proc := g_package
2939: || 'asg_num';
2940: hr_utility.set_location ( 'Entering '
2941: || l_proc, 10);
2942: end if;
2943: OPEN csr_asg_num (p_effective_date,
2944: p_bee_rec.pay_batch_line.assignment_id
2945: );
2946: FETCH csr_asg_num INTO l_asg_num;
2947: CLOSE csr_asg_num;
2948: if g_debug then
2949: hr_utility.set_location ( ' Returning Asg Num: '
2950: || l_asg_num, 20);
2951: hr_utility.set_location ( 'Leaving '
2952: || l_proc, 100);
2953: end if;
2947: CLOSE csr_asg_num;
2948: if g_debug then
2949: hr_utility.set_location ( ' Returning Asg Num: '
2950: || l_asg_num, 20);
2951: hr_utility.set_location ( 'Leaving '
2952: || l_proc, 100);
2953: end if;
2954: RETURN l_asg_num;
2955: END asg_num;
2953: end if;
2954: RETURN l_asg_num;
2955: END asg_num;
2956: BEGIN
2957: g_debug :=hr_utility.debug_enabled;
2958: if g_debug then
2959: l_proc := g_package
2960: || 'find_other_in_attr_tbl';
2961: hr_utility.set_location ( 'Entering '
2957: g_debug :=hr_utility.debug_enabled;
2958: if g_debug then
2959: l_proc := g_package
2960: || 'find_other_in_attr_tbl';
2961: hr_utility.set_location ( 'Entering '
2962: || l_proc, 10);
2963: end if;
2964: LOOP
2965: EXIT WHEN ( NOT p_att_table.EXISTS (l_att_idx)
3009: END LOOP;
3010:
3011: p_ending_position := l_att_idx;
3012: if g_debug then
3013: hr_utility.set_location ( ' returning p_ending_position '
3014: || p_ending_position,
3015: 20
3016: );
3017: hr_utility.set_location ( 'Leaving '
3013: hr_utility.set_location ( ' returning p_ending_position '
3014: || p_ending_position,
3015: 20
3016: );
3017: hr_utility.set_location ( 'Leaving '
3018: || l_proc, 100);
3019: end if;
3020: END find_other_in_attr_tbl;
3021:
3029: l_proc proc_name ;
3030: l_att_idx PLS_INTEGER
3031: := NVL (p_start_position, p_att_table.FIRST);
3032: BEGIN
3033: g_debug :=hr_utility.debug_enabled;
3034: if g_debug then
3035: l_proc := g_package
3036: || 'skip_attributes';
3037: hr_utility.set_location ( 'Entering '
3033: g_debug :=hr_utility.debug_enabled;
3034: if g_debug then
3035: l_proc := g_package
3036: || 'skip_attributes';
3037: hr_utility.set_location ( 'Entering '
3038: || l_proc, 10);
3039: end if;
3040: LOOP
3041: EXIT WHEN ( NOT p_att_table.EXISTS (l_att_idx)
3044: l_att_idx := p_att_table.NEXT (l_att_idx);
3045: END LOOP;
3046:
3047: if g_debug then
3048: hr_utility.set_location ( ' returning ending position '
3049: || l_att_idx,
3050: 20
3051: );
3052: hr_utility.set_location ( 'Leaving '
3048: hr_utility.set_location ( ' returning ending position '
3049: || l_att_idx,
3050: 20
3051: );
3052: hr_utility.set_location ( 'Leaving '
3053: || l_proc, 100);
3054: end if;
3055: RETURN l_att_idx;
3056: END skip_attributes;
3067: l_att_idx PLS_INTEGER := p_start_position;
3068: l_asg_id_found BOOLEAN := FALSE;
3069: l_asg_num_found BOOLEAN := FALSE;
3070: BEGIN
3071: g_debug :=hr_utility.debug_enabled;
3072: if g_debug then
3073: hr_utility.set_location ( 'Entering '
3074: || l_proc, 10);
3075: end if;
3069: l_asg_num_found BOOLEAN := FALSE;
3070: BEGIN
3071: g_debug :=hr_utility.debug_enabled;
3072: if g_debug then
3073: hr_utility.set_location ( 'Entering '
3074: || l_proc, 10);
3075: end if;
3076: LOOP
3077: EXIT WHEN ( NOT p_att_table.EXISTS (l_att_idx)
3094: l_att_idx := p_att_table.NEXT (l_att_idx);
3095: END LOOP;
3096:
3097: if g_debug then
3098: hr_utility.set_location ( 'Leaving '
3099: || l_proc, 100);
3100: end if;
3101: END find_asg_in_attr_tbl;
3102: */
3108: l_proc proc_name;
3109:
3110: l_cost_allocation_structure_id per_business_groups_perf.cost_allocation_structure%TYPE;
3111: BEGIN
3112: g_debug :=hr_utility.debug_enabled;
3113: if g_debug then
3114: l_proc := g_package
3115: || 'cost_flex_structure_id';
3116: hr_utility.set_location ( 'Entering '
3112: g_debug :=hr_utility.debug_enabled;
3113: if g_debug then
3114: l_proc := g_package
3115: || 'cost_flex_structure_id';
3116: hr_utility.set_location ( 'Entering '
3117: || l_proc, 10);
3118: end if;
3119: pay_paywsqee_pkg.populate_context_items (p_business_group_id,
3120: l_cost_allocation_structure_id
3119: pay_paywsqee_pkg.populate_context_items (p_business_group_id,
3120: l_cost_allocation_structure_id
3121: );
3122: if g_debug then
3123: hr_utility.set_location ( ' Returning '
3124: || l_cost_allocation_structure_id,
3125: 20
3126: );
3127: hr_utility.set_location ( 'Leaving '
3123: hr_utility.set_location ( ' Returning '
3124: || l_cost_allocation_structure_id,
3125: 20
3126: );
3127: hr_utility.set_location ( 'Leaving '
3128: || l_proc, 30);
3129: end if;
3130: RETURN l_cost_allocation_structure_id;
3131: END cost_flex_structure_id;
3170:
3171: l_costflex_value per_business_groups_perf.cost_allocation_structure%TYPE;
3172: l_found_in_cache BOOLEAN := FALSE;
3173: BEGIN
3174: g_debug :=hr_utility.debug_enabled;
3175: if g_debug then
3176: l_proc := g_package
3177: || 'costflex_value';
3178: hr_utility.set_location ( 'Entering '
3174: g_debug :=hr_utility.debug_enabled;
3175: if g_debug then
3176: l_proc := g_package
3177: || 'costflex_value';
3178: hr_utility.set_location ( 'Entering '
3179: || l_proc, 10);
3180: end if;
3181: IF (isnumber (p_flex_value_id))
3182: THEN
3235: l_costflex_value := p_flex_value_id;
3236: END IF;
3237:
3238: if g_debug then
3239: hr_utility.set_location ( ' returning l_costflex_value = '
3240: || l_costflex_value,
3241: 20
3242: );
3243: hr_utility.set_location ( 'Leaving '
3239: hr_utility.set_location ( ' returning l_costflex_value = '
3240: || l_costflex_value,
3241: 20
3242: );
3243: hr_utility.set_location ( 'Leaving '
3244: || l_proc, 30);
3245: end if;
3246: RETURN l_costflex_value;
3247: END costflex_value;
3264:
3265: l_costflex_concat_segments pay_cost_allocation_keyflex.concatenated_segments%TYPE;
3266: l_found_in_cache BOOLEAN := FALSE;
3267: BEGIN
3268: g_debug :=hr_utility.debug_enabled;
3269: if g_debug then
3270: l_proc := g_package
3271: || 'costflex_concat_segments';
3272: hr_utility.set_location ( 'Entering '
3268: g_debug :=hr_utility.debug_enabled;
3269: if g_debug then
3270: l_proc := g_package
3271: || 'costflex_concat_segments';
3272: hr_utility.set_location ( 'Entering '
3273: || l_proc, 10);
3274: end if;
3275: IF ( (caching)
3276: AND (g_concatenated_segments.EXISTS (p_cost_allocation_keyflex_id))
3300: CLOSE csr_costflex_concat_segments;
3301: END IF;
3302:
3303: if g_debug then
3304: hr_utility.set_location ( ' returning '
3305: || l_costflex_concat_segments,
3306: 20
3307: );
3308: hr_utility.set_location ( 'Leaving '
3304: hr_utility.set_location ( ' returning '
3305: || l_costflex_concat_segments,
3306: 20
3307: );
3308: hr_utility.set_location ( 'Leaving '
3309: || l_proc, 30);
3310: end if;
3311: RETURN l_costflex_concat_segments;
3312: END costflex_concat_segments;
3348: l_proc proc_name;
3349:
3350: l_cost_segments_all_null BOOLEAN := FALSE;
3351: BEGIN
3352: g_debug :=hr_utility.debug_enabled;
3353: if g_debug then
3354: l_proc := g_package
3355: || 'cost_segments_all_null';
3356: hr_utility.set_location ( 'Entering '
3352: g_debug :=hr_utility.debug_enabled;
3353: if g_debug then
3354: l_proc := g_package
3355: || 'cost_segments_all_null';
3356: hr_utility.set_location ( 'Entering '
3357: || l_proc, 10);
3358: end if;
3359: IF ( (p_segment_1 IS NULL)
3360: AND (p_segment_2 IS NULL)
3393: l_cost_segments_all_null := FALSE;
3394: END IF;
3395:
3396: if g_debug then
3397: hr_utility.set_location ( 'Leaving '
3398: || l_proc, 100);
3399: end if;
3400: RETURN (l_cost_segments_all_null);
3401: END cost_segments_all_null;
3406: l_proc proc_name;
3407:
3408: l_cost_segments_all_null BOOLEAN := FALSE;
3409: BEGIN
3410: g_debug :=hr_utility.debug_enabled;
3411: if g_debug then
3412: l_proc := g_package
3413: || 'cost_segments_all_null';
3414: hr_utility.set_location ( 'Entering '
3410: g_debug :=hr_utility.debug_enabled;
3411: if g_debug then
3412: l_proc := g_package
3413: || 'cost_segments_all_null';
3414: hr_utility.set_location ( 'Entering '
3415: || l_proc, 10);
3416: end if;
3417: l_cost_segments_all_null :=
3418: cost_segments_all_null (p_segment_1 => p_bee_rec.pay_batch_line.segment1,
3446: p_segment_29 => p_bee_rec.pay_batch_line.segment29,
3447: p_segment_30 => p_bee_rec.pay_batch_line.segment30
3448: );
3449: if g_debug then
3450: hr_utility.set_location ( 'Leaving '
3451: || l_proc, 100);
3452: end if;
3453: RETURN (l_cost_segments_all_null);
3454: END cost_segments_all_null;
3491: l_proc proc_name;
3492:
3493: l_cost_allocation_kff_id pay_cost_allocation_keyflex.cost_allocation_keyflex_id%TYPE;
3494: BEGIN
3495: g_debug :=hr_utility.debug_enabled;
3496: if g_debug then
3497: l_proc := g_package
3498: || 'cost_allocation_kff_id';
3499: hr_utility.set_location ( 'Entering '
3495: g_debug :=hr_utility.debug_enabled;
3496: if g_debug then
3497: l_proc := g_package
3498: || 'cost_allocation_kff_id';
3499: hr_utility.set_location ( 'Entering '
3500: || l_proc, 10);
3501: end if;
3502: IF (NOT cost_segments_all_null (p_segment_1 => p_segment_1,
3503: p_segment_2 => p_segment_2,
3575: l_cost_allocation_kff_id := NULL;
3576: END IF;
3577:
3578: if g_debug then
3579: hr_utility.set_location ( ' returning '
3580: || l_cost_allocation_kff_id,
3581: 20
3582: );
3583: hr_utility.set_location ( 'Leaving '
3579: hr_utility.set_location ( ' returning '
3580: || l_cost_allocation_kff_id,
3581: 20
3582: );
3583: hr_utility.set_location ( 'Leaving '
3584: || l_proc, 100);
3585: end if;
3586: RETURN (l_cost_allocation_kff_id);
3587: END cost_allocation_kff_id;
3595: l_proc proc_name;
3596:
3597: l_cost_allocation_kff_id pay_cost_allocation_keyflex.cost_allocation_keyflex_id%TYPE;
3598: BEGIN
3599: g_debug :=hr_utility.debug_enabled;
3600: if g_debug then
3601: l_proc := g_package
3602: || 'cost_allocation_kff_id (p_bee_rec)';
3603: hr_utility.set_location ( 'Entering '
3599: g_debug :=hr_utility.debug_enabled;
3600: if g_debug then
3601: l_proc := g_package
3602: || 'cost_allocation_kff_id (p_bee_rec)';
3603: hr_utility.set_location ( 'Entering '
3604: || l_proc, 10);
3605: end if;
3606: l_cost_allocation_kff_id :=
3607: cost_allocation_kff_id (p_business_group_id => p_business_group_id,
3636: p_segment_29 => p_bee_rec.pay_batch_line.segment29,
3637: p_segment_30 => p_bee_rec.pay_batch_line.segment30
3638: );
3639: if g_debug then
3640: hr_utility.set_location ( ' returning '
3641: || l_cost_allocation_kff_id,
3642: 20
3643: );
3644: hr_utility.set_location ( 'Leaving '
3640: hr_utility.set_location ( ' returning '
3641: || l_cost_allocation_kff_id,
3642: 20
3643: );
3644: hr_utility.set_location ( 'Leaving '
3645: || l_proc, 100);
3646: end if;
3647: RETURN (l_cost_allocation_kff_id);
3648: END cost_allocation_kff_id;
3652: IS
3653: l_proc proc_name ;
3654: l_hours_factor NUMBER (1);
3655: BEGIN
3656: g_debug :=hr_utility.debug_enabled;
3657: if g_debug then
3658: l_proc := g_package
3659: || 'hours_factor';
3660: hr_utility.set_location ( 'Entering '
3656: g_debug :=hr_utility.debug_enabled;
3657: if g_debug then
3658: l_proc := g_package
3659: || 'hours_factor';
3660: hr_utility.set_location ( 'Entering '
3661: || l_proc, 10);
3662: end if;
3663: IF (p_is_old)
3664: THEN
3667: l_hours_factor := 1;
3668: END IF;
3669:
3670: if g_debug then
3671: hr_utility.set_location ( ' Returning '
3672: || l_hours_factor, 20);
3673: hr_utility.set_location ( 'Leaving '
3674: || l_proc, 30);
3675: end if;
3669:
3670: if g_debug then
3671: hr_utility.set_location ( ' Returning '
3672: || l_hours_factor, 20);
3673: hr_utility.set_location ( 'Leaving '
3674: || l_proc, 30);
3675: end if;
3676: RETURN l_hours_factor;
3677: END hours_factor;
3687: || 'write_pipe_batch_info';
3688: l_send_message_status INTEGER;
3689: l_batch_info_idx PLS_INTEGER;
3690: BEGIN
3691: g_debug :=hr_utility.debug_enabled;
3692: if g_debug then
3693: hr_utility.set_location ( 'Entering '
3694: || l_proc, 10);
3695: end if;
3689: l_batch_info_idx PLS_INTEGER;
3690: BEGIN
3691: g_debug :=hr_utility.debug_enabled;
3692: if g_debug then
3693: hr_utility.set_location ( 'Entering '
3694: || l_proc, 10);
3695: end if;
3696: l_batch_info_idx := p_batch_info.FIRST;
3697: DBMS_PIPE.reset_buffer;
3719: NULL; -- RAISE ERROR
3720: END IF;
3721:
3722: if g_debug then
3723: hr_utility.set_location ( 'Leaving '
3724: || l_proc, 100);
3725: end if;
3726: END write_pipe_batch_info;
3727:
3735: l_batch_info_idx PLS_INTEGER := 1;
3736: e_pipe_empty EXCEPTION;
3737: PRAGMA EXCEPTION_INIT (e_pipe_empty, -6556);
3738: BEGIN
3739: g_debug :=hr_utility.debug_enabled;
3740: if g_debug then
3741: hr_utility.set_location ( 'Entering '
3742: || l_proc, 10);
3743: end if;
3737: PRAGMA EXCEPTION_INIT (e_pipe_empty, -6556);
3738: BEGIN
3739: g_debug :=hr_utility.debug_enabled;
3740: if g_debug then
3741: hr_utility.set_location ( 'Entering '
3742: || l_proc, 10);
3743: end if;
3744: l_recieve_message_status :=
3745: DBMS_PIPE.receive_message (
3762: EXCEPTION
3763: WHEN e_pipe_empty
3764: THEN
3765: if g_debug then
3766: hr_utility.set_location (
3767: ' returning '
3768: || l_batch_info.COUNT
3769: || ' batch_info lines',
3770: 20
3768: || l_batch_info.COUNT
3769: || ' batch_info lines',
3770: 20
3771: );
3772: hr_utility.set_location ( 'Leaving '
3773: || l_proc, 100);
3774: end if;
3775: DBMS_PIPE.reset_buffer;
3776: DBMS_PIPE.PURGE (hxt_interface_utilities.g_total_lines_pipe_name);
3806: l_batch_info_idx PLS_INTEGER;
3807: l_batch_ref_found BOOLEAN := FALSE;
3808: l_free_batch_suffix NUMBER;
3809: BEGIN
3810: g_debug :=hr_utility.debug_enabled;
3811: if g_debug then
3812: l_proc := g_package
3813: || 'free_batch_suffix';
3814: hr_utility.set_location ( 'Entering '
3810: g_debug :=hr_utility.debug_enabled;
3811: if g_debug then
3812: l_proc := g_package
3813: || 'free_batch_suffix';
3814: hr_utility.set_location ( 'Entering '
3815: || l_proc, 10);
3816: end if;
3817: l_batch_info_idx := g_batch_info.FIRST;
3818:
3847:
3848: IF (NOT l_batch_ref_found)
3849: THEN
3850: if g_debug then
3851: hr_utility.set_location (' new batch reference', 20);
3852: end if;
3853: l_batch_info_idx := NVL (g_batch_info.LAST, 0)
3854: + 1;
3855: g_batch_info (l_batch_info_idx).batch_ref := p_batch_reference;
3861: + 1;
3862: END IF;
3863:
3864: if g_debug then
3865: hr_utility.set_location ( 'Leaving '
3866: || l_proc, 100);
3867: end if;
3868: RETURN l_free_batch_suffix;
3869: END free_batch_suffix;
3883: AS
3884: l_proc proc_name ;
3885: l_is_changed BOOLEAN := FALSE;
3886: BEGIN
3887: g_debug :=hr_utility.debug_enabled;
3888: if g_debug then
3889: l_proc := g_package
3890: || 'is_changed';
3891: hr_utility.set_location ( 'Entering '
3887: g_debug :=hr_utility.debug_enabled;
3888: if g_debug then
3889: l_proc := g_package
3890: || 'is_changed';
3891: hr_utility.set_location ( 'Entering '
3892: || l_proc, 10);
3893: end if;
3894: IF (UPPER (p_tbb_rec.changed) = g_tbb_changed)
3895: THEN
3894: IF (UPPER (p_tbb_rec.changed) = g_tbb_changed)
3895: THEN
3896: l_is_changed := TRUE;
3897: if g_debug then
3898: hr_utility.set_location ( ' TBB '
3899: || p_tbb_rec.bb_id
3900: || ' changed',
3901: 20
3902: );
3905: l_is_changed := FALSE;
3906: END IF;
3907:
3908: if g_debug then
3909: hr_utility.set_location ( 'Leaving '
3910: || l_proc, 40);
3911: end if;
3912: RETURN l_is_changed;
3913: END is_changed;
3919: AS
3920: l_proc proc_name ;
3921: l_is_deleted BOOLEAN := FALSE;
3922: BEGIN
3923: g_debug :=hr_utility.debug_enabled;
3924: if g_debug then
3925: l_proc := g_package
3926: || 'is_deleted';
3927: hr_utility.set_location ( 'Entering '
3923: g_debug :=hr_utility.debug_enabled;
3924: if g_debug then
3925: l_proc := g_package
3926: || 'is_deleted';
3927: hr_utility.set_location ( 'Entering '
3928: || l_proc, 10);
3929: end if;
3930: IF (UPPER (p_tbb_rec.deleted) = g_tbb_deleted)
3931: THEN
3930: IF (UPPER (p_tbb_rec.deleted) = g_tbb_deleted)
3931: THEN
3932: l_is_deleted := TRUE;
3933: if g_debug then
3934: hr_utility.set_location ( ' TBB '
3935: || p_tbb_rec.bb_id
3936: || ' deleted',
3937: 20
3938: );
3941: l_is_deleted := FALSE;
3942: END IF;
3943:
3944: if g_debug then
3945: hr_utility.set_location ( 'Leaving '
3946: || l_proc, 40);
3947: end if;
3948: RETURN l_is_deleted;
3949: END is_deleted;
3956: AS
3957: l_proc proc_name ;
3958: l_is_in_sync BOOLEAN := FALSE;
3959: BEGIN
3960: g_debug :=hr_utility.debug_enabled;
3961: if g_debug then
3962: l_proc := g_package
3963: || 'is_in_sync';
3964: hr_utility.set_location ( 'Entering '
3960: g_debug :=hr_utility.debug_enabled;
3961: if g_debug then
3962: l_proc := g_package
3963: || 'is_in_sync';
3964: hr_utility.set_location ( 'Entering '
3965: || l_proc, 10);
3966: end if;
3967: IF (p_check_tbb_id = p_against_tbb_id)
3968: THEN
3969: l_is_in_sync := TRUE;
3970: ELSE
3971: l_is_in_sync := FALSE;
3972: if g_debug then
3973: hr_utility.set_location ( p_check_tbb_id
3974: || ' is NOT in sync with TBB '
3975: || p_against_tbb_id,
3976: 30
3977: );
3978: end if;
3979: END IF;
3980:
3981: if g_debug then
3982: hr_utility.set_location ( 'Leaving '
3983: || l_proc, 40);
3984: end if;
3985: RETURN l_is_in_sync;
3986: END is_in_sync;
4004: l_city_name pay_us_city_names.city_name%TYPE;
4005: l_zip_code pay_us_zip_codes.zip_start%TYPE;
4006:
4007: BEGIN
4008: g_debug :=hr_utility.debug_enabled;
4009: if g_debug then
4010: l_proc := g_package
4011: || 'get_geocode_from_attr_tab';
4012: hr_utility.set_location ( 'Entering '
4008: g_debug :=hr_utility.debug_enabled;
4009: if g_debug then
4010: l_proc := g_package
4011: || 'get_geocode_from_attr_tab';
4012: hr_utility.set_location ( 'Entering '
4013: || l_proc, 10);
4014: end if;
4015: LOOP
4016: EXIT WHEN ( NOT p_att_table.EXISTS (l_att_idx)