[Home] [Help]
450: dct.conversion_type,
451: dri.conversion_rate,
452: NVL(dri.inverse_conversion_rate, 1/conversion_rate) inverse_conversion_rate,
453: dri.mode_flag
454: FROM gl_daily_rates_interface dri,
455: gl_daily_conversion_types dct
456: WHERE mode_flag IN ('I', 'D', 'T', 'N')
457: AND dct.user_conversion_type = dri.user_conversion_type;
458:
474: gl_message.func_ent('Daily Rates Import');
475:
476: -- GL_CRM_UTILITIES_PKG.DEBUG_MODE := TRUE;
477:
478: UPDATE gl_daily_rates_interface ri
479: SET ERROR_CODE =
480: (SELECT DECODE
481: (ct.ROWID,
482: NULL, 'NONEXISTANT_CONVERSION_TYPE',
583: 1),
584: -1, 'EMU_TO_CURRENCY',
585: 0, 'EMU_TO_CURRENCY',
586: ''))))))))))))))))))
587: FROM gl_daily_rates_interface ri2,
588: gl_daily_conversion_types ct,
589: fnd_currencies from_curr,
590: fnd_currencies to_curr
591: WHERE ri2.ROWID = ri.ROWID
598: -- N - no override GL rates
599: -- T - Treasury Insert (override existing GL rates).
600: /*
601: -- Update mode flag to 'X' for each erroneous row
602: UPDATE gl_daily_rates_interface
603: SET mode_flag = 'X'
604: WHERE mode_flag IN('I', 'D') AND ERROR_CODE IS NOT NULL;
605:
606: -- Update mode flag to 'X' for each erroneous row from Treasury
603: SET mode_flag = 'X'
604: WHERE mode_flag IN('I', 'D') AND ERROR_CODE IS NOT NULL;
605:
606: -- Update mode flag to 'X' for each erroneous row from Treasury
607: UPDATE gl_daily_rates_interface
608: SET mode_flag = 'F'
609: WHERE mode_flag IN('T', 'N') AND ERROR_CODE IS NOT NULL;
610: */
611:
608: SET mode_flag = 'F'
609: WHERE mode_flag IN('T', 'N') AND ERROR_CODE IS NOT NULL;
610: */
611:
612: UPDATE GL_DAILY_RATES_INTERFACE T1
613: SET T1.error_code = 'DUPLICATE_ROWS'
614: WHERE
615: (T1.USER_CONVERSION_TYPE,
616: T1.FROM_CONVERSION_DATE, T1.TO_CONVERSION_DATE)
616: T1.FROM_CONVERSION_DATE, T1.TO_CONVERSION_DATE)
617: IN
618: (SELECT T2.USER_CONVERSION_TYPE,
619: T2.FROM_CONVERSION_DATE, T2.TO_CONVERSION_DATE
620: FROM GL_DAILY_RATES_INTERFACE T2
621: WHERE (T2.FROM_CURRENCY = T1.FROM_CURRENCY
622: OR T2.FROM_CURRENCY = T1.TO_CURRENCY)
623: AND (T2.TO_CURRENCY = T1.TO_CURRENCY
624: OR T2.TO_CURRENCY = T1.FROM_CURRENCY)
627: HAVING count(*) > 1)
628: AND mode_flag IN ('I', 'D', 'T', 'N');
629:
630: -- Update mode flag to X/F for each erroneous row
631: UPDATE gl_daily_rates_interface ri
632: SET mode_flag =
633: Decode(mode_flag,'T','F','N','F','I','X','D','X',mode_flag)
634: WHERE (mode_flag IN('T', 'N','I','D') AND ERROR_CODE IS NOT NULL)
635: OR (mode_flag = 'N'
632: SET mode_flag =
633: Decode(mode_flag,'T','F','N','F','I','X','D','X',mode_flag)
634: WHERE (mode_flag IN('T', 'N','I','D') AND ERROR_CODE IS NOT NULL)
635: OR (mode_flag = 'N'
636: AND (EXISTS (SELECT 1 FROM gl_daily_rates dr,
637: gl_daily_conversion_types ct
638: WHERE dr.from_currency = ri.from_currency
639: AND dr.to_currency = ri.to_currency
640: AND dr.conversion_type = ct.conversion_type
640: AND dr.conversion_type = ct.conversion_type
641: AND ct.user_conversion_type = ri.user_conversion_type
642: AND dr.conversion_date BETWEEN ri.from_conversion_date
643: AND ri.to_conversion_date)
644: OR EXISTS (SELECT 1 FROM gl_daily_rates dr,
645: gl_daily_conversion_types ct
646: WHERE dr.from_currency = ri.to_currency
647: AND dr.to_currency = ri.from_currency
648: AND dr.conversion_type = ct.conversion_type
654: fnd_file.put_line(fnd_file.LOG,
655: SQL%ROWCOUNT || ' Error records');
656: END IF;
657:
658: UPDATE gl_daily_rates_interface
659: SET inverse_conversion_rate = 1 / conversion_rate
660: WHERE inverse_conversion_rate IS NULL AND conversion_rate > 0;
661:
662: IF DEBUG_MODE THEN
661:
662: IF DEBUG_MODE THEN
663: fnd_file.put_line
664: (fnd_file.LOG,
665: 'Finish Validation on GL_DAILY_RATES_INTERFACE table.');
666: END IF;
667:
668: SELECT from_currency,
669: to_currency,
696: daily_rate_validation_failure.r_type,
697: daily_rate_validation_failure.r_rate,
698: daily_rate_validation_failure.r_inverse_rate,
699: daily_rate_validation_failure.r_error_code
700: FROM gl_daily_rates_interface
701: WHERE mode_flag IN('X', 'F');
702:
703: FOR i IN 1 .. daily_rate_validation_failure.r_from_curr.COUNT LOOP
704: IF page_line_count = 1 THEN
750: -- interface table and then run Concurrent Program via SRS
751:
752: -- Check if average balances is used in the system
753:
754: --- will run the gl_rate_rates here, which will remove all the gl_daily_rates lines.
755: fnd_profile.get('GL_CRM_CR_OVERRIDE', golden_rule_flag);
756:
757: IF DEBUG_MODE THEN
758: gl_message.write_log('CRM0004', 1, 'VALUE', golden_rule_flag);
779: sys_daily_rate_cannot_delete.r_type,
780: sys_daily_rate_cannot_delete.r_conversion_date,
781: sys_daily_rate_cannot_delete.r_rate,
782: sys_daily_rate_cannot_delete.r_rate_source_code
783: FROM gl_daily_rates dr,
784: gl_daily_conversion_types gldct,
785: gl_row_multipliers rm,
786: gl_daily_conversion_types ct,
787: gl_daily_rates_interface ri
783: FROM gl_daily_rates dr,
784: gl_daily_conversion_types gldct,
785: gl_row_multipliers rm,
786: gl_daily_conversion_types ct,
787: gl_daily_rates_interface ri
788: WHERE ri.mode_flag = 'D'
789: AND ct.user_conversion_type = ri.user_conversion_type || ''
790: AND rm.multiplier BETWEEN 1 AND (TRUNC(ri.to_conversion_date)
791: - TRUNC(ri.from_conversion_date)
861: sys_daily_rate_cannot_override.r_type,
862: sys_daily_rate_cannot_override.r_conversion_date,
863: sys_daily_rate_cannot_override.r_rate,
864: sys_daily_rate_cannot_override.r_rate_source_code
865: FROM gl_daily_rates dr,
866: gl_daily_conversion_types gldct,
867: gl_row_multipliers rm,
868: gl_daily_conversion_types ct,
869: gl_daily_rates_interface ri
865: FROM gl_daily_rates dr,
866: gl_daily_conversion_types gldct,
867: gl_row_multipliers rm,
868: gl_daily_conversion_types ct,
869: gl_daily_rates_interface ri
870: WHERE ct.user_conversion_type = ri.user_conversion_type || ''
871: AND rm.multiplier BETWEEN 1 AND (TRUNC(ri.to_conversion_date)
872: - TRUNC(ri.from_conversion_date)
873: + 1)
924:
925: -- Update used_for_ab_translation = 'Y' if the currency and
926: -- conversion type is used in average translation in the system
927: -- R12 Change in the following update
928: UPDATE gl_daily_rates_interface ri
929: SET used_for_ab_translation =
930: ( SELECT nvl(max('Y'), 'N')
931: FROM gl_daily_conversion_types ct,
932: gl_ledgers led,
948: BEGIN
949:
950: SELECT 'Y'
951: INTO l_launch_rate_change
952: FROM gl_daily_rates_interface
953: WHERE used_for_ab_translation = 'Y'
954: AND ROWNUM < 2;
955:
956: EXCEPTION
966: (fnd_file.LOG,
967: 'Marking D for rates meant to delete with types used for ab translation');
968: END IF;
969:
970: UPDATE gl_daily_rates dr
971: SET status_code = 'D'
972: WHERE ( (dr.rate_source_code IS NULL)
973: OR ( dr.rate_source_code IN('USER', 'TREASURY')
974: AND golden_rule_flag <> 'USER')
982: TRUNC(ri.from_conversion_date) + rm.multiplier
983: - 1
984: FROM gl_row_multipliers rm,
985: gl_daily_conversion_types ct,
986: gl_daily_rates_interface ri
987: WHERE ri.mode_flag = 'D'
988: AND ri.used_for_ab_translation = 'Y'
989: AND ct.user_conversion_type =
990: ri.user_conversion_type || ''
1000: TRUNC(ri.from_conversion_date) + rm.multiplier
1001: - 1
1002: FROM gl_row_multipliers rm,
1003: gl_daily_conversion_types ct,
1004: gl_daily_rates_interface ri
1005: WHERE ri.mode_flag = 'D'
1006: AND ri.used_for_ab_translation = 'Y'
1007: AND ct.user_conversion_type =
1008: ri.user_conversion_type || ''
1013: (ri.from_conversion_date)
1014: + 1
1015: );
1016:
1017: -- Delete existing rows with conversion rate in GL_DAILY_RATES
1018: IF DEBUG_MODE THEN
1019: fnd_file.put_line(fnd_file.LOG,
1020: SQL%ROWCOUNT || ' rows marked');
1021: fnd_file.put_line
1022: (fnd_file.LOG,
1023: 'Deleting rates meant for insert and for deleted rates with types not used for ab translation');
1024: END IF;
1025:
1026: DELETE gl_daily_rates dr
1027: WHERE ( (dr.rate_source_code IS NULL)
1028: OR ( dr.rate_source_code IN('USER', 'TREASURY')
1029: AND golden_rule_flag <> 'USER')
1030: OR golden_rule_flag = 'USER')
1037: TRUNC(ri.from_conversion_date)
1038: + rm.multiplier - 1
1039: FROM gl_row_multipliers rm,
1040: gl_daily_conversion_types ct,
1041: gl_daily_rates_interface ri
1042: WHERE ( ri.mode_flag IN('I', 'T')
1043: OR ( ri.mode_flag = 'D'
1044: AND ri.used_for_ab_translation <> 'Y'))
1045: AND ct.user_conversion_type =
1056: TRUNC(ri.from_conversion_date)
1057: + rm.multiplier - 1
1058: FROM gl_row_multipliers rm,
1059: gl_daily_conversion_types ct,
1060: gl_daily_rates_interface ri
1061: WHERE ( ri.mode_flag IN('I', 'T')
1062: OR ( ri.mode_flag = 'D'
1063: AND ri.used_for_ab_translation <> 'Y'))
1064: AND ct.user_conversion_type =
1081: IF DEBUG_MODE THEN
1082: fnd_file.put_line(fnd_file.LOG, 'Insert all rates.');
1083: END IF;
1084:
1085: INSERT INTO gl_daily_rates
1086: (from_currency, to_currency, conversion_date,
1087: conversion_type, conversion_rate, status_code,
1088: creation_date, created_by, last_update_date,
1089: last_updated_by, last_update_login, CONTEXT,
1105: ri.attribute14, ri.attribute15,
1106: DECODE(ri.mode_flag, 'T', 'TREASURY', 'N', 'TREASURY', 'USER')
1107: FROM gl_row_multipliers rm,
1108: gl_daily_conversion_types ct,
1109: gl_daily_rates_interface ri
1110: WHERE ri.mode_flag IN('I', 'T', 'N')
1111: AND ct.user_conversion_type = ri.user_conversion_type || ''
1112: AND rm.multiplier BETWEEN 1
1113: AND TRUNC(ri.to_conversion_date)
1114: - TRUNC(ri.from_conversion_date)
1115: + 1
1116: AND NOT EXISTS(
1117: SELECT 1
1118: FROM gl_daily_rates dr
1119: WHERE dr.from_currency = ri.from_currency
1120: AND dr.to_currency = ri.to_currency
1121: AND dr.conversion_type = ct.conversion_type
1122: AND dr.conversion_date =
1137: ri.attribute14, ri.attribute15,
1138: DECODE(ri.mode_flag, 'T', 'TREASURY', 'N', 'TREASURY', 'USER')
1139: FROM gl_row_multipliers rm,
1140: gl_daily_conversion_types ct,
1141: gl_daily_rates_interface ri
1142: WHERE ri.mode_flag IN('I', 'T', 'N')
1143: AND ct.user_conversion_type = ri.user_conversion_type || ''
1144: AND rm.multiplier BETWEEN 1
1145: AND TRUNC(ri.to_conversion_date)
1146: - TRUNC(ri.from_conversion_date)
1147: + 1
1148: AND NOT EXISTS(
1149: SELECT 1
1150: FROM gl_daily_rates dr
1151: WHERE dr.from_currency = ri.to_currency
1152: AND dr.to_currency = ri.from_currency
1153: AND dr.conversion_type = ct.conversion_type
1154: AND dr.conversion_date =
1191:
1192: --- Cross Rates Calculation ---
1193: SELECT COUNT(*)
1194: INTO rows_need_calculation
1195: FROM gl_daily_rates_interface
1196: WHERE mode_flag IN('I', 'D', 'T', 'N')
1197: AND user_conversion_type IN(
1198: SELECT user_conversion_type
1199: FROM gl_daily_conversion_types gct,
1211: END IF;
1212: END IF;
1213:
1214: IF rows_need_calculation > 0 THEN
1215: -- Delete all valid rows in GL_DAILY_RATES_INTERFACE and do not need
1216: -- crossing rates calculation
1217: DELETE FROM gl_daily_rates_interface
1218: WHERE mode_flag IN('I', 'D', 'T', 'N')
1219: AND user_conversion_type NOT IN(
1213:
1214: IF rows_need_calculation > 0 THEN
1215: -- Delete all valid rows in GL_DAILY_RATES_INTERFACE and do not need
1216: -- crossing rates calculation
1217: DELETE FROM gl_daily_rates_interface
1218: WHERE mode_flag IN('I', 'D', 'T', 'N')
1219: AND user_conversion_type NOT IN(
1220: SELECT user_conversion_type
1221: FROM gl_daily_conversion_types gct,
1223: WHERE gct.conversion_type = gcrs.conversion_type);
1224:
1225: gl_message.func_ent('Cross Rates Calculation');
1226:
1227: -- select all the lines who can be calculate cross rate from the gl_daily_rates table
1228: IF DEBUG_MODE THEN
1229: fnd_file.put_line(fnd_file.LOG, 'Clean gl_cross_rate_temp.');
1230: END IF;
1231:
1259: glcrs.pivot_currency, gldri.inverse_conversion_rate,
1260: gldri.conversion_rate),
1261: DECODE(gldri.mode_flag, 'D', 'D', 'I'),
1262: gldri.used_for_ab_translation
1263: FROM gl_daily_rates_interface gldri,
1264: gl_daily_conversion_types gldct,
1265: gl_cross_rate_rules glcrs,
1266: gl_cross_rate_rule_dtls glcrsd
1267: WHERE gldri.mode_flag IN('I', 'D', 'T', 'N')
1357: usr_daily_rate_cannot_delete.r_type,
1358: usr_daily_rate_cannot_delete.r_conversion_date,
1359: usr_daily_rate_cannot_delete.r_rate,
1360: usr_daily_rate_cannot_delete.r_rate_source_code
1361: FROM gl_daily_rates gldr,
1362: gl_daily_conversion_types gldct,
1363: gl_cross_rate_temp glcrt,
1364: gl_row_multipliers glrm
1365: WHERE gldr.conversion_type = gldct.conversion_type
1430: usr_daily_rate_cannot_override.r_type,
1431: usr_daily_rate_cannot_override.r_conversion_date,
1432: usr_daily_rate_cannot_override.r_rate,
1433: usr_daily_rate_cannot_override.r_rate_source_code
1434: FROM gl_daily_rates gldr,
1435: gl_daily_conversion_types gldct,
1436: gl_cross_rate_temp glcrt,
1437: gl_row_multipliers glrm
1438: WHERE gldr.conversion_type = gldct.conversion_type
1502: 'Mark D for Cross Rates');
1503: END IF;
1504:
1505: -- For each row with conversion rate in
1506: -- GL_DAILY_RATES_INTERFACE where mode = 'D',
1507: -- set status_code to 'D' in the corresponding row in GL_DAILY_RATES.
1508: UPDATE gl_daily_rates gldr
1509: SET status_code = 'D'
1510: WHERE ( (gldr.rate_source_code IS NOT NULL
1503: END IF;
1504:
1505: -- For each row with conversion rate in
1506: -- GL_DAILY_RATES_INTERFACE where mode = 'D',
1507: -- set status_code to 'D' in the corresponding row in GL_DAILY_RATES.
1508: UPDATE gl_daily_rates gldr
1509: SET status_code = 'D'
1510: WHERE ( (gldr.rate_source_code IS NOT NULL
1511: AND gldr.rate_source_code = 'SYSTEM'
1504:
1505: -- For each row with conversion rate in
1506: -- GL_DAILY_RATES_INTERFACE where mode = 'D',
1507: -- set status_code to 'D' in the corresponding row in GL_DAILY_RATES.
1508: UPDATE gl_daily_rates gldr
1509: SET status_code = 'D'
1510: WHERE ( (gldr.rate_source_code IS NOT NULL
1511: AND gldr.rate_source_code = 'SYSTEM'
1512: AND golden_rule_flag <> 'SYSTEM')
1520: TRUNC(glcrt.from_conversion_date)
1521: + glrm.multiplier - 1
1522: FROM gl_row_multipliers glrm,
1523: gl_cross_rate_temp glcrt,
1524: gl_daily_rates gldr
1525: WHERE glcrt.mode_flag = 'D'
1526: AND glcrt.used_for_ab_translation = 'Y'
1527: AND gldr.from_currency = glcrt.from_currency
1528: AND gldr.to_currency = glcrt.to_currency
1542: TRUNC(glcrt.from_conversion_date)
1543: + glrm.multiplier - 1
1544: FROM gl_row_multipliers glrm,
1545: gl_cross_rate_temp glcrt,
1546: gl_daily_rates gldr
1547: WHERE glcrt.mode_flag = 'D'
1548: AND glcrt.used_for_ab_translation = 'Y'
1549: AND gldr.to_currency = glcrt.from_currency
1550: AND gldr.from_currency = glcrt.to_currency
1567: (fnd_file.LOG,
1568: 'Delete for Cross Rates');
1569: END IF;
1570:
1571: DELETE FROM gl_daily_rates gldr
1572: WHERE ( (gldr.rate_source_code IS NOT NULL
1573: AND gldr.rate_source_code = 'SYSTEM'
1574: AND golden_rule_flag <> 'SYSTEM')
1575: OR golden_rule_flag = 'SYSTEM')
1582: TRUNC(glcrt.from_conversion_date)
1583: + glrm.multiplier - 1
1584: FROM gl_row_multipliers glrm,
1585: gl_cross_rate_temp glcrt,
1586: gl_daily_rates gldr
1587: WHERE ( glcrt.mode_flag in ('I', 'T')
1588: OR ( glcrt.mode_flag = 'D'
1589: AND glcrt.used_for_ab_translation <>
1590: 'Y'))
1607: TRUNC(glcrt.from_conversion_date)
1608: + glrm.multiplier - 1
1609: FROM gl_row_multipliers glrm,
1610: gl_cross_rate_temp glcrt,
1611: gl_daily_rates gldr
1612: WHERE ( glcrt.mode_flag in ('I', 'T')
1613: OR ( glcrt.mode_flag = 'D'
1614: AND glcrt.used_for_ab_translation <>
1615: 'Y'))
1635:
1636: UPDATE gl_cross_rate_temp rt
1637: SET mode_flag = 'F'
1638: WHERE mode_flag = 'N'
1639: AND (EXISTS (SELECT 1 FROM gl_daily_rates dr
1640: WHERE dr.from_currency = rt.from_currency
1641: AND dr.to_currency = rt.to_currency
1642: AND dr.conversion_type = rt.conversion_type
1643: AND dr.conversion_date BETWEEN rt.from_conversion_date
1641: AND dr.to_currency = rt.to_currency
1642: AND dr.conversion_type = rt.conversion_type
1643: AND dr.conversion_date BETWEEN rt.from_conversion_date
1644: AND rt.to_conversion_date)
1645: OR EXISTS (SELECT 1 FROM gl_daily_rates dr
1646: WHERE dr.from_currency = rt.to_currency
1647: AND dr.to_currency = rt.from_currency
1648: AND dr.conversion_type = rt.conversion_type
1649: AND dr.conversion_date BETWEEN rt.from_conversion_date
1654: fnd_file.put_line(fnd_file.LOG,
1655: 'creating all cross rates ....');
1656: END IF;
1657:
1658: INSERT INTO gl_daily_rates
1659: (from_currency, to_currency, conversion_date,
1660: conversion_type, conversion_rate, status_code,
1661: creation_date, created_by, last_update_date,
1662: last_updated_by, last_update_login,
1669: DECODE(glcrt.used_for_ab_translation, 'Y', 'O', 'C'),
1670: SYSDATE, 1, SYSDATE, 1, 1, 'SYSTEM'
1671: FROM gl_row_multipliers glrm,
1672: gl_cross_rate_temp glcrt,
1673: gl_daily_rates gldr
1674: WHERE glcrt.mode_flag in ('I', 'T', 'N')
1675: AND gldr.from_currency = glcrt.pivot_currency
1676: AND gldr.to_currency = glcrt.to_currency
1677: AND gldr.conversion_type = glcrt.conversion_type
1685: (glcrt.from_conversion_date)
1686: + 1
1687: AND ( NOT EXISTS(
1688: SELECT 1
1689: FROM gl_daily_rates dr
1690: WHERE dr.from_currency = glcrt.from_currency
1691: AND dr.to_currency = glcrt.to_currency
1692: AND dr.conversion_type =
1693: glcrt.conversion_type
1695: TRUNC(glcrt.from_conversion_date)
1696: + glrm.multiplier - 1)
1697: OR NOT EXISTS(
1698: SELECT 1
1699: FROM gl_daily_rates dr
1700: WHERE dr.from_currency = glcrt.to_currency
1701: AND dr.to_currency = glcrt.from_currency
1702: AND dr.conversion_type =
1703: glcrt.conversion_type
1713: DECODE(glcrt.used_for_ab_translation, 'Y', 'O', 'C'),
1714: SYSDATE, 1, SYSDATE, 1, 1, 'SYSTEM'
1715: FROM gl_row_multipliers glrm,
1716: gl_cross_rate_temp glcrt,
1717: gl_daily_rates gldr
1718: WHERE glcrt.mode_flag in ('I', 'T', 'N')
1719: AND gldr.to_currency = glcrt.pivot_currency
1720: AND gldr.from_currency = glcrt.to_currency
1721: AND gldr.conversion_type = glcrt.conversion_type
1729: (glcrt.from_conversion_date)
1730: + 1
1731: AND ( NOT EXISTS(
1732: SELECT 1
1733: FROM gl_daily_rates dr
1734: WHERE dr.from_currency = glcrt.from_currency
1735: AND dr.to_currency = glcrt.to_currency
1736: AND dr.conversion_type =
1737: glcrt.conversion_type
1739: TRUNC(glcrt.from_conversion_date)
1740: + glrm.multiplier - 1)
1741: OR NOT EXISTS(
1742: SELECT 1
1743: FROM gl_daily_rates dr
1744: WHERE dr.from_currency = glcrt.to_currency
1745: AND dr.to_currency = glcrt.from_currency
1746: AND dr.conversion_type =
1747: glcrt.conversion_type
1774: END IF;
1775:
1776: ---- End Calculation
1777:
1778: DELETE FROM gl_daily_rates_interface
1779: WHERE mode_flag IN('I', 'D', 'T', 'N');
1780:
1781: -- Launch the Rate Change Program if needed
1782: IF (l_launch_rate_change = 'Y') THEN
1812: ('WARNING',
1813: 'Exceptions occurs, please check the output for details.');
1814: END IF;
1815:
1816: DELETE FROM gl_daily_rates_interface
1817: WHERE mode_flag IN('I', 'D', 'T', 'N');
1818: END daily_rates_import;
1819:
1820: -------------------------------------------------------------------