109: --| .set_token('NUM', l_customer_trx_line_id)"
110: --| for bug 5258522
111: --| 29/06/2006 Shujuan Yan Modify Retrieve_AR_TRXs, get l_
112: --| tax_curr_unit_price from procedure Get_Info
113: --| _From_Ebtax of package AR_GTA_TRX_UTIL, and
114: --| compare it with max amount for bug 5168900.
115: --| 12/07/2006 Shujuan Yan Added l_trx_line.item_description
116: --| := l_description when l_item_inventry_id is
117: --| null in the procedure Retrieve_AR_TRXs
225: --
226: -- PARAMETERS:
227: -- In: P_ORG_ID NUMBER
228: -- P_transfer_rule NUMBER
229: -- p_conc_parameters AR_GTA_TRX_UTIL.transferParas_rec_type
230: -- p_DEBUG VARCHAR2
231: -- OUT: errbuf varchar2
232: -- retcode VARCHAR2
233:
240: PROCEDURE Transfer_AR_To_GTA(errbuf OUT NOCOPY VARCHAR2,
241: retcode OUT NOCOPY VARCHAR2,
242: p_org_id IN NUMBER,
243: p_transfer_id IN NUMBER,
244: p_conc_parameters IN AR_GTA_TRX_UTIL.transferParas_rec_type) IS
245: l_procedure_name VARCHAR2(30) := 'transfer_AR_to_GTA';
246: l_gta_trx_tbl_4ar ar_gta_trx_util.trx_tbl_type := ar_gta_trx_util.trx_tbl_type();
247: l_gta_trx_tbl_4gta ar_gta_trx_util.trx_tbl_type := ar_gta_trx_util.trx_tbl_type();
248: BEGIN
242: p_org_id IN NUMBER,
243: p_transfer_id IN NUMBER,
244: p_conc_parameters IN AR_GTA_TRX_UTIL.transferParas_rec_type) IS
245: l_procedure_name VARCHAR2(30) := 'transfer_AR_to_GTA';
246: l_gta_trx_tbl_4ar ar_gta_trx_util.trx_tbl_type := ar_gta_trx_util.trx_tbl_type();
247: l_gta_trx_tbl_4gta ar_gta_trx_util.trx_tbl_type := ar_gta_trx_util.trx_tbl_type();
248: BEGIN
249: FND_LOG.G_CURRENT_RUNTIME_LEVEL := FND_LOG.LEVEL_STATEMENT;
250:
243: p_transfer_id IN NUMBER,
244: p_conc_parameters IN AR_GTA_TRX_UTIL.transferParas_rec_type) IS
245: l_procedure_name VARCHAR2(30) := 'transfer_AR_to_GTA';
246: l_gta_trx_tbl_4ar ar_gta_trx_util.trx_tbl_type := ar_gta_trx_util.trx_tbl_type();
247: l_gta_trx_tbl_4gta ar_gta_trx_util.trx_tbl_type := ar_gta_trx_util.trx_tbl_type();
248: BEGIN
249: FND_LOG.G_CURRENT_RUNTIME_LEVEL := FND_LOG.LEVEL_STATEMENT;
250:
251: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
277: G_MODULE_PREFIX || l_procedure_name,
278: 'End Split_transactions......' || l_gta_trx_tbl_4gta.COUNT);
279: END IF;
280:
281: ar_gta_trx_util.create_TRXs(p_gta_trxs => l_gta_trx_tbl_4gta);
282:
283: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
284: log(FND_LOG.LEVEL_PROCEDURE,
285: G_MODULE_PREFIX || l_procedure_name,
368: --
369: -- PARAMETERS:
370: -- In: P_ORG_ID NUMBER
371: -- p_transfer_id NUMBER
372: -- p_conc_parameters AR_GTA_TRX_UTIL.transferParas_rec_type
373: --
374: -- DESIGN REFERENCES:
375: -- GTA-TRANSFER-PROGRAM-TD.doc
376: --
381: --===========================================================================
382:
383: PROCEDURE Generate_XML_Output(p_org_id IN NUMBER,
384: p_transfer_id IN NUMBER,
385: p_conc_parameters IN AR_GTA_TRX_UTIL.transferParas_rec_type) IS
386: l_currency VARCHAR2(30);
387: l_reportFailed xmltype;
388: l_FailedWithParameters xmltype;
389: l_parameter XMLType;
423: ' ');
424: l_gl_period VARCHAR2(100) := nvl(p_conc_parameters.GL_PERIOD,
425: ' ');
426: --l_gl_date_from VARCHAR2(20) := nvl(to_char(p_conc_parameters.GL_DATE_FROM), ' ');
427: l_gl_date_from VARCHAR2(20) := nvl(AR_GTA_TRX_UTIL.To_Xsd_Date_String(p_conc_parameters.GL_DATE_FROM),
428: ' ');
429: --l_gl_date_to VARCHAR2(20) := nvl(to_char(p_conc_parameters.GL_DATE_TO), ' ');
430: l_gl_date_to VARCHAR2(20) := nvl(AR_GTA_TRX_UTIL.To_Xsd_Date_String(p_conc_parameters.GL_DATE_TO),
431: ' ');
426: --l_gl_date_from VARCHAR2(20) := nvl(to_char(p_conc_parameters.GL_DATE_FROM), ' ');
427: l_gl_date_from VARCHAR2(20) := nvl(AR_GTA_TRX_UTIL.To_Xsd_Date_String(p_conc_parameters.GL_DATE_FROM),
428: ' ');
429: --l_gl_date_to VARCHAR2(20) := nvl(to_char(p_conc_parameters.GL_DATE_TO), ' ');
430: l_gl_date_to VARCHAR2(20) := nvl(AR_GTA_TRX_UTIL.To_Xsd_Date_String(p_conc_parameters.GL_DATE_TO),
431: ' ');
432: l_trx_batch_from VARCHAR2(50) := nvl(p_conc_parameters.TRX_BATCH_FROM,
433: ' ');
434: l_trx_batch_to VARCHAR2(50) := nvl(p_conc_parameters.TRX_BATCH_TO,
437: ' ');
438: l_trx_number_to VARCHAR2(20) := nvl(p_conc_parameters.TRX_NUMBER_TO,
439: ' ');
440: --l_trx_date_from VARCHAR2(20) := nvl(to_char(p_conc_parameters.TRX_DATE_FROM), ' ');
441: l_trx_date_from VARCHAR2(20) := nvl(AR_GTA_TRX_UTIL.To_Xsd_Date_String(p_conc_parameters.TRX_DATE_FROM),
442: ' ');
443: --l_trx_date_to VARCHAR2(20) := nvl(to_char(p_conc_parameters.TRX_DATE_TO), ' ');
444: l_trx_date_to VARCHAR2(20) := nvl(AR_GTA_TRX_UTIL.To_Xsd_Date_String(p_conc_parameters.TRX_DATE_TO),
445: ' ');
440: --l_trx_date_from VARCHAR2(20) := nvl(to_char(p_conc_parameters.TRX_DATE_FROM), ' ');
441: l_trx_date_from VARCHAR2(20) := nvl(AR_GTA_TRX_UTIL.To_Xsd_Date_String(p_conc_parameters.TRX_DATE_FROM),
442: ' ');
443: --l_trx_date_to VARCHAR2(20) := nvl(to_char(p_conc_parameters.TRX_DATE_TO), ' ');
444: l_trx_date_to VARCHAR2(20) := nvl(AR_GTA_TRX_UTIL.To_Xsd_Date_String(p_conc_parameters.TRX_DATE_TO),
445: ' ');
446: l_doc_num_from VARCHAR2(30) := nvl(to_char(p_conc_parameters.DOC_NUM_FROM),
447: ' ');
448: l_doc_num_to VARCHAR2(30) := nvl(to_char(p_conc_parameters.DOC_NUM_TO),
713: SELECT xmlelement("TransferReport",
714: xmlforest(l_reportFailed AS "ReportFailed",
715: l_FailedWithParameters AS
716: "FailedWithParameters",
717: AR_GTA_TRX_UTIL.To_Xsd_Date_String(SYSDATE) AS
718: "ReqDate"
719: --, to_char(SYSDATE, l_date_format) AS "ReqDate"
720: ,
721: l_currency AS "CurrencyCode",
736: END IF;
737: --Yao Zhang add end for bug 13594122
738:
739: -- concurrent output
740: AR_GTA_TRX_UTIL.output_conc(l_report_XML.Getclobval);
741:
742: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
743: AR_GTA_TRX_UTIL.debug_output_conc(l_report_XML.Getclobval);
744: END IF;
739: -- concurrent output
740: AR_GTA_TRX_UTIL.output_conc(l_report_XML.Getclobval);
741:
742: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
743: AR_GTA_TRX_UTIL.debug_output_conc(l_report_XML.Getclobval);
744: END IF;
745:
746: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
747: fnd_log.String(fnd_log.LEVEL_PROCEDURE,
770: --
771: -- PARAMETERS:
772: -- p_org_id IN NUMBER
773: -- p_transfer_id IN NUMBER
774: -- p_conc_parameters IN AR_GTA_TRX_UTIL.transferParas_rec_type
775: -- x_GTA_TRX_Tbl OUT NOCOPY AR_GTA_TRX_UTIL.TRX_TBL_TYPE
776: --
777: -- DESIGN REFERENCES:
778: -- GTA-TRANSFER-PROGRAM-TD.doc
771: -- PARAMETERS:
772: -- p_org_id IN NUMBER
773: -- p_transfer_id IN NUMBER
774: -- p_conc_parameters IN AR_GTA_TRX_UTIL.transferParas_rec_type
775: -- x_GTA_TRX_Tbl OUT NOCOPY AR_GTA_TRX_UTIL.TRX_TBL_TYPE
776: --
777: -- DESIGN REFERENCES:
778: -- GTA-TRANSFER-PROGRAM-TD.doc
779: --
783: -- 23-01-2008 Yao Zhang Changed for bug 7758496
784: --===========================================================================
785: PROCEDURE Retrive_Valid_AR_TRXs(p_org_id IN NUMBER,
786: p_transfer_id IN NUMBER,
787: p_conc_parameters IN AR_GTA_TRX_UTIL.transferParas_rec_type,
788: x_GTA_TRX_Tbl OUT NOCOPY AR_GTA_TRX_UTIL.TRX_TBL_TYPE) IS
789: l_sql_exec VARCHAR2(4000);
790: l_procedure_name VARCHAR2(30) := 'retrive_valid_AR_TRXs';
791: l_trxtype_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type := AR_GTA_TRX_UTIL.Condition_para_tbl_type();
784: --===========================================================================
785: PROCEDURE Retrive_Valid_AR_TRXs(p_org_id IN NUMBER,
786: p_transfer_id IN NUMBER,
787: p_conc_parameters IN AR_GTA_TRX_UTIL.transferParas_rec_type,
788: x_GTA_TRX_Tbl OUT NOCOPY AR_GTA_TRX_UTIL.TRX_TBL_TYPE) IS
789: l_sql_exec VARCHAR2(4000);
790: l_procedure_name VARCHAR2(30) := 'retrive_valid_AR_TRXs';
791: l_trxtype_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type := AR_GTA_TRX_UTIL.Condition_para_tbl_type();
792: l_flex_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type := AR_GTA_TRX_UTIL.Condition_para_tbl_type();
787: p_conc_parameters IN AR_GTA_TRX_UTIL.transferParas_rec_type,
788: x_GTA_TRX_Tbl OUT NOCOPY AR_GTA_TRX_UTIL.TRX_TBL_TYPE) IS
789: l_sql_exec VARCHAR2(4000);
790: l_procedure_name VARCHAR2(30) := 'retrive_valid_AR_TRXs';
791: l_trxtype_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type := AR_GTA_TRX_UTIL.Condition_para_tbl_type();
792: l_flex_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type := AR_GTA_TRX_UTIL.Condition_para_tbl_type();
793: l_other_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type := AR_GTA_TRX_UTIL.Condition_para_tbl_type();
794: l_currency_code ar_gta_system_parameters_all.gt_currency_code%TYPE;
795: l_gta_trx_tbl ar_gta_trx_util.trx_tbl_type := ar_gta_trx_util.trx_tbl_type();
788: x_GTA_TRX_Tbl OUT NOCOPY AR_GTA_TRX_UTIL.TRX_TBL_TYPE) IS
789: l_sql_exec VARCHAR2(4000);
790: l_procedure_name VARCHAR2(30) := 'retrive_valid_AR_TRXs';
791: l_trxtype_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type := AR_GTA_TRX_UTIL.Condition_para_tbl_type();
792: l_flex_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type := AR_GTA_TRX_UTIL.Condition_para_tbl_type();
793: l_other_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type := AR_GTA_TRX_UTIL.Condition_para_tbl_type();
794: l_currency_code ar_gta_system_parameters_all.gt_currency_code%TYPE;
795: l_gta_trx_tbl ar_gta_trx_util.trx_tbl_type := ar_gta_trx_util.trx_tbl_type();
796: l_invoice_type_code VARCHAR2(1);
789: l_sql_exec VARCHAR2(4000);
790: l_procedure_name VARCHAR2(30) := 'retrive_valid_AR_TRXs';
791: l_trxtype_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type := AR_GTA_TRX_UTIL.Condition_para_tbl_type();
792: l_flex_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type := AR_GTA_TRX_UTIL.Condition_para_tbl_type();
793: l_other_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type := AR_GTA_TRX_UTIL.Condition_para_tbl_type();
794: l_currency_code ar_gta_system_parameters_all.gt_currency_code%TYPE;
795: l_gta_trx_tbl ar_gta_trx_util.trx_tbl_type := ar_gta_trx_util.trx_tbl_type();
796: l_invoice_type_code VARCHAR2(1);
797: BEGIN
791: l_trxtype_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type := AR_GTA_TRX_UTIL.Condition_para_tbl_type();
792: l_flex_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type := AR_GTA_TRX_UTIL.Condition_para_tbl_type();
793: l_other_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type := AR_GTA_TRX_UTIL.Condition_para_tbl_type();
794: l_currency_code ar_gta_system_parameters_all.gt_currency_code%TYPE;
795: l_gta_trx_tbl ar_gta_trx_util.trx_tbl_type := ar_gta_trx_util.trx_tbl_type();
796: l_invoice_type_code VARCHAR2(1);
797: BEGIN
798:
799: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
885: --
886: -- PARAMETERS:
887: -- In: P_ORG_ID NUMBER
888: -- p_transfer_id VARCHAR2
889: -- p_conc_parameters AR_GTA_TRX_UTIL.transferParas_rec_type
890: -- OUT: x_query_sql VARCHAR2
891: -- x_trxtype_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type
892: -- x_flex_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type
893: -- x_other_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type
887: -- In: P_ORG_ID NUMBER
888: -- p_transfer_id VARCHAR2
889: -- p_conc_parameters AR_GTA_TRX_UTIL.transferParas_rec_type
890: -- OUT: x_query_sql VARCHAR2
891: -- x_trxtype_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type
892: -- x_flex_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type
893: -- x_other_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type
894: -- x_currency_code VARCHAR2
895:
888: -- p_transfer_id VARCHAR2
889: -- p_conc_parameters AR_GTA_TRX_UTIL.transferParas_rec_type
890: -- OUT: x_query_sql VARCHAR2
891: -- x_trxtype_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type
892: -- x_flex_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type
893: -- x_other_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type
894: -- x_currency_code VARCHAR2
895:
896: -- DESIGN REFERENCES:
889: -- p_conc_parameters AR_GTA_TRX_UTIL.transferParas_rec_type
890: -- OUT: x_query_sql VARCHAR2
891: -- x_trxtype_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type
892: -- x_flex_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type
893: -- x_other_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type
894: -- x_currency_code VARCHAR2
895:
896: -- DESIGN REFERENCES:
897: -- GTA-TRANSFER-PROGRAM-TD.doc
904: -- to support new tax regulation change in R12.1
905: --===========================================================================
906: PROCEDURE Get_AR_SQL(P_ORG_ID IN NUMBER,
907: p_transfer_id IN NUMBER,
908: p_conc_parameters IN AR_GTA_TRX_UTIL.transferParas_rec_type,
909: x_query_sql OUT NOCOPY VARCHAR2,
910: x_trxtype_parameter OUT NOCOPY AR_GTA_TRX_UTIL.Condition_para_tbl_type,
911: x_flex_parameter OUT NOCOPY AR_GTA_TRX_UTIL.Condition_para_tbl_type,
912: x_other_parameter OUT NOCOPY AR_GTA_TRX_UTIL.Condition_para_tbl_type,
906: PROCEDURE Get_AR_SQL(P_ORG_ID IN NUMBER,
907: p_transfer_id IN NUMBER,
908: p_conc_parameters IN AR_GTA_TRX_UTIL.transferParas_rec_type,
909: x_query_sql OUT NOCOPY VARCHAR2,
910: x_trxtype_parameter OUT NOCOPY AR_GTA_TRX_UTIL.Condition_para_tbl_type,
911: x_flex_parameter OUT NOCOPY AR_GTA_TRX_UTIL.Condition_para_tbl_type,
912: x_other_parameter OUT NOCOPY AR_GTA_TRX_UTIL.Condition_para_tbl_type,
913: x_currency_code OUT NOCOPY VARCHAR2) IS
914: l_select_sql VARCHAR2(4000);
907: p_transfer_id IN NUMBER,
908: p_conc_parameters IN AR_GTA_TRX_UTIL.transferParas_rec_type,
909: x_query_sql OUT NOCOPY VARCHAR2,
910: x_trxtype_parameter OUT NOCOPY AR_GTA_TRX_UTIL.Condition_para_tbl_type,
911: x_flex_parameter OUT NOCOPY AR_GTA_TRX_UTIL.Condition_para_tbl_type,
912: x_other_parameter OUT NOCOPY AR_GTA_TRX_UTIL.Condition_para_tbl_type,
913: x_currency_code OUT NOCOPY VARCHAR2) IS
914: l_select_sql VARCHAR2(4000);
915:
908: p_conc_parameters IN AR_GTA_TRX_UTIL.transferParas_rec_type,
909: x_query_sql OUT NOCOPY VARCHAR2,
910: x_trxtype_parameter OUT NOCOPY AR_GTA_TRX_UTIL.Condition_para_tbl_type,
911: x_flex_parameter OUT NOCOPY AR_GTA_TRX_UTIL.Condition_para_tbl_type,
912: x_other_parameter OUT NOCOPY AR_GTA_TRX_UTIL.Condition_para_tbl_type,
913: x_currency_code OUT NOCOPY VARCHAR2) IS
914: l_select_sql VARCHAR2(4000);
915:
916: l_TRX_TYPE_condition VARCHAR2(2000);
1277: -- In: P_ORG_ID NUMBER
1278: -- p_transfer_id VARCHAR2
1279:
1280: -- OUT: x_condition_sql Varchar2
1281: -- x_query_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type
1282:
1283: -- DESIGN REFERENCES:
1284: -- GTA-TRANSFER-PROGRAM-TD.doc
1285: --
1288: --===========================================================================
1289: PROCEDURE Get_AR_TrxType_Cond(p_ORG_ID IN NUMBER,
1290: p_transfer_id IN NUMBER,
1291: x_condition_sql OUT NOCOPY VARCHAR2,
1292: x_query_parameter OUT NOCOPY AR_GTA_TRX_UTIL.Condition_para_tbl_type) IS
1293: l_procedure_name VARCHAR2(50) := 'Get_AR_TrxType_Cond';
1294: l_parameter_prefix VARCHAR2(10) := ':trxtype';
1295: l_parameter_suffix NUMBER;
1296: l_include_flag VARCHAR2(5);
1322: 'Begin Get_AR_TrxType_Cond......');
1323: END IF;
1324:
1325: -- init the sql string and parameter table.
1326: x_query_parameter := AR_GTA_TRX_UTIL.Condition_para_tbl_type();
1327: l_parameter_suffix := 0;
1328:
1329: -- Generate the dynamic sql which condition_rule is 'I'
1330: OPEN trx_type_cond_i;
1413: -- In: P_ORG_ID NUMBER
1414: -- p_transfer_id VARCHAR2
1415:
1416: -- OUT: x_condition_sql Varchar2
1417: -- x_query_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type
1418:
1419: -- DESIGN REFERENCES:
1420: -- GTA-TRANSFER-PROGRAM-TD.doc
1421: --
1424: --===========================================================================
1425: PROCEDURE Get_AR_FLEX_COND(P_ORG_ID IN NUMBER,
1426: p_transfer_id IN NUMBER,
1427: x_condition_sql OUT NOCOPY VARCHAR2,
1428: x_query_parameter OUT NOCOPY AR_GTA_TRX_UTIL.Condition_para_tbl_type) IS
1429: l_procedure_name VARCHAR2(50) := 'Get_AR_FLEX_COND';
1430: l_parameter_prefix VARCHAR2(10) := ':flex';
1431: l_parameter_suffix NUMBER;
1432:
1462: G_MODULE_PREFIX || l_procedure_name,
1463: 'begin get_ar_flex......');
1464: END IF;
1465:
1466: x_query_parameter := AR_GTA_TRX_UTIL.Condition_para_tbl_type();
1467: l_parameter_suffix := 0;
1468:
1469: -- Generate the dynamic sql for flex filed which the condition rule is 'I'
1470: OPEN flex_cond_i;
1569: --
1570: -- PARAMETERS:
1571: -- In: P_ORG_ID NUMBER
1572: -- p_transfer_id VARCHAR2
1573: -- p_conc_parameters AR_GTA_TRX_UTIL.transferParas_rec_type
1574:
1575: -- OUT: x_condition_sql Varchar2
1576: -- x_query_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type
1577:
1572: -- p_transfer_id VARCHAR2
1573: -- p_conc_parameters AR_GTA_TRX_UTIL.transferParas_rec_type
1574:
1575: -- OUT: x_condition_sql Varchar2
1576: -- x_query_parameter AR_GTA_TRX_UTIL.Condition_para_tbl_type
1577:
1578: -- DESIGN REFERENCES:
1579: -- GTA-TRANSFER-PROGRAM-TD.doc
1580: --
1583: --
1584: --===========================================================================
1585: PROCEDURE Get_Param_Cond(P_ORG_ID IN NUMBER,
1586: p_transfer_id IN NUMBER,
1587: p_conc_parameters IN AR_GTA_TRX_UTIL.transferParas_rec_type,
1588: x_condition_sql OUT NOCOPY VARCHAR2,
1589: x_query_parameter OUT NOCOPY AR_GTA_TRX_UTIL.Condition_para_tbl_type) IS
1590: l_procedure_name VARCHAR2(30) := 'Get_Param_Cond';
1591: l_parameter_prefix VARCHAR2(10) := ':para';
1585: PROCEDURE Get_Param_Cond(P_ORG_ID IN NUMBER,
1586: p_transfer_id IN NUMBER,
1587: p_conc_parameters IN AR_GTA_TRX_UTIL.transferParas_rec_type,
1588: x_condition_sql OUT NOCOPY VARCHAR2,
1589: x_query_parameter OUT NOCOPY AR_GTA_TRX_UTIL.Condition_para_tbl_type) IS
1590: l_procedure_name VARCHAR2(30) := 'Get_Param_Cond';
1591: l_parameter_prefix VARCHAR2(10) := ':para';
1592: l_parameter_suffix NUMBER;
1593:
1606: END IF;
1607:
1608: -- init
1609: x_condition_sql := '';
1610: x_query_parameter := AR_GTA_TRX_UTIL.Condition_para_tbl_type();
1611: l_parameter_suffix := 0;
1612:
1613: -- if the from parameter and to parameter is null
1614: --and don't add the condition to dynamic sql
1947: --
1948: -- PARAMETERS:
1949: -- In: P_ORG_ID NUMBER
1950: -- p_transfer_id VARCHAR2
1951: -- P_trxtype_para AR_GTA_TRX_UTIL.Condition_para_tbl_type
1952: -- p_flex_para AR_GTA_TRX_UTIL.Condition_para_tbl_type
1953: -- p_other_para AR_GTA_TRX_UTIL.Condition_para_tbl_type
1954: -- p_currency_code VARCHAR2
1955: -- OUT: x_GTA_Trx_Tbl AR_GTA_TRX_UTIL.TRX_TBL_TYPE
1948: -- PARAMETERS:
1949: -- In: P_ORG_ID NUMBER
1950: -- p_transfer_id VARCHAR2
1951: -- P_trxtype_para AR_GTA_TRX_UTIL.Condition_para_tbl_type
1952: -- p_flex_para AR_GTA_TRX_UTIL.Condition_para_tbl_type
1953: -- p_other_para AR_GTA_TRX_UTIL.Condition_para_tbl_type
1954: -- p_currency_code VARCHAR2
1955: -- OUT: x_GTA_Trx_Tbl AR_GTA_TRX_UTIL.TRX_TBL_TYPE
1956:
1949: -- In: P_ORG_ID NUMBER
1950: -- p_transfer_id VARCHAR2
1951: -- P_trxtype_para AR_GTA_TRX_UTIL.Condition_para_tbl_type
1952: -- p_flex_para AR_GTA_TRX_UTIL.Condition_para_tbl_type
1953: -- p_other_para AR_GTA_TRX_UTIL.Condition_para_tbl_type
1954: -- p_currency_code VARCHAR2
1955: -- OUT: x_GTA_Trx_Tbl AR_GTA_TRX_UTIL.TRX_TBL_TYPE
1956:
1957: -- DESIGN REFERENCES:
1951: -- P_trxtype_para AR_GTA_TRX_UTIL.Condition_para_tbl_type
1952: -- p_flex_para AR_GTA_TRX_UTIL.Condition_para_tbl_type
1953: -- p_other_para AR_GTA_TRX_UTIL.Condition_para_tbl_type
1954: -- p_currency_code VARCHAR2
1955: -- OUT: x_GTA_Trx_Tbl AR_GTA_TRX_UTIL.TRX_TBL_TYPE
1956:
1957: -- DESIGN REFERENCES:
1958: -- GTA-TRANSFER-PROGRAM-TD.doc
1959: --
1991: --===========================================================================
1992: PROCEDURE Retrieve_AR_TRXs(p_org_id IN NUMBER,
1993: p_transfer_id IN NUMBER,
1994: P_query_SQL IN VARCHAR2,
1995: P_trxtype_query_para IN AR_GTA_TRX_UTIL.Condition_para_tbl_type,
1996: p_flex_query_para IN AR_GTA_TRX_UTIL.Condition_para_tbl_type,
1997: p_other_query_para IN AR_GTA_TRX_UTIL.Condition_para_tbl_type,
1998: p_currency_code IN VARCHAR2,
1999: x_GTA_TRX_TBL OUT NOCOPY AR_GTA_TRX_UTIL.TRX_TBL_TYPE) IS
1992: PROCEDURE Retrieve_AR_TRXs(p_org_id IN NUMBER,
1993: p_transfer_id IN NUMBER,
1994: P_query_SQL IN VARCHAR2,
1995: P_trxtype_query_para IN AR_GTA_TRX_UTIL.Condition_para_tbl_type,
1996: p_flex_query_para IN AR_GTA_TRX_UTIL.Condition_para_tbl_type,
1997: p_other_query_para IN AR_GTA_TRX_UTIL.Condition_para_tbl_type,
1998: p_currency_code IN VARCHAR2,
1999: x_GTA_TRX_TBL OUT NOCOPY AR_GTA_TRX_UTIL.TRX_TBL_TYPE) IS
2000:
1993: p_transfer_id IN NUMBER,
1994: P_query_SQL IN VARCHAR2,
1995: P_trxtype_query_para IN AR_GTA_TRX_UTIL.Condition_para_tbl_type,
1996: p_flex_query_para IN AR_GTA_TRX_UTIL.Condition_para_tbl_type,
1997: p_other_query_para IN AR_GTA_TRX_UTIL.Condition_para_tbl_type,
1998: p_currency_code IN VARCHAR2,
1999: x_GTA_TRX_TBL OUT NOCOPY AR_GTA_TRX_UTIL.TRX_TBL_TYPE) IS
2000:
2001: l_normal_exception EXCEPTION;
1995: P_trxtype_query_para IN AR_GTA_TRX_UTIL.Condition_para_tbl_type,
1996: p_flex_query_para IN AR_GTA_TRX_UTIL.Condition_para_tbl_type,
1997: p_other_query_para IN AR_GTA_TRX_UTIL.Condition_para_tbl_type,
1998: p_currency_code IN VARCHAR2,
1999: x_GTA_TRX_TBL OUT NOCOPY AR_GTA_TRX_UTIL.TRX_TBL_TYPE) IS
2000:
2001: l_normal_exception EXCEPTION;
2002: l_repeat_exception EXCEPTION;
2003: l_no_tax_line_exception EXCEPTION;
2003: l_no_tax_line_exception EXCEPTION;
2004: l_procedure_name VARCHAR2(30) := 'Retrieve_AR_TRXs';
2005: l_cursor NUMBER;
2006: l_sql_exec_ret NUMBER;
2007: l_trx_header AR_GTA_TRX_UTIL.TRX_header_rec_TYPE;
2008: l_trx_header_init AR_GTA_TRX_UTIL.TRX_header_rec_TYPE;
2009: l_trx_line AR_GTA_TRX_UTIL.TRX_line_rec_TYPE;
2010: l_trx_line_init AR_GTA_TRX_UTIL.TRX_line_rec_TYPE;
2011: l_trx_lines AR_GTA_TRX_UTIL.TRX_line_tbl_TYPE := AR_GTA_TRX_UTIL.TRX_line_tbl_TYPE();
2004: l_procedure_name VARCHAR2(30) := 'Retrieve_AR_TRXs';
2005: l_cursor NUMBER;
2006: l_sql_exec_ret NUMBER;
2007: l_trx_header AR_GTA_TRX_UTIL.TRX_header_rec_TYPE;
2008: l_trx_header_init AR_GTA_TRX_UTIL.TRX_header_rec_TYPE;
2009: l_trx_line AR_GTA_TRX_UTIL.TRX_line_rec_TYPE;
2010: l_trx_line_init AR_GTA_TRX_UTIL.TRX_line_rec_TYPE;
2011: l_trx_lines AR_GTA_TRX_UTIL.TRX_line_tbl_TYPE := AR_GTA_TRX_UTIL.TRX_line_tbl_TYPE();
2012: l_trx_rec AR_GTA_TRX_UTIL.TRX_REC_TYPE;
2005: l_cursor NUMBER;
2006: l_sql_exec_ret NUMBER;
2007: l_trx_header AR_GTA_TRX_UTIL.TRX_header_rec_TYPE;
2008: l_trx_header_init AR_GTA_TRX_UTIL.TRX_header_rec_TYPE;
2009: l_trx_line AR_GTA_TRX_UTIL.TRX_line_rec_TYPE;
2010: l_trx_line_init AR_GTA_TRX_UTIL.TRX_line_rec_TYPE;
2011: l_trx_lines AR_GTA_TRX_UTIL.TRX_line_tbl_TYPE := AR_GTA_TRX_UTIL.TRX_line_tbl_TYPE();
2012: l_trx_rec AR_GTA_TRX_UTIL.TRX_REC_TYPE;
2013: l_trx_rec_init AR_GTA_TRX_UTIL.TRX_REC_TYPE;
2006: l_sql_exec_ret NUMBER;
2007: l_trx_header AR_GTA_TRX_UTIL.TRX_header_rec_TYPE;
2008: l_trx_header_init AR_GTA_TRX_UTIL.TRX_header_rec_TYPE;
2009: l_trx_line AR_GTA_TRX_UTIL.TRX_line_rec_TYPE;
2010: l_trx_line_init AR_GTA_TRX_UTIL.TRX_line_rec_TYPE;
2011: l_trx_lines AR_GTA_TRX_UTIL.TRX_line_tbl_TYPE := AR_GTA_TRX_UTIL.TRX_line_tbl_TYPE();
2012: l_trx_rec AR_GTA_TRX_UTIL.TRX_REC_TYPE;
2013: l_trx_rec_init AR_GTA_TRX_UTIL.TRX_REC_TYPE;
2014: l_log_str VARCHAR2(4000);
2007: l_trx_header AR_GTA_TRX_UTIL.TRX_header_rec_TYPE;
2008: l_trx_header_init AR_GTA_TRX_UTIL.TRX_header_rec_TYPE;
2009: l_trx_line AR_GTA_TRX_UTIL.TRX_line_rec_TYPE;
2010: l_trx_line_init AR_GTA_TRX_UTIL.TRX_line_rec_TYPE;
2011: l_trx_lines AR_GTA_TRX_UTIL.TRX_line_tbl_TYPE := AR_GTA_TRX_UTIL.TRX_line_tbl_TYPE();
2012: l_trx_rec AR_GTA_TRX_UTIL.TRX_REC_TYPE;
2013: l_trx_rec_init AR_GTA_TRX_UTIL.TRX_REC_TYPE;
2014: l_log_str VARCHAR2(4000);
2015: l_error_string VARCHAR2(1000);
2008: l_trx_header_init AR_GTA_TRX_UTIL.TRX_header_rec_TYPE;
2009: l_trx_line AR_GTA_TRX_UTIL.TRX_line_rec_TYPE;
2010: l_trx_line_init AR_GTA_TRX_UTIL.TRX_line_rec_TYPE;
2011: l_trx_lines AR_GTA_TRX_UTIL.TRX_line_tbl_TYPE := AR_GTA_TRX_UTIL.TRX_line_tbl_TYPE();
2012: l_trx_rec AR_GTA_TRX_UTIL.TRX_REC_TYPE;
2013: l_trx_rec_init AR_GTA_TRX_UTIL.TRX_REC_TYPE;
2014: l_log_str VARCHAR2(4000);
2015: l_error_string VARCHAR2(1000);
2016: l_error_flag NUMBER := 0;
2009: l_trx_line AR_GTA_TRX_UTIL.TRX_line_rec_TYPE;
2010: l_trx_line_init AR_GTA_TRX_UTIL.TRX_line_rec_TYPE;
2011: l_trx_lines AR_GTA_TRX_UTIL.TRX_line_tbl_TYPE := AR_GTA_TRX_UTIL.TRX_line_tbl_TYPE();
2012: l_trx_rec AR_GTA_TRX_UTIL.TRX_REC_TYPE;
2013: l_trx_rec_init AR_GTA_TRX_UTIL.TRX_REC_TYPE;
2014: l_log_str VARCHAR2(4000);
2015: l_error_string VARCHAR2(1000);
2016: l_error_flag NUMBER := 0;
2017:
2215: 'Begin Procedure. ');
2216: END IF;
2217:
2218: -- init x_GTA_TRX_TBL
2219: x_GTA_TRX_TBL := AR_GTA_TRX_UTIL.TRX_TBL_TYPE();
2220:
2221: l_log_str := p_query_sql;
2222: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2223: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2396: END IF;
2397:
2398: -- init trx header and trx lines
2399: l_trx_header := l_trx_header_init;
2400: l_trx_lines := AR_GTA_TRX_UTIL.TRX_line_tbl_TYPE();
2401: l_error_flag := 0;
2402:
2403: -- get customer_trx_id of the AR_trx_header
2404: dbms_sql.column_value(l_cursor, 1, l_customer_trx_id);
2576: -- Since if tansaction type is credit memo, the paying customer is null,
2577: -- can not get bank information.
2578: /*
2579: -- call util procedure to get bank info
2580: ar_gta_trx_util.get_bank_info( p_customer_trx_id => l_customer_trx_id
2581: ,p_org_id => p_org_id
2582: ,x_bank_name => l_apb_customer_bank_name
2583: ,x_bank_branch_name => l_apb_bank_branch_name
2584: ,x_bank_account_name => l_apba_bank_account_name
2780: IF l_origin_trx_id IS NOT NULL THEN
2781: -- call util procedure to get bank info for 'CM',
2782: -- since paying customer is null, have to use the original invoice
2783: --The following code is changed by Yao Zhang for bug 8234250
2784: ar_gta_trx_util.get_cm_bank_info(p_customer_trx_id => l_customer_trx_id,
2785: p_org_id => p_org_id,
2786: p_original_trx_id => l_origin_trx_id,
2787: x_bank_name => l_apb_customer_bank_name,
2788: x_bank_branch_name => l_apb_bank_branch_name,
2790: x_bank_account_num => l_apba_bank_account_num);
2791: --Yao Zhang changed end for bug 8234250
2792: ELSE
2793:
2794: ar_gta_trx_util.get_bank_info(p_customer_trx_id => l_customer_trx_id,
2795: p_org_id => p_org_id,
2796: x_bank_name => l_apb_customer_bank_name,
2797: x_bank_branch_name => l_apb_bank_branch_name,
2798: x_bank_account_name => l_apba_bank_account_name,
2862: -- end insert data into trx_header
2863:
2864: -- begin fetch lines, and insert all value into trx_line;
2865: -- init l_trx_lines
2866: l_trx_lines := AR_GTA_TRX_UTIL.TRX_line_tbl_TYPE();
2867: --Yao add for bug#9830678
2868: BEGIN
2869: SELECT parameter_value
2870: INTO l_discount_on_invoice
3110:
3111: -- 29-JUN-2006 Modified by Shujuan for bug 5168900,
3112: -- Added return parameter p_tax_curr_unit_price
3113: -- in order to get the unit price of tax currency
3114: ar_gta_trx_util.get_info_from_ebtax(p_org_id => p_org_id,
3115: p_trx_id => l_customer_trx_id,
3116: p_trx_line_id => l_customer_trx_line_id,
3117: p_tax_type_code => l_vat_tax_type,
3118: x_tax_amount => l_tax_amount_func_curr,