83: l_status VARCHAR2(30);
84: l_org_id NUMBER;
85: l_dummy NUMBER := 0;
86: BEGIN
87: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
88: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
89: 'cn.plsql.cn_mark_events_pub.mark_event_calc.begin',
90: 'Beginning of mark_event_calc for resource ('||p_salesrep_id||') ...');
91: end if;
84: l_org_id NUMBER;
85: l_dummy NUMBER := 0;
86: BEGIN
87: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
88: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
89: 'cn.plsql.cn_mark_events_pub.mark_event_calc.begin',
90: 'Beginning of mark_event_calc for resource ('||p_salesrep_id||') ...');
91: end if;
92:
110: l_org_id := p_org_id;
111: mo_global.validate_orgid_pub_api(org_id => l_org_id,
112: status => l_status);
113:
114: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
115: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
116: 'cn.plsql.cn_mark_events_pub.mark_event_calc.org_validate',
117: 'Validated org_id = ' || l_org_id || ' status = '||l_status);
118: end if;
111: mo_global.validate_orgid_pub_api(org_id => l_org_id,
112: status => l_status);
113:
114: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
115: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
116: 'cn.plsql.cn_mark_events_pub.mark_event_calc.org_validate',
117: 'Validated org_id = ' || l_org_id || ' status = '||l_status);
118: end if;
119:
117: 'Validated org_id = ' || l_org_id || ' status = '||l_status);
118: end if;
119:
120: IF (p_period_id IS NULL) THEN
121: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
122: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
123: 'cn.plsql.cn_mark_events_pub.mark_event_calc.error',
124: 'p_period_id is null');
125: end if;
118: end if;
119:
120: IF (p_period_id IS NULL) THEN
121: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
122: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
123: 'cn.plsql.cn_mark_events_pub.mark_event_calc.error',
124: 'p_period_id is null');
125: end if;
126: x_return_status := fnd_api.g_ret_sts_error;
129: fetch check_period_id into l_dummy;
130: close check_period_id;
131:
132: if (l_dummy <> 1) then
133: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
134: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
135: 'cn.plsql.cn_mark_events_pub.mark_event_calc.error',
136: 'p_period_id is not valid');
137: end if;
130: close check_period_id;
131:
132: if (l_dummy <> 1) then
133: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
134: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
135: 'cn.plsql.cn_mark_events_pub.mark_event_calc.error',
136: 'p_period_id is not valid');
137: end if;
138: x_return_status := fnd_api.g_ret_sts_error;
139: end if;
140: END IF;
141:
142: IF (p_salesrep_id IS NULL) THEN
143: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
144: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
145: 'cn.plsql.cn_mark_events_pub.mark_event_calc.error',
146: 'p_salesrep_id is null');
147: end if;
140: END IF;
141:
142: IF (p_salesrep_id IS NULL) THEN
143: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
144: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
145: 'cn.plsql.cn_mark_events_pub.mark_event_calc.error',
146: 'p_salesrep_id is null');
147: end if;
148: x_return_status := fnd_api.g_ret_sts_error;
152: fetch check_salesrep_id into l_dummy;
153: close check_salesrep_id;
154:
155: if (l_dummy <> 1) then
156: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
157: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
158: 'cn.plsql.cn_mark_events_pub.mark_event_calc.error',
159: 'p_salesrep_id does not have valid setup in the given operating unit');
160: end if;
153: close check_salesrep_id;
154:
155: if (l_dummy <> 1) then
156: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
157: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
158: 'cn.plsql.cn_mark_events_pub.mark_event_calc.error',
159: 'p_salesrep_id does not have valid setup in the given operating unit');
160: end if;
161: x_return_status := fnd_api.g_ret_sts_error;
168: fetch check_quota_id into l_dummy;
169: close check_quota_id;
170:
171: if (l_dummy <> 1) then
172: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
173: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
174: 'cn.plsql.cn_mark_events_pub.mark_event_calc.error',
175: 'p_quota_id is not valid in the given operating unit');
176: end if;
169: close check_quota_id;
170:
171: if (l_dummy <> 1) then
172: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
173: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
174: 'cn.plsql.cn_mark_events_pub.mark_event_calc.error',
175: 'p_quota_id is not valid in the given operating unit');
176: end if;
177: x_return_status := fnd_api.g_ret_sts_error;
184: fetch check_date_in_period into l_dummy;
185: close check_date_in_period;
186:
187: if (l_dummy <> 1) then
188: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
189: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
190: 'cn.plsql.cn_mark_events_pub.mark_event_calc.error',
191: 'p_start_date is not within the given period');
192: end if;
185: close check_date_in_period;
186:
187: if (l_dummy <> 1) then
188: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
189: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
190: 'cn.plsql.cn_mark_events_pub.mark_event_calc.error',
191: 'p_start_date is not within the given period');
192: end if;
193: x_return_status := fnd_api.g_ret_sts_error;
200: fetch check_date_in_period into l_dummy;
201: close check_date_in_period;
202:
203: if (l_dummy <> 1) then
204: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
205: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
206: 'cn.plsql.cn_mark_events_pub.mark_event_calc.error',
207: 'p_end_date is not within the given period');
208: end if;
201: close check_date_in_period;
202:
203: if (l_dummy <> 1) then
204: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
205: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
206: 'cn.plsql.cn_mark_events_pub.mark_event_calc.error',
207: 'p_end_date is not within the given period');
208: end if;
209: x_return_status := fnd_api.g_ret_sts_error;
210: end if;
211: end if;
212:
213: if (p_start_date is not null and p_end_date is not null and p_start_date > p_end_date) then
214: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
215: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
216: 'cn.plsql.cn_mark_events_pub.mark_event_calc.error',
217: 'p_start_date is greater than p_end_date');
218: end if;
211: end if;
212:
213: if (p_start_date is not null and p_end_date is not null and p_start_date > p_end_date) then
214: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
215: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
216: 'cn.plsql.cn_mark_events_pub.mark_event_calc.error',
217: 'p_start_date is greater than p_end_date');
218: end if;
219: x_return_status := fnd_api.g_ret_sts_error;
247: p_data => x_msg_data ,
248: p_encoded => FND_API.G_FALSE
249: );
250:
251: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
252: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
253: 'cn.plsql.cn_mark_events_pub.mark_event_calc.end',
254: 'End of mark_event_calc.');
255: end if;
248: p_encoded => FND_API.G_FALSE
249: );
250:
251: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
252: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
253: 'cn.plsql.cn_mark_events_pub.mark_event_calc.end',
254: 'End of mark_event_calc.');
255: end if;
256:
286: p_data => x_msg_data ,
287: p_encoded => FND_API.G_FALSE
288: );
289:
290: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
291: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
292: 'cn.plsql.cn_mark_events_pub.mark_event_calc.exception',
293: sqlerrm);
294: end if;
287: p_encoded => FND_API.G_FALSE
288: );
289:
290: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
291: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
292: 'cn.plsql.cn_mark_events_pub.mark_event_calc.exception',
293: sqlerrm);
294: end if;
295: