1 PACKAGE BODY JG_AR_CASH_RECEIPTS AS
2 /* $Header: jgzzrcrb.pls 120.6 2005/08/25 23:28:21 cleyvaol ship $ */
3
4 /*----------------------------------------------------------------------------*
5 | PUBLIC FUNCTIONS/PROCEDURES |
6 *----------------------------------------------------------------------------*/
7
8 PG_DEBUG varchar2(1) ;
9
10 PROCEDURE Validate_gbl(
11 p_global_attribute_category IN OUT NOCOPY VARCHAR2 ,
12 p_global_attribute1 IN OUT NOCOPY VARCHAR2 ,
13 p_global_attribute2 IN OUT NOCOPY VARCHAR2 ,
14 p_global_attribute3 IN OUT NOCOPY VARCHAR2 ,
15 p_global_attribute4 IN OUT NOCOPY VARCHAR2 ,
16 p_global_attribute5 IN OUT NOCOPY VARCHAR2 ,
17 p_global_attribute6 IN OUT NOCOPY VARCHAR2 ,
18 p_global_attribute7 IN OUT NOCOPY VARCHAR2 ,
19 p_global_attribute8 IN OUT NOCOPY VARCHAR2 ,
20 p_global_attribute9 IN OUT NOCOPY VARCHAR2 ,
21 p_global_attribute10 IN OUT NOCOPY VARCHAR2 ,
22 p_global_attribute11 IN OUT NOCOPY VARCHAR2 ,
23 p_global_attribute12 IN OUT NOCOPY VARCHAR2 ,
24 p_global_attribute13 IN OUT NOCOPY VARCHAR2 ,
25 p_global_attribute14 IN OUT NOCOPY VARCHAR2 ,
26 p_global_attribute15 IN OUT NOCOPY VARCHAR2 ,
27 p_global_attribute16 IN OUT NOCOPY VARCHAR2 ,
28 p_global_attribute17 IN OUT NOCOPY VARCHAR2 ,
29 p_global_attribute18 IN OUT NOCOPY VARCHAR2 ,
30 p_global_attribute19 IN OUT NOCOPY VARCHAR2 ,
31 p_global_attribute20 IN OUT NOCOPY VARCHAR2 ,
32 p_return_status OUT NOCOPY VARCHAR2) IS
33
34
35 l_product_code VARCHAR2(2);
36 l_country_code VARCHAR2(2);
37 l_gac_valid BOOLEAN;
38
39 BEGIN
40
41 IF PG_DEBUG in ('Y', 'C') THEN
42 arp_util.debug('jg_ar_cash_receipts.Validate_gbl()+');
43 END IF;
44
45 l_product_code := FND_PROFILE.VALUE('JGZZ_PRODUCT_CODE');
46 l_country_code := FND_PROFILE.VALUE('JGZZ_COUNTRY_CODE');
47
48 IF l_product_code IS NULL THEN
49 IF (p_global_attribute_category IS NULL) AND
50 (p_global_attribute1 IS NULL) AND
51 (p_global_attribute2 IS NULL) AND
52 (p_global_attribute3 IS NULL) AND
53 (p_global_attribute4 IS NULL) AND
54 (p_global_attribute5 IS NULL) AND
55 (p_global_attribute6 IS NULL) AND
56 (p_global_attribute7 IS NULL) AND
57 (p_global_attribute8 IS NULL) AND
58 (p_global_attribute9 IS NULL) AND
59 (p_global_attribute10 IS NULL) AND
60 (p_global_attribute11 IS NULL) AND
61 (p_global_attribute12 IS NULL) AND
62 (p_global_attribute13 IS NULL) AND
63 (p_global_attribute14 IS NULL) AND
64 (p_global_attribute15 IS NULL) AND
65 (p_global_attribute16 IS NULL) AND
66 (p_global_attribute17 IS NULL) AND
67 (p_global_attribute18 IS NULL) AND
68 (p_global_attribute19 IS NULL) AND
69 (p_global_attribute20 IS NULL) THEN
70 p_return_status := FND_API.G_RET_STS_SUCCESS;
71 ELSE
72 p_return_status := FND_API.G_RET_STS_ERROR;
73 END IF;
74 ELSE
75
76 p_return_status := FND_API.G_RET_STS_SUCCESS;
77
78 IF l_country_code = 'AR' OR
79 l_country_code = 'TW' OR
80 l_country_code = 'GR' OR
81 l_country_code = 'PT' THEN
82
83 BEGIN
84
85 SELECT descriptive_flex_context_code
86 INTO p_global_attribute_category
87 FROM fnd_descr_flex_contexts
88 WHERE application_id = 7003
89 AND descriptive_flexfield_name = 'JG_AR_CASH_RECEIPTS'
90 AND substr(descriptive_flex_context_code,4,2) = l_country_code
91 AND substr(descriptive_flex_context_code,7,8) = 'ARXRWMAI'
92 AND enabled_flag = 'Y';
93
94 EXCEPTION
95 WHEN OTHERS THEN
96 FND_MESSAGE.SET_NAME('JG','JG_ZZ_INVALID_GLOBAL_ATTB_CAT');
97 FND_MSG_PUB.Add;
98 p_return_status := FND_API.G_RET_STS_ERROR;
99 IF PG_DEBUG in ('Y', 'C') THEN
100 arp_util.debug('Validate_gbl: ' || 'Invalid global attribute category');
101 END IF;
102 Return;
103 END;
104
105 jg_zz_global_flex_vald_pkg.Validate_Global_Flexfield(
106 p_global_attribute_category,
107 p_global_attribute1,
108 p_global_attribute2,
109 p_global_attribute3,
110 p_global_attribute4,
111 p_global_attribute5,
112 p_global_attribute6,
113 p_global_attribute7,
114 p_global_attribute8,
115 p_global_attribute9,
116 p_global_attribute10,
117 p_global_attribute11,
118 p_global_attribute12,
119 p_global_attribute13,
120 p_global_attribute14,
121 p_global_attribute15,
122 p_global_attribute16,
123 p_global_attribute17,
124 p_global_attribute18,
125 p_global_attribute19,
126 p_global_attribute20,
127 'JG_AR_CASH_RECEIPTS',
128 p_return_status);
129
130 END IF;
131
132 -- BUG 3086341
133
134 /*
135 IF l_country_code = 'AR' OR
136 l_country_code = 'TW' OR
137 l_country_code = 'GR' OR
138 l_country_code = 'PT'
139 THEN
140 jg_zz_global_flex_vald_pkg.validate_global_attb_cat(
141 p_global_attribute_category,
142 l_product_code,
143 l_country_code,
144 'ARXRWMAI',
145 l_gac_valid);
146
147 IF l_gac_valid THEN
148 p_return_status := FND_API.G_RET_STS_SUCCESS;
149 ELSE
150 FND_MESSAGE.SET_NAME('JG','JG_ZZ_INVALID_GLOBAL_ATTB_CAT');
151 FND_MSG_PUB.Add;
152 p_return_status := FND_API.G_RET_STS_ERROR;
153 IF PG_DEBUG in ('Y', 'C') THEN
154 arp_util.debug('Validate_gbl: ' || 'Invalid global attribute category');
155 END IF;
156 END IF;
157 END IF;
158
159 */
160
161 END IF;
162 IF PG_DEBUG in ('Y', 'C') THEN
163 arp_util.debug('jg_ar_cash_receipts.Validate_gbl()-');
164 END IF;
165
166 END Validate_gbl;
167
168 PROCEDURE Reverse(
169 p_cash_receipt_id IN NUMBER,
170 p_return_status OUT NOCOPY VARCHAR2) IS
171
172 l_product_code VARCHAR2(2);
173 l_gac_valid BOOLEAN;
174
175 BEGIN
176
177 IF PG_DEBUG in ('Y', 'C') THEN
178 arp_util.debug('jg_ar_cash_receipts.Reverse()+');
179 END IF;
180
181 l_product_code := FND_PROFILE.VALUE('JGZZ_PRODUCT_CODE');
182
183 IF l_product_code IS NULL THEN
184 p_return_status := FND_API.G_RET_STS_SUCCESS;
185 ELSIF (l_product_code = 'JL') THEN
186 jl_ar_receivable_applications.Reverse(p_cash_receipt_id,
187 p_return_status);
188 END IF;
189
190 IF PG_DEBUG in ('Y', 'C') THEN
191 arp_util.debug('jg_ar_cash_receipts.Reverse()-');
192 END IF;
193
194
195 END Reverse;
196
197 BEGIN
198
199
200 PG_DEBUG := NVL(FND_PROFILE.value('AR_ENABLE_DEBUG_OUTPUT'), 'N');
201
202 END jg_ar_cash_receipts;