127: into l_le_name
128: from XLE_FIRSTPARTY_INFORMATION_V
129: where legal_entity_id = p_le_arr(i);
130:
131: FND_MESSAGE.set_name('IBY', 'IBY_AP_VLDT_METHOD_LE');
132: FND_MESSAGE.SET_TOKEN('METHOD', l_method_name);
133: FND_MESSAGE.SET_TOKEN('OBJECT', l_le_name);
134: FND_MSG_PUB.Add;
135:
128: from XLE_FIRSTPARTY_INFORMATION_V
129: where legal_entity_id = p_le_arr(i);
130:
131: FND_MESSAGE.set_name('IBY', 'IBY_AP_VLDT_METHOD_LE');
132: FND_MESSAGE.SET_TOKEN('METHOD', l_method_name);
133: FND_MESSAGE.SET_TOKEN('OBJECT', l_le_name);
134: FND_MSG_PUB.Add;
135:
136: x_return_status := FND_API.G_RET_STS_ERROR;
129: where legal_entity_id = p_le_arr(i);
130:
131: FND_MESSAGE.set_name('IBY', 'IBY_AP_VLDT_METHOD_LE');
132: FND_MESSAGE.SET_TOKEN('METHOD', l_method_name);
133: FND_MESSAGE.SET_TOKEN('OBJECT', l_le_name);
134: FND_MSG_PUB.Add;
135:
136: x_return_status := FND_API.G_RET_STS_ERROR;
137: END IF;
150: into l_org_name
151: from HR_ALL_ORGANIZATION_UNITS_VL
152: where organization_id = p_org_arr(i).org_id;
153:
154: FND_MESSAGE.set_name('IBY', 'IBY_AP_VLDT_METHOD_ORG');
155: FND_MESSAGE.SET_TOKEN('METHOD', l_method_name);
156: FND_MESSAGE.SET_TOKEN('OBJECT', l_org_name);
157: FND_MSG_PUB.Add;
158:
151: from HR_ALL_ORGANIZATION_UNITS_VL
152: where organization_id = p_org_arr(i).org_id;
153:
154: FND_MESSAGE.set_name('IBY', 'IBY_AP_VLDT_METHOD_ORG');
155: FND_MESSAGE.SET_TOKEN('METHOD', l_method_name);
156: FND_MESSAGE.SET_TOKEN('OBJECT', l_org_name);
157: FND_MSG_PUB.Add;
158:
159: x_return_status := FND_API.G_RET_STS_ERROR;
152: where organization_id = p_org_arr(i).org_id;
153:
154: FND_MESSAGE.set_name('IBY', 'IBY_AP_VLDT_METHOD_ORG');
155: FND_MESSAGE.SET_TOKEN('METHOD', l_method_name);
156: FND_MESSAGE.SET_TOKEN('OBJECT', l_org_name);
157: FND_MSG_PUB.Add;
158:
159: x_return_status := FND_API.G_RET_STS_ERROR;
160: END IF;
183: into l_acc_name
184: from CE_INTERNAL_BANK_ACCOUNTS_V
185: where bank_account_id = p_int_bank_acc_arr(i);
186:
187: FND_MESSAGE.set_name('IBY', 'IBY_AP_VLDT_PROF_ACC');
188: FND_MESSAGE.SET_TOKEN('PROFILE', l_profile_name);
189: FND_MESSAGE.SET_TOKEN('OBJECT', l_acc_name);
190: FND_MSG_PUB.Add;
191:
184: from CE_INTERNAL_BANK_ACCOUNTS_V
185: where bank_account_id = p_int_bank_acc_arr(i);
186:
187: FND_MESSAGE.set_name('IBY', 'IBY_AP_VLDT_PROF_ACC');
188: FND_MESSAGE.SET_TOKEN('PROFILE', l_profile_name);
189: FND_MESSAGE.SET_TOKEN('OBJECT', l_acc_name);
190: FND_MSG_PUB.Add;
191:
192: x_return_status := FND_API.G_RET_STS_ERROR;
185: where bank_account_id = p_int_bank_acc_arr(i);
186:
187: FND_MESSAGE.set_name('IBY', 'IBY_AP_VLDT_PROF_ACC');
188: FND_MESSAGE.SET_TOKEN('PROFILE', l_profile_name);
189: FND_MESSAGE.SET_TOKEN('OBJECT', l_acc_name);
190: FND_MSG_PUB.Add;
191:
192: x_return_status := FND_API.G_RET_STS_ERROR;
193: END IF;
206: into l_org_name
207: from HR_ALL_ORGANIZATION_UNITS_VL
208: where organization_id = p_org_arr(i).org_id;
209:
210: FND_MESSAGE.set_name('IBY', 'IBY_AP_VLDT_PROF_ORG');
211: FND_MESSAGE.SET_TOKEN('PROFILE', l_profile_name);
212: FND_MESSAGE.SET_TOKEN('OBJECT', l_org_name);
213: FND_MSG_PUB.Add;
214:
207: from HR_ALL_ORGANIZATION_UNITS_VL
208: where organization_id = p_org_arr(i).org_id;
209:
210: FND_MESSAGE.set_name('IBY', 'IBY_AP_VLDT_PROF_ORG');
211: FND_MESSAGE.SET_TOKEN('PROFILE', l_profile_name);
212: FND_MESSAGE.SET_TOKEN('OBJECT', l_org_name);
213: FND_MSG_PUB.Add;
214:
215: x_return_status := FND_API.G_RET_STS_ERROR;
208: where organization_id = p_org_arr(i).org_id;
209:
210: FND_MESSAGE.set_name('IBY', 'IBY_AP_VLDT_PROF_ORG');
211: FND_MESSAGE.SET_TOKEN('PROFILE', l_profile_name);
212: FND_MESSAGE.SET_TOKEN('OBJECT', l_org_name);
213: FND_MSG_PUB.Add;
214:
215: x_return_status := FND_API.G_RET_STS_ERROR;
216: END IF;
224: FETCH profile_appl_cur INTO l_count;
225: CLOSE profile_appl_cur;
226:
227: IF l_count = 0 THEN
228: FND_MESSAGE.set_name('IBY', 'IBY_AP_VLDT_PROF_CURR');
229: FND_MESSAGE.SET_TOKEN('PROFILE', l_profile_name);
230: FND_MESSAGE.SET_TOKEN('OBJECT', p_curr_arr(i));
231: FND_MSG_PUB.Add;
232:
225: CLOSE profile_appl_cur;
226:
227: IF l_count = 0 THEN
228: FND_MESSAGE.set_name('IBY', 'IBY_AP_VLDT_PROF_CURR');
229: FND_MESSAGE.SET_TOKEN('PROFILE', l_profile_name);
230: FND_MESSAGE.SET_TOKEN('OBJECT', p_curr_arr(i));
231: FND_MSG_PUB.Add;
232:
233: x_return_status := FND_API.G_RET_STS_ERROR;
226:
227: IF l_count = 0 THEN
228: FND_MESSAGE.set_name('IBY', 'IBY_AP_VLDT_PROF_CURR');
229: FND_MESSAGE.SET_TOKEN('PROFILE', l_profile_name);
230: FND_MESSAGE.SET_TOKEN('OBJECT', p_curr_arr(i));
231: FND_MSG_PUB.Add;
232:
233: x_return_status := FND_API.G_RET_STS_ERROR;
234: END IF;
246: and ap.applicable_type_code = 'PAYMENT_METHOD'
247: and (ap.applicable_value_to is null OR ap.applicable_value_to = p_payment_method_code);
248:
249: IF l_count = 0 THEN
250: FND_MESSAGE.set_name('IBY', 'IBY_AP_VLDT_PROF_METHOD');
251: FND_MESSAGE.SET_TOKEN('PROFILE', l_profile_name);
252: FND_MESSAGE.SET_TOKEN('OBJECT', l_method_name);
253: FND_MSG_PUB.Add;
254:
247: and (ap.applicable_value_to is null OR ap.applicable_value_to = p_payment_method_code);
248:
249: IF l_count = 0 THEN
250: FND_MESSAGE.set_name('IBY', 'IBY_AP_VLDT_PROF_METHOD');
251: FND_MESSAGE.SET_TOKEN('PROFILE', l_profile_name);
252: FND_MESSAGE.SET_TOKEN('OBJECT', l_method_name);
253: FND_MSG_PUB.Add;
254:
255: x_return_status := FND_API.G_RET_STS_ERROR;
248:
249: IF l_count = 0 THEN
250: FND_MESSAGE.set_name('IBY', 'IBY_AP_VLDT_PROF_METHOD');
251: FND_MESSAGE.SET_TOKEN('PROFILE', l_profile_name);
252: FND_MESSAGE.SET_TOKEN('OBJECT', l_method_name);
253: FND_MSG_PUB.Add;
254:
255: x_return_status := FND_API.G_RET_STS_ERROR;
256: END IF;
261: -- Validate Create Instruction Flag, etc.
262: IF p_crt_instr_flag = 'Y' THEN
263: IF p_ppp_id is null THEN
264: /*
265: FND_MESSAGE.set_name('IBY', 'IBY_BUILD_INV_PARAMS');
266: FND_MSG_PUB.Add;
267:
268: x_return_status := FND_API.G_RET_STS_ERROR;*/
269: print_debuginfo(l_module_name,'Payment profile entry considered optional after bug 8781032');
277: where payment_profile_id = p_ppp_id;
278:
279: IF (l_payment_document_id = -1) and
280: (l_proc_type = 'PRINTED') THEN
281: FND_MESSAGE.set_name('IBY', 'IBY_APSUB_NO_DEFAULT_PMT_DOC');
282: FND_MSG_PUB.Add;
283:
284: x_return_status := FND_API.G_RET_STS_ERROR;
285: END IF;
288: END IF;
289:
290: IF p_payment_document_id is not null THEN
291: IF p_ppp_id is null OR p_int_bank_acc_arr.COUNT = 0 THEN
292: FND_MESSAGE.set_name('IBY', 'IBY_BUILD_MISS_PMT_DOC_REL_PAR');
293: FND_MSG_PUB.Add;
294:
295: x_return_status := FND_API.G_RET_STS_ERROR;
296: END IF;
596: -- Initialize API return status to success
597: x_return_status := FND_API.G_RET_STS_SUCCESS;
598:
599: IF p_instr_id is null THEN
600: FND_MESSAGE.set_name('IBY', 'IBY_SRA_SUBMIT_INVALID_INSTR');
601: FND_MESSAGE.SET_TOKEN('INSTR_ID', p_instr_id);
602: FND_MSG_PUB.Add;
603: raise SRA_INVALID_INSTR;
604: END IF;
597: x_return_status := FND_API.G_RET_STS_SUCCESS;
598:
599: IF p_instr_id is null THEN
600: FND_MESSAGE.set_name('IBY', 'IBY_SRA_SUBMIT_INVALID_INSTR');
601: FND_MESSAGE.SET_TOKEN('INSTR_ID', p_instr_id);
602: FND_MSG_PUB.Add;
603: raise SRA_INVALID_INSTR;
604: END IF;
605:
612: and payment_instruction_status not in ('CREATION_ERROR', 'RETRY_CREATION', 'TERMINATED')
613: and IBY_FD_POST_PICP_PROGS_PVT.val_instruction_accessible(p_instr_id) = 'Y';
614:
615: IF l_instr_sra_ok = 0 THEN
616: FND_MESSAGE.set_name('IBY', 'IBY_SRA_SUBMIT_INVALID_INSTR');
617: FND_MESSAGE.SET_TOKEN('INSTR_ID', p_instr_id);
618: FND_MSG_PUB.Add;
619: raise SRA_INVALID_INSTR;
620: ELSE
613: and IBY_FD_POST_PICP_PROGS_PVT.val_instruction_accessible(p_instr_id) = 'Y';
614:
615: IF l_instr_sra_ok = 0 THEN
616: FND_MESSAGE.set_name('IBY', 'IBY_SRA_SUBMIT_INVALID_INSTR');
617: FND_MESSAGE.SET_TOKEN('INSTR_ID', p_instr_id);
618: FND_MSG_PUB.Add;
619: raise SRA_INVALID_INSTR;
620: ELSE
621: select sra_setup.remittance_advice_format_code,
772: print_debuginfo(l_module_name,'Request Id::'||l_request_id);
773:
774: IF(l_instruction_status = 'SUBMITTED_FOR_PRINTING')
775: THEN
776: FND_MESSAGE.set_name('IBY', 'IBY_INSTR_TERM_SUB_PRNT');
777: FND_MSG_PUB.Add;
778: ELSIF(l_process_type = 'IMMEDIATE')
779: THEN
780: FND_MESSAGE.set_name('IBY', 'IBY_INSTR_TERM_SING_PMT');
776: FND_MESSAGE.set_name('IBY', 'IBY_INSTR_TERM_SUB_PRNT');
777: FND_MSG_PUB.Add;
778: ELSIF(l_process_type = 'IMMEDIATE')
779: THEN
780: FND_MESSAGE.set_name('IBY', 'IBY_INSTR_TERM_SING_PMT');
781: FND_MSG_PUB.Add;
782: ELSIF(l_pmt_complete_code = 'YES')
783: THEN
784: FND_MESSAGE.set_name('IBY', 'IBY_INSTR_TERM_COMP');
780: FND_MESSAGE.set_name('IBY', 'IBY_INSTR_TERM_SING_PMT');
781: FND_MSG_PUB.Add;
782: ELSIF(l_pmt_complete_code = 'YES')
783: THEN
784: FND_MESSAGE.set_name('IBY', 'IBY_INSTR_TERM_COMP');
785: FND_MSG_PUB.Add;
786: ELSIF(l_instruction_status IN ('CREATION_ERROR',
787: 'FORMATTED_READY_TO_TRANSMIT' ,
788: 'TRANSMISSION_FAILED',
800: l_allowed := 'YES';
801: ELSIF (l_request_status = 'ERROR') THEN
802: l_allowed := 'YES';
803: ELSE
804: FND_MESSAGE.set_name('IBY', 'IBY_INSTR_TERM_FRMT_PRG');
805: FND_MSG_PUB.Add;
806: END IF;
807: ELSE
808: l_allowed := 'YES';
874: IF NOT(l_access = 1) THEN
875: -- If not MOAC access to all payments
876: l_allowed := 'NO';
877: IF(p_msg_req = 'Y') THEN
878: FND_MESSAGE.set_name('IBY', 'IBY_INSTR_TERM_INV_ACCESS');
879: FND_MSG_PUB.Add;
880: END IF;
881:
882: ELSE
885: IF(p_instruction_status = 'SUBMITTED_FOR_PRINTING')
886: THEN
887: l_allowed := 'NO';
888: IF(p_msg_req = 'Y') THEN
889: FND_MESSAGE.set_name('IBY', 'IBY_INSTR_TERM_SUB_PRNT');
890: FND_MSG_PUB.Add;
891: END IF;
892: ELSIF(p_process_type = 'IMMEDIATE')
893: THEN
892: ELSIF(p_process_type = 'IMMEDIATE')
893: THEN
894: l_allowed := 'NO';
895: IF(p_msg_req = 'Y') THEN
896: FND_MESSAGE.set_name('IBY', 'IBY_INSTR_TERM_SING_PMT');
897: FND_MSG_PUB.Add;
898: END IF;
899: ELSIF(p_pmt_complete_code = 'YES')
900: THEN
899: ELSIF(p_pmt_complete_code = 'YES')
900: THEN
901: l_allowed := 'NO';
902: IF(p_msg_req = 'Y') THEN
903: FND_MESSAGE.set_name('IBY', 'IBY_INSTR_TERM_COMP');
904: FND_MSG_PUB.Add;
905: END IF;
906: ELSIF(p_instruction_status IN ('CREATION_ERROR',
907: 'FORMATTED_READY_TO_TRANSMIT' ,
922: l_allowed := 'YES';
923: ELSE
924: l_allowed := 'NO';
925: IF(p_msg_req = 'Y') THEN
926: FND_MESSAGE.set_name('IBY', 'IBY_INSTR_TERM_FRMT_PRG');
927: FND_MSG_PUB.Add;
928: END IF;
929:
930: END IF;