[Home] [Help]
188: pn_mo_cache_utils.get_current_org_id));
189:
190:
191: BEGIN
192: pnp_debug_pkg.log('-------- PN_EXP_TO_AR.EXP_TO_AR --------- (+)');
193:
194: OPEN get_func_curr_code(l_set_of_books_id);
195: FETCH get_func_curr_code INTO l_func_curr_code;
196: CLOSE get_func_curr_code;
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');
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');
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
501: ,p_grp_param
502: );
503: END IF;
504:
505: pnp_debug_pkg.log('-------- PN_EXP_TO_AR.EXP_TO_AR --------- (-)');
506:
507: EXCEPTION
508:
509: WHEN INVALID_GROUP_RULE THEN
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
516: RAISE;
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;
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;
696: FETCH get_batch_source_name into l_batch_name, l_rev_acc_alloc_rule,
697: l_sal_cred, l_derive_date_flag;
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:
917: END IF;
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:
928: END IF;
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:
940: END IF;
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:
955: END IF;
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:
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:
1015: -- start loopin thru the table
1016: WHILE (l_item_prcsed < l_count)
1017: LOOP
1067:
1068: ELSE -- we have a group!
1069:
1070: l_context := 'Group found. Checking REC account';
1071: pnp_debug_pkg.log(l_context);
1072:
1073: -- validate the group for REC account.
1074: l_valid_rec_accs := TRUE;
1075:
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:
1094: -- if REC account is valid, continue!
1095: IF l_valid_rec_accs THEN
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);
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;
1122:
1123: /* Get the correct precision for the currency so that the amount can be rounded off */
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));
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:
1137: /* Print the Conversion Rate and 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);
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);
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;
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;
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);
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);
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
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;
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);
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;
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;
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;
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;
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:
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;
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:
1474: /* This has to be done only once for the grouped items */
1475: IF l_rec_insert_flag THEN
1476:
1477: l_context := 'Inserting into Distributions for REC acount for this group';
1478: pnp_debug_pkg.log(l_context ||' : '|| exp_ar_tbl(l_grp).rec_account);
1479:
1480: INSERT INTO ra_interface_distributions_all
1481: (account_class
1482: ,percent
1526: ,nvl(SUBSTRB(exp_ar_tbl(l_grp).payment_type,1,30),'N/A')
1527: ,nvl(SUBSTRB(exp_ar_tbl(l_grp).pn_lease_num,1,30),'N/A')
1528: );
1529: l_context := 'Inserted into Distributions for REC acount';
1530: pnp_debug_pkg.log(l_context);
1531: l_rec_insert_flag := FALSE;
1532:
1533: END IF; -- if REC has not been inserted yet
1534:
1532:
1533: END IF; -- if REC has not been inserted yet
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);
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:
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);
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';
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);
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
1616: (NVL(exp_ar_tbl(l_grp).NORMALIZE,'N') <> 'Y' OR
1617: (NVL(exp_ar_tbl(l_grp).NORMALIZE,'N') = 'Y'
1618: AND nvl(exp_ar_tbl(l_grp).send_entries,'Y') = 'N'))) THEN
1619:
1620: pnp_debug_pkg.log('Inserting into distributions for account types of REV and UNEARN');
1621: l_context := 'Inserting into Distributions for account types of REV and UNEARN';
1622:
1623: INSERT INTO ra_interface_distributions_all
1624: (account_class
1669: ,nvl(SUBSTRB(exp_ar_tbl(l_grp).payment_type,1,30),'N/A')
1670: ,nvl(SUBSTRB(exp_ar_tbl(l_grp).pn_lease_num,1,30),'N/A')
1671: );
1672:
1673: pnp_debug_pkg.log('Inserted into distributions for account types of REV and UNEARN');
1674: END IF;
1675:
1676: END LOOP;
1677:
1675:
1676: END LOOP;
1677:
1678: l_context := 'Updating Payment Items';
1679: pnp_debug_pkg.log('Updating payment items for payment item id : ' ||
1680: to_char(exp_ar_tbl(l_grp).pn_payment_item_id) );
1681:
1682: UPDATE PN_PAYMENT_ITEMS_ALL
1683: SET transferred_to_ar_flag = 'Y' ,
1688: export_group_id = p_groupId
1689: WHERE payment_item_id = exp_ar_tbl(l_grp).pn_payment_item_id;
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;
1703:
1704: l_Prior_Payment_Schedule_Id := exp_ar_tbl(l_grp).PN_Payment_Schedule_Id;
1705: l_context := 'Updating Payment Schedules';
1706:
1707: pnp_debug_pkg.log('Updating payment schedules for payment sch id : ' ||
1708: to_char(exp_ar_tbl(l_grp).PN_Payment_Schedule_Id) );
1709:
1710:
1711: UPDATE PN_PAYMENT_SCHEDULES_ALL
1713: Transfer_Date = l_last_update_date
1714: WHERE Payment_Schedule_Id = exp_ar_tbl(l_grp).PN_Payment_Schedule_Id;
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;
1741:
1742: exp_ar_tbl.DELETE;
1743: COMMIT;
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);
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);
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);
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:
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:
1763: EXCEPTION
1764:
1762:
1763: EXCEPTION
1764:
1765: WHEN NO_DATA_FOUND THEN
1766: pnp_debug_pkg.log('NO_DATA_FOUND: ' || l_context);
1767: raise;
1768:
1769: WHEN OTHERS THEN
1770: pnp_debug_pkg.log(substrb('OTHERS: ' || l_context,1,244));
1766: pnp_debug_pkg.log('NO_DATA_FOUND: ' || l_context);
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;
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:
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:
1947:
1948: l_context := 'Getting the Batch Source Name';
1949: pnp_debug_pkg.log('Getting the Batch Source Name');
1945: pnp_debug_pkg.log('Forming the query statement');
1946:
1947:
1948: l_context := 'Getting the Batch Source Name';
1949: pnp_debug_pkg.log('Getting the Batch Source Name');
1950:
1951: /* get the batch source name */
1952: OPEN get_batch_source_name;
1953: FETCH get_batch_source_name into l_batch_name, l_rev_acc_alloc_rule,
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,
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);
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
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';
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;
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:
2212: END IF;
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;
2224:
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:
2238: END IF;
2259: l_start_date := PNP_UTIL_FUNC.Get_Start_Date(v_pn_period_name,
2260: pn_mo_cache_utils.get_current_org_id);
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));
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 */
2274: l_desc := NULL;
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;
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);
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);
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
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;
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;
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;
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);
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;
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;
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
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;
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
2579:
2580: END IF;
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);
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
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';
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);
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';
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);
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;
2673: l_last_updated_by := FND_GLOBAL.USER_ID;
2674: l_last_update_login := FND_GLOBAL.LOGIN_ID;
2675: l_last_update_date := sysdate;
2676:
2677: pnp_debug_pkg.log('Inserting into distributions');
2678: l_context := 'Inserting into Distributions';
2679:
2680: IF (acnt_rec.account_class = 'UNEARN' AND
2681: NVL(V_NORMALIZE,'N') = 'Y' AND
2736: ,NVL(SUBSTRB(v_pn_lease_num,1,30),'N/A')
2737: );
2738:
2739: END IF;
2740: pnp_debug_pkg.log('Inserted into distributions');
2741:
2742: END LOOP;
2743:
2744: l_context := 'Updating Payment Items';
2741:
2742: END LOOP;
2743:
2744: l_context := 'Updating Payment Items';
2745: pnp_debug_pkg.log('Updating payment items for payment item id : ' ||
2746: to_char(v_pn_payment_item_id) );
2747:
2748: UPDATE PN_PAYMENT_ITEMS_ALL
2749: SET transferred_to_ar_flag = 'Y' ,
2754: export_group_id = p_groupId
2755: WHERE payment_item_id = v_pn_payment_item_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;
2770: l_Prior_Payment_Schedule_Id := V_PN_Payment_Schedule_Id;
2771:
2772: l_context := 'Updating Payment Schedules';
2773:
2774: pnp_debug_pkg.log('Updating payment schedules for payment sch id : ' ||
2775: to_char(V_PN_Payment_Schedule_Id) );
2776:
2777: UPDATE PN_PAYMENT_SCHEDULES_ALL
2778: SET Transferred_By_User_Id = l_last_updated_by,
2779: Transfer_Date = l_last_update_date
2780: WHERE Payment_Schedule_Id = V_PN_Payment_Schedule_Id;
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;
2812: COMMIT;
2813:
2814: /*CLOSE c_billitem;*/
2815:
2816: pnp_debug_pkg.put_log_msg('
2817: ================================================================================');
2818:
2819:
2820: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
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);
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);
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:
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:
2835: EXCEPTION
2836:
2834:
2835: EXCEPTION
2836:
2837: WHEN NO_DATA_FOUND THEN
2838: pnp_debug_pkg.log('NO_DATA_FOUND: ' || l_context);
2839: raise;
2840:
2841: WHEN OTHERS THEN
2842: pnp_debug_pkg.log(substrb('OTHERS: ' || l_context,1,244));
2838: pnp_debug_pkg.log('NO_DATA_FOUND: ' || l_context);
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;
2862: ,p_customer_id NUMBER
2863: ,p_grp_param VARCHAR2
2864: ) IS
2865: BEGIN
2866: PNP_DEBUG_PKG.log('pn_exp_to_ar.do_binding (+)');
2867: IF p_grp_param IS NULL THEN
2868: IF p_lease_num_low IS NOT NULL AND
2869: p_lease_num_high IS NOT NULL THEN
2870: dbms_sql.bind_variable(p_cursor,'l_lease_num_low',p_lease_num_low);
2920: END IF;
2921: ELSE
2922: dbms_sql.bind_variable(p_cursor,'l_grp_param',p_grp_param);
2923: END IF;
2924: PNP_DEBUG_PKG.log('pn_exp_to_ar.do_binding (-)');
2925: END do_binding;
2926:
2927:
2928: