1 PACKAGE BODY FA_FASMRET_XMLP_PKG AS
2 /* $Header: FASMRETB.pls 120.0.12010000.1 2008/07/28 13:17:04 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 L_REPORT_NAME := substr(L_REPORT_NAME,1,instr(L_REPORT_NAME,' (XML)'));
25 RP_REPORT_NAME := L_REPORT_NAME;
26 RETURN (L_REPORT_NAME);
27 EXCEPTION
28 WHEN OTHERS THEN
29 RP_REPORT_NAME := ':Asset Retirements Report:';
30 RETURN ('REPORT TITLE');
31 END;
32 RETURN NULL;
33 END REPORT_NAMEFORMULA;
34 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
35 BEGIN
36 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
37 SELECT SUBSTR(ARGUMENT1,INSTR(ARGUMENT1,'=',1,1)+1)
38 into P_MASS_RETIREMENT_ID1
39 FROM FND_CONCURRENT_REQUESTS
40 WHERE REQUEST_ID =P_CONC_REQUEST_ID;
41 RETURN (TRUE);
42 END BEFOREREPORT;
43 FUNCTION AFTERREPORT RETURN BOOLEAN IS
44 BEGIN
45 RETURN (TRUE);
46 END AFTERREPORT;
47 FUNCTION GAIN_LOSSFORMULA(NBV IN NUMBER
48 ,PROCEEDS IN NUMBER
49 ,REMOVAL IN NUMBER
50 ,REVAL_RSV_RET IN NUMBER) RETURN NUMBER IS
51 BEGIN
52 RETURN (-NBV + PROCEEDS - REMOVAL + REVAL_RSV_RET);
53 END GAIN_LOSSFORMULA;
54 FUNCTION ACCT_BAL_APROMPT_P RETURN VARCHAR2 IS
55 BEGIN
56 RETURN ACCT_BAL_APROMPT;
57 END ACCT_BAL_APROMPT_P;
58 FUNCTION ACCT_CC_APROMPT_P RETURN VARCHAR2 IS
59 BEGIN
60 RETURN ACCT_CC_APROMPT;
61 END ACCT_CC_APROMPT_P;
62 FUNCTION CAT_MAJ_RPROMPT_P RETURN VARCHAR2 IS
63 BEGIN
64 RETURN CAT_MAJ_RPROMPT;
65 END CAT_MAJ_RPROMPT_P;
66 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
67 BEGIN
68 RETURN RP_COMPANY_NAME;
69 END RP_COMPANY_NAME_P;
70 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
71 BEGIN
72 RETURN RP_REPORT_NAME;
73 END RP_REPORT_NAME_P;
74 END FA_FASMRET_XMLP_PKG;
75