794: BEGIN
795:
796: SELECT application_name
797: INTO l_txn_rec.source_application_name
798: FROM fnd_application_vl
799: WHERE application_id IN (SELECT source_application_id
800: FROM csi_txn_types
801: WHERE transaction_type_id = l_txn_rec.transaction_type_id);
802: