315: x_txn_type_id OUT NOCOPY NUMBER,
316: x_return_val OUT NOCOPY BOOLEAN) IS
317:
318: -- For transaction code.
319: CURSOR csi_txn_types_csr(p_txn_code IN VARCHAR2) IS
320: SELECT ctxn.transaction_type_id
321: FROM csi_txn_types ctxn, fnd_application app
322: WHERE ctxn.source_application_id = app.application_id
323: AND app.APPLICATION_SHORT_NAME = 'AHL'
317:
318: -- For transaction code.
319: CURSOR csi_txn_types_csr(p_txn_code IN VARCHAR2) IS
320: SELECT ctxn.transaction_type_id
321: FROM csi_txn_types ctxn, fnd_application app
322: WHERE ctxn.source_application_id = app.application_id
323: AND app.APPLICATION_SHORT_NAME = 'AHL'
324: AND ctxn.source_transaction_type = p_txn_code;
325:
328:
329: BEGIN
330:
331: -- get transaction_type_id .
332: OPEN csi_txn_types_csr(p_txn_code);
333: FETCH csi_txn_types_csr INTO l_txn_type_id;
334: IF (csi_txn_types_csr%NOTFOUND) THEN
335: FND_MESSAGE.Set_Name('AHL','AHL_UC_TXNCODE_INVALID');
336: FND_MESSAGE.Set_Token('CODE',p_txn_code);
329: BEGIN
330:
331: -- get transaction_type_id .
332: OPEN csi_txn_types_csr(p_txn_code);
333: FETCH csi_txn_types_csr INTO l_txn_type_id;
334: IF (csi_txn_types_csr%NOTFOUND) THEN
335: FND_MESSAGE.Set_Name('AHL','AHL_UC_TXNCODE_INVALID');
336: FND_MESSAGE.Set_Token('CODE',p_txn_code);
337: FND_MSG_PUB.ADD;
330:
331: -- get transaction_type_id .
332: OPEN csi_txn_types_csr(p_txn_code);
333: FETCH csi_txn_types_csr INTO l_txn_type_id;
334: IF (csi_txn_types_csr%NOTFOUND) THEN
335: FND_MESSAGE.Set_Name('AHL','AHL_UC_TXNCODE_INVALID');
336: FND_MESSAGE.Set_Token('CODE',p_txn_code);
337: FND_MSG_PUB.ADD;
338: --dbms_output.put_line('Transaction code not found');
337: FND_MSG_PUB.ADD;
338: --dbms_output.put_line('Transaction code not found');
339: l_return_val := FALSE;
340: END IF;
341: CLOSE csi_txn_types_csr;
342:
343: -- assign out parameters.
344: x_return_val := l_return_val;
345: x_txn_type_id := l_txn_type_id;