PACKAGE BODY: APPS.XTR_XTRLTIGI_XMLP_PKG

Source

1 PACKAGE BODY XTR_XTRLTIGI_XMLP_PKG AS
2 /* $Header: XTRLTIGIB.pls 120.1 2007/12/28 12:54:31 npannamp noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4     L_DMMY_NUM NUMBER;
5     L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
6     CURSOR GET_LANGUAGE_DESC IS
7       SELECT
8         ITEM_NAME,
9         SUBSTR(TEXT
10               ,1
11               ,100) LANG_NAME
12       FROM
13         XTR_SYS_LANGUAGES_VL
14       WHERE MODULE_NAME = 'XTRLTIGI';
15   BEGIN
16 
17     BEGIN
18       COMPANY_NAME_HEADER := CEP_STANDARD.GET_WINDOW_SESSION_TITLE;
19     EXCEPTION
20       WHEN OTHERS THEN
21         FND_MESSAGE.SET_NAME('XTR'
22                             ,'XTR_LOOKUP_ERR');
23         L_MESSAGE := FND_MESSAGE.GET;
24         RAISE_APPLICATION_ERROR(-20101
25                                ,NULL);
26     END;
27     IF (P_DISPLAY_DEBUG = 'Y') THEN
28       NULL;
29     END IF;
30     FOR c IN GET_LANGUAGE_DESC LOOP
31       IF C.ITEM_NAME = 'Z1PARAMETERS' THEN
32         Z1PARAMETERS := C.LANG_NAME;
33       ELSIF C.ITEM_NAME = 'Z1PERIOD_FROM' THEN
34         Z1PERIOD_FROM := C.LANG_NAME;
35       ELSIF C.ITEM_NAME = 'Z1PERIOD_TO' THEN
36         Z1PERIOD_TO := C.LANG_NAME;
37       ELSIF C.ITEM_NAME = 'Z1COMPANY' THEN
38         Z1COMPANY := C.LANG_NAME;
39       ELSIF C.ITEM_NAME = 'Z1PARTY_CODE' THEN
40         Z1PARTY_CODE := C.LANG_NAME;
41       ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
42         Z2PAGE := C.LANG_NAME;
43       ELSIF C.ITEM_NAME = 'Z2ATTENTION' THEN
44         Z2ATTENTION := C.LANG_NAME;
45       ELSIF C.ITEM_NAME = 'Z2BANK_BALANCES' THEN
46         Z2BANK_BALANCES := C.LANG_NAME;
47       ELSIF C.ITEM_NAME = 'Z2FOR' THEN
48         Z2FOR := C.LANG_NAME;
49       ELSIF C.ITEM_NAME = 'Z2INTEREST_COSTS' THEN
50         Z2INTEREST_COSTS := C.LANG_NAME;
51       ELSIF C.ITEM_NAME = 'Z2INTERGROUP_TRANSFER' THEN
52         Z2INTERGROUP_TRANSFER := C.LANG_NAME;
53       ELSIF C.ITEM_NAME = 'Z2INTERGROUP_TRANSFERS' THEN
54         Z2INTERGROUP_TRANSFERS := C.LANG_NAME;
55       ELSIF C.ITEM_NAME = 'Z2IS' THEN
56         Z2IS := C.LANG_NAME;
57       ELSIF C.ITEM_NAME = 'Z2REGARDS' THEN
58         Z2REGARDS := C.LANG_NAME;
59       ELSIF C.ITEM_NAME = 'Z2TOTAL_INTEREST_TO' THEN
60         Z2TOTAL_INTEREST_TO := C.LANG_NAME;
61       END IF;
62     END LOOP;
63     RETURN (TRUE);
64   END BEFOREREPORT;
65 
66   FUNCTION AFTERPFORM RETURN BOOLEAN IS
67   x boolean;
68   BEGIN
69   x:=P_COMPANYVALIDTRIGGER;
70    P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
71     P_PERIOD_FROM1:= TO_CHAR(TO_DATE(P_PERIOD_FROM
72                                     ,'YYYY/MM/DD HH24:MI:SS')
73                             ,'DD-MON-YYYY');
74     P_PERIOD_TO1 := TO_CHAR(TO_DATE(P_PERIOD_TO
75                                   ,'YYYY/MM/DD HH24:MI:SS')
76                           ,'DD-MON-YYYY');
77     P_FROM := P_PERIOD_FROM1;
78     P_TO := P_PERIOD_TO1;
79     COMPANY2 := P_COMPANY;
80     PARTY_CODE2 := P_INTERGROUP_PARTY;
81     SELECT
82       CP.USER_CONCURRENT_PROGRAM_NAME
83     INTO
84       REPORT_SHORT_NAME2
85     FROM
86       FND_CONCURRENT_PROGRAMS_VL CP,
87       FND_CONCURRENT_REQUESTS CR
88     WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
89       AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
90       AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
91 REPORT_SHORT_NAME2 := substr(REPORT_SHORT_NAME2,1,instr(REPORT_SHORT_NAME2,' (XML)'));
92 
93     RETURN (TRUE);
94   END AFTERPFORM;
95 
96   FUNCTION AFTERREPORT RETURN BOOLEAN IS
97   BEGIN
98     RETURN (TRUE);
99   END AFTERREPORT;
100 
101   FUNCTION P_COMPANYVALIDTRIGGER RETURN BOOLEAN IS
102   BEGIN
103     RETURN (TRUE);
104   END P_COMPANYVALIDTRIGGER;
105 
106   FUNCTION BEFOREPFORM RETURN BOOLEAN IS
107   BEGIN
108     RETURN (TRUE);
109   END BEFOREPFORM;
110 
111   FUNCTION BETWEENPAGE RETURN BOOLEAN IS
112   BEGIN
113     RETURN (TRUE);
114   END BETWEENPAGE;
115 
116 END XTR_XTRLTIGI_XMLP_PKG;
117