1 PACKAGE BODY JG_RX_C_FAREG AS
2 /* $Header: jgrxcfrb.pls 115.7 2003/12/30 15:43:03 mbickley ship $ */
3
4 -- FA Register core Report
5
6 PROCEDURE get_asset_rtrmnt_details(
7 errbuf OUT NOCOPY VARCHAR2,
8 retcode OUT NOCOPY VARCHAR2,
9 argument1 IN VARCHAR2, -- Book Type
10 argument2 IN VARCHAR2, -- From Period
11 argument3 IN VARCHAR2, -- To Period
12 argument4 IN VARCHAR2, -- Dummy
13 argument5 IN VARCHAR2, -- Major Categoy
14 argument6 IN VARCHAR2, -- Minor Category
15 argument7 IN VARCHAR2, -- Report Type
16 argument8 IN VARCHAR2, -- debug_flag
17 argument9 IN VARCHAR2, -- sql_trace
18 argument10 IN VARCHAR2,
19 argument11 IN VARCHAR2,
20 argument12 IN VARCHAR2,
21 argument13 IN VARCHAR2,
22 argument14 IN VARCHAR2,
23 argument15 IN VARCHAR2,
24 argument16 IN VARCHAR2,
25 argument17 IN VARCHAR2,
26 argument18 IN VARCHAR2,
27 argument19 IN VARCHAR2,
28 argument20 IN VARCHAR2,
29 argument21 IN VARCHAR2,
30 argument22 IN VARCHAR2,
31 argument23 IN VARCHAR2,
32 argument24 IN VARCHAR2,
33 argument25 IN VARCHAR2,
34 argument26 IN VARCHAR2,
35 argument27 IN VARCHAR2,
36 argument28 IN VARCHAR2,
37 argument29 IN VARCHAR2,
38 argument30 IN VARCHAR2,
39 argument31 IN VARCHAR2,
40 argument32 IN VARCHAR2,
41 argument33 IN VARCHAR2,
42 argument34 IN VARCHAR2,
43 argument35 IN VARCHAR2,
44 argument36 IN VARCHAR2,
45 argument37 IN VARCHAR2,
46 argument38 IN VARCHAR2,
47 argument39 IN VARCHAR2,
48 argument40 IN VARCHAR2,
49 argument41 IN VARCHAR2,
50 argument42 IN VARCHAR2,
51 argument43 IN VARCHAR2,
52 argument44 IN VARCHAR2,
53 argument45 IN VARCHAR2,
54 argument46 IN VARCHAR2,
55 argument47 IN VARCHAR2,
56 argument48 IN VARCHAR2,
57 argument49 IN VARCHAR2,
58 argument50 IN VARCHAR2,
59 argument51 IN VARCHAR2,
60 argument52 IN VARCHAR2,
61 argument53 IN VARCHAR2,
62 argument54 IN VARCHAR2,
63 argument55 IN VARCHAR2,
64 argument56 IN VARCHAR2,
65 argument57 IN VARCHAR2,
66 argument58 IN VARCHAR2,
67 argument59 IN VARCHAR2,
68 argument60 IN VARCHAR2,
69 argument61 IN VARCHAR2,
70 argument62 IN VARCHAR2,
71 argument63 IN VARCHAR2,
72 argument64 IN VARCHAR2,
73 argument65 IN VARCHAR2,
74 argument66 IN VARCHAR2,
75 argument67 IN VARCHAR2,
76 argument68 IN VARCHAR2,
77 argument69 IN VARCHAR2,
78 argument70 IN VARCHAR2,
79 argument71 IN VARCHAR2,
80 argument72 IN VARCHAR2,
81 argument73 IN VARCHAR2,
82 argument74 IN VARCHAR2,
83 argument75 IN VARCHAR2,
84 argument76 IN VARCHAR2,
85 argument77 IN VARCHAR2,
86 argument78 IN VARCHAR2,
87 argument79 IN VARCHAR2,
88 argument80 IN VARCHAR2,
89 argument81 IN VARCHAR2,
90 argument82 IN VARCHAR2,
91 argument83 IN VARCHAR2,
92 argument84 IN VARCHAR2,
93 argument85 IN VARCHAR2,
94 argument86 IN VARCHAR2,
95 argument87 IN VARCHAR2,
96 argument88 IN VARCHAR2,
97 argument89 IN VARCHAR2,
98 argument90 IN VARCHAR2,
99 argument91 IN VARCHAR2,
100 argument92 IN VARCHAR2,
101 argument93 IN VARCHAR2,
102 argument94 IN VARCHAR2,
103 argument95 IN VARCHAR2,
104 argument96 IN VARCHAR2,
105 argument97 IN VARCHAR2,
106 argument98 IN VARCHAR2,
107 argument99 IN VARCHAR2,
108 argument100 IN VARCHAR2)
109 IS
110 l_request_id NUMBER;
111 debug_flag VARCHAR2(1);
112 sql_trace VARCHAR2(1);
113
114 BEGIN
115 --
116 -- Assign parameters doing any necessary mappings
117 -- e.g. date/number conversion
118 l_request_id := FND_GLOBAL.conc_request_id;
119 debug_flag := UPPER(SUBSTRB(argument8,1,1));
120 sql_trace := UPPER(SUBSTRB(argument9,1,1));
121
122 --
123 -- SQL Trace switches and debug flags are optional
124 -- but highly recommended.
125
126 -- ATG mandate remove sql code trace
127 -- IF sql_trace = 'Y' then
128 -- FA_RX_UTIL_PKG.enable_trace;
129 -- END IF;
130
131 IF debug_flag = 'Y' then
132 FA_RX_UTIL_PKG.enable_debug;
133 END IF;
134
135 --
136 -- Run report
137
138
139 JG_RX_FAREG.fa_get_report(
140 argument1,
141 argument2,
142 argument3,
143 argument4,
144 argument5,
145 argument6,
146 argument7,
147 l_request_id,
148 retcode,
149 errbuf);
150
151 END get_asset_rtrmnt_details;
152
153 END JG_RX_C_FAREG;