[Home] [Help]
PACKAGE BODY: APPS.FA_FASPRJ_XMLP_PKG
Source
1 PACKAGE BODY FA_FASPRJ_XMLP_PKG AS
2 /* $Header: FASPRJB.pls 120.0.12010000.1 2008/07/28 13:17:16 appldev ship $ */
3 FUNCTION REPORT_NAMEFORMULA(COMPANY_NAME IN VARCHAR2) RETURN VARCHAR2 IS
4 BEGIN
5 DECLARE
6 L_REPORT_NAME VARCHAR2(80);
7 L_CONC_PROGRAM_ID NUMBER;
8 BEGIN
9 RP_COMPANY_NAME := COMPANY_NAME;
10 SELECT
11 CR.CONCURRENT_PROGRAM_ID
12 INTO L_CONC_PROGRAM_ID
13 FROM
14 FND_CONCURRENT_REQUESTS CR
15 WHERE CR.PROGRAM_APPLICATION_ID = 140
16 AND CR.REQUEST_ID = P_CONC_REQUEST_ID;
17 SELECT
18 CP.USER_CONCURRENT_PROGRAM_NAME
19 INTO L_REPORT_NAME
20 FROM
21 FND_CONCURRENT_PROGRAMS_VL CP
22 WHERE CP.CONCURRENT_PROGRAM_ID = L_CONC_PROGRAM_ID
23 AND CP.APPLICATION_ID = 140;
24
25 L_REPORT_NAME := SUBSTR(L_REPORT_NAME,1,INSTR(L_REPORT_NAME,' (XML)'));
26
27 RP_REPORT_NAME := L_REPORT_NAME;
28
29 RETURN (L_REPORT_NAME);
30 EXCEPTION
31 WHEN OTHERS THEN
32 RP_REPORT_NAME := ':Depreciation Projection Report:';
33 RETURN (RP_REPORT_NAME);
34 END;
35 RETURN NULL;
36 END REPORT_NAMEFORMULA;
37
38 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
39 BEGIN
40 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
41 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
42
43
44 select SUBSTR(argument1,INSTR(argument1,'=',1)+1,LENGTH(argument1)),
45 SUBSTR(argument2,INSTR(argument2,'=',1)+1,LENGTH(argument2)),
46 SUBSTR(argument3,INSTR(argument3,'=',1)+1,LENGTH(argument3)),
47 SUBSTR(argument4,INSTR(argument4,'=',1)+1,LENGTH(argument4)),
48 SUBSTR(argument5,INSTR(argument5,'=',1)+1,LENGTH(argument5)),
49 SUBSTR(argument6,INSTR(argument6,'=',1)+1,LENGTH(argument6)),
50 SUBSTR(argument7,INSTR(argument7,'=',1)+1,LENGTH(argument7)),
51 SUBSTR(argument8,INSTR(argument8,'=',1)+1,LENGTH(argument8))
52 into
53 P_FAPROJ_REQ_ID,
54 P_DISPLAY_ASSET_NUMBER,
55 P_DISPLAY_COSTCTR,
56 RP_PROJ_INTERIM_TABLE,
57 P_BOOK1,
58 P_BOOK2,
59 P_BOOK3,
60 P_BOOK4
61 from FND_CONCURRENT_REQUESTS
62 where request_id=P_CONC_REQUEST_ID;
63
64 RP_PROJ_INTERIM_TABLE_noquotes := RP_PROJ_INTERIM_TABLE;
65 RP_PROJ_INTERIM_TABLE := ''' || RP_PROJ_INTERIM_TABLE || ''';
66
67 P_BOOK1:= replace(P_BOOK1,'"','');
68 P_BOOK2:= replace(P_BOOK2,'"','');
69 P_BOOK3:= replace(P_BOOK3,'"','');
70 P_BOOK4:= replace(P_BOOK4,'"','');
71
72 P_BOOK1:= replace(P_BOOK1,chr(0),'');
73 P_BOOK2:= replace(P_BOOK2,chr(0),'');
74 P_BOOK3:= replace(P_BOOK3,chr(0),'');
75 P_BOOK4:= replace(P_BOOK4,chr(0),'');
76
77 -- P_FAPROJ_REQ_ID=4490298, P_DISPLAY_ASSET_NUMBER=YES, P_DISPLAY_COSTCTR=YES, RP_PROJ_INTERIM_TABLE=FA_PROJ_INTERIM_4490298, P_BOOK1="VIS CORP", P_BOOK2="OPS CORP", P_BOOK3="OPS BUDGET", P_BOOK4="VIS TAX"
78
79 RETURN (TRUE);
80 END BEFOREREPORT;
81
82 FUNCTION AFTERREPORT RETURN BOOLEAN IS
83 BEGIN
84 DECLARE
85 OUT_ORACLE_SCHEMA VARCHAR2(100);
86 OUT_STATUS VARCHAR2(100);
87 OUT_INDUSTRY VARCHAR2(100);
88 L_X BOOLEAN;
89 BEGIN
90 IF (TO_NUMBER(P_FAPROJ_REQ_ID) <> 0) THEN
91 EXECUTE IMMEDIATE
92 'drop table ' || RP_PROJ_INTERIM_TABLE;
93 END IF;
94 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
95 EXCEPTION
96 WHEN /*SRW.DO_SQL_FAILURE*/OTHERS THEN
97 NULL;
98 END;
99 RETURN (TRUE);
100 END AFTERREPORT;
101
102 FUNCTION SET_TABLE_NAMEFORMULA RETURN VARCHAR2 IS
103 BEGIN
104 /*SRW.REFERENCE(RP_PROJ_INTERIM_TABLE)*/NULL;
105 RP_PROJ_INTERIM_TABLE := 'FA_PROJ_INTERIM_' || TO_CHAR(TO_NUMBER(P_FAPROJ_REQ_ID));
106 RETURN (RP_PROJ_INTERIM_TABLE);
107 END SET_TABLE_NAMEFORMULA;
108
109 FUNCTION DISP_CC RETURN BOOLEAN IS
110 BEGIN
111 RETURN (P_DISPLAY_COSTCTR = 'YES');
112 END DISP_CC;
113
114 FUNCTION DISP_AN RETURN BOOLEAN IS
115 BEGIN
116 RETURN (P_DISPLAY_ASSET_NUMBER = 'YES');
117 END DISP_AN;
118
119 FUNCTION BK2 RETURN BOOLEAN IS
120 BEGIN
121 RETURN (P_BOOK2 IS NOT NULL);
122 END BK2;
123
124 FUNCTION BK3 RETURN BOOLEAN IS
125 BEGIN
126 RETURN (P_BOOK3 IS NOT NULL);
127 END BK3;
128
129 FUNCTION BK4 RETURN BOOLEAN IS
130 BEGIN
131 RETURN (P_BOOK4 IS NOT NULL);
132 END BK4;
133
134 FUNCTION ACCT_BAL_APROMPT_P RETURN VARCHAR2 IS
135 BEGIN
136 RETURN ACCT_BAL_APROMPT;
137 END ACCT_BAL_APROMPT_P;
138
139 FUNCTION ACCT_CC_APROMPT_P RETURN VARCHAR2 IS
140 BEGIN
141 RETURN ACCT_CC_APROMPT;
142 END ACCT_CC_APROMPT_P;
143
144 FUNCTION CAT_MAJ_RPROMPT_P RETURN VARCHAR2 IS
145 BEGIN
146 RETURN CAT_MAJ_RPROMPT;
147 END CAT_MAJ_RPROMPT_P;
148
149 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
150 BEGIN
151 RETURN RP_COMPANY_NAME;
152 END RP_COMPANY_NAME_P;
153
154 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
155 BEGIN
156 RETURN RP_REPORT_NAME;
157 END RP_REPORT_NAME_P;
158
159 END FA_FASPRJ_XMLP_PKG;
160