1 PACKAGE BODY WIP_WIPRERTG_XMLP_PKG AS
2 /* $Header: WIPRERTGB.pls 120.1 2008/01/31 12:39:33 npannamp noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
6 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
7 /*SRW.USER_EXIT('FND FLEXSQL CODE="MSTK"
8 APPL_SHORT_NAME="INV" OUTPUT=":P_COMPFLEX"
9 MODE="SELECT" DISPLAY="ALL" TABLEALIAS="M"')*/NULL;
10 RETURN (TRUE);
11 RETURN (TRUE);
12 END BEFOREREPORT;
13
14 FUNCTION ASSEMBLY_SPEC RETURN CHARACTER IS
15 ASSEMBLY_SPEC VARCHAR2(100);
16 BEGIN
17 IF (P_ASSEMBLY IS NOT NULL) THEN
18 ASSEMBLY_SPEC := 'AND E.WIP_ENTITY_NAME = ''' || P_ASSEMBLY || '''';
19 ELSE
20 ASSEMBLY_SPEC := ' ';
21 END IF;
22 RETURN (ASSEMBLY_SPEC);
23 END ASSEMBLY_SPEC;
24
25 FUNCTION LINE_SPEC RETURN CHARACTER IS
26 LINE_SPEC VARCHAR2(50);
27 BEGIN
28 IF (P_LINE_CODE IS NOT NULL) THEN
29 LINE_SPEC := 'AND L.LINE_CODE = ''' || P_LINE_CODE || '''';
30 ELSE
31 LINE_SPEC := ' ';
32 END IF;
33 RETURN (LINE_SPEC);
34 END LINE_SPEC;
35
36 FUNCTION DATE_RANGE RETURN CHARACTER IS
37 DATE_RANGE VARCHAR2(240);
38 BEGIN
39 IF (P_FIRST_UNIT_START_DATE1 IS NOT NULL) THEN
40 IF (P_FIRST_UNIT_START_DATE2 IS NOT NULL) THEN
41 IF (P_FIRST_UNIT_START_DATE1 = P_FIRST_UNIT_START_DATE2) THEN
42 DATE_RANGE := ' AND TRUNC(RS.FIRST_UNIT_START_DATE) = TO_DATE(''' || TO_CHAR(P_FIRST_UNIT_START_DATE1
43 ,'YYYYMMDD') || ''',''YYYYMMDD'')';
44 ELSE
45 DATE_RANGE := ' AND TRUNC(RS.FIRST_UNIT_START_DATE) BETWEEN TO_DATE(''' || TO_CHAR(P_FIRST_UNIT_START_DATE1
46 ,'YYYYMMDD') || ''',''YYYYMMDD'') AND TO_DATE(''' || TO_CHAR(P_FIRST_UNIT_START_DATE2
47 ,'YYYYMMDD') || ''',''YYYYMMDD'')';
48 END IF;
49 ELSE
50 DATE_RANGE := ' AND TRUNC(RS.FIRST_UNIT_START_DATE) >= TO_DATE(''' || TO_CHAR(P_FIRST_UNIT_START_DATE1
51 ,'YYYYMMDD') || ''',''YYYYMMDD'')';
52 END IF;
53 ELSE
54 IF (P_FIRST_UNIT_START_DATE2 IS NOT NULL) THEN
55 DATE_RANGE := ' AND TRUNC(RS.FIRST_UNIT_START_DATE) <= TO_DATE(''' || TO_CHAR(P_FIRST_UNIT_START_DATE2
56 ,'YYYYMMDD') || ''',''YYYYMMDD'')';
57 ELSE
58 DATE_RANGE := ' ';
59 END IF;
60 END IF;
61 RETURN (DATE_RANGE);
62 END DATE_RANGE;
63
64 FUNCTION AFTERREPORT RETURN BOOLEAN IS
65 BEGIN
66 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
67 RETURN (TRUE);
68 END AFTERREPORT;
69
70 FUNCTION AFTERPFORM RETURN BOOLEAN IS
71 BEGIN
72 RETURN (TRUE);
73 END AFTERPFORM;
74
75 END WIP_WIPRERTG_XMLP_PKG;
76