1 PACKAGE BODY GMF_CMRCWA_XMLP_PKG AS
2 /* $Header: CMRCWAB.pls 120.0.12020000.2 2012/08/29 11:14:07 vkinduri ship $ */
3 FUNCTION G_COST_ORGANIZATIONGROUPFILTER RETURN BOOLEAN IS
4 BEGIN
5 IF SORT_BY = 'Cost Organization' THEN
6 RETURN (TRUE);
7 ELSE
8 RETURN (FALSE);
9 END IF;
10 RETURN NULL;
11 END G_COST_ORGANIZATIONGROUPFILTER;
12 FUNCTION G_INV_ORGANIZATIONGROUPFILTER RETURN BOOLEAN IS
13 BEGIN
14 IF SORT_BY = 'Inventory Organization' THEN
15 RETURN (TRUE);
16 ELSE
17 RETURN (FALSE);
18 END IF;
19 RETURN NULL;
20 END G_INV_ORGANIZATIONGROUPFILTER;
21 FUNCTION COST_ORGNCPFORMULA(COST_ORGNCF IN VARCHAR2) RETURN VARCHAR2 IS
22 BEGIN
23 /*SRW.REFERENCE(COST_ORGNCF)*/NULL;
24 RETURN '';
25 END COST_ORGNCPFORMULA;
26 FUNCTION COST_ORGNCFFORMULA RETURN VARCHAR2 IS
27 BEGIN
28 /*SRW.REFERENCE(SORT_BY)*/NULL;
29 IF SORT_BY = 'Cost Organization' THEN
30 IF FROM_COST_ORGN IS NOT NULL AND TO_COST_ORGN IS NOT NULL THEN
31 COST_ORGNCP := ' and cmp.organization_code >= ''' || FROM_COST_ORGN || ''' and cmp.organization_code <= ''' || TO_COST_ORGN || '''';
32 ELSIF FROM_COST_ORGN IS NULL AND TO_COST_ORGN IS NULL THEN
33 COST_ORGNCP := 'and 1=1';
34 /* Bug14095673 Uskumari*/
35 /*FROM_COST_ORGN := SY_ALL;
36 TO_COST_ORGN := SY_ALL;*/
37 FROM_COST_ORGN_P := SY_ALL;
38 TO_COST_ORGN_P := SY_ALL;
39 ELSIF FROM_COST_ORGN IS NOT NULL AND TO_COST_ORGN IS NULL THEN
40 COST_ORGNCP := ' and cmp.organization_code >= ''' || FROM_COST_ORGN || '''';
41 /* Bug14095673 Uskumari*/
42 /*TO_COST_ORGN := SY_ALL;*/
43 TO_COST_ORGN_P := SY_ALL;
44 ELSIF FROM_COST_ORGN IS NULL AND TO_COST_ORGN IS NOT NULL THEN
45 COST_ORGNCP := ' and cmp.organization_code <= ''' || TO_COST_ORGN || '''';
46 /* Bug14095673 Uskumari*/
47 /* FROM_COST_ORGN := SY_ALL; */
48 FROM_COST_ORGN_P := SY_ALL;
49 END IF;
50 END IF;
51 RETURN COST_ORGNCP;
52 END COST_ORGNCFFORMULA;
53 FUNCTION INV_ORGNCPFORMULA(INV_ORGNCF IN VARCHAR2) RETURN VARCHAR2 IS
54 BEGIN
55 /*SRW.REFERENCE(INV_ORGNCF)*/NULL;
56 RETURN '';
57 END INV_ORGNCPFORMULA;
58 FUNCTION INV_ORGNCFFORMULA RETURN VARCHAR2 IS
59 BEGIN
60 /*SRW.REFERENCE(SORT_BY)*/NULL;
61 IF SORT_BY = 'Inventory Organization' THEN
62 IF FROM_INV_ORGN IS NOT NULL AND TO_INV_ORGN IS NOT NULL THEN
63 INV_ORGNCP := ' and imp.organization_code >= ''' || FROM_INV_ORGN || ''' and imp.organization_code <= ''' || TO_INV_ORGN || '''';
64 ELSIF FROM_INV_ORGN IS NULL AND TO_INV_ORGN IS NULL THEN
65 INV_ORGNCP := 'and 1=1';
66 /* Bug14095673 Uskumari*/
67 /* FROM_INV_ORGN := 'ALL';
68 TO_INV_ORGN := 'ALL'; */
69 FROM_INV_ORGN_P := SY_ALL;
70 TO_INV_ORGN_P := SY_ALL;
71 ELSIF FROM_INV_ORGN IS NOT NULL AND TO_INV_ORGN IS NULL THEN
72 INV_ORGNCP := ' and imp.organization_code >= ''' || FROM_INV_ORGN || '''';
73 /* Bug14095673 Uskumari*/
74 /*TO_INV_ORGN := 'ALL'; */
75 TO_INV_ORGN_P := SY_ALL;
76 ELSIF FROM_INV_ORGN IS NULL AND TO_INV_ORGN IS NOT NULL THEN
77 INV_ORGNCP := ' and imp.organization_code <= ''' || TO_INV_ORGN || '''';
78 /* Bug14095673 Uskumari*/
79 /* FROM_INV_ORGN := 'ALL';*/
80 FROM_INV_ORGN_P := SY_ALL;
81 END IF;
82 END IF;
83 RETURN INV_ORGNCP;
84 END INV_ORGNCFFORMULA;
85 FUNCTION AFTERPFORM RETURN BOOLEAN IS
86 BEGIN
87 FROM_COST_ORGN := GMF_UTILITIES_GRP.GET_ORGANIZATION_CODE(P_FROM_COST_ORGN_ID);
88 TO_COST_ORGN := GMF_UTILITIES_GRP.GET_ORGANIZATION_CODE(P_TO_COST_ORGN_ID);
89 FROM_INV_ORGN := GMF_UTILITIES_GRP.GET_ORGANIZATION_CODE(NVL(P_FROM_INV_ORGN_ID
90 ,0));
91 TO_INV_ORGN := GMF_UTILITIES_GRP.GET_ORGANIZATION_CODE(NVL(P_TO_INV_ORGN_ID
92 ,0));
93 IF FROM_COST_ORGN > TO_COST_ORGN THEN
94 FND_MESSAGE.SET_NAME('GMF'
95 ,'CM_FRMCOSTWHSE_LTE_TOCOSTWHSE');
96 /*SRW.MESSAGE(100
97 ,FND_MESSAGE.GET)*/NULL;
98 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
99 END IF;
100 IF FROM_INV_ORGN > TO_INV_ORGN THEN
101 FND_MESSAGE.SET_NAME('GMF'
102 ,'CM_FRM_INVWHSE_LTE_TO_INVWHSE');
103 /*SRW.MESSAGE(100
104 ,FND_MESSAGE.GET)*/NULL;
105 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
106 END IF;
107 RETURN (TRUE);
108 END AFTERPFORM;
109 PROCEDURE GMF_CMRCWA_XMLP_PKG_HEADER IS
110 BEGIN
111 NULL;
112 END GMF_CMRCWA_XMLP_PKG_HEADER;
113 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
114 BEGIN
115 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
116 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
117 RETURN (TRUE);
118 END BEFOREREPORT;
119 FUNCTION AFTERREPORT RETURN BOOLEAN IS
120 BEGIN
121 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
122 RETURN (TRUE);
123 END AFTERREPORT;
124 FUNCTION COST_ORGNCP_P RETURN VARCHAR2 IS
125 BEGIN
126 RETURN COST_ORGNCP;
127 END COST_ORGNCP_P;
128 FUNCTION INV_ORGNCP_P RETURN VARCHAR2 IS
129 BEGIN
130 RETURN INV_ORGNCP;
131 END INV_ORGNCP_P;
132 END GMF_CMRCWA_XMLP_PKG;
133
[Home] [Help]