1 PACKAGE BODY pnrx_c_milestones AS
2 /* $Header: PNRXCMSB.pls 115.2 2002/11/15 20:40:42 stripath ship $ */
3
4 PROCEDURE pn_c_milestones(
5 errbuf OUT NOCOPY VARCHAR2,
6 retcode OUT NOCOPY VARCHAR2,
7 argument1 IN VARCHAR2, --lease_number_low
8 argument2 IN VARCHAR2, --lease_number_high
9 argument3 IN VARCHAR2, --location_code_low
10 argument4 IN VARCHAR2, --location_code_high
11 argument5 IN VARCHAR2, --lease_termination_from
12 argument6 IN VARCHAR2, --lease_termination_to
13 argument7 IN VARCHAR2, --responsible_user
14 argument8 IN VARCHAR2, --action_date_from
15 argument9 IN VARCHAR2, --action_date_to
16 argument10 IN VARCHAR2, --milestone_type_code
17 argument11 IN VARCHAR2,
18 argument12 IN VARCHAR2,
19 argument13 IN VARCHAR2,
20 argument14 IN VARCHAR2,
21 argument15 IN VARCHAR2,
22 argument16 IN VARCHAR2,
23 argument17 IN VARCHAR2,
24 argument18 IN VARCHAR2,
25 argument19 IN VARCHAR2,
26 argument20 IN VARCHAR2,
27 argument21 IN VARCHAR2,
28 argument22 IN VARCHAR2,
29 argument23 IN VARCHAR2,
30 argument24 IN VARCHAR2,
31 argument25 IN VARCHAR2,
32 argument26 IN VARCHAR2,
33 argument27 IN VARCHAR2,
34 argument28 IN VARCHAR2,
35 argument29 IN VARCHAR2,
36 argument30 IN VARCHAR2,
37 argument31 IN VARCHAR2,
38 argument32 IN VARCHAR2,
39 argument33 IN VARCHAR2,
40 argument34 IN VARCHAR2,
41 argument35 IN VARCHAR2,
42 argument36 IN VARCHAR2,
43 argument37 IN VARCHAR2,
44 argument38 IN VARCHAR2,
45 argument39 IN VARCHAR2,
46 argument40 IN VARCHAR2,
47 argument41 IN VARCHAR2,
48 argument42 IN VARCHAR2,
49 argument43 IN VARCHAR2,
50 argument44 IN VARCHAR2,
51 argument45 IN VARCHAR2,
52 argument46 IN VARCHAR2,
53 argument47 IN VARCHAR2,
54 argument48 IN VARCHAR2,
55 argument49 IN VARCHAR2,
56 argument50 IN VARCHAR2,
57 argument51 IN VARCHAR2,
58 argument52 IN VARCHAR2,
59 argument53 IN VARCHAR2,
60 argument54 IN VARCHAR2,
61 argument55 IN VARCHAR2,
62 argument56 IN VARCHAR2,
63 argument57 IN VARCHAR2,
64 argument58 IN VARCHAR2,
65 argument59 IN VARCHAR2,
66 argument60 IN VARCHAR2,
67 argument61 IN VARCHAR2,
68 argument62 IN VARCHAR2,
69 argument63 IN VARCHAR2,
70 argument64 IN VARCHAR2,
71 argument65 IN VARCHAR2,
72 argument66 IN VARCHAR2,
73 argument67 IN VARCHAR2,
74 argument68 IN VARCHAR2,
75 argument69 IN VARCHAR2,
76 argument70 IN VARCHAR2,
77 argument71 IN VARCHAR2,
78 argument72 IN VARCHAR2,
79 argument73 IN VARCHAR2,
80 argument74 IN VARCHAR2,
81 argument75 IN VARCHAR2,
82 argument76 IN VARCHAR2,
83 argument77 IN VARCHAR2,
84 argument78 IN VARCHAR2,
85 argument79 IN VARCHAR2,
86 argument80 IN VARCHAR2,
87 argument81 IN VARCHAR2,
88 argument82 IN VARCHAR2,
89 argument83 IN VARCHAR2,
90 argument84 IN VARCHAR2,
91 argument85 IN VARCHAR2,
92 argument86 IN VARCHAR2,
93 argument87 IN VARCHAR2,
94 argument88 IN VARCHAR2,
95 argument89 IN VARCHAR2,
96 argument90 IN VARCHAR2,
97 argument91 IN VARCHAR2,
98 argument92 IN VARCHAR2,
99 argument93 IN VARCHAR2,
100 argument94 IN VARCHAR2,
101 argument95 IN VARCHAR2,
102 argument96 IN VARCHAR2,
103 argument97 IN VARCHAR2,
104 argument98 IN VARCHAR2,
105 argument99 IN VARCHAR2,
106 argument100 IN VARCHAR2)
107 IS
108 l_request_id NUMBER;
109 l_user_id NUMBER;
110 BEGIN
111 -- Populate mandatory parameters for request_id and user_id
112 l_request_id := fnd_global.conc_request_id;
113 fnd_profile.get('USER_ID', l_user_id);
114 -- Call the inner report passing mandatory parameters (and optional parameters if any)
115 pnrx_milestones.pn_milestones(
116 lease_number_low =>argument1,
117 lease_number_high =>argument2,
118 location_code_low =>argument3,
119 location_code_high =>argument4,
120 lease_termination_from =>FND_DATE.CANONICAL_TO_DATE(argument5),
121 lease_termination_to =>FND_DATE.CANONICAL_TO_DATE(argument6),
122 responsible_user =>argument7,
123 action_due_date_from =>FND_DATE.CANONICAL_TO_DATE(argument8),
124 action_due_date_to =>FND_DATE.CANONICAL_TO_DATE(argument9),
125 milestone_type =>argument10,
126 l_request_id =>to_number(l_request_id),
127 l_user_id =>to_number(l_user_id),
128 retcode =>retcode,
129 errbuf =>errbuf);
130 COMMIT;
131 END pn_c_milestones;
132 END pnrx_c_milestones;
[Home] [Help]