33: ----------------------------------------------------------------------------
34: l_debug_info := 'In debug mode, log we have entered this procedure';
35: ----------------------------------------------------------------------------
36: IF (PG_DEBUG = 'Y') THEN
37: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
38: END IF;
39:
40: ----------------------------------------------------------------------------
41: l_debug_info := 'Insert into ari_reg_verifications_gt';
40: ----------------------------------------------------------------------------
41: l_debug_info := 'Insert into ari_reg_verifications_gt';
42: ----------------------------------------------------------------------------
43: IF (PG_DEBUG = 'Y') THEN
44: arp_standard.debug(l_debug_info);
45: END IF;
46:
47: INSERT INTO ARI_REG_VERIFICATIONS_GT(
48: client_ip_address,
79:
80: l_debug_info := 'After insert';
81:
82: IF (PG_DEBUG = 'Y') THEN
83: arp_standard.debug(l_debug_info);
84: END IF;
85:
86: ----------------------------------------------------------------------------
87: l_debug_info := 'In debug mode, log that we have exited this procedure';
86: ----------------------------------------------------------------------------
87: l_debug_info := 'In debug mode, log that we have exited this procedure';
88: ----------------------------------------------------------------------------
89: IF (PG_DEBUG = 'Y') THEN
90: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
91: END IF;
92:
93: EXCEPTION
94: WHEN OTHERS THEN
93: EXCEPTION
94: WHEN OTHERS THEN
95: IF (SQLCODE <> -20001) THEN
96: IF (PG_DEBUG = 'Y') THEN
97: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
98: arp_standard.debug('Debug: ' || l_debug_info);
99: arp_standard.debug(SQLERRM);
100: END IF;
101: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
94: WHEN OTHERS THEN
95: IF (SQLCODE <> -20001) THEN
96: IF (PG_DEBUG = 'Y') THEN
97: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
98: arp_standard.debug('Debug: ' || l_debug_info);
99: arp_standard.debug(SQLERRM);
100: END IF;
101: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
102: FND_MSG_PUB.ADD;
95: IF (SQLCODE <> -20001) THEN
96: IF (PG_DEBUG = 'Y') THEN
97: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
98: arp_standard.debug('Debug: ' || l_debug_info);
99: arp_standard.debug(SQLERRM);
100: END IF;
101: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
102: FND_MSG_PUB.ADD;
103: END IF;