[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;
471:
472: /* Form the Order by clause of optional attributes and print the optional attributes */
473: IF g_grp_by_purpose_flag THEN
474: fnd_message.set_name ('PN','PN_EXPAR_PMT_PUR');
475: pnp_debug_pkg.put_log_msg(fnd_message.get);
476: l_ord_clause := l_ord_clause || ' , payment_purpose';
477: END IF;
478: IF g_grp_by_type_flag THEN
479: fnd_message.set_name ('PN','PN_EXPAR_PMT_TYP');
476: l_ord_clause := l_ord_clause || ' , payment_purpose';
477: END IF;
478: IF g_grp_by_type_flag THEN
479: fnd_message.set_name ('PN','PN_EXPAR_PMT_TYP');
480: pnp_debug_pkg.put_log_msg(fnd_message.get);
481: l_ord_clause := l_ord_clause || ' , payment_type';
482: END IF;
483: IF g_grp_by_lenum_flag THEN
484: fnd_message.set_name ('PN','PN_EXPAR_LSNO');
481: l_ord_clause := l_ord_clause || ' , payment_type';
482: END IF;
483: IF g_grp_by_lenum_flag THEN
484: fnd_message.set_name ('PN','PN_EXPAR_LSNO');
485: pnp_debug_pkg.put_log_msg(fnd_message.get);
486: l_ord_clause := l_ord_clause || ' , le.lease_num';
487: END IF;
488: Q_Billitem_grp := Q_Billitem_grp ||l_param_where_clause || l_ord_clause;
489: PN_EXP_TO_AR.EXP_TO_AR_GRP(errbuf
503: ,p_grp_param
504: );
505: END IF;
506:
507: pnp_debug_pkg.log('-------- PN_EXP_TO_AR.EXP_TO_AR --------- (-)');
508:
509: EXCEPTION
510:
511: WHEN INVALID_GROUP_RULE THEN
510:
511: WHEN INVALID_GROUP_RULE THEN
512: fnd_message.set_name ('PN', 'PN_INVALID_GROUP_RULE_ATTACHED');
513: err_msg := fnd_message.get;
514: pnp_debug_pkg.put_log_msg(err_msg);
515: errbuf := err_msg;
516: retcode := 2;
517: WHEN OTHERS THEN
518: RAISE;
696: /* Get the Optional Attributes of the Grouping Rule mentioned in Batch Source */
697: l_context := 'Getting the Optional Attributes of the Grouping Rule mentioned in Batch Source';
698:
699: fnd_message.set_name ('PN','PN_EXPAR_OPT');
700: pnp_debug_pkg.put_log_msg(fnd_message.get);
701: l_context := 'Getting the Batch Source Name';
702: pnp_debug_pkg.log(l_context);
703: /* get the batch source name */
704: OPEN get_batch_source_name;
698:
699: fnd_message.set_name ('PN','PN_EXPAR_OPT');
700: pnp_debug_pkg.put_log_msg(fnd_message.get);
701: l_context := 'Getting the Batch Source Name';
702: pnp_debug_pkg.log(l_context);
703: /* get the batch source name */
704: OPEN get_batch_source_name;
705: FETCH get_batch_source_name into l_batch_name, l_rev_acc_alloc_rule,
706: l_sal_cred, l_derive_date_flag;
919: AND exp_ar_tbl(l_index).conv_rate IS NULL THEN
920:
921: fnd_message.set_name ('PN', 'PN_CONV_RATE_REQD');
922: l_err_msg4 := fnd_message.get;
923: pnp_debug_pkg.put_log_msg(l_err_msg4);
924:
925: RAISE GENERIC_EXPORT_EXCEPTION;
926:
927: END IF;
930: OR exp_ar_tbl(l_index).pn_trx_type_id IS NULL THEN
931:
932: fnd_message.set_name ('PN', 'PN_PTRM_TRX_REQD_MSG');
933: l_err_msg3 := fnd_message.get;
934: pnp_debug_pkg.put_log_msg(l_err_msg3);
935:
936: RAISE GENERIC_EXPORT_EXCEPTION;
937:
938: END IF;
942: IF (l_rev_flag <> 'Y' OR l_rec_flag <> 'Y' OR l_ast_flag <> 'Y') THEN
943:
944: fnd_message.set_name ('PN', 'PN_ALL_ACNT_DIST_MSG');
945: l_err_msg1 := fnd_message.get;
946: pnp_debug_pkg.put_log_msg(l_err_msg1);
947:
948: RAISE GENERIC_EXPORT_EXCEPTION;
949:
950: END IF;
957: THEN
958:
959: fnd_message.set_name ('PN', 'PN_REVREC_DIST_MSG');
960: l_err_msg2 := fnd_message.get;
961: pnp_debug_pkg.put_log_msg(l_err_msg2);
962:
963: RAISE GENERIC_EXPORT_EXCEPTION;
964:
965: END IF;
1021: l_count := exp_ar_tbl.count;
1022:
1023: fnd_message.set_name ('PN','PN_EXPAR_ITM_PROC');
1024: fnd_message.set_token ('NUM',l_count);
1025: pnp_debug_pkg.put_log_msg(fnd_message.get);
1026:
1027: l_context := 'Finding the Groups of items';
1028: pnp_debug_pkg.log(l_context);
1029:
1024: fnd_message.set_token ('NUM',l_count);
1025: pnp_debug_pkg.put_log_msg(fnd_message.get);
1026:
1027: l_context := 'Finding the Groups of items';
1028: pnp_debug_pkg.log(l_context);
1029:
1030: -- start loopin thru the table
1031: WHILE (l_item_prcsed < l_count)
1032: LOOP
1082:
1083: ELSE -- we have a group!
1084:
1085: l_context := 'Group found. Checking REC account';
1086: pnp_debug_pkg.log(l_context);
1087:
1088: -- validate the group for REC account.
1089: l_valid_rec_accs := TRUE;
1090:
1098: l_start := l_next;
1099: l_next := l_next + 1;
1100: l_valid_rec_accs := FALSE;
1101: fnd_message.set_name ('PN', 'PN_UNMATCHING_REC_ACCNT');
1102: pnp_debug_pkg.put_log_msg(fnd_message.get);
1103: EXIT;
1104:
1105: END IF;
1106:
1109: -- if REC account is valid, continue!
1110: IF l_valid_rec_accs THEN
1111:
1112: l_context := 'Group Valid. Processing the grouped items';
1113: pnp_debug_pkg.log(l_context);
1114:
1115: fnd_message.set_name ('PN','PN_EXPAR_ITM_QLFY');
1116: fnd_message.set_token ('NUM',(l_next-l_start));
1117: pnp_debug_pkg.put_log_msg(fnd_message.get);
1113: pnp_debug_pkg.log(l_context);
1114:
1115: fnd_message.set_name ('PN','PN_EXPAR_ITM_QLFY');
1116: fnd_message.set_token ('NUM',(l_next-l_start));
1117: pnp_debug_pkg.put_log_msg(fnd_message.get);
1118:
1119: l_rec_insert_flag := TRUE;
1120: l_last_updated_by := FND_GLOBAL.USER_ID;
1121: l_last_update_login := FND_GLOBAL.LOGIN_ID;
1137:
1138: /* Get the correct precision for the currency so that the amount can be rounded off */
1139: fnd_currency.get_info(exp_ar_tbl(l_grp).pn_export_currency_code,
1140: l_precision, l_ext_precision, l_min_acct_unit);
1141: pnp_debug_pkg.put_log_msg('
1142: ================================================================================');
1143: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
1144: fnd_message.set_token ('ITM_ID',exp_ar_tbl(l_grp).pn_payment_item_id);
1145: fnd_message.set_token ('CUST_ID',TO_CHAR(exp_ar_tbl(l_grp).pn_customer_id));
1144: fnd_message.set_token ('ITM_ID',exp_ar_tbl(l_grp).pn_payment_item_id);
1145: fnd_message.set_token ('CUST_ID',TO_CHAR(exp_ar_tbl(l_grp).pn_customer_id));
1146: fnd_message.set_token ('REC_AMT',0);
1147: fnd_message.set_token ('DATE',exp_ar_tbl(l_grp).gl_date);
1148: pnp_debug_pkg.put_log_msg('
1149: ================================================================================');
1150:
1151:
1152: /* Print the Conversion Rate and Type */
1151:
1152: /* Print the Conversion Rate and Type */
1153: fnd_message.set_name ('PN','PN_CRACC_CV_RATE');
1154: fnd_message.set_token ('CR',exp_ar_tbl(l_grp).conv_rate);
1155: pnp_debug_pkg.put_log_msg(fnd_message.get);
1156:
1157: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
1158: fnd_message.set_token ('CT',exp_ar_tbl(l_grp).conv_rate_type);
1159: pnp_debug_pkg.put_log_msg(fnd_message.get);
1155: pnp_debug_pkg.put_log_msg(fnd_message.get);
1156:
1157: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
1158: fnd_message.set_token ('CT',exp_ar_tbl(l_grp).conv_rate_type);
1159: pnp_debug_pkg.put_log_msg(fnd_message.get);
1160:
1161: /* Print send entries flag for the lease */
1162: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
1163: fnd_message.set_token ('ID',exp_ar_tbl(l_grp).pn_lease_id);
1161: /* Print send entries flag for the lease */
1162: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
1163: fnd_message.set_token ('ID',exp_ar_tbl(l_grp).pn_lease_id);
1164: fnd_message.set_token ('SEND',exp_ar_tbl(l_grp).send_entries);
1165: pnp_debug_pkg.put_log_msg(fnd_message.get);
1166:
1167:
1168: /* Initialize the variables */
1169: l_desc := NULL;
1195: CLOSE get_rule_name;
1196:
1197: fnd_message.set_name ('PN','PN_EXPAR_INV_RULE');
1198: fnd_message.set_token ('NAME',l_inv_rule_name);
1199: pnp_debug_pkg.put_log_msg(fnd_message.get);
1200:
1201: /* get the accounting rule name */
1202: OPEN get_rule_name(exp_ar_tbl(l_grp).pn_account_rule_id);
1203: FETCH get_rule_name into l_acc_rule_name,l_acc_rule_type, l_acc_rule_freq;
1204: CLOSE get_rule_name;
1205:
1206: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_NAME');
1207: fnd_message.set_token ('NAME',l_acc_rule_name);
1208: pnp_debug_pkg.put_log_msg(fnd_message.get);
1209:
1210: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
1211: fnd_message.set_token ('TYPE',l_acc_rule_type);
1212: pnp_debug_pkg.put_log_msg(fnd_message.get);
1208: pnp_debug_pkg.put_log_msg(fnd_message.get);
1209:
1210: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
1211: fnd_message.set_token ('TYPE',l_acc_rule_type);
1212: pnp_debug_pkg.put_log_msg(fnd_message.get);
1213:
1214: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
1215: fnd_message.set_token ('FREQ',l_acc_rule_freq);
1216: pnp_debug_pkg.put_log_msg(fnd_message.get);
1212: pnp_debug_pkg.put_log_msg(fnd_message.get);
1213:
1214: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
1215: fnd_message.set_token ('FREQ',l_acc_rule_freq);
1216: pnp_debug_pkg.put_log_msg(fnd_message.get);
1217:
1218: IF exp_ar_tbl(l_grp).pn_account_rule_id IS NOT NULL AND
1219: (l_acc_rule_type <> 'A' OR
1220: l_acc_rule_freq <> 'SPECIFIC') AND
1226: END IF;
1227:
1228: fnd_message.set_name ('PN','PN_EXPAR_RUL_ST_DT');
1229: fnd_message.set_token ('DATE',l_rule_start_date);
1230: pnp_debug_pkg.put_log_msg(fnd_message.get);
1231:
1232: /* get the payment method name */
1233: OPEN get_receipt_name(exp_ar_tbl(l_grp).pn_pay_method_id);
1234: FETCH get_receipt_name into l_pay_method_name;
1236:
1237: /* get the payment method name */
1238: fnd_message.set_name ('PN','PN_EXPAR_PMT_MTHD');
1239: fnd_message.set_token ('METHOD',l_pay_method_name);
1240: pnp_debug_pkg.put_log_msg(fnd_message.get);
1241:
1242: /* get the salesrep number */
1243: OPEN get_salesrep_number(exp_ar_tbl(l_grp).pn_salesrep_id,
1244: exp_ar_tbl(l_grp).pn_org_id);
1246: CLOSE get_salesrep_number;
1247:
1248: fnd_message.set_name ('PN','PN_EXPAR_SALES_REP');
1249: fnd_message.set_token ('NAME',l_salesrep_number);
1250: pnp_debug_pkg.put_log_msg(fnd_message.get);
1251:
1252: /* get the cust transaction type name */
1253: OPEN get_cust_trx_name(exp_ar_tbl(l_grp).pn_trx_type_id);
1254: FETCH get_cust_trx_name into l_cust_trx_name;
1255: CLOSE get_cust_trx_name;
1256:
1257: fnd_message.set_name ('PN','PN_EXPAR_TRNX_TYPE');
1258: fnd_message.set_token ('TYPE',l_cust_trx_name);
1259: pnp_debug_pkg.put_log_msg(fnd_message.get);
1260:
1261: /* Get Post To GL value for the transcation type */
1262: OPEN get_post_to_gl(exp_ar_tbl(l_grp).pn_trx_type_id,exp_ar_tbl(l_grp).pn_org_id);
1263: FETCH get_post_to_gl INTO l_post_to_gl;
1264: CLOSE get_post_to_gl;
1265:
1266: fnd_message.set_name ('PN','PN_EXPAR_POST');
1267: fnd_message.set_token ('TOK',l_post_to_gl);
1268: pnp_debug_pkg.put_log_msg(fnd_message.get);
1269:
1270: /* get the term name */
1271: OPEN get_term_name(exp_ar_tbl(l_grp).pn_term_id);
1272: FETCH get_term_name into l_term_name;
1273: CLOSE get_term_name;
1274:
1275: fnd_message.set_name ('PN','PN_EXPAR_PMT_TERM');
1276: fnd_message.set_token ('NUM',l_term_name);
1277: pnp_debug_pkg.put_log_msg(fnd_message.get);
1278:
1279: /* get the primary location code */
1280: OPEN get_loc_code(exp_ar_tbl(l_grp).location_id) ;
1281: FETCH get_loc_code into l_location_code;
1285: CLOSE get_loc_code;
1286:
1287: fnd_message.set_name ('PN','PN_XPEAM_LOC');
1288: fnd_message.set_token ('LOC_CODE',l_location_code);
1289: pnp_debug_pkg.put_log_msg(fnd_message.get);
1290:
1291:
1292: /* get the vat tax code */
1293:
1305: CLOSE gl_segment_check;
1306:
1307: fnd_message.set_name ('PN','PN_EXPAR_GL_SALES');
1308: fnd_message.set_token ('TOK',l_gl_seg);
1309: pnp_debug_pkg.put_log_msg(fnd_message.get);
1310:
1311: /* Check for System Parameters in AR System Options */
1312: OPEN sys_param_check;
1313: FETCH sys_param_check INTO l_sys_para;
1314: CLOSE sys_param_check;
1315:
1316: fnd_message.set_name ('PN','PN_EXPAR_AR_SALES');
1317: fnd_message.set_token ('TOK',l_sys_para);
1318: pnp_debug_pkg.put_log_msg(fnd_message.get);
1319:
1320:
1321: l_context := 'Inserting into interface lines';
1322:
1489: /* This has to be done only once for the grouped items */
1490: IF l_rec_insert_flag THEN
1491:
1492: l_context := 'Inserting into Distributions for REC acount for this group';
1493: pnp_debug_pkg.log(l_context ||' : '|| exp_ar_tbl(l_grp).rec_account);
1494:
1495: INSERT INTO ra_interface_distributions_all
1496: (account_class
1497: ,percent
1541: ,nvl(SUBSTRB(exp_ar_tbl(l_grp).payment_type,1,150),'N/A')
1542: ,nvl(SUBSTRB(exp_ar_tbl(l_grp).pn_lease_num,1,150),'N/A')
1543: );
1544: l_context := 'Inserted into Distributions for REC acount';
1545: pnp_debug_pkg.log(l_context);
1546: l_rec_insert_flag := FALSE;
1547:
1548: END IF; -- if REC has not been inserted yet
1549:
1547:
1548: END IF; -- if REC has not been inserted yet
1549:
1550: l_context := 'Getting Revenue amt.';
1551: pnp_debug_pkg.log('Getting Revenue Amount');
1552:
1553: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT');
1554: fnd_message.set_token ('AMT',to_char(round(exp_ar_tbl(l_grp).pn_export_currency_amount,l_precision)));
1555: pnp_debug_pkg.put_log_msg(fnd_message.get);
1551: pnp_debug_pkg.log('Getting Revenue Amount');
1552:
1553: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT');
1554: fnd_message.set_token ('AMT',to_char(round(exp_ar_tbl(l_grp).pn_export_currency_amount,l_precision)));
1555: pnp_debug_pkg.put_log_msg(fnd_message.get);
1556:
1557: l_total_rev_amt := 0;
1558: l_total_rev_percent := 0;
1559:
1588: END IF;
1589:
1590: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT_DIST');
1591: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1592: pnp_debug_pkg.put_log_msg(fnd_message.get);
1593:
1594: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
1595: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1596: pnp_debug_pkg.put_log_msg(fnd_message.get);
1592: pnp_debug_pkg.put_log_msg(fnd_message.get);
1593:
1594: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
1595: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1596: pnp_debug_pkg.put_log_msg(fnd_message.get);
1597:
1598: ELSIF acnt_rec.account_class = 'UNEARN' THEN
1599:
1600: l_acnt_cls := 'REV';
1615: END IF;
1616:
1617: fnd_message.set_name ('PN','PN_EXPAR_ACR_AMT_DIST');
1618: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
1619: pnp_debug_pkg.put_log_msg(fnd_message.get);
1620:
1621: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
1622: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1623: pnp_debug_pkg.put_log_msg(fnd_message.get);
1619: pnp_debug_pkg.put_log_msg(fnd_message.get);
1620:
1621: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
1622: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
1623: pnp_debug_pkg.put_log_msg(fnd_message.get);
1624:
1625: END IF;
1626:
1627: IF (acnt_rec.account_class = 'UNEARN' and
1631: (NVL(exp_ar_tbl(l_grp).NORMALIZE,'N') <> 'Y' OR
1632: (NVL(exp_ar_tbl(l_grp).NORMALIZE,'N') = 'Y'
1633: AND nvl(exp_ar_tbl(l_grp).send_entries,'Y') = 'N'))) THEN
1634:
1635: pnp_debug_pkg.log('Inserting into distributions for account types of REV and UNEARN');
1636: l_context := 'Inserting into Distributions for account types of REV and UNEARN';
1637:
1638: INSERT INTO ra_interface_distributions_all
1639: (account_class
1684: ,nvl(SUBSTRB(exp_ar_tbl(l_grp).payment_type,1,150),'N/A')
1685: ,nvl(SUBSTRB(exp_ar_tbl(l_grp).pn_lease_num,1,150),'N/A')
1686: );
1687:
1688: pnp_debug_pkg.log('Inserted into distributions for account types of REV and UNEARN');
1689: END IF;
1690:
1691: END LOOP;
1692:
1690:
1691: END LOOP;
1692:
1693: l_context := 'Updating Payment Items';
1694: pnp_debug_pkg.log('Updating payment items for payment item id : ' ||
1695: to_char(exp_ar_tbl(l_grp).pn_payment_item_id) );
1696:
1697: UPDATE PN_PAYMENT_ITEMS_ALL
1698: SET transferred_to_ar_flag = 'Y' ,
1703: export_group_id = p_groupId
1704: WHERE payment_item_id = exp_ar_tbl(l_grp).pn_payment_item_id;
1705:
1706: IF (SQL%NOTFOUND) then
1707: pnp_debug_pkg.log('Could not update row for Payment_Item_Id = ' ||
1708: exp_ar_tbl(l_grp).Pn_Payment_Item_Id) ;
1709: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_FLAG_NOT_SET');
1710: errbuf := fnd_message.get;
1711: rollback;
1718:
1719: l_Prior_Payment_Schedule_Id := exp_ar_tbl(l_grp).PN_Payment_Schedule_Id;
1720: l_context := 'Updating Payment Schedules';
1721:
1722: pnp_debug_pkg.log('Updating payment schedules for payment sch id : ' ||
1723: to_char(exp_ar_tbl(l_grp).PN_Payment_Schedule_Id) );
1724:
1725:
1726: UPDATE PN_PAYMENT_SCHEDULES_ALL
1728: Transfer_Date = l_last_update_date
1729: WHERE Payment_Schedule_Id = exp_ar_tbl(l_grp).PN_Payment_Schedule_Id;
1730:
1731: IF (SQL%NOTFOUND) then
1732: pnp_debug_pkg.log('Could not update row for Payment_Schedule_Id = '
1733: || exp_ar_tbl(l_grp).PN_Payment_Schedule_Id) ;
1734: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_INFO_NOT_SET');
1735: errbuf := fnd_message.get;
1736: rollback;
1756:
1757: exp_ar_tbl.DELETE;
1758: COMMIT;
1759:
1760: pnp_debug_pkg.put_log_msg('
1761: ================================================================================');
1762:
1763: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
1764: fnd_message.set_token ('NUM',S_Count);
1761: ================================================================================');
1762:
1763: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
1764: fnd_message.set_token ('NUM',S_Count);
1765: pnp_debug_pkg.put_log_msg(fnd_message.get);
1766:
1767: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1768: fnd_message.set_token ('NUM',E_Count);
1769: pnp_debug_pkg.put_log_msg(fnd_message.get);
1765: pnp_debug_pkg.put_log_msg(fnd_message.get);
1766:
1767: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1768: fnd_message.set_token ('NUM',E_Count);
1769: pnp_debug_pkg.put_log_msg(fnd_message.get);
1770:
1771: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
1772: fnd_message.set_token ('NUM',T_Count);
1773: pnp_debug_pkg.put_log_msg(fnd_message.get);
1769: pnp_debug_pkg.put_log_msg(fnd_message.get);
1770:
1771: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
1772: fnd_message.set_token ('NUM',T_Count);
1773: pnp_debug_pkg.put_log_msg(fnd_message.get);
1774:
1775: pnp_debug_pkg.put_log_msg('
1776: ================================================================================');
1777: IF(E_Count >0) THEN --Bug 14762515
1771: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
1772: fnd_message.set_token ('NUM',T_Count);
1773: pnp_debug_pkg.put_log_msg(fnd_message.get);
1774:
1775: pnp_debug_pkg.put_log_msg('
1776: ================================================================================');
1777: IF(E_Count >0) THEN --Bug 14762515
1778:
1779: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1777: IF(E_Count >0) THEN --Bug 14762515
1778:
1779: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1780: fnd_message.set_token ('NUM',E_Count);
1781: pnp_debug_pkg.put_log_msg(fnd_message.get);
1782:
1783: pnp_debug_pkg.put_log_msg('');
1784:
1785: FOR i IN 1..l_index_2-1
1779: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
1780: fnd_message.set_token ('NUM',E_Count);
1781: pnp_debug_pkg.put_log_msg(fnd_message.get);
1782:
1783: pnp_debug_pkg.put_log_msg('');
1784:
1785: FOR i IN 1..l_index_2-1
1786: LOOP
1787: select actual_amount into l_actual_amount
1792: l_message := fnd_message.get || ' ' || err_ar_tbl(i).pn_lease_num || ' ';
1793: fnd_message.set_name ('PN','PN_AMOUNT');
1794: l_message := l_message || fnd_message.get;
1795: l_message := l_message || ' ' || l_actual_amount;
1796: pnp_debug_pkg.put_log_msg(l_message);
1797:
1798:
1799: END LOOP;
1800:
1799: END LOOP;
1800:
1801: END IF;-- Bug 14762515
1802:
1803: pnp_debug_pkg.put_log_msg('
1804: ================================================================================');
1805:
1806:
1807: EXCEPTION
1806:
1807: EXCEPTION
1808:
1809: WHEN NO_DATA_FOUND THEN
1810: pnp_debug_pkg.log('NO_DATA_FOUND: ' || l_context);
1811: raise;
1812:
1813: WHEN OTHERS THEN
1814: pnp_debug_pkg.log(substrb('OTHERS: ' || l_context,1,244));
1810: pnp_debug_pkg.log('NO_DATA_FOUND: ' || l_context);
1811: raise;
1812:
1813: WHEN OTHERS THEN
1814: pnp_debug_pkg.log(substrb('OTHERS: ' || l_context,1,244));
1815: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_PROBLEM');
1816: Errbuf := substrb(SQLERRM,1,244);
1817: Retcode := 2;
1818: rollback;
1988:
1989: BEGIN
1990:
1991: fnd_message.set_name ('PN','PN_EXPAR_PMT_MSG');
1992: pnp_debug_pkg.put_log_msg(fnd_message.get);
1993:
1994: l_context := 'Forming the query statement';
1995: pnp_debug_pkg.log('Forming the query statement');
1996:
1991: fnd_message.set_name ('PN','PN_EXPAR_PMT_MSG');
1992: pnp_debug_pkg.put_log_msg(fnd_message.get);
1993:
1994: l_context := 'Forming the query statement';
1995: pnp_debug_pkg.log('Forming the query statement');
1996:
1997:
1998: l_context := 'Getting the Batch Source Name';
1999: pnp_debug_pkg.log('Getting the Batch Source Name');
1995: pnp_debug_pkg.log('Forming the query statement');
1996:
1997:
1998: l_context := 'Getting the Batch Source Name';
1999: pnp_debug_pkg.log('Getting the Batch Source Name');
2000:
2001: /* get the batch source name */
2002: OPEN get_batch_source_name;
2003: FETCH get_batch_source_name into l_batch_name, l_rev_acc_alloc_rule,
2005: CLOSE get_batch_source_name;
2006:
2007: fnd_message.set_name ('PN','PN_EXPAR_BTCH_SRC_NAME');
2008: fnd_message.set_token ('NAME',l_batch_name);
2009: pnp_debug_pkg.put_log_msg(fnd_message.get);
2010:
2011: Q_select_nogrp := 'SELECT payment_term_id,
2012: customer_id,
2013: cust_trx_type_id,
2194: END IF;
2195:
2196: fnd_message.set_name ('PN','PN_CRACC_CV_RATE');
2197: fnd_message.set_token ('CR',l_conv_rate);
2198: pnp_debug_pkg.put_log_msg(fnd_message.get);
2199:
2200: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
2201: fnd_message.set_token ('CT',l_conv_rate_type);
2202: pnp_debug_pkg.put_log_msg(fnd_message.get);
2198: pnp_debug_pkg.put_log_msg(fnd_message.get);
2199:
2200: fnd_message.set_name ('PN','PN_CRACC_CV_TYPE');
2201: fnd_message.set_token ('CT',l_conv_rate_type);
2202: pnp_debug_pkg.put_log_msg(fnd_message.get);
2203:
2204:
2205: /* Get send entries flag for the lease */
2206: IF l_lease_id <> v_pn_lease_id THEN
2210: l_lease_id := v_pn_lease_id;
2211: fnd_message.set_name ('PN','PN_EXPAR_PMT_LS');
2212: fnd_message.set_token ('ID',l_lease_id);
2213: fnd_message.set_token ('SEND',l_send_flag);
2214: pnp_debug_pkg.put_log_msg(fnd_message.get);
2215:
2216: END IF;
2217:
2218: l_rev_flag := 'N';
2245: l_conv_rate IS NULL THEN
2246:
2247: fnd_message.set_name ('PN', 'PN_CONV_RATE_REQD');
2248: l_err_msg4 := fnd_message.get;
2249: pnp_debug_pkg.put_log_msg(l_err_msg4);
2250:
2251: RAISE GENERIC_EXPORT_EXCEPTION;
2252:
2253: END IF;
2255: IF v_pn_term_id IS NULL OR v_pn_trx_type_id IS NULL THEN
2256:
2257: fnd_message.set_name ('PN', 'PN_PTRM_TRX_REQD_MSG');
2258: l_err_msg3 := fnd_message.get;
2259: pnp_debug_pkg.put_log_msg(l_err_msg3);
2260:
2261: RAISE GENERIC_EXPORT_EXCEPTION;
2262:
2263: END IF;
2267: IF (l_rev_flag <> 'Y' OR l_rec_flag <> 'Y' OR l_ast_flag <> 'Y') THEN
2268:
2269: fnd_message.set_name ('PN', 'PN_ALL_ACNT_DIST_MSG');
2270: l_err_msg1 := fnd_message.get;
2271: pnp_debug_pkg.put_log_msg(l_err_msg1);
2272:
2273: RAISE GENERIC_EXPORT_EXCEPTION;
2274: END IF;
2275:
2281: THEN
2282:
2283: fnd_message.set_name ('PN', 'PN_REVREC_DIST_MSG');
2284: l_err_msg2 := fnd_message.get;
2285: pnp_debug_pkg.put_log_msg(l_err_msg2);
2286:
2287: RAISE GENERIC_EXPORT_EXCEPTION;
2288:
2289: END IF;
2310: l_start_date := PNP_UTIL_FUNC.Get_Start_Date(v_pn_period_name,
2311: pn_mo_cache_utils.get_current_org_id);
2312: END IF;
2313:
2314: pnp_debug_pkg.put_log_msg('
2315: ================================================================================');
2316: fnd_message.set_name ('PN','PN_EXPAR_PMT_PRM');
2317: fnd_message.set_token ('ITM_ID',v_pn_payment_item_id);
2318: fnd_message.set_token ('CUST_ID',TO_CHAR(v_pn_customer_id));
2317: fnd_message.set_token ('ITM_ID',v_pn_payment_item_id);
2318: fnd_message.set_token ('CUST_ID',TO_CHAR(v_pn_customer_id));
2319: fnd_message.set_token ('REC_AMT',TO_CHAR(ROUND(v_pn_export_currency_amount,l_precision)));
2320: fnd_message.set_token ('DATE',l_start_date);
2321: pnp_debug_pkg.put_log_msg('
2322: ================================================================================');
2323:
2324: /* Initialize the variables */
2325: l_desc := NULL;
2350: CLOSE get_rule_name;
2351:
2352: fnd_message.set_name ('PN','PN_EXPAR_INV_RULE');
2353: fnd_message.set_token ('NAME',l_inv_rule_name);
2354: pnp_debug_pkg.put_log_msg(fnd_message.get);
2355:
2356: /* get the accounting rule name */
2357: OPEN get_rule_name(v_pn_account_rule_id);
2358: FETCH get_rule_name into l_acc_rule_name, l_acc_rule_type, l_acc_rule_freq;
2359: CLOSE get_rule_name;
2360:
2361: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_NAME');
2362: fnd_message.set_token ('NAME',l_acc_rule_name);
2363: pnp_debug_pkg.put_log_msg(fnd_message.get);
2364:
2365: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
2366: fnd_message.set_token ('TYPE',l_acc_rule_type);
2367: pnp_debug_pkg.put_log_msg(fnd_message.get);
2363: pnp_debug_pkg.put_log_msg(fnd_message.get);
2364:
2365: fnd_message.set_name ('PN','PN_EXPAR_ACC_RUL_TYPE');
2366: fnd_message.set_token ('TYPE',l_acc_rule_type);
2367: pnp_debug_pkg.put_log_msg(fnd_message.get);
2368:
2369: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
2370: fnd_message.set_token ('FREQ',l_acc_rule_freq);
2371: pnp_debug_pkg.put_log_msg(fnd_message.get);
2367: pnp_debug_pkg.put_log_msg(fnd_message.get);
2368:
2369: fnd_message.set_name ('PN','PN_EXPAR_GL_RUL_FREQ');
2370: fnd_message.set_token ('FREQ',l_acc_rule_freq);
2371: pnp_debug_pkg.put_log_msg(fnd_message.get);
2372:
2373: IF v_pn_account_rule_id IS NOT NULL AND
2374: (l_acc_rule_type <> 'A' OR
2375: l_acc_rule_freq <> 'SPECIFIC') AND
2381: END IF;
2382:
2383: fnd_message.set_name ('PN','PN_EXPAR_RUL_ST_DT');
2384: fnd_message.set_token ('DATE',l_rule_start_date);
2385: pnp_debug_pkg.put_log_msg(fnd_message.get);
2386:
2387: /* get the payment method name */
2388: OPEN get_receipt_name(v_pn_pay_method_id);
2389: FETCH get_receipt_name into l_pay_method_name;
2390: CLOSE get_receipt_name;
2391:
2392: fnd_message.set_name ('PN','PN_EXPAR_PMT_MTHD');
2393: fnd_message.set_token ('METHOD',l_pay_method_name);
2394: pnp_debug_pkg.put_log_msg(fnd_message.get);
2395:
2396: /* get the salesrep number */
2397: OPEN get_salesrep_number(v_pn_salesrep_id,v_pn_org_id);
2398: FETCH get_salesrep_number into l_salesrep_number,l_sales_credit_id;
2399: CLOSE get_salesrep_number;
2400:
2401: fnd_message.set_name ('PN','PN_EXPAR_SALES_REP');
2402: fnd_message.set_token ('NAME',l_salesrep_number);
2403: pnp_debug_pkg.put_log_msg(fnd_message.get);
2404:
2405: /* get the cust transaction type name */
2406: OPEN get_cust_trx_name(v_pn_trx_type_id);
2407: FETCH get_cust_trx_name into l_cust_trx_name;
2408: CLOSE get_cust_trx_name;
2409:
2410: fnd_message.set_name ('PN','PN_EXPAR_TRNX_TYPE');
2411: fnd_message.set_token ('TYPE',l_cust_trx_name);
2412: pnp_debug_pkg.put_log_msg(fnd_message.get);
2413:
2414: fnd_message.set_name ('PN','PN_EXPAR_POST');
2415: fnd_message.set_token ('TOK',l_post_to_gl);
2416: pnp_debug_pkg.put_log_msg(fnd_message.get);
2412: pnp_debug_pkg.put_log_msg(fnd_message.get);
2413:
2414: fnd_message.set_name ('PN','PN_EXPAR_POST');
2415: fnd_message.set_token ('TOK',l_post_to_gl);
2416: pnp_debug_pkg.put_log_msg(fnd_message.get);
2417:
2418: /* get the term name */
2419: OPEN get_term_name(v_pn_term_id);
2420: FETCH get_term_name into l_term_name;
2421: CLOSE get_term_name;
2422:
2423: fnd_message.set_name ('PN','PN_EXPAR_PMT_TERM');
2424: fnd_message.set_token ('NUM',l_term_name);
2425: pnp_debug_pkg.put_log_msg(fnd_message.get);
2426:
2427: /* get the primary location code */
2428: OPEN get_loc_code(v_location_id) ;
2429: FETCH get_loc_code into l_location_code;
2433: CLOSE get_loc_code;
2434:
2435: fnd_message.set_name ('PN','PN_EXPAR_LOC_CODE');
2436: fnd_message.set_token ('LOC_CODE',l_location_code);
2437: pnp_debug_pkg.put_log_msg(fnd_message.get);
2438:
2439: /* get the vat tax code */
2440:
2441: IF NOT pn_r12_util_pkg.is_r12 THEN
2452: CLOSE gl_segment_check;
2453:
2454: fnd_message.set_name ('PN','PN_EXPAR_GL_SALES');
2455: fnd_message.set_token ('TOK',l_gl_seg);
2456: pnp_debug_pkg.put_log_msg(fnd_message.get);
2457:
2458: /* Check for System Parameters in AR System Options */
2459: OPEN sys_param_check;
2460: FETCH sys_param_check INTO l_sys_para;
2461: CLOSE sys_param_check;
2462:
2463: fnd_message.set_name ('PN','PN_EXPAR_AR_SALES');
2464: fnd_message.set_token ('TOK',l_sys_para);
2465: pnp_debug_pkg.put_log_msg(fnd_message.get);
2466:
2467: l_context := 'Inserting into interface lines';
2468:
2469: INSERT INTO ra_interface_lines_all
2630:
2631: END IF;
2632:
2633: l_context := 'Getting Revenue amt.';
2634: pnp_debug_pkg.log('Getting Revenue Amount');
2635:
2636: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT');
2637: fnd_message.set_token ('AMT',to_char(round(v_pn_export_currency_amount,l_precision)));
2638: pnp_debug_pkg.put_log_msg(fnd_message.get);
2634: pnp_debug_pkg.log('Getting Revenue Amount');
2635:
2636: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT');
2637: fnd_message.set_token ('AMT',to_char(round(v_pn_export_currency_amount,l_precision)));
2638: pnp_debug_pkg.put_log_msg(fnd_message.get);
2639:
2640:
2641: FOR acnt_rec IN get_dist(v_pn_payment_term_id)
2642: LOOP
2648: l_amt := V_PN_EXPORT_CURRENCY_AMOUNT;
2649:
2650: fnd_message.set_name ('PN','PN_EXPAR_BTCH_RCV_AMT');
2651: fnd_message.set_token ('NUM',to_char(l_amt));
2652: pnp_debug_pkg.put_log_msg(fnd_message.get);
2653:
2654: ELSIF acnt_rec.account_class = 'REV' THEN
2655:
2656: l_acnt_cls := 'REV';
2682: END IF;
2683:
2684: fnd_message.set_name ('PN','PN_EXPAR_REV_AMT_DIST');
2685: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2686: pnp_debug_pkg.put_log_msg(fnd_message.get);
2687:
2688: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
2689: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2690: pnp_debug_pkg.put_log_msg(fnd_message.get);
2686: pnp_debug_pkg.put_log_msg(fnd_message.get);
2687:
2688: fnd_message.set_name ('PN','PN_EXPAR_REV_PCT_DIST');
2689: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2690: pnp_debug_pkg.put_log_msg(fnd_message.get);
2691:
2692: ELSIF acnt_rec.account_class = 'UNEARN' THEN
2693:
2694: l_acnt_cls := 'REV';
2712: END IF;
2713:
2714: fnd_message.set_name ('PN','PN_EXPAR_ACR_AMT_DIST');
2715: fnd_message.set_token ('NUM',to_char(round(l_amt,l_precision)));
2716: pnp_debug_pkg.put_log_msg(fnd_message.get);
2717:
2718: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
2719: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2720: pnp_debug_pkg.put_log_msg(fnd_message.get);
2716: pnp_debug_pkg.put_log_msg(fnd_message.get);
2717:
2718: fnd_message.set_name ('PN','PN_EXPAR_ACR_PCT_DIST');
2719: fnd_message.set_token ('PCT',to_char(round(l_percent,2)));
2720: pnp_debug_pkg.put_log_msg(fnd_message.get);
2721:
2722: END IF;
2723:
2724: l_last_updated_by := FND_GLOBAL.USER_ID;
2724: l_last_updated_by := FND_GLOBAL.USER_ID;
2725: l_last_update_login := FND_GLOBAL.LOGIN_ID;
2726: l_last_update_date := sysdate;
2727:
2728: pnp_debug_pkg.log('Inserting into distributions');
2729: l_context := 'Inserting into Distributions';
2730:
2731: IF (acnt_rec.account_class = 'UNEARN' AND
2732: NVL(V_NORMALIZE,'N') = 'Y' AND
2787: ,NVL(SUBSTRB(v_pn_lease_num,1,150),'N/A')
2788: );
2789:
2790: END IF;
2791: pnp_debug_pkg.log('Inserted into distributions');
2792:
2793: END LOOP;
2794:
2795: l_context := 'Updating Payment Items';
2792:
2793: END LOOP;
2794:
2795: l_context := 'Updating Payment Items';
2796: pnp_debug_pkg.log('Updating payment items for payment item id : ' ||
2797: to_char(v_pn_payment_item_id) );
2798:
2799: UPDATE PN_PAYMENT_ITEMS_ALL
2800: SET transferred_to_ar_flag = 'Y' ,
2805: export_group_id = p_groupId
2806: WHERE payment_item_id = v_pn_payment_item_id;
2807:
2808: IF (SQL%NOTFOUND) then
2809: pnp_debug_pkg.log('Could not update row for Payment_Item_Id = ' ||
2810: V_PN_Payment_Item_Id) ;
2811: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_FLAG_NOT_SET');
2812: errbuf := fnd_message.get;
2813: rollback;
2821: l_Prior_Payment_Schedule_Id := V_PN_Payment_Schedule_Id;
2822:
2823: l_context := 'Updating Payment Schedules';
2824:
2825: pnp_debug_pkg.log('Updating payment schedules for payment sch id : ' ||
2826: to_char(V_PN_Payment_Schedule_Id) );
2827:
2828: UPDATE PN_PAYMENT_SCHEDULES_ALL
2829: SET Transferred_By_User_Id = l_last_updated_by,
2830: Transfer_Date = l_last_update_date
2831: WHERE Payment_Schedule_Id = V_PN_Payment_Schedule_Id;
2832:
2833: IF (SQL%NOTFOUND) then
2834: pnp_debug_pkg.log('Could not update row for Payment_Schedule_Id = '
2835: || V_PN_Payment_Schedule_Id) ;
2836: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_INFO_NOT_SET');
2837: errbuf := fnd_message.get;
2838: rollback;
2867: COMMIT;
2868:
2869: /*CLOSE c_billitem;*/
2870:
2871: pnp_debug_pkg.put_log_msg('
2872: ================================================================================');
2873:
2874:
2875: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
2873:
2874:
2875: fnd_message.set_name ('PN','PN_EXPAR_PROC_SUC');
2876: fnd_message.set_token ('NUM',S_Count);
2877: pnp_debug_pkg.put_log_msg(fnd_message.get);
2878:
2879: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2880: fnd_message.set_token ('NUM',E_Count);
2881: pnp_debug_pkg.put_log_msg(fnd_message.get);
2877: pnp_debug_pkg.put_log_msg(fnd_message.get);
2878:
2879: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2880: fnd_message.set_token ('NUM',E_Count);
2881: pnp_debug_pkg.put_log_msg(fnd_message.get);
2882:
2883: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
2884: fnd_message.set_token ('NUM',T_Count);
2885: pnp_debug_pkg.put_log_msg(fnd_message.get);
2881: pnp_debug_pkg.put_log_msg(fnd_message.get);
2882:
2883: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
2884: fnd_message.set_token ('NUM',T_Count);
2885: pnp_debug_pkg.put_log_msg(fnd_message.get);
2886:
2887: pnp_debug_pkg.put_log_msg('
2888: ================================================================================');
2889:
2883: fnd_message.set_name ('PN','PN_EXPAR_PROC_TOT');
2884: fnd_message.set_token ('NUM',T_Count);
2885: pnp_debug_pkg.put_log_msg(fnd_message.get);
2886:
2887: pnp_debug_pkg.put_log_msg('
2888: ================================================================================');
2889:
2890: IF(E_Count >0) THEN --Bug 14762515
2891:
2890: IF(E_Count >0) THEN --Bug 14762515
2891:
2892: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2893: fnd_message.set_token ('NUM',E_Count);
2894: pnp_debug_pkg.put_log_msg(fnd_message.get);
2895: pnp_debug_pkg.put_log_msg('');
2896:
2897: FOR i IN 1..l_index_2-1
2898: LOOP
2891:
2892: fnd_message.set_name ('PN','PN_EXPAR_PROC_FAIL');
2893: fnd_message.set_token ('NUM',E_Count);
2894: pnp_debug_pkg.put_log_msg(fnd_message.get);
2895: pnp_debug_pkg.put_log_msg('');
2896:
2897: FOR i IN 1..l_index_2-1
2898: LOOP
2899: select actual_amount into l_actual_amount
2904: l_message := fnd_message.get || ' ' || err_ar_tbl(i).pn_lease_num || ' ';
2905: fnd_message.set_name ('PN','PN_AMOUNT');
2906: l_message := l_message || fnd_message.get;
2907: l_message := l_message || ' ' || l_actual_amount;
2908: pnp_debug_pkg.put_log_msg(l_message);
2909:
2910:
2911: END LOOP;
2912:
2911: END LOOP;
2912:
2913: END IF;-- Bug 14762515
2914:
2915: pnp_debug_pkg.put_log_msg('
2916: ================================================================================');
2917:
2918:
2919: EXCEPTION
2918:
2919: EXCEPTION
2920:
2921: WHEN NO_DATA_FOUND THEN
2922: pnp_debug_pkg.log('NO_DATA_FOUND: ' || l_context);
2923: raise;
2924:
2925: WHEN OTHERS THEN
2926: pnp_debug_pkg.log(substrb('OTHERS: ' || l_context,1,244));
2922: pnp_debug_pkg.log('NO_DATA_FOUND: ' || l_context);
2923: raise;
2924:
2925: WHEN OTHERS THEN
2926: pnp_debug_pkg.log(substrb('OTHERS: ' || l_context,1,244));
2927: fnd_message.set_name('PN', 'PN_TRANSFER_TO_AR_PROBLEM');
2928: Errbuf := substrb(SQLERRM,1,244);
2929: Retcode := 2;
2930: rollback;
2946: ,p_customer_id NUMBER
2947: ,p_grp_param VARCHAR2
2948: ) IS
2949: BEGIN
2950: PNP_DEBUG_PKG.log('pn_exp_to_ar.do_binding (+)');
2951: IF p_grp_param IS NULL THEN
2952: IF p_lease_num_low IS NOT NULL AND
2953: p_lease_num_high IS NOT NULL THEN
2954: dbms_sql.bind_variable(p_cursor,'l_lease_num_low',p_lease_num_low);
3004: END IF;
3005: ELSE
3006: dbms_sql.bind_variable(p_cursor,'l_grp_param',p_grp_param);
3007: END IF;
3008: PNP_DEBUG_PKG.log('pn_exp_to_ar.do_binding (-)');
3009: END do_binding;
3010:
3011:
3012: