[Home] [Help]
PACKAGE BODY: APPS.FARX_C_MCR
Source
1 PACKAGE BODY FARX_C_MCR AS
2 /* $Header: FARXCMCRB.pls 120.0 2004/07/06 18:45:44 bridgway noship $ */
3
4 --
5 -- PROCEDURE Mass_Change_Review
6 --
7
8 PROCEDURE Mass_Change_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
112 h_mesg_str VARCHAR2(2000);
113 h_count NUMBER;
114 h_status BOOLEAN;
115 h_retcode VARCHAR2(3);
116
117 -- error in the concurrent wrapper
118 conc_failure EXCEPTION;
119
120 BEGIN
121 /* Validate the arguments passed in. */
122 IF argument1 IS NULL THEN
123 fnd_message.set_name('OFA','FA_MRCL_PARAM_REQUIRED');
124 h_mesg_str := fnd_message.get;
125 fa_rx_conc_mesg_pkg.log(h_mesg_str);
126 raise conc_failure;
127 END IF;
128
129 -- This argument must exist in the table.
130 SELECT count(1) INTO h_count
131 FROM fa_mass_changes
132 WHERE mass_change_id = to_number(argument1) AND rownum < 2;
133
134 IF (h_count = 0) THEN
135 fnd_message.set_name('OFA','FA_MRCL_PARAM_REQUIRED');
136 h_mesg_str := fnd_message.get;
137 fa_rx_conc_mesg_pkg.log(h_mesg_str);
138 raise conc_failure;
139 END IF;
140
141 /* No data type conversion is necessary. */
142
143 /* Call the inner procedure to review reclass. */
144 FARX_MCR.Review_Change(
145 X_Mass_Change_Id => to_number(argument1),
146 X_RX_Flag => 'YES',
147 retcode => h_retcode,
148 errbuf => errbuf);
149
150 IF (h_retcode = 0) THEN
151 retcode := 0;
152 ELSIF (h_retcode = 1) THEN
153 retcode := 1;
154 ELSE
155 retcode := 2;
156 END IF;
157
158 EXCEPTION
159 WHEN OTHERS THEN
160 retcode := 2; -- Completed with error.
161 /* A fatal error has occurred, rollback transaction. */
162 ROLLBACK WORK;
163 IF SQLCODE <> 0 THEN
164 fa_rx_conc_mesg_pkg.log(SQLERRM);
165 END IF;
166
167 END Mass_Change_Review;
168
169 END FARX_C_MCR;