1 PACKAGE BODY EAM_EAMMIPCK_XMLP_PKG AS
2 /* $Header: EAMMIPCKB.pls 120.0 2007/12/24 15:35:54 krreddy noship $ */
3 FUNCTION CF_REASONFORMULA RETURN CHAR IS
4 BEGIN
5 RETURN ' ';
6 END CF_REASONFORMULA;
7
8 FUNCTION CF_QTY_PICKEDFORMULA RETURN CHAR IS
9 BEGIN
10 RETURN ' ';
11 END CF_QTY_PICKEDFORMULA;
12
13 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
14 BEGIN
15 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
16 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
17 P_ORG_ID_V:=P_ORG_IDVALIDTRIGGER;
18 IF (P_ORDER_BY_USED = 1) THEN
19 P_ORDER_BY := 'mrl.request_number';
20 ELSE
21 P_ORDER_BY := 'mrl.date_required desc';
22 END IF;
23 BEGIN
24 SELECT
25 MEANING
26 INTO P_ORDER_BY_DISP
27 FROM
28 MFG_LOOKUPS
29 WHERE LOOKUP_TYPE = 'EAM_MATERIAL_ISSUE_SORT_BY'
30 AND LOOKUP_CODE = P_ORDER_BY_USED;
31 EXCEPTION
32 WHEN OTHERS THEN
33 NULL;
34 END;
35 IF (P_DATE_REQUIRED_START IS NOT NULL) THEN
36 IF (P_DATE_REQUIRED_END IS NOT NULL) THEN
37 P_WHERE_CLAUSE := P_WHERE_CLAUSE || ' AND mrl.date_required BETWEEN ''' || P_DATE_REQUIRED_START || ''' AND ''' || P_DATE_REQUIRED_END || '''';
38 ELSE
39 P_WHERE_CLAUSE := P_WHERE_CLAUSE || ' AND mrl.date_required >=''' || P_DATE_REQUIRED_START || '''';
40 END IF;
41 END IF;
42 IF (P_REQUEST_NUMBER_START IS NOT NULL) THEN
43 IF (P_REQUEST_NUMBER_END IS NOT NULL) THEN
44 P_WHERE_CLAUSE := P_WHERE_CLAUSE || ' AND mrl.request_number BETWEEN ' || P_REQUEST_NUMBER_START || ' AND ' || P_REQUEST_NUMBER_END;
45 ELSE
46 P_WHERE_CLAUSE := P_WHERE_CLAUSE || ' AND mrl.request_number >=' || P_REQUEST_NUMBER_START;
47 END IF;
48 END IF;
49 IF (P_SOURCE_LOCATOR IS NOT NULL) THEN
50 P_WHERE_CLAUSE := P_WHERE_CLAUSE || ' AND mmtt.locator_id=' || P_SOURCE_LOCATOR;
51 BEGIN
52 SELECT
53 CONCATENATED_SEGMENTS
54 INTO P_SOURCE_LOCATOR_NAME
55 FROM
56 MTL_ITEM_LOCATIONS_KFV
57 WHERE INVENTORY_LOCATION_ID = P_SOURCE_LOCATOR
58 AND ORGANIZATION_ID = P_ORG_ID
59 AND SUBINVENTORY_CODE = P_SOURCE_SUBINVENTORY;
60 EXCEPTION
61 WHEN OTHERS THEN
62 NULL;
63 END;
64 END IF;
65 IF (P_SOURCE_SUBINVENTORY IS NOT NULL) THEN
66 P_WHERE_CLAUSE := P_WHERE_CLAUSE || ' AND mmtt.subinventory_code =''' || P_SOURCE_SUBINVENTORY || '''';
67 END IF;
68 IF (P_REQUESTER IS NOT NULL) THEN
69 BEGIN
70 SELECT
71 USER_NAME
72 INTO P_REQUESTER_NAME
73 FROM
74 FND_USER
75 WHERE USER_ID = P_REQUESTER;
76 EXCEPTION
77 WHEN OTHERS THEN
78 NULL;
79 END;
80 P_WHERE_CLAUSE := P_WHERE_CLAUSE || ' AND fnd.user_name=''' || P_REQUESTER_NAME || '''';
81 END IF;
82 IF (P_WORK_ORDER IS NOT NULL) THEN
83 P_WHERE_CLAUSE := P_WHERE_CLAUSE || ' AND wewov.wip_entity_id =' || P_WORK_ORDER;
84 BEGIN
85 SELECT
86 WIP_ENTITY_NAME
87 INTO P_WORK_ORDER_NAME
88 FROM
89 WIP_ENTITIES
90 WHERE WIP_ENTITY_ID = P_WORK_ORDER
91 AND ORGANIZATION_ID = P_ORG_ID;
92 EXCEPTION
93 WHEN OTHERS THEN
94 NULL;
95 END;
96 END IF;
97 IF (P_MATERIAL IS NOT NULL) THEN
98 P_WHERE_CLAUSE := P_WHERE_CLAUSE || ' AND mmtt.inventory_item_id=' || P_MATERIAL;
99 BEGIN
100 SELECT
101 CONCATENATED_SEGMENTS
102 INTO P_MATERIAL_NAME
103 FROM
104 MTL_SYSTEM_ITEMS_KFV
105 WHERE INVENTORY_ITEM_ID = P_MATERIAL
106 AND ORGANIZATION_ID = P_ORG_ID;
107 EXCEPTION
108 WHEN OTHERS THEN
109 NULL;
110 END;
111 END IF;
112 RETURN (TRUE);
113 END BEFOREREPORT;
114
115 FUNCTION P_ORG_IDVALIDTRIGGER RETURN BOOLEAN IS
116 BEGIN
117 SELECT
118 ORG.ORGANIZATION_CODE
119 INTO P_ORG_NAME
120 FROM
121 ORG_ORGANIZATION_DEFINITIONS ORG
122 WHERE ORG.ORGANIZATION_ID = P_ORG_ID;
123 RETURN (TRUE);
124 RETURN NULL;
125 EXCEPTION
126 WHEN OTHERS THEN
127 RETURN NULL;
128 END P_ORG_IDVALIDTRIGGER;
129
130 FUNCTION CF_REFFORMULA RETURN CHAR IS
131 BEGIN
132 RETURN ' ';
133 END CF_REFFORMULA;
134
135 FUNCTION P_WORK_ORDERVALIDTRIGGER RETURN BOOLEAN IS
136 BEGIN
137 RETURN (TRUE);
138 END P_WORK_ORDERVALIDTRIGGER;
139
140 FUNCTION P_MATERIALVALIDTRIGGER RETURN BOOLEAN IS
141 BEGIN
142 RETURN (TRUE);
143 END P_MATERIALVALIDTRIGGER;
144
145 FUNCTION P_ORDER_BY_USEDVALIDTRIGGER RETURN BOOLEAN IS
146 BEGIN
147 RETURN (TRUE);
148 END P_ORDER_BY_USEDVALIDTRIGGER;
149
150 FUNCTION P_SOURCE_LOCATORVALIDTRIGGER RETURN BOOLEAN IS
151 BEGIN
152 RETURN (TRUE);
153 END P_SOURCE_LOCATORVALIDTRIGGER;
154
155 FUNCTION AFTERREPORT RETURN BOOLEAN IS
156 BEGIN
157 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
158 RETURN (TRUE);
159 END AFTERREPORT;
160
161 END EAM_EAMMIPCK_XMLP_PKG;
162
163