PACKAGE BODY: APPS.OPI_EDW_DIM_SZ

Source

1 PACKAGE BODY OPI_EDW_DIM_SZ AS
2 /* $Header: OPIMDSZB.pls 120.1 2005/06/10 11:51:28 appldev  $*/
3 
4 -- procedure to count inventory Locator Dimension rows.
5 
6   PROCEDURE EDW_MTL_INV_LOC_M_CNT_ROWS(p_from_date DATE,
7                    p_to_date DATE,
8                    p_num_rows OUT NOCOPY NUMBER) IS
9   BEGIN
10     EDW_MTL_INVENTORY_LOC_M_SZ.cnt_rows(p_from_date, p_to_date, p_num_rows) ;
11   END EDW_MTL_INV_LOC_M_CNT_ROWS;
12 
13 -- procedure to get average row length inventory Locator Dimension rows.
14 
15   PROCEDURE EDW_MTL_INV_LOC_M_est_row_len(p_from_date DATE,
16                    p_to_date DATE,
17                    p_avg_row_len OUT NOCOPY NUMBER) IS
18   BEGIN
19     EDW_MTL_INVENTORY_LOC_M_SZ.est_row_len(p_from_date, p_to_date, p_avg_row_len) ;
20   END;
21 
22 
23 -- procedure to count Activity Dimension rows.
24 
25   PROCEDURE EDW_OPI_ACTV_M_CNT_ROWS(p_from_date DATE,
26                    p_to_date DATE,
27                    p_num_rows OUT NOCOPY NUMBER) IS
28     p_opi_num_rows NUMBER := 0 ;
29     p_pmi_num_rows NUMBER := 0 ;
30   BEGIN
31       OPI_EDW_OPI_ACTV_M_SZ.cnt_rows(p_from_date, p_to_date, p_opi_num_rows) ;
32       EDW_OPI_ACTV_MOPM_SZ.cnt_rows(p_from_date, p_to_date, p_pmi_num_rows) ;
33 	p_num_rows := p_opi_num_rows + p_pmi_num_rows ;
34   END;
35 -- procedure to get average row length Activity Dimension rows.
36 
37   PROCEDURE EDW_OPI_ACTV_M_EST_ROW_LEN(p_from_date DATE,
38                    p_to_date DATE,
39                    p_avg_row_len OUT NOCOPY NUMBER) IS
40 	p_opi_row_len NUMBER := 0 ;
41 	p_pmi_row_len NUMBER := 0 ;
42   BEGIN
43     OPI_EDW_OPI_ACTV_M_SZ.est_row_len(p_from_date, p_to_date, p_opi_row_len) ;
44     EDW_OPI_ACTV_MOPM_SZ.est_row_len(p_from_date, p_to_date, p_pmi_row_len) ;
45     p_avg_row_len := greatest(p_opi_row_len + p_pmi_row_len) ;
46   END;
47 
48 -- procedure to count Lot Dimension rows.
49 
50   PROCEDURE EDW_OPI_LOT_M_CNT_ROWS(p_from_date DATE,
51                    p_to_date DATE,
52                    p_num_rows OUT NOCOPY NUMBER) IS
53     p_opi_num_rows NUMBER := 0 ;
54     p_pmi_num_rows NUMBER := 0 ;
55   BEGIN
56       OPI_EDW_OPI_LOT_M_SZ.cnt_rows(p_from_date, p_to_date, p_opi_num_rows) ;
57       EDW_OPI_LOT_MOPM_SZ.cnt_rows(p_from_date, p_to_date, p_pmi_num_rows) ;
58 	p_num_rows := p_opi_num_rows + p_pmi_num_rows ;
59   END;
60 -- procedure to get average row length Lot Dimension rows.
61 
62   PROCEDURE EDW_OPI_LOT_M_EST_ROW_LEN(p_from_date DATE,
63                    p_to_date DATE,
64                    p_avg_row_len OUT NOCOPY NUMBER) IS
65 	p_opi_row_len NUMBER := 0 ;
66 	p_pmi_row_len NUMBER := 0 ;
67   BEGIN
68     OPI_EDW_OPI_LOT_M_SZ.est_row_len(p_from_date, p_to_date, p_opi_row_len) ;
69     EDW_OPI_LOT_MOPM_SZ.est_row_len(p_from_date, p_to_date, p_pmi_row_len) ;
70     p_avg_row_len := greatest(p_opi_row_len + p_pmi_row_len) ;
71   END;
72 
73 
74 -- procedure to count Production Operation Dimension rows.
75 
76   PROCEDURE EDW_OPI_OPRN_M_CNT_ROWS(p_from_date DATE,
77                    p_to_date DATE,
78                    p_num_rows OUT NOCOPY NUMBER)  IS
79     p_opi_num_rows NUMBER := 0 ;
80     p_pmi_num_rows NUMBER := 0 ;
81   BEGIN
82      OPI_EDW_OPI_OPRN_M_SZ.cnt_rows(p_from_date, p_to_date, p_opi_num_rows) ;
83       EDW_OPI_OPRN_MOPM_SZ.cnt_rows(p_from_date, p_to_date, p_pmi_num_rows) ;
84 	p_num_rows := p_opi_num_rows + p_pmi_num_rows ;
85   END;
86 
87 -- procedure to get average row length Production Operation Dimension rows.
88 
89   PROCEDURE EDW_OPI_OPRN_M_EST_ROW_LEN(p_from_date DATE,
90                    p_to_date DATE,
91                    p_avg_row_len OUT NOCOPY NUMBER) IS
92 	p_opi_row_len NUMBER := 0 ;
93 	p_pmi_row_len NUMBER := 0 ;
94   BEGIN
95      OPI_EDW_OPI_OPRN_M_SZ.est_row_len(p_from_date, p_to_date, p_opi_row_len) ;
96      EDW_OPI_OPRN_MOPM_SZ.est_row_len(p_from_date, p_to_date, p_pmi_row_len) ;
97     p_avg_row_len := greatest(p_opi_row_len + p_pmi_row_len);
98   END;
99 
100 
101 -- procedure to count Production Line Dimension rows.
102 
103   PROCEDURE EDW_OPI_PRDL_M_CNT_ROWS(p_from_date DATE,
104                    p_to_date DATE,
105                    p_num_rows OUT NOCOPY NUMBER)  IS
106     p_opi_num_rows NUMBER := 0 ;
107     p_pmi_num_rows NUMBER := 0 ;
108   BEGIN
109      OPI_EDW_OPI_PRDL_M_SZ.cnt_rows(p_from_date, p_to_date, p_opi_num_rows) ;
110 	p_num_rows := p_opi_num_rows + p_pmi_num_rows ;
111   END;
112 
113 -- procedure to get average row length Production Line Dimension rows.
114 
115   PROCEDURE EDW_OPI_PRDL_M_EST_ROW_LEN(p_from_date DATE,
116                    p_to_date DATE,
117                    p_avg_row_len OUT NOCOPY NUMBER) IS
118 	p_opi_row_len NUMBER := 0 ;
119 	p_pmi_row_len NUMBER := 0 ;
120   BEGIN
121      OPI_EDW_OPI_PRDL_M_SZ.est_row_len(p_from_date, p_to_date, p_opi_row_len) ;
122      p_avg_row_len := p_opi_row_len;
123   END;
124 
125 END OPI_EDW_DIM_SZ;
126