41: ----------------------------------------------------------------------------
42: l_debug_info := 'In debug mode, log we have entered this procedure';
43: ----------------------------------------------------------------------------
44: IF (PG_DEBUG = 'Y') THEN
45: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
46: END IF;
47:
48: IF (x_Registration_Id is NULL) THEN
49: l_debug_info := 'Open cursor C2';
115: ----------------------------------------------------------------------------
116: l_debug_info := 'In debug mode, log that we have exited this procedure';
117: ----------------------------------------------------------------------------
118: IF (PG_DEBUG = 'Y') THEN
119: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
120: END IF;
121:
122:
123: EXCEPTION
123: EXCEPTION
124: WHEN OTHERS THEN
125: IF (SQLCODE <> -20001) THEN
126: IF (PG_DEBUG = 'Y') THEN
127: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
128: arp_standard.debug(SQLERRM);
129: END IF;
130: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
131: FND_MSG_PUB.ADD;
124: WHEN OTHERS THEN
125: IF (SQLCODE <> -20001) THEN
126: IF (PG_DEBUG = 'Y') THEN
127: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
128: arp_standard.debug(SQLERRM);
129: END IF;
130: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
131: FND_MSG_PUB.ADD;
132: END IF;
148: EXCEPTION
149: WHEN OTHERS THEN
150: IF (SQLCODE <> -20001) THEN
151: IF (PG_DEBUG = 'Y') THEN
152: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
153: arp_standard.debug(SQLERRM);
154: END IF;
155: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
156: FND_MSG_PUB.ADD;
149: WHEN OTHERS THEN
150: IF (SQLCODE <> -20001) THEN
151: IF (PG_DEBUG = 'Y') THEN
152: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
153: arp_standard.debug(SQLERRM);
154: END IF;
155: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
156: FND_MSG_PUB.ADD;
157: END IF;
217: EXCEPTION
218: WHEN OTHERS THEN
219: IF (SQLCODE <> -20001) THEN
220: IF (PG_DEBUG = 'Y') THEN
221: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
222: arp_standard.debug(SQLERRM);
223: END IF;
224: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
225: FND_MSG_PUB.ADD;
218: WHEN OTHERS THEN
219: IF (SQLCODE <> -20001) THEN
220: IF (PG_DEBUG = 'Y') THEN
221: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
222: arp_standard.debug(SQLERRM);
223: END IF;
224: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
225: FND_MSG_PUB.ADD;
226: END IF;