126: IS
127: l_api_name CONSTANT VARCHAR2(30) := 'purge';
128: l_api_version CONSTANT NUMBER := 1.0;
129:
130: l_module CONSTANT FND_LOG_MESSAGES.module%TYPE :=
131: G_MODULE_PREFIX || l_api_name || '.';
132:
133: l_progress VARCHAR2(3);
134:
158: -- sql. If this dynamic sql is erroring out due to non-existence
159: -- of the package, ignore the error.
160:
161: IF (g_fnd_debug = 'Y') THEN
162: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
163: FND_LOG.string
164: ( log_level => FND_LOG.LEVEL_STATEMENT,
165: module => l_module || l_progress,
166: message => 'Before calling POS Purge API'
159: -- of the package, ignore the error.
160:
161: IF (g_fnd_debug = 'Y') THEN
162: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
163: FND_LOG.string
164: ( log_level => FND_LOG.LEVEL_STATEMENT,
165: module => l_module || l_progress,
166: message => 'Before calling POS Purge API'
167: );
160:
161: IF (g_fnd_debug = 'Y') THEN
162: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
163: FND_LOG.string
164: ( log_level => FND_LOG.LEVEL_STATEMENT,
165: module => l_module || l_progress,
166: message => 'Before calling POS Purge API'
167: );
168: END IF;
182: IF (SQLCODE = -6550) THEN
183: x_return_status := FND_API.G_RET_STS_SUCCESS;
184:
185: IF (g_fnd_debug = 'Y') THEN
186: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
187: FND_LOG.string
188: ( log_level => FND_LOG.LEVEL_STATEMENT,
189: module => l_module || l_progress,
190: message => 'Ignore exception from POS call. SQLERRM: '||
183: x_return_status := FND_API.G_RET_STS_SUCCESS;
184:
185: IF (g_fnd_debug = 'Y') THEN
186: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
187: FND_LOG.string
188: ( log_level => FND_LOG.LEVEL_STATEMENT,
189: module => l_module || l_progress,
190: message => 'Ignore exception from POS call. SQLERRM: '||
191: SQLERRM
184:
185: IF (g_fnd_debug = 'Y') THEN
186: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
187: FND_LOG.string
188: ( log_level => FND_LOG.LEVEL_STATEMENT,
189: module => l_module || l_progress,
190: message => 'Ignore exception from POS call. SQLERRM: '||
191: SQLERRM
192: );
197: END IF;
198: END;
199:
200: IF (g_fnd_debug = 'Y') THEN
201: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
202: FND_LOG.string
203: ( log_level => FND_LOG.LEVEL_PROCEDURE,
204: module => l_module || l_progress,
205: message => 'After calling POS Purge API'
198: END;
199:
200: IF (g_fnd_debug = 'Y') THEN
201: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
202: FND_LOG.string
203: ( log_level => FND_LOG.LEVEL_PROCEDURE,
204: module => l_module || l_progress,
205: message => 'After calling POS Purge API'
206: );
199:
200: IF (g_fnd_debug = 'Y') THEN
201: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
202: FND_LOG.string
203: ( log_level => FND_LOG.LEVEL_PROCEDURE,
204: module => l_module || l_progress,
205: message => 'After calling POS Purge API'
206: );
207: END IF;
623:
624: l_api_name CONSTANT VARCHAR2(50) := 'seed_records';
625: l_api_version CONSTANT NUMBER := 1.0;
626: l_progress VARCHAR2(3);
627: l_module CONSTANT FND_LOG_MESSAGES.module%TYPE :=
628: G_MODULE_PREFIX || l_api_name || '.';
629: BEGIN
630:
631: l_progress := '000';
630:
631: l_progress := '000';
632:
633: IF (g_fnd_debug = 'Y') THEN
634: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
635: FND_LOG.string
636: ( log_level => FND_LOG.LEVEL_PROCEDURE,
637: module => l_module || l_progress,
638: message => 'Entering ' || g_pkg_name || '.' || l_api_name
631: l_progress := '000';
632:
633: IF (g_fnd_debug = 'Y') THEN
634: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
635: FND_LOG.string
636: ( log_level => FND_LOG.LEVEL_PROCEDURE,
637: module => l_module || l_progress,
638: message => 'Entering ' || g_pkg_name || '.' || l_api_name
639: );
632:
633: IF (g_fnd_debug = 'Y') THEN
634: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
635: FND_LOG.string
636: ( log_level => FND_LOG.LEVEL_PROCEDURE,
637: module => l_module || l_progress,
638: message => 'Entering ' || g_pkg_name || '.' || l_api_name
639: );
640: END IF;
674:
675: l_progress := '020';
676:
677: IF (g_fnd_debug = 'Y') THEN
678: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
679: FND_LOG.string
680: ( log_level => FND_LOG.LEVEL_PROCEDURE,
681: module => l_module || l_progress,
682: message => 'Quitting ' || l_api_name
675: l_progress := '020';
676:
677: IF (g_fnd_debug = 'Y') THEN
678: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
679: FND_LOG.string
680: ( log_level => FND_LOG.LEVEL_PROCEDURE,
681: module => l_module || l_progress,
682: message => 'Quitting ' || l_api_name
683: );
676:
677: IF (g_fnd_debug = 'Y') THEN
678: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
679: FND_LOG.string
680: ( log_level => FND_LOG.LEVEL_PROCEDURE,
681: module => l_module || l_progress,
682: message => 'Quitting ' || l_api_name
683: );
684: END IF;
771:
772: l_api_name CONSTANT VARCHAR2(50) := 'filter_records';
773: l_api_version CONSTANT NUMBER := 1.0;
774: l_progress VARCHAR2(3);
775: l_module CONSTANT FND_LOG_MESSAGES.module%TYPE :=
776: G_MODULE_PREFIX || l_api_name || '.';
777:
778: BEGIN
779:
779:
780: l_progress := '000';
781:
782: IF (g_fnd_debug = 'Y') THEN
783: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
784: FND_LOG.string
785: ( log_level => FND_LOG.LEVEL_PROCEDURE,
786: module => l_module || l_progress,
787: message => 'Entering ' || g_pkg_name || '.' || l_api_name
780: l_progress := '000';
781:
782: IF (g_fnd_debug = 'Y') THEN
783: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
784: FND_LOG.string
785: ( log_level => FND_LOG.LEVEL_PROCEDURE,
786: module => l_module || l_progress,
787: message => 'Entering ' || g_pkg_name || '.' || l_api_name
788: );
781:
782: IF (g_fnd_debug = 'Y') THEN
783: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
784: FND_LOG.string
785: ( log_level => FND_LOG.LEVEL_PROCEDURE,
786: module => l_module || l_progress,
787: message => 'Entering ' || g_pkg_name || '.' || l_api_name
788: );
789: END IF;
825:
826: l_progress := '020';
827:
828: IF (g_fnd_debug = 'Y') THEN
829: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
830: FND_LOG.string
831: ( log_level => FND_LOG.LEVEL_PROCEDURE,
832: module => l_module || l_progress,
833: message => 'Quitting ' || l_api_name
826: l_progress := '020';
827:
828: IF (g_fnd_debug = 'Y') THEN
829: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
830: FND_LOG.string
831: ( log_level => FND_LOG.LEVEL_PROCEDURE,
832: module => l_module || l_progress,
833: message => 'Quitting ' || l_api_name
834: );
827:
828: IF (g_fnd_debug = 'Y') THEN
829: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
830: FND_LOG.string
831: ( log_level => FND_LOG.LEVEL_PROCEDURE,
832: module => l_module || l_progress,
833: message => 'Quitting ' || l_api_name
834: );
835: END IF;
906:
907: l_api_name CONSTANT VARCHAR2(50) := 'confirm_records';
908: l_api_version CONSTANT NUMBER := 1.0;
909: l_progress VARCHAR2(3);
910: l_module CONSTANT FND_LOG_MESSAGES.module%TYPE :=
911: G_MODULE_PREFIX || l_api_name || '.';
912:
913: BEGIN
914:
914:
915: l_progress := '000';
916:
917: IF (g_fnd_debug = 'Y') THEN
918: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
919: FND_LOG.string
920: ( log_level => FND_LOG.LEVEL_PROCEDURE,
921: module => l_module || l_progress,
922: message => 'Entering ' || g_pkg_name || '.' || l_api_name
915: l_progress := '000';
916:
917: IF (g_fnd_debug = 'Y') THEN
918: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
919: FND_LOG.string
920: ( log_level => FND_LOG.LEVEL_PROCEDURE,
921: module => l_module || l_progress,
922: message => 'Entering ' || g_pkg_name || '.' || l_api_name
923: );
916:
917: IF (g_fnd_debug = 'Y') THEN
918: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
919: FND_LOG.string
920: ( log_level => FND_LOG.LEVEL_PROCEDURE,
921: module => l_module || l_progress,
922: message => 'Entering ' || g_pkg_name || '.' || l_api_name
923: );
924: END IF;
958:
959: l_progress := '020';
960:
961: IF (g_fnd_debug = 'Y') THEN
962: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
963: FND_LOG.string
964: ( log_level => FND_LOG.LEVEL_PROCEDURE,
965: module => l_module || l_progress,
966: message => 'Quitting ' || l_api_name
959: l_progress := '020';
960:
961: IF (g_fnd_debug = 'Y') THEN
962: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
963: FND_LOG.string
964: ( log_level => FND_LOG.LEVEL_PROCEDURE,
965: module => l_module || l_progress,
966: message => 'Quitting ' || l_api_name
967: );
960:
961: IF (g_fnd_debug = 'Y') THEN
962: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
963: FND_LOG.string
964: ( log_level => FND_LOG.LEVEL_PROCEDURE,
965: module => l_module || l_progress,
966: message => 'Quitting ' || l_api_name
967: );
968: END IF;
1041:
1042: l_api_name CONSTANT VARCHAR2(50) := 'summarize_records';
1043: l_api_version CONSTANT NUMBER := 1.0;
1044: l_progress VARCHAR2(3);
1045: l_module CONSTANT FND_LOG_MESSAGES.module%TYPE :=
1046: G_MODULE_PREFIX || l_api_name || '.';
1047:
1048: BEGIN
1049:
1049:
1050: l_progress := '000';
1051:
1052: IF (g_fnd_debug = 'Y') THEN
1053: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1054: FND_LOG.string
1055: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1056: module => l_module || l_progress,
1057: message => 'Entering ' || g_pkg_name || '.' || l_api_name
1050: l_progress := '000';
1051:
1052: IF (g_fnd_debug = 'Y') THEN
1053: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1054: FND_LOG.string
1055: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1056: module => l_module || l_progress,
1057: message => 'Entering ' || g_pkg_name || '.' || l_api_name
1058: );
1051:
1052: IF (g_fnd_debug = 'Y') THEN
1053: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1054: FND_LOG.string
1055: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1056: module => l_module || l_progress,
1057: message => 'Entering ' || g_pkg_name || '.' || l_api_name
1058: );
1059: END IF;
1091:
1092: l_progress := '020';
1093:
1094: IF (g_fnd_debug = 'Y') THEN
1095: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1096: FND_LOG.string
1097: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1098: module => l_module || l_progress,
1099: message => 'Quitting ' || l_api_name
1092: l_progress := '020';
1093:
1094: IF (g_fnd_debug = 'Y') THEN
1095: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1096: FND_LOG.string
1097: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1098: module => l_module || l_progress,
1099: message => 'Quitting ' || l_api_name
1100: );
1093:
1094: IF (g_fnd_debug = 'Y') THEN
1095: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1096: FND_LOG.string
1097: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1098: module => l_module || l_progress,
1099: message => 'Quitting ' || l_api_name
1100: );
1101: END IF;
1170:
1171: l_api_name CONSTANT VARCHAR2(50) := 'delete_records';
1172: l_api_version CONSTANT NUMBER := 1.0;
1173: l_progress VARCHAR2(3);
1174: l_module CONSTANT FND_LOG_MESSAGES.module%TYPE :=
1175: G_MODULE_PREFIX || l_api_name || '.';
1176:
1177: BEGIN
1178:
1178:
1179: l_progress := '000';
1180:
1181: IF (g_fnd_debug = 'Y') THEN
1182: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1183: FND_LOG.string
1184: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1185: module => l_module || l_progress,
1186: message => 'Entering ' || g_pkg_name || '.' || l_api_name
1179: l_progress := '000';
1180:
1181: IF (g_fnd_debug = 'Y') THEN
1182: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1183: FND_LOG.string
1184: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1185: module => l_module || l_progress,
1186: message => 'Entering ' || g_pkg_name || '.' || l_api_name
1187: );
1180:
1181: IF (g_fnd_debug = 'Y') THEN
1182: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1183: FND_LOG.string
1184: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1185: module => l_module || l_progress,
1186: message => 'Entering ' || g_pkg_name || '.' || l_api_name
1187: );
1188: END IF;
1220:
1221: l_progress := '020';
1222:
1223: IF (g_fnd_debug = 'Y') THEN
1224: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1225: FND_LOG.string
1226: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1227: module => l_module || l_progress,
1228: message => 'Quitting ' || l_api_name
1221: l_progress := '020';
1222:
1223: IF (g_fnd_debug = 'Y') THEN
1224: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1225: FND_LOG.string
1226: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1227: module => l_module || l_progress,
1228: message => 'Quitting ' || l_api_name
1229: );
1222:
1223: IF (g_fnd_debug = 'Y') THEN
1224: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1225: FND_LOG.string
1226: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1227: module => l_module || l_progress,
1228: message => 'Quitting ' || l_api_name
1229: );
1230: END IF;
1291:
1292: l_api_name CONSTANT VARCHAR2(50) := 'delete_purge_lists';
1293: l_api_version CONSTANT NUMBER := 1.0;
1294: l_progress VARCHAR2(3);
1295: l_module CONSTANT FND_LOG_MESSAGES.module%TYPE :=
1296: G_MODULE_PREFIX || l_api_name || '.';
1297:
1298: BEGIN
1299:
1299:
1300: l_progress := '000';
1301:
1302: IF (g_fnd_debug = 'Y') THEN
1303: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1304: FND_LOG.string
1305: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1306: module => l_module || l_progress,
1307: message => 'Entering ' || g_pkg_name || '.' || l_api_name
1300: l_progress := '000';
1301:
1302: IF (g_fnd_debug = 'Y') THEN
1303: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1304: FND_LOG.string
1305: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1306: module => l_module || l_progress,
1307: message => 'Entering ' || g_pkg_name || '.' || l_api_name
1308: );
1301:
1302: IF (g_fnd_debug = 'Y') THEN
1303: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1304: FND_LOG.string
1305: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1306: module => l_module || l_progress,
1307: message => 'Entering ' || g_pkg_name || '.' || l_api_name
1308: );
1309: END IF;
1341:
1342: l_progress := '020';
1343:
1344: IF (g_fnd_debug = 'Y') THEN
1345: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1346: FND_LOG.string
1347: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1348: module => l_module || l_progress,
1349: message => 'Quitting ' || l_api_name
1342: l_progress := '020';
1343:
1344: IF (g_fnd_debug = 'Y') THEN
1345: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1346: FND_LOG.string
1347: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1348: module => l_module || l_progress,
1349: message => 'Quitting ' || l_api_name
1350: );
1343:
1344: IF (g_fnd_debug = 'Y') THEN
1345: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1346: FND_LOG.string
1347: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1348: module => l_module || l_progress,
1349: message => 'Quitting ' || l_api_name
1350: );
1351: END IF;
1415:
1416: l_api_name CONSTANT VARCHAR2(50) := 'delete_history_tables';
1417: l_api_version CONSTANT NUMBER := 1.0;
1418: l_progress VARCHAR2(3);
1419: l_module CONSTANT FND_LOG_MESSAGES.module%TYPE :=
1420: G_MODULE_PREFIX || l_api_name || '.';
1421:
1422: BEGIN
1423:
1423:
1424: l_progress := '000';
1425:
1426: IF (g_fnd_debug = 'Y') THEN
1427: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1428: FND_LOG.string
1429: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1430: module => l_module || l_progress,
1431: message => 'Entering ' || g_pkg_name || '.' || l_api_name
1424: l_progress := '000';
1425:
1426: IF (g_fnd_debug = 'Y') THEN
1427: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1428: FND_LOG.string
1429: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1430: module => l_module || l_progress,
1431: message => 'Entering ' || g_pkg_name || '.' || l_api_name
1432: );
1425:
1426: IF (g_fnd_debug = 'Y') THEN
1427: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1428: FND_LOG.string
1429: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1430: module => l_module || l_progress,
1431: message => 'Entering ' || g_pkg_name || '.' || l_api_name
1432: );
1433: END IF;
1465:
1466: l_progress := '020';
1467:
1468: IF (g_fnd_debug = 'Y') THEN
1469: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1470: FND_LOG.string
1471: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1472: module => l_module || l_progress,
1473: message => 'Quitting ' || l_api_name
1466: l_progress := '020';
1467:
1468: IF (g_fnd_debug = 'Y') THEN
1469: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1470: FND_LOG.string
1471: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1472: module => l_module || l_progress,
1473: message => 'Quitting ' || l_api_name
1474: );
1467:
1468: IF (g_fnd_debug = 'Y') THEN
1469: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1470: FND_LOG.string
1471: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1472: module => l_module || l_progress,
1473: message => 'Quitting ' || l_api_name
1474: );
1475: END IF;
1550:
1551: l_api_name CONSTANT VARCHAR2(50) := 'count_po_rows';
1552: l_api_version CONSTANT NUMBER := 1.0;
1553: l_progress VARCHAR2(3);
1554: l_module CONSTANT FND_LOG_MESSAGES.module%TYPE :=
1555: G_MODULE_PREFIX || l_api_name || '.';
1556:
1557: BEGIN
1558:
1558:
1559: l_progress := '000';
1560:
1561: IF (g_fnd_debug = 'Y') THEN
1562: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1563: FND_LOG.string
1564: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1565: module => l_module || l_progress,
1566: message => 'Entering ' || g_pkg_name || '.' || l_api_name
1559: l_progress := '000';
1560:
1561: IF (g_fnd_debug = 'Y') THEN
1562: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1563: FND_LOG.string
1564: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1565: module => l_module || l_progress,
1566: message => 'Entering ' || g_pkg_name || '.' || l_api_name
1567: );
1560:
1561: IF (g_fnd_debug = 'Y') THEN
1562: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1563: FND_LOG.string
1564: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1565: module => l_module || l_progress,
1566: message => 'Entering ' || g_pkg_name || '.' || l_api_name
1567: );
1568: END IF;
1603:
1604: l_progress := '020';
1605:
1606: IF (g_fnd_debug = 'Y') THEN
1607: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1608: FND_LOG.string
1609: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1610: module => l_module || l_progress,
1611: message => 'Quitting ' || l_api_name
1604: l_progress := '020';
1605:
1606: IF (g_fnd_debug = 'Y') THEN
1607: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1608: FND_LOG.string
1609: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1610: module => l_module || l_progress,
1611: message => 'Quitting ' || l_api_name
1612: );
1605:
1606: IF (g_fnd_debug = 'Y') THEN
1607: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1608: FND_LOG.string
1609: ( log_level => FND_LOG.LEVEL_PROCEDURE,
1610: module => l_module || l_progress,
1611: message => 'Quitting ' || l_api_name
1612: );
1613: END IF;