1 PACKAGE BODY INV_INVARCPA_XMLP_PKG AS
2 /* $Header: INVARCPAB.pls 120.1 2007/12/25 10:00:13 dwkrishn noship $ */
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 BEGIN
97 IF ((P_WMS_INSTALLED = 'TRUE') AND (NVL(CONTAINER_ENABLED_FLAG
98 ,-99) > 0)) THEN
99 IF (OUTERMOST_LPN_ID IS NOT NULL) THEN
100 BEGIN
101 SELECT
102 LICENSE_PLATE_NUMBER
103 INTO M_OUTERMOST_LPN
104 FROM
105 WMS_LICENSE_PLATE_NUMBERS
106 WHERE LPN_ID = OUTERMOST_LPN_ID;
107 EXCEPTION
108 WHEN NO_DATA_FOUND THEN
109 M_OUTERMOST_LPN := 'ERROR';
110 END;
111 END IF;
112 END IF;
113 RETURN (M_OUTERMOST_LPN);
114 END CF_OUTERMOST_LPNFORMULA;
115
116 FUNCTION CF_PARENT_LPNFORMULA(CONTAINER_ENABLED_FLAG IN NUMBER
117 ,PARENT_LPN_ID IN NUMBER) RETURN CHAR IS
118 M_PARENT_LPN VARCHAR2(30) := NULL;
119 BEGIN
120 IF ((P_WMS_INSTALLED = 'TRUE') AND (NVL(CONTAINER_ENABLED_FLAG
121 ,-99) > 0)) THEN
122 IF (PARENT_LPN_ID IS NOT NULL) THEN
123 BEGIN
124 SELECT
125 LICENSE_PLATE_NUMBER
126 INTO M_PARENT_LPN
127 FROM
128 WMS_LICENSE_PLATE_NUMBERS
129 WHERE LPN_ID = PARENT_LPN_ID;
130 EXCEPTION
131 WHEN NO_DATA_FOUND THEN
132 M_PARENT_LPN := 'ERROR';
133 END;
134 END IF;
135 END IF;
136 RETURN (M_PARENT_LPN);
137 END CF_PARENT_LPNFORMULA;
138
139 FUNCTION CF_COST_GROUPFORMULA(COST_GROUP_ID IN NUMBER) RETURN CHAR IS
140 M_COST_GROUP VARCHAR2(10) := NULL;
141 BEGIN
142 IF ((P_WMS_INSTALLED = 'TRUE') AND (COST_GROUP_ID IS NOT NULL)) THEN
143 BEGIN
144 SELECT
145 COST_GROUP
146 INTO M_COST_GROUP
147 FROM
148 CST_COST_GROUPS
149 WHERE COST_GROUP_ID = COST_GROUP_ID;
150 EXCEPTION
151 WHEN NO_DATA_FOUND THEN
152 M_COST_GROUP := 'ERROR';
153 END;
154 END IF;
155 RETURN (M_COST_GROUP);
156 END CF_COST_GROUPFORMULA;
157
158 END INV_INVARCPA_XMLP_PKG;
159