[Home] [Help]
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;