DBA Data[Home] [Help]

PACKAGE BODY: APPS.IGI_IGIRCCBR_XMLP_PKG

Source


1 PACKAGE BODY IGI_IGIRCCBR_XMLP_PKG AS
2 /* $Header: IGIRCCBRB.pls 120.0.12010000.1 2008/07/29 08:59:12 appldev ship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
6     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
7      select SUBSTR(argument1,INSTR(argument1,'=',1)+1,LENGTH(argument1)),
8 SUBSTR(argument2,INSTR(argument2,'=',1)+1,LENGTH(argument2)),
9 SUBSTR(argument3,INSTR(argument3,'=',1)+1,LENGTH(argument3)),
10 SUBSTR(argument4,INSTR(argument4,'=',1)+1,LENGTH(argument4)),
11 SUBSTR(argument5,INSTR(argument5,'=',1)+1,LENGTH(argument5)),
12 SUBSTR(argument6,INSTR(argument6,'=',1)+1,LENGTH(argument6)),
13 SUBSTR(argument7,INSTR(argument7,'=',1)+1,LENGTH(argument7)),
14 SUBSTR(argument8,INSTR(argument8,'=',1)+1,LENGTH(argument8)),
15 SUBSTR(argument9,INSTR(argument9,'=',1)+1,LENGTH(argument9))
16 into P_REQUEST_ID,P_SOB_ID,P_SEG_NAME,P_START_DATE,P_END_DATE,P_START_PERIOD,P_END_PERIOD,P_ACCOUNT_SEGMENT_FROM,P_ACCOUNT_SEGMENT_TO
17         from FND_CONCURRENT_REQUESTS
18 where request_id=P_CONC_REQUEST_ID;
19     RETURN (TRUE);
20   END BEFOREREPORT;
21 
22   FUNCTION AFTERREPORT RETURN BOOLEAN IS
23   BEGIN
24     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
25     RETURN (TRUE);
26   END AFTERREPORT;
27 
28   FUNCTION BEFOREPFORM RETURN BOOLEAN IS
29   BEGIN
30     RETURN (TRUE);
31   END BEFOREPFORM;
32 
33   FUNCTION AFTERPFORM RETURN BOOLEAN IS
34   BEGIN
35     RETURN (TRUE);
36   END AFTERPFORM;
37 
38   FUNCTION BETWEENPAGE RETURN BOOLEAN IS
39   BEGIN
40     RETURN (TRUE);
41   END BETWEENPAGE;
42 
43   FUNCTION CF_CUST_NAMEFORMULA(CUST_ID IN VARCHAR2
44                               ,CUST_NAME IN VARCHAR2) RETURN CHAR IS
45     V_CUST_NAME VARCHAR2(360);
46   BEGIN
47     IF CUST_ID IS NOT NULL AND CUST_NAME IS NULL THEN
48       SELECT
49         DISTINCT
50         PA.PARTY_NAME
51       INTO V_CUST_NAME
52       FROM
53         HZ_CUST_ACCOUNTS CA,
54         HZ_PARTIES PA
55       WHERE CA.PARTY_ID = PA.PARTY_ID
56         AND CA.ACCOUNT_NUMBER = CUST_ID;
57       RETURN (V_CUST_NAME);
58     ELSE
59       RETURN (CUST_NAME);
60     END IF;
61   EXCEPTION
62     WHEN OTHERS THEN
63       RETURN (CUST_NAME);
64   END CF_CUST_NAMEFORMULA;
65 
66 END IGI_IGIRCCBR_XMLP_PKG;