1 PACKAGE BODY GMF_CMRCWA_XMLP_PKG AS
2 /* $Header: CMRCWAB.pls 120.0 2007/12/24 13:27:03 nchinnam noship $ */
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 FROM_COST_ORGN := SY_ALL;
35 TO_COST_ORGN := SY_ALL;
36 ELSIF FROM_COST_ORGN IS NOT NULL AND TO_COST_ORGN IS NULL THEN
37 COST_ORGNCP := ' and cmp.organization_code >= ''' || FROM_COST_ORGN || '''';
38 TO_COST_ORGN := SY_ALL;
39 ELSIF FROM_COST_ORGN IS NULL AND TO_COST_ORGN IS NOT NULL THEN
40 COST_ORGNCP := ' and cmp.organization_code <= ''' || TO_COST_ORGN || '''';
41 FROM_COST_ORGN := SY_ALL;
42 END IF;
43 END IF;
44 RETURN COST_ORGNCP;
45 END COST_ORGNCFFORMULA;
46 FUNCTION INV_ORGNCPFORMULA(INV_ORGNCF IN VARCHAR2) RETURN VARCHAR2 IS
47 BEGIN
48 /*SRW.REFERENCE(INV_ORGNCF)*/NULL;
49 RETURN '';
50 END INV_ORGNCPFORMULA;
51 FUNCTION INV_ORGNCFFORMULA RETURN VARCHAR2 IS
52 BEGIN
53 /*SRW.REFERENCE(SORT_BY)*/NULL;
54 IF SORT_BY = 'Inventory Organization' THEN
55 IF FROM_INV_ORGN IS NOT NULL AND TO_INV_ORGN IS NOT NULL THEN
56 INV_ORGNCP := ' and imp.organization_code >= ''' || FROM_INV_ORGN || ''' and imp.organization_code <= ''' || TO_INV_ORGN || '''';
57 ELSIF FROM_INV_ORGN IS NULL AND TO_INV_ORGN IS NULL THEN
58 INV_ORGNCP := 'and 1=1';
59 FROM_INV_ORGN := 'ALL';
60 TO_INV_ORGN := 'ALL';
61 ELSIF FROM_INV_ORGN IS NOT NULL AND TO_INV_ORGN IS NULL THEN
62 INV_ORGNCP := ' and imp.organization_code >= ''' || FROM_INV_ORGN || '''';
63 TO_INV_ORGN := 'ALL';
64 ELSIF FROM_INV_ORGN IS NULL AND TO_INV_ORGN IS NOT NULL THEN
65 INV_ORGNCP := ' and imp.organization_code <= ''' || TO_INV_ORGN || '''';
66 FROM_INV_ORGN := 'ALL';
67 END IF;
68 END IF;
69 RETURN INV_ORGNCP;
70 END INV_ORGNCFFORMULA;
71 FUNCTION AFTERPFORM RETURN BOOLEAN IS
72 BEGIN
73 FROM_COST_ORGN := GMF_UTILITIES_GRP.GET_ORGANIZATION_CODE(P_FROM_COST_ORGN_ID);
74 TO_COST_ORGN := GMF_UTILITIES_GRP.GET_ORGANIZATION_CODE(P_TO_COST_ORGN_ID);
75 FROM_INV_ORGN := GMF_UTILITIES_GRP.GET_ORGANIZATION_CODE(NVL(P_FROM_INV_ORGN_ID
76 ,0));
77 TO_INV_ORGN := GMF_UTILITIES_GRP.GET_ORGANIZATION_CODE(NVL(P_TO_INV_ORGN_ID
78 ,0));
79 IF FROM_COST_ORGN > TO_COST_ORGN THEN
80 FND_MESSAGE.SET_NAME('GMF'
81 ,'CM_FRMCOSTWHSE_LTE_TOCOSTWHSE');
82 /*SRW.MESSAGE(100
83 ,FND_MESSAGE.GET)*/NULL;
84 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
85 END IF;
86 IF FROM_INV_ORGN > TO_INV_ORGN THEN
87 FND_MESSAGE.SET_NAME('GMF'
88 ,'CM_FRM_INVWHSE_LTE_TO_INVWHSE');
89 /*SRW.MESSAGE(100
90 ,FND_MESSAGE.GET)*/NULL;
91 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
92 END IF;
93 RETURN (TRUE);
94 END AFTERPFORM;
95 PROCEDURE GMF_CMRCWA_XMLP_PKG_HEADER IS
96 BEGIN
97 NULL;
98 END GMF_CMRCWA_XMLP_PKG_HEADER;
99 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
100 BEGIN
101 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
102 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
103 RETURN (TRUE);
104 END BEFOREREPORT;
105 FUNCTION AFTERREPORT RETURN BOOLEAN IS
106 BEGIN
107 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
108 RETURN (TRUE);
109 END AFTERREPORT;
110 FUNCTION COST_ORGNCP_P RETURN VARCHAR2 IS
111 BEGIN
112 RETURN COST_ORGNCP;
113 END COST_ORGNCP_P;
114 FUNCTION INV_ORGNCP_P RETURN VARCHAR2 IS
115 BEGIN
116 RETURN INV_ORGNCP;
117 END INV_ORGNCP_P;
118 END GMF_CMRCWA_XMLP_PKG;
119