GO_BLOCK ('ITEM_RESULT');
L_ITEM_CODE := :ITEM_RESULT.ITEM_CODE;--71720;--
   first_record;
        loop        
                   message (' item id is '||  L_ITEM_CODE  || '-' ||  :ITEM_RESULT.CHECKBOX); 
                               
      if     L_ITEM_CODE is not null and :ITEM_RESULT.CHECKBOX = 'Y' then                  
                  begin
                                APPS.Create_component_item_bom_PRO
                                (p_assembly_item_id =>l_Assembly_item_id ,
                                P_ORGANIZATION_ID =>l_Assembly_org_id,
                                P_COMPONENT_ITEM =>L_ITEM_CODE, 
                                x_err_msg =>l_err_msg,
                                x_err_status=>l_err_status
                                );
                                               COMMIT;
                              EXCEPTION
                                  WHEN OTHERS
                                  THEN
                                  fnd_message.set_string('debuging  testing '||SQLERRM||'In Exception Block');
                                  fnd_message.show;
                                  fnd_message.set_string('Component Item is Not Attached to Assembled item');      
                                  fnd_message.show;                              
                              end;                         
                  if l_err_status='S' THEN          
                   
                  fnd_message.set_string('Component Item is Attached to Assembled item');
                    fnd_message.show;     
                    Exit_Form;          
                  ELSE
                  	fnd_message.set_string('API Errors'||l_err_msg);
                    fnd_message.show;                 
            
                  	END IF;
      else
          fnd_message.set_string('Component Item not founding');
        fnd_message.show;
      end if;
      
      standard.commit;
    

exit when :system.last_record='TRUE';
next_record;

	end loop;