1 PACKAGE BODY IGI_IGIGITSR_XMLP_PKG AS
2 /* $Header: IGIGITSRB.pls 120.0.12010000.1 2008/07/29 08:58:16 appldev ship $ */
3 FUNCTION AFTERREPORT RETURN BOOLEAN IS
4 BEGIN
5 ROLLBACK;
6 IF P_DEBUG_SWITCH = 'Y' THEN
7 /*SRW.MESSAGE(104
8 ,'Report has completed')*/NULL;
9 END IF;
10 IF P_RUN_AOL = 'Y' THEN
11 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
12 END IF;
13 RETURN (TRUE);
14 END AFTERREPORT;
15
16 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
17 BEGIN
18 IF P_RUN_AOL = 'Y' THEN
19 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
20 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
21 END IF;
22 SELECT
23 GSOB.CURRENCY_CODE
24 INTO LP_CURRENCY_CODE
25 FROM
26 GL_SETS_OF_BOOKS GSOB
27 WHERE GSOB.SET_OF_BOOKS_ID = P_SET_OF_BOOKS_ID;
28 SELECT
29 CP.USER_CONCURRENT_PROGRAM_NAME
30 INTO RP_REPORT_TITLE
31 FROM
32 FND_CONCURRENT_PROGRAMS_TL CP,
33 FND_CONCURRENT_REQUESTS CR
34 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
35 AND CP.LANGUAGE = USERENV('LANG')
36 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
37 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
38 IF P_DEBUG_SWITCH = 'Y' THEN
39 /*SRW.MESSAGE(101
40 ,'End of Before Report Trigger')*/NULL;
41 END IF;
42 RETURN (TRUE);
43 END BEFOREREPORT;
44
45 FUNCTION CF_DATA_FOUNDFORMULA(IT_LINE_NUM IN NUMBER) RETURN NUMBER IS
46 BEGIN
47 IF IT_LINE_NUM IS NULL THEN
48 RP_DATA_FOUND := 'N';
49 ELSE
50 RP_DATA_FOUND := 'Y';
51 END IF;
52 RETURN (0);
53 END CF_DATA_FOUNDFORMULA;
54
55 FUNCTION RP_DATA_FOUND_P RETURN VARCHAR2 IS
56 BEGIN
57 RETURN RP_DATA_FOUND;
58 END RP_DATA_FOUND_P;
59
60 FUNCTION RP_REPORT_TITLE_P RETURN VARCHAR2 IS
61 BEGIN
62 RETURN RP_REPORT_TITLE;
63 END RP_REPORT_TITLE_P;
64
65 END IGI_IGIGITSR_XMLP_PKG;