1 PACKAGE BODY INV_INVARCPA_XMLP_PKG AS
2 /* $Header: INVARCPAB.pls 120.1.12020000.2 2012/07/03 09:59:56 pdong ship $ */
3 FUNCTION C_FORMATTEDCURRENCYCODEFORMULA(CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
4 BEGIN
5 /*SRW.REFERENCE(CURRENCY_CODE)*/NULL;
6 DECLARE
7 TEMP_C VARCHAR2(20);
8 BEGIN
9 TEMP_C := '(' || CURRENCY_CODE || ')';
10 RETURN (TEMP_C);
11 END;
12 RETURN NULL;
13 END C_FORMATTEDCURRENCYCODEFORMULA;
14
15 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
16 BEGIN
17 BEGIN
18 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
19 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
20 EXCEPTION
21 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
22 /*SRW.MESSAGE(1
23 ,'Before Report: Init')*/NULL;
24 END;
25 DECLARE
26 P_ORG_ID_CHAR VARCHAR2(100) := (ORGANIZATION_ID);
27 BEGIN
28 /*SRW.USER_EXIT('FND PUTPROFILE NAME="' || 'MFG_ORGANIZATION_ID' || '" FIELD="' || P_ORG_ID_CHAR || '"')*/NULL;
29 EXCEPTION
30 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
31 /*SRW.MESSAGE(020
32 ,'Failed in before report trigger, setting org profile ')*/NULL;
33 RAISE;
34 END;
35 BEGIN
36 NULL;
37 EXCEPTION
38 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
39 /*SRW.MESSAGE(1
40 ,'Before Report: LocatorFlex')*/NULL;
41 END;
42 DECLARE
43 M_RETURN_STATUS VARCHAR2(1);
44 M_MSG_COUNT NUMBER;
45 M_MSG_DATA VARCHAR2(2000);
46 BEGIN
47 IF (WMS_INSTALL.CHECK_INSTALL(X_RETURN_STATUS => M_RETURN_STATUS
48 ,X_MSG_COUNT => M_MSG_COUNT
49 ,X_MSG_DATA => M_MSG_DATA
50 ,P_ORGANIZATION_ID => ORGANIZATION_ID)) THEN
51 P_WMS_INSTALLED := 'TRUE';
52 END IF;
53 END;
54 RETURN (TRUE);
55 END BEFOREREPORT;
56
57 FUNCTION AFTERREPORT RETURN BOOLEAN IS
58 BEGIN
59 BEGIN
60 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
61 RETURN (TRUE);
62 END;
63 RETURN (TRUE);
64 END AFTERREPORT;
65
66 FUNCTION C_ORDERBYFORMULA RETURN VARCHAR2 IS
67 BEGIN
68 DECLARE
69 LOCAL1 VARCHAR2(500);
70 LOCAL_VAR VARCHAR2(500);
71 BEGIN
72 IF P_LOCATOR_FLEXSQL = '' THEN
73 LOCAL1 := ' ';
74 ELSE
75 LOCAL1 := ',' || P_LOCATOR_FLEXSQL;
76 END IF;
77 IF P_SORT_OPTION = 2 THEN
78 LOCAL_VAR := ' ORDER BY CCE.SUBINVENTORY,CCH.CYCLE_COUNT_HEADER_NAME ' || LOCAL1 || ', SYS.ITEM_NUMBER';
79 END IF;
80 IF P_SORT_OPTION = 1 THEN
81 LOCAL_VAR := ' ORDER BY CCE.SUBINVENTORY, CCH.CYCLE_COUNT_HEADER_NAME, SYS.ITEM_NUMBER,' || P_LOCATOR_FLEXSQL;
82 END IF;
83 RETURN (LOCAL_VAR);
84 END;
85 RETURN NULL;
86 END C_ORDERBYFORMULA;
87
88 FUNCTION AFTERPFORM RETURN BOOLEAN IS
89 BEGIN
90 RETURN (TRUE);
91 END AFTERPFORM;
92
93 FUNCTION CF_OUTERMOST_LPNFORMULA(CONTAINER_ENABLED_FLAG IN NUMBER
94 ,OUTERMOST_LPN_ID IN NUMBER) RETURN CHAR IS
95 M_OUTERMOST_LPN VARCHAR2(30) := NULL;
96 --bug14252379,added local variable
97 L_OUTERMOST_LPN_ID NUMBER;
98 BEGIN
99 IF ((P_WMS_INSTALLED = 'TRUE') AND (NVL(CONTAINER_ENABLED_FLAG
100 ,-99) > 0)) THEN
101 IF (OUTERMOST_LPN_ID IS NOT NULL) THEN
102 L_OUTERMOST_LPN_ID := OUTERMOST_LPN_ID;
103 BEGIN
104 SELECT
105 LICENSE_PLATE_NUMBER
106 INTO M_OUTERMOST_LPN
107 FROM
108 WMS_LICENSE_PLATE_NUMBERS
109 WHERE LPN_ID = L_OUTERMOST_LPN_ID;--bug14252379,parameter name same with the column name causing the ambiguous reference
110 EXCEPTION
111 WHEN NO_DATA_FOUND THEN
112 M_OUTERMOST_LPN := 'ERROR';
113 END;
114 END IF;
115 END IF;
116 RETURN (M_OUTERMOST_LPN);
117 END CF_OUTERMOST_LPNFORMULA;
118
119 FUNCTION CF_PARENT_LPNFORMULA(CONTAINER_ENABLED_FLAG IN NUMBER
120 ,PARENT_LPN_ID IN NUMBER) RETURN CHAR IS
121 M_PARENT_LPN VARCHAR2(30) := NULL;
122 --bug14252379,added local variable
123 L_PARENT_LPN_ID NUMBER;
124 BEGIN
125 IF ((P_WMS_INSTALLED = 'TRUE') AND (NVL(CONTAINER_ENABLED_FLAG
126 ,-99) > 0)) THEN
127 IF (PARENT_LPN_ID IS NOT NULL) THEN
128 L_PARENT_LPN_ID := PARENT_LPN_ID ;
129 BEGIN
130 SELECT
131 LICENSE_PLATE_NUMBER
132 INTO M_PARENT_LPN
133 FROM
134 WMS_LICENSE_PLATE_NUMBERS
135 WHERE LPN_ID = L_PARENT_LPN_ID;--bug14252379,parameter name same with the column name causing the ambiguous reference
136 EXCEPTION
137 WHEN NO_DATA_FOUND THEN
138 M_PARENT_LPN := 'ERROR';
139 END;
140 END IF;
141 END IF;
142 RETURN (M_PARENT_LPN);
143 END CF_PARENT_LPNFORMULA;
144
145 FUNCTION CF_COST_GROUPFORMULA(COST_GROUP_ID IN NUMBER) RETURN CHAR IS
146 M_COST_GROUP VARCHAR2(10) := NULL;
147 --bug14252379,added local variable
148 L_COST_GROUP_ID NUMBER;
149 BEGIN
150 IF ((P_WMS_INSTALLED = 'TRUE') AND (COST_GROUP_ID IS NOT NULL)) THEN
151 L_COST_GROUP_ID := COST_GROUP_ID;
152 BEGIN
153 SELECT
154 COST_GROUP
155 INTO M_COST_GROUP
156 FROM
157 CST_COST_GROUPS
158 WHERE COST_GROUP_ID = L_COST_GROUP_ID;--bug14252379,parameter name same with the column name causing the ambiguous reference
159 EXCEPTION
160 WHEN NO_DATA_FOUND THEN
161 M_COST_GROUP := 'ERROR';
162 END;
163 END IF;
164 RETURN (M_COST_GROUP);
165 END CF_COST_GROUPFORMULA;
166
167 END INV_INVARCPA_XMLP_PKG;
168
[Home] [Help]