PACKAGE BODY: APPS.FVFCSGLB

Source

1 PAckage Body FVFCSGLB as
2 --$Header: FVFCSGLB.pls 115.4 2002/03/06 14:14:19 pkm ship   $
3 Procedure Main 	(errbuf out varchar2,
4 		    		retcode out varchar2) IS
5 v_count		number;
6 v_message		Varchar2(255);
7 v_errbuf		Varchar2(255);
8 v_retcode		Varchar2(255);
9 v_sgl_inserted	number :=0;
10 begin
11 
12 	FVFCSGL1.MAIN(v_errbuf,v_retcode);
13 		IF v_retcode = -1 THEN
14 			v_message := v_errbuf;
15 			v_retcode := 1;
16 			retcode  := v_retcode;
17 			errbuf := v_message;
18 			ROLLBACK;
19 			return;
20 		ELSE
21 		null;
22 		END IF;
23 	FVFCSGL2.MAIN(v_errbuf,v_retcode);
24 		IF v_retcode = -1 THEN
25 			v_message := v_errbuf;
26 			v_retcode := 1;
27 			retcode  := v_retcode;
28 			errbuf := v_message;
29 			ROLLBACK;
30 			return;
31 		ELSE
32 			select count(*)
33 			into v_sgl_inserted
34 			from fv_facts_ussgl_accounts;
35 
36 			v_message := v_sgl_inserted||' - '||'US SGL Accounts Succesfully Created';
37 			errbuf := v_message;
38 		END IF;
39 
40 Exception
41    When Others Then
42    errbuf := substr(SQLERRM,1,225);
43    retcode := 1;
44 END;
45 End;