CREATE OR REPLACE PROCEDURE your_stored_procedure
AS
BEGIN
  -- 在這里編寫(xiě)存儲(chǔ)過(guò)程的邏輯
  -- 示例：輸出一條消息
  DBMS_OUTPUT.PUT_LINE('Hello, this is your stored procedure.');
  -- 示例：查詢(xún)數(shù)據(jù)并處理
  FOR rec IN (SELECT * FROM your_table) LOOP
    -- 處理每一行數(shù)據(jù)
    -- 可以使用 rec.column_name 來(lái)訪(fǎng)問(wèn)具體字段的值
    -- 示例：輸出每一行的 ID 和 Name 字段值
    DBMS_OUTPUT.PUT_LINE('ID: ' || rec.id || ', Name: ' || rec.name);
  END LOOP;
END;
/

CREATE OR REPLACE PROCEDURE your_stored_procedure(p_input_param IN VARCHAR2)
AS
BEGIN
  -- 在這里編寫(xiě)存儲(chǔ)過(guò)程的邏輯，使用輸入?yún)?shù) p_input_param
  -- 示例：輸出接收到的輸入?yún)?shù)
  DBMS_OUTPUT.PUT_LINE('Received input parameter: ' || p_input_param);
  -- 示例：根據(jù)輸入?yún)?shù)查詢(xún)數(shù)據(jù)并處理
  FOR rec IN (SELECT * FROM your_table WHERE column_name = p_input_param) LOOP
    -- 處理每一行數(shù)據(jù)
    -- 可以使用 rec.column_name 來(lái)訪(fǎng)問(wèn)具體字段的值
    -- 示例：輸出每一行的 ID 和 Name 字段值
    DBMS_OUTPUT.PUT_LINE('ID: ' || rec.id || ', Name: ' || rec.name);
  END LOOP;
END;
/

CREATE OR REPLACE PROCEDURE your_stored_procedure(p_input_param IN VARCHAR2, p_output_param OUT NUMBER)
AS
BEGIN
  -- 在這里編寫(xiě)存儲(chǔ)過(guò)程的邏輯，使用輸入?yún)?shù) p_input_param
  -- 示例：根據(jù)輸入?yún)?shù)查詢(xún)數(shù)據(jù)并處理
  SELECT COUNT(*) INTO p_output_param FROM your_table WHERE column_name = p_input_param;
END;
/

DECLARE
  v_output_param NUMBER;
BEGIN
  your_stored_procedure('your_input_value', v_output_param);
  -- 在這里可以使用 v_output_param 的值進(jìn)行進(jìn)一步的處理
  DBMS_OUTPUT.PUT_LINE('Output parameter: ' || v_output_param);
END;
/

CREATE OR REPLACE PROCEDURE your_stored_procedure(p_input_param IN VARCHAR2)
AS
BEGIN
  -- 在這里編寫(xiě)存儲(chǔ)過(guò)程的邏輯，使用輸入?yún)?shù) p_input_param
  -- 示例：更新表中的數(shù)據(jù)
  UPDATE your_table
  SET column_name = p_input_param
  WHERE <條件>;
  -- 示例：提交事務(wù)
  COMMIT;
END;
/

BEGIN
  your_stored_procedure('your_input_value');
  -- 執(zhí)行其他操作
END;
/

CREATE OR REPLACE PROCEDURE your_stored_procedure(p_input_param IN VARCHAR2)
AS
BEGIN
  -- 在這里編寫(xiě)存儲(chǔ)過(guò)程的邏輯，使用輸入?yún)?shù) p_input_param
  -- 示例：刪除表中的數(shù)據(jù)
  DELETE FROM your_table
  WHERE column_name = p_input_param;
  -- 示例：提交事務(wù)
  COMMIT;
END;
/

BEGIN
  your_stored_procedure('your_input_value');
  -- 執(zhí)行其他操作
END;
/

CREATE OR REPLACE PROCEDURE your_stored_procedure(p_input_param1 IN VARCHAR2, p_input_param2 IN NUMBER)
AS
BEGIN
  -- 在這里編寫(xiě)存儲(chǔ)過(guò)程的邏輯，使用輸入?yún)?shù) p_input_param1 和 p_input_param2
  -- 示例：插入數(shù)據(jù)到表中
  INSERT INTO your_table (column1, column2)
  VALUES (p_input_param1, p_input_param2);
  -- 示例：提交事務(wù)
  COMMIT;
END;
/

BEGIN
  your_stored_procedure('value1', 123);
  -- 執(zhí)行其他操作
END;
/

CREATE OR REPLACE PROCEDURE your_stored_procedure(p_input_param IN VARCHAR2)
AS
  v_data your_table%ROWTYPE;
BEGIN
  -- 在這里編寫(xiě)存儲(chǔ)過(guò)程的邏輯，使用輸入?yún)?shù) p_input_param
  -- 示例：查詢(xún)表中的數(shù)據(jù)
  SELECT *
  INTO v_data
  FROM your_table
  WHERE column_name = p_input_param;
  -- 示例：在輸出結(jié)果中展示查詢(xún)到的數(shù)據(jù)
  DBMS_OUTPUT.PUT_LINE('Column1: ' || v_data.column1);
  DBMS_OUTPUT.PUT_LINE('Column2: ' || v_data.column2);
  -- 添加其他列的輸出
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    DBMS_OUTPUT.PUT_LINE('No data found for the input parameter.');
END;
/

BEGIN
  your_stored_procedure('your_input_value');
  -- 執(zhí)行其他操作
END;
/

CREATE OR REPLACE PROCEDURE your_stored_procedure(p_input_param IN VARCHAR2)
AS
  CURSOR cur_data IS
    SELECT *
    FROM your_table
    WHERE column_name = p_input_param;
  v_data your_table%ROWTYPE;
BEGIN
  -- 在這里編寫(xiě)存儲(chǔ)過(guò)程的邏輯，使用輸入?yún)?shù) p_input_param
  -- 示例：循環(huán)遍歷查詢(xún)結(jié)果集
  FOR rec_data IN cur_data LOOP
    -- 存儲(chǔ)每一行的數(shù)據(jù)到變量 v_data
    v_data := rec_data;
    -- 示例：在輸出結(jié)果中展示每一行的數(shù)據(jù)
    DBMS_OUTPUT.PUT_LINE('Column1: ' || v_data.column1);
    DBMS_OUTPUT.PUT_LINE('Column2: ' || v_data.column2);
    -- 添加其他列的輸出
  END LOOP;
  -- 示例：如果沒(méi)有查詢(xún)到數(shù)據(jù)，則輸出相應(yīng)的消息
  IF cur_data%NOTFOUND THEN
    DBMS_OUTPUT.PUT_LINE('No data found for the input parameter.');
  END IF;
END;
/

BEGIN
  your_stored_procedure('your_input_value');
  -- 執(zhí)行其他操作
END;
/

CREATE OR REPLACE PROCEDURE your_stored_procedure(p_input_param IN VARCHAR2, p_result OUT SYS_REFCURSOR)
AS
BEGIN
  -- 在這里編寫(xiě)存儲(chǔ)過(guò)程的邏輯，使用輸入?yún)?shù) p_input_param
  -- 示例：查詢(xún)符合條件的數(shù)據(jù)集并將結(jié)果存儲(chǔ)在游標(biāo) p_result 中
  OPEN p_result FOR
    SELECT *
    FROM your_table
    WHERE column_name = p_input_param;
END;
/

DECLARE
  v_cursor SYS_REFCURSOR;
BEGIN
  your_stored_procedure('your_input_value', v_cursor);
  -- 執(zhí)行其他操作，如處理返回的游標(biāo)數(shù)據(jù)集
END;
/

CREATE OR REPLACE PROCEDURE SP_MZ_GET_JZFYMX(P_JIUZHENID VARCHAR2,--入?yún)⒕驮\id
                                             P_ID VARCHAR2,--入?yún)n案id
                                             P_ERRMSG OUT VARCHAR2,--出參提示信息
                                             p_cursor OUT SYS_REFCURSOR--出參，游標(biāo)
                                             ) IS
   --涉及到動(dòng)態(tài)表名，所以表名需要拼接
  PRI_KH   VARCHAR2(3000);      --                                 
  PRI_SSTSQL  VARCHAR2(3000);   --sql
  PRI_NIAN1 INT;--年份1
  PRI_NIAN2 INT;--年份2 
  PRI_NUM INT :=0;--次數(shù)      
BEGIN
    --參數(shù)判斷
    IF TRIM(P_ID) IS NULL THEN
      P_ERRMSG :='檔案ID不能為空!';
      return;
      END IF;
    IF TRIM(P_JIUZHENID) IS NULL THEN
      P_ERRMSG :='就診ID不能為空!';
      return;
      END IF;
       --判斷是否建檔
SELECT COUNT(T_DANGANID) INTO PRI_KH FROM T_DANGAN WHERE T_DANGANID = P_ID;
IF TRIM(PRI_KH) = '0' THEN
  P_ERRMSG := '傳入的檔案ID對(duì)應(yīng)的檔案不存在！';
  return;
END IF;
PRI_NIAN2 := TRUNC(TO_NUMBER(EXTRACT(YEAR FROM SYSDATE)));--把當(dāng)前年份存入數(shù)據(jù)中
PRI_NIAN1 := PRI_NIAN2 - 2;--把前兩年年份存儲(chǔ)數(shù)據(jù)中
IF PRI_NIAN1 <= PRI_NIAN2 THEN
  -- 從起始數(shù)字開(kāi)始遞增循環(huán)輸出
    FOR i IN PRI_NIAN1..PRI_NIAN2 LOOP
      -- 在這里對(duì)每個(gè)整數(shù)進(jìn)行操作或展示
      if PRI_NUM > 0 then --第二次拼接sql需要  union all
        PRI_SSTSQL := PRI_SSTSQL || ' union all ' || 'select decode(b.mingcheng,'''',c.mingcheng,b.mingcheng) xmmc,a.guige xmgg,a.danwei xmdw,a.danjia xmdj,a.shuliang xmsl,a.danjia fyje,a.jiesuanshijian fyrq  
from T_shouju' || i || '  d, T_feiyong' || i || '  a,T_biaozhun b,T_yaopin c where d.jiesuanshijian = a.jiesuanshijian and d.T_danganid = a.T_danganid and 
 a.jisuanjibianma = b.jisuanjibianma(+) and a.jisuanjibianma = c.jisuanjibianma(+) and d.T_shoujuid = ' || '''' || P_JIUZHENID || '''' || ' and d.T_danganid =  ' || '''' || P_ID || '''' || ' ';
      else --第一次拼接sql 不需要拼接union all
        PRI_SSTSQL := 'select decode(b.mingcheng,'''',c.mingcheng,b.mingcheng) xmmc,a.guige xmgg,a.danwei xmdw,a.danjia xmdj,a.shuliang xmsl,a.danjia fyje,a.jiesuanshijian fyrq  
from T_shouju' || i || '  d, T_feiyong' || i || '  a,T_feiyongbiaozhun b,T_yaopin c where d.jiesuanshijian = a.jiesuanshijian and d.T_danganid = a.T_danganid and 
 a.jisuanjibianma = b.jisuanjibianma(+) and a.jisuanjibianma = c.jisuanjibianma(+) and d.T_shoujuid = ' || '''' || P_JIUZHENID || '''' || ' and d.T_danganid =  ' || '''' || P_ID || '''' || ' ';
      end if;--結(jié)束if判斷
      PRI_NUM := PRI_NUM + 1;--每次循環(huán)次數(shù)+1
    END LOOP;--結(jié)束循環(huán)
end if;--結(jié)束if判斷
//拼接不需要  動(dòng)態(tài)表名的查詢(xún)語(yǔ)句
 PRI_SSTSQL := PRI_SSTSQL || ' union all ' || 'select decode(b.mingcheng,'''',c.mingcheng,b.mingcheng) xmmc,a.guige xmgg,a.danwei xmdw,a.danjia xmdj,a.shuliang xmsl,a.danjia fyje,a.shoufeishijian fyrq  
from T_feiyong a,T_feiyongbiaozhun b,T_yaopin c where a.jisuanjibianma = b.jisuanjibianma(+) and a.jisuanjibianma = c.jisuanjibianma(+)  and a.rizhiid = ' || '''' || P_JIUZHENID || '''' || ' and a.T_danganid =  ' || '''' || P_ID || '''' || ' ';
--P_ERRMSG := PRI_SSTSQL;
OPEN p_cursor FOR PRI_SSTSQL ;--打開(kāi)游標(biāo)并賦值
EXCEPTION WHEN OTHERS THEN
--回滾SQL
--  ROLLBACK;
P_ERRMSG := '執(zhí)行錯(cuò)誤！' || CHR(13) || '錯(cuò)誤代碼：' || SQLCODE || CHR(13) || '錯(cuò)誤信息：' || SQLERRM;
 END SP_MZ_GET_JZFYMX;

DECLARE
  -- 聲明游標(biāo)變量
  P_JIUZHENID VARCHAR2(1000) := '86d26a1a-a448-464c-95dd-acc85ec6906e';
  P_ID VARCHAR2(1000) := 'da7dbe52-793a-4120-beb3-c2075cc74a53';
  P_ERRMSG VARCHAR2(2000);
  your_cursor SYS_REFCURSOR;
  -- 聲明結(jié)果變量
  your_variable1 VARCHAR2(50);  
  your_variable2 VARCHAR2(50);  
  your_variable3 VARCHAR2(50);  
  your_variable4 VARCHAR2(50);  
  your_variable5 VARCHAR2(50); 
  your_variable6 VARCHAR2(50); 
  your_variable7 VARCHAR2(50);  
BEGIN
  -- 調(diào)用存儲(chǔ)過(guò)程并傳入游標(biāo)參數(shù)
SP_MZ_GET_JZFYMX(P_JIUZHENID,P_ID,P_ERRMSG,your_cursor);
  -- 循環(huán)獲取游標(biāo)結(jié)果并展示
  LOOP
    FETCH your_cursor INTO your_variable1, your_variable2, your_variable3,your_variable4,your_variable5,your_variable6,your_variable7;
    EXIT WHEN your_cursor%NOTFOUND;
    -- 在這里對(duì)每行數(shù)據(jù)進(jìn)行展示或其他操作
    DBMS_OUTPUT.PUT_LINE(your_variable1 || ', ' || your_variable2 || ', ' ||  your_variable3|| ', ' ||  your_variable4|| ', ' ||  your_variable5|| ', ' ||  your_variable6|| ', ' ||  your_variable7);
  END LOOP;
  -- 關(guān)閉游標(biāo)
  CLOSE your_cursor;
END;
/