1 PACKAGE BODY GMF_CMR10USR_XMLP_PKG AS
2 /* $Header: CMR10USRB.pls 120.0 2007/12/24 13:21:50 nchinnam noship $ */
3 FUNCTION ALLOCATIONCFFORMULA RETURN VARCHAR2 IS
4 BEGIN
5 /*SRW.REFERENCE(ALLOCATIONCP)*/NULL;
6 IF FROM_ALLOC_CODE IS NOT NULL AND TO_ALLOC_CODE IS NOT NULL THEN
7 ALLOCATIONCP := ' and m.alloc_code >= ''' || FROM_ALLOC_CODE || ''' and m.alloc_code <= ''' || TO_ALLOC_CODE || '''';
8 ELSIF FROM_ALLOC_CODE IS NULL AND TO_ALLOC_CODE IS NULL THEN
9 ALLOCATIONCP := ' ';
10 P_FROM_ALLOC_CODE := SY_ALL;
11 P_TO_ALLOC_CODE := SY_ALL;
12 ELSIF FROM_ALLOC_CODE IS NOT NULL AND TO_ALLOC_CODE IS NULL THEN
13 ALLOCATIONCP := ' and m.alloc_code >= ''' || FROM_ALLOC_CODE || '''';
14 P_TO_ALLOC_CODE := SY_ALL;
15 ELSIF FROM_ALLOC_CODE IS NULL AND TO_ALLOC_CODE IS NOT NULL THEN
16 ALLOCATIONCP := ' and m.alloc_code <= ''' || TO_ALLOC_CODE || '''';
17 P_FROM_ALLOC_CODE := SY_ALL;
18 END IF;
19 RETURN NULL;
20 END ALLOCATIONCFFORMULA;
21
22 FUNCTION ALLOCATIONCPFORMULA(ALLOCATIONCF IN VARCHAR2) RETURN VARCHAR2 IS
23 BEGIN
24 /*SRW.REFERENCE(ALLOCATIONCF)*/NULL;
25 RETURN NULL;
26 END ALLOCATIONCPFORMULA;
27
28 FUNCTION AFTERPFORM RETURN BOOLEAN IS
29 BEGIN
30 IF (FROM_ALLOC_CODE > TO_ALLOC_CODE) THEN
31 /*SRW.MESSAGE(100
32 ,'CM_FRMALLOC_LTE_TOALLOC_CODE')*/NULL;
33 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
34 END IF;
35 RETURN (TRUE);
36 END AFTERPFORM;
37
38 PROCEDURE GMF_CMR10USR_XMLP_PKG_HEADER IS
39 BEGIN
40 NULL;
41 END GMF_CMR10USR_XMLP_PKG_HEADER;
42
43 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
44 BEGIN
45 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
46 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
47 RETURN (TRUE);
48 END BEFOREREPORT;
49
50 FUNCTION CF_LEGAL_ENTITYFORMULA RETURN CHAR IS
51 P_LEGAL_ENTITY VARCHAR2(240);
52 BEGIN
53 P_LEGAL_ENTITY := GMF_UTILITIES_GRP.GET_LEGAL_ENTITY(LEGAL_ENTITY_ID);
54 RETURN (NVL(P_LEGAL_ENTITY
55 ,' '));
56 END CF_LEGAL_ENTITYFORMULA;
57
58 FUNCTION FROM_ACCOUNTFORMULA(FROM_ACCOUNT_ID IN NUMBER) RETURN CHAR IS
59 BEGIN
60 IF FROM_ACCOUNT_ID IS NOT NULL THEN
61 RETURN (GMF_UTILITIES_GRP.GET_ACCOUNT_CODE(NVL(FROM_ACCOUNT_ID
62 ,-1)
63 ,LEGAL_ENTITY_ID));
64 ELSE
65 RETURN (NULL);
66 END IF;
67 END FROM_ACCOUNTFORMULA;
68
69 FUNCTION TO_ACCOUNTFORMULA(TO_ACCOUNT_ID IN NUMBER) RETURN CHAR IS
70 BEGIN
71 IF TO_ACCOUNT_ID IS NOT NULL THEN
72 RETURN (GMF_UTILITIES_GRP.GET_ACCOUNT_CODE(NVL(TO_ACCOUNT_ID
73 ,-1)
74 ,LEGAL_ENTITY_ID));
75 ELSE
76 RETURN (NULL);
77 END IF;
78 END TO_ACCOUNTFORMULA;
79
80 FUNCTION BASIS_ACCOUNT_CODEFORMULA(BASIS_ACCOUNT_ID IN NUMBER) RETURN CHAR IS
81 BEGIN
82 IF BASIS_ACCOUNT_ID IS NOT NULL THEN
83 RETURN (GMF_UTILITIES_GRP.GET_ACCOUNT_CODE(NVL(BASIS_ACCOUNT_ID
84 ,-1)
85 ,LEGAL_ENTITY_ID));
86 ELSE
87 RETURN (NULL);
88 END IF;
89 END BASIS_ACCOUNT_CODEFORMULA;
90
91 FUNCTION BASIS_ACCOUNT_DESCFORMULA(BASIS_ACCOUNT_ID IN NUMBER) RETURN CHAR IS
92 BEGIN
93 IF BASIS_ACCOUNT_ID IS NOT NULL THEN
94 RETURN (GMF_UTILITIES_GRP.GET_ACCOUNT_DESC(NVL(BASIS_ACCOUNT_ID
95 ,-1)
96 ,LEGAL_ENTITY_ID
97 ,'I'));
98 ELSE
99 RETURN (NULL);
100 END IF;
101 END BASIS_ACCOUNT_DESCFORMULA;
102
103 FUNCTION FROM_ACCOUNT_DESCFORMULA(FROM_ACCOUNT_ID IN NUMBER) RETURN CHAR IS
104 BEGIN
105 IF FROM_ACCOUNT_ID IS NOT NULL THEN
106 RETURN (GMF_UTILITIES_GRP.GET_ACCOUNT_DESC(NVL(FROM_ACCOUNT_ID
107 ,-1)
108 ,LEGAL_ENTITY_ID
109 ,'I'));
110 ELSE
111 RETURN (NULL);
112 END IF;
113 END FROM_ACCOUNT_DESCFORMULA;
114
115 FUNCTION TO_ACCOUNT_DESCFORMULA(TO_ACCOUNT_ID IN NUMBER) RETURN CHAR IS
116 BEGIN
117 IF TO_ACCOUNT_ID IS NOT NULL THEN
118 RETURN (GMF_UTILITIES_GRP.GET_ACCOUNT_DESC(NVL(TO_ACCOUNT_ID
119 ,-1)
120 ,LEGAL_ENTITY_ID
121 ,'I'));
122 ELSE
123 RETURN (NULL);
124 END IF;
125 END TO_ACCOUNT_DESCFORMULA;
126
127 FUNCTION AFTERREPORT RETURN BOOLEAN IS
128 BEGIN
129 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
130 RETURN (TRUE);
131 END AFTERREPORT;
132
133 FUNCTION ALLOCATIONCP_P RETURN VARCHAR2 IS
134 BEGIN
135 RETURN ALLOCATIONCP;
136 END ALLOCATIONCP_P;
137
138 END GMF_CMR10USR_XMLP_PKG;
139