dwh/Package/MAP_STMT_DIST_CODE.APY
2024-01-12 15:25:44 +07:00

60 lines
1.2 KiB
Plaintext

CREATE OR REPLACE PACKAGE BODY "MAP_STMT_DIST_CODE" IS
-- Specific Method Declaration
PROCEDURE Merge_data(
result_ OUT NUMBER );
-- Specific Method Implementation
PROCEDURE Merge_data(
result_ OUT NUMBER )
IS
batch_inserted NUMBER;
batch_selected NUMBER;
batch_action VARCHAR2(20);
BEGIN
-- Truncate the target table
EXECUTE IMMEDIATE 'TRUNCATE TABLE "T_STMT_DIST_CODE"';
batch_action := 'BATCH INSERT';
batch_selected := SQL%ROWCOUNT;
INSERT
INTO
"T_STMT_DIST_CODE"
("RECORD_STATUS",
"STMT_DIST_CODE",
"STMT_DIST_DESC")
(SELECT
"T_STMT_DIST_CODE_EXT"."RECORD_STATUS" "RECORD_STATUS",
"T_STMT_DIST_CODE_EXT"."STMT_DIST_CODE" "STMT_DIST_CODE",
"T_STMT_DIST_CODE_EXT"."STMT_DIST_DESC" "STMT_DIST_DESC"
FROM
"T_STMT_DIST_CODE_EXT" "T_STMT_DIST_CODE_EXT"
);
batch_inserted := SQL%ROWCOUNT;
batch_selected := SQL%ROWCOUNT;
END Merge_data;
-- Base Method
PROCEDURE Main(
p_status OUT VARCHAR2 )
IS
result_ NUMBER;
BEGIN
Merge_data(result_);
p_status := 'OK';
EXCEPTION
WHEN others THEN
p_status := 'FAILURE';
END Main;
END "MAP_STMT_DIST_CODE";
/