APPS.QA_DBLINK_PKG dependencies on FND_FILE

Line 177: fnd_file.put_line(fnd_file.log, 'qa_dblink_pkg: entered the wrapper');

173: l_db_link_name VARCHAR2(128);
174: l_err_mes_license VARCHAR2(2000);
175: BEGIN
176:
177: fnd_file.put_line(fnd_file.log, 'qa_dblink_pkg: entered the wrapper');
178:
179: -- APPS schema params.
180: g_dummy := fnd_installation.get_app_info(g_fnd, g_status,
181: g_industry, g_schema);

Line 185: fnd_file.put_line(fnd_file.log, 'ERROR: ' || substr(l_err_mes_license, 1, 200));

181: g_industry, g_schema);
182:
183: IF FND_PROFILE.VALUE('WIP_MES_OPS_FLAG') <> 1 THEN
184: l_err_mes_license := fnd_message.get_string('WIP','WIP_WS_NO_LICENSE');
185: fnd_file.put_line(fnd_file.log, 'ERROR: ' || substr(l_err_mes_license, 1, 200));
186: errbuf := 'ERROR: ' || substr(l_err_mes_license, 1, 200);
187: retcode := 2;
188: ELSIF trim(argument1) = '1' THEN
189: fnd_file.put_line(fnd_file.log, 'Create the DB Link');

Line 189: fnd_file.put_line(fnd_file.log, 'Create the DB Link');

185: fnd_file.put_line(fnd_file.log, 'ERROR: ' || substr(l_err_mes_license, 1, 200));
186: errbuf := 'ERROR: ' || substr(l_err_mes_license, 1, 200);
187: retcode := 2;
188: ELSIF trim(argument1) = '1' THEN
189: fnd_file.put_line(fnd_file.log, 'Create the DB Link');
190: l_db_link_name := UPPER(trim(argument2));
191:
192:
193: l_return := create_dblink(p_dblink_name => l_db_link_name,

Line 199: fnd_file.put_line(fnd_file.log, 'DB Link successfully created');

195: p_pwd => trim(argument4),
196: p_connect_str => trim(argument5));
197:
198: IF (l_return = successful_completion) THEN
199: fnd_file.put_line(fnd_file.log, 'DB Link successfully created');
200: errbuf := '';
201: retcode := 0;
202: ELSE
203: fnd_file.put_line(fnd_file.log, 'DB Link creation failed : ' || substr(l_return, 1, 200));

Line 203: fnd_file.put_line(fnd_file.log, 'DB Link creation failed : ' || substr(l_return, 1, 200));

199: fnd_file.put_line(fnd_file.log, 'DB Link successfully created');
200: errbuf := '';
201: retcode := 0;
202: ELSE
203: fnd_file.put_line(fnd_file.log, 'DB Link creation failed : ' || substr(l_return, 1, 200));
204: errbuf := substr(l_return, 1, 200);
205: retcode := 2;
206: END IF;
207: ELSE

Line 211: fnd_file.put_line(fnd_file.log, 'qa_dblink_pkg: exiting the wrapper');

207: ELSE
208: -- If third party OPC server is selected, revert the view to its original state.
209: create_opc_view;
210: END IF;
211: fnd_file.put_line(fnd_file.log, 'qa_dblink_pkg: exiting the wrapper');
212:
213: END wrapper;
214:
215: END qa_dblink_pkg;