468: (NOT(g_invalid_group_flag) AND NOT(g_no_group_flag)) THEN
469:
470: /* Form the Order by clause of optional attributes and print the optional attributes */
471: IF g_grp_by_purpose_flag THEN
472: fnd_message.set_name ('PN','PN_EXPAR_PMT_PUR');
473: pnp_debug_pkg.put_log_msg(fnd_message.get);
474: l_ord_clause := l_ord_clause || ' , payment_purpose';
475: END IF;
476: IF g_grp_by_type_flag THEN
469:
470: /* Form the Order by clause of optional attributes and print the optional attributes */
471: IF g_grp_by_purpose_flag THEN
472: fnd_message.set_name ('PN','PN_EXPAR_PMT_PUR');
473: pnp_debug_pkg.put_log_msg(fnd_message.get);
474: l_ord_clause := l_ord_clause || ' , payment_purpose';
475: END IF;
476: IF g_grp_by_type_flag THEN
477: fnd_message.set_name ('PN','PN_EXPAR_PMT_TYP');
473: pnp_debug_pkg.put_log_msg(fnd_message.get);
474: l_ord_clause := l_ord_clause || ' , payment_purpose';
475: END IF;
476: IF g_grp_by_type_flag THEN
477: fnd_message.set_name ('PN','PN_EXPAR_PMT_TYP');
478: pnp_debug_pkg.put_log_msg(fnd_message.get);
479: l_ord_clause := l_ord_clause || ' , payment_type';
480: END IF;
481: IF g_grp_by_lenum_flag THEN
474: l_ord_clause := l_ord_clause || ' , payment_purpose';
475: END IF;
476: IF g_grp_by_type_flag THEN
477: fnd_message.set_name ('PN','PN_EXPAR_PMT_TYP');
478: pnp_debug_pkg.put_log_msg(fnd_message.get);
479: l_ord_clause := l_ord_clause || ' , payment_type';
480: END IF;
481: IF g_grp_by_lenum_flag THEN
482: fnd_message.set_name ('PN','PN_EXPAR_LSNO');
478: pnp_debug_pkg.put_log_msg(fnd_message.get);
479: l_ord_clause := l_ord_clause || ' , payment_type';
480: END IF;
481: IF g_grp_by_lenum_flag THEN
482: fnd_message.set_name ('PN','PN_EXPAR_LSNO');
483: pnp_debug_pkg.put_log_msg(fnd_message.get);
484: l_ord_clause := l_ord_clause || ' , le.lease_num';
485: END IF;
486: Q_Billitem_grp := Q_Billitem_grp ||l_param_where_clause || l_ord_clause;
479: l_ord_clause := l_ord_clause || ' , payment_type';
480: END IF;
481: IF g_grp_by_lenum_flag THEN
482: fnd_message.set_name ('PN','PN_EXPAR_LSNO');
483: pnp_debug_pkg.put_log_msg(fnd_message.get);
484: l_ord_clause := l_ord_clause || ' , le.lease_num';
485: END IF;
486: Q_Billitem_grp := Q_Billitem_grp ||l_param_where_clause || l_ord_clause;
487: PN_EXP_TO_AR.EXP_TO_AR_GRP(errbuf
506:
507: EXCEPTION
508:
509: WHEN INVALID_GROUP_RULE THEN
510: fnd_message.set_name ('PN', 'PN_INVALID_GROUP_RULE_ATTACHED');
511: err_msg := fnd_message.get;
512: pnp_debug_pkg.put_log_msg(err_msg);
513: errbuf := err_msg;
514: retcode := 2;
507: EXCEPTION
508:
509: WHEN INVALID_GROUP_RULE THEN
510: fnd_message.set_name ('PN', 'PN_INVALID_GROUP_RULE_ATTACHED');
511: err_msg := fnd_message.get;
512: pnp_debug_pkg.put_log_msg(err_msg);
513: errbuf := err_msg;
514: retcode := 2;
515: WHEN OTHERS THEN
686:
687: /* Get the Optional Attributes of the Grouping Rule mentioned in Batch Source */
688: l_context := 'Getting the Optional Attributes of the Grouping Rule mentioned in Batch Source';
689:
690: fnd_message.set_name ('PN','PN_EXPAR_OPT');
691: pnp_debug_pkg.put_log_msg(fnd_message.get);
692: l_context := 'Getting the Batch Source Name';
693: pnp_debug_pkg.log(l_context);
694: /* get the batch source name */
687: /* Get the Optional Attributes of the Grouping Rule mentioned in Batch Source */
688: l_context := 'Getting the Optional Attributes of the Grouping Rule mentioned in Batch Source';
689:
690: fnd_message.set_name ('PN','PN_EXPAR_OPT');
691: pnp_debug_pkg.put_log_msg(fnd_message.get);
692: l_context := 'Getting the Batch Source Name';
693: pnp_debug_pkg.log(l_context);
694: /* get the batch source name */
695: OPEN get_batch_source_name;
907: /* Check for Invalid Items here */
908: IF UPPER(exp_ar_tbl(l_index).conv_rate_type) = 'USER'
909: AND exp_ar_tbl(l_index).conv_rate IS NULL THEN
910:
911: fnd_message.set_name ('PN', 'PN_CONV_RATE_REQD');
912: l_err_msg4 := fnd_message.get;
913: pnp_debug_pkg.put_log_msg(l_err_msg4);
914:
915: RAISE GENERIC_EXPORT_EXCEPTION;
908: IF UPPER(exp_ar_tbl(l_index).conv_rate_type) = 'USER'
909: AND exp_ar_tbl(l_index).conv_rate IS NULL THEN
910:
911: fnd_message.set_name ('PN', 'PN_CONV_RATE_REQD');
912: l_err_msg4 := fnd_message.get;
913: pnp_debug_pkg.put_log_msg(l_err_msg4);
914:
915: RAISE GENERIC_EXPORT_EXCEPTION;
916:
918:
919: IF exp_ar_tbl(l_index).pn_term_id IS NULL
920: OR exp_ar_tbl(l_index).pn_trx_type_id IS NULL THEN
921:
922: fnd_message.set_name ('PN', 'PN_PTRM_TRX_REQD_MSG');
923: l_err_msg3 := fnd_message.get;
924: pnp_debug_pkg.put_log_msg(l_err_msg3);
925:
926: RAISE GENERIC_EXPORT_EXCEPTION;
919: IF exp_ar_tbl(l_index).pn_term_id IS NULL
920: OR exp_ar_tbl(l_index).pn_trx_type_id IS NULL THEN
921:
922: fnd_message.set_name ('PN', 'PN_PTRM_TRX_REQD_MSG');
923: l_err_msg3 := fnd_message.get;
924: pnp_debug_pkg.put_log_msg(l_err_msg3);
925:
926: RAISE GENERIC_EXPORT_EXCEPTION;
927:
930: IF NVL(exp_ar_tbl(l_index).normalize,'N') = 'Y' THEN
931:
932: IF (l_rev_flag <> 'Y' OR l_rec_flag <> 'Y' OR l_ast_flag <> 'Y') THEN
933:
934: fnd_message.set_name ('PN', 'PN_ALL_ACNT_DIST_MSG');
935: l_err_msg1 := fnd_message.get;
936: pnp_debug_pkg.put_log_msg(l_err_msg1);
937:
938: RAISE GENERIC_EXPORT_EXCEPTION;
931:
932: IF (l_rev_flag <> 'Y' OR l_rec_flag <> 'Y' OR l_ast_flag <> 'Y') THEN
933:
934: fnd_message.set_name ('PN', 'PN_ALL_ACNT_DIST_MSG');
935: l_err_msg1 := fnd_message.get;
936: pnp_debug_pkg.put_log_msg(l_err_msg1);
937:
938: RAISE GENERIC_EXPORT_EXCEPTION;
939:
945: (l_prof_optn IN ('M', 'N') AND ((l_rev_flag = 'Y' AND l_rec_flag <> 'Y') OR
946: (l_rev_flag <> 'Y' AND l_rec_flag = 'Y')))
947: THEN
948:
949: fnd_message.set_name ('PN', 'PN_REVREC_DIST_MSG');
950: l_err_msg2 := fnd_message.get;
951: pnp_debug_pkg.put_log_msg(l_err_msg2);
952:
953: RAISE GENERIC_EXPORT_EXCEPTION;
946: (l_rev_flag <> 'Y' AND l_rec_flag = 'Y')))
947: THEN
948:
949: fnd_message.set_name ('PN', 'PN_REVREC_DIST_MSG');
950: l_err_msg2 := fnd_message.get;
951: pnp_debug_pkg.put_log_msg(l_err_msg2);
952:
953: RAISE GENERIC_EXPORT_EXCEPTION;
954:
1004: l_next := 2;
1005: l_item_prcsed := 0;
1006: l_count := exp_ar_tbl.count;
1007:
1008: fnd_message.set_name ('PN','PN_EXPAR_ITM_PROC');
1009: fnd_message.set_token ('NUM',l_count);
1010: pnp_debug_pkg.put_log_msg(fnd_message.get);
1011:
1012: l_context := 'Finding the Groups of items';
1005: l_item_prcsed := 0;
1006: l_count := exp_ar_tbl.count;
1007:
1008: fnd_message.set_name ('PN','PN_EXPAR_ITM_PROC');
1009: fnd_message.set_token ('NUM',l_count);
1010: pnp_debug_pkg.put_log_msg(fnd_message.get);
1011:
1012: l_context := 'Finding the Groups of items';
1013: pnp_debug_pkg.log(l_context);
1006: l_count := exp_ar_tbl.count;
1007:
1008: fnd_message.set_name ('PN','PN_EXPAR_ITM_PROC');
1009: fnd_message.set_token ('NUM',l_count);
1010: pnp_debug_pkg.put_log_msg(fnd_message.get);
1011:
1012: l_context := 'Finding the Groups of items';
1013: pnp_debug_pkg.log(l_context);
1014:
1082: e_count := e_count + l_next - l_start;
1083: l_start := l_next;
1084: l_next := l_next + 1;
1085: l_valid_rec_accs := FALSE;
1086: fnd_message.set_name ('PN', 'PN_UNMATCHING_REC_ACCNT');
1087: pnp_debug_pkg.put_log_msg(fnd_message.get);
1088: EXIT;
1089:
1090: END IF;
1083: l_start := l_next;
1084: l_next := l_next + 1;
1085: l_valid_rec_accs := FALSE;
1086: fnd_message.set_name ('PN', 'PN_UNMATCHING_REC_ACCNT');
1087: pnp_debug_pkg.put_log_msg(fnd_message.get);
1088: EXIT;
1089:
1090: END IF;
1091:
1096:
1097: l_context := 'Group Valid. Processing the grouped items';
1098: pnp_debug_pkg.log(l_context);
1099:
1100: fnd_message.set_name ('PN','PN_EXPAR_ITM_QLFY');
1101: fnd_message.set_token ('NUM',(l_next-l_start));
1102: pnp_debug_pkg.put_log_msg(fnd_message.get);
1103:
1104: l_rec_insert_flag := TRUE;
1097: l_context := 'Group Valid. Processing the grouped items';
1098: pnp_debug_pkg.log(l_context);
1099:
1100: fnd_message.set_name ('PN','PN_EXPAR_ITM_QLFY');
1101: fnd_message.set_token ('NUM',(l_next-l_start));
1102: pnp_debug_pkg.put_log_msg(fnd_message.get);
1103:
1104: l_rec_insert_flag := TRUE;
1105: l_last_updated_by := FND_GLOBAL.USER_ID;
1098: pnp_debug_pkg.log(l_context);
1099:
1100: fnd_message.set_name ('PN','PN_EXPAR_ITM_QLFY');
1101: fnd_message.set_token ('NUM',(l_next-l_start));
1102: pnp_debug_pkg.put_log_msg(fnd_message.get);
1103:
1104: l_rec_insert_flag := TRUE;
1105: l_last_updated_by := FND_GLOBAL.USER_ID;
1106: l_last_update_login := FND_GLOBAL.LOGIN_ID;
1124: fnd_currency.get_info(exp_ar_tbl(l_grp).pn_export_currency_code,
1125: l_precision, l_ext_precision, l_min_acct_unit);
1126: pnp_debug_pkg.put_log_msg('
1127: ================================================================================');
1128: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
1129: fnd_message.set_token ('ITM_ID',exp_ar_tbl(l_grp).pn_payment_item_id);
1130: fnd_message.set_token ('CUST_ID',TO_CHAR(exp_ar_tbl(l_grp).pn_customer_id));
1131: fnd_message.set_token ('REC_AMT',0);
1132: fnd_message.set_token ('DATE',exp_ar_tbl(l_grp).gl_date);
1125: l_precision, l_ext_precision, l_min_acct_unit);
1126: pnp_debug_pkg.put_log_msg('
1127: ================================================================================');
1128: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
1129: fnd_message.set_token ('ITM_ID',exp_ar_tbl(l_grp).pn_payment_item_id);
1130: fnd_message.set_token ('CUST_ID',TO_CHAR(exp_ar_tbl(l_grp).pn_customer_id));
1131: fnd_message.set_token ('REC_AMT',0);
1132: fnd_message.set_token ('DATE',exp_ar_tbl(l_grp).gl_date);
1133: pnp_debug_pkg.put_log_msg('
1126: pnp_debug_pkg.put_log_msg('
1127: ================================================================================');
1128: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
1129: fnd_message.set_token ('ITM_ID',exp_ar_tbl(l_grp).pn_payment_item_id);
1130: fnd_message.set_token ('CUST_ID',TO_CHAR(exp_ar_tbl(l_grp).pn_customer_id));
1131: fnd_message.set_token ('REC_AMT',0);
1132: fnd_message.set_token ('DATE',exp_ar_tbl(l_grp).gl_date);
1133: pnp_debug_pkg.put_log_msg('
1134: ================================================================================');
1127: ================================================================================');
1128: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
1129: fnd_message.set_token ('ITM_ID',exp_ar_tbl(l_grp).pn_payment_item_id);
1130: fnd_message.set_token ('CUST_ID',TO_CHAR(exp_ar_tbl(l_grp).pn_customer_id));
1131: fnd_message.set_token ('REC_AMT',0);
1132: fnd_message.set_token ('DATE',exp_ar_tbl(l_grp).gl_date);
1133: pnp_debug_pkg.put_log_msg('
1134: ================================================================================');
1135:
1128: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
1129: fnd_message.set_token ('ITM_ID',exp_ar_tbl(l_grp).pn_payment_item_id);
1130: fnd_message.set_token ('CUST_ID',TO_CHAR(exp_ar_tbl(l_grp).pn_customer_id));
1131: fnd_message.set_token ('REC_AMT',0);
1132: fnd_message.set_token ('DATE',exp_ar_tbl(l_grp).gl_date);
1133: pnp_debug_pkg.put_log_msg('
1134: ================================================================================');
1135:
1136:
1134: ================================================================================');
1135:
1136:
1137: /* Print the Conversion Rate and Type */
1138: fnd_message.set_name ('PN','PN_CRACC_CV_RATE');
1139: fnd_message.set_token ('CR',exp_ar_tbl(l_grp).conv_rate);
1140: pnp_debug_pkg.put_log_msg(fnd_message.get);
1141:
1142: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
1135:
1136:
1137: /* Print the Conversion Rate and Type */
1138: fnd_message.set_name ('PN','PN_CRACC_CV_RATE');
1139: fnd_message.set_token ('CR',exp_ar_tbl(l_grp).conv_rate);
1140: pnp_debug_pkg.put_log_msg(fnd_message.get);
1141:
1142: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
1143: fnd_message.set_token ('CT',exp_ar_tbl(l_grp).conv_rate_type);
1136:
1137: /* Print the Conversion Rate and Type */
1138: fnd_message.set_name ('PN','PN_CRACC_CV_RATE');
1139: fnd_message.set_token ('CR',exp_ar_tbl(l_grp).conv_rate);
1140: pnp_debug_pkg.put_log_msg(fnd_message.get);
1141:
1142: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
1143: fnd_message.set_token ('CT',exp_ar_tbl(l_grp).conv_rate_type);
1144: pnp_debug_pkg.put_log_msg(fnd_message.get);
1138: fnd_message.set_name ('PN','PN_CRACC_CV_RATE');
1139: fnd_message.set_token ('CR',exp_ar_tbl(l_grp).conv_rate);
1140: pnp_debug_pkg.put_log_msg(fnd_message.get);
1141:
1142: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
1143: fnd_message.set_token ('CT',exp_ar_tbl(l_grp).conv_rate_type);
1144: pnp_debug_pkg.put_log_msg(fnd_message.get);
1145:
1146: /* Print send entries flag for the lease */
1139: fnd_message.set_token ('CR',exp_ar_tbl(l_grp).conv_rate);
1140: pnp_debug_pkg.put_log_msg(fnd_message.get);
1141:
1142: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
1143: fnd_message.set_token ('CT',exp_ar_tbl(l_grp).conv_rate_type);
1144: pnp_debug_pkg.put_log_msg(fnd_message.get);
1145:
1146: /* Print send entries flag for the lease */
1147: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
1140: pnp_debug_pkg.put_log_msg(fnd_message.get);
1141:
1142: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
1143: fnd_message.set_token ('CT',exp_ar_tbl(l_grp).conv_rate_type);
1144: pnp_debug_pkg.put_log_msg(fnd_message.get);
1145:
1146: /* Print send entries flag for the lease */
1147: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
1148: fnd_message.set_token ('ID',exp_ar_tbl(l_grp).pn_lease_id);
1143: fnd_message.set_token ('CT',exp_ar_tbl(l_grp).conv_rate_type);
1144: pnp_debug_pkg.put_log_msg(fnd_message.get);
1145:
1146: /* Print send entries flag for the lease */
1147: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
1148: fnd_message.set_token ('ID',exp_ar_tbl(l_grp).pn_lease_id);
1149: fnd_message.set_token ('SEND',exp_ar_tbl(l_grp).send_entries);
1150: pnp_debug_pkg.put_log_msg(fnd_message.get);
1151:
1144: pnp_debug_pkg.put_log_msg(fnd_message.get);
1145:
1146: /* Print send entries flag for the lease */
1147: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
1148: fnd_message.set_token ('ID',exp_ar_tbl(l_grp).pn_lease_id);
1149: fnd_message.set_token ('SEND',exp_ar_tbl(l_grp).send_entries);
1150: pnp_debug_pkg.put_log_msg(fnd_message.get);
1151:
1152:
1145:
1146: /* Print send entries flag for the lease */
1147: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
1148: fnd_message.set_token ('ID',exp_ar_tbl(l_grp).pn_lease_id);
1149: fnd_message.set_token ('SEND',exp_ar_tbl(l_grp).send_entries);
1150: pnp_debug_pkg.put_log_msg(fnd_message.get);
1151:
1152:
1153: /* Initialize the variables */
1146: /* Print send entries flag for the lease */
1147: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
1148: fnd_message.set_token ('ID',exp_ar_tbl(l_grp).pn_lease_id);
1149: fnd_message.set_token ('SEND',exp_ar_tbl(l_grp).send_entries);
1150: pnp_debug_pkg.put_log_msg(fnd_message.get);
1151:
1152:
1153: /* Initialize the variables */
1154: l_desc := NULL;
1178: OPEN get_rule_name(exp_ar_tbl(l_grp).pn_inv_rule_id);
1179: FETCH get_rule_name into l_inv_rule_name, l_inv_rule_type, l_inv_rule_freq;
1180: CLOSE get_rule_name;
1181:
1182: fnd_message.set_name ('PN','PN_EXPAR_INV_RULE');
1183: fnd_message.set_token ('NAME',l_inv_rule_name);
1184: pnp_debug_pkg.put_log_msg(fnd_message.get);
1185:
1186: /* get the accounting rule name */
1179: FETCH get_rule_name into l_inv_rule_name, l_inv_rule_type, l_inv_rule_freq;
1180: CLOSE get_rule_name;
1181:
1182: fnd_message.set_name ('PN','PN_EXPAR_INV_RULE');
1183: fnd_message.set_token ('NAME',l_inv_rule_name);
1184: pnp_debug_pkg.put_log_msg(fnd_message.get);
1185:
1186: /* get the accounting rule name */
1187: OPEN get_rule_name(exp_ar_tbl(l_grp).pn_account_rule_id);
1180: CLOSE get_rule_name;
1181:
1182: fnd_message.set_name ('PN','PN_EXPAR_INV_RULE');
1183: fnd_message.set_token ('NAME',l_inv_rule_name);
1184: pnp_debug_pkg.put_log_msg(fnd_message.get);
1185:
1186: /* get the accounting rule name */
1187: OPEN get_rule_name(exp_ar_tbl(l_grp).pn_account_rule_id);
1188: FETCH get_rule_name into l_acc_rule_name,l_acc_rule_type, l_acc_rule_freq;
1187: OPEN get_rule_name(exp_ar_tbl(l_grp).pn_account_rule_id);
1188: FETCH get_rule_name into l_acc_rule_name,l_acc_rule_type, l_acc_rule_freq;
1189: CLOSE get_rule_name;
1190:
1191: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_NAME');
1192: fnd_message.set_token ('NAME',l_acc_rule_name);
1193: pnp_debug_pkg.put_log_msg(fnd_message.get);
1194:
1195: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
1188: FETCH get_rule_name into l_acc_rule_name,l_acc_rule_type, l_acc_rule_freq;
1189: CLOSE get_rule_name;
1190:
1191: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_NAME');
1192: fnd_message.set_token ('NAME',l_acc_rule_name);
1193: pnp_debug_pkg.put_log_msg(fnd_message.get);
1194:
1195: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
1196: fnd_message.set_token ('TYPE',l_acc_rule_type);
1189: CLOSE get_rule_name;
1190:
1191: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_NAME');
1192: fnd_message.set_token ('NAME',l_acc_rule_name);
1193: pnp_debug_pkg.put_log_msg(fnd_message.get);
1194:
1195: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
1196: fnd_message.set_token ('TYPE',l_acc_rule_type);
1197: pnp_debug_pkg.put_log_msg(fnd_message.get);
1191: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_NAME');
1192: fnd_message.set_token ('NAME',l_acc_rule_name);
1193: pnp_debug_pkg.put_log_msg(fnd_message.get);
1194:
1195: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
1196: fnd_message.set_token ('TYPE',l_acc_rule_type);
1197: pnp_debug_pkg.put_log_msg(fnd_message.get);
1198:
1199: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
1192: fnd_message.set_token ('NAME',l_acc_rule_name);
1193: pnp_debug_pkg.put_log_msg(fnd_message.get);
1194:
1195: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
1196: fnd_message.set_token ('TYPE',l_acc_rule_type);
1197: pnp_debug_pkg.put_log_msg(fnd_message.get);
1198:
1199: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
1200: fnd_message.set_token ('FREQ',l_acc_rule_freq);
1193: pnp_debug_pkg.put_log_msg(fnd_message.get);
1194:
1195: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
1196: fnd_message.set_token ('TYPE',l_acc_rule_type);
1197: pnp_debug_pkg.put_log_msg(fnd_message.get);
1198:
1199: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
1200: fnd_message.set_token ('FREQ',l_acc_rule_freq);
1201: pnp_debug_pkg.put_log_msg(fnd_message.get);
1195: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
1196: fnd_message.set_token ('TYPE',l_acc_rule_type);
1197: pnp_debug_pkg.put_log_msg(fnd_message.get);
1198:
1199: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
1200: fnd_message.set_token ('FREQ',l_acc_rule_freq);
1201: pnp_debug_pkg.put_log_msg(fnd_message.get);
1202:
1203: IF exp_ar_tbl(l_grp).pn_account_rule_id IS NOT NULL AND
1196: fnd_message.set_token ('TYPE',l_acc_rule_type);
1197: pnp_debug_pkg.put_log_msg(fnd_message.get);
1198:
1199: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
1200: fnd_message.set_token ('FREQ',l_acc_rule_freq);
1201: pnp_debug_pkg.put_log_msg(fnd_message.get);
1202:
1203: IF exp_ar_tbl(l_grp).pn_account_rule_id IS NOT NULL AND
1204: (l_acc_rule_type <> 'A' OR
1197: pnp_debug_pkg.put_log_msg(fnd_message.get);
1198:
1199: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
1200: fnd_message.set_token ('FREQ',l_acc_rule_freq);
1201: pnp_debug_pkg.put_log_msg(fnd_message.get);
1202:
1203: IF exp_ar_tbl(l_grp).pn_account_rule_id IS NOT NULL AND
1204: (l_acc_rule_type <> 'A' OR
1205: l_acc_rule_freq <> 'SPECIFIC') AND
1209: ELSE
1210: l_rule_start_date := NULL;
1211: END IF;
1212:
1213: fnd_message.set_name ('PN','PN_EXPAR_RUL_ST_DT');
1214: fnd_message.set_token ('DATE',l_rule_start_date);
1215: pnp_debug_pkg.put_log_msg(fnd_message.get);
1216:
1217: /* get the payment method name */
1210: l_rule_start_date := NULL;
1211: END IF;
1212:
1213: fnd_message.set_name ('PN','PN_EXPAR_RUL_ST_DT');
1214: fnd_message.set_token ('DATE',l_rule_start_date);
1215: pnp_debug_pkg.put_log_msg(fnd_message.get);
1216:
1217: /* get the payment method name */
1218: OPEN get_receipt_name(exp_ar_tbl(l_grp).pn_pay_method_id);
1211: END IF;
1212:
1213: fnd_message.set_name ('PN','PN_EXPAR_RUL_ST_DT');
1214: fnd_message.set_token ('DATE',l_rule_start_date);
1215: pnp_debug_pkg.put_log_msg(fnd_message.get);
1216:
1217: /* get the payment method name */
1218: OPEN get_receipt_name(exp_ar_tbl(l_grp).pn_pay_method_id);
1219: FETCH get_receipt_name into l_pay_method_name;
1219: FETCH get_receipt_name into l_pay_method_name;
1220: CLOSE get_receipt_name;
1221:
1222: /* get the payment method name */
1223: fnd_message.set_name ('PN','PN_EXPAR_PMT_MTHD');
1224: fnd_message.set_token ('METHOD',l_pay_method_name);
1225: pnp_debug_pkg.put_log_msg(fnd_message.get);
1226:
1227: /* get the salesrep number */
1220: CLOSE get_receipt_name;
1221:
1222: /* get the payment method name */
1223: fnd_message.set_name ('PN','PN_EXPAR_PMT_MTHD');
1224: fnd_message.set_token ('METHOD',l_pay_method_name);
1225: pnp_debug_pkg.put_log_msg(fnd_message.get);
1226:
1227: /* get the salesrep number */
1228: OPEN get_salesrep_number(exp_ar_tbl(l_grp).pn_salesrep_id,
1221:
1222: /* get the payment method name */
1223: fnd_message.set_name ('PN','PN_EXPAR_PMT_MTHD');
1224: fnd_message.set_token ('METHOD',l_pay_method_name);
1225: pnp_debug_pkg.put_log_msg(fnd_message.get);
1226:
1227: /* get the salesrep number */
1228: OPEN get_salesrep_number(exp_ar_tbl(l_grp).pn_salesrep_id,
1229: exp_ar_tbl(l_grp).pn_org_id);
1229: exp_ar_tbl(l_grp).pn_org_id);
1230: FETCH get_salesrep_number into l_salesrep_number,l_sales_credit_id;
1231: CLOSE get_salesrep_number;
1232:
1233: fnd_message.set_name ('PN','PN_EXPAR_SALES_REP');
1234: fnd_message.set_token ('NAME',l_salesrep_number);
1235: pnp_debug_pkg.put_log_msg(fnd_message.get);
1236:
1237: /* get the cust transaction type name */
1230: FETCH get_salesrep_number into l_salesrep_number,l_sales_credit_id;
1231: CLOSE get_salesrep_number;
1232:
1233: fnd_message.set_name ('PN','PN_EXPAR_SALES_REP');
1234: fnd_message.set_token ('NAME',l_salesrep_number);
1235: pnp_debug_pkg.put_log_msg(fnd_message.get);
1236:
1237: /* get the cust transaction type name */
1238: OPEN get_cust_trx_name(exp_ar_tbl(l_grp).pn_trx_type_id);
1231: CLOSE get_salesrep_number;
1232:
1233: fnd_message.set_name ('PN','PN_EXPAR_SALES_REP');
1234: fnd_message.set_token ('NAME',l_salesrep_number);
1235: pnp_debug_pkg.put_log_msg(fnd_message.get);
1236:
1237: /* get the cust transaction type name */
1238: OPEN get_cust_trx_name(exp_ar_tbl(l_grp).pn_trx_type_id);
1239: FETCH get_cust_trx_name into l_cust_trx_name;
1238: OPEN get_cust_trx_name(exp_ar_tbl(l_grp).pn_trx_type_id);
1239: FETCH get_cust_trx_name into l_cust_trx_name;
1240: CLOSE get_cust_trx_name;
1241:
1242: fnd_message.set_name ('PN','PN_EXPAR_TRNX_TYPE');
1243: fnd_message.set_token ('TYPE',l_cust_trx_name);
1244: pnp_debug_pkg.put_log_msg(fnd_message.get);
1245:
1246: /* Get Post To GL value for the transcation type */
1239: FETCH get_cust_trx_name into l_cust_trx_name;
1240: CLOSE get_cust_trx_name;
1241:
1242: fnd_message.set_name ('PN','PN_EXPAR_TRNX_TYPE');
1243: fnd_message.set_token ('TYPE',l_cust_trx_name);
1244: pnp_debug_pkg.put_log_msg(fnd_message.get);
1245:
1246: /* Get Post To GL value for the transcation type */
1247: OPEN get_post_to_gl(exp_ar_tbl(l_grp).pn_trx_type_id,exp_ar_tbl(l_grp).pn_org_id);
1240: CLOSE get_cust_trx_name;
1241:
1242: fnd_message.set_name ('PN','PN_EXPAR_TRNX_TYPE');
1243: fnd_message.set_token ('TYPE',l_cust_trx_name);
1244: pnp_debug_pkg.put_log_msg(fnd_message.get);
1245:
1246: /* Get Post To GL value for the transcation type */
1247: OPEN get_post_to_gl(exp_ar_tbl(l_grp).pn_trx_type_id,exp_ar_tbl(l_grp).pn_org_id);
1248: FETCH get_post_to_gl INTO l_post_to_gl;
1247: OPEN get_post_to_gl(exp_ar_tbl(l_grp).pn_trx_type_id,exp_ar_tbl(l_grp).pn_org_id);
1248: FETCH get_post_to_gl INTO l_post_to_gl;
1249: CLOSE get_post_to_gl;
1250:
1251: fnd_message.set_name ('PN','PN_EXPAR_POST');
1252: fnd_message.set_token ('TOK',l_post_to_gl);
1253: pnp_debug_pkg.put_log_msg(fnd_message.get);
1254:
1255: /* get the term name */
1248: FETCH get_post_to_gl INTO l_post_to_gl;
1249: CLOSE get_post_to_gl;
1250:
1251: fnd_message.set_name ('PN','PN_EXPAR_POST');
1252: fnd_message.set_token ('TOK',l_post_to_gl);
1253: pnp_debug_pkg.put_log_msg(fnd_message.get);
1254:
1255: /* get the term name */
1256: OPEN get_term_name(exp_ar_tbl(l_grp).pn_term_id);
1249: CLOSE get_post_to_gl;
1250:
1251: fnd_message.set_name ('PN','PN_EXPAR_POST');
1252: fnd_message.set_token ('TOK',l_post_to_gl);
1253: pnp_debug_pkg.put_log_msg(fnd_message.get);
1254:
1255: /* get the term name */
1256: OPEN get_term_name(exp_ar_tbl(l_grp).pn_term_id);
1257: FETCH get_term_name into l_term_name;
1256: OPEN get_term_name(exp_ar_tbl(l_grp).pn_term_id);
1257: FETCH get_term_name into l_term_name;
1258: CLOSE get_term_name;
1259:
1260: fnd_message.set_name ('PN','PN_EXPAR_PMT_TERM');
1261: fnd_message.set_token ('NUM',l_term_name);
1262: pnp_debug_pkg.put_log_msg(fnd_message.get);
1263:
1264: /* get the primary location code */
1257: FETCH get_term_name into l_term_name;
1258: CLOSE get_term_name;
1259:
1260: fnd_message.set_name ('PN','PN_EXPAR_PMT_TERM');
1261: fnd_message.set_token ('NUM',l_term_name);
1262: pnp_debug_pkg.put_log_msg(fnd_message.get);
1263:
1264: /* get the primary location code */
1265: OPEN get_loc_code(exp_ar_tbl(l_grp).location_id) ;
1258: CLOSE get_term_name;
1259:
1260: fnd_message.set_name ('PN','PN_EXPAR_PMT_TERM');
1261: fnd_message.set_token ('NUM',l_term_name);
1262: pnp_debug_pkg.put_log_msg(fnd_message.get);
1263:
1264: /* get the primary location code */
1265: OPEN get_loc_code(exp_ar_tbl(l_grp).location_id) ;
1266: FETCH get_loc_code into l_location_code;
1268: l_location_code:= null;
1269: end if;
1270: CLOSE get_loc_code;
1271:
1272: fnd_message.set_name ('PN','PN_XPEAM_LOC');
1273: fnd_message.set_token ('LOC_CODE',l_location_code);
1274: pnp_debug_pkg.put_log_msg(fnd_message.get);
1275:
1276:
1269: end if;
1270: CLOSE get_loc_code;
1271:
1272: fnd_message.set_name ('PN','PN_XPEAM_LOC');
1273: fnd_message.set_token ('LOC_CODE',l_location_code);
1274: pnp_debug_pkg.put_log_msg(fnd_message.get);
1275:
1276:
1277: /* get the vat tax code */
1270: CLOSE get_loc_code;
1271:
1272: fnd_message.set_name ('PN','PN_XPEAM_LOC');
1273: fnd_message.set_token ('LOC_CODE',l_location_code);
1274: pnp_debug_pkg.put_log_msg(fnd_message.get);
1275:
1276:
1277: /* get the vat tax code */
1278:
1288: OPEN gl_segment_check;
1289: FETCH gl_segment_check INTO l_gl_seg;
1290: CLOSE gl_segment_check;
1291:
1292: fnd_message.set_name ('PN','PN_EXPAR_GL_SALES');
1293: fnd_message.set_token ('TOK',l_gl_seg);
1294: pnp_debug_pkg.put_log_msg(fnd_message.get);
1295:
1296: /* Check for System Parameters in AR System Options */
1289: FETCH gl_segment_check INTO l_gl_seg;
1290: CLOSE gl_segment_check;
1291:
1292: fnd_message.set_name ('PN','PN_EXPAR_GL_SALES');
1293: fnd_message.set_token ('TOK',l_gl_seg);
1294: pnp_debug_pkg.put_log_msg(fnd_message.get);
1295:
1296: /* Check for System Parameters in AR System Options */
1297: OPEN sys_param_check;
1290: CLOSE gl_segment_check;
1291:
1292: fnd_message.set_name ('PN','PN_EXPAR_GL_SALES');
1293: fnd_message.set_token ('TOK',l_gl_seg);
1294: pnp_debug_pkg.put_log_msg(fnd_message.get);
1295:
1296: /* Check for System Parameters in AR System Options */
1297: OPEN sys_param_check;
1298: FETCH sys_param_check INTO l_sys_para;
1297: OPEN sys_param_check;
1298: FETCH sys_param_check INTO l_sys_para;
1299: CLOSE sys_param_check;
1300:
1301: fnd_message.set_name ('PN','PN_EXPAR_AR_SALES');
1302: fnd_message.set_token ('TOK',l_sys_para);
1303: pnp_debug_pkg.put_log_msg(fnd_message.get);
1304:
1305:
1298: FETCH sys_param_check INTO l_sys_para;
1299: CLOSE sys_param_check;
1300:
1301: fnd_message.set_name ('PN','PN_EXPAR_AR_SALES');
1302: fnd_message.set_token ('TOK',l_sys_para);
1303: pnp_debug_pkg.put_log_msg(fnd_message.get);
1304:
1305:
1306: l_context := 'Inserting into interface lines';
1299: CLOSE sys_param_check;
1300:
1301: fnd_message.set_name ('PN','PN_EXPAR_AR_SALES');
1302: fnd_message.set_token ('TOK',l_sys_para);
1303: pnp_debug_pkg.put_log_msg(fnd_message.get);
1304:
1305:
1306: l_context := 'Inserting into interface lines';
1307:
1534:
1535: l_context := 'Getting Revenue amt.';
1536: pnp_debug_pkg.log('Getting Revenue Amount');
1537:
1538: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT');
1539: fnd_message.set_token ('AMT',to_char(round(exp_ar_tbl(l_grp).pn_export_currency_amount,l_precision)));
1540: pnp_debug_pkg.put_log_msg(fnd_message.get);
1541:
1542: l_total_rev_amt := 0;
1535: l_context := 'Getting Revenue amt.';
1536: pnp_debug_pkg.log('Getting Revenue Amount');
1537:
1538: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT');
1539: fnd_message.set_token ('AMT',to_char(round(exp_ar_tbl(l_grp).pn_export_currency_amount,l_precision)));
1540: pnp_debug_pkg.put_log_msg(fnd_message.get);
1541:
1542: l_total_rev_amt := 0;
1543: l_total_rev_percent := 0;
1536: pnp_debug_pkg.log('Getting Revenue Amount');
1537:
1538: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT');
1539: fnd_message.set_token ('AMT',to_char(round(exp_ar_tbl(l_grp).pn_export_currency_amount,l_precision)));
1540: pnp_debug_pkg.put_log_msg(fnd_message.get);
1541:
1542: l_total_rev_amt := 0;
1543: l_total_rev_percent := 0;
1544:
1571: END IF;
1572:
1573: END IF;
1574:
1575: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT_DIST');
1576: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1577: pnp_debug_pkg.put_log_msg(fnd_message.get);
1578:
1579: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
1572:
1573: END IF;
1574:
1575: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT_DIST');
1576: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1577: pnp_debug_pkg.put_log_msg(fnd_message.get);
1578:
1579: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
1580: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1573: END IF;
1574:
1575: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT_DIST');
1576: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1577: pnp_debug_pkg.put_log_msg(fnd_message.get);
1578:
1579: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
1580: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1581: pnp_debug_pkg.put_log_msg(fnd_message.get);
1575: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT_DIST');
1576: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1577: pnp_debug_pkg.put_log_msg(fnd_message.get);
1578:
1579: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
1580: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1581: pnp_debug_pkg.put_log_msg(fnd_message.get);
1582:
1583: ELSIF acnt_rec.account_class = 'UNEARN' THEN
1576: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1577: pnp_debug_pkg.put_log_msg(fnd_message.get);
1578:
1579: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
1580: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1581: pnp_debug_pkg.put_log_msg(fnd_message.get);
1582:
1583: ELSIF acnt_rec.account_class = 'UNEARN' THEN
1584:
1577: pnp_debug_pkg.put_log_msg(fnd_message.get);
1578:
1579: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
1580: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1581: pnp_debug_pkg.put_log_msg(fnd_message.get);
1582:
1583: ELSIF acnt_rec.account_class = 'UNEARN' THEN
1584:
1585: l_acnt_cls := 'REV';
1598: l_amt := round((exp_ar_tbl(l_grp).PN_EXPORT_CURRENCY_AMOUNT),l_precision);
1599:
1600: END IF;
1601:
1602: fnd_message.set_name ('PN','PN_EXPAR_ACR_AMT_DIST');
1603: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1604: pnp_debug_pkg.put_log_msg(fnd_message.get);
1605:
1606: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
1599:
1600: END IF;
1601:
1602: fnd_message.set_name ('PN','PN_EXPAR_ACR_AMT_DIST');
1603: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1604: pnp_debug_pkg.put_log_msg(fnd_message.get);
1605:
1606: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
1607: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1600: END IF;
1601:
1602: fnd_message.set_name ('PN','PN_EXPAR_ACR_AMT_DIST');
1603: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1604: pnp_debug_pkg.put_log_msg(fnd_message.get);
1605:
1606: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
1607: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1608: pnp_debug_pkg.put_log_msg(fnd_message.get);
1602: fnd_message.set_name ('PN','PN_EXPAR_ACR_AMT_DIST');
1603: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1604: pnp_debug_pkg.put_log_msg(fnd_message.get);
1605:
1606: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
1607: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1608: pnp_debug_pkg.put_log_msg(fnd_message.get);
1609:
1610: END IF;
1603: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1604: pnp_debug_pkg.put_log_msg(fnd_message.get);
1605:
1606: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
1607: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1608: pnp_debug_pkg.put_log_msg(fnd_message.get);
1609:
1610: END IF;
1611:
1604: pnp_debug_pkg.put_log_msg(fnd_message.get);
1605:
1606: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
1607: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1608: pnp_debug_pkg.put_log_msg(fnd_message.get);
1609:
1610: END IF;
1611:
1612: IF (acnt_rec.account_class = 'UNEARN' and
1690:
1691: IF (SQL%NOTFOUND) then
1692: pnp_debug_pkg.log('Could not update row for Payment_Item_Id = ' ||
1693: exp_ar_tbl(l_grp).Pn_Payment_Item_Id) ;
1694: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_FLAG_NOT_SET');
1695: errbuf := fnd_message.get;
1696: rollback;
1697: retcode := 2;
1698: return;
1691: IF (SQL%NOTFOUND) then
1692: pnp_debug_pkg.log('Could not update row for Payment_Item_Id = ' ||
1693: exp_ar_tbl(l_grp).Pn_Payment_Item_Id) ;
1694: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_FLAG_NOT_SET');
1695: errbuf := fnd_message.get;
1696: rollback;
1697: retcode := 2;
1698: return;
1699: END IF;
1715:
1716: IF (SQL%NOTFOUND) then
1717: pnp_debug_pkg.log('Could not update row for Payment_Schedule_Id = '
1718: || exp_ar_tbl(l_grp).PN_Payment_Schedule_Id) ;
1719: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_INFO_NOT_SET');
1720: errbuf := fnd_message.get;
1721: rollback;
1722: retcode := 2;
1723: return;
1716: IF (SQL%NOTFOUND) then
1717: pnp_debug_pkg.log('Could not update row for Payment_Schedule_Id = '
1718: || exp_ar_tbl(l_grp).PN_Payment_Schedule_Id) ;
1719: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_INFO_NOT_SET');
1720: errbuf := fnd_message.get;
1721: rollback;
1722: retcode := 2;
1723: return;
1724: END IF;
1744:
1745: pnp_debug_pkg.put_log_msg('
1746: ================================================================================');
1747:
1748: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
1749: fnd_message.set_token ('NUM',S_Count);
1750: pnp_debug_pkg.put_log_msg(fnd_message.get);
1751:
1752: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1745: pnp_debug_pkg.put_log_msg('
1746: ================================================================================');
1747:
1748: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
1749: fnd_message.set_token ('NUM',S_Count);
1750: pnp_debug_pkg.put_log_msg(fnd_message.get);
1751:
1752: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1753: fnd_message.set_token ('NUM',E_Count);
1746: ================================================================================');
1747:
1748: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
1749: fnd_message.set_token ('NUM',S_Count);
1750: pnp_debug_pkg.put_log_msg(fnd_message.get);
1751:
1752: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1753: fnd_message.set_token ('NUM',E_Count);
1754: pnp_debug_pkg.put_log_msg(fnd_message.get);
1748: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
1749: fnd_message.set_token ('NUM',S_Count);
1750: pnp_debug_pkg.put_log_msg(fnd_message.get);
1751:
1752: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1753: fnd_message.set_token ('NUM',E_Count);
1754: pnp_debug_pkg.put_log_msg(fnd_message.get);
1755:
1756: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
1749: fnd_message.set_token ('NUM',S_Count);
1750: pnp_debug_pkg.put_log_msg(fnd_message.get);
1751:
1752: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1753: fnd_message.set_token ('NUM',E_Count);
1754: pnp_debug_pkg.put_log_msg(fnd_message.get);
1755:
1756: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
1757: fnd_message.set_token ('NUM',T_Count);
1750: pnp_debug_pkg.put_log_msg(fnd_message.get);
1751:
1752: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1753: fnd_message.set_token ('NUM',E_Count);
1754: pnp_debug_pkg.put_log_msg(fnd_message.get);
1755:
1756: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
1757: fnd_message.set_token ('NUM',T_Count);
1758: pnp_debug_pkg.put_log_msg(fnd_message.get);
1752: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1753: fnd_message.set_token ('NUM',E_Count);
1754: pnp_debug_pkg.put_log_msg(fnd_message.get);
1755:
1756: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
1757: fnd_message.set_token ('NUM',T_Count);
1758: pnp_debug_pkg.put_log_msg(fnd_message.get);
1759:
1760: pnp_debug_pkg.put_log_msg('
1753: fnd_message.set_token ('NUM',E_Count);
1754: pnp_debug_pkg.put_log_msg(fnd_message.get);
1755:
1756: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
1757: fnd_message.set_token ('NUM',T_Count);
1758: pnp_debug_pkg.put_log_msg(fnd_message.get);
1759:
1760: pnp_debug_pkg.put_log_msg('
1761: ================================================================================');
1754: pnp_debug_pkg.put_log_msg(fnd_message.get);
1755:
1756: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
1757: fnd_message.set_token ('NUM',T_Count);
1758: pnp_debug_pkg.put_log_msg(fnd_message.get);
1759:
1760: pnp_debug_pkg.put_log_msg('
1761: ================================================================================');
1762:
1767: raise;
1768:
1769: WHEN OTHERS THEN
1770: pnp_debug_pkg.log(substrb('OTHERS: ' || l_context,1,244));
1771: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_PROBLEM');
1772: Errbuf := substrb(SQLERRM,1,244);
1773: Retcode := 2;
1774: rollback;
1775: raise;
1937:
1938:
1939: BEGIN
1940:
1941: fnd_message.set_name ('PN','PN_EXPAR_PMT_MSG');
1942: pnp_debug_pkg.put_log_msg(fnd_message.get);
1943:
1944: l_context := 'Forming the query statement';
1945: pnp_debug_pkg.log('Forming the query statement');
1938:
1939: BEGIN
1940:
1941: fnd_message.set_name ('PN','PN_EXPAR_PMT_MSG');
1942: pnp_debug_pkg.put_log_msg(fnd_message.get);
1943:
1944: l_context := 'Forming the query statement';
1945: pnp_debug_pkg.log('Forming the query statement');
1946:
1953: FETCH get_batch_source_name into l_batch_name, l_rev_acc_alloc_rule,
1954: l_sal_cred, l_derive_date_flag;
1955: CLOSE get_batch_source_name;
1956:
1957: fnd_message.set_name ('PN','PN_EXPAR_BTCH_SRC_NAME');
1958: fnd_message.set_token ('NAME',l_batch_name);
1959: pnp_debug_pkg.put_log_msg(fnd_message.get);
1960:
1961: Q_select_nogrp := 'SELECT payment_term_id,
1954: l_sal_cred, l_derive_date_flag;
1955: CLOSE get_batch_source_name;
1956:
1957: fnd_message.set_name ('PN','PN_EXPAR_BTCH_SRC_NAME');
1958: fnd_message.set_token ('NAME',l_batch_name);
1959: pnp_debug_pkg.put_log_msg(fnd_message.get);
1960:
1961: Q_select_nogrp := 'SELECT payment_term_id,
1962: customer_id,
1955: CLOSE get_batch_source_name;
1956:
1957: fnd_message.set_name ('PN','PN_EXPAR_BTCH_SRC_NAME');
1958: fnd_message.set_token ('NAME',l_batch_name);
1959: pnp_debug_pkg.put_log_msg(fnd_message.get);
1960:
1961: Q_select_nogrp := 'SELECT payment_term_id,
1962: customer_id,
1963: cust_trx_type_id,
2141: l_conv_rate := NULL;
2142: END IF;
2143: END IF;
2144:
2145: fnd_message.set_name ('PN','PN_CRACC_CV_RATE');
2146: fnd_message.set_token ('CR',l_conv_rate);
2147: pnp_debug_pkg.put_log_msg(fnd_message.get);
2148:
2149: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
2142: END IF;
2143: END IF;
2144:
2145: fnd_message.set_name ('PN','PN_CRACC_CV_RATE');
2146: fnd_message.set_token ('CR',l_conv_rate);
2147: pnp_debug_pkg.put_log_msg(fnd_message.get);
2148:
2149: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
2150: fnd_message.set_token ('CT',l_conv_rate_type);
2143: END IF;
2144:
2145: fnd_message.set_name ('PN','PN_CRACC_CV_RATE');
2146: fnd_message.set_token ('CR',l_conv_rate);
2147: pnp_debug_pkg.put_log_msg(fnd_message.get);
2148:
2149: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
2150: fnd_message.set_token ('CT',l_conv_rate_type);
2151: pnp_debug_pkg.put_log_msg(fnd_message.get);
2145: fnd_message.set_name ('PN','PN_CRACC_CV_RATE');
2146: fnd_message.set_token ('CR',l_conv_rate);
2147: pnp_debug_pkg.put_log_msg(fnd_message.get);
2148:
2149: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
2150: fnd_message.set_token ('CT',l_conv_rate_type);
2151: pnp_debug_pkg.put_log_msg(fnd_message.get);
2152:
2153:
2146: fnd_message.set_token ('CR',l_conv_rate);
2147: pnp_debug_pkg.put_log_msg(fnd_message.get);
2148:
2149: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
2150: fnd_message.set_token ('CT',l_conv_rate_type);
2151: pnp_debug_pkg.put_log_msg(fnd_message.get);
2152:
2153:
2154: /* Get send entries flag for the lease */
2147: pnp_debug_pkg.put_log_msg(fnd_message.get);
2148:
2149: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
2150: fnd_message.set_token ('CT',l_conv_rate_type);
2151: pnp_debug_pkg.put_log_msg(fnd_message.get);
2152:
2153:
2154: /* Get send entries flag for the lease */
2155: IF l_lease_id <> v_pn_lease_id THEN
2156: OPEN get_send_flag(v_pn_lease_id);
2157: FETCH get_send_flag INTO l_send_flag;
2158: CLOSE get_send_flag;
2159: l_lease_id := v_pn_lease_id;
2160: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
2161: fnd_message.set_token ('ID',l_lease_id);
2162: fnd_message.set_token ('SEND',l_send_flag);
2163: pnp_debug_pkg.put_log_msg(fnd_message.get);
2164:
2157: FETCH get_send_flag INTO l_send_flag;
2158: CLOSE get_send_flag;
2159: l_lease_id := v_pn_lease_id;
2160: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
2161: fnd_message.set_token ('ID',l_lease_id);
2162: fnd_message.set_token ('SEND',l_send_flag);
2163: pnp_debug_pkg.put_log_msg(fnd_message.get);
2164:
2165: END IF;
2158: CLOSE get_send_flag;
2159: l_lease_id := v_pn_lease_id;
2160: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
2161: fnd_message.set_token ('ID',l_lease_id);
2162: fnd_message.set_token ('SEND',l_send_flag);
2163: pnp_debug_pkg.put_log_msg(fnd_message.get);
2164:
2165: END IF;
2166:
2159: l_lease_id := v_pn_lease_id;
2160: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
2161: fnd_message.set_token ('ID',l_lease_id);
2162: fnd_message.set_token ('SEND',l_send_flag);
2163: pnp_debug_pkg.put_log_msg(fnd_message.get);
2164:
2165: END IF;
2166:
2167: l_rev_flag := 'N';
2192:
2193: IF UPPER(l_conv_rate_type) = 'USER' AND
2194: l_conv_rate IS NULL THEN
2195:
2196: fnd_message.set_name ('PN', 'PN_CONV_RATE_REQD');
2197: l_err_msg4 := fnd_message.get;
2198: pnp_debug_pkg.put_log_msg(l_err_msg4);
2199:
2200: RAISE GENERIC_EXPORT_EXCEPTION;
2193: IF UPPER(l_conv_rate_type) = 'USER' AND
2194: l_conv_rate IS NULL THEN
2195:
2196: fnd_message.set_name ('PN', 'PN_CONV_RATE_REQD');
2197: l_err_msg4 := fnd_message.get;
2198: pnp_debug_pkg.put_log_msg(l_err_msg4);
2199:
2200: RAISE GENERIC_EXPORT_EXCEPTION;
2201:
2202: END IF;
2203:
2204: IF v_pn_term_id IS NULL OR v_pn_trx_type_id IS NULL THEN
2205:
2206: fnd_message.set_name ('PN', 'PN_PTRM_TRX_REQD_MSG');
2207: l_err_msg3 := fnd_message.get;
2208: pnp_debug_pkg.put_log_msg(l_err_msg3);
2209:
2210: RAISE GENERIC_EXPORT_EXCEPTION;
2203:
2204: IF v_pn_term_id IS NULL OR v_pn_trx_type_id IS NULL THEN
2205:
2206: fnd_message.set_name ('PN', 'PN_PTRM_TRX_REQD_MSG');
2207: l_err_msg3 := fnd_message.get;
2208: pnp_debug_pkg.put_log_msg(l_err_msg3);
2209:
2210: RAISE GENERIC_EXPORT_EXCEPTION;
2211:
2214: IF NVL(v_normalize,'N') = 'Y' THEN
2215:
2216: IF (l_rev_flag <> 'Y' OR l_rec_flag <> 'Y' OR l_ast_flag <> 'Y') THEN
2217:
2218: fnd_message.set_name ('PN', 'PN_ALL_ACNT_DIST_MSG');
2219: l_err_msg1 := fnd_message.get;
2220: pnp_debug_pkg.put_log_msg(l_err_msg1);
2221:
2222: RAISE GENERIC_EXPORT_EXCEPTION;
2215:
2216: IF (l_rev_flag <> 'Y' OR l_rec_flag <> 'Y' OR l_ast_flag <> 'Y') THEN
2217:
2218: fnd_message.set_name ('PN', 'PN_ALL_ACNT_DIST_MSG');
2219: l_err_msg1 := fnd_message.get;
2220: pnp_debug_pkg.put_log_msg(l_err_msg1);
2221:
2222: RAISE GENERIC_EXPORT_EXCEPTION;
2223: END IF;
2228: (l_prof_optn IN ('M', 'N') AND ((l_rev_flag = 'Y' AND l_rec_flag <> 'Y') OR
2229: (l_rev_flag <> 'Y' AND l_rec_flag = 'Y')))
2230: THEN
2231:
2232: fnd_message.set_name ('PN', 'PN_REVREC_DIST_MSG');
2233: l_err_msg2 := fnd_message.get;
2234: pnp_debug_pkg.put_log_msg(l_err_msg2);
2235:
2236: RAISE GENERIC_EXPORT_EXCEPTION;
2229: (l_rev_flag <> 'Y' AND l_rec_flag = 'Y')))
2230: THEN
2231:
2232: fnd_message.set_name ('PN', 'PN_REVREC_DIST_MSG');
2233: l_err_msg2 := fnd_message.get;
2234: pnp_debug_pkg.put_log_msg(l_err_msg2);
2235:
2236: RAISE GENERIC_EXPORT_EXCEPTION;
2237:
2261: END IF;
2262:
2263: pnp_debug_pkg.put_log_msg('
2264: ================================================================================');
2265: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
2266: fnd_message.set_token ('ITM_ID',v_pn_payment_item_id);
2267: fnd_message.set_token ('CUST_ID',TO_CHAR(v_pn_customer_id));
2268: fnd_message.set_token ('REC_AMT',TO_CHAR(ROUND(v_pn_export_currency_amount,l_precision)));
2269: fnd_message.set_token ('DATE',l_start_date);
2262:
2263: pnp_debug_pkg.put_log_msg('
2264: ================================================================================');
2265: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
2266: fnd_message.set_token ('ITM_ID',v_pn_payment_item_id);
2267: fnd_message.set_token ('CUST_ID',TO_CHAR(v_pn_customer_id));
2268: fnd_message.set_token ('REC_AMT',TO_CHAR(ROUND(v_pn_export_currency_amount,l_precision)));
2269: fnd_message.set_token ('DATE',l_start_date);
2270: pnp_debug_pkg.put_log_msg('
2263: pnp_debug_pkg.put_log_msg('
2264: ================================================================================');
2265: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
2266: fnd_message.set_token ('ITM_ID',v_pn_payment_item_id);
2267: fnd_message.set_token ('CUST_ID',TO_CHAR(v_pn_customer_id));
2268: fnd_message.set_token ('REC_AMT',TO_CHAR(ROUND(v_pn_export_currency_amount,l_precision)));
2269: fnd_message.set_token ('DATE',l_start_date);
2270: pnp_debug_pkg.put_log_msg('
2271: ================================================================================');
2264: ================================================================================');
2265: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
2266: fnd_message.set_token ('ITM_ID',v_pn_payment_item_id);
2267: fnd_message.set_token ('CUST_ID',TO_CHAR(v_pn_customer_id));
2268: fnd_message.set_token ('REC_AMT',TO_CHAR(ROUND(v_pn_export_currency_amount,l_precision)));
2269: fnd_message.set_token ('DATE',l_start_date);
2270: pnp_debug_pkg.put_log_msg('
2271: ================================================================================');
2272:
2265: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
2266: fnd_message.set_token ('ITM_ID',v_pn_payment_item_id);
2267: fnd_message.set_token ('CUST_ID',TO_CHAR(v_pn_customer_id));
2268: fnd_message.set_token ('REC_AMT',TO_CHAR(ROUND(v_pn_export_currency_amount,l_precision)));
2269: fnd_message.set_token ('DATE',l_start_date);
2270: pnp_debug_pkg.put_log_msg('
2271: ================================================================================');
2272:
2273: /* Initialize the variables */
2297: OPEN get_rule_name(v_pn_inv_rule_id);
2298: FETCH get_rule_name into l_inv_rule_name, l_inv_rule_type, l_inv_rule_freq;
2299: CLOSE get_rule_name;
2300:
2301: fnd_message.set_name ('PN','PN_EXPAR_INV_RULE');
2302: fnd_message.set_token ('NAME',l_inv_rule_name);
2303: pnp_debug_pkg.put_log_msg(fnd_message.get);
2304:
2305: /* get the accounting rule name */
2298: FETCH get_rule_name into l_inv_rule_name, l_inv_rule_type, l_inv_rule_freq;
2299: CLOSE get_rule_name;
2300:
2301: fnd_message.set_name ('PN','PN_EXPAR_INV_RULE');
2302: fnd_message.set_token ('NAME',l_inv_rule_name);
2303: pnp_debug_pkg.put_log_msg(fnd_message.get);
2304:
2305: /* get the accounting rule name */
2306: OPEN get_rule_name(v_pn_account_rule_id);
2299: CLOSE get_rule_name;
2300:
2301: fnd_message.set_name ('PN','PN_EXPAR_INV_RULE');
2302: fnd_message.set_token ('NAME',l_inv_rule_name);
2303: pnp_debug_pkg.put_log_msg(fnd_message.get);
2304:
2305: /* get the accounting rule name */
2306: OPEN get_rule_name(v_pn_account_rule_id);
2307: FETCH get_rule_name into l_acc_rule_name, l_acc_rule_type, l_acc_rule_freq;
2306: OPEN get_rule_name(v_pn_account_rule_id);
2307: FETCH get_rule_name into l_acc_rule_name, l_acc_rule_type, l_acc_rule_freq;
2308: CLOSE get_rule_name;
2309:
2310: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_NAME');
2311: fnd_message.set_token ('NAME',l_acc_rule_name);
2312: pnp_debug_pkg.put_log_msg(fnd_message.get);
2313:
2314: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
2307: FETCH get_rule_name into l_acc_rule_name, l_acc_rule_type, l_acc_rule_freq;
2308: CLOSE get_rule_name;
2309:
2310: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_NAME');
2311: fnd_message.set_token ('NAME',l_acc_rule_name);
2312: pnp_debug_pkg.put_log_msg(fnd_message.get);
2313:
2314: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
2315: fnd_message.set_token ('TYPE',l_acc_rule_type);
2308: CLOSE get_rule_name;
2309:
2310: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_NAME');
2311: fnd_message.set_token ('NAME',l_acc_rule_name);
2312: pnp_debug_pkg.put_log_msg(fnd_message.get);
2313:
2314: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
2315: fnd_message.set_token ('TYPE',l_acc_rule_type);
2316: pnp_debug_pkg.put_log_msg(fnd_message.get);
2310: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_NAME');
2311: fnd_message.set_token ('NAME',l_acc_rule_name);
2312: pnp_debug_pkg.put_log_msg(fnd_message.get);
2313:
2314: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
2315: fnd_message.set_token ('TYPE',l_acc_rule_type);
2316: pnp_debug_pkg.put_log_msg(fnd_message.get);
2317:
2318: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
2311: fnd_message.set_token ('NAME',l_acc_rule_name);
2312: pnp_debug_pkg.put_log_msg(fnd_message.get);
2313:
2314: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
2315: fnd_message.set_token ('TYPE',l_acc_rule_type);
2316: pnp_debug_pkg.put_log_msg(fnd_message.get);
2317:
2318: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
2319: fnd_message.set_token ('FREQ',l_acc_rule_freq);
2312: pnp_debug_pkg.put_log_msg(fnd_message.get);
2313:
2314: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
2315: fnd_message.set_token ('TYPE',l_acc_rule_type);
2316: pnp_debug_pkg.put_log_msg(fnd_message.get);
2317:
2318: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
2319: fnd_message.set_token ('FREQ',l_acc_rule_freq);
2320: pnp_debug_pkg.put_log_msg(fnd_message.get);
2314: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
2315: fnd_message.set_token ('TYPE',l_acc_rule_type);
2316: pnp_debug_pkg.put_log_msg(fnd_message.get);
2317:
2318: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
2319: fnd_message.set_token ('FREQ',l_acc_rule_freq);
2320: pnp_debug_pkg.put_log_msg(fnd_message.get);
2321:
2322: IF v_pn_account_rule_id IS NOT NULL AND
2315: fnd_message.set_token ('TYPE',l_acc_rule_type);
2316: pnp_debug_pkg.put_log_msg(fnd_message.get);
2317:
2318: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
2319: fnd_message.set_token ('FREQ',l_acc_rule_freq);
2320: pnp_debug_pkg.put_log_msg(fnd_message.get);
2321:
2322: IF v_pn_account_rule_id IS NOT NULL AND
2323: (l_acc_rule_type <> 'A' OR
2316: pnp_debug_pkg.put_log_msg(fnd_message.get);
2317:
2318: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
2319: fnd_message.set_token ('FREQ',l_acc_rule_freq);
2320: pnp_debug_pkg.put_log_msg(fnd_message.get);
2321:
2322: IF v_pn_account_rule_id IS NOT NULL AND
2323: (l_acc_rule_type <> 'A' OR
2324: l_acc_rule_freq <> 'SPECIFIC') AND
2328: ELSE
2329: l_rule_start_date := NULL;
2330: END IF;
2331:
2332: fnd_message.set_name ('PN','PN_EXPAR_RUL_ST_DT');
2333: fnd_message.set_token ('DATE',l_rule_start_date);
2334: pnp_debug_pkg.put_log_msg(fnd_message.get);
2335:
2336: /* get the payment method name */
2329: l_rule_start_date := NULL;
2330: END IF;
2331:
2332: fnd_message.set_name ('PN','PN_EXPAR_RUL_ST_DT');
2333: fnd_message.set_token ('DATE',l_rule_start_date);
2334: pnp_debug_pkg.put_log_msg(fnd_message.get);
2335:
2336: /* get the payment method name */
2337: OPEN get_receipt_name(v_pn_pay_method_id);
2330: END IF;
2331:
2332: fnd_message.set_name ('PN','PN_EXPAR_RUL_ST_DT');
2333: fnd_message.set_token ('DATE',l_rule_start_date);
2334: pnp_debug_pkg.put_log_msg(fnd_message.get);
2335:
2336: /* get the payment method name */
2337: OPEN get_receipt_name(v_pn_pay_method_id);
2338: FETCH get_receipt_name into l_pay_method_name;
2337: OPEN get_receipt_name(v_pn_pay_method_id);
2338: FETCH get_receipt_name into l_pay_method_name;
2339: CLOSE get_receipt_name;
2340:
2341: fnd_message.set_name ('PN','PN_EXPAR_PMT_MTHD');
2342: fnd_message.set_token ('METHOD',l_pay_method_name);
2343: pnp_debug_pkg.put_log_msg(fnd_message.get);
2344:
2345: /* get the salesrep number */
2338: FETCH get_receipt_name into l_pay_method_name;
2339: CLOSE get_receipt_name;
2340:
2341: fnd_message.set_name ('PN','PN_EXPAR_PMT_MTHD');
2342: fnd_message.set_token ('METHOD',l_pay_method_name);
2343: pnp_debug_pkg.put_log_msg(fnd_message.get);
2344:
2345: /* get the salesrep number */
2346: OPEN get_salesrep_number(v_pn_salesrep_id,v_pn_org_id);
2339: CLOSE get_receipt_name;
2340:
2341: fnd_message.set_name ('PN','PN_EXPAR_PMT_MTHD');
2342: fnd_message.set_token ('METHOD',l_pay_method_name);
2343: pnp_debug_pkg.put_log_msg(fnd_message.get);
2344:
2345: /* get the salesrep number */
2346: OPEN get_salesrep_number(v_pn_salesrep_id,v_pn_org_id);
2347: FETCH get_salesrep_number into l_salesrep_number,l_sales_credit_id;
2346: OPEN get_salesrep_number(v_pn_salesrep_id,v_pn_org_id);
2347: FETCH get_salesrep_number into l_salesrep_number,l_sales_credit_id;
2348: CLOSE get_salesrep_number;
2349:
2350: fnd_message.set_name ('PN','PN_EXPAR_SALES_REP');
2351: fnd_message.set_token ('NAME',l_salesrep_number);
2352: pnp_debug_pkg.put_log_msg(fnd_message.get);
2353:
2354: /* get the cust transaction type name */
2347: FETCH get_salesrep_number into l_salesrep_number,l_sales_credit_id;
2348: CLOSE get_salesrep_number;
2349:
2350: fnd_message.set_name ('PN','PN_EXPAR_SALES_REP');
2351: fnd_message.set_token ('NAME',l_salesrep_number);
2352: pnp_debug_pkg.put_log_msg(fnd_message.get);
2353:
2354: /* get the cust transaction type name */
2355: OPEN get_cust_trx_name(v_pn_trx_type_id);
2348: CLOSE get_salesrep_number;
2349:
2350: fnd_message.set_name ('PN','PN_EXPAR_SALES_REP');
2351: fnd_message.set_token ('NAME',l_salesrep_number);
2352: pnp_debug_pkg.put_log_msg(fnd_message.get);
2353:
2354: /* get the cust transaction type name */
2355: OPEN get_cust_trx_name(v_pn_trx_type_id);
2356: FETCH get_cust_trx_name into l_cust_trx_name;
2355: OPEN get_cust_trx_name(v_pn_trx_type_id);
2356: FETCH get_cust_trx_name into l_cust_trx_name;
2357: CLOSE get_cust_trx_name;
2358:
2359: fnd_message.set_name ('PN','PN_EXPAR_TRNX_TYPE');
2360: fnd_message.set_token ('TYPE',l_cust_trx_name);
2361: pnp_debug_pkg.put_log_msg(fnd_message.get);
2362:
2363: fnd_message.set_name ('PN','PN_EXPAR_POST');
2356: FETCH get_cust_trx_name into l_cust_trx_name;
2357: CLOSE get_cust_trx_name;
2358:
2359: fnd_message.set_name ('PN','PN_EXPAR_TRNX_TYPE');
2360: fnd_message.set_token ('TYPE',l_cust_trx_name);
2361: pnp_debug_pkg.put_log_msg(fnd_message.get);
2362:
2363: fnd_message.set_name ('PN','PN_EXPAR_POST');
2364: fnd_message.set_token ('TOK',l_post_to_gl);
2357: CLOSE get_cust_trx_name;
2358:
2359: fnd_message.set_name ('PN','PN_EXPAR_TRNX_TYPE');
2360: fnd_message.set_token ('TYPE',l_cust_trx_name);
2361: pnp_debug_pkg.put_log_msg(fnd_message.get);
2362:
2363: fnd_message.set_name ('PN','PN_EXPAR_POST');
2364: fnd_message.set_token ('TOK',l_post_to_gl);
2365: pnp_debug_pkg.put_log_msg(fnd_message.get);
2359: fnd_message.set_name ('PN','PN_EXPAR_TRNX_TYPE');
2360: fnd_message.set_token ('TYPE',l_cust_trx_name);
2361: pnp_debug_pkg.put_log_msg(fnd_message.get);
2362:
2363: fnd_message.set_name ('PN','PN_EXPAR_POST');
2364: fnd_message.set_token ('TOK',l_post_to_gl);
2365: pnp_debug_pkg.put_log_msg(fnd_message.get);
2366:
2367: /* get the term name */
2360: fnd_message.set_token ('TYPE',l_cust_trx_name);
2361: pnp_debug_pkg.put_log_msg(fnd_message.get);
2362:
2363: fnd_message.set_name ('PN','PN_EXPAR_POST');
2364: fnd_message.set_token ('TOK',l_post_to_gl);
2365: pnp_debug_pkg.put_log_msg(fnd_message.get);
2366:
2367: /* get the term name */
2368: OPEN get_term_name(v_pn_term_id);
2361: pnp_debug_pkg.put_log_msg(fnd_message.get);
2362:
2363: fnd_message.set_name ('PN','PN_EXPAR_POST');
2364: fnd_message.set_token ('TOK',l_post_to_gl);
2365: pnp_debug_pkg.put_log_msg(fnd_message.get);
2366:
2367: /* get the term name */
2368: OPEN get_term_name(v_pn_term_id);
2369: FETCH get_term_name into l_term_name;
2368: OPEN get_term_name(v_pn_term_id);
2369: FETCH get_term_name into l_term_name;
2370: CLOSE get_term_name;
2371:
2372: fnd_message.set_name ('PN','PN_EXPAR_PMT_TERM');
2373: fnd_message.set_token ('NUM',l_term_name);
2374: pnp_debug_pkg.put_log_msg(fnd_message.get);
2375:
2376: /* get the primary location code */
2369: FETCH get_term_name into l_term_name;
2370: CLOSE get_term_name;
2371:
2372: fnd_message.set_name ('PN','PN_EXPAR_PMT_TERM');
2373: fnd_message.set_token ('NUM',l_term_name);
2374: pnp_debug_pkg.put_log_msg(fnd_message.get);
2375:
2376: /* get the primary location code */
2377: OPEN get_loc_code(v_location_id) ;
2370: CLOSE get_term_name;
2371:
2372: fnd_message.set_name ('PN','PN_EXPAR_PMT_TERM');
2373: fnd_message.set_token ('NUM',l_term_name);
2374: pnp_debug_pkg.put_log_msg(fnd_message.get);
2375:
2376: /* get the primary location code */
2377: OPEN get_loc_code(v_location_id) ;
2378: FETCH get_loc_code into l_location_code;
2380: l_location_code:= NULL;
2381: END IF;
2382: CLOSE get_loc_code;
2383:
2384: fnd_message.set_name ('PN','PN_EXPAR_LOC_CODE');
2385: fnd_message.set_token ('LOC_CODE',l_location_code);
2386: pnp_debug_pkg.put_log_msg(fnd_message.get);
2387:
2388: /* get the vat tax code */
2381: END IF;
2382: CLOSE get_loc_code;
2383:
2384: fnd_message.set_name ('PN','PN_EXPAR_LOC_CODE');
2385: fnd_message.set_token ('LOC_CODE',l_location_code);
2386: pnp_debug_pkg.put_log_msg(fnd_message.get);
2387:
2388: /* get the vat tax code */
2389:
2382: CLOSE get_loc_code;
2383:
2384: fnd_message.set_name ('PN','PN_EXPAR_LOC_CODE');
2385: fnd_message.set_token ('LOC_CODE',l_location_code);
2386: pnp_debug_pkg.put_log_msg(fnd_message.get);
2387:
2388: /* get the vat tax code */
2389:
2390: IF NOT pn_r12_util_pkg.is_r12 THEN
2399: OPEN gl_segment_check;
2400: FETCH gl_segment_check INTO l_gl_seg;
2401: CLOSE gl_segment_check;
2402:
2403: fnd_message.set_name ('PN','PN_EXPAR_GL_SALES');
2404: fnd_message.set_token ('TOK',l_gl_seg);
2405: pnp_debug_pkg.put_log_msg(fnd_message.get);
2406:
2407: /* Check for System Parameters in AR System Options */
2400: FETCH gl_segment_check INTO l_gl_seg;
2401: CLOSE gl_segment_check;
2402:
2403: fnd_message.set_name ('PN','PN_EXPAR_GL_SALES');
2404: fnd_message.set_token ('TOK',l_gl_seg);
2405: pnp_debug_pkg.put_log_msg(fnd_message.get);
2406:
2407: /* Check for System Parameters in AR System Options */
2408: OPEN sys_param_check;
2401: CLOSE gl_segment_check;
2402:
2403: fnd_message.set_name ('PN','PN_EXPAR_GL_SALES');
2404: fnd_message.set_token ('TOK',l_gl_seg);
2405: pnp_debug_pkg.put_log_msg(fnd_message.get);
2406:
2407: /* Check for System Parameters in AR System Options */
2408: OPEN sys_param_check;
2409: FETCH sys_param_check INTO l_sys_para;
2408: OPEN sys_param_check;
2409: FETCH sys_param_check INTO l_sys_para;
2410: CLOSE sys_param_check;
2411:
2412: fnd_message.set_name ('PN','PN_EXPAR_AR_SALES');
2413: fnd_message.set_token ('TOK',l_sys_para);
2414: pnp_debug_pkg.put_log_msg(fnd_message.get);
2415:
2416: l_context := 'Inserting into interface lines';
2409: FETCH sys_param_check INTO l_sys_para;
2410: CLOSE sys_param_check;
2411:
2412: fnd_message.set_name ('PN','PN_EXPAR_AR_SALES');
2413: fnd_message.set_token ('TOK',l_sys_para);
2414: pnp_debug_pkg.put_log_msg(fnd_message.get);
2415:
2416: l_context := 'Inserting into interface lines';
2417:
2410: CLOSE sys_param_check;
2411:
2412: fnd_message.set_name ('PN','PN_EXPAR_AR_SALES');
2413: fnd_message.set_token ('TOK',l_sys_para);
2414: pnp_debug_pkg.put_log_msg(fnd_message.get);
2415:
2416: l_context := 'Inserting into interface lines';
2417:
2418: INSERT INTO ra_interface_lines_all
2581:
2582: l_context := 'Getting Revenue amt.';
2583: pnp_debug_pkg.log('Getting Revenue Amount');
2584:
2585: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT');
2586: fnd_message.set_token ('AMT',to_char(round(v_pn_export_currency_amount,l_precision)));
2587: pnp_debug_pkg.put_log_msg(fnd_message.get);
2588:
2589:
2582: l_context := 'Getting Revenue amt.';
2583: pnp_debug_pkg.log('Getting Revenue Amount');
2584:
2585: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT');
2586: fnd_message.set_token ('AMT',to_char(round(v_pn_export_currency_amount,l_precision)));
2587: pnp_debug_pkg.put_log_msg(fnd_message.get);
2588:
2589:
2590: FOR acnt_rec IN get_dist(v_pn_payment_term_id)
2583: pnp_debug_pkg.log('Getting Revenue Amount');
2584:
2585: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT');
2586: fnd_message.set_token ('AMT',to_char(round(v_pn_export_currency_amount,l_precision)));
2587: pnp_debug_pkg.put_log_msg(fnd_message.get);
2588:
2589:
2590: FOR acnt_rec IN get_dist(v_pn_payment_term_id)
2591: LOOP
2595: l_acnt_cls := 'REC';
2596: l_percent := 100;
2597: l_amt := V_PN_EXPORT_CURRENCY_AMOUNT;
2598:
2599: fnd_message.set_name ('PN','PN_EXPAR_BTCH_RCV_AMT');
2600: fnd_message.set_token ('NUM',to_char(l_amt));
2601: pnp_debug_pkg.put_log_msg(fnd_message.get);
2602:
2603: ELSIF acnt_rec.account_class = 'REV' THEN
2596: l_percent := 100;
2597: l_amt := V_PN_EXPORT_CURRENCY_AMOUNT;
2598:
2599: fnd_message.set_name ('PN','PN_EXPAR_BTCH_RCV_AMT');
2600: fnd_message.set_token ('NUM',to_char(l_amt));
2601: pnp_debug_pkg.put_log_msg(fnd_message.get);
2602:
2603: ELSIF acnt_rec.account_class = 'REV' THEN
2604:
2597: l_amt := V_PN_EXPORT_CURRENCY_AMOUNT;
2598:
2599: fnd_message.set_name ('PN','PN_EXPAR_BTCH_RCV_AMT');
2600: fnd_message.set_token ('NUM',to_char(l_amt));
2601: pnp_debug_pkg.put_log_msg(fnd_message.get);
2602:
2603: ELSIF acnt_rec.account_class = 'REV' THEN
2604:
2605: l_acnt_cls := 'REV';
2629: end if;
2630:
2631: END IF;
2632:
2633: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT_DIST');
2634: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2635: pnp_debug_pkg.put_log_msg(fnd_message.get);
2636:
2637: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
2630:
2631: END IF;
2632:
2633: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT_DIST');
2634: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2635: pnp_debug_pkg.put_log_msg(fnd_message.get);
2636:
2637: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
2638: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2631: END IF;
2632:
2633: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT_DIST');
2634: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2635: pnp_debug_pkg.put_log_msg(fnd_message.get);
2636:
2637: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
2638: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2639: pnp_debug_pkg.put_log_msg(fnd_message.get);
2633: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT_DIST');
2634: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2635: pnp_debug_pkg.put_log_msg(fnd_message.get);
2636:
2637: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
2638: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2639: pnp_debug_pkg.put_log_msg(fnd_message.get);
2640:
2641: ELSIF acnt_rec.account_class = 'UNEARN' THEN
2634: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2635: pnp_debug_pkg.put_log_msg(fnd_message.get);
2636:
2637: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
2638: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2639: pnp_debug_pkg.put_log_msg(fnd_message.get);
2640:
2641: ELSIF acnt_rec.account_class = 'UNEARN' THEN
2642:
2635: pnp_debug_pkg.put_log_msg(fnd_message.get);
2636:
2637: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
2638: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2639: pnp_debug_pkg.put_log_msg(fnd_message.get);
2640:
2641: ELSIF acnt_rec.account_class = 'UNEARN' THEN
2642:
2643: l_acnt_cls := 'REV';
2659: l_amt := round((V_PN_EXPORT_CURRENCY_AMOUNT),l_precision);
2660:
2661: END IF;
2662:
2663: fnd_message.set_name ('PN','PN_EXPAR_ACR_AMT_DIST');
2664: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2665: pnp_debug_pkg.put_log_msg(fnd_message.get);
2666:
2667: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
2660:
2661: END IF;
2662:
2663: fnd_message.set_name ('PN','PN_EXPAR_ACR_AMT_DIST');
2664: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2665: pnp_debug_pkg.put_log_msg(fnd_message.get);
2666:
2667: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
2668: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2661: END IF;
2662:
2663: fnd_message.set_name ('PN','PN_EXPAR_ACR_AMT_DIST');
2664: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2665: pnp_debug_pkg.put_log_msg(fnd_message.get);
2666:
2667: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
2668: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2669: pnp_debug_pkg.put_log_msg(fnd_message.get);
2663: fnd_message.set_name ('PN','PN_EXPAR_ACR_AMT_DIST');
2664: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2665: pnp_debug_pkg.put_log_msg(fnd_message.get);
2666:
2667: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
2668: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2669: pnp_debug_pkg.put_log_msg(fnd_message.get);
2670:
2671: END IF;
2664: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2665: pnp_debug_pkg.put_log_msg(fnd_message.get);
2666:
2667: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
2668: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2669: pnp_debug_pkg.put_log_msg(fnd_message.get);
2670:
2671: END IF;
2672:
2665: pnp_debug_pkg.put_log_msg(fnd_message.get);
2666:
2667: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
2668: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2669: pnp_debug_pkg.put_log_msg(fnd_message.get);
2670:
2671: END IF;
2672:
2673: l_last_updated_by := FND_GLOBAL.USER_ID;
2756:
2757: IF (SQL%NOTFOUND) then
2758: pnp_debug_pkg.log('Could not update row for Payment_Item_Id = ' ||
2759: V_PN_Payment_Item_Id) ;
2760: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_FLAG_NOT_SET');
2761: errbuf := fnd_message.get;
2762: rollback;
2763: retcode := 2;
2764: return;
2757: IF (SQL%NOTFOUND) then
2758: pnp_debug_pkg.log('Could not update row for Payment_Item_Id = ' ||
2759: V_PN_Payment_Item_Id) ;
2760: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_FLAG_NOT_SET');
2761: errbuf := fnd_message.get;
2762: rollback;
2763: retcode := 2;
2764: return;
2765: END IF;
2781:
2782: IF (SQL%NOTFOUND) then
2783: pnp_debug_pkg.log('Could not update row for Payment_Schedule_Id = '
2784: || V_PN_Payment_Schedule_Id) ;
2785: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_INFO_NOT_SET');
2786: errbuf := fnd_message.get;
2787: rollback;
2788: retcode := 2;
2789: return;
2782: IF (SQL%NOTFOUND) then
2783: pnp_debug_pkg.log('Could not update row for Payment_Schedule_Id = '
2784: || V_PN_Payment_Schedule_Id) ;
2785: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_INFO_NOT_SET');
2786: errbuf := fnd_message.get;
2787: rollback;
2788: retcode := 2;
2789: return;
2790: END IF;
2816: pnp_debug_pkg.put_log_msg('
2817: ================================================================================');
2818:
2819:
2820: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
2821: fnd_message.set_token ('NUM',S_Count);
2822: pnp_debug_pkg.put_log_msg(fnd_message.get);
2823:
2824: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2817: ================================================================================');
2818:
2819:
2820: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
2821: fnd_message.set_token ('NUM',S_Count);
2822: pnp_debug_pkg.put_log_msg(fnd_message.get);
2823:
2824: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2825: fnd_message.set_token ('NUM',E_Count);
2818:
2819:
2820: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
2821: fnd_message.set_token ('NUM',S_Count);
2822: pnp_debug_pkg.put_log_msg(fnd_message.get);
2823:
2824: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2825: fnd_message.set_token ('NUM',E_Count);
2826: pnp_debug_pkg.put_log_msg(fnd_message.get);
2820: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
2821: fnd_message.set_token ('NUM',S_Count);
2822: pnp_debug_pkg.put_log_msg(fnd_message.get);
2823:
2824: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2825: fnd_message.set_token ('NUM',E_Count);
2826: pnp_debug_pkg.put_log_msg(fnd_message.get);
2827:
2828: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
2821: fnd_message.set_token ('NUM',S_Count);
2822: pnp_debug_pkg.put_log_msg(fnd_message.get);
2823:
2824: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2825: fnd_message.set_token ('NUM',E_Count);
2826: pnp_debug_pkg.put_log_msg(fnd_message.get);
2827:
2828: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
2829: fnd_message.set_token ('NUM',T_Count);
2822: pnp_debug_pkg.put_log_msg(fnd_message.get);
2823:
2824: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2825: fnd_message.set_token ('NUM',E_Count);
2826: pnp_debug_pkg.put_log_msg(fnd_message.get);
2827:
2828: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
2829: fnd_message.set_token ('NUM',T_Count);
2830: pnp_debug_pkg.put_log_msg(fnd_message.get);
2824: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2825: fnd_message.set_token ('NUM',E_Count);
2826: pnp_debug_pkg.put_log_msg(fnd_message.get);
2827:
2828: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
2829: fnd_message.set_token ('NUM',T_Count);
2830: pnp_debug_pkg.put_log_msg(fnd_message.get);
2831:
2832: pnp_debug_pkg.put_log_msg('
2825: fnd_message.set_token ('NUM',E_Count);
2826: pnp_debug_pkg.put_log_msg(fnd_message.get);
2827:
2828: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
2829: fnd_message.set_token ('NUM',T_Count);
2830: pnp_debug_pkg.put_log_msg(fnd_message.get);
2831:
2832: pnp_debug_pkg.put_log_msg('
2833: ================================================================================');
2826: pnp_debug_pkg.put_log_msg(fnd_message.get);
2827:
2828: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
2829: fnd_message.set_token ('NUM',T_Count);
2830: pnp_debug_pkg.put_log_msg(fnd_message.get);
2831:
2832: pnp_debug_pkg.put_log_msg('
2833: ================================================================================');
2834:
2839: raise;
2840:
2841: WHEN OTHERS THEN
2842: pnp_debug_pkg.log(substrb('OTHERS: ' || l_context,1,244));
2843: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_PROBLEM');
2844: Errbuf := substrb(SQLERRM,1,244);
2845: Retcode := 2;
2846: rollback;
2847: raise;