PROCEDURE update_anno(p_amt_id IN NUMBER, p_status IN NUMBER,retcode OUT NUMBER) IS
        existing_record number;  

    BEGIN    
    IF p_status<>2 THEN    
    
       update_log(p_amt_id, p_status,retcode);    
        
    ELSE  
    
        IF p_amt_id IS NOT NULL THEN 
            SELECT count(*) INTO existing_record FROM nc_log WHERE amt_id = p_amt_id;
        END IF;
        
        IF existing_record is null or existing_record = 0 THEN
            INSERT INTO nc_log (amt_id, status,  status_time) 
            VALUES (p_amt_id, p_status,  SYSDATE );
         END IF;   
         
    END IF;
             dbms_output.put_line('amt_id= '||p_amt_id);  
    retcode := 0;
      dbms_output.put_line('3 retcode= '||retcode);
        EXCEPTION
          WHEN OTHERS THEN
            retcode := SQLCODE;
              dbms_output.put_line('4 retcode= '||retcode);
    END;
    
--
    PROCEDURE get_log(anno OUT c_anno) IS    
     retcode NUMBER(10);
     p_amt_id NUMBER(10);
     p_status NUMBER(1);
   
    cursor cur is
    SELECT amt_id,  status
    FROM nc_log  WHERE status_time < SYSDATE;    
  
    BEGIN  
     OPEN cur;
         LOOP      
           FETCH cur INTO p_amt_id, p_status; 
           EXIT WHEN cur%NOTFOUND;         
             IF p_amt_id IS NOT NULL THEN
                update_log(p_amt_id, p_status, retcode);   
             END IF;  
              dbms_output.put_line('amt_id= '||p_amt_id);             
        END LOOP;     
      CLOSE cur; 
--      IF cur%isopen THEN CLOSE cur; END IF;
    END;
--
    PROCEDURE update_log(p_amt_id IN NUMBER, p_status IN NUMBER, retcode OUT NUMBER) IS       
        
    BEGIN       
        UPDATE nc_anno SET status = p_status
            WHERE amt_id = p_amt_id;
    
        END IF; 
        retcode := 0;
        dbms_output.put_line('1 retcode= '||retcode);  
        EXCEPTION
          WHEN OTHERS THEN
            retcode := sqlcode;
          dbms_output.put_line('2 retcode= '||retcode);       
    END;

		<?php	
				
            $retcode = update_anno($conn, 479, 3, null, null);

        echo(" First: ".$retcode);
		
		function update_anno($conn, $amt_id, $status) {
			$sql = "BEGIN nc_anno_pkg.update_anno(:amt_id, :status,  :retcode); END;";
			$stmt = ociparse($conn, $sql);
			oci_bind_by_name($stmt, ":amt_id", $amt_id);
			oci_bind_by_name($stmt, ":status", $status);
			oci_bind_by_name($stmt, ":retcode", $retcode, 9999999);
			oci_execute($stmt, OCI_COMMIT_ON_SUCCESS);
			oci_free_statement($stmt);

			return $retcode;
		}

		$annou = null;
		$sql = "BEGIN nc_anno_pkg.get_log(:anno); END;";
		$stmt = ociparse($conn, $sql);
		$cur = oci_new_cursor($conn);
		oci_bind_by_name($stmt, ":anno", $cur, -1, OCI_B_CURSOR);
		oci_execute($stmt, OCI_DEFAULT);
		oci_execute($cur, OCI_DEFAULT);
		oci_fetch_all($cur, $annou, null, null, OCI_FETCHSTATEMENT_BY_ROW);		
		oci_free_statement($cur);
		oci_free_statement($stmt);
	
		$retcode = update_log($conn, $amt_id, $status);
 
		function update_log($conn, $amt_id, $status) {
			global $conn;
			$sql = "BEGIN nc_anno_pkg.update_log(:amt_id,:status, :retcode); END;";
			$stmt = ociparse($conn, $sql);
			oci_bind_by_name($stmt, ":amt_id", $amt_id);
			oci_bind_by_name($stmt, ":status", $status);
			oci_bind_by_name($stmt, ":retcode", $retcode, 9999999);
			oci_execute($stmt, OCI_COMMIT_ON_SUCCESS);
			oci_free_statement($stmt);

			return $retcode;
		} 
		
 echo("<br/> Second: ".$retcode);
		
		?>

$annou = null;
		$sql = "BEGIN nc_anno_pkg.get_log(:anno); END;";
		$stmt = ociparse($conn, $sql);
		$cur = oci_new_cursor($conn);
		oci_bind_by_name($stmt, ":anno", $cur, -1, OCI_B_CURSOR);
		oci_execute($stmt, OCI_DEFAULT);
		oci_execute($cur, OCI_DEFAULT); // line 89
		oci_fetch_all($cur, $annou, null, null, OCI_FETCHSTATEMENT_BY_ROW); //line 90		
		oci_free_statement($cur);
		oci_free_statement($stmt);