350: PROCEDURE get_fw_dates
351: (p_assignment_id IN NUMBER
352: ,p_start_date IN DATE
353: ,p_end_date IN DATE
354: ,p_fw_f_tab OUT NOCOPY pay_au_foreign_workers.tab_fw_dates
355: ,p_fw_j_tab OUT NOCOPY pay_au_foreign_workers.tab_fw_dates)
356: IS
357:
358: l_proc_name VARCHAR2(100);
351: (p_assignment_id IN NUMBER
352: ,p_start_date IN DATE
353: ,p_end_date IN DATE
354: ,p_fw_f_tab OUT NOCOPY pay_au_foreign_workers.tab_fw_dates
355: ,p_fw_j_tab OUT NOCOPY pay_au_foreign_workers.tab_fw_dates)
356: IS
357:
358: l_proc_name VARCHAR2(100);
359: l_start_date DATE;
358: l_proc_name VARCHAR2(100);
359: l_start_date DATE;
360: l_end_of_time DATE;
361:
362: l_fw_f_tab pay_au_foreign_workers.tab_fw_dates;
363: l_fw_j_tab pay_au_foreign_workers.tab_fw_dates;
364:
365: BEGIN
366:
359: l_start_date DATE;
360: l_end_of_time DATE;
361:
362: l_fw_f_tab pay_au_foreign_workers.tab_fw_dates;
363: l_fw_j_tab pay_au_foreign_workers.tab_fw_dates;
364:
365: BEGIN
366:
367: l_start_date := to_date('01/07/2010','DD/MM/YYYY');
379: IF (g_assignment_id <> p_assignment_id) OR (g_assignment_id IS NULL)
380: THEN
381:
382: g_assignment_id := p_assignment_id;
383: pay_au_foreign_workers.get_foreign_worker_dates
384: (p_assignment_id => p_assignment_id
385: ,p_tax_unit_id => NULL
386: ,p_start_date => l_start_date
387: ,p_end_date => l_end_of_time
384: (p_assignment_id => p_assignment_id
385: ,p_tax_unit_id => NULL
386: ,p_start_date => l_start_date
387: ,p_end_date => l_end_of_time
388: ,p_fw_type => pay_au_foreign_workers.g_fw_f_type
389: ,p_tab_fw_dates => g_fw_f_tab_dates
390: );
391:
392: pay_au_foreign_workers.get_foreign_worker_dates
388: ,p_fw_type => pay_au_foreign_workers.g_fw_f_type
389: ,p_tab_fw_dates => g_fw_f_tab_dates
390: );
391:
392: pay_au_foreign_workers.get_foreign_worker_dates
393: (p_assignment_id => p_assignment_id
394: ,p_tax_unit_id => NULL
395: ,p_start_date => l_start_date
396: ,p_end_date => l_end_of_time
393: (p_assignment_id => p_assignment_id
394: ,p_tax_unit_id => NULL
395: ,p_start_date => l_start_date
396: ,p_end_date => l_end_of_time
397: ,p_fw_type => pay_au_foreign_workers.g_fw_j_type
398: ,p_tab_fw_dates => g_fw_j_tab_dates
399: );
400:
401: pay_au_foreign_workers.get_fw_between_dates
397: ,p_fw_type => pay_au_foreign_workers.g_fw_j_type
398: ,p_tab_fw_dates => g_fw_j_tab_dates
399: );
400:
401: pay_au_foreign_workers.get_fw_between_dates
402: (p_fw_tab_dates => g_fw_f_tab_dates
403: ,p_start_date => p_start_date
404: ,p_end_date => p_end_date
405: ,p_result_tab_dates => l_fw_f_tab);
403: ,p_start_date => p_start_date
404: ,p_end_date => p_end_date
405: ,p_result_tab_dates => l_fw_f_tab);
406:
407: pay_au_foreign_workers.get_fw_between_dates
408: (p_fw_tab_dates => g_fw_j_tab_dates
409: ,p_start_date => p_start_date
410: ,p_end_date => p_end_date
411: ,p_result_tab_dates => l_fw_j_tab);
411: ,p_result_tab_dates => l_fw_j_tab);
412:
413: ELSE
414:
415: pay_au_foreign_workers.get_fw_between_dates
416: (p_fw_tab_dates => g_fw_f_tab_dates
417: ,p_start_date => p_start_date
418: ,p_end_date => p_end_date
419: ,p_result_tab_dates => l_fw_f_tab);
417: ,p_start_date => p_start_date
418: ,p_end_date => p_end_date
419: ,p_result_tab_dates => l_fw_f_tab);
420:
421: pay_au_foreign_workers.get_fw_between_dates
422: (p_fw_tab_dates => g_fw_j_tab_dates
423: ,p_start_date => p_start_date
424: ,p_end_date => p_end_date
425: ,p_result_tab_dates => l_fw_j_tab);
457: ,p_net_ent OUT NOCOPY NUMBER
458: )
459: IS
460:
461: l_fw_dates pay_au_foreign_workers.tab_fw_dates;
462: l_fw_f_dates pay_au_foreign_workers.tab_fw_dates;
463: l_fw_j_dates pay_au_foreign_workers.tab_fw_dates;
464:
465: l_procedure VARCHAR2(100);
458: )
459: IS
460:
461: l_fw_dates pay_au_foreign_workers.tab_fw_dates;
462: l_fw_f_dates pay_au_foreign_workers.tab_fw_dates;
463: l_fw_j_dates pay_au_foreign_workers.tab_fw_dates;
464:
465: l_procedure VARCHAR2(100);
466:
459: IS
460:
461: l_fw_dates pay_au_foreign_workers.tab_fw_dates;
462: l_fw_f_dates pay_au_foreign_workers.tab_fw_dates;
463: l_fw_j_dates pay_au_foreign_workers.tab_fw_dates;
464:
465: l_procedure VARCHAR2(100);
466:
467: TYPE l_char_type IS TABLE OF VARCHAR2(80) INDEX BY BINARY_INTEGER;