1 PACKAGE BODY pnrx_c_space_assign_lease AS
2 /* $Header: PNRXCLEB.pls 115.4 2002/11/15 19:48:34 stripath ship $ */
3
4 PROCEDURE pn_sp_as_lease(
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, --as_of_date
10 argument4 IN VARCHAR2, --report_type
11 argument5 IN VARCHAR2,
12 argument6 IN VARCHAR2,
13 argument7 IN VARCHAR2,
14 argument8 IN VARCHAR2,
15 argument9 IN VARCHAR2,
16 argument10 IN VARCHAR2,
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_sp_assign_by_lease.pn_space_assign_lease(
116 lease_number_low =>argument1,
117 lease_number_high =>argument2,
118 as_of_date=>FND_DATE.CANONICAL_TO_DATE(argument3),
119 report_type =>argument4,
120 l_request_id=>to_number(l_request_id),
121 l_user_id=>to_number(l_user_id),
122 retcode=>retcode,
123 errbuf=>errbuf);
124 COMMIT;
125 END pn_sp_as_lease;
126 END pnrx_c_space_assign_lease;