1 PACKAGE BODY WIP_WIPLBOSP_XMLP_PKG AS
2 /* $Header: WIPLBOSPB.pls 120.1 2008/01/31 12:24:20 npannamp noship $ */
3 FUNCTION JOB_LIMITER RETURN CHARACTER IS
4 LIMIT_JOBS VARCHAR2(500);
5 BEGIN
6 IF (P_FROM_JOB IS NOT NULL) THEN
7 IF (P_TO_JOB IS NOT NULL) THEN
8 LIMIT_JOBS := ' AND WE.WIP_ENTITY_NAME BETWEEN ''' || P_FROM_JOB || ''' AND ''' || P_TO_JOB || '''';
9 ELSE
10 LIMIT_JOBS := ' AND WE.WIP_ENTITY_NAME >= ''' || P_FROM_JOB || '''';
11 END IF;
12 ELSE
13 IF (P_TO_JOB IS NOT NULL) THEN
14 LIMIT_JOBS := ' AND WE.WIP_ENTITY_NAME <= ''' || P_TO_JOB || '''';
15 ELSE
16 LIMIT_JOBS := ' ';
17 END IF;
18 END IF;
19 RETURN (LIMIT_JOBS);
20 END JOB_LIMITER;
21
22 FUNCTION C_DJ_LINE_LIMITERFORMULA RETURN VARCHAR2 IS
23 BEGIN
24 IF (P_FROM_LINE IS NOT NULL) OR (P_TO_LINE IS NOT NULL) THEN
25 RETURN ('AND 1 = 2');
26 ELSE
27 RETURN (' ');
28 END IF;
29 RETURN NULL;
30 END C_DJ_LINE_LIMITERFORMULA;
31
32 FUNCTION C_ASSEMBLY_LIMITERFORMULA RETURN VARCHAR2 IS
33 BEGIN
34 BEGIN
35 IF (P_ITEM_WHERE IS NOT NULL) THEN
36 RETURN ('AND ');
37 ELSE
38 RETURN (' ');
39 END IF;
40 END;
41 RETURN NULL;
42 END C_ASSEMBLY_LIMITERFORMULA;
43
44 FUNCTION LINE_LIMITER RETURN CHARACTER IS
45 LIMIT_LINES VARCHAR2(200);
46 BEGIN
47 IF (P_FROM_LINE IS NOT NULL) THEN
48 IF (P_TO_LINE IS NOT NULL) THEN
49 LIMIT_LINES := ' AND WL.LINE_CODE BETWEEN ''' || P_FROM_LINE || ''' AND ''' || P_TO_LINE || '''';
50 ELSE
51 LIMIT_LINES := ' AND WL.LINE_CODE >= ''' || P_FROM_LINE || '''';
52 END IF;
53 ELSE
54 IF (P_TO_LINE IS NOT NULL) THEN
55 LIMIT_LINES := ' AND WL.LINE_CODE <= ''' || P_TO_LINE || '''';
56 ELSE
57 LIMIT_LINES := ' ';
58 END IF;
59 END IF;
60 RETURN (LIMIT_LINES);
61 END LINE_LIMITER;
62
63 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
64 BEGIN
65 SELECT fifst.id_flex_num
66 into p_item_flex_num
67 FROM fnd_id_flex_structures fifst
68 WHERE fifst.application_id = 401
69 AND fifst.id_flex_code = 'MSTK'
70 AND fifst.enabled_flag = 'Y'
71 AND fifst.freeze_flex_definition_flag = 'Y'
72 and rownum<2;
73
74 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
75
76 QTY_PRECISION := wip_common_xmlp_pkg.get_precision(P_qty_precision);
77 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
78 /*SRW.USER_EXIT('FND FLEXSQL CODE="MSTK" APPL_SHORT_NAME="INV"
79 OUTPUT=":P_ASSEMBLY" MODE="SELECT" DISPLAY="ALL"
80 TABLEALIAS="SI1"')*/NULL;
81 IF (P_FROM_ASSEMBLY IS NOT NULL) THEN
82 IF (P_TO_ASSEMBLY IS NOT NULL) THEN
83 NULL;
84 ELSE
85 NULL;
86 END IF;
87 ELSE
88 IF (P_TO_ASSEMBLY IS NOT NULL) THEN
89 NULL;
90 END IF;
91 END IF;
92 RETURN (TRUE);
93 END BEFOREREPORT;
94
95 FUNCTION OPEN_PO_ONLY RETURN CHARACTER IS
96 OPEN_ONLY VARCHAR2(500);
97 BEGIN
98 IF (P_OPEN_ONLY = 1) THEN
99 OPEN_ONLY := 'and poll.closed_code not in
100 (''FINALLY CLOSED'',''CLOSED'',''CLOSED FOR RECEIVING'')
101 and nvl(poll.cancel_flag,''N'') = ''N''';
102 ELSE
103 OPEN_ONLY := ' ';
104 END IF;
105 RETURN (OPEN_ONLY);
106 END OPEN_PO_ONLY;
107
108 FUNCTION AFTERREPORT RETURN BOOLEAN IS
109 BEGIN
110 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
111 RETURN (TRUE);
112 END AFTERREPORT;
113
114 FUNCTION AFTERPFORM RETURN BOOLEAN IS
115 BEGIN
116 IF P_FROM_ASSEMBLY IS NOT NULL OR P_TO_ASSEMBLY IS NOT NULL THEN
117 P_OUTER := ' ';
118 END IF;
119 RETURN (TRUE);
120 END AFTERPFORM;
121
122 END WIP_WIPLBOSP_XMLP_PKG;
123
124