DECLARE
   v_rec         recordgroup;
   vstatus       NUMBER;
   v_user        VARCHAR2(35);
   v_branch      NUMBER;
   QT            CHAR(1)      := '''';
   v_showalert   NUMBER;
BEGIN
   :SYSTEM.Message_Level    := 5;
   v_user                   := 'a';                        -- :global.username;
   -- select map_userid,map_userid from SECU_VERIFY_MAPPEDUSER 
   -- where map_verify_eventid =0125 and MAP_USER_BRID 
   -- = '||''''||v_branch||''''||' and setupuserid = '||''''||v_user||'''';

   -- v_rec := create_group_from_query('v_rec','select map_userid,map_userid 
   -- from SECU_VERIFY_MAPPEDUSER where map_verify_eventid =0125 and MAP_USER_BRID 
   -- = '||''''||v_branch||''''||'and setupuserid = '||''''||v_user||'''');
   v_rec                    :=
      CREATE_GROUP_FROM_QUERY
         ('v_rec'
        ,    'select map_userid from SECU_VERIFY_MAPPEDUSER '
          || 'where MAP_VERIFY_EVENTID=0125 and  map_user_brid in ' 
          || '(select webbranchid from WEBUSERINFO where userid in '
          || '(select id from userinfo  where  username ='
          || ''''
          || v_user
          || ''''
          || '))'
         );

   IF NOT ID_NULL(v_rec)
   THEN
      vstatus    := POPULATE_GROUP(v_rec);
      POPULATE_LIST('TRANSACTION.VERIFY', v_rec);
   END IF;
END;