PACKAGE BODY: APPS.SOA_DIAG_TST

Source

1 PACKAGE BODY SOA_DIAG_TST AS
2   /* $Header: SOADIAGTSTB.pls 120.0.12010000.2 2009/08/31 09:06:05 akemiset noship $ */
3 FUNCTION TestFunction
4   (
5     arg1 VARCHAR2 ,
6     arg2 INTEGER,
7     arg3 BOOLEAN)
8   RETURN NUMBER
9 IS
10 BEGIN
11   RETURN arg2;
12 END TestFunction;
13 
14 PROCEDURE testFunctionCP
15   (
16     ERRBUF OUT NOCOPY  VARCHAR2,
17     RETCODE OUT NOCOPY NUMBER )
18 IS
19 BEGIN
20   fnd_file.put_line(fnd_file.log, 'soa_diag_cp.testFunction invoked...');
21 EXCEPTION
22 WHEN OTHERS THEN
23   RETCODE := 2;
24   ERRBUF  := SQLCODE||':'||sqlerrm;
25   fnd_file.put_line(fnd_file.log, 'soa_diag_cp.testFunction failed ' || SQLCODE||':'||sqlerrm);
26 END testFunctionCP;
27 
28 END SOA_DIAG_TST;