create or replace
PROCEDURE "P_PXPAPER_HIS_INSERT"
(    
  PARAM_HIS_ID IN OUT VARCHAR2,
    PARAM_SCORE IN NUMBER := NULL,
    PARAM_NUMBER IN NUMBER := NULL,
    PARAM_PAPER_ID IN VARCHAR2 := NULL,
    PARAM_USERID IN VARCHAR2 := NULL,
    PARAM_MEMO IN VARCHAR2 := NULL,
    PARAM_CREATE_TIME IN DATE := SYSDATE  
)
AS
BEGIN   
 IF ISNULLOREMPTY(PARAM_HIS_ID)=1 THEN
    SELECT GET_CURRENT_SERVER_ID || '-' || "SEQ_PXPAPER_HIS".NEXTVAL INTO PARAM_HIS_ID FROM DUAL;
 ELSE
    --保持原来值
    PARAM_HIS_ID:=PARAM_HIS_ID;
 END IF;
 INSERT INTO "PXPAPER_HIS"(
    "HIS_ID","SCORE","NUMBER","PAPER_ID","USERID","MEMO","CREATE_TIME"
 ) VALUES (
    PARAM_HIS_ID,PARAM_SCORE,PARAM_NUMBER,PARAM_PAPER_ID,PARAM_USERID,PARAM_MEMO,PARAM_CREATE_TIME
 );

END;

/


create or replace
PROCEDURE "P_PXPAPER_HIS_DELETE"
(
    PARAM_HIS_ID VARCHAR2
)    
AS
BEGIN
    DELETE FROM "PXPAPER_HIS"
    WHERE
        "HIS_ID" = PARAM_HIS_ID;
END;

/