123:
124: if (g_times_called = 1) then
125:
126: if (fa_cache_pkg.fazcbc_record.copy_additions_flag <> 'YES') then
127: fnd_message.set_name('OFA', 'FA_MCP_SHARED_NO_COPY');
128: fnd_message.set_token('TYPE','ADDITIONS',FALSE);
129: l_string := fnd_message.get;
130: FND_FILE.put(FND_FILE.output,l_string);
131: FND_FILE.new_line(FND_FILE.output,1);
124: if (g_times_called = 1) then
125:
126: if (fa_cache_pkg.fazcbc_record.copy_additions_flag <> 'YES') then
127: fnd_message.set_name('OFA', 'FA_MCP_SHARED_NO_COPY');
128: fnd_message.set_token('TYPE','ADDITIONS',FALSE);
129: l_string := fnd_message.get;
130: FND_FILE.put(FND_FILE.output,l_string);
131: FND_FILE.new_line(FND_FILE.output,1);
132: end if;
125:
126: if (fa_cache_pkg.fazcbc_record.copy_additions_flag <> 'YES') then
127: fnd_message.set_name('OFA', 'FA_MCP_SHARED_NO_COPY');
128: fnd_message.set_token('TYPE','ADDITIONS',FALSE);
129: l_string := fnd_message.get;
130: FND_FILE.put(FND_FILE.output,l_string);
131: FND_FILE.new_line(FND_FILE.output,1);
132: end if;
133:
131: FND_FILE.new_line(FND_FILE.output,1);
132: end if;
133:
134: if (fa_cache_pkg.fazcbc_record.copy_adjustments_flag <> 'YES') then
135: fnd_message.set_name('OFA', 'FA_MCP_SHARED_NO_COPY');
136: fnd_message.set_token('TYPE','ADJUSTMENTS',FALSE);
137: l_string := fnd_message.get;
138: FND_FILE.put(FND_FILE.output,l_string);
139: FND_FILE.new_line(FND_FILE.output,1);
132: end if;
133:
134: if (fa_cache_pkg.fazcbc_record.copy_adjustments_flag <> 'YES') then
135: fnd_message.set_name('OFA', 'FA_MCP_SHARED_NO_COPY');
136: fnd_message.set_token('TYPE','ADJUSTMENTS',FALSE);
137: l_string := fnd_message.get;
138: FND_FILE.put(FND_FILE.output,l_string);
139: FND_FILE.new_line(FND_FILE.output,1);
140: end if;
133:
134: if (fa_cache_pkg.fazcbc_record.copy_adjustments_flag <> 'YES') then
135: fnd_message.set_name('OFA', 'FA_MCP_SHARED_NO_COPY');
136: fnd_message.set_token('TYPE','ADJUSTMENTS',FALSE);
137: l_string := fnd_message.get;
138: FND_FILE.put(FND_FILE.output,l_string);
139: FND_FILE.new_line(FND_FILE.output,1);
140: end if;
141:
139: FND_FILE.new_line(FND_FILE.output,1);
140: end if;
141:
142: if (fa_cache_pkg.fazcbc_record.copy_retirements_flag <> 'YES') then
143: fnd_message.set_name('OFA', 'FA_MCP_SHARED_NO_COPY');
144: fnd_message.set_token('TYPE','RETIREMENTS',FALSE);
145: l_string := fnd_message.get;
146: FND_FILE.put(FND_FILE.output,l_string);
147: FND_FILE.new_line(FND_FILE.output,1);
140: end if;
141:
142: if (fa_cache_pkg.fazcbc_record.copy_retirements_flag <> 'YES') then
143: fnd_message.set_name('OFA', 'FA_MCP_SHARED_NO_COPY');
144: fnd_message.set_token('TYPE','RETIREMENTS',FALSE);
145: l_string := fnd_message.get;
146: FND_FILE.put(FND_FILE.output,l_string);
147: FND_FILE.new_line(FND_FILE.output,1);
148: end if;
141:
142: if (fa_cache_pkg.fazcbc_record.copy_retirements_flag <> 'YES') then
143: fnd_message.set_name('OFA', 'FA_MCP_SHARED_NO_COPY');
144: fnd_message.set_token('TYPE','RETIREMENTS',FALSE);
145: l_string := fnd_message.get;
146: FND_FILE.put(FND_FILE.output,l_string);
147: FND_FILE.new_line(FND_FILE.output,1);
148: end if;
149:
148: end if;
149:
150: if (nvl(fa_cache_pkg.fazcbc_record.allow_group_deprn_flag, 'N') = 'Y' and
151: nvl(fa_cache_pkg.fazcbc_record.copy_group_addition_flag, 'N') <> 'Y') then
152: fnd_message.set_name('OFA', 'FA_MCP_SHARED_NO_COPY');
153: fnd_message.set_token('TYPE','GROUP ADDITIONS',FALSE);
154: l_string := fnd_message.get;
155: FND_FILE.put(FND_FILE.output,l_string);
156: FND_FILE.new_line(FND_FILE.output,1);
149:
150: if (nvl(fa_cache_pkg.fazcbc_record.allow_group_deprn_flag, 'N') = 'Y' and
151: nvl(fa_cache_pkg.fazcbc_record.copy_group_addition_flag, 'N') <> 'Y') then
152: fnd_message.set_name('OFA', 'FA_MCP_SHARED_NO_COPY');
153: fnd_message.set_token('TYPE','GROUP ADDITIONS',FALSE);
154: l_string := fnd_message.get;
155: FND_FILE.put(FND_FILE.output,l_string);
156: FND_FILE.new_line(FND_FILE.output,1);
157: end if;
150: if (nvl(fa_cache_pkg.fazcbc_record.allow_group_deprn_flag, 'N') = 'Y' and
151: nvl(fa_cache_pkg.fazcbc_record.copy_group_addition_flag, 'N') <> 'Y') then
152: fnd_message.set_name('OFA', 'FA_MCP_SHARED_NO_COPY');
153: fnd_message.set_token('TYPE','GROUP ADDITIONS',FALSE);
154: l_string := fnd_message.get;
155: FND_FILE.put(FND_FILE.output,l_string);
156: FND_FILE.new_line(FND_FILE.output,1);
157: end if;
158:
160: FND_FILE.put(FND_FILE.output,'');
161: FND_FILE.new_line(FND_FILE.output,1);
162:
163: -- dump out the headings
164: fnd_message.set_name('OFA', 'FA_MCP_REPORT_COLUMN');
165: l_string := fnd_message.get;
166:
167: FND_FILE.put(FND_FILE.output,l_string);
168: FND_FILE.new_line(FND_FILE.output,1);
161: FND_FILE.new_line(FND_FILE.output,1);
162:
163: -- dump out the headings
164: fnd_message.set_name('OFA', 'FA_MCP_REPORT_COLUMN');
165: l_string := fnd_message.get;
166:
167: FND_FILE.put(FND_FILE.output,l_string);
168: FND_FILE.new_line(FND_FILE.output,1);
169:
166:
167: FND_FILE.put(FND_FILE.output,l_string);
168: FND_FILE.new_line(FND_FILE.output,1);
169:
170: fnd_message.set_name('OFA', 'FA_MCP_REPORT_LINES');
171: l_string := fnd_message.get;
172:
173: FND_FILE.put(FND_FILE.output,l_string);
174: FND_FILE.new_line(FND_FILE.output,1);
167: FND_FILE.put(FND_FILE.output,l_string);
168: FND_FILE.new_line(FND_FILE.output,1);
169:
170: fnd_message.set_name('OFA', 'FA_MCP_REPORT_LINES');
171: l_string := fnd_message.get;
172:
173: FND_FILE.put(FND_FILE.output,l_string);
174: FND_FILE.new_line(FND_FILE.output,1);
175:
2292:
2293: -- first dump the message to the output file
2294: -- set/translate/retrieve the mesg from fnd
2295:
2296: fnd_message.set_name('OFA', p_message);
2297: if p_token is not null then
2298: fnd_message.set_token(p_token, p_value);
2299: end if;
2300:
2294: -- set/translate/retrieve the mesg from fnd
2295:
2296: fnd_message.set_name('OFA', p_message);
2297: if p_token is not null then
2298: fnd_message.set_token(p_token, p_value);
2299: end if;
2300:
2301: -- get the message but only display up to
2302: -- the return character (if it exists)
2301: -- get the message but only display up to
2302: -- the return character (if it exists)
2303: -- for nicer formatting in the exception report
2304:
2305: l_mesg := substrb(fnd_message.get, 1, 100);
2306: l_return_char := instrb(l_mesg, fnd_global.local_chr(10));
2307:
2308: if (l_return_char > 0) then
2309: l_mesg := substrb(l_mesg, 1, l_return_char - 1);