PACKAGE BODY: APPS.PA_ADW_CUSTOM_COLLECT

Source

1 PACKAGE BODY PA_ADW_CUSTOM_COLLECT AS
2 /* $Header: PAADWCCB.pls 115.1 99/07/16 13:21:26 porting ship $ */
3 
4    FUNCTION Initialize RETURN NUMBER IS
5    BEGIN
6         NULL;
7    END Initialize;
8 
9    -- Procedure to collect custom dimension tables
10 
11    PROCEDURE get_dimension_tables
12                          (x_err_stage            IN OUT VARCHAR2,
13                           x_err_stack            IN OUT VARCHAR2,
14                           x_err_code             IN OUT NUMBER,
15                           x_calling_process      IN     VARCHAR2)
16    IS
17      x_old_err_stack	VARCHAR2(1024);
18    BEGIN
19      x_err_code      := 0;
20      x_err_stage     := 'Collecting Custom Dimension Tables';
21      x_old_err_stack := x_err_stack;
22      x_err_stack     := x_err_stack || '-> get_dimension_tables';
23 
24      pa_debug.debug(x_err_stage);
25 
26 
27      -- Insert procedure calls to collect all custom dimensions
28 
29      x_err_stack := x_old_err_stack;
30      pa_debug.debug('Completed ' || x_err_stage);
31 
32    EXCEPTION
33       WHEN OTHERS THEN
34         x_err_code := SQLCODE;
35         RAISE;
36    END get_dimension_tables;
37 
38    -- Procedure to collect custom fact tables
39 
40    PROCEDURE get_fact_tables
41                          (x_project_num_from     IN     VARCHAR2,
42                           x_project_num_to       IN     VARCHAR2,
43                           x_err_stage            IN OUT VARCHAR2,
44                           x_err_stack            IN OUT VARCHAR2,
45                           x_err_code             IN OUT NUMBER,
46                           x_calling_process      IN     VARCHAR2)
47    IS
48      x_old_err_stack	VARCHAR2(1024);
49    BEGIN
50      x_err_code      := 0;
51      x_err_stage     := 'Collecting Custom Fact Tables';
52      x_old_err_stack := x_err_stack;
53      x_err_stack     := x_err_stack || '-> get_fact_tables';
54 
55      pa_debug.debug(x_err_stage);
56 
57      -- Insert procedure calls to collect all custom fact tables
58 
59      x_err_stack := x_old_err_stack;
60 
61      pa_debug.debug('Completed ' || x_err_stage);
62 
63    EXCEPTION
64       WHEN OTHERS THEN
65         x_err_code := SQLCODE;
66         RAISE;
67    END get_fact_tables;
68 
69 END PA_ADW_CUSTOM_COLLECT;