PACKAGE BODY: APPS.OPI_EDW_TRANSFORM_PKG

Source

1 PACKAGE BODY OPI_EDW_TRANSFORM_PKG AS
2 	/*$Header: OPIMDECB.pls 115.6 2002/04/29 15:24:09 pkm ship     $ */
3 Function OPI_REV_PROD_DECODE(ITEM_FK_KEY  NUMBER,
4                              LINE_CONTEXT VARCHAR,
5                              PARENT_ITEM_FK_KEY NUMBER,
6                              DATA_VALUE NUMBER) RETURN NUMBER IS
7 BEGIN
8    IF LINE_CONTEXT = 'ORDER ENTRY' AND ITEM_FK_KEY <> PARENT_ITEM_FK_KEY  THEN
9       RETURN 0;
10    ELSE
11       RETURN NVL(DATA_VALUE,0);
12    END IF;
13 EXCEPTION WHEN OTHERS THEN
14   RETURN 0;
15 End OPI_REV_PROD_DECODE;
16 Function OPI_IPS_BEG_BAL_DECODE(PERIOD_FLAG  NUMBER,
17                             DATA_VALUE NUMBER) RETURN NUMBER IS
18 BEGIN
19   IF PERIOD_FLAG = 0 THEN
20     RETURN DATA_VALUE;
21   ELSE
22     RETURN 0;
23   END IF;
24 EXCEPTION WHEN OTHERS THEN
25   RETURN 0;
26 END OPI_IPS_BEG_BAL_DECODE;
27 Function OPI_IPS_END_BAL_DECODE(PERIOD_FLAG  NUMBER,
28                             DATA_VALUE NUMBER) RETURN NUMBER IS
29 BEGIN
30   IF PERIOD_FLAG = 1 THEN
31     RETURN DATA_VALUE;
32   ELSE
33     RETURN 0;
34   END IF;
35 EXCEPTION WHEN OTHERS THEN
36   RETURN 0;
37 END OPI_IPS_END_BAL_DECODE;
38 
39 END OPI_EDW_TRANSFORM_PKG;