DBA Data[Home] [Help]

APPS.CSD_BULK_RECEIVE_UTIL dependencies on FND_LOG

Line 59: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then

55: c_non_ib CONSTANT Varchar2(1) := 'N';
56:
57: BEGIN
58:
59: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
60: fnd_log.STRING (fnd_log.level_procedure,
61: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.VALIDATE_BULK_RECEIVE_REC.BEGIN',
62: 'Enter - Validate bulk receive rec');
63: End if;

Line 60: fnd_log.STRING (fnd_log.level_procedure,

56:
57: BEGIN
58:
59: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
60: fnd_log.STRING (fnd_log.level_procedure,
61: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.VALIDATE_BULK_RECEIVE_REC.BEGIN',
62: 'Enter - Validate bulk receive rec');
63: End if;
64: --

Line 198: If (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then

194: End if;
195:
196: End if;
197:
198: If (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
199: fnd_log.STRING (fnd_log.level_statement,
200: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.VALIDATE_BULK_RECEIVE_REC',
201: 'Warning Flag - '||x_warning_flag||
202: ',Warning Reason Code - '||x_warning_reason_code||

Line 199: fnd_log.STRING (fnd_log.level_statement,

195:
196: End if;
197:
198: If (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
199: fnd_log.STRING (fnd_log.level_statement,
200: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.VALIDATE_BULK_RECEIVE_REC',
201: 'Warning Flag - '||x_warning_flag||
202: ',Warning Reason Code - '||x_warning_reason_code||
203: ',Internal SR Flag - '||x_internal_sr_flag||

Line 207: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then

203: ',Internal SR Flag - '||x_internal_sr_flag||
204: ',Change Owner Flag - '||x_change_owner_flag);
205: End if;
206:
207: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
208: fnd_log.STRING (fnd_log.level_procedure,
209: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.VALIDATE_BULK_RECEIVE_REC.END',
210: 'Exit - Validate bulk receive rec');
211: End if;

Line 208: fnd_log.STRING (fnd_log.level_procedure,

204: ',Change Owner Flag - '||x_change_owner_flag);
205: End if;
206:
207: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
208: fnd_log.STRING (fnd_log.level_procedure,
209: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.VALIDATE_BULK_RECEIVE_REC.END',
210: 'Exit - Validate bulk receive rec');
211: End if;
212:

Line 274: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then

270: BEGIN
271:
272: savepoint create_blkrcv_sr;
273:
274: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
275: fnd_log.STRING (fnd_log.level_procedure,
276: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_SR.BEGIN',
277: 'Enter - Create Blkrcv SR');
278: End if;

Line 275: fnd_log.STRING (fnd_log.level_procedure,

271:
272: savepoint create_blkrcv_sr;
273:
274: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
275: fnd_log.STRING (fnd_log.level_procedure,
276: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_SR.BEGIN',
277: 'Enter - Create Blkrcv SR');
278: End if;
279:

Line 362: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then

358: If NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) then
359: RAISE FND_API.G_EXC_ERROR;
360: End If;
361:
362: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
363: fnd_log.STRING (fnd_log.level_procedure,
364: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_SR.END',
365: 'Exit - Create Blkrcv SR');
366: End if;

Line 363: fnd_log.STRING (fnd_log.level_procedure,

359: RAISE FND_API.G_EXC_ERROR;
360: End If;
361:
362: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
363: fnd_log.STRING (fnd_log.level_procedure,
364: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_SR.END',
365: 'Exit - Create Blkrcv SR');
366: End if;
367:

Line 524: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then

520: BEGIN
521:
522: savepoint create_blkrcv_ro;
523:
524: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
525: fnd_log.STRING (fnd_log.level_procedure,
526: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_RO.BEGIN',
527: 'Enter - Create Blkrcv RO');
528: End if;

Line 525: fnd_log.STRING (fnd_log.level_procedure,

521:
522: savepoint create_blkrcv_ro;
523:
524: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
525: fnd_log.STRING (fnd_log.level_procedure,
526: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_RO.BEGIN',
527: 'Enter - Create Blkrcv RO');
528: End if;
529:

Line 556: If (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then

552: l_blkrcv_rec.serial_number);
553: Fetch c_get_item_revision into l_revision;
554: Close c_get_item_revision;
555:
556: If (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
557: fnd_log.STRING (fnd_log.level_statement,
558: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_RO',
559: 'Derived Revision - '||l_revision||
560: 'for Item id - '||l_blkrcv_rec.inventory_item_id);

Line 557: fnd_log.STRING (fnd_log.level_statement,

553: Fetch c_get_item_revision into l_revision;
554: Close c_get_item_revision;
555:
556: If (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
557: fnd_log.STRING (fnd_log.level_statement,
558: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_RO',
559: 'Derived Revision - '||l_revision||
560: 'for Item id - '||l_blkrcv_rec.inventory_item_id);
561: End if;

Line 580: If (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then

576: Fetch c_get_ib_info into l_owner_party_id,
577: l_instance_id;
578: Close c_get_ib_info;
579:
580: If (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
581: fnd_log.STRING (fnd_log.level_statement,
582: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_RO',
583: 'Derived Instance Id - '||l_instance_id||
584: 'for Item id - '||l_blkrcv_rec.inventory_item_id||

Line 581: fnd_log.STRING (fnd_log.level_statement,

577: l_instance_id;
578: Close c_get_ib_info;
579:
580: If (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
581: fnd_log.STRING (fnd_log.level_statement,
582: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_RO',
583: 'Derived Instance Id - '||l_instance_id||
584: 'for Item id - '||l_blkrcv_rec.inventory_item_id||
585: ',Serial number - '||l_blkrcv_rec.serial_number);

Line 602: If (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then

598: Open c_get_item_uom_code (l_blkrcv_rec.inventory_item_id);
599: Fetch c_get_item_uom_code into l_uom_code;
600: Close c_get_item_uom_code;
601:
602: If (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
603: fnd_log.STRING (fnd_log.level_statement,
604: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_RO',
605: 'Derived Uom code - '||l_uom_code||
606: 'for Item id - '||l_blkrcv_rec.inventory_item_id);

Line 603: fnd_log.STRING (fnd_log.level_statement,

599: Fetch c_get_item_uom_code into l_uom_code;
600: Close c_get_item_uom_code;
601:
602: If (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
603: fnd_log.STRING (fnd_log.level_statement,
604: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_RO',
605: 'Derived Uom code - '||l_uom_code||
606: 'for Item id - '||l_blkrcv_rec.inventory_item_id);
607: End if;

Line 635: If (fnd_log.level_event >= fnd_log.g_current_runtime_level) then

631: l_instance_rec.party_id := l_blkrcv_rec.party_id;
632: l_instance_rec.account_id := l_blkrcv_rec.cust_account_id;
633: l_instance_rec.mfg_serial_number_flag := 'N';
634:
635: If (fnd_log.level_event >= fnd_log.g_current_runtime_level) then
636: fnd_log.STRING (fnd_log.level_event,
637: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_RO',
638: 'Calling create item instance api');
639: End if;

Line 636: fnd_log.STRING (fnd_log.level_event,

632: l_instance_rec.account_id := l_blkrcv_rec.cust_account_id;
633: l_instance_rec.mfg_serial_number_flag := 'N';
634:
635: If (fnd_log.level_event >= fnd_log.g_current_runtime_level) then
636: fnd_log.STRING (fnd_log.level_event,
637: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_RO',
638: 'Calling create item instance api');
639: End if;
640:

Line 806: If (fnd_log.level_event >= fnd_log.g_current_runtime_level) then

802: l_repln_rec.repair_group_id := null;
803: l_repln_rec.item_revision := l_revision;
804: l_repln_rec.repair_mode := l_repair_mode;
805:
806: If (fnd_log.level_event >= fnd_log.g_current_runtime_level) then
807: fnd_log.STRING (fnd_log.level_event,
808: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_RO',
809: 'Calling create repair order api');
810: End if;

Line 807: fnd_log.STRING (fnd_log.level_event,

803: l_repln_rec.item_revision := l_revision;
804: l_repln_rec.repair_mode := l_repair_mode;
805:
806: If (fnd_log.level_event >= fnd_log.g_current_runtime_level) then
807: fnd_log.STRING (fnd_log.level_event,
808: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_RO',
809: 'Calling create repair order api');
810: End if;
811:

Line 832: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then

828: If NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) then
829: RAISE FND_API.G_EXC_ERROR;
830: End If;
831:
832: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
833: fnd_log.STRING (fnd_log.level_procedure,
834: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_RO.END',
835: 'Exit - Create Blkrcv RO');
836: End if;

Line 833: fnd_log.STRING (fnd_log.level_procedure,

829: RAISE FND_API.G_EXC_ERROR;
830: End If;
831:
832: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
833: fnd_log.STRING (fnd_log.level_procedure,
834: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_RO.END',
835: 'Exit - Create Blkrcv RO');
836: End if;
837:

Line 899: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then

895: BEGIN
896:
897: savepoint create_blkrcv_default_prod_txn;
898:
899: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
900: fnd_log.STRING (fnd_log.level_procedure,
901: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_DEFAULT_PROD_TXN.BEGIN',
902: 'Enter - Create Blkrcv Default Prod Txn');
903: End if;

Line 900: fnd_log.STRING (fnd_log.level_procedure,

896:
897: savepoint create_blkrcv_default_prod_txn;
898:
899: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
900: fnd_log.STRING (fnd_log.level_procedure,
901: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_DEFAULT_PROD_TXN.BEGIN',
902: 'Enter - Create Blkrcv Default Prod Txn');
903: End if;
904:

Line 924: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then

920: If NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) then
921: RAISE FND_API.G_EXC_ERROR;
922: End If;
923:
924: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
925: fnd_log.STRING (fnd_log.level_procedure,
926: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_DEFAULT_PROD_TXN.END',
927: 'Exit - Create Blkrcv Default Prod Txn');
928: End if;

Line 925: fnd_log.STRING (fnd_log.level_procedure,

921: RAISE FND_API.G_EXC_ERROR;
922: End If;
923:
924: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
925: fnd_log.STRING (fnd_log.level_procedure,
926: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CREATE_BULKRCV_DEFAULT_PROD_TXN.END',
927: 'Exit - Create Blkrcv Default Prod Txn');
928: End if;
929:

Line 1033: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then

1029: BEGIN
1030:
1031: savepoint change_blkrcv_ib_owner;
1032:
1033: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
1034: fnd_log.STRING (fnd_log.level_procedure,
1035: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CHANGE_BULKRCV_IB_OWNER.BEGIN',
1036: 'Enter - Change Blkrcv IB Owner');
1037: End if;

Line 1034: fnd_log.STRING (fnd_log.level_procedure,

1030:
1031: savepoint change_blkrcv_ib_owner;
1032:
1033: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
1034: fnd_log.STRING (fnd_log.level_procedure,
1035: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CHANGE_BULKRCV_IB_OWNER.BEGIN',
1036: 'Enter - Change Blkrcv IB Owner');
1037: End if;
1038:

Line 1129: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then

1125: If NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) then
1126: RAISE FND_API.G_EXC_ERROR;
1127: End If;
1128:
1129: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
1130: fnd_log.STRING (fnd_log.level_procedure,
1131: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CHANGE_BULKRCV_IB_OWNER.END',
1132: 'Exit - Change Blkrcv IB Owner');
1133: End if;

Line 1130: fnd_log.STRING (fnd_log.level_procedure,

1126: RAISE FND_API.G_EXC_ERROR;
1127: End If;
1128:
1129: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
1130: fnd_log.STRING (fnd_log.level_procedure,
1131: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.CHANGE_BULKRCV_IB_OWNER.END',
1132: 'Exit - Change Blkrcv IB Owner');
1133: End if;
1134:

Line 1249: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then

1245: BEGIN
1246:
1247: Savepoint bulk_auto_receive;
1248:
1249: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
1250: fnd_log.STRING (fnd_log.level_procedure,
1251: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.BULK_AUTO_RECEIVE.BEGIN',
1252: 'Enter - Bulk auto receive');
1253: End if;

Line 1250: fnd_log.STRING (fnd_log.level_procedure,

1246:
1247: Savepoint bulk_auto_receive;
1248:
1249: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
1250: fnd_log.STRING (fnd_log.level_procedure,
1251: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.BULK_AUTO_RECEIVE.BEGIN',
1252: 'Enter - Bulk auto receive');
1253: End if;
1254:

Line 1308: If (fnd_log.level_event >= fnd_log.g_current_runtime_level) then

1304:
1305: End Loop;
1306:
1307: -- Call the Receive API
1308: If (fnd_log.level_event >= fnd_log.g_current_runtime_level) then
1309: fnd_log.STRING (fnd_log.level_event,
1310: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.BULK_AUTO_RECEIVE.BEGIN',
1311: 'Call receive item api');
1312: End if;

Line 1309: fnd_log.STRING (fnd_log.level_event,

1305: End Loop;
1306:
1307: -- Call the Receive API
1308: If (fnd_log.level_event >= fnd_log.g_current_runtime_level) then
1309: fnd_log.STRING (fnd_log.level_event,
1310: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.BULK_AUTO_RECEIVE.BEGIN',
1311: 'Call receive item api');
1312: End if;
1313:

Line 1548: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then

1544: End if; -- End if of the Status check
1545:
1546: End if; -- End if of the l_rcv_rec_tbl.count > 0
1547:
1548: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
1549: fnd_log.STRING (fnd_log.level_procedure,
1550: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.BULK_AUTO_RECEIVE.END',
1551: 'Exit - Bulk auto receive');
1552: End if;

Line 1549: fnd_log.STRING (fnd_log.level_procedure,

1545:
1546: End if; -- End if of the l_rcv_rec_tbl.count > 0
1547:
1548: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
1549: fnd_log.STRING (fnd_log.level_procedure,
1550: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.BULK_AUTO_RECEIVE.END',
1551: 'Exit - Bulk auto receive');
1552: End if;
1553:

Line 1602: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then

1598: l_msg Varchar2(2000);
1599:
1600: BEGIN
1601:
1602: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
1603: fnd_log.STRING (fnd_log.level_procedure,
1604: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.WRITE_TO_CONC_LOG.BEGIN',
1605: 'Enter - Write to conc log');
1606: End if;

Line 1603: fnd_log.STRING (fnd_log.level_procedure,

1599:
1600: BEGIN
1601:
1602: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
1603: fnd_log.STRING (fnd_log.level_procedure,
1604: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.WRITE_TO_CONC_LOG.BEGIN',
1605: 'Enter - Write to conc log');
1606: End if;
1607:

Line 1630: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then

1626: End If;
1627:
1628: End If;
1629:
1630: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
1631: fnd_log.STRING (fnd_log.level_procedure,
1632: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.WRITE_TO_CONC_LOG.END',
1633: 'Exit - Write to conc log');
1634: End if;

Line 1631: fnd_log.STRING (fnd_log.level_procedure,

1627:
1628: End If;
1629:
1630: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
1631: fnd_log.STRING (fnd_log.level_procedure,
1632: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.WRITE_TO_CONC_LOG.END',
1633: 'Exit - Write to conc log');
1634: End if;
1635:

Line 1691: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then

1687:
1688:
1689: BEGIN
1690:
1691: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
1692: fnd_log.STRING (fnd_log.level_procedure,
1693: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.WRITE_TO_CONC_OUTPUT.BEGIN',
1694: 'Enter - Write to conc output');
1695: End if;

Line 1692: fnd_log.STRING (fnd_log.level_procedure,

1688:
1689: BEGIN
1690:
1691: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
1692: fnd_log.STRING (fnd_log.level_procedure,
1693: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.WRITE_TO_CONC_OUTPUT.BEGIN',
1694: 'Enter - Write to conc output');
1695: End if;
1696:

Line 1787: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then

1783: Fnd_file.put_line(fnd_file.output,rpad(rtrim(l_status),28,' '));
1784:
1785: End Loop;
1786:
1787: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
1788: fnd_log.STRING (fnd_log.level_procedure,
1789: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.WRITE_TO_CONC_OUTPUT.END',
1790: 'Exit - Write to conc output');
1791: End if;

Line 1788: fnd_log.STRING (fnd_log.level_procedure,

1784:
1785: End Loop;
1786:
1787: If (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) then
1788: fnd_log.STRING (fnd_log.level_procedure,
1789: 'CSD.PLSQL.CSD_BULK_RECEIVE_UTIL.WRITE_TO_CONC_OUTPUT.END',
1790: 'Exit - Write to conc output');
1791: End if;
1792: