DBA Data[Home] [Help]

PACKAGE BODY: APPS.INV_INVARCPA_XMLP_PKG

Source


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