[Home] [Help]
PACKAGE BODY: APPS.PER_US_VETS_100A_REPORTS_PKG
Source
1 package body per_us_vets_100a_reports_pkg as
2 /* $Header: pervetsr100a.pkb 120.0.12010000.2 2009/05/29 09:14:48 pannapur noship $ */
3 procedure submit
4 (errbuf out nocopy varchar2,
5 retcode out nocopy number,
6 p_business_group_id in number,
7 p_hierarchy_id in number,
8 p_hierarchy_version_id in number,
9 p_date_start in varchar2,
10 p_date_end in varchar2,
11 p_state in varchar2,
12 p_show_new_hires in varchar2,
13 p_show_totals in varchar2,
14 p_audit_report in varchar2) is
15
16 l_request_id number;
17 l_set_template boolean;
18
19 begin
20
21 -- VETS-100A Veterans Employment Report
22
23 l_set_template :=
24 fnd_request.add_layout ('PER',
25 'PERRPVTS_100A',
26 'US',
27 'US',
28 'PDF');
29
30 l_request_id := fnd_request.submit_request
31 (application => 'PER',
32 program => 'PERRPVTS_100A',
33 description => NULL,
34 sub_request => FALSE,
35 argument1 => p_business_group_id,
36 argument2 => p_hierarchy_id,
37 argument3 => p_hierarchy_version_id,
38 argument4 => p_date_start,
39 argument5 => p_date_end,
40 argument6 => p_state,
41 argument7 => p_show_totals,
42 argument8 => p_show_new_hires,
43 argument9 => p_audit_report);
44
45 if l_request_id = 0 then
46
47 fnd_message.set_name('PER','PER_52992_CANNOT_SUBMIT_REPORT');
48 fnd_message.raise_error;
49
50 end if;
51
52 commit;
53
54 -- VETS-100A Consolidated Veterans Employment Report
55
56 l_set_template :=
57 fnd_request.add_layout ('PER',
58 'PERRPVTC_100A',
59 'US',
60 'US',
61 'PDF');
62
63 l_request_id := fnd_request.submit_request
64 (application => 'PER',
65 program => 'PERRPVTC_100A',
66 description => NULL,
67 sub_request => FALSE,
68 argument1 => p_business_group_id,
69 argument2 => p_hierarchy_id,
70 argument3 => p_hierarchy_version_id,
71 argument4 => p_date_start,
72 argument5 => p_date_end,
73 argument6 => p_state,
74 argument7 => p_show_totals,
75 argument8 => p_show_new_hires,
76 argument9 => p_audit_report);
77
78 if l_request_id = 0 then
79
80 fnd_message.set_name('PER','PER_52993_CANNOT_SUBMIT_REPORT');
81 fnd_message.raise_error;
82
83 end if;
84
85 commit;
86
87 -- VETS-100A Employment Listing
88
89 l_set_template :=
90 fnd_request.add_layout ('PER',
91 'PERUSVEL_100A',
92 'US',
93 'US',
94 'PDF');
95
96 l_request_id := fnd_request.submit_request
97 (application => 'PER',
98 program => 'PERUSVEL_100A',
99 description => NULL,
100 sub_request => FALSE,
101 argument1 => p_business_group_id,
102 argument2 => p_hierarchy_id,
103 argument3 => p_hierarchy_version_id,
104 argument4 => p_date_start,
105 argument5 => p_date_end,
106 argument6 => p_state,
107 argument7 => p_show_totals,
108 argument8 => p_show_new_hires,
109 argument9 => p_audit_report);
110
111 if l_request_id = 0 then
112
113 fnd_message.set_name('PER','PER_52994_CANNOT_SUBMIT_REPORT');
114 fnd_message.raise_error;
115
116 end if;
117
118 commit;
119
120 end submit;
121
122 end per_us_vets_100a_reports_pkg;