PACKAGE BODY: APPS.INV_INVARUIR_XMLP_PKG

Source

1 PACKAGE BODY INV_INVARUIR_XMLP_PKG AS
2 /* $Header: INVARUIRB.pls 120.2 2008/01/08 06:42:19 dwkrishn noship $ */
3   FUNCTION C_FORMATTEDCURRENCYCODEFORMULA(CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
4   BEGIN
5     DECLARE
6       TEMP_C VARCHAR2(20);
7     BEGIN
8       TEMP_C := '(' || CURRENCY_CODE || ')';
9       RETURN (TEMP_C);
10     END;
11     RETURN NULL;
12   END C_FORMATTEDCURRENCYCODEFORMULA;
13 
14   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
15   BEGIN
16     BEGIN
17       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
18       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
19     EXCEPTION
20       WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
21         /*SRW.MESSAGE(1
22                    ,'Before Report: Init')*/NULL;
23     END;
24     BEGIN
25       NULL;
26     EXCEPTION
27       WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
28         /*SRW.MESSAGE(1
29                    ,'Before Report: ItemFlex')*/NULL;
30     END;
31     BEGIN
32       NULL;
33     EXCEPTION
34       WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
35         /*SRW.MESSAGE(1
36                    ,'Order By trigger')*/NULL;
37     END;
38     RETURN (TRUE);
39   END BEFOREREPORT;
40 
41   FUNCTION AFTERREPORT RETURN BOOLEAN IS
42   BEGIN
43     BEGIN
44       /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
45       RETURN (TRUE);
46     END;
47     RETURN (TRUE);
48   END AFTERREPORT;
49 
50   FUNCTION C_CURRENTDATEFORMULA RETURN DATE IS
51   BEGIN
52     BEGIN
53       RETURN (SYSDATE);
54     END;
55     RETURN NULL;
56   END C_CURRENTDATEFORMULA;
57 
58   FUNCTION F_SCHEDINTERVALFORMULA(C_SCHEDINTERVAL IN VARCHAR2) RETURN VARCHAR2 IS
59   BEGIN
60     DECLARE
61       LOCAL_VAR VARCHAR2(80);
62     BEGIN
63       /*SRW.REFERENCE(C_SCHEDINTERVAL)*/NULL;
64       IF C_SCHEDINTERVAL = -1 THEN
65         LOCAL_VAR := '';
66       ELSE
67         SELECT
68           MFG.MEANING
69         INTO LOCAL_VAR
70         FROM
71           MFG_LOOKUPS MFG
72         WHERE MFG.LOOKUP_TYPE = 'MTL_CC_SCHED_TIME'
73           AND MFG.LOOKUP_CODE = C_SCHEDINTERVAL;
74       END IF;
75       RETURN (LOCAL_VAR);
76     EXCEPTION
77       WHEN OTHERS THEN
78         RETURN ('');
79     END;
80     RETURN NULL;
81   END F_SCHEDINTERVALFORMULA;
82 
83   FUNCTION F_NWORKDAYSYEARFORMULA(S_CALENDARCODE IN VARCHAR2
84                                  ,S_CALENDAREXCEPTION IN VARCHAR2) RETURN NUMBER IS
85   BEGIN
86     DECLARE
87       YEARBEGINDATE DATE;
88       YEARENDDATE DATE;
89       NWORKDAYS INTEGER;
90     BEGIN
91       SELECT
92         TO_CHAR(MAX(BY1.YEAR_START_DATE)
93                ,'DD-MON-RRRR'),
94         TO_CHAR(MIN(BY2.YEAR_START_DATE) - 1
95                ,'DD-MON-RRRR')
96       INTO YEARBEGINDATE,YEARENDDATE
97       FROM
98         BOM_CAL_YEAR_START_DATES BY1,
99         BOM_CAL_YEAR_START_DATES BY2
100       WHERE BY1.CALENDAR_CODE = S_CALENDARCODE
101         AND BY1.EXCEPTION_SET_ID = S_CALENDAREXCEPTION
102         AND BY2.CALENDAR_CODE = BY1.CALENDAR_CODE
103         AND BY2.EXCEPTION_SET_ID = BY1.EXCEPTION_SET_ID
104         AND BY1.YEAR_START_DATE <= TRUNC(SYSDATE)
105         AND BY2.YEAR_START_DATE > TRUNC(SYSDATE);
106       SELECT
107         BC1.NEXT_SEQ_NUM - BC2.NEXT_SEQ_NUM + 1
108       INTO NWORKDAYS
109       FROM
110         BOM_CALENDAR_DATES BC1,
111         BOM_CALENDAR_DATES BC2
112       WHERE TO_CHAR(BC2.CALENDAR_DATE
113              ,'DD-MON-RRRR') = YEARBEGINDATE
114         AND TO_CHAR(BC1.CALENDAR_DATE
115              ,'DD-MON-RRRR') = YEARENDDATE
116         AND BC1.CALENDAR_CODE = S_CALENDARCODE
117         AND BC1.EXCEPTION_SET_ID = S_CALENDAREXCEPTION
118         AND BC2.CALENDAR_CODE = S_CALENDARCODE
119         AND BC2.EXCEPTION_SET_ID = S_CALENDAREXCEPTION;
120       RETURN (NWORKDAYS);
121     EXCEPTION
122       WHEN NO_DATA_FOUND THEN
123         RETURN (1);
124     END;
125     RETURN NULL;
126   END F_NWORKDAYSYEARFORMULA;
127 
128   FUNCTION AFTERPFORM RETURN BOOLEAN IS
129   BEGIN
130     RETURN (TRUE);
131   END AFTERPFORM;
132 
133 END INV_INVARUIR_XMLP_PKG;
134