PACKAGE BODY: APPS.INV_INVIRTMP_XMLP_PKG

Source

1 PACKAGE BODY INV_INVIRTMP_XMLP_PKG AS
2 /* $Header: INVIRTMPB.pls 120.2 2008/01/08 06:34:26 dwkrishn noship $ */
3   FUNCTION R_CURRENCY_CODEFORMULA(C_CURRENCY IN VARCHAR2) RETURN VARCHAR2 IS
4   BEGIN
5     RETURN ('(' || C_CURRENCY || ')');
6   END R_CURRENCY_CODEFORMULA;
7 
8   FUNCTION AFTERPFORM RETURN BOOLEAN IS
9   BEGIN
10     BEGIN
11       IF ((P_RESP_APPL_ID = -1) AND (P_RESP_ID = -1)) THEN
12         P_ATTRIBUTE_NAME := 'IA.USER_ATTRIBUTE_NAME';
13       ELSE
14         SELECT
15           DECODE(FR.VERSION
16                 ,NULL
17                 ,'IA.USER_ATTRIBUTE_NAME'
18                 ,'4'
19                 ,'IA.USER_ATTRIBUTE_NAME_GUI'
20                 ,'IA.USER_ATTRIBUTE_NAME_GUI')
21         INTO P_ATTRIBUTE_NAME
22         FROM
23           FND_RESPONSIBILITY FR
24         WHERE FR.APPLICATION_ID = P_RESP_APPL_ID
25           AND FR.RESPONSIBILITY_ID = P_RESP_ID;
26       END IF;
27     EXCEPTION
28       WHEN NO_DATA_FOUND THEN
29         P_ATTRIBUTE_NAME := 'IA.USER_ATTRIBUTE_NAME';
30     END;
31     RETURN (TRUE);
32   END AFTERPFORM;
33 
34   FUNCTION AFTERREPORT RETURN BOOLEAN IS
35   BEGIN
36     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
37     RETURN (TRUE);
38   END AFTERREPORT;
39 
40   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
41   BEGIN
42     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
43     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
44     RETURN (TRUE);
45   END BEFOREREPORT;
46 
47 END INV_INVIRTMP_XMLP_PKG;
48