CREATE OR REPLACE PROCEDURE VW_SearchInfo(x out varchar2)
is
PTemp        		INT;
    POLDid       		NUMBER(10,0);
    PHitListid   		NUMBER(10,0);
    PNodeid	     		NUMBER(10,0);
    PSearchName  		VARCHAR2(255);
    Token		        VARCHAR2(255);
    PFieldText			VARCHAR2(255);
    PContaintsText		VARCHAR2(255);
    PName			VARCHAR2(255);
    PRetval                     VARCHAR2(255);
 BEGIN
        
	BEGIN
            Select VWUpdateSearch('0		1	3	africa		0	0					vwadmin	10.4.8.25	1')
	    into PRetval from dual;
	    EXCEPTION
		   WHEN NO_DATA_FOUND THEN
			PRetval:=0;
			NULL;
		   WHEN OTHERS THEN
			PRetval:=0;
			NULL;
        END;
        
	IF(PRETVAL>0) THEN
	  BEGIN
	     VWRemoveSearchAuthors(PRetval);
	     VWRemoveSearchDocTypes(PRetval);
	     VWRemoveSearchConds(PRetval);
	  END; 
        END IF;


         BEGIN
	     Select VWSearch('321	0	1001	vwadmin	10.4.8.25	0	1	Search Criteria =  [Index contains = africa] [Location = LOCAL.room_2009\New Cabinet\New Drawer\Test Scenarios] [ Node Id = 3] [search in comment = false] [previous version = false] ')
	     into PFieldText from dual;
             EXCEPTION
		   WHEN NO_DATA_FOUND THEN
			PFieldText:=0;
			NULL;
		   WHEN OTHERS THEN
			PFieldText:=0;
			NULL;
        END;
 END;

if pretval > 0