211: SET last_batch_num = NVL( LAST_BATCH_NUM, 0 ) + 1
212: WHERE batch_source_id = l_batch_rec.batch_source_id;
213: --
214: IF ( SQL%ROWCOUNT = 0 ) THEN
215: FND_MESSAGE.set_name( 'AR', 'AR_UPDNA_LAST_BATCH_NO' );
216: APP_EXCEPTION.raise_exception;
217: END IF;
218: --
219: SELECT NVL( LAST_BATCH_NUM, 0 )
329: END IF;
330: END IF;
331: --
332: IF ( l_field IS NOT NULL ) THEN
333: FND_MESSAGE.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
334: FND_MESSAGE.set_token('PROCEDURE', 'VALIDATE_ARGS_INSERT_MANUAL');
335: FND_MESSAGE.set_token('PARAMETER', l_field);
336: APP_EXCEPTION.raise_exception;
337: END IF;
330: END IF;
331: --
332: IF ( l_field IS NOT NULL ) THEN
333: FND_MESSAGE.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
334: FND_MESSAGE.set_token('PROCEDURE', 'VALIDATE_ARGS_INSERT_MANUAL');
335: FND_MESSAGE.set_token('PARAMETER', l_field);
336: APP_EXCEPTION.raise_exception;
337: END IF;
338: --
331: --
332: IF ( l_field IS NOT NULL ) THEN
333: FND_MESSAGE.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
334: FND_MESSAGE.set_token('PROCEDURE', 'VALIDATE_ARGS_INSERT_MANUAL');
335: FND_MESSAGE.set_token('PARAMETER', l_field);
336: APP_EXCEPTION.raise_exception;
337: END IF;
338: --
339: IF PG_DEBUG in ('Y', 'C') THEN
541: open c_valid_receipt_class;
542: fetch c_valid_receipt_class into l_valid;
543: if c_valid_receipt_class%NOTFOUND then
544: close c_valid_receipt_class;
545: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
546: fnd_message.set_token('PROCEDURE', 'INSERT_AUTO_BATCH');
547: fnd_message.set_token('PARAMETER', 'RECEIPT_CLASS_ID' );
548: app_exception.raise_exception;
549: end if;
542: fetch c_valid_receipt_class into l_valid;
543: if c_valid_receipt_class%NOTFOUND then
544: close c_valid_receipt_class;
545: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
546: fnd_message.set_token('PROCEDURE', 'INSERT_AUTO_BATCH');
547: fnd_message.set_token('PARAMETER', 'RECEIPT_CLASS_ID' );
548: app_exception.raise_exception;
549: end if;
550: close c_valid_receipt_class;
543: if c_valid_receipt_class%NOTFOUND then
544: close c_valid_receipt_class;
545: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
546: fnd_message.set_token('PROCEDURE', 'INSERT_AUTO_BATCH');
547: fnd_message.set_token('PARAMETER', 'RECEIPT_CLASS_ID' );
548: app_exception.raise_exception;
549: end if;
550: close c_valid_receipt_class;
551: end if;
555: open c_valid_receipt_method;
556: fetch c_valid_receipt_method into l_valid;
557: if c_valid_receipt_method%NOTFOUND then
558: close c_valid_receipt_method;
559: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
560: fnd_message.set_token('PROCEDURE', 'INSERT_AUTO_BATCH');
561: fnd_message.set_token('PARAMETER', 'RECEIPT_METHOD_ID' );
562: app_exception.raise_exception;
563: end if;
556: fetch c_valid_receipt_method into l_valid;
557: if c_valid_receipt_method%NOTFOUND then
558: close c_valid_receipt_method;
559: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
560: fnd_message.set_token('PROCEDURE', 'INSERT_AUTO_BATCH');
561: fnd_message.set_token('PARAMETER', 'RECEIPT_METHOD_ID' );
562: app_exception.raise_exception;
563: end if;
564: close c_valid_receipt_method;
557: if c_valid_receipt_method%NOTFOUND then
558: close c_valid_receipt_method;
559: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
560: fnd_message.set_token('PROCEDURE', 'INSERT_AUTO_BATCH');
561: fnd_message.set_token('PARAMETER', 'RECEIPT_METHOD_ID' );
562: app_exception.raise_exception;
563: end if;
564: close c_valid_receipt_method;
565: end if;
580: l_func_curr_code, l_batch_rec.exchange_date) = 'Y') then l_batch_rec.exchange_rate_type := 'EMU FIXED';
581: end if;
582: end if;
583: if (nvl(l_batch_rec.exchange_rate, -1) = -1) then
584: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
585: fnd_message.set_token('PROCEDURE', 'INSERT_AUTO_BATCH');
586: fnd_message.set_token('PARAMETER', 'EXCHANGE_RATE(_TYPE)' );
587: app_exception.raise_exception;
588: end if;
581: end if;
582: end if;
583: if (nvl(l_batch_rec.exchange_rate, -1) = -1) then
584: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
585: fnd_message.set_token('PROCEDURE', 'INSERT_AUTO_BATCH');
586: fnd_message.set_token('PARAMETER', 'EXCHANGE_RATE(_TYPE)' );
587: app_exception.raise_exception;
588: end if;
589: end if;
582: end if;
583: if (nvl(l_batch_rec.exchange_rate, -1) = -1) then
584: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
585: fnd_message.set_token('PROCEDURE', 'INSERT_AUTO_BATCH');
586: fnd_message.set_token('PARAMETER', 'EXCHANGE_RATE(_TYPE)' );
587: app_exception.raise_exception;
588: end if;
589: end if;
590:
610: SET last_batch_num = NVL( LAST_BATCH_NUM, 0 ) + 1
611: WHERE batch_source_id = l_batch_rec.batch_source_id;
612: --
613: IF ( SQL%ROWCOUNT = 0 ) THEN
614: FND_MESSAGE.set_name( 'AR', 'AR_UPDNA_LAST_BATCH_NO' );
615: APP_EXCEPTION.raise_exception;
616: END IF;
617: --
618: SELECT NVL( LAST_BATCH_NUM, 0 )
754: l_field := NULL;
755: END IF;
756: --
757: IF ( l_field IS NOT NULL ) THEN
758: FND_MESSAGE.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
759: FND_MESSAGE.set_token('PROCEDURE', 'VALIDATE_ARGS_INSERT_AUTO');
760: FND_MESSAGE.set_token('PARAMETER', l_field );
761: APP_EXCEPTION.raise_exception;
762: END IF;
755: END IF;
756: --
757: IF ( l_field IS NOT NULL ) THEN
758: FND_MESSAGE.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
759: FND_MESSAGE.set_token('PROCEDURE', 'VALIDATE_ARGS_INSERT_AUTO');
760: FND_MESSAGE.set_token('PARAMETER', l_field );
761: APP_EXCEPTION.raise_exception;
762: END IF;
763: --
756: --
757: IF ( l_field IS NOT NULL ) THEN
758: FND_MESSAGE.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
759: FND_MESSAGE.set_token('PROCEDURE', 'VALIDATE_ARGS_INSERT_AUTO');
760: FND_MESSAGE.set_token('PARAMETER', l_field );
761: APP_EXCEPTION.raise_exception;
762: END IF;
763: --
764: IF PG_DEBUG in ('Y', 'C') THEN
1014: CLOSE c_bank_branches;
1015: --
1016: IF ( l_institution_type = 'CLEARING HOUSE' ) THEN
1017: IF ( l_batch_rec.remit_bank_acct_use_id IS NOT NULL ) THEN
1018: FND_MESSAGE.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1019: FND_MESSAGE.set_token('PROCEDURE', 'INSERT_REMIT_BATCH');
1020: FND_MESSAGE.set_token('PARAMETER', 'REMITTANCE_BANK_ACCOUNT_ID' );
1021: APP_EXCEPTION.raise_exception;
1022: END IF;
1015: --
1016: IF ( l_institution_type = 'CLEARING HOUSE' ) THEN
1017: IF ( l_batch_rec.remit_bank_acct_use_id IS NOT NULL ) THEN
1018: FND_MESSAGE.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1019: FND_MESSAGE.set_token('PROCEDURE', 'INSERT_REMIT_BATCH');
1020: FND_MESSAGE.set_token('PARAMETER', 'REMITTANCE_BANK_ACCOUNT_ID' );
1021: APP_EXCEPTION.raise_exception;
1022: END IF;
1023: ELSIF (l_batch_rec.remit_bank_acct_use_id IS NULL) THEN
1016: IF ( l_institution_type = 'CLEARING HOUSE' ) THEN
1017: IF ( l_batch_rec.remit_bank_acct_use_id IS NOT NULL ) THEN
1018: FND_MESSAGE.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1019: FND_MESSAGE.set_token('PROCEDURE', 'INSERT_REMIT_BATCH');
1020: FND_MESSAGE.set_token('PARAMETER', 'REMITTANCE_BANK_ACCOUNT_ID' );
1021: APP_EXCEPTION.raise_exception;
1022: END IF;
1023: ELSIF (l_batch_rec.remit_bank_acct_use_id IS NULL) THEN
1024: FND_MESSAGE.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1020: FND_MESSAGE.set_token('PARAMETER', 'REMITTANCE_BANK_ACCOUNT_ID' );
1021: APP_EXCEPTION.raise_exception;
1022: END IF;
1023: ELSIF (l_batch_rec.remit_bank_acct_use_id IS NULL) THEN
1024: FND_MESSAGE.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1025: FND_MESSAGE.set_token('PROCEDURE', 'INSERT_REMIT_BATCH');
1026: FND_MESSAGE.set_token('PARAMETER', 'REMITTANCE_BANK_ACCOUNT_ID' );
1027: APP_EXCEPTION.raise_exception;
1028: END IF;
1021: APP_EXCEPTION.raise_exception;
1022: END IF;
1023: ELSIF (l_batch_rec.remit_bank_acct_use_id IS NULL) THEN
1024: FND_MESSAGE.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1025: FND_MESSAGE.set_token('PROCEDURE', 'INSERT_REMIT_BATCH');
1026: FND_MESSAGE.set_token('PARAMETER', 'REMITTANCE_BANK_ACCOUNT_ID' );
1027: APP_EXCEPTION.raise_exception;
1028: END IF;
1029: -- Check for valid GL date
1022: END IF;
1023: ELSIF (l_batch_rec.remit_bank_acct_use_id IS NULL) THEN
1024: FND_MESSAGE.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1025: FND_MESSAGE.set_token('PROCEDURE', 'INSERT_REMIT_BATCH');
1026: FND_MESSAGE.set_token('PARAMETER', 'REMITTANCE_BANK_ACCOUNT_ID' );
1027: APP_EXCEPTION.raise_exception;
1028: END IF;
1029: -- Check for valid GL date
1030: --
1037: open c_valid_receipt_class;
1038: fetch c_valid_receipt_class into l_valid;
1039: if c_valid_receipt_class%NOTFOUND then
1040: close c_valid_receipt_class;
1041: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1042: fnd_message.set_token('PROCEDURE', 'INSERT_REMIT_BATCH');
1043: fnd_message.set_token('PARAMETER', 'RECEIPT_CLASS_ID' );
1044: app_exception.raise_exception;
1045: end if;
1038: fetch c_valid_receipt_class into l_valid;
1039: if c_valid_receipt_class%NOTFOUND then
1040: close c_valid_receipt_class;
1041: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1042: fnd_message.set_token('PROCEDURE', 'INSERT_REMIT_BATCH');
1043: fnd_message.set_token('PARAMETER', 'RECEIPT_CLASS_ID' );
1044: app_exception.raise_exception;
1045: end if;
1046: close c_valid_receipt_class;
1039: if c_valid_receipt_class%NOTFOUND then
1040: close c_valid_receipt_class;
1041: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1042: fnd_message.set_token('PROCEDURE', 'INSERT_REMIT_BATCH');
1043: fnd_message.set_token('PARAMETER', 'RECEIPT_CLASS_ID' );
1044: app_exception.raise_exception;
1045: end if;
1046: close c_valid_receipt_class;
1047: end if;
1051: open c_valid_receipt_method;
1052: fetch c_valid_receipt_method into l_valid;
1053: if c_valid_receipt_method%NOTFOUND then
1054: close c_valid_receipt_method;
1055: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1056: fnd_message.set_token('PROCEDURE', 'INSERT_REMIT_BATCH');
1057: fnd_message.set_token('PARAMETER', 'RECEIPT_METHOD_ID' );
1058: app_exception.raise_exception;
1059: end if;
1052: fetch c_valid_receipt_method into l_valid;
1053: if c_valid_receipt_method%NOTFOUND then
1054: close c_valid_receipt_method;
1055: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1056: fnd_message.set_token('PROCEDURE', 'INSERT_REMIT_BATCH');
1057: fnd_message.set_token('PARAMETER', 'RECEIPT_METHOD_ID' );
1058: app_exception.raise_exception;
1059: end if;
1060: close c_valid_receipt_method;
1053: if c_valid_receipt_method%NOTFOUND then
1054: close c_valid_receipt_method;
1055: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1056: fnd_message.set_token('PROCEDURE', 'INSERT_REMIT_BATCH');
1057: fnd_message.set_token('PARAMETER', 'RECEIPT_METHOD_ID' );
1058: app_exception.raise_exception;
1059: end if;
1060: close c_valid_receipt_method;
1061: end if;
1065: open c_valid_bank_branch ;
1066: fetch c_valid_bank_branch into l_valid;
1067: if c_valid_bank_branch%NOTFOUND then
1068: close c_valid_bank_branch;
1069: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1070: fnd_message.set_token('PROCEDURE', 'INSERT_REMIT_BATCH');
1071: fnd_message.set_token('PARAMETER', 'BANK_BRANCH_ID' );
1072: app_exception.raise_exception;
1073: end if;
1066: fetch c_valid_bank_branch into l_valid;
1067: if c_valid_bank_branch%NOTFOUND then
1068: close c_valid_bank_branch;
1069: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1070: fnd_message.set_token('PROCEDURE', 'INSERT_REMIT_BATCH');
1071: fnd_message.set_token('PARAMETER', 'BANK_BRANCH_ID' );
1072: app_exception.raise_exception;
1073: end if;
1074: close c_valid_bank_branch;
1067: if c_valid_bank_branch%NOTFOUND then
1068: close c_valid_bank_branch;
1069: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1070: fnd_message.set_token('PROCEDURE', 'INSERT_REMIT_BATCH');
1071: fnd_message.set_token('PARAMETER', 'BANK_BRANCH_ID' );
1072: app_exception.raise_exception;
1073: end if;
1074: close c_valid_bank_branch;
1075: end if;
1079: open c_valid_bank_account;
1080: fetch c_valid_bank_account into l_valid;
1081: if c_valid_bank_account%NOTFOUND then
1082: close c_valid_bank_account;
1083: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1084: fnd_message.set_token('PROCEDURE', 'INSERT_REMIT_BATCH');
1085: fnd_message.set_token('PARAMETER', 'BANK_ACCOUNT_ID' );
1086: app_exception.raise_exception;
1087: end if;
1080: fetch c_valid_bank_account into l_valid;
1081: if c_valid_bank_account%NOTFOUND then
1082: close c_valid_bank_account;
1083: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1084: fnd_message.set_token('PROCEDURE', 'INSERT_REMIT_BATCH');
1085: fnd_message.set_token('PARAMETER', 'BANK_ACCOUNT_ID' );
1086: app_exception.raise_exception;
1087: end if;
1088: close c_valid_bank_account;
1081: if c_valid_bank_account%NOTFOUND then
1082: close c_valid_bank_account;
1083: fnd_message.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1084: fnd_message.set_token('PROCEDURE', 'INSERT_REMIT_BATCH');
1085: fnd_message.set_token('PARAMETER', 'BANK_ACCOUNT_ID' );
1086: app_exception.raise_exception;
1087: end if;
1088: close c_valid_bank_account;
1089: end if;
1111: SET last_batch_num = NVL( LAST_BATCH_NUM, 0 ) + 1
1112: WHERE batch_source_id = l_batch_rec.batch_source_id;
1113: --
1114: IF ( SQL%ROWCOUNT = 0 ) THEN
1115: FND_MESSAGE.set_name( 'AR', 'AR_UPDNA_LAST_BATCH_NO' );
1116: APP_EXCEPTION.raise_exception;
1117: END IF;
1118: --
1119: SELECT NVL( LAST_BATCH_NUM, 0 )
1220: l_field := NULL;
1221: END IF;
1222: --
1223: IF ( l_field IS NOT NULL ) THEN
1224: FND_MESSAGE.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1225: FND_MESSAGE.set_token('PROCEDURE', 'VALIDATE_ARGS_INSERT_REMIT');
1226: FND_MESSAGE.set_token('PARAMETER', l_field );
1227: APP_EXCEPTION.raise_exception;
1228: END IF;
1221: END IF;
1222: --
1223: IF ( l_field IS NOT NULL ) THEN
1224: FND_MESSAGE.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1225: FND_MESSAGE.set_token('PROCEDURE', 'VALIDATE_ARGS_INSERT_REMIT');
1226: FND_MESSAGE.set_token('PARAMETER', l_field );
1227: APP_EXCEPTION.raise_exception;
1228: END IF;
1229: --
1222: --
1223: IF ( l_field IS NOT NULL ) THEN
1224: FND_MESSAGE.set_name( 'AR', 'AR_PROCEDURE_VALID_ARGS_FAIL' );
1225: FND_MESSAGE.set_token('PROCEDURE', 'VALIDATE_ARGS_INSERT_REMIT');
1226: FND_MESSAGE.set_token('PARAMETER', l_field );
1227: APP_EXCEPTION.raise_exception;
1228: END IF;
1229: --
1230: IF PG_DEBUG in ('Y', 'C') THEN