DBA Data[Home] [Help]

APPS.PJI_FM_SUM_MAIN dependencies on PJI_UTILS

Line 67: nvl(PJI_UTILS.GET_PARAMETER('CONFIG_PROJ_PERF_FLAG'), 'N');

63: l_settings_profit_flag := nvl(l_settings_profit_flag, 'N');
64: l_settings_util_flag := nvl(l_settings_util_flag, 'N');
65:
66: l_params_proj_perf_flag :=
67: nvl(PJI_UTILS.GET_PARAMETER('CONFIG_PROJ_PERF_FLAG'), 'N');
68: l_params_cost_flag :=
69: nvl(PJI_UTILS.GET_PARAMETER('CONFIG_COST_FLAG'), 'N');
70: l_params_profit_flag :=
71: nvl(PJI_UTILS.GET_PARAMETER('CONFIG_PROFIT_FLAG'), 'N');

Line 69: nvl(PJI_UTILS.GET_PARAMETER('CONFIG_COST_FLAG'), 'N');

65:
66: l_params_proj_perf_flag :=
67: nvl(PJI_UTILS.GET_PARAMETER('CONFIG_PROJ_PERF_FLAG'), 'N');
68: l_params_cost_flag :=
69: nvl(PJI_UTILS.GET_PARAMETER('CONFIG_COST_FLAG'), 'N');
70: l_params_profit_flag :=
71: nvl(PJI_UTILS.GET_PARAMETER('CONFIG_PROFIT_FLAG'), 'N');
72: l_params_util_flag :=
73: nvl(PJI_UTILS.GET_PARAMETER('CONFIG_UTIL_FLAG'), 'N');

Line 71: nvl(PJI_UTILS.GET_PARAMETER('CONFIG_PROFIT_FLAG'), 'N');

67: nvl(PJI_UTILS.GET_PARAMETER('CONFIG_PROJ_PERF_FLAG'), 'N');
68: l_params_cost_flag :=
69: nvl(PJI_UTILS.GET_PARAMETER('CONFIG_COST_FLAG'), 'N');
70: l_params_profit_flag :=
71: nvl(PJI_UTILS.GET_PARAMETER('CONFIG_PROFIT_FLAG'), 'N');
72: l_params_util_flag :=
73: nvl(PJI_UTILS.GET_PARAMETER('CONFIG_UTIL_FLAG'), 'N');
74:
75: if (l_settings_profit_flag = 'Y' and l_settings_cost_flag = 'N') then

Line 73: nvl(PJI_UTILS.GET_PARAMETER('CONFIG_UTIL_FLAG'), 'N');

69: nvl(PJI_UTILS.GET_PARAMETER('CONFIG_COST_FLAG'), 'N');
70: l_params_profit_flag :=
71: nvl(PJI_UTILS.GET_PARAMETER('CONFIG_PROFIT_FLAG'), 'N');
72: l_params_util_flag :=
73: nvl(PJI_UTILS.GET_PARAMETER('CONFIG_UTIL_FLAG'), 'N');
74:
75: if (l_settings_profit_flag = 'Y' and l_settings_cost_flag = 'N') then
76: update PJI_SYSTEM_SETTINGS
77: set CONFIG_COST_FLAG = 'Y';

Line 91: PJI_UTILS.WRITE2LOG('Error: ' || l_setup_error);

87: if ((l_settings_proj_perf_flag = 'N' and l_params_proj_perf_flag = 'Y') or
88: (l_settings_cost_flag = 'N' and l_params_cost_flag = 'Y') or
89: (l_settings_profit_flag = 'N' and l_params_profit_flag = 'Y') or
90: (l_settings_util_flag = 'N' and l_params_util_flag = 'Y')) then
91: PJI_UTILS.WRITE2LOG('Error: ' || l_setup_error);
92: commit;
93: dbms_standard.raise_application_error(-20040, l_setup_error);
94: end if;
95:

Line 145: PJI_UTILS.WRITE2LOG('Error: ' || l_dangling_error);

141: PJI_PROCESS_UTIL.SET_PROCESS_PARAMETER
142: (g_process, 'TRANSITION', 'N');
143: l_transition_flag := 'N';
144:
145: PJI_UTILS.WRITE2LOG('Error: ' || l_dangling_error);
146: PJI_UTILS.WRITE2OUT('Error: ' || l_dangling_error);
147:
148: end if;
149:

Line 146: PJI_UTILS.WRITE2OUT('Error: ' || l_dangling_error);

142: (g_process, 'TRANSITION', 'N');
143: l_transition_flag := 'N';
144:
145: PJI_UTILS.WRITE2LOG('Error: ' || l_dangling_error);
146: PJI_UTILS.WRITE2OUT('Error: ' || l_dangling_error);
147:
148: end if;
149:
150: if (l_transition_flag = 'Y') then

Line 244: pji_utils.write2log('Error: FM summarization is already running.');

240:
241: end if;
242:
243: if (l_count > 0) then
244: pji_utils.write2log('Error: FM summarization is already running.');
245: commit;
246: dbms_standard.raise_application_error(-20010, l_sum_fm_running);
247: end if;
248:

Line 365: PJI_UTILS.SET_PARAMETER('EXTRACTION_TYPE', l_extraction_type);

361: rollback;
362: return;
363: end if;
364:
365: PJI_UTILS.SET_PARAMETER('EXTRACTION_TYPE', l_extraction_type);
366:
367: insert into PJI_SYSTEM_CONFIG_HIST
368: (
369: REQUEST_ID,

Line 405: PJI_UTILS.SET_PARAMETER('DANGLING_ROWS_EXIST', 'P');

401: null COMPLETION_TEXT
402: from
403: dual;
404:
405: PJI_UTILS.SET_PARAMETER('DANGLING_ROWS_EXIST', 'P');
406:
407: -- Update list of organizations to be extracted in case
408: -- users defined new organizations.
409: -- List of organizations is stored in table

Line 418: l_global_start_date := PJI_UTILS.GET_EXTRACTION_START_DATE;

414: -- batch.
415:
416: PJI_EXTRACTION_UTIL.UPDATE_EXTR_SCOPE;
417:
418: l_global_start_date := PJI_UTILS.GET_EXTRACTION_START_DATE;
419:
420: insert into PJI_FM_PROJ_BATCH_MAP
421: (
422: WORKER_ID,

Line 670: if (PJI_UTILS.GET_PARAMETER('GLOBAL_START_DATE') is not null and

666: -- dangling flag: R = Rate is missing
667: -- T = TIME_ID is outside a calendar range
668: -- null = not dangling
669:
670: if (PJI_UTILS.GET_PARAMETER('GLOBAL_START_DATE') is not null and
671: trunc(l_global_start_date, 'J') <>
672: trunc(to_date(PJI_UTILS.GET_PARAMETER('GLOBAL_START_DATE'),
673: g_date_mask), 'J')) then
674: pji_utils.write2log('WARNING: Global start date has changed.');

Line 672: trunc(to_date(PJI_UTILS.GET_PARAMETER('GLOBAL_START_DATE'),

668: -- null = not dangling
669:
670: if (PJI_UTILS.GET_PARAMETER('GLOBAL_START_DATE') is not null and
671: trunc(l_global_start_date, 'J') <>
672: trunc(to_date(PJI_UTILS.GET_PARAMETER('GLOBAL_START_DATE'),
673: g_date_mask), 'J')) then
674: pji_utils.write2log('WARNING: Global start date has changed.');
675: end if;
676:

Line 674: pji_utils.write2log('WARNING: Global start date has changed.');

670: if (PJI_UTILS.GET_PARAMETER('GLOBAL_START_DATE') is not null and
671: trunc(l_global_start_date, 'J') <>
672: trunc(to_date(PJI_UTILS.GET_PARAMETER('GLOBAL_START_DATE'),
673: g_date_mask), 'J')) then
674: pji_utils.write2log('WARNING: Global start date has changed.');
675: end if;
676:
677: PJI_UTILS.SET_PARAMETER('GLOBAL_START_DATE',
678: to_char

Line 677: PJI_UTILS.SET_PARAMETER('GLOBAL_START_DATE',

673: g_date_mask), 'J')) then
674: pji_utils.write2log('WARNING: Global start date has changed.');
675: end if;
676:
677: PJI_UTILS.SET_PARAMETER('GLOBAL_START_DATE',
678: to_char
679: (
680: l_global_start_date,
681: g_date_mask

Line 744: if (PJI_UTILS.GET_SETUP_PARAMETER('PA_PERIOD_FLAG') = 'N') then

740: PJI_PROCESS_UTIL.SET_PROCESS_PARAMETER(g_process,
741: 'PARALLEL_PROCESSES',
742: g_parallel_processes);
743:
744: if (PJI_UTILS.GET_SETUP_PARAMETER('PA_PERIOD_FLAG') = 'N') then
745: PJI_PROCESS_UTIL.SET_PROCESS_PARAMETER(g_process,
746: 'PA_CALENDAR_FLAG',
747: 'N');
748: else

Line 754: if (PJI_UTILS.GET_SETUP_PARAMETER('GL_PERIOD_FLAG') = 'N') then

750: 'PA_CALENDAR_FLAG',
751: 'Y');
752: end if;
753:
754: if (PJI_UTILS.GET_SETUP_PARAMETER('GL_PERIOD_FLAG') = 'N') then
755: PJI_PROCESS_UTIL.SET_PROCESS_PARAMETER(g_process,
756: 'GL_CALENDAR_FLAG',
757: 'N');
758: else

Line 1063: 'RECVR_GL1', PJI_UTILS.GET_RATE_TYPE,

1059: 'RECVR_GL2', p_g2_currency_code,
1060: 'RECVR_PA1', p_g1_currency_code,
1061: 'RECVR_PA2', p_g2_currency_code) G_CURRENCY_CODE,
1062: decode(invert.INVERT_ID,
1063: 'RECVR_GL1', PJI_UTILS.GET_RATE_TYPE,
1064: 'RECVR_GL2', FND_PROFILE.VALUE('PA_SECONDARY_RATE_TYPE'), /* Modified for bug 12979524 */
1065: 'RECVR_PA1', PJI_UTILS.GET_RATE_TYPE,
1066: 'RECVR_PA2', FND_PROFILE.VALUE('PA_SECONDARY_RATE_TYPE')) /* Modified for bug 12979524 */
1067: RATE_TYPE

Line 1065: 'RECVR_PA1', PJI_UTILS.GET_RATE_TYPE,

1061: 'RECVR_PA2', p_g2_currency_code) G_CURRENCY_CODE,
1062: decode(invert.INVERT_ID,
1063: 'RECVR_GL1', PJI_UTILS.GET_RATE_TYPE,
1064: 'RECVR_GL2', FND_PROFILE.VALUE('PA_SECONDARY_RATE_TYPE'), /* Modified for bug 12979524 */
1065: 'RECVR_PA1', PJI_UTILS.GET_RATE_TYPE,
1066: 'RECVR_PA2', FND_PROFILE.VALUE('PA_SECONDARY_RATE_TYPE')) /* Modified for bug 12979524 */
1067: RATE_TYPE
1068: from
1069: PJI_FM_DNGL_FIN tmp2,

Line 1119: 'GL1', PJI_UTILS.GET_RATE_TYPE,

1115: 'GL2', p_g2_currency_code,
1116: 'PA1', p_g1_currency_code,
1117: 'PA2', p_g2_currency_code) G_CURRENCY_CODE,
1118: decode(invert.INVERT_ID,
1119: 'GL1', PJI_UTILS.GET_RATE_TYPE,
1120: 'GL2', FND_PROFILE.VALUE('PA_SECONDARY_RATE_TYPE'), /* Modified for bug 12979524 */
1121: 'PA1', PJI_UTILS.GET_RATE_TYPE,
1122: 'PA2', FND_PROFILE.VALUE('PA_SECONDARY_RATE_TYPE')) /* Modified for bug 12979524 */
1123: RATE_TYPE

Line 1121: 'PA1', PJI_UTILS.GET_RATE_TYPE,

1117: 'PA2', p_g2_currency_code) G_CURRENCY_CODE,
1118: decode(invert.INVERT_ID,
1119: 'GL1', PJI_UTILS.GET_RATE_TYPE,
1120: 'GL2', FND_PROFILE.VALUE('PA_SECONDARY_RATE_TYPE'), /* Modified for bug 12979524 */
1121: 'PA1', PJI_UTILS.GET_RATE_TYPE,
1122: 'PA2', FND_PROFILE.VALUE('PA_SECONDARY_RATE_TYPE')) /* Modified for bug 12979524 */
1123: RATE_TYPE
1124: from
1125: PJI_FM_DNGL_ACT tmp2,

Line 1299: PJI_UTILS.SET_PARAMETER('DANGLING_ROWS_EXIST', 'N');

1295: ';
1296:
1297: begin
1298:
1299: PJI_UTILS.SET_PARAMETER('DANGLING_ROWS_EXIST', 'N');
1300:
1301: --
1302: -- Report dangling rates
1303: --

Line 1307: for c in missing_rates(PJI_UTILS.GET_GLOBAL_PRIMARY_CURRENCY,

1303: --
1304:
1305: l_header_flag := 'Y';
1306:
1307: for c in missing_rates(PJI_UTILS.GET_GLOBAL_PRIMARY_CURRENCY,
1308: PJI_UTILS.GET_GLOBAL_SECONDARY_CURRENCY) loop
1309:
1310: if (l_header_flag = 'Y') then
1311:

Line 1308: PJI_UTILS.GET_GLOBAL_SECONDARY_CURRENCY) loop

1304:
1305: l_header_flag := 'Y';
1306:
1307: for c in missing_rates(PJI_UTILS.GET_GLOBAL_PRIMARY_CURRENCY,
1308: PJI_UTILS.GET_GLOBAL_SECONDARY_CURRENCY) loop
1309:
1310: if (l_header_flag = 'Y') then
1311:
1312: PJI_UTILS.SET_PARAMETER('DANGLING_ROWS_EXIST', 'Y');

Line 1312: PJI_UTILS.SET_PARAMETER('DANGLING_ROWS_EXIST', 'Y');

1308: PJI_UTILS.GET_GLOBAL_SECONDARY_CURRENCY) loop
1309:
1310: if (l_header_flag = 'Y') then
1311:
1312: PJI_UTILS.SET_PARAMETER('DANGLING_ROWS_EXIST', 'Y');
1313:
1314: pji_utils.write2out(l_newline || PJI_UTILS.getMissingRateHeader);
1315:
1316: l_header_flag := 'N';

Line 1314: pji_utils.write2out(l_newline || PJI_UTILS.getMissingRateHeader);

1310: if (l_header_flag = 'Y') then
1311:
1312: PJI_UTILS.SET_PARAMETER('DANGLING_ROWS_EXIST', 'Y');
1313:
1314: pji_utils.write2out(l_newline || PJI_UTILS.getMissingRateHeader);
1315:
1316: l_header_flag := 'N';
1317:
1318: end if;

Line 1320: pji_utils.write2out(

1316: l_header_flag := 'N';
1317:
1318: end if;
1319:
1320: pji_utils.write2out(
1321: PJI_UTILS.getMissingRateText(c.RATE_TYPE,
1322: c.PF_CURRENCY_CODE,
1323: c.G_CURRENCY_CODE,
1324: c.FROM_DATE,

Line 1321: PJI_UTILS.getMissingRateText(c.RATE_TYPE,

1317:
1318: end if;
1319:
1320: pji_utils.write2out(
1321: PJI_UTILS.getMissingRateText(c.RATE_TYPE,
1322: c.PF_CURRENCY_CODE,
1323: c.G_CURRENCY_CODE,
1324: c.FROM_DATE,
1325: to_char(c.FROM_DATE, 'YYYY/MM/DD')) ||

Line 1337: where PERIOD_SET_NAME = PJI_UTILS.GET_PERIOD_SET_NAME and

1333:
1334: select CALENDAR_ID
1335: into l_calendar_id
1336: from PA_TIME_CAL_NAME /* Modified for bug 12979524 */
1337: where PERIOD_SET_NAME = PJI_UTILS.GET_PERIOD_SET_NAME and
1338: PERIOD_TYPE = PJI_UTILS.GET_PERIOD_TYPE;
1339:
1340: l_header_flag := 'Y';
1341:

Line 1338: PERIOD_TYPE = PJI_UTILS.GET_PERIOD_TYPE;

1334: select CALENDAR_ID
1335: into l_calendar_id
1336: from PA_TIME_CAL_NAME /* Modified for bug 12979524 */
1337: where PERIOD_SET_NAME = PJI_UTILS.GET_PERIOD_SET_NAME and
1338: PERIOD_TYPE = PJI_UTILS.GET_PERIOD_TYPE;
1339:
1340: l_header_flag := 'Y';
1341:
1342: for c in missing_time(l_calendar_id) loop

Line 1346: PJI_UTILS.SET_PARAMETER('DANGLING_ROWS_EXIST', 'Y');

1342: for c in missing_time(l_calendar_id) loop
1343:
1344: if (l_header_flag = 'Y') then
1345:
1346: PJI_UTILS.SET_PARAMETER('DANGLING_ROWS_EXIST', 'Y');
1347:
1348: pji_utils.write2out(PJI_FM_SUM_MAIN.GET_MISSING_TIME_HEADER);
1349: l_header_flag := 'N';
1350: end if;

Line 1348: pji_utils.write2out(PJI_FM_SUM_MAIN.GET_MISSING_TIME_HEADER);

1344: if (l_header_flag = 'Y') then
1345:
1346: PJI_UTILS.SET_PARAMETER('DANGLING_ROWS_EXIST', 'Y');
1347:
1348: pji_utils.write2out(PJI_FM_SUM_MAIN.GET_MISSING_TIME_HEADER);
1349: l_header_flag := 'N';
1350: end if;
1351:
1352: if (c.FROM_DATE < c.CALENDAR_MIN_DATE and

Line 1355: pji_utils.write2out(

1351:
1352: if (c.FROM_DATE < c.CALENDAR_MIN_DATE and
1353: c.TO_DATE > c.CALENDAR_MAX_DATE) then
1354:
1355: pji_utils.write2out(
1356: PJI_FM_SUM_MAIN.GET_MISSING_TIME_TEXT(c.CALENDAR_NAME,
1357: c.USER_PERIOD_TYPE,
1358: c.FROM_DATE,
1359: c.CALENDAR_MIN_DATE));

Line 1361: pji_utils.write2out(

1357: c.USER_PERIOD_TYPE,
1358: c.FROM_DATE,
1359: c.CALENDAR_MIN_DATE));
1360:
1361: pji_utils.write2out(
1362: PJI_FM_SUM_MAIN.GET_MISSING_TIME_TEXT(c.CALENDAR_NAME,
1363: c.USER_PERIOD_TYPE,
1364: c.CALENDAR_MAX_DATE,
1365: c.TO_DATE));

Line 1369: pji_utils.write2out(

1365: c.TO_DATE));
1366:
1367: elsif (c.TO_DATE > c.CALENDAR_MAX_DATE) then
1368:
1369: pji_utils.write2out(
1370: PJI_FM_SUM_MAIN.GET_MISSING_TIME_TEXT(c.CALENDAR_NAME,
1371: c.USER_PERIOD_TYPE,
1372: c.CALENDAR_MAX_DATE,
1373: c.TO_DATE));

Line 1377: pji_utils.write2out(

1373: c.TO_DATE));
1374:
1375: elsif (c.FROM_DATE < c.CALENDAR_MIN_DATE) then
1376:
1377: pji_utils.write2out(
1378: PJI_FM_SUM_MAIN.GET_MISSING_TIME_TEXT(c.CALENDAR_NAME,
1379: c.USER_PERIOD_TYPE,
1380: c.FROM_DATE,
1381: c.CALENDAR_MIN_DATE));

Line 1387: pji_utils.write2out(l_newline);

1383: end if;
1384:
1385: end loop;
1386:
1387: pji_utils.write2out(l_newline);
1388:
1389: commit;
1390:
1391: end DANGLING_REPORT;

Line 1423: PJI_UTILS.SET_PARAMETER('CONFIG_PROJ_PERF_FLAG', 'Y');

1419: nvl(PJI_PROCESS_UTIL.GET_PROCESS_PARAMETER(g_process,
1420: 'CONFIG_UTIL_FLAG'), 'N');
1421:
1422: if (l_params_proj_perf_flag = 'Y') then
1423: PJI_UTILS.SET_PARAMETER('CONFIG_PROJ_PERF_FLAG', 'Y');
1424: end if;
1425:
1426: if (l_params_cost_flag = 'Y') then
1427: PJI_UTILS.SET_PARAMETER('CONFIG_COST_FLAG', 'Y');

Line 1427: PJI_UTILS.SET_PARAMETER('CONFIG_COST_FLAG', 'Y');

1423: PJI_UTILS.SET_PARAMETER('CONFIG_PROJ_PERF_FLAG', 'Y');
1424: end if;
1425:
1426: if (l_params_cost_flag = 'Y') then
1427: PJI_UTILS.SET_PARAMETER('CONFIG_COST_FLAG', 'Y');
1428: end if;
1429:
1430: if (l_params_profit_flag = 'Y') then
1431: PJI_UTILS.SET_PARAMETER('CONFIG_PROFIT_FLAG', 'Y');

Line 1431: PJI_UTILS.SET_PARAMETER('CONFIG_PROFIT_FLAG', 'Y');

1427: PJI_UTILS.SET_PARAMETER('CONFIG_COST_FLAG', 'Y');
1428: end if;
1429:
1430: if (l_params_profit_flag = 'Y') then
1431: PJI_UTILS.SET_PARAMETER('CONFIG_PROFIT_FLAG', 'Y');
1432: end if;
1433:
1434: if (l_params_util_flag = 'Y') then
1435: PJI_UTILS.SET_PARAMETER('CONFIG_UTIL_FLAG', 'Y');

Line 1435: PJI_UTILS.SET_PARAMETER('CONFIG_UTIL_FLAG', 'Y');

1431: PJI_UTILS.SET_PARAMETER('CONFIG_PROFIT_FLAG', 'Y');
1432: end if;
1433:
1434: if (l_params_util_flag = 'Y') then
1435: PJI_UTILS.SET_PARAMETER('CONFIG_UTIL_FLAG', 'Y');
1436: end if;
1437:
1438: update PJI_SYSTEM_CONFIG_HIST
1439: set END_DATE = sysdate,

Line 1483: l_schema := PJI_UTILS.GET_PJI_SCHEMA_NAME;

1479: end if;
1480:
1481: DANGLING_REPORT;
1482:
1483: l_schema := PJI_UTILS.GET_PJI_SCHEMA_NAME;
1484:
1485: PJI_PROCESS_UTIL.TRUNC_INT_TABLE(l_schema,
1486: 'PJI_FM_PROJ_BATCH_MAP',
1487: 'NORMAL',

Line 1503: PJI_UTILS.SET_PARAMETER('LAST_FM_EXTR_DATE',

1499: END_DATE is null;
1500:
1501: -- update default report as-of date
1502:
1503: PJI_UTILS.SET_PARAMETER('LAST_FM_EXTR_DATE',
1504: to_char(sysdate, PJI_FM_SUM_MAIN.g_date_mask));
1505:
1506: PJI_UTILS.SET_PARAMETER('LAST_EXTR_DATE',
1507: to_char(sysdate, 'YYYY/MM/DD HH24:MI:SS'));

Line 1506: PJI_UTILS.SET_PARAMETER('LAST_EXTR_DATE',

1502:
1503: PJI_UTILS.SET_PARAMETER('LAST_FM_EXTR_DATE',
1504: to_char(sysdate, PJI_FM_SUM_MAIN.g_date_mask));
1505:
1506: PJI_UTILS.SET_PARAMETER('LAST_EXTR_DATE',
1507: to_char(sysdate, 'YYYY/MM/DD HH24:MI:SS'));
1508:
1509: commit;
1510:

Line 1531: pji_utils.write2log(sqlerrm, true, 0);

1527: 'F');
1528:
1529: commit;
1530:
1531: pji_utils.write2log(sqlerrm, true, 0);
1532:
1533: l_sqlerrm := substr(sqlerrm, 1, 240);
1534:
1535: update PJI_SYSTEM_CONFIG_HIST

Line 1615: pji_utils.write2log('Error: Summarization is already running.');

1611: 'RUNNING',
1612: PJI_PROCESS_UTIL.GET_PROCESS_PARAMETER(g_process, g_process),
1613: g_incr_disp_name
1614: ))) then
1615: pji_utils.write2log('Error: Summarization is already running.');
1616: commit;
1617: dbms_standard.raise_application_error(-20010, l_sum_running);
1618: end if;
1619:

Line 1669: if (PJI_UTILS.GET_PARAMETER('DANGLING_ROWS_EXIST') = 'Y') then

1665:
1666: RUN_PROCESS;
1667: WRAPUP_PROCESS;
1668:
1669: if (PJI_UTILS.GET_PARAMETER('DANGLING_ROWS_EXIST') = 'Y') then
1670: retcode := 1;
1671: else
1672: retcode := 0;
1673: end if;