1 PACKAGE BODY CSE_CSEBOFLD_XMLP_PKG AS
2 /* $Header: CSEBOFLDB.pls 120.0 2007/12/24 12:54:58 nchinnam noship $ */
3 FUNCTION AFTERPFORM RETURN BOOLEAN IS
4 L_STRING1 VARCHAR2(400);
5 L_STRING2 VARCHAR2(200);
6 BEGIN
7 IF P_MOVE_ORDER IS NOT NULL THEN
8 L_STRING1 := ' AND mtrh.request_number = :P_MOVE_ORDER';
9 END IF;
10 IF P_MEANING IS NOT NULL THEN
11 L_STRING1 := L_STRING1 || ' AND mln.meaning = :P_MEANING';
12 END IF;
13 IF P_ORGANIZATION_NAME IS NOT NULL THEN
14 L_STRING1 := L_STRING1 || ' AND hr2.name = :P_ORGANIZATION_NAME';
15 END IF;
16 IF P_FROM IS NOT NULL THEN
17 L_STRING1 := L_STRING1 || ' AND mmt.transaction_date >= fnd_date.canonical_to_date(:P_FROM)
18 and mmt.transaction_date <= nvl(fnd_date.canonical_to_date(:P_TO), mmt.transaction_date)';
19 ELSE
20 L_STRING1 := L_STRING1 || ' AND mmt.transaction_date <= nvl(fnd_date.canonical_to_date(:P_TO),mmt.transaction_date)';
21 END IF;
22 IF P_LOCATION_CODE IS NOT NULL THEN
23 L_STRING1 := L_STRING1 || ' AND hrl.location_code = :P_LOCATION_CODE';
24 END IF;
25 L_WHERE_CLAUSE1 := L_STRING1;
26 IF P_PROJECT_NUMBER IS NOT NULL THEN
27 L_STRING2 := L_STRING2 || ' AND ppa.segment1 = :P_PROJECT_NUMBER';
28 END IF;
29 IF P_TASK_NUMBER IS NOT NULL THEN
30 L_STRING2 := L_STRING2 || ' AND pt.task_number = :P_TASK_NUMBER';
31 END IF;
32 L_WHERE_CLAUSE2 := L_STRING2;
33 if L_WHERE_CLAUSE2 is null then L_WHERE_CLAUSE2:= 'and 1=1'; end if;
34 RETURN (TRUE);
35 END AFTERPFORM;
36
37 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
38 BEGIN
39 RETURN (TRUE);
40 END BETWEENPAGE;
41
42 FUNCTION P_TOVALIDTRIGGER RETURN BOOLEAN IS
43 BEGIN
44 IF P_FROM IS NOT NULL THEN
45 IF NVL(FND_DATE.CANONICAL_TO_DATE(P_TO)
46 ,SYSDATE) < FND_DATE.CANONICAL_TO_DATE(P_FROM) THEN
47 RETURN (FALSE);
48 ELSE
49 RETURN (TRUE);
50 END IF;
51 ELSE
52 RETURN (TRUE);
53 END IF;
54 END P_TOVALIDTRIGGER;
55
56 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
57 BEGIN
58 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
59 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
60 RETURN (TRUE);
61 END BEFOREREPORT;
62
63 FUNCTION AFTERREPORT RETURN BOOLEAN IS
64 BEGIN
65 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
66 RETURN (TRUE);
67 END AFTERREPORT;
68
69 END CSE_CSEBOFLD_XMLP_PKG;
70
71
72