470: (NOT(g_invalid_group_flag) AND NOT(g_no_group_flag)) THEN
471:
472: /* Form the Order by clause of optional attributes and print the optional attributes */
473: IF g_grp_by_purpose_flag THEN
474: fnd_message.set_name ('PN','PN_EXPAR_PMT_PUR');
475: pnp_debug_pkg.put_log_msg(fnd_message.get);
476: l_ord_clause := l_ord_clause || ' , payment_purpose';
477: END IF;
478: IF g_grp_by_type_flag THEN
471:
472: /* Form the Order by clause of optional attributes and print the optional attributes */
473: IF g_grp_by_purpose_flag THEN
474: fnd_message.set_name ('PN','PN_EXPAR_PMT_PUR');
475: pnp_debug_pkg.put_log_msg(fnd_message.get);
476: l_ord_clause := l_ord_clause || ' , payment_purpose';
477: END IF;
478: IF g_grp_by_type_flag THEN
479: fnd_message.set_name ('PN','PN_EXPAR_PMT_TYP');
475: pnp_debug_pkg.put_log_msg(fnd_message.get);
476: l_ord_clause := l_ord_clause || ' , payment_purpose';
477: END IF;
478: IF g_grp_by_type_flag THEN
479: fnd_message.set_name ('PN','PN_EXPAR_PMT_TYP');
480: pnp_debug_pkg.put_log_msg(fnd_message.get);
481: l_ord_clause := l_ord_clause || ' , payment_type';
482: END IF;
483: IF g_grp_by_lenum_flag THEN
476: l_ord_clause := l_ord_clause || ' , payment_purpose';
477: END IF;
478: IF g_grp_by_type_flag THEN
479: fnd_message.set_name ('PN','PN_EXPAR_PMT_TYP');
480: pnp_debug_pkg.put_log_msg(fnd_message.get);
481: l_ord_clause := l_ord_clause || ' , payment_type';
482: END IF;
483: IF g_grp_by_lenum_flag THEN
484: fnd_message.set_name ('PN','PN_EXPAR_LSNO');
480: pnp_debug_pkg.put_log_msg(fnd_message.get);
481: l_ord_clause := l_ord_clause || ' , payment_type';
482: END IF;
483: IF g_grp_by_lenum_flag THEN
484: fnd_message.set_name ('PN','PN_EXPAR_LSNO');
485: pnp_debug_pkg.put_log_msg(fnd_message.get);
486: l_ord_clause := l_ord_clause || ' , le.lease_num';
487: END IF;
488: Q_Billitem_grp := Q_Billitem_grp ||l_param_where_clause || l_ord_clause;
481: l_ord_clause := l_ord_clause || ' , payment_type';
482: END IF;
483: IF g_grp_by_lenum_flag THEN
484: fnd_message.set_name ('PN','PN_EXPAR_LSNO');
485: pnp_debug_pkg.put_log_msg(fnd_message.get);
486: l_ord_clause := l_ord_clause || ' , le.lease_num';
487: END IF;
488: Q_Billitem_grp := Q_Billitem_grp ||l_param_where_clause || l_ord_clause;
489: PN_EXP_TO_AR.EXP_TO_AR_GRP(errbuf
508:
509: EXCEPTION
510:
511: WHEN INVALID_GROUP_RULE THEN
512: fnd_message.set_name ('PN', 'PN_INVALID_GROUP_RULE_ATTACHED');
513: err_msg := fnd_message.get;
514: pnp_debug_pkg.put_log_msg(err_msg);
515: errbuf := err_msg;
516: retcode := 2;
509: EXCEPTION
510:
511: WHEN INVALID_GROUP_RULE THEN
512: fnd_message.set_name ('PN', 'PN_INVALID_GROUP_RULE_ATTACHED');
513: err_msg := fnd_message.get;
514: pnp_debug_pkg.put_log_msg(err_msg);
515: errbuf := err_msg;
516: retcode := 2;
517: WHEN OTHERS THEN
695:
696: /* Get the Optional Attributes of the Grouping Rule mentioned in Batch Source */
697: l_context := 'Getting the Optional Attributes of the Grouping Rule mentioned in Batch Source';
698:
699: fnd_message.set_name ('PN','PN_EXPAR_OPT');
700: pnp_debug_pkg.put_log_msg(fnd_message.get);
701: l_context := 'Getting the Batch Source Name';
702: pnp_debug_pkg.log(l_context);
703: /* get the batch source name */
696: /* Get the Optional Attributes of the Grouping Rule mentioned in Batch Source */
697: l_context := 'Getting the Optional Attributes of the Grouping Rule mentioned in Batch Source';
698:
699: fnd_message.set_name ('PN','PN_EXPAR_OPT');
700: pnp_debug_pkg.put_log_msg(fnd_message.get);
701: l_context := 'Getting the Batch Source Name';
702: pnp_debug_pkg.log(l_context);
703: /* get the batch source name */
704: OPEN get_batch_source_name;
917: /* Check for Invalid Items here */
918: IF UPPER(exp_ar_tbl(l_index).conv_rate_type) = 'USER'
919: AND exp_ar_tbl(l_index).conv_rate IS NULL THEN
920:
921: fnd_message.set_name ('PN', 'PN_CONV_RATE_REQD');
922: l_err_msg4 := fnd_message.get;
923: pnp_debug_pkg.put_log_msg(l_err_msg4);
924:
925: RAISE GENERIC_EXPORT_EXCEPTION;
918: IF UPPER(exp_ar_tbl(l_index).conv_rate_type) = 'USER'
919: AND exp_ar_tbl(l_index).conv_rate IS NULL THEN
920:
921: fnd_message.set_name ('PN', 'PN_CONV_RATE_REQD');
922: l_err_msg4 := fnd_message.get;
923: pnp_debug_pkg.put_log_msg(l_err_msg4);
924:
925: RAISE GENERIC_EXPORT_EXCEPTION;
926:
928:
929: IF exp_ar_tbl(l_index).pn_term_id IS NULL
930: OR exp_ar_tbl(l_index).pn_trx_type_id IS NULL THEN
931:
932: fnd_message.set_name ('PN', 'PN_PTRM_TRX_REQD_MSG');
933: l_err_msg3 := fnd_message.get;
934: pnp_debug_pkg.put_log_msg(l_err_msg3);
935:
936: RAISE GENERIC_EXPORT_EXCEPTION;
929: IF exp_ar_tbl(l_index).pn_term_id IS NULL
930: OR exp_ar_tbl(l_index).pn_trx_type_id IS NULL THEN
931:
932: fnd_message.set_name ('PN', 'PN_PTRM_TRX_REQD_MSG');
933: l_err_msg3 := fnd_message.get;
934: pnp_debug_pkg.put_log_msg(l_err_msg3);
935:
936: RAISE GENERIC_EXPORT_EXCEPTION;
937:
940: IF NVL(exp_ar_tbl(l_index).normalize,'N') = 'Y' THEN
941:
942: IF (l_rev_flag <> 'Y' OR l_rec_flag <> 'Y' OR l_ast_flag <> 'Y') THEN
943:
944: fnd_message.set_name ('PN', 'PN_ALL_ACNT_DIST_MSG');
945: l_err_msg1 := fnd_message.get;
946: pnp_debug_pkg.put_log_msg(l_err_msg1);
947:
948: RAISE GENERIC_EXPORT_EXCEPTION;
941:
942: IF (l_rev_flag <> 'Y' OR l_rec_flag <> 'Y' OR l_ast_flag <> 'Y') THEN
943:
944: fnd_message.set_name ('PN', 'PN_ALL_ACNT_DIST_MSG');
945: l_err_msg1 := fnd_message.get;
946: pnp_debug_pkg.put_log_msg(l_err_msg1);
947:
948: RAISE GENERIC_EXPORT_EXCEPTION;
949:
955: (l_prof_optn IN ('M', 'N') AND ((l_rev_flag = 'Y' AND l_rec_flag <> 'Y') OR
956: (l_rev_flag <> 'Y' AND l_rec_flag = 'Y')))
957: THEN
958:
959: fnd_message.set_name ('PN', 'PN_REVREC_DIST_MSG');
960: l_err_msg2 := fnd_message.get;
961: pnp_debug_pkg.put_log_msg(l_err_msg2);
962:
963: RAISE GENERIC_EXPORT_EXCEPTION;
956: (l_rev_flag <> 'Y' AND l_rec_flag = 'Y')))
957: THEN
958:
959: fnd_message.set_name ('PN', 'PN_REVREC_DIST_MSG');
960: l_err_msg2 := fnd_message.get;
961: pnp_debug_pkg.put_log_msg(l_err_msg2);
962:
963: RAISE GENERIC_EXPORT_EXCEPTION;
964:
1019: l_next := 2;
1020: l_item_prcsed := 0;
1021: l_count := exp_ar_tbl.count;
1022:
1023: fnd_message.set_name ('PN','PN_EXPAR_ITM_PROC');
1024: fnd_message.set_token ('NUM',l_count);
1025: pnp_debug_pkg.put_log_msg(fnd_message.get);
1026:
1027: l_context := 'Finding the Groups of items';
1020: l_item_prcsed := 0;
1021: l_count := exp_ar_tbl.count;
1022:
1023: fnd_message.set_name ('PN','PN_EXPAR_ITM_PROC');
1024: fnd_message.set_token ('NUM',l_count);
1025: pnp_debug_pkg.put_log_msg(fnd_message.get);
1026:
1027: l_context := 'Finding the Groups of items';
1028: pnp_debug_pkg.log(l_context);
1021: l_count := exp_ar_tbl.count;
1022:
1023: fnd_message.set_name ('PN','PN_EXPAR_ITM_PROC');
1024: fnd_message.set_token ('NUM',l_count);
1025: pnp_debug_pkg.put_log_msg(fnd_message.get);
1026:
1027: l_context := 'Finding the Groups of items';
1028: pnp_debug_pkg.log(l_context);
1029:
1097: e_count := e_count + l_next - l_start;
1098: l_start := l_next;
1099: l_next := l_next + 1;
1100: l_valid_rec_accs := FALSE;
1101: fnd_message.set_name ('PN', 'PN_UNMATCHING_REC_ACCNT');
1102: pnp_debug_pkg.put_log_msg(fnd_message.get);
1103: EXIT;
1104:
1105: END IF;
1098: l_start := l_next;
1099: l_next := l_next + 1;
1100: l_valid_rec_accs := FALSE;
1101: fnd_message.set_name ('PN', 'PN_UNMATCHING_REC_ACCNT');
1102: pnp_debug_pkg.put_log_msg(fnd_message.get);
1103: EXIT;
1104:
1105: END IF;
1106:
1111:
1112: l_context := 'Group Valid. Processing the grouped items';
1113: pnp_debug_pkg.log(l_context);
1114:
1115: fnd_message.set_name ('PN','PN_EXPAR_ITM_QLFY');
1116: fnd_message.set_token ('NUM',(l_next-l_start));
1117: pnp_debug_pkg.put_log_msg(fnd_message.get);
1118:
1119: l_rec_insert_flag := TRUE;
1112: l_context := 'Group Valid. Processing the grouped items';
1113: pnp_debug_pkg.log(l_context);
1114:
1115: fnd_message.set_name ('PN','PN_EXPAR_ITM_QLFY');
1116: fnd_message.set_token ('NUM',(l_next-l_start));
1117: pnp_debug_pkg.put_log_msg(fnd_message.get);
1118:
1119: l_rec_insert_flag := TRUE;
1120: l_last_updated_by := FND_GLOBAL.USER_ID;
1113: pnp_debug_pkg.log(l_context);
1114:
1115: fnd_message.set_name ('PN','PN_EXPAR_ITM_QLFY');
1116: fnd_message.set_token ('NUM',(l_next-l_start));
1117: pnp_debug_pkg.put_log_msg(fnd_message.get);
1118:
1119: l_rec_insert_flag := TRUE;
1120: l_last_updated_by := FND_GLOBAL.USER_ID;
1121: l_last_update_login := FND_GLOBAL.LOGIN_ID;
1139: fnd_currency.get_info(exp_ar_tbl(l_grp).pn_export_currency_code,
1140: l_precision, l_ext_precision, l_min_acct_unit);
1141: pnp_debug_pkg.put_log_msg('
1142: ================================================================================');
1143: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
1144: fnd_message.set_token ('ITM_ID',exp_ar_tbl(l_grp).pn_payment_item_id);
1145: fnd_message.set_token ('CUST_ID',TO_CHAR(exp_ar_tbl(l_grp).pn_customer_id));
1146: fnd_message.set_token ('REC_AMT',0);
1147: fnd_message.set_token ('DATE',exp_ar_tbl(l_grp).gl_date);
1140: l_precision, l_ext_precision, l_min_acct_unit);
1141: pnp_debug_pkg.put_log_msg('
1142: ================================================================================');
1143: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
1144: fnd_message.set_token ('ITM_ID',exp_ar_tbl(l_grp).pn_payment_item_id);
1145: fnd_message.set_token ('CUST_ID',TO_CHAR(exp_ar_tbl(l_grp).pn_customer_id));
1146: fnd_message.set_token ('REC_AMT',0);
1147: fnd_message.set_token ('DATE',exp_ar_tbl(l_grp).gl_date);
1148: pnp_debug_pkg.put_log_msg('
1141: pnp_debug_pkg.put_log_msg('
1142: ================================================================================');
1143: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
1144: fnd_message.set_token ('ITM_ID',exp_ar_tbl(l_grp).pn_payment_item_id);
1145: fnd_message.set_token ('CUST_ID',TO_CHAR(exp_ar_tbl(l_grp).pn_customer_id));
1146: fnd_message.set_token ('REC_AMT',0);
1147: fnd_message.set_token ('DATE',exp_ar_tbl(l_grp).gl_date);
1148: pnp_debug_pkg.put_log_msg('
1149: ================================================================================');
1142: ================================================================================');
1143: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
1144: fnd_message.set_token ('ITM_ID',exp_ar_tbl(l_grp).pn_payment_item_id);
1145: fnd_message.set_token ('CUST_ID',TO_CHAR(exp_ar_tbl(l_grp).pn_customer_id));
1146: fnd_message.set_token ('REC_AMT',0);
1147: fnd_message.set_token ('DATE',exp_ar_tbl(l_grp).gl_date);
1148: pnp_debug_pkg.put_log_msg('
1149: ================================================================================');
1150:
1143: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
1144: fnd_message.set_token ('ITM_ID',exp_ar_tbl(l_grp).pn_payment_item_id);
1145: fnd_message.set_token ('CUST_ID',TO_CHAR(exp_ar_tbl(l_grp).pn_customer_id));
1146: fnd_message.set_token ('REC_AMT',0);
1147: fnd_message.set_token ('DATE',exp_ar_tbl(l_grp).gl_date);
1148: pnp_debug_pkg.put_log_msg('
1149: ================================================================================');
1150:
1151:
1149: ================================================================================');
1150:
1151:
1152: /* Print the Conversion Rate and Type */
1153: fnd_message.set_name ('PN','PN_CRACC_CV_RATE');
1154: fnd_message.set_token ('CR',exp_ar_tbl(l_grp).conv_rate);
1155: pnp_debug_pkg.put_log_msg(fnd_message.get);
1156:
1157: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
1150:
1151:
1152: /* Print the Conversion Rate and Type */
1153: fnd_message.set_name ('PN','PN_CRACC_CV_RATE');
1154: fnd_message.set_token ('CR',exp_ar_tbl(l_grp).conv_rate);
1155: pnp_debug_pkg.put_log_msg(fnd_message.get);
1156:
1157: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
1158: fnd_message.set_token ('CT',exp_ar_tbl(l_grp).conv_rate_type);
1151:
1152: /* Print the Conversion Rate and Type */
1153: fnd_message.set_name ('PN','PN_CRACC_CV_RATE');
1154: fnd_message.set_token ('CR',exp_ar_tbl(l_grp).conv_rate);
1155: pnp_debug_pkg.put_log_msg(fnd_message.get);
1156:
1157: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
1158: fnd_message.set_token ('CT',exp_ar_tbl(l_grp).conv_rate_type);
1159: pnp_debug_pkg.put_log_msg(fnd_message.get);
1153: fnd_message.set_name ('PN','PN_CRACC_CV_RATE');
1154: fnd_message.set_token ('CR',exp_ar_tbl(l_grp).conv_rate);
1155: pnp_debug_pkg.put_log_msg(fnd_message.get);
1156:
1157: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
1158: fnd_message.set_token ('CT',exp_ar_tbl(l_grp).conv_rate_type);
1159: pnp_debug_pkg.put_log_msg(fnd_message.get);
1160:
1161: /* Print send entries flag for the lease */
1154: fnd_message.set_token ('CR',exp_ar_tbl(l_grp).conv_rate);
1155: pnp_debug_pkg.put_log_msg(fnd_message.get);
1156:
1157: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
1158: fnd_message.set_token ('CT',exp_ar_tbl(l_grp).conv_rate_type);
1159: pnp_debug_pkg.put_log_msg(fnd_message.get);
1160:
1161: /* Print send entries flag for the lease */
1162: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
1155: pnp_debug_pkg.put_log_msg(fnd_message.get);
1156:
1157: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
1158: fnd_message.set_token ('CT',exp_ar_tbl(l_grp).conv_rate_type);
1159: pnp_debug_pkg.put_log_msg(fnd_message.get);
1160:
1161: /* Print send entries flag for the lease */
1162: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
1163: fnd_message.set_token ('ID',exp_ar_tbl(l_grp).pn_lease_id);
1158: fnd_message.set_token ('CT',exp_ar_tbl(l_grp).conv_rate_type);
1159: pnp_debug_pkg.put_log_msg(fnd_message.get);
1160:
1161: /* Print send entries flag for the lease */
1162: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
1163: fnd_message.set_token ('ID',exp_ar_tbl(l_grp).pn_lease_id);
1164: fnd_message.set_token ('SEND',exp_ar_tbl(l_grp).send_entries);
1165: pnp_debug_pkg.put_log_msg(fnd_message.get);
1166:
1159: pnp_debug_pkg.put_log_msg(fnd_message.get);
1160:
1161: /* Print send entries flag for the lease */
1162: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
1163: fnd_message.set_token ('ID',exp_ar_tbl(l_grp).pn_lease_id);
1164: fnd_message.set_token ('SEND',exp_ar_tbl(l_grp).send_entries);
1165: pnp_debug_pkg.put_log_msg(fnd_message.get);
1166:
1167:
1160:
1161: /* Print send entries flag for the lease */
1162: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
1163: fnd_message.set_token ('ID',exp_ar_tbl(l_grp).pn_lease_id);
1164: fnd_message.set_token ('SEND',exp_ar_tbl(l_grp).send_entries);
1165: pnp_debug_pkg.put_log_msg(fnd_message.get);
1166:
1167:
1168: /* Initialize the variables */
1161: /* Print send entries flag for the lease */
1162: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
1163: fnd_message.set_token ('ID',exp_ar_tbl(l_grp).pn_lease_id);
1164: fnd_message.set_token ('SEND',exp_ar_tbl(l_grp).send_entries);
1165: pnp_debug_pkg.put_log_msg(fnd_message.get);
1166:
1167:
1168: /* Initialize the variables */
1169: l_desc := NULL;
1193: OPEN get_rule_name(exp_ar_tbl(l_grp).pn_inv_rule_id);
1194: FETCH get_rule_name into l_inv_rule_name, l_inv_rule_type, l_inv_rule_freq;
1195: CLOSE get_rule_name;
1196:
1197: fnd_message.set_name ('PN','PN_EXPAR_INV_RULE');
1198: fnd_message.set_token ('NAME',l_inv_rule_name);
1199: pnp_debug_pkg.put_log_msg(fnd_message.get);
1200:
1201: /* get the accounting rule name */
1194: FETCH get_rule_name into l_inv_rule_name, l_inv_rule_type, l_inv_rule_freq;
1195: CLOSE get_rule_name;
1196:
1197: fnd_message.set_name ('PN','PN_EXPAR_INV_RULE');
1198: fnd_message.set_token ('NAME',l_inv_rule_name);
1199: pnp_debug_pkg.put_log_msg(fnd_message.get);
1200:
1201: /* get the accounting rule name */
1202: OPEN get_rule_name(exp_ar_tbl(l_grp).pn_account_rule_id);
1195: CLOSE get_rule_name;
1196:
1197: fnd_message.set_name ('PN','PN_EXPAR_INV_RULE');
1198: fnd_message.set_token ('NAME',l_inv_rule_name);
1199: pnp_debug_pkg.put_log_msg(fnd_message.get);
1200:
1201: /* get the accounting rule name */
1202: OPEN get_rule_name(exp_ar_tbl(l_grp).pn_account_rule_id);
1203: FETCH get_rule_name into l_acc_rule_name,l_acc_rule_type, l_acc_rule_freq;
1202: OPEN get_rule_name(exp_ar_tbl(l_grp).pn_account_rule_id);
1203: FETCH get_rule_name into l_acc_rule_name,l_acc_rule_type, l_acc_rule_freq;
1204: CLOSE get_rule_name;
1205:
1206: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_NAME');
1207: fnd_message.set_token ('NAME',l_acc_rule_name);
1208: pnp_debug_pkg.put_log_msg(fnd_message.get);
1209:
1210: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
1203: FETCH get_rule_name into l_acc_rule_name,l_acc_rule_type, l_acc_rule_freq;
1204: CLOSE get_rule_name;
1205:
1206: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_NAME');
1207: fnd_message.set_token ('NAME',l_acc_rule_name);
1208: pnp_debug_pkg.put_log_msg(fnd_message.get);
1209:
1210: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
1211: fnd_message.set_token ('TYPE',l_acc_rule_type);
1204: CLOSE get_rule_name;
1205:
1206: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_NAME');
1207: fnd_message.set_token ('NAME',l_acc_rule_name);
1208: pnp_debug_pkg.put_log_msg(fnd_message.get);
1209:
1210: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
1211: fnd_message.set_token ('TYPE',l_acc_rule_type);
1212: pnp_debug_pkg.put_log_msg(fnd_message.get);
1206: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_NAME');
1207: fnd_message.set_token ('NAME',l_acc_rule_name);
1208: pnp_debug_pkg.put_log_msg(fnd_message.get);
1209:
1210: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
1211: fnd_message.set_token ('TYPE',l_acc_rule_type);
1212: pnp_debug_pkg.put_log_msg(fnd_message.get);
1213:
1214: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
1207: fnd_message.set_token ('NAME',l_acc_rule_name);
1208: pnp_debug_pkg.put_log_msg(fnd_message.get);
1209:
1210: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
1211: fnd_message.set_token ('TYPE',l_acc_rule_type);
1212: pnp_debug_pkg.put_log_msg(fnd_message.get);
1213:
1214: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
1215: fnd_message.set_token ('FREQ',l_acc_rule_freq);
1208: pnp_debug_pkg.put_log_msg(fnd_message.get);
1209:
1210: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
1211: fnd_message.set_token ('TYPE',l_acc_rule_type);
1212: pnp_debug_pkg.put_log_msg(fnd_message.get);
1213:
1214: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
1215: fnd_message.set_token ('FREQ',l_acc_rule_freq);
1216: pnp_debug_pkg.put_log_msg(fnd_message.get);
1210: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
1211: fnd_message.set_token ('TYPE',l_acc_rule_type);
1212: pnp_debug_pkg.put_log_msg(fnd_message.get);
1213:
1214: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
1215: fnd_message.set_token ('FREQ',l_acc_rule_freq);
1216: pnp_debug_pkg.put_log_msg(fnd_message.get);
1217:
1218: IF exp_ar_tbl(l_grp).pn_account_rule_id IS NOT NULL AND
1211: fnd_message.set_token ('TYPE',l_acc_rule_type);
1212: pnp_debug_pkg.put_log_msg(fnd_message.get);
1213:
1214: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
1215: fnd_message.set_token ('FREQ',l_acc_rule_freq);
1216: pnp_debug_pkg.put_log_msg(fnd_message.get);
1217:
1218: IF exp_ar_tbl(l_grp).pn_account_rule_id IS NOT NULL AND
1219: (l_acc_rule_type <> 'A' OR
1212: pnp_debug_pkg.put_log_msg(fnd_message.get);
1213:
1214: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
1215: fnd_message.set_token ('FREQ',l_acc_rule_freq);
1216: pnp_debug_pkg.put_log_msg(fnd_message.get);
1217:
1218: IF exp_ar_tbl(l_grp).pn_account_rule_id IS NOT NULL AND
1219: (l_acc_rule_type <> 'A' OR
1220: l_acc_rule_freq <> 'SPECIFIC') AND
1224: ELSE
1225: l_rule_start_date := NULL;
1226: END IF;
1227:
1228: fnd_message.set_name ('PN','PN_EXPAR_RUL_ST_DT');
1229: fnd_message.set_token ('DATE',l_rule_start_date);
1230: pnp_debug_pkg.put_log_msg(fnd_message.get);
1231:
1232: /* get the payment method name */
1225: l_rule_start_date := NULL;
1226: END IF;
1227:
1228: fnd_message.set_name ('PN','PN_EXPAR_RUL_ST_DT');
1229: fnd_message.set_token ('DATE',l_rule_start_date);
1230: pnp_debug_pkg.put_log_msg(fnd_message.get);
1231:
1232: /* get the payment method name */
1233: OPEN get_receipt_name(exp_ar_tbl(l_grp).pn_pay_method_id);
1226: END IF;
1227:
1228: fnd_message.set_name ('PN','PN_EXPAR_RUL_ST_DT');
1229: fnd_message.set_token ('DATE',l_rule_start_date);
1230: pnp_debug_pkg.put_log_msg(fnd_message.get);
1231:
1232: /* get the payment method name */
1233: OPEN get_receipt_name(exp_ar_tbl(l_grp).pn_pay_method_id);
1234: FETCH get_receipt_name into l_pay_method_name;
1234: FETCH get_receipt_name into l_pay_method_name;
1235: CLOSE get_receipt_name;
1236:
1237: /* get the payment method name */
1238: fnd_message.set_name ('PN','PN_EXPAR_PMT_MTHD');
1239: fnd_message.set_token ('METHOD',l_pay_method_name);
1240: pnp_debug_pkg.put_log_msg(fnd_message.get);
1241:
1242: /* get the salesrep number */
1235: CLOSE get_receipt_name;
1236:
1237: /* get the payment method name */
1238: fnd_message.set_name ('PN','PN_EXPAR_PMT_MTHD');
1239: fnd_message.set_token ('METHOD',l_pay_method_name);
1240: pnp_debug_pkg.put_log_msg(fnd_message.get);
1241:
1242: /* get the salesrep number */
1243: OPEN get_salesrep_number(exp_ar_tbl(l_grp).pn_salesrep_id,
1236:
1237: /* get the payment method name */
1238: fnd_message.set_name ('PN','PN_EXPAR_PMT_MTHD');
1239: fnd_message.set_token ('METHOD',l_pay_method_name);
1240: pnp_debug_pkg.put_log_msg(fnd_message.get);
1241:
1242: /* get the salesrep number */
1243: OPEN get_salesrep_number(exp_ar_tbl(l_grp).pn_salesrep_id,
1244: exp_ar_tbl(l_grp).pn_org_id);
1244: exp_ar_tbl(l_grp).pn_org_id);
1245: FETCH get_salesrep_number into l_salesrep_number,l_sales_credit_id;
1246: CLOSE get_salesrep_number;
1247:
1248: fnd_message.set_name ('PN','PN_EXPAR_SALES_REP');
1249: fnd_message.set_token ('NAME',l_salesrep_number);
1250: pnp_debug_pkg.put_log_msg(fnd_message.get);
1251:
1252: /* get the cust transaction type name */
1245: FETCH get_salesrep_number into l_salesrep_number,l_sales_credit_id;
1246: CLOSE get_salesrep_number;
1247:
1248: fnd_message.set_name ('PN','PN_EXPAR_SALES_REP');
1249: fnd_message.set_token ('NAME',l_salesrep_number);
1250: pnp_debug_pkg.put_log_msg(fnd_message.get);
1251:
1252: /* get the cust transaction type name */
1253: OPEN get_cust_trx_name(exp_ar_tbl(l_grp).pn_trx_type_id);
1246: CLOSE get_salesrep_number;
1247:
1248: fnd_message.set_name ('PN','PN_EXPAR_SALES_REP');
1249: fnd_message.set_token ('NAME',l_salesrep_number);
1250: pnp_debug_pkg.put_log_msg(fnd_message.get);
1251:
1252: /* get the cust transaction type name */
1253: OPEN get_cust_trx_name(exp_ar_tbl(l_grp).pn_trx_type_id);
1254: FETCH get_cust_trx_name into l_cust_trx_name;
1253: OPEN get_cust_trx_name(exp_ar_tbl(l_grp).pn_trx_type_id);
1254: FETCH get_cust_trx_name into l_cust_trx_name;
1255: CLOSE get_cust_trx_name;
1256:
1257: fnd_message.set_name ('PN','PN_EXPAR_TRNX_TYPE');
1258: fnd_message.set_token ('TYPE',l_cust_trx_name);
1259: pnp_debug_pkg.put_log_msg(fnd_message.get);
1260:
1261: /* Get Post To GL value for the transcation type */
1254: FETCH get_cust_trx_name into l_cust_trx_name;
1255: CLOSE get_cust_trx_name;
1256:
1257: fnd_message.set_name ('PN','PN_EXPAR_TRNX_TYPE');
1258: fnd_message.set_token ('TYPE',l_cust_trx_name);
1259: pnp_debug_pkg.put_log_msg(fnd_message.get);
1260:
1261: /* Get Post To GL value for the transcation type */
1262: OPEN get_post_to_gl(exp_ar_tbl(l_grp).pn_trx_type_id,exp_ar_tbl(l_grp).pn_org_id);
1255: CLOSE get_cust_trx_name;
1256:
1257: fnd_message.set_name ('PN','PN_EXPAR_TRNX_TYPE');
1258: fnd_message.set_token ('TYPE',l_cust_trx_name);
1259: pnp_debug_pkg.put_log_msg(fnd_message.get);
1260:
1261: /* Get Post To GL value for the transcation type */
1262: OPEN get_post_to_gl(exp_ar_tbl(l_grp).pn_trx_type_id,exp_ar_tbl(l_grp).pn_org_id);
1263: FETCH get_post_to_gl INTO l_post_to_gl;
1262: OPEN get_post_to_gl(exp_ar_tbl(l_grp).pn_trx_type_id,exp_ar_tbl(l_grp).pn_org_id);
1263: FETCH get_post_to_gl INTO l_post_to_gl;
1264: CLOSE get_post_to_gl;
1265:
1266: fnd_message.set_name ('PN','PN_EXPAR_POST');
1267: fnd_message.set_token ('TOK',l_post_to_gl);
1268: pnp_debug_pkg.put_log_msg(fnd_message.get);
1269:
1270: /* get the term name */
1263: FETCH get_post_to_gl INTO l_post_to_gl;
1264: CLOSE get_post_to_gl;
1265:
1266: fnd_message.set_name ('PN','PN_EXPAR_POST');
1267: fnd_message.set_token ('TOK',l_post_to_gl);
1268: pnp_debug_pkg.put_log_msg(fnd_message.get);
1269:
1270: /* get the term name */
1271: OPEN get_term_name(exp_ar_tbl(l_grp).pn_term_id);
1264: CLOSE get_post_to_gl;
1265:
1266: fnd_message.set_name ('PN','PN_EXPAR_POST');
1267: fnd_message.set_token ('TOK',l_post_to_gl);
1268: pnp_debug_pkg.put_log_msg(fnd_message.get);
1269:
1270: /* get the term name */
1271: OPEN get_term_name(exp_ar_tbl(l_grp).pn_term_id);
1272: FETCH get_term_name into l_term_name;
1271: OPEN get_term_name(exp_ar_tbl(l_grp).pn_term_id);
1272: FETCH get_term_name into l_term_name;
1273: CLOSE get_term_name;
1274:
1275: fnd_message.set_name ('PN','PN_EXPAR_PMT_TERM');
1276: fnd_message.set_token ('NUM',l_term_name);
1277: pnp_debug_pkg.put_log_msg(fnd_message.get);
1278:
1279: /* get the primary location code */
1272: FETCH get_term_name into l_term_name;
1273: CLOSE get_term_name;
1274:
1275: fnd_message.set_name ('PN','PN_EXPAR_PMT_TERM');
1276: fnd_message.set_token ('NUM',l_term_name);
1277: pnp_debug_pkg.put_log_msg(fnd_message.get);
1278:
1279: /* get the primary location code */
1280: OPEN get_loc_code(exp_ar_tbl(l_grp).location_id) ;
1273: CLOSE get_term_name;
1274:
1275: fnd_message.set_name ('PN','PN_EXPAR_PMT_TERM');
1276: fnd_message.set_token ('NUM',l_term_name);
1277: pnp_debug_pkg.put_log_msg(fnd_message.get);
1278:
1279: /* get the primary location code */
1280: OPEN get_loc_code(exp_ar_tbl(l_grp).location_id) ;
1281: FETCH get_loc_code into l_location_code;
1283: l_location_code:= null;
1284: end if;
1285: CLOSE get_loc_code;
1286:
1287: fnd_message.set_name ('PN','PN_XPEAM_LOC');
1288: fnd_message.set_token ('LOC_CODE',l_location_code);
1289: pnp_debug_pkg.put_log_msg(fnd_message.get);
1290:
1291:
1284: end if;
1285: CLOSE get_loc_code;
1286:
1287: fnd_message.set_name ('PN','PN_XPEAM_LOC');
1288: fnd_message.set_token ('LOC_CODE',l_location_code);
1289: pnp_debug_pkg.put_log_msg(fnd_message.get);
1290:
1291:
1292: /* get the vat tax code */
1285: CLOSE get_loc_code;
1286:
1287: fnd_message.set_name ('PN','PN_XPEAM_LOC');
1288: fnd_message.set_token ('LOC_CODE',l_location_code);
1289: pnp_debug_pkg.put_log_msg(fnd_message.get);
1290:
1291:
1292: /* get the vat tax code */
1293:
1303: OPEN gl_segment_check;
1304: FETCH gl_segment_check INTO l_gl_seg;
1305: CLOSE gl_segment_check;
1306:
1307: fnd_message.set_name ('PN','PN_EXPAR_GL_SALES');
1308: fnd_message.set_token ('TOK',l_gl_seg);
1309: pnp_debug_pkg.put_log_msg(fnd_message.get);
1310:
1311: /* Check for System Parameters in AR System Options */
1304: FETCH gl_segment_check INTO l_gl_seg;
1305: CLOSE gl_segment_check;
1306:
1307: fnd_message.set_name ('PN','PN_EXPAR_GL_SALES');
1308: fnd_message.set_token ('TOK',l_gl_seg);
1309: pnp_debug_pkg.put_log_msg(fnd_message.get);
1310:
1311: /* Check for System Parameters in AR System Options */
1312: OPEN sys_param_check;
1305: CLOSE gl_segment_check;
1306:
1307: fnd_message.set_name ('PN','PN_EXPAR_GL_SALES');
1308: fnd_message.set_token ('TOK',l_gl_seg);
1309: pnp_debug_pkg.put_log_msg(fnd_message.get);
1310:
1311: /* Check for System Parameters in AR System Options */
1312: OPEN sys_param_check;
1313: FETCH sys_param_check INTO l_sys_para;
1312: OPEN sys_param_check;
1313: FETCH sys_param_check INTO l_sys_para;
1314: CLOSE sys_param_check;
1315:
1316: fnd_message.set_name ('PN','PN_EXPAR_AR_SALES');
1317: fnd_message.set_token ('TOK',l_sys_para);
1318: pnp_debug_pkg.put_log_msg(fnd_message.get);
1319:
1320:
1313: FETCH sys_param_check INTO l_sys_para;
1314: CLOSE sys_param_check;
1315:
1316: fnd_message.set_name ('PN','PN_EXPAR_AR_SALES');
1317: fnd_message.set_token ('TOK',l_sys_para);
1318: pnp_debug_pkg.put_log_msg(fnd_message.get);
1319:
1320:
1321: l_context := 'Inserting into interface lines';
1314: CLOSE sys_param_check;
1315:
1316: fnd_message.set_name ('PN','PN_EXPAR_AR_SALES');
1317: fnd_message.set_token ('TOK',l_sys_para);
1318: pnp_debug_pkg.put_log_msg(fnd_message.get);
1319:
1320:
1321: l_context := 'Inserting into interface lines';
1322:
1549:
1550: l_context := 'Getting Revenue amt.';
1551: pnp_debug_pkg.log('Getting Revenue Amount');
1552:
1553: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT');
1554: fnd_message.set_token ('AMT',to_char(round(exp_ar_tbl(l_grp).pn_export_currency_amount,l_precision)));
1555: pnp_debug_pkg.put_log_msg(fnd_message.get);
1556:
1557: l_total_rev_amt := 0;
1550: l_context := 'Getting Revenue amt.';
1551: pnp_debug_pkg.log('Getting Revenue Amount');
1552:
1553: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT');
1554: fnd_message.set_token ('AMT',to_char(round(exp_ar_tbl(l_grp).pn_export_currency_amount,l_precision)));
1555: pnp_debug_pkg.put_log_msg(fnd_message.get);
1556:
1557: l_total_rev_amt := 0;
1558: l_total_rev_percent := 0;
1551: pnp_debug_pkg.log('Getting Revenue Amount');
1552:
1553: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT');
1554: fnd_message.set_token ('AMT',to_char(round(exp_ar_tbl(l_grp).pn_export_currency_amount,l_precision)));
1555: pnp_debug_pkg.put_log_msg(fnd_message.get);
1556:
1557: l_total_rev_amt := 0;
1558: l_total_rev_percent := 0;
1559:
1586: END IF;
1587:
1588: END IF;
1589:
1590: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT_DIST');
1591: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1592: pnp_debug_pkg.put_log_msg(fnd_message.get);
1593:
1594: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
1587:
1588: END IF;
1589:
1590: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT_DIST');
1591: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1592: pnp_debug_pkg.put_log_msg(fnd_message.get);
1593:
1594: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
1595: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1588: END IF;
1589:
1590: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT_DIST');
1591: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1592: pnp_debug_pkg.put_log_msg(fnd_message.get);
1593:
1594: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
1595: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1596: pnp_debug_pkg.put_log_msg(fnd_message.get);
1590: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT_DIST');
1591: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1592: pnp_debug_pkg.put_log_msg(fnd_message.get);
1593:
1594: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
1595: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1596: pnp_debug_pkg.put_log_msg(fnd_message.get);
1597:
1598: ELSIF acnt_rec.account_class = 'UNEARN' THEN
1591: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1592: pnp_debug_pkg.put_log_msg(fnd_message.get);
1593:
1594: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
1595: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1596: pnp_debug_pkg.put_log_msg(fnd_message.get);
1597:
1598: ELSIF acnt_rec.account_class = 'UNEARN' THEN
1599:
1592: pnp_debug_pkg.put_log_msg(fnd_message.get);
1593:
1594: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
1595: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1596: pnp_debug_pkg.put_log_msg(fnd_message.get);
1597:
1598: ELSIF acnt_rec.account_class = 'UNEARN' THEN
1599:
1600: l_acnt_cls := 'REV';
1613: l_amt := round((exp_ar_tbl(l_grp).PN_EXPORT_CURRENCY_AMOUNT),l_precision);
1614:
1615: END IF;
1616:
1617: fnd_message.set_name ('PN','PN_EXPAR_ACR_AMT_DIST');
1618: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1619: pnp_debug_pkg.put_log_msg(fnd_message.get);
1620:
1621: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
1614:
1615: END IF;
1616:
1617: fnd_message.set_name ('PN','PN_EXPAR_ACR_AMT_DIST');
1618: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1619: pnp_debug_pkg.put_log_msg(fnd_message.get);
1620:
1621: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
1622: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1615: END IF;
1616:
1617: fnd_message.set_name ('PN','PN_EXPAR_ACR_AMT_DIST');
1618: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1619: pnp_debug_pkg.put_log_msg(fnd_message.get);
1620:
1621: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
1622: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1623: pnp_debug_pkg.put_log_msg(fnd_message.get);
1617: fnd_message.set_name ('PN','PN_EXPAR_ACR_AMT_DIST');
1618: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1619: pnp_debug_pkg.put_log_msg(fnd_message.get);
1620:
1621: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
1622: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1623: pnp_debug_pkg.put_log_msg(fnd_message.get);
1624:
1625: END IF;
1618: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1619: pnp_debug_pkg.put_log_msg(fnd_message.get);
1620:
1621: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
1622: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1623: pnp_debug_pkg.put_log_msg(fnd_message.get);
1624:
1625: END IF;
1626:
1619: pnp_debug_pkg.put_log_msg(fnd_message.get);
1620:
1621: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
1622: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1623: pnp_debug_pkg.put_log_msg(fnd_message.get);
1624:
1625: END IF;
1626:
1627: IF (acnt_rec.account_class = 'UNEARN' and
1705:
1706: IF (SQL%NOTFOUND) then
1707: pnp_debug_pkg.log('Could not update row for Payment_Item_Id = ' ||
1708: exp_ar_tbl(l_grp).Pn_Payment_Item_Id) ;
1709: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_FLAG_NOT_SET');
1710: errbuf := fnd_message.get;
1711: rollback;
1712: retcode := 2;
1713: return;
1706: IF (SQL%NOTFOUND) then
1707: pnp_debug_pkg.log('Could not update row for Payment_Item_Id = ' ||
1708: exp_ar_tbl(l_grp).Pn_Payment_Item_Id) ;
1709: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_FLAG_NOT_SET');
1710: errbuf := fnd_message.get;
1711: rollback;
1712: retcode := 2;
1713: return;
1714: END IF;
1730:
1731: IF (SQL%NOTFOUND) then
1732: pnp_debug_pkg.log('Could not update row for Payment_Schedule_Id = '
1733: || exp_ar_tbl(l_grp).PN_Payment_Schedule_Id) ;
1734: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_INFO_NOT_SET');
1735: errbuf := fnd_message.get;
1736: rollback;
1737: retcode := 2;
1738: return;
1731: IF (SQL%NOTFOUND) then
1732: pnp_debug_pkg.log('Could not update row for Payment_Schedule_Id = '
1733: || exp_ar_tbl(l_grp).PN_Payment_Schedule_Id) ;
1734: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_INFO_NOT_SET');
1735: errbuf := fnd_message.get;
1736: rollback;
1737: retcode := 2;
1738: return;
1739: END IF;
1759:
1760: pnp_debug_pkg.put_log_msg('
1761: ================================================================================');
1762:
1763: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
1764: fnd_message.set_token ('NUM',S_Count);
1765: pnp_debug_pkg.put_log_msg(fnd_message.get);
1766:
1767: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1760: pnp_debug_pkg.put_log_msg('
1761: ================================================================================');
1762:
1763: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
1764: fnd_message.set_token ('NUM',S_Count);
1765: pnp_debug_pkg.put_log_msg(fnd_message.get);
1766:
1767: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1768: fnd_message.set_token ('NUM',E_Count);
1761: ================================================================================');
1762:
1763: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
1764: fnd_message.set_token ('NUM',S_Count);
1765: pnp_debug_pkg.put_log_msg(fnd_message.get);
1766:
1767: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1768: fnd_message.set_token ('NUM',E_Count);
1769: pnp_debug_pkg.put_log_msg(fnd_message.get);
1763: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
1764: fnd_message.set_token ('NUM',S_Count);
1765: pnp_debug_pkg.put_log_msg(fnd_message.get);
1766:
1767: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1768: fnd_message.set_token ('NUM',E_Count);
1769: pnp_debug_pkg.put_log_msg(fnd_message.get);
1770:
1771: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
1764: fnd_message.set_token ('NUM',S_Count);
1765: pnp_debug_pkg.put_log_msg(fnd_message.get);
1766:
1767: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1768: fnd_message.set_token ('NUM',E_Count);
1769: pnp_debug_pkg.put_log_msg(fnd_message.get);
1770:
1771: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
1772: fnd_message.set_token ('NUM',T_Count);
1765: pnp_debug_pkg.put_log_msg(fnd_message.get);
1766:
1767: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1768: fnd_message.set_token ('NUM',E_Count);
1769: pnp_debug_pkg.put_log_msg(fnd_message.get);
1770:
1771: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
1772: fnd_message.set_token ('NUM',T_Count);
1773: pnp_debug_pkg.put_log_msg(fnd_message.get);
1767: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1768: fnd_message.set_token ('NUM',E_Count);
1769: pnp_debug_pkg.put_log_msg(fnd_message.get);
1770:
1771: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
1772: fnd_message.set_token ('NUM',T_Count);
1773: pnp_debug_pkg.put_log_msg(fnd_message.get);
1774:
1775: pnp_debug_pkg.put_log_msg('
1768: fnd_message.set_token ('NUM',E_Count);
1769: pnp_debug_pkg.put_log_msg(fnd_message.get);
1770:
1771: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
1772: fnd_message.set_token ('NUM',T_Count);
1773: pnp_debug_pkg.put_log_msg(fnd_message.get);
1774:
1775: pnp_debug_pkg.put_log_msg('
1776: ================================================================================');
1769: pnp_debug_pkg.put_log_msg(fnd_message.get);
1770:
1771: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
1772: fnd_message.set_token ('NUM',T_Count);
1773: pnp_debug_pkg.put_log_msg(fnd_message.get);
1774:
1775: pnp_debug_pkg.put_log_msg('
1776: ================================================================================');
1777: IF(E_Count >0) THEN --Bug 14762515
1775: pnp_debug_pkg.put_log_msg('
1776: ================================================================================');
1777: IF(E_Count >0) THEN --Bug 14762515
1778:
1779: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1780: fnd_message.set_token ('NUM',E_Count);
1781: pnp_debug_pkg.put_log_msg(fnd_message.get);
1782:
1783: pnp_debug_pkg.put_log_msg('');
1776: ================================================================================');
1777: IF(E_Count >0) THEN --Bug 14762515
1778:
1779: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1780: fnd_message.set_token ('NUM',E_Count);
1781: pnp_debug_pkg.put_log_msg(fnd_message.get);
1782:
1783: pnp_debug_pkg.put_log_msg('');
1784:
1777: IF(E_Count >0) THEN --Bug 14762515
1778:
1779: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1780: fnd_message.set_token ('NUM',E_Count);
1781: pnp_debug_pkg.put_log_msg(fnd_message.get);
1782:
1783: pnp_debug_pkg.put_log_msg('');
1784:
1785: FOR i IN 1..l_index_2-1
1787: select actual_amount into l_actual_amount
1788: from pn_payment_items_all
1789: where payment_item_id=err_ar_tbl(i).pn_payment_item_id;
1790:
1791: fnd_message.set_name ('PN','PN_LEASE_NUMBER');
1792: l_message := fnd_message.get || ' ' || err_ar_tbl(i).pn_lease_num || ' ';
1793: fnd_message.set_name ('PN','PN_AMOUNT');
1794: l_message := l_message || fnd_message.get;
1795: l_message := l_message || ' ' || l_actual_amount;
1788: from pn_payment_items_all
1789: where payment_item_id=err_ar_tbl(i).pn_payment_item_id;
1790:
1791: fnd_message.set_name ('PN','PN_LEASE_NUMBER');
1792: l_message := fnd_message.get || ' ' || err_ar_tbl(i).pn_lease_num || ' ';
1793: fnd_message.set_name ('PN','PN_AMOUNT');
1794: l_message := l_message || fnd_message.get;
1795: l_message := l_message || ' ' || l_actual_amount;
1796: pnp_debug_pkg.put_log_msg(l_message);
1789: where payment_item_id=err_ar_tbl(i).pn_payment_item_id;
1790:
1791: fnd_message.set_name ('PN','PN_LEASE_NUMBER');
1792: l_message := fnd_message.get || ' ' || err_ar_tbl(i).pn_lease_num || ' ';
1793: fnd_message.set_name ('PN','PN_AMOUNT');
1794: l_message := l_message || fnd_message.get;
1795: l_message := l_message || ' ' || l_actual_amount;
1796: pnp_debug_pkg.put_log_msg(l_message);
1797:
1790:
1791: fnd_message.set_name ('PN','PN_LEASE_NUMBER');
1792: l_message := fnd_message.get || ' ' || err_ar_tbl(i).pn_lease_num || ' ';
1793: fnd_message.set_name ('PN','PN_AMOUNT');
1794: l_message := l_message || fnd_message.get;
1795: l_message := l_message || ' ' || l_actual_amount;
1796: pnp_debug_pkg.put_log_msg(l_message);
1797:
1798:
1811: raise;
1812:
1813: WHEN OTHERS THEN
1814: pnp_debug_pkg.log(substrb('OTHERS: ' || l_context,1,244));
1815: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_PROBLEM');
1816: Errbuf := substrb(SQLERRM,1,244);
1817: Retcode := 2;
1818: rollback;
1819: raise;
1987:
1988:
1989: BEGIN
1990:
1991: fnd_message.set_name ('PN','PN_EXPAR_PMT_MSG');
1992: pnp_debug_pkg.put_log_msg(fnd_message.get);
1993:
1994: l_context := 'Forming the query statement';
1995: pnp_debug_pkg.log('Forming the query statement');
1988:
1989: BEGIN
1990:
1991: fnd_message.set_name ('PN','PN_EXPAR_PMT_MSG');
1992: pnp_debug_pkg.put_log_msg(fnd_message.get);
1993:
1994: l_context := 'Forming the query statement';
1995: pnp_debug_pkg.log('Forming the query statement');
1996:
2003: FETCH get_batch_source_name into l_batch_name, l_rev_acc_alloc_rule,
2004: l_sal_cred, l_derive_date_flag;
2005: CLOSE get_batch_source_name;
2006:
2007: fnd_message.set_name ('PN','PN_EXPAR_BTCH_SRC_NAME');
2008: fnd_message.set_token ('NAME',l_batch_name);
2009: pnp_debug_pkg.put_log_msg(fnd_message.get);
2010:
2011: Q_select_nogrp := 'SELECT payment_term_id,
2004: l_sal_cred, l_derive_date_flag;
2005: CLOSE get_batch_source_name;
2006:
2007: fnd_message.set_name ('PN','PN_EXPAR_BTCH_SRC_NAME');
2008: fnd_message.set_token ('NAME',l_batch_name);
2009: pnp_debug_pkg.put_log_msg(fnd_message.get);
2010:
2011: Q_select_nogrp := 'SELECT payment_term_id,
2012: customer_id,
2005: CLOSE get_batch_source_name;
2006:
2007: fnd_message.set_name ('PN','PN_EXPAR_BTCH_SRC_NAME');
2008: fnd_message.set_token ('NAME',l_batch_name);
2009: pnp_debug_pkg.put_log_msg(fnd_message.get);
2010:
2011: Q_select_nogrp := 'SELECT payment_term_id,
2012: customer_id,
2013: cust_trx_type_id,
2192: l_conv_rate := NULL;
2193: END IF;
2194: END IF;
2195:
2196: fnd_message.set_name ('PN','PN_CRACC_CV_RATE');
2197: fnd_message.set_token ('CR',l_conv_rate);
2198: pnp_debug_pkg.put_log_msg(fnd_message.get);
2199:
2200: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
2193: END IF;
2194: END IF;
2195:
2196: fnd_message.set_name ('PN','PN_CRACC_CV_RATE');
2197: fnd_message.set_token ('CR',l_conv_rate);
2198: pnp_debug_pkg.put_log_msg(fnd_message.get);
2199:
2200: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
2201: fnd_message.set_token ('CT',l_conv_rate_type);
2194: END IF;
2195:
2196: fnd_message.set_name ('PN','PN_CRACC_CV_RATE');
2197: fnd_message.set_token ('CR',l_conv_rate);
2198: pnp_debug_pkg.put_log_msg(fnd_message.get);
2199:
2200: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
2201: fnd_message.set_token ('CT',l_conv_rate_type);
2202: pnp_debug_pkg.put_log_msg(fnd_message.get);
2196: fnd_message.set_name ('PN','PN_CRACC_CV_RATE');
2197: fnd_message.set_token ('CR',l_conv_rate);
2198: pnp_debug_pkg.put_log_msg(fnd_message.get);
2199:
2200: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
2201: fnd_message.set_token ('CT',l_conv_rate_type);
2202: pnp_debug_pkg.put_log_msg(fnd_message.get);
2203:
2204:
2197: fnd_message.set_token ('CR',l_conv_rate);
2198: pnp_debug_pkg.put_log_msg(fnd_message.get);
2199:
2200: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
2201: fnd_message.set_token ('CT',l_conv_rate_type);
2202: pnp_debug_pkg.put_log_msg(fnd_message.get);
2203:
2204:
2205: /* Get send entries flag for the lease */
2198: pnp_debug_pkg.put_log_msg(fnd_message.get);
2199:
2200: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
2201: fnd_message.set_token ('CT',l_conv_rate_type);
2202: pnp_debug_pkg.put_log_msg(fnd_message.get);
2203:
2204:
2205: /* Get send entries flag for the lease */
2206: IF l_lease_id <> v_pn_lease_id THEN
2207: OPEN get_send_flag(v_pn_lease_id);
2208: FETCH get_send_flag INTO l_send_flag;
2209: CLOSE get_send_flag;
2210: l_lease_id := v_pn_lease_id;
2211: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
2212: fnd_message.set_token ('ID',l_lease_id);
2213: fnd_message.set_token ('SEND',l_send_flag);
2214: pnp_debug_pkg.put_log_msg(fnd_message.get);
2215:
2208: FETCH get_send_flag INTO l_send_flag;
2209: CLOSE get_send_flag;
2210: l_lease_id := v_pn_lease_id;
2211: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
2212: fnd_message.set_token ('ID',l_lease_id);
2213: fnd_message.set_token ('SEND',l_send_flag);
2214: pnp_debug_pkg.put_log_msg(fnd_message.get);
2215:
2216: END IF;
2209: CLOSE get_send_flag;
2210: l_lease_id := v_pn_lease_id;
2211: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
2212: fnd_message.set_token ('ID',l_lease_id);
2213: fnd_message.set_token ('SEND',l_send_flag);
2214: pnp_debug_pkg.put_log_msg(fnd_message.get);
2215:
2216: END IF;
2217:
2210: l_lease_id := v_pn_lease_id;
2211: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
2212: fnd_message.set_token ('ID',l_lease_id);
2213: fnd_message.set_token ('SEND',l_send_flag);
2214: pnp_debug_pkg.put_log_msg(fnd_message.get);
2215:
2216: END IF;
2217:
2218: l_rev_flag := 'N';
2243:
2244: IF UPPER(l_conv_rate_type) = 'USER' AND
2245: l_conv_rate IS NULL THEN
2246:
2247: fnd_message.set_name ('PN', 'PN_CONV_RATE_REQD');
2248: l_err_msg4 := fnd_message.get;
2249: pnp_debug_pkg.put_log_msg(l_err_msg4);
2250:
2251: RAISE GENERIC_EXPORT_EXCEPTION;
2244: IF UPPER(l_conv_rate_type) = 'USER' AND
2245: l_conv_rate IS NULL THEN
2246:
2247: fnd_message.set_name ('PN', 'PN_CONV_RATE_REQD');
2248: l_err_msg4 := fnd_message.get;
2249: pnp_debug_pkg.put_log_msg(l_err_msg4);
2250:
2251: RAISE GENERIC_EXPORT_EXCEPTION;
2252:
2253: END IF;
2254:
2255: IF v_pn_term_id IS NULL OR v_pn_trx_type_id IS NULL THEN
2256:
2257: fnd_message.set_name ('PN', 'PN_PTRM_TRX_REQD_MSG');
2258: l_err_msg3 := fnd_message.get;
2259: pnp_debug_pkg.put_log_msg(l_err_msg3);
2260:
2261: RAISE GENERIC_EXPORT_EXCEPTION;
2254:
2255: IF v_pn_term_id IS NULL OR v_pn_trx_type_id IS NULL THEN
2256:
2257: fnd_message.set_name ('PN', 'PN_PTRM_TRX_REQD_MSG');
2258: l_err_msg3 := fnd_message.get;
2259: pnp_debug_pkg.put_log_msg(l_err_msg3);
2260:
2261: RAISE GENERIC_EXPORT_EXCEPTION;
2262:
2265: IF NVL(v_normalize,'N') = 'Y' THEN
2266:
2267: IF (l_rev_flag <> 'Y' OR l_rec_flag <> 'Y' OR l_ast_flag <> 'Y') THEN
2268:
2269: fnd_message.set_name ('PN', 'PN_ALL_ACNT_DIST_MSG');
2270: l_err_msg1 := fnd_message.get;
2271: pnp_debug_pkg.put_log_msg(l_err_msg1);
2272:
2273: RAISE GENERIC_EXPORT_EXCEPTION;
2266:
2267: IF (l_rev_flag <> 'Y' OR l_rec_flag <> 'Y' OR l_ast_flag <> 'Y') THEN
2268:
2269: fnd_message.set_name ('PN', 'PN_ALL_ACNT_DIST_MSG');
2270: l_err_msg1 := fnd_message.get;
2271: pnp_debug_pkg.put_log_msg(l_err_msg1);
2272:
2273: RAISE GENERIC_EXPORT_EXCEPTION;
2274: END IF;
2279: (l_prof_optn IN ('M', 'N') AND ((l_rev_flag = 'Y' AND l_rec_flag <> 'Y') OR
2280: (l_rev_flag <> 'Y' AND l_rec_flag = 'Y')))
2281: THEN
2282:
2283: fnd_message.set_name ('PN', 'PN_REVREC_DIST_MSG');
2284: l_err_msg2 := fnd_message.get;
2285: pnp_debug_pkg.put_log_msg(l_err_msg2);
2286:
2287: RAISE GENERIC_EXPORT_EXCEPTION;
2280: (l_rev_flag <> 'Y' AND l_rec_flag = 'Y')))
2281: THEN
2282:
2283: fnd_message.set_name ('PN', 'PN_REVREC_DIST_MSG');
2284: l_err_msg2 := fnd_message.get;
2285: pnp_debug_pkg.put_log_msg(l_err_msg2);
2286:
2287: RAISE GENERIC_EXPORT_EXCEPTION;
2288:
2312: END IF;
2313:
2314: pnp_debug_pkg.put_log_msg('
2315: ================================================================================');
2316: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
2317: fnd_message.set_token ('ITM_ID',v_pn_payment_item_id);
2318: fnd_message.set_token ('CUST_ID',TO_CHAR(v_pn_customer_id));
2319: fnd_message.set_token ('REC_AMT',TO_CHAR(ROUND(v_pn_export_currency_amount,l_precision)));
2320: fnd_message.set_token ('DATE',l_start_date);
2313:
2314: pnp_debug_pkg.put_log_msg('
2315: ================================================================================');
2316: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
2317: fnd_message.set_token ('ITM_ID',v_pn_payment_item_id);
2318: fnd_message.set_token ('CUST_ID',TO_CHAR(v_pn_customer_id));
2319: fnd_message.set_token ('REC_AMT',TO_CHAR(ROUND(v_pn_export_currency_amount,l_precision)));
2320: fnd_message.set_token ('DATE',l_start_date);
2321: pnp_debug_pkg.put_log_msg('
2314: pnp_debug_pkg.put_log_msg('
2315: ================================================================================');
2316: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
2317: fnd_message.set_token ('ITM_ID',v_pn_payment_item_id);
2318: fnd_message.set_token ('CUST_ID',TO_CHAR(v_pn_customer_id));
2319: fnd_message.set_token ('REC_AMT',TO_CHAR(ROUND(v_pn_export_currency_amount,l_precision)));
2320: fnd_message.set_token ('DATE',l_start_date);
2321: pnp_debug_pkg.put_log_msg('
2322: ================================================================================');
2315: ================================================================================');
2316: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
2317: fnd_message.set_token ('ITM_ID',v_pn_payment_item_id);
2318: fnd_message.set_token ('CUST_ID',TO_CHAR(v_pn_customer_id));
2319: fnd_message.set_token ('REC_AMT',TO_CHAR(ROUND(v_pn_export_currency_amount,l_precision)));
2320: fnd_message.set_token ('DATE',l_start_date);
2321: pnp_debug_pkg.put_log_msg('
2322: ================================================================================');
2323:
2316: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
2317: fnd_message.set_token ('ITM_ID',v_pn_payment_item_id);
2318: fnd_message.set_token ('CUST_ID',TO_CHAR(v_pn_customer_id));
2319: fnd_message.set_token ('REC_AMT',TO_CHAR(ROUND(v_pn_export_currency_amount,l_precision)));
2320: fnd_message.set_token ('DATE',l_start_date);
2321: pnp_debug_pkg.put_log_msg('
2322: ================================================================================');
2323:
2324: /* Initialize the variables */
2348: OPEN get_rule_name(v_pn_inv_rule_id);
2349: FETCH get_rule_name into l_inv_rule_name, l_inv_rule_type, l_inv_rule_freq;
2350: CLOSE get_rule_name;
2351:
2352: fnd_message.set_name ('PN','PN_EXPAR_INV_RULE');
2353: fnd_message.set_token ('NAME',l_inv_rule_name);
2354: pnp_debug_pkg.put_log_msg(fnd_message.get);
2355:
2356: /* get the accounting rule name */
2349: FETCH get_rule_name into l_inv_rule_name, l_inv_rule_type, l_inv_rule_freq;
2350: CLOSE get_rule_name;
2351:
2352: fnd_message.set_name ('PN','PN_EXPAR_INV_RULE');
2353: fnd_message.set_token ('NAME',l_inv_rule_name);
2354: pnp_debug_pkg.put_log_msg(fnd_message.get);
2355:
2356: /* get the accounting rule name */
2357: OPEN get_rule_name(v_pn_account_rule_id);
2350: CLOSE get_rule_name;
2351:
2352: fnd_message.set_name ('PN','PN_EXPAR_INV_RULE');
2353: fnd_message.set_token ('NAME',l_inv_rule_name);
2354: pnp_debug_pkg.put_log_msg(fnd_message.get);
2355:
2356: /* get the accounting rule name */
2357: OPEN get_rule_name(v_pn_account_rule_id);
2358: FETCH get_rule_name into l_acc_rule_name, l_acc_rule_type, l_acc_rule_freq;
2357: OPEN get_rule_name(v_pn_account_rule_id);
2358: FETCH get_rule_name into l_acc_rule_name, l_acc_rule_type, l_acc_rule_freq;
2359: CLOSE get_rule_name;
2360:
2361: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_NAME');
2362: fnd_message.set_token ('NAME',l_acc_rule_name);
2363: pnp_debug_pkg.put_log_msg(fnd_message.get);
2364:
2365: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
2358: FETCH get_rule_name into l_acc_rule_name, l_acc_rule_type, l_acc_rule_freq;
2359: CLOSE get_rule_name;
2360:
2361: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_NAME');
2362: fnd_message.set_token ('NAME',l_acc_rule_name);
2363: pnp_debug_pkg.put_log_msg(fnd_message.get);
2364:
2365: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
2366: fnd_message.set_token ('TYPE',l_acc_rule_type);
2359: CLOSE get_rule_name;
2360:
2361: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_NAME');
2362: fnd_message.set_token ('NAME',l_acc_rule_name);
2363: pnp_debug_pkg.put_log_msg(fnd_message.get);
2364:
2365: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
2366: fnd_message.set_token ('TYPE',l_acc_rule_type);
2367: pnp_debug_pkg.put_log_msg(fnd_message.get);
2361: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_NAME');
2362: fnd_message.set_token ('NAME',l_acc_rule_name);
2363: pnp_debug_pkg.put_log_msg(fnd_message.get);
2364:
2365: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
2366: fnd_message.set_token ('TYPE',l_acc_rule_type);
2367: pnp_debug_pkg.put_log_msg(fnd_message.get);
2368:
2369: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
2362: fnd_message.set_token ('NAME',l_acc_rule_name);
2363: pnp_debug_pkg.put_log_msg(fnd_message.get);
2364:
2365: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
2366: fnd_message.set_token ('TYPE',l_acc_rule_type);
2367: pnp_debug_pkg.put_log_msg(fnd_message.get);
2368:
2369: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
2370: fnd_message.set_token ('FREQ',l_acc_rule_freq);
2363: pnp_debug_pkg.put_log_msg(fnd_message.get);
2364:
2365: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
2366: fnd_message.set_token ('TYPE',l_acc_rule_type);
2367: pnp_debug_pkg.put_log_msg(fnd_message.get);
2368:
2369: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
2370: fnd_message.set_token ('FREQ',l_acc_rule_freq);
2371: pnp_debug_pkg.put_log_msg(fnd_message.get);
2365: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
2366: fnd_message.set_token ('TYPE',l_acc_rule_type);
2367: pnp_debug_pkg.put_log_msg(fnd_message.get);
2368:
2369: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
2370: fnd_message.set_token ('FREQ',l_acc_rule_freq);
2371: pnp_debug_pkg.put_log_msg(fnd_message.get);
2372:
2373: IF v_pn_account_rule_id IS NOT NULL AND
2366: fnd_message.set_token ('TYPE',l_acc_rule_type);
2367: pnp_debug_pkg.put_log_msg(fnd_message.get);
2368:
2369: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
2370: fnd_message.set_token ('FREQ',l_acc_rule_freq);
2371: pnp_debug_pkg.put_log_msg(fnd_message.get);
2372:
2373: IF v_pn_account_rule_id IS NOT NULL AND
2374: (l_acc_rule_type <> 'A' OR
2367: pnp_debug_pkg.put_log_msg(fnd_message.get);
2368:
2369: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
2370: fnd_message.set_token ('FREQ',l_acc_rule_freq);
2371: pnp_debug_pkg.put_log_msg(fnd_message.get);
2372:
2373: IF v_pn_account_rule_id IS NOT NULL AND
2374: (l_acc_rule_type <> 'A' OR
2375: l_acc_rule_freq <> 'SPECIFIC') AND
2379: ELSE
2380: l_rule_start_date := NULL;
2381: END IF;
2382:
2383: fnd_message.set_name ('PN','PN_EXPAR_RUL_ST_DT');
2384: fnd_message.set_token ('DATE',l_rule_start_date);
2385: pnp_debug_pkg.put_log_msg(fnd_message.get);
2386:
2387: /* get the payment method name */
2380: l_rule_start_date := NULL;
2381: END IF;
2382:
2383: fnd_message.set_name ('PN','PN_EXPAR_RUL_ST_DT');
2384: fnd_message.set_token ('DATE',l_rule_start_date);
2385: pnp_debug_pkg.put_log_msg(fnd_message.get);
2386:
2387: /* get the payment method name */
2388: OPEN get_receipt_name(v_pn_pay_method_id);
2381: END IF;
2382:
2383: fnd_message.set_name ('PN','PN_EXPAR_RUL_ST_DT');
2384: fnd_message.set_token ('DATE',l_rule_start_date);
2385: pnp_debug_pkg.put_log_msg(fnd_message.get);
2386:
2387: /* get the payment method name */
2388: OPEN get_receipt_name(v_pn_pay_method_id);
2389: FETCH get_receipt_name into l_pay_method_name;
2388: OPEN get_receipt_name(v_pn_pay_method_id);
2389: FETCH get_receipt_name into l_pay_method_name;
2390: CLOSE get_receipt_name;
2391:
2392: fnd_message.set_name ('PN','PN_EXPAR_PMT_MTHD');
2393: fnd_message.set_token ('METHOD',l_pay_method_name);
2394: pnp_debug_pkg.put_log_msg(fnd_message.get);
2395:
2396: /* get the salesrep number */
2389: FETCH get_receipt_name into l_pay_method_name;
2390: CLOSE get_receipt_name;
2391:
2392: fnd_message.set_name ('PN','PN_EXPAR_PMT_MTHD');
2393: fnd_message.set_token ('METHOD',l_pay_method_name);
2394: pnp_debug_pkg.put_log_msg(fnd_message.get);
2395:
2396: /* get the salesrep number */
2397: OPEN get_salesrep_number(v_pn_salesrep_id,v_pn_org_id);
2390: CLOSE get_receipt_name;
2391:
2392: fnd_message.set_name ('PN','PN_EXPAR_PMT_MTHD');
2393: fnd_message.set_token ('METHOD',l_pay_method_name);
2394: pnp_debug_pkg.put_log_msg(fnd_message.get);
2395:
2396: /* get the salesrep number */
2397: OPEN get_salesrep_number(v_pn_salesrep_id,v_pn_org_id);
2398: FETCH get_salesrep_number into l_salesrep_number,l_sales_credit_id;
2397: OPEN get_salesrep_number(v_pn_salesrep_id,v_pn_org_id);
2398: FETCH get_salesrep_number into l_salesrep_number,l_sales_credit_id;
2399: CLOSE get_salesrep_number;
2400:
2401: fnd_message.set_name ('PN','PN_EXPAR_SALES_REP');
2402: fnd_message.set_token ('NAME',l_salesrep_number);
2403: pnp_debug_pkg.put_log_msg(fnd_message.get);
2404:
2405: /* get the cust transaction type name */
2398: FETCH get_salesrep_number into l_salesrep_number,l_sales_credit_id;
2399: CLOSE get_salesrep_number;
2400:
2401: fnd_message.set_name ('PN','PN_EXPAR_SALES_REP');
2402: fnd_message.set_token ('NAME',l_salesrep_number);
2403: pnp_debug_pkg.put_log_msg(fnd_message.get);
2404:
2405: /* get the cust transaction type name */
2406: OPEN get_cust_trx_name(v_pn_trx_type_id);
2399: CLOSE get_salesrep_number;
2400:
2401: fnd_message.set_name ('PN','PN_EXPAR_SALES_REP');
2402: fnd_message.set_token ('NAME',l_salesrep_number);
2403: pnp_debug_pkg.put_log_msg(fnd_message.get);
2404:
2405: /* get the cust transaction type name */
2406: OPEN get_cust_trx_name(v_pn_trx_type_id);
2407: FETCH get_cust_trx_name into l_cust_trx_name;
2406: OPEN get_cust_trx_name(v_pn_trx_type_id);
2407: FETCH get_cust_trx_name into l_cust_trx_name;
2408: CLOSE get_cust_trx_name;
2409:
2410: fnd_message.set_name ('PN','PN_EXPAR_TRNX_TYPE');
2411: fnd_message.set_token ('TYPE',l_cust_trx_name);
2412: pnp_debug_pkg.put_log_msg(fnd_message.get);
2413:
2414: fnd_message.set_name ('PN','PN_EXPAR_POST');
2407: FETCH get_cust_trx_name into l_cust_trx_name;
2408: CLOSE get_cust_trx_name;
2409:
2410: fnd_message.set_name ('PN','PN_EXPAR_TRNX_TYPE');
2411: fnd_message.set_token ('TYPE',l_cust_trx_name);
2412: pnp_debug_pkg.put_log_msg(fnd_message.get);
2413:
2414: fnd_message.set_name ('PN','PN_EXPAR_POST');
2415: fnd_message.set_token ('TOK',l_post_to_gl);
2408: CLOSE get_cust_trx_name;
2409:
2410: fnd_message.set_name ('PN','PN_EXPAR_TRNX_TYPE');
2411: fnd_message.set_token ('TYPE',l_cust_trx_name);
2412: pnp_debug_pkg.put_log_msg(fnd_message.get);
2413:
2414: fnd_message.set_name ('PN','PN_EXPAR_POST');
2415: fnd_message.set_token ('TOK',l_post_to_gl);
2416: pnp_debug_pkg.put_log_msg(fnd_message.get);
2410: fnd_message.set_name ('PN','PN_EXPAR_TRNX_TYPE');
2411: fnd_message.set_token ('TYPE',l_cust_trx_name);
2412: pnp_debug_pkg.put_log_msg(fnd_message.get);
2413:
2414: fnd_message.set_name ('PN','PN_EXPAR_POST');
2415: fnd_message.set_token ('TOK',l_post_to_gl);
2416: pnp_debug_pkg.put_log_msg(fnd_message.get);
2417:
2418: /* get the term name */
2411: fnd_message.set_token ('TYPE',l_cust_trx_name);
2412: pnp_debug_pkg.put_log_msg(fnd_message.get);
2413:
2414: fnd_message.set_name ('PN','PN_EXPAR_POST');
2415: fnd_message.set_token ('TOK',l_post_to_gl);
2416: pnp_debug_pkg.put_log_msg(fnd_message.get);
2417:
2418: /* get the term name */
2419: OPEN get_term_name(v_pn_term_id);
2412: pnp_debug_pkg.put_log_msg(fnd_message.get);
2413:
2414: fnd_message.set_name ('PN','PN_EXPAR_POST');
2415: fnd_message.set_token ('TOK',l_post_to_gl);
2416: pnp_debug_pkg.put_log_msg(fnd_message.get);
2417:
2418: /* get the term name */
2419: OPEN get_term_name(v_pn_term_id);
2420: FETCH get_term_name into l_term_name;
2419: OPEN get_term_name(v_pn_term_id);
2420: FETCH get_term_name into l_term_name;
2421: CLOSE get_term_name;
2422:
2423: fnd_message.set_name ('PN','PN_EXPAR_PMT_TERM');
2424: fnd_message.set_token ('NUM',l_term_name);
2425: pnp_debug_pkg.put_log_msg(fnd_message.get);
2426:
2427: /* get the primary location code */
2420: FETCH get_term_name into l_term_name;
2421: CLOSE get_term_name;
2422:
2423: fnd_message.set_name ('PN','PN_EXPAR_PMT_TERM');
2424: fnd_message.set_token ('NUM',l_term_name);
2425: pnp_debug_pkg.put_log_msg(fnd_message.get);
2426:
2427: /* get the primary location code */
2428: OPEN get_loc_code(v_location_id) ;
2421: CLOSE get_term_name;
2422:
2423: fnd_message.set_name ('PN','PN_EXPAR_PMT_TERM');
2424: fnd_message.set_token ('NUM',l_term_name);
2425: pnp_debug_pkg.put_log_msg(fnd_message.get);
2426:
2427: /* get the primary location code */
2428: OPEN get_loc_code(v_location_id) ;
2429: FETCH get_loc_code into l_location_code;
2431: l_location_code:= NULL;
2432: END IF;
2433: CLOSE get_loc_code;
2434:
2435: fnd_message.set_name ('PN','PN_EXPAR_LOC_CODE');
2436: fnd_message.set_token ('LOC_CODE',l_location_code);
2437: pnp_debug_pkg.put_log_msg(fnd_message.get);
2438:
2439: /* get the vat tax code */
2432: END IF;
2433: CLOSE get_loc_code;
2434:
2435: fnd_message.set_name ('PN','PN_EXPAR_LOC_CODE');
2436: fnd_message.set_token ('LOC_CODE',l_location_code);
2437: pnp_debug_pkg.put_log_msg(fnd_message.get);
2438:
2439: /* get the vat tax code */
2440:
2433: CLOSE get_loc_code;
2434:
2435: fnd_message.set_name ('PN','PN_EXPAR_LOC_CODE');
2436: fnd_message.set_token ('LOC_CODE',l_location_code);
2437: pnp_debug_pkg.put_log_msg(fnd_message.get);
2438:
2439: /* get the vat tax code */
2440:
2441: IF NOT pn_r12_util_pkg.is_r12 THEN
2450: OPEN gl_segment_check;
2451: FETCH gl_segment_check INTO l_gl_seg;
2452: CLOSE gl_segment_check;
2453:
2454: fnd_message.set_name ('PN','PN_EXPAR_GL_SALES');
2455: fnd_message.set_token ('TOK',l_gl_seg);
2456: pnp_debug_pkg.put_log_msg(fnd_message.get);
2457:
2458: /* Check for System Parameters in AR System Options */
2451: FETCH gl_segment_check INTO l_gl_seg;
2452: CLOSE gl_segment_check;
2453:
2454: fnd_message.set_name ('PN','PN_EXPAR_GL_SALES');
2455: fnd_message.set_token ('TOK',l_gl_seg);
2456: pnp_debug_pkg.put_log_msg(fnd_message.get);
2457:
2458: /* Check for System Parameters in AR System Options */
2459: OPEN sys_param_check;
2452: CLOSE gl_segment_check;
2453:
2454: fnd_message.set_name ('PN','PN_EXPAR_GL_SALES');
2455: fnd_message.set_token ('TOK',l_gl_seg);
2456: pnp_debug_pkg.put_log_msg(fnd_message.get);
2457:
2458: /* Check for System Parameters in AR System Options */
2459: OPEN sys_param_check;
2460: FETCH sys_param_check INTO l_sys_para;
2459: OPEN sys_param_check;
2460: FETCH sys_param_check INTO l_sys_para;
2461: CLOSE sys_param_check;
2462:
2463: fnd_message.set_name ('PN','PN_EXPAR_AR_SALES');
2464: fnd_message.set_token ('TOK',l_sys_para);
2465: pnp_debug_pkg.put_log_msg(fnd_message.get);
2466:
2467: l_context := 'Inserting into interface lines';
2460: FETCH sys_param_check INTO l_sys_para;
2461: CLOSE sys_param_check;
2462:
2463: fnd_message.set_name ('PN','PN_EXPAR_AR_SALES');
2464: fnd_message.set_token ('TOK',l_sys_para);
2465: pnp_debug_pkg.put_log_msg(fnd_message.get);
2466:
2467: l_context := 'Inserting into interface lines';
2468:
2461: CLOSE sys_param_check;
2462:
2463: fnd_message.set_name ('PN','PN_EXPAR_AR_SALES');
2464: fnd_message.set_token ('TOK',l_sys_para);
2465: pnp_debug_pkg.put_log_msg(fnd_message.get);
2466:
2467: l_context := 'Inserting into interface lines';
2468:
2469: INSERT INTO ra_interface_lines_all
2632:
2633: l_context := 'Getting Revenue amt.';
2634: pnp_debug_pkg.log('Getting Revenue Amount');
2635:
2636: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT');
2637: fnd_message.set_token ('AMT',to_char(round(v_pn_export_currency_amount,l_precision)));
2638: pnp_debug_pkg.put_log_msg(fnd_message.get);
2639:
2640:
2633: l_context := 'Getting Revenue amt.';
2634: pnp_debug_pkg.log('Getting Revenue Amount');
2635:
2636: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT');
2637: fnd_message.set_token ('AMT',to_char(round(v_pn_export_currency_amount,l_precision)));
2638: pnp_debug_pkg.put_log_msg(fnd_message.get);
2639:
2640:
2641: FOR acnt_rec IN get_dist(v_pn_payment_term_id)
2634: pnp_debug_pkg.log('Getting Revenue Amount');
2635:
2636: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT');
2637: fnd_message.set_token ('AMT',to_char(round(v_pn_export_currency_amount,l_precision)));
2638: pnp_debug_pkg.put_log_msg(fnd_message.get);
2639:
2640:
2641: FOR acnt_rec IN get_dist(v_pn_payment_term_id)
2642: LOOP
2646: l_acnt_cls := 'REC';
2647: l_percent := 100;
2648: l_amt := V_PN_EXPORT_CURRENCY_AMOUNT;
2649:
2650: fnd_message.set_name ('PN','PN_EXPAR_BTCH_RCV_AMT');
2651: fnd_message.set_token ('NUM',to_char(l_amt));
2652: pnp_debug_pkg.put_log_msg(fnd_message.get);
2653:
2654: ELSIF acnt_rec.account_class = 'REV' THEN
2647: l_percent := 100;
2648: l_amt := V_PN_EXPORT_CURRENCY_AMOUNT;
2649:
2650: fnd_message.set_name ('PN','PN_EXPAR_BTCH_RCV_AMT');
2651: fnd_message.set_token ('NUM',to_char(l_amt));
2652: pnp_debug_pkg.put_log_msg(fnd_message.get);
2653:
2654: ELSIF acnt_rec.account_class = 'REV' THEN
2655:
2648: l_amt := V_PN_EXPORT_CURRENCY_AMOUNT;
2649:
2650: fnd_message.set_name ('PN','PN_EXPAR_BTCH_RCV_AMT');
2651: fnd_message.set_token ('NUM',to_char(l_amt));
2652: pnp_debug_pkg.put_log_msg(fnd_message.get);
2653:
2654: ELSIF acnt_rec.account_class = 'REV' THEN
2655:
2656: l_acnt_cls := 'REV';
2680: end if;
2681:
2682: END IF;
2683:
2684: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT_DIST');
2685: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2686: pnp_debug_pkg.put_log_msg(fnd_message.get);
2687:
2688: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
2681:
2682: END IF;
2683:
2684: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT_DIST');
2685: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2686: pnp_debug_pkg.put_log_msg(fnd_message.get);
2687:
2688: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
2689: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2682: END IF;
2683:
2684: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT_DIST');
2685: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2686: pnp_debug_pkg.put_log_msg(fnd_message.get);
2687:
2688: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
2689: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2690: pnp_debug_pkg.put_log_msg(fnd_message.get);
2684: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT_DIST');
2685: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2686: pnp_debug_pkg.put_log_msg(fnd_message.get);
2687:
2688: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
2689: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2690: pnp_debug_pkg.put_log_msg(fnd_message.get);
2691:
2692: ELSIF acnt_rec.account_class = 'UNEARN' THEN
2685: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2686: pnp_debug_pkg.put_log_msg(fnd_message.get);
2687:
2688: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
2689: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2690: pnp_debug_pkg.put_log_msg(fnd_message.get);
2691:
2692: ELSIF acnt_rec.account_class = 'UNEARN' THEN
2693:
2686: pnp_debug_pkg.put_log_msg(fnd_message.get);
2687:
2688: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
2689: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2690: pnp_debug_pkg.put_log_msg(fnd_message.get);
2691:
2692: ELSIF acnt_rec.account_class = 'UNEARN' THEN
2693:
2694: l_acnt_cls := 'REV';
2710: l_amt := round((V_PN_EXPORT_CURRENCY_AMOUNT),l_precision);
2711:
2712: END IF;
2713:
2714: fnd_message.set_name ('PN','PN_EXPAR_ACR_AMT_DIST');
2715: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2716: pnp_debug_pkg.put_log_msg(fnd_message.get);
2717:
2718: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
2711:
2712: END IF;
2713:
2714: fnd_message.set_name ('PN','PN_EXPAR_ACR_AMT_DIST');
2715: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2716: pnp_debug_pkg.put_log_msg(fnd_message.get);
2717:
2718: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
2719: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2712: END IF;
2713:
2714: fnd_message.set_name ('PN','PN_EXPAR_ACR_AMT_DIST');
2715: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2716: pnp_debug_pkg.put_log_msg(fnd_message.get);
2717:
2718: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
2719: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2720: pnp_debug_pkg.put_log_msg(fnd_message.get);
2714: fnd_message.set_name ('PN','PN_EXPAR_ACR_AMT_DIST');
2715: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2716: pnp_debug_pkg.put_log_msg(fnd_message.get);
2717:
2718: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
2719: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2720: pnp_debug_pkg.put_log_msg(fnd_message.get);
2721:
2722: END IF;
2715: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2716: pnp_debug_pkg.put_log_msg(fnd_message.get);
2717:
2718: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
2719: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2720: pnp_debug_pkg.put_log_msg(fnd_message.get);
2721:
2722: END IF;
2723:
2716: pnp_debug_pkg.put_log_msg(fnd_message.get);
2717:
2718: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
2719: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2720: pnp_debug_pkg.put_log_msg(fnd_message.get);
2721:
2722: END IF;
2723:
2724: l_last_updated_by := FND_GLOBAL.USER_ID;
2807:
2808: IF (SQL%NOTFOUND) then
2809: pnp_debug_pkg.log('Could not update row for Payment_Item_Id = ' ||
2810: V_PN_Payment_Item_Id) ;
2811: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_FLAG_NOT_SET');
2812: errbuf := fnd_message.get;
2813: rollback;
2814: retcode := 2;
2815: return;
2808: IF (SQL%NOTFOUND) then
2809: pnp_debug_pkg.log('Could not update row for Payment_Item_Id = ' ||
2810: V_PN_Payment_Item_Id) ;
2811: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_FLAG_NOT_SET');
2812: errbuf := fnd_message.get;
2813: rollback;
2814: retcode := 2;
2815: return;
2816: END IF;
2832:
2833: IF (SQL%NOTFOUND) then
2834: pnp_debug_pkg.log('Could not update row for Payment_Schedule_Id = '
2835: || V_PN_Payment_Schedule_Id) ;
2836: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_INFO_NOT_SET');
2837: errbuf := fnd_message.get;
2838: rollback;
2839: retcode := 2;
2840: return;
2833: IF (SQL%NOTFOUND) then
2834: pnp_debug_pkg.log('Could not update row for Payment_Schedule_Id = '
2835: || V_PN_Payment_Schedule_Id) ;
2836: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_INFO_NOT_SET');
2837: errbuf := fnd_message.get;
2838: rollback;
2839: retcode := 2;
2840: return;
2841: END IF;
2871: pnp_debug_pkg.put_log_msg('
2872: ================================================================================');
2873:
2874:
2875: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
2876: fnd_message.set_token ('NUM',S_Count);
2877: pnp_debug_pkg.put_log_msg(fnd_message.get);
2878:
2879: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2872: ================================================================================');
2873:
2874:
2875: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
2876: fnd_message.set_token ('NUM',S_Count);
2877: pnp_debug_pkg.put_log_msg(fnd_message.get);
2878:
2879: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2880: fnd_message.set_token ('NUM',E_Count);
2873:
2874:
2875: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
2876: fnd_message.set_token ('NUM',S_Count);
2877: pnp_debug_pkg.put_log_msg(fnd_message.get);
2878:
2879: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2880: fnd_message.set_token ('NUM',E_Count);
2881: pnp_debug_pkg.put_log_msg(fnd_message.get);
2875: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
2876: fnd_message.set_token ('NUM',S_Count);
2877: pnp_debug_pkg.put_log_msg(fnd_message.get);
2878:
2879: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2880: fnd_message.set_token ('NUM',E_Count);
2881: pnp_debug_pkg.put_log_msg(fnd_message.get);
2882:
2883: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
2876: fnd_message.set_token ('NUM',S_Count);
2877: pnp_debug_pkg.put_log_msg(fnd_message.get);
2878:
2879: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2880: fnd_message.set_token ('NUM',E_Count);
2881: pnp_debug_pkg.put_log_msg(fnd_message.get);
2882:
2883: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
2884: fnd_message.set_token ('NUM',T_Count);
2877: pnp_debug_pkg.put_log_msg(fnd_message.get);
2878:
2879: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2880: fnd_message.set_token ('NUM',E_Count);
2881: pnp_debug_pkg.put_log_msg(fnd_message.get);
2882:
2883: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
2884: fnd_message.set_token ('NUM',T_Count);
2885: pnp_debug_pkg.put_log_msg(fnd_message.get);
2879: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2880: fnd_message.set_token ('NUM',E_Count);
2881: pnp_debug_pkg.put_log_msg(fnd_message.get);
2882:
2883: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
2884: fnd_message.set_token ('NUM',T_Count);
2885: pnp_debug_pkg.put_log_msg(fnd_message.get);
2886:
2887: pnp_debug_pkg.put_log_msg('
2880: fnd_message.set_token ('NUM',E_Count);
2881: pnp_debug_pkg.put_log_msg(fnd_message.get);
2882:
2883: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
2884: fnd_message.set_token ('NUM',T_Count);
2885: pnp_debug_pkg.put_log_msg(fnd_message.get);
2886:
2887: pnp_debug_pkg.put_log_msg('
2888: ================================================================================');
2881: pnp_debug_pkg.put_log_msg(fnd_message.get);
2882:
2883: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
2884: fnd_message.set_token ('NUM',T_Count);
2885: pnp_debug_pkg.put_log_msg(fnd_message.get);
2886:
2887: pnp_debug_pkg.put_log_msg('
2888: ================================================================================');
2889:
2888: ================================================================================');
2889:
2890: IF(E_Count >0) THEN --Bug 14762515
2891:
2892: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2893: fnd_message.set_token ('NUM',E_Count);
2894: pnp_debug_pkg.put_log_msg(fnd_message.get);
2895: pnp_debug_pkg.put_log_msg('');
2896:
2889:
2890: IF(E_Count >0) THEN --Bug 14762515
2891:
2892: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2893: fnd_message.set_token ('NUM',E_Count);
2894: pnp_debug_pkg.put_log_msg(fnd_message.get);
2895: pnp_debug_pkg.put_log_msg('');
2896:
2897: FOR i IN 1..l_index_2-1
2890: IF(E_Count >0) THEN --Bug 14762515
2891:
2892: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2893: fnd_message.set_token ('NUM',E_Count);
2894: pnp_debug_pkg.put_log_msg(fnd_message.get);
2895: pnp_debug_pkg.put_log_msg('');
2896:
2897: FOR i IN 1..l_index_2-1
2898: LOOP
2899: select actual_amount into l_actual_amount
2900: from pn_payment_items_all
2901: where payment_item_id=err_ar_tbl(i).pn_payment_item_id;
2902:
2903: fnd_message.set_name ('PN','PN_LEASE_NUMBER');
2904: l_message := fnd_message.get || ' ' || err_ar_tbl(i).pn_lease_num || ' ';
2905: fnd_message.set_name ('PN','PN_AMOUNT');
2906: l_message := l_message || fnd_message.get;
2907: l_message := l_message || ' ' || l_actual_amount;
2900: from pn_payment_items_all
2901: where payment_item_id=err_ar_tbl(i).pn_payment_item_id;
2902:
2903: fnd_message.set_name ('PN','PN_LEASE_NUMBER');
2904: l_message := fnd_message.get || ' ' || err_ar_tbl(i).pn_lease_num || ' ';
2905: fnd_message.set_name ('PN','PN_AMOUNT');
2906: l_message := l_message || fnd_message.get;
2907: l_message := l_message || ' ' || l_actual_amount;
2908: pnp_debug_pkg.put_log_msg(l_message);
2901: where payment_item_id=err_ar_tbl(i).pn_payment_item_id;
2902:
2903: fnd_message.set_name ('PN','PN_LEASE_NUMBER');
2904: l_message := fnd_message.get || ' ' || err_ar_tbl(i).pn_lease_num || ' ';
2905: fnd_message.set_name ('PN','PN_AMOUNT');
2906: l_message := l_message || fnd_message.get;
2907: l_message := l_message || ' ' || l_actual_amount;
2908: pnp_debug_pkg.put_log_msg(l_message);
2909:
2902:
2903: fnd_message.set_name ('PN','PN_LEASE_NUMBER');
2904: l_message := fnd_message.get || ' ' || err_ar_tbl(i).pn_lease_num || ' ';
2905: fnd_message.set_name ('PN','PN_AMOUNT');
2906: l_message := l_message || fnd_message.get;
2907: l_message := l_message || ' ' || l_actual_amount;
2908: pnp_debug_pkg.put_log_msg(l_message);
2909:
2910:
2923: raise;
2924:
2925: WHEN OTHERS THEN
2926: pnp_debug_pkg.log(substrb('OTHERS: ' || l_context,1,244));
2927: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_PROBLEM');
2928: Errbuf := substrb(SQLERRM,1,244);
2929: Retcode := 2;
2930: rollback;
2931: raise;