1 PACKAGE BODY INV_INVARORE_XMLP_PKG AS
2 /* $Header: INVAROREB.pls 120.2 2007/12/25 10:04:06 dwkrishn noship $ */
3 FUNCTION C_FORMATTEDCURRENCYCODEFORMULA(CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
4 BEGIN
5 DECLARE
6 TEMP_C VARCHAR2(20);
7 BEGIN
8 TEMP_C := '(' || CURRENCY_CODE || ')';
9 RETURN (TEMP_C);
10 END;
11 RETURN NULL;
12 END C_FORMATTEDCURRENCYCODEFORMULA;
13
14 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
15 BEGIN
16 BEGIN
17 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
18 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
19 EXCEPTION
20 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
21 /*SRW.MESSAGE(1
22 ,'Before Report: Init')*/NULL;
23 END;
24 DECLARE
25 P_ORG_ID_CHAR VARCHAR2(100) := TO_CHAR(P_ORG_ID);
26 BEGIN
27 /*SRW.USER_EXIT('FND PUTPROFILE NAME="' || 'MFG_ORGANIZATION_ID' || '" FIELD="' || P_ORG_ID_CHAR || '"')*/NULL;
28 EXCEPTION
29 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
30 /*SRW.MESSAGE(020
31 ,'Failed in before report trigger, setting org profile ')*/NULL;
32 RAISE;
33 END;
34 BEGIN
35 NULL;
36 EXCEPTION
37 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
38 /*SRW.MESSAGE(1
39 ,'Before Report: LocatorFlex')*/NULL;
40 END;
41 DECLARE
42 M_RETURN_STATUS VARCHAR2(1);
43 M_MSG_COUNT NUMBER;
44 M_MSG_DATA VARCHAR2(2000);
45 BEGIN
46 IF (WMS_INSTALL.CHECK_INSTALL(X_RETURN_STATUS => M_RETURN_STATUS
47 ,X_MSG_COUNT => M_MSG_COUNT
48 ,X_MSG_DATA => M_MSG_DATA
49 ,P_ORGANIZATION_ID => P_ORG_ID)) THEN
50 P_WMS_INSTALLED := 'TRUE';
51 END IF;
52 END;
53 RETURN (TRUE);
54 END BEFOREREPORT;
55
56 FUNCTION AFTERREPORT RETURN BOOLEAN IS
57 BEGIN
58 BEGIN
59 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
60 RETURN (TRUE);
61 END;
62 RETURN (TRUE);
63 END AFTERREPORT;
64
65 FUNCTION C_REPORTDATEFORMULA RETURN DATE IS
66 BEGIN
67 BEGIN
68 RETURN (SYSDATE);
69 END;
70 RETURN NULL;
71 END C_REPORTDATEFORMULA;
72
73 FUNCTION C_OVERDUEONLYFORMULA RETURN VARCHAR2 IS
74 BEGIN
75 BEGIN
76 IF P_OVERDUEONLY = 1 THEN
77 RETURN ('Yes');
78 ELSE
79 RETURN ('No');
80 END IF;
81 END;
82 RETURN NULL;
83 END C_OVERDUEONLYFORMULA;
84
85 FUNCTION AFTERPFORM RETURN BOOLEAN IS
86 BEGIN
87 RETURN (TRUE);
88 END AFTERPFORM;
89
90 FUNCTION CF_PARENT_LPNFORMULA(CONTAINER_ENABLED_FLAG IN NUMBER
91 ,PARENT_LPN_ID IN NUMBER) RETURN CHAR IS
92 X_PARENT_LPN VARCHAR2(30) := NULL;
93 BEGIN
94 IF ((P_WMS_INSTALLED = 'TRUE') AND (NVL(CONTAINER_ENABLED_FLAG
95 ,-99) > 0)) THEN
96 IF (PARENT_LPN_ID IS NOT NULL) THEN
97 BEGIN
98 SELECT
99 LICENSE_PLATE_NUMBER
100 INTO X_PARENT_LPN
101 FROM
102 WMS_LICENSE_PLATE_NUMBERS
103 WHERE LPN_ID = PARENT_LPN_ID;
104 EXCEPTION
105 WHEN NO_DATA_FOUND THEN
106 X_PARENT_LPN := 'ERROR';
107 END;
108 END IF;
109 END IF;
110 RETURN (X_PARENT_LPN);
111 END CF_PARENT_LPNFORMULA;
112
113 FUNCTION CF_OUTERMOST_LPNFORMULA(CONTAINER_ENABLED_FLAG IN NUMBER
114 ,OUTERMOST_LPN_ID IN NUMBER) RETURN CHAR IS
115 X_OUTERMOST_LPN VARCHAR2(30) := NULL;
116 BEGIN
117 IF ((P_WMS_INSTALLED = 'TRUE') AND (NVL(CONTAINER_ENABLED_FLAG
118 ,-99) > 0)) THEN
119 IF (OUTERMOST_LPN_ID IS NOT NULL) THEN
120 BEGIN
121 SELECT
122 LICENSE_PLATE_NUMBER
123 INTO X_OUTERMOST_LPN
124 FROM
125 WMS_LICENSE_PLATE_NUMBERS
126 WHERE LPN_ID = OUTERMOST_LPN_ID;
127 EXCEPTION
128 WHEN NO_DATA_FOUND THEN
129 X_OUTERMOST_LPN := 'ERROR';
130 END;
131 END IF;
132 END IF;
133 RETURN (X_OUTERMOST_LPN);
134 END CF_OUTERMOST_LPNFORMULA;
135
136 FUNCTION CF_COST_GROUPFORMULA(COST_GROUP_ID IN NUMBER) RETURN CHAR IS
137 M_COST_GROUP VARCHAR2(10) := NULL;
138 BEGIN
139 IF ((P_WMS_INSTALLED = 'TRUE') AND (COST_GROUP_ID IS NOT NULL)) THEN
140 BEGIN
141 SELECT
142 COST_GROUP
143 INTO M_COST_GROUP
144 FROM
145 CST_COST_GROUPS
146 WHERE COST_GROUP_ID = COST_GROUP_ID;
147 EXCEPTION
148 WHEN NO_DATA_FOUND THEN
149 M_COST_GROUP := 'ERROR';
150 END;
151 END IF;
152 RETURN (M_COST_GROUP);
153 END CF_COST_GROUPFORMULA;
154
155 END INV_INVARORE_XMLP_PKG;
156