declare
 sm number:=0;
 temp_str varchar2(4000);
 pos pls_integer;

  type check_box_array is varray(200) of varchar2(40);

  check_arr check_box_array := check_box_array();
 cursor c1 is SELECT service_registration_id, (total_charge-discount) charge from patient_account where patient_id=:F112_X and status is null and date_to is not null and date_from is not null;


c1_record c1%rowtype;
begin

  pos:=instr(:F112_CHECKBOX,':');
 temp_str:=:F112_CHECKBOX;

 while pos > 0 loop

    check_arr.extend;
  check_arr(check_arr.count):=substr(temp_str,1,pos-1);


    temp_str:=substr(temp_str,pos+1);
  pos:=instr(temp_str,':');
 end loop;

 
 if temp_str is not null then

  check_arr.extend;
  check_arr(check_arr.count):=temp_str;
end if;

 
  if check_arr.last>0 then

    for i in 1..check_arr.last loop
        FOR c1_record IN c1 loop
        
        if c1_record.service_registration_id=check_arr(i) then
        
        
          sm:=sm+c1_record.charge;
    
       end if;  
       
end loop;
   end loop;
:P6_CHARGES_SUM:=sm;   
        
 end if;
   
end;

type check_box_array is varray(1000) of varchar2(40);