1 PACKAGE BODY GMF_GLR17USR_XMLP_PKG AS
2 /* $Header: GLR17USRB.pls 120.0 2007/12/24 13:28:59 nchinnam noship $ */
3 FUNCTION WHSE_CODECFFORMULA RETURN VARCHAR2 IS
4 BEGIN
5 /*SRW.REFERENCE(WHSE_CODECP)*/NULL;
6 IF LFROM_WHSE IS NOT NULL AND LTO_WHSE IS NOT NULL THEN
7 WHSE_CODECP := ' and b.whse_code >= ''' || LFROM_WHSE || ''' and b.whse_code <= ''' || LTO_WHSE || '''';
8 ELSIF LFROM_WHSE IS NULL AND LTO_WHSE IS NULL THEN
9 WHSE_CODECP := 'and 1=1';
10 LFROM_WHSE := SY_ALL;
11 LTO_WHSE := SY_ALL;
12 ELSIF LFROM_WHSE IS NOT NULL AND LTO_WHSE IS NULL THEN
13 WHSE_CODECP := ' and b.whse_code >= ''' || LFROM_WHSE || '''';
14 LTO_WHSE := SY_ALL;
15 ELSIF LFROM_WHSE IS NULL AND LTO_WHSE IS NOT NULL THEN
16 WHSE_CODECP := ' and b.whse_code <= ''' || LTO_WHSE || '''';
17 LFROM_WHSE := SY_ALL;
18 END IF;
19 RETURN NULL;
20 END WHSE_CODECFFORMULA;
21 FUNCTION ACCTG_UNITCFFORMULA RETURN VARCHAR2 IS
22 BEGIN
23 /*SRW.REFERENCE(ACCTG_UNITCP)*/NULL;
24 IF LFROM_ACCTG_UNIT IS NOT NULL AND LTO_ACCTG_UNIT IS NOT NULL THEN
25 ACCTG_UNITCP := ' and a.acctg_unit_no >= ''' || LFROM_ACCTG_UNIT || ''' and a.acctg_unit_no <= ''' || LTO_ACCTG_UNIT || '''';
26 ELSIF LFROM_ACCTG_UNIT IS NULL AND LTO_ACCTG_UNIT IS NULL THEN
27 ACCTG_UNITCP := 'and 1=1';
28 LFROM_ACCTG_UNIT := SY_ALL;
29 LTO_ACCTG_UNIT := SY_ALL;
30 ELSIF LFROM_ACCTG_UNIT IS NOT NULL AND LTO_ACCTG_UNIT IS NULL THEN
31 ACCTG_UNITCP := ' and a.acctg_unit_no >= ''' || LFROM_ACCTG_UNIT || '''';
32 LTO_ACCTG_UNIT := SY_ALL;
33 ELSIF LFROM_ACCTG_UNIT IS NULL AND LTO_ACCTG_UNIT IS NOT NULL THEN
34 ACCTG_UNITCP := ' and a.acctg_unit_no <= ''' || LTO_ACCTG_UNIT || '''';
35 LFROM_ACCTG_UNIT := SY_ALL;
36 END IF;
37 RETURN NULL;
38 END ACCTG_UNITCFFORMULA;
39 FUNCTION ORGN_CODECFFORMULA RETURN VARCHAR2 IS
40 BEGIN
41 /*SRW.REFERENCE(ORGN_CODECP)*/NULL;
42 IF LFROM_ORGANIZATION IS NOT NULL AND LTO_ORGANIZATION IS NOT NULL THEN
43 ORGN_CODECP := ' and b.Orgn_code >= ''' || LFROM_ORGANIZATION || ''' and b.Orgn_code <= ''' || LTO_ORGANIZATION || '''';
44 ELSIF LFROM_ORGANIZATION IS NULL AND LTO_ORGANIZATION IS NULL THEN
45 ORGN_CODECP := 'and 1=1';
46 LFROM_ORGANIZATION := SY_ALL;
47 LTO_ORGANIZATION := SY_ALL;
48 ELSIF LFROM_ORGANIZATION IS NOT NULL AND LTO_ORGANIZATION IS NULL THEN
49 ORGN_CODECP := ' and b.orgn_code >= ''' || LFROM_ORGANIZATION || '''';
50 LTO_ORGANIZATION := SY_ALL;
51 ELSIF LFROM_ORGANIZATION IS NULL AND LTO_ORGANIZATION IS NOT NULL THEN
52 ORGN_CODECP := ' and b.orgn_code <= ''' || LTO_ORGANIZATION || '''';
53 LFROM_ORGANIZATION := SY_ALL;
54 END IF;
55 RETURN NULL;
56 END ORGN_CODECFFORMULA;
57 FUNCTION ORGN_CODECPFORMULA(ORGN_CODECF IN VARCHAR2) RETURN VARCHAR2 IS
58 BEGIN
59 /*SRW.REFERENCE(ORGN_CODECF)*/NULL;
60 RETURN NULL;
61 END ORGN_CODECPFORMULA;
62 FUNCTION ACCTG_UNITCPFORMULA(ACCTG_UNITCF IN VARCHAR2) RETURN VARCHAR2 IS
63 BEGIN
64 /*SRW.REFERENCE(ACCTG_UNITCF)*/NULL;
65 RETURN NULL;
66 END ACCTG_UNITCPFORMULA;
67 FUNCTION WHSE_CODECPFORMULA(WHSE_CODECF IN VARCHAR2) RETURN VARCHAR2 IS
68 BEGIN
69 /*SRW.REFERENCE(WHSE_CODECF)*/NULL;
70 RETURN NULL;
71 END WHSE_CODECPFORMULA;
72 FUNCTION AFTERPFORM RETURN BOOLEAN IS
73 BASE_CURR VARCHAR2(4);
74 CURSOR CUR_CURRENCY_CODE IS
75 SELECT
76 BASE_CURRENCY_CODE
77 FROM
78 GL_PLCY_MST
79 WHERE CO_CODE = COMPANY;
80 BEGIN
81 BEGIN
82 IF (COMPANY IS NOT NULL) THEN
83 OPEN CUR_CURRENCY_CODE;
84 FETCH CUR_CURRENCY_CODE
85 INTO BASE_CURR;
86 IF (CUR_CURRENCY_CODE%NOTFOUND) THEN
87 /*SRW.MESSAGE(100
88 ,'GL_NO_FISCAL_POLICY')*/NULL;
89 CLOSE CUR_CURRENCY_CODE;
90 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
91 END IF;
92 CLOSE CUR_CURRENCY_CODE;
93 END IF;
94 END;
95 IF LFROM_ACCTG_UNIT > LTO_ACCTG_UNIT THEN
96 /*SRW.MESSAGE(100
97 ,'GL_FROM_AU_NO_LTE_TO_AU_NO')*/NULL;
98 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
99 END IF;
100 IF LFROM_ORGANIZATION > LTO_ORGANIZATION THEN
101 /*SRW.MESSAGE(100
102 ,'GL_FROM_ORGN_LTE_TO_ORGN')*/NULL;
103 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
104 END IF;
105 IF LFROM_WHSE > LTO_WHSE THEN
106 /*SRW.MESSAGE(100
107 ,'GL_FR0M_WHSE_LTE_LTO_WHSE')*/NULL;
108 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
109 END IF;
110 RETURN (TRUE);
111 END AFTERPFORM;
112 PROCEDURE GLR19USR_HEADER IS
113 BEGIN
114 NULL;
115 END GLR19USR_HEADER;
116 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
117 BEGIN
118 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
119 LTO_WHSE:= TO_WHSE;
120 LFROM_WHSE:=FROM_WHSE;
121 LTO_ACCTG_UNIT:=TO_ACCTG_UNIT;
122 LFROM_ACCTG_UNIT:=FROM_ACCTG_UNIT;
123 LTO_ORGANIZATION:=TO_ORGANIZATION;
124 LFROM_ORGANIZATION:=FROM_ORGANIZATION;
125 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
126 RETURN (TRUE);
127 END BEFOREREPORT;
128 FUNCTION AFTERREPORT RETURN BOOLEAN IS
129 BEGIN
130 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
131 RETURN (TRUE);
132 END AFTERREPORT;
133 FUNCTION ACCTG_UNITCP_P RETURN VARCHAR2 IS
134 BEGIN
135 RETURN ACCTG_UNITCP;
136 END ACCTG_UNITCP_P;
137 FUNCTION ORGN_CODECP_P RETURN VARCHAR2 IS
138 BEGIN
139 RETURN ORGN_CODECP;
140 END ORGN_CODECP_P;
141 FUNCTION WHSE_CODECP_P RETURN VARCHAR2 IS
142 BEGIN
143 RETURN WHSE_CODECP;
144 END WHSE_CODECP_P;
145 END GMF_GLR17USR_XMLP_PKG;
146