DECLARE
    	 L_REQUESTID   NUMBER ;
       V_REQ_NO      NUMBER(20);
      
           
    BEGIN
L_REQUESTID := FND_REQUEST.SUBMIT_REQUEST('PO',
					                                          'XXPLAUTOREQINTERFACE',  
					            'XXPL Auto Requisition Interface Prog',  
                                          SYSDATE,
                                          FALSE,                                                  
							CHR(0),
							);
                                          COMMIT;
    
FOR J IN 1.. :PARAMETER.RECORD_COUNT LOOP
		   	 			   	 
IF :XXPL_PO_REQUISITION_STG.REQUISITION_CHECKBOX='Y' THEN
 BEGIN
SELECT PRHL.SEGMENT1	  INTO :XXPL_PO_REQUISITION_STG.REQ_NUMBER
						  FROM FND_CONCURRENT_REQUESTS FCR ,
						       PO_REQUISITION_HEADERS_ALL PRHL
						 WHERE FCR.REQUEST_ID=PRHL.REQUEST_ID
						   AND FCR.PARENT_REQUEST_ID=L_REQUESTID;
								       				         
END;
		
IF :SYSTEM.LAST_RECORD= 'TRUE' THEN
EXIT;
ELSIF :SYSTEM.LAST_RECORD= 'FALSE' THEN
NEXT_RECORD; 
END IF;
--NEXT_RECORD;
ELSIF :XXPL_PO_REQUISITION_STG.REQUISITION_CHECKBOX IS NULL  THEN
NEXT_RECORD;	   	 			   
 	END IF;
	  END LOOP;
      
   
     FIRST_RECORD;
               
     EXCEPTION
WHEN NO_DATA_FOUND THEN
	FND_MESSAGE.SET_STRING('Please check Log file');
      FND_MESSAGE.SHOW;
    	   										
		END;