我想上传任何文件，但仅加载.jpg文件

Question

if :party.party_id is not null then

    DECLARE
        pl_id        PARAMLIST;
        theformname  VARCHAR2(20);
    BEGIN
        theformname := 'addcust';

        /* Try to lookup the 'TEMPDATA' parameter list */
        pl_id := GET_PARAMETER_LIST('tempdata');
        IF NOT ID_NULL(pl_id) THEN
            DESTROY_PARAMETER_LIST(pl_id);
        END IF;

        pl_id := Create_Parameter_List('tempdata');
        Add_Parameter(pl_id,'p_party_id',TEXT_PARAMETER,:party.party_ID);


        CALL_FORM('PARTY_IMAGE', no_hide, do_replace, no_query_only, pl_id);
    END;

else
    show_message('First Enter Joining Date');
end if;