1 PACKAGE BODY FA_FAS811_XMLP_PKG AS
2 /* $Header: FAS811B.pls 120.0.12010000.1 2008/07/28 13:15:36 appldev ship $ */
3 FUNCTION REPORT_NAMEFORMULA(COMPANY_NAME IN VARCHAR2
4 ,C_CAT_FORMATTED IN VARCHAR2) RETURN VARCHAR2 IS
5 BEGIN
6 DECLARE
7 L_REPORT_NAME VARCHAR2(80);
8 BEGIN
9 RP_COMPANY_NAME := COMPANY_NAME;
10 C_CATEGORY := C_CAT_FORMATTED;
11 SELECT
12 CP.USER_CONCURRENT_PROGRAM_NAME
13 INTO
14 L_REPORT_NAME
15 FROM
16 FND_CONCURRENT_PROGRAMS_VL CP,
17 FND_CONCURRENT_REQUESTS CR
18 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
19 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
20 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
21 l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
22 RP_REPORT_NAME := L_REPORT_NAME;
23 RETURN (L_REPORT_NAME);
24 EXCEPTION
25 WHEN OTHERS THEN
26 RP_REPORT_NAME := 'MASS TRANSFERS PREVIEW REPORT';
27 RETURN ('MASS TRANSFERS PREVIEW REPORT');
28 END;
29 RETURN NULL;
30 END REPORT_NAMEFORMULA;
31 FUNCTION AFTERREPORT RETURN BOOLEAN IS
32 BEGIN
33 RETURN (TRUE);
34 END AFTERREPORT;
35 FUNCTION FROM_GL_CONDFORMULA(FROM_GL_CCID IN NUMBER) RETURN VARCHAR2 IS
36 BEGIN
37 IF (FROM_GL_CCID IS NULL) THEN
38 RETURN ('1=1');
39 ELSE
40 RETURN ('DH.Code_Combination_ID = ' || TO_CHAR(FROM_GL_CCID));
41 END IF;
42 RETURN NULL;
43 END FROM_GL_CONDFORMULA;
44 FUNCTION FROM_LOC_CONDFORMULA(FROM_LOCATION_ID IN NUMBER) RETURN VARCHAR2 IS
45 BEGIN
46 IF (FROM_LOCATION_ID IS NULL) THEN
47 From_Loc_Cond:='1=1';
48 RETURN ('1=1');
49 ELSE
50 From_Loc_Cond:='DH.Location_ID = ' || TO_CHAR(FROM_LOCATION_ID);
51 RETURN ('DH.Location_ID = ' || TO_CHAR(FROM_LOCATION_ID));
52 END IF;
53 RETURN NULL;
54 END FROM_LOC_CONDFORMULA;
55 FUNCTION FROM_EMP_CONDFORMULA(FROM_EMPLOYEE_ID IN NUMBER) RETURN VARCHAR2 IS
56 BEGIN
57 IF (FROM_EMPLOYEE_ID IS NULL) THEN
58 From_Emp_Cond:='and 1=1';
59 RETURN ('1=1');
60 ELSE
61 From_Emp_Cond:='DH.Assigned_To = ' || TO_CHAR(FROM_EMPLOYEE_ID);
62 RETURN ('DH.Assigned_To = ' || TO_CHAR(FROM_EMPLOYEE_ID));
63 END IF;
64 RETURN NULL;
65 END FROM_EMP_CONDFORMULA;
66 FUNCTION C_BREAKFORMULA RETURN NUMBER IS
67 BEGIN
68 RETURN (1);
69 END C_BREAKFORMULA;
70 FUNCTION CP_1FORMULA RETURN NUMBER IS
71 BEGIN
72 RETURN (100);
73 END CP_1FORMULA;
74 FUNCTION ACCT_BAL_APROMPT_P RETURN VARCHAR2 IS
75 BEGIN
76 RETURN ACCT_BAL_APROMPT;
77 END ACCT_BAL_APROMPT_P;
78 FUNCTION ACCT_CC_APROMPT_P RETURN VARCHAR2 IS
79 BEGIN
80 RETURN ACCT_CC_APROMPT;
81 END ACCT_CC_APROMPT_P;
82 FUNCTION CAT_MAJ_RPROMPT_P RETURN VARCHAR2 IS
83 BEGIN
84 RETURN CAT_MAJ_RPROMPT;
85 END CAT_MAJ_RPROMPT_P;
86 FUNCTION CP_100_P RETURN NUMBER IS
87 BEGIN
88 RETURN CP_100;
89 END CP_100_P;
90 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
91 BEGIN
92 RETURN RP_COMPANY_NAME;
93 END RP_COMPANY_NAME_P;
94 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
95 BEGIN
96 RETURN RP_REPORT_NAME;
97 END RP_REPORT_NAME_P;
98 FUNCTION C_CATEGORY_P RETURN VARCHAR2 IS
99 BEGIN
100 RETURN C_CATEGORY;
101 END C_CATEGORY_P;
102 --added
103 function BeforeReport return boolean is
104 begin
105 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
106 SELECT
107 SUBSTR(ARGUMENT1,INSTR(ARGUMENT1,'"',1,1)+1,(INSTR(ARGUMENT1,'"',1,2)-INSTR(ARGUMENT1,'"',1,1) -1)),
108 SUBSTR(ARGUMENT2,INSTR(ARGUMENT2,'"',1,1)+1,INSTR(ARGUMENT2,'"',1,2)-INSTR(ARGUMENT2,'"',1,1) -1)
109 into P_BOOK1,P_MASS_TRANSFER_ID1
110 FROM FND_CONCURRENT_REQUESTS
111 WHERE REQUEST_ID =P_CONC_REQUEST_ID;
112 /*SRW.USER_EXIT('FND SRWINIT');
113 select category_flex_structure
114 into :P_CAT_FLEX_STRUCT
115 from fa_system_controls;
116 SRW.USER_EXIT('FND FLEXSQL CODE="CAT#"
117 NUM=":P_CAT_FLEX_STRUCT"
118 APPL_SHORT_NAME="OFA"
119 TABLEALIAS="cat"
120 OUTPUT=":P_CAT_SEGS"
121 MODE="SELECT"
122 DISPLAY="ALL"');*/
123 return (TRUE);
124 end;
125 END FA_FAS811_XMLP_PKG;
126