eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.GML_POR03USR_XMLP_PKG

Source


1 PACKAGE BODY GML_POR03USR_XMLP_PKG AS
2 /* $Header: POR03USRB.pls 120.0 2007/12/24 13:28:45 nchinnam noship $ */
3   FUNCTION AFTERPFORM RETURN BOOLEAN IS
4   BEGIN
5     PARAM_WHERE_CLAUSE := ' ';
6     PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and rh.orgn_code = NVL(:p_orgn_code,rh.orgn_code)';
7     IF (P_PO_RETURNS = 'Y') THEN
8       IF (P_STOCK_RETURNS = 'Y') THEN
9         NULL;
10       ELSIF (P_STOCK_RETURNS <> 'Y') THEN
11         PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and rcvh.recv_type = 1 ';
12       END IF;
13     ELSIF (P_PO_RETURNS <> 'Y') THEN
14       IF (P_STOCK_RETURNS = 'Y') THEN
15         PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and rcvh.recv_type = 2 ';
16       ELSIF (P_STOCK_RETURNS <> 'Y') THEN
17         PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and rcvh.recv_type NOT IN(1,2) ';
18       END IF;
19     END IF;
20     IF (P_ITEM_NO_FROM IS NOT NULL AND P_ITEM_NO_TO IS NOT NULL) THEN
21       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and im.item_no between
22                             					:p_item_no_from and :p_item_no_to ';
23     ELSIF (P_ITEM_NO_FROM IS NOT NULL AND P_ITEM_NO_TO IS NULL) THEN
24       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and im.item_no >=:p_item_no_from ';
25     ELSIF (P_ITEM_NO_FROM IS NULL AND P_ITEM_NO_TO IS NOT NULL) THEN
26       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and im.item_no <=:p_item_no_to ';
27     ELSIF (P_ITEM_NO_FROM IS NULL AND P_ITEM_NO_TO IS NULL) THEN
28       NULL;
29     END IF;
30     IF (P_LOT_NO_FROM IS NOT NULL AND P_LOT_NO_TO IS NOT NULL) THEN
31       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and lm.lot_no between
32                             					:p_lot_no_from and :p_lot_no_to ';
33     ELSIF (P_LOT_NO_FROM IS NOT NULL AND P_LOT_NO_TO IS NULL) THEN
34       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and lm.lot_no >= :p_lot_no_from ';
35     ELSIF (P_LOT_NO_FROM IS NULL AND P_LOT_NO_TO IS NOT NULL) THEN
36       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and lm.lot_no <= :p_lot_no_to ';
37     ELSIF (P_LOT_NO_FROM IS NULL AND P_LOT_NO_TO IS NULL) THEN
38       NULL;
39     END IF;
40     IF (P_SUBLOT_NO_FROM IS NOT NULL AND P_SUBLOT_NO_TO IS NOT NULL) THEN
41       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and lm.sublot_no between
42                             					:p_sublot_no_from and :p_sublot_no_to ';
43     ELSIF (P_SUBLOT_NO_FROM IS NOT NULL AND P_SUBLOT_NO_TO IS NULL) THEN
44       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and lm.sublot_no >= :p_sublot_no_from ';
45     ELSIF (P_SUBLOT_NO_FROM IS NULL AND P_SUBLOT_NO_TO IS NOT NULL) THEN
46       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and lm.sublot_no <= :p_sublot_no_to ';
47     ELSIF (P_SUBLOT_NO_FROM IS NULL AND P_SUBLOT_NO_TO IS NULL) THEN
48       NULL;
49     END IF;
50     IF (P_RETURN_NO_FROM IS NOT NULL AND P_RETURN_NO_TO IS NOT NULL) THEN
51       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and rh.return_no between
52                             					:p_return_no_from and :p_return_no_to ';
53     ELSIF (P_RETURN_NO_FROM IS NOT NULL AND P_RETURN_NO_TO IS NULL) THEN
54       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and rh.return_no >= :p_return_no_from ';
55     ELSIF (P_RETURN_NO_FROM IS NULL AND P_RETURN_NO_TO IS NOT NULL) THEN
56       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and rh.return_no <= :p_return_no_to ';
57     ELSIF (P_RETURN_NO_FROM IS NULL AND P_RETURN_NO_TO IS NULL) THEN
58       NULL;
59     END IF;
60     IF (P_RETURN_DATE_FROM IS NOT NULL AND P_RETURN_DATE_TO IS NOT NULL) THEN
61       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and TRUNC(rh.return_date) between
62                             					TRUNC(:p_return_date_from) and TRUNC(:p_return_date_to) ';
63     ELSIF (P_RETURN_DATE_FROM IS NOT NULL AND P_RETURN_DATE_TO IS NULL) THEN
64       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and TRUNC(rh.return_date) >= TRUNC(:p_return_date_from) ';
65     ELSIF (P_RETURN_DATE_FROM IS NULL AND P_RETURN_DATE_TO IS NOT NULL) THEN
66       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and TRUNC(rh.return_date) <= TRUNC(:p_return_date_to) ';
67     ELSIF (P_RETURN_DATE_FROM IS NULL AND P_RETURN_DATE_TO IS NULL) THEN
68       NULL;
69     END IF;
70     IF (P_VENDOR_NO_FROM IS NOT NULL AND P_VENDOR_NO_TO IS NOT NULL) THEN
71       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and vm.vendor_no between
72                             					:p_vendor_no_from and :p_vendor_no_to ';
73     ELSIF (P_VENDOR_NO_FROM IS NOT NULL AND P_VENDOR_NO_TO IS NULL) THEN
74       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and vm.vendor_no >= :p_vendor_no_from ';
75     ELSIF (P_VENDOR_NO_FROM IS NULL AND P_VENDOR_NO_TO IS NOT NULL) THEN
76       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and vm.vendor_no <= :p_vendor_no_to ';
77     ELSIF (P_VENDOR_NO_FROM IS NULL AND P_VENDOR_NO_TO IS NULL) THEN
78       NULL;
79     END IF;
80     IF (P_RETURN_CODE_FROM IS NOT NULL AND P_RETURN_CODE_TO IS NOT NULL) THEN
81       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and rd.return_code between
82                             					:p_return_code_from and :p_return_code_to ';
83     ELSIF (P_RETURN_CODE_FROM IS NOT NULL AND P_RETURN_CODE_TO IS NULL) THEN
84       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and rd.return_code >= :p_return_code_from ';
85     ELSIF (P_RETURN_CODE_FROM IS NULL AND P_RETURN_CODE_TO IS NOT NULL) THEN
86       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and rd.return_code <= :p_return_code_to ';
87     ELSIF (P_RETURN_CODE_FROM IS NULL AND P_RETURN_CODE_TO IS NULL) THEN
88       NULL;
89     END IF;
90     IF (P_WHSE_CODE_FROM IS NOT NULL AND P_WHSE_CODE_TO IS NOT NULL) THEN
91       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and tp.whse_code between
92                             					:p_whse_code_from and :p_whse_code_to ';
93     ELSIF (P_WHSE_CODE_FROM IS NOT NULL AND P_WHSE_CODE_TO IS NULL) THEN
94       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and tp.whse_code >= :p_whse_code_from ';
95     ELSIF (P_WHSE_CODE_FROM IS NULL AND P_WHSE_CODE_TO IS NOT NULL) THEN
96       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and tp.whse_code <= :p_whse_code_to ';
97     ELSIF (P_WHSE_CODE_FROM IS NULL AND P_WHSE_CODE_TO IS NULL) THEN
98       NULL;
99     END IF;
100     CP_RETURN_DATE_FROM := to_char(P_RETURN_DATE_FROM,'DD/MM/YYYY');
101     CP_RETURN_DATE_TO := to_char(P_RETURN_DATE_TO,'DD/MM/YYYY');
102     RETURN (TRUE);
103   END AFTERPFORM;
104 
105   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
106   BEGIN
107     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
108     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
109     PRN_ROWS := 0;
110     BEGIN
111       SELECT
112         ORGN_NAME
113       INTO CP_ORGN_NAME
114       FROM
115         SY_ORGN_MST
116       WHERE ORGN_CODE = P_ORGN_CODE;
117     EXCEPTION
118       WHEN OTHERS THEN
119         NULL;
120     END;
121     RETURN (TRUE);
122   END BEFOREREPORT;
123 
124   FUNCTION AFTERREPORT RETURN BOOLEAN IS
125   BEGIN
126     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
127     RETURN (TRUE);
128   END AFTERREPORT;
129 
130   FUNCTION CP_ROWS_P RETURN NUMBER IS
131   BEGIN
132     RETURN CP_ROWS;
133   END CP_ROWS_P;
134 
135   FUNCTION CP_ORGN_NAME_P RETURN VARCHAR2 IS
136   BEGIN
137     RETURN CP_ORGN_NAME;
138   END CP_ORGN_NAME_P;
139 
140 END GML_POR03USR_XMLP_PKG;
141