eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.FARX_C_RR

Source


1 PACKAGE BODY FARX_C_RR AS
2 /* $Header: FARXCRRB.pls 115.6 2002/11/12 08:04:59 glchen ship $ */
3 
4 --
5 -- PROCEDURE Mass_Reclass_Review
6 --
7 
8 PROCEDURE Mass_Reclass_Review(
9 	errbuf		 OUT NOCOPY VARCHAR2,
10 	retcode		 OUT NOCOPY VARCHAR2,
11 	argument1		IN	VARCHAR2,
12 	argument2		IN	VARCHAR2 := NULL,
13 	argument3		IN	VARCHAR2 := NULL,
14 	argument4		IN	VARCHAR2 := NULL,
15 	argument5		IN	VARCHAR2 := NULL,
16 	argument6		IN	VARCHAR2 := NULL,
17 	argument7		IN	VARCHAR2 := NULL,
18 	argument8		IN	VARCHAR2 := NULL,
19 	argument9		IN	VARCHAR2 := NULL,
20 	argument10		IN	VARCHAR2 := NULL,
21 	argument11		IN	VARCHAR2 := NULL,
22 	argument12		IN	VARCHAR2 := NULL,
23 	argument13		IN	VARCHAR2 := NULL,
24 	argument14		IN	VARCHAR2 := NULL,
25 	argument15		IN	VARCHAR2 := NULL,
26 	argument16		IN	VARCHAR2 := NULL,
27 	argument17		IN	VARCHAR2 := NULL,
28 	argument18		IN	VARCHAR2 := NULL,
29 	argument19		IN	VARCHAR2 := NULL,
30 	argument20		IN	VARCHAR2 := NULL,
31 	argument21		IN	VARCHAR2 := NULL,
32 	argument22		IN	VARCHAR2 := NULL,
33 	argument23		IN	VARCHAR2 := NULL,
34 	argument24		IN	VARCHAR2 := NULL,
35 	argument25		IN	VARCHAR2 := NULL,
36 	argument26		IN	VARCHAR2 := NULL,
37 	argument27		IN	VARCHAR2 := NULL,
38 	argument28		IN	VARCHAR2 := NULL,
39 	argument29		IN	VARCHAR2 := NULL,
40 	argument30		IN	VARCHAR2 := NULL,
41 	argument31		IN	VARCHAR2 := NULL,
42 	argument32		IN	VARCHAR2 := NULL,
43 	argument33		IN	VARCHAR2 := NULL,
44 	argument34		IN	VARCHAR2 := NULL,
45 	argument35		IN	VARCHAR2 := NULL,
46 	argument36		IN	VARCHAR2 := NULL,
47 	argument37		IN	VARCHAR2 := NULL,
48 	argument38		IN	VARCHAR2 := NULL,
49 	argument39		IN	VARCHAR2 := NULL,
50 	argument40		IN	VARCHAR2 := NULL,
51 	argument41		IN	VARCHAR2 := NULL,
52 	argument42		IN	VARCHAR2 := NULL,
53 	argument43		IN	VARCHAR2 := NULL,
54 	argument44		IN	VARCHAR2 := NULL,
55 	argument45		IN	VARCHAR2 := NULL,
56 	argument46		IN	VARCHAR2 := NULL,
57 	argument47		IN	VARCHAR2 := NULL,
58 	argument48		IN	VARCHAR2 := NULL,
59 	argument49		IN	VARCHAR2 := NULL,
60 	argument50		IN	VARCHAR2 := NULL,
61 	argument51		IN	VARCHAR2 := NULL,
62 	argument52		IN	VARCHAR2 := NULL,
63 	argument53		IN	VARCHAR2 := NULL,
64 	argument54		IN	VARCHAR2 := NULL,
65 	argument55		IN	VARCHAR2 := NULL,
66 	argument56		IN	VARCHAR2 := NULL,
67 	argument57		IN	VARCHAR2 := NULL,
68 	argument58		IN	VARCHAR2 := NULL,
69 	argument59		IN	VARCHAR2 := NULL,
70 	argument60		IN	VARCHAR2 := NULL,
71 	argument61		IN	VARCHAR2 := NULL,
72 	argument62		IN	VARCHAR2 := NULL,
73 	argument63		IN	VARCHAR2 := NULL,
74 	argument64		IN	VARCHAR2 := NULL,
75 	argument65		IN	VARCHAR2 := NULL,
76 	argument66		IN	VARCHAR2 := NULL,
77 	argument67		IN	VARCHAR2 := NULL,
78 	argument68		IN	VARCHAR2 := NULL,
79 	argument69		IN	VARCHAR2 := NULL,
80 	argument70		IN	VARCHAR2 := NULL,
81 	argument71		IN	VARCHAR2 := NULL,
82 	argument72		IN	VARCHAR2 := NULL,
83 	argument73		IN	VARCHAR2 := NULL,
84 	argument74		IN	VARCHAR2 := NULL,
85 	argument75		IN	VARCHAR2 := NULL,
86 	argument76		IN	VARCHAR2 := NULL,
87 	argument77		IN	VARCHAR2 := NULL,
88 	argument78		IN	VARCHAR2 := NULL,
89 	argument79		IN	VARCHAR2 := NULL,
90 	argument80		IN	VARCHAR2 := NULL,
91 	argument81		IN	VARCHAR2 := NULL,
92 	argument82		IN	VARCHAR2 := NULL,
93 	argument83		IN	VARCHAR2 := NULL,
94 	argument84		IN	VARCHAR2 := NULL,
95 	argument85		IN	VARCHAR2 := NULL,
96 	argument86		IN	VARCHAR2 := NULL,
97 	argument87		IN	VARCHAR2 := NULL,
98 	argument88		IN	VARCHAR2 := NULL,
99 	argument89		IN	VARCHAR2 := NULL,
100 	argument90		IN	VARCHAR2 := NULL,
101 	argument91		IN	VARCHAR2 := NULL,
102 	argument92		IN	VARCHAR2 := NULL,
103 	argument93		IN	VARCHAR2 := NULL,
104 	argument94		IN	VARCHAR2 := NULL,
105 	argument95		IN	VARCHAR2 := NULL,
106 	argument96		IN	VARCHAR2 := NULL,
107 	argument97		IN	VARCHAR2 := NULL,
108 	argument98		IN	VARCHAR2 := NULL,
109 	argument99		IN	VARCHAR2 := NULL,
110 	argument100		IN	VARCHAR2 := NULL) IS
111     h_mesg_str		VARCHAR2(2000);
112     h_count		NUMBER;
113     h_status		BOOLEAN;
114     h_retcode           VARCHAR2(3);
115     -- error in the concurrent wrapper
116     conc_failure 	EXCEPTION;
117 
118 BEGIN
119     /* Validate the arguments passed in. */
120     IF argument1 IS NULL THEN
121 	fnd_message.set_name('OFA','FA_MRCL_PARAM_REQUIRED');
122         h_mesg_str := fnd_message.get;
123         fa_rx_conc_mesg_pkg.log(h_mesg_str);
124 	raise conc_failure;
125     END IF;
126 
127     -- This argument must exist in the table.
128     SELECT count(1) INTO h_count
129     FROM fa_mass_reclass
130     WHERE mass_reclass_id = to_number(argument1) AND rownum < 2;
131 
132     IF (h_count = 0) THEN
133         fnd_message.set_name('OFA','FA_MRCL_PARAM_REQUIRED');
134         h_mesg_str := fnd_message.get;
135         fa_rx_conc_mesg_pkg.log(h_mesg_str);
136 	raise conc_failure;
137     END IF;
138 
139     /* No data type conversion is necessary. */
140 
141     /* Call the inner procedure to review reclass. */
142     FARX_RR.Review_Reclass(
143 	X_Mass_Reclass_Id	=> to_number(argument1),
144 	X_RX_Flag		=> 'YES',
145 	retcode			=> h_retcode,
146 	errbuf			=> errbuf);
147 
148     IF (h_retcode = 0) THEN
149         retcode := 0;
150     ELSIF (h_retcode = 1) THEN
151         retcode := 1;
152     ELSE
153         retcode := 2;
154     END IF;
155 
156 EXCEPTION
157     WHEN OTHERS THEN
158 	retcode := 2;  -- Completed with error.
159         /* A fatal error has occurred, rollback transaction. */
160         ROLLBACK WORK;
161         IF SQLCODE <> 0 THEN
162 	  fa_rx_conc_mesg_pkg.log(SQLERRM);
163         END IF;
164 END Mass_Reclass_Review;
165 
166 
167 END FARX_C_RR;