1111

ORA-06550: Строка 20, столбец 10: PL/SQL: ORA-00904: "USR70_PKG_GET_HOSP_FACT_DAY"."GET_FACT_DAY_BY_HH_ID": недопустимый идентификатор ORA-06550: Строка 9, столбец 3: PL/SQL: SQL Statement ignored SQL: --Изменения внесенные Томском, изменил подбор клинического диагноза по типу на 70, изменил пакет рассчета койко-дней declare nAA VARCHAR2(1500); nCC VARCHAR2(1500); pregnancy float; dHH_DATE_OUT DATE; sFEATURES VARCHAR(2000); begin select hh.PATIENT_FIO, pmc.SEX, pmc.nSEX, pmc.BIRTHDATE, d_pkg_dat_tools.full_years(sysdate,pmc.BIRTHDATE), hh.HH_NUMB_FULL, trunc(hh.DATE_IN), to_char(hh.DATE_IN, 'hh24:mi') TIME_IN, trunc(hh.DATE_OUT), trunc(hh.PLAN_DATE_OUT), --D_PKG_HOSP_HISTORIES.GET_FACT_DAYS(hh.ID,hh.LPU) ||' дней', USR70_PKG_GET_HOSP_FACT_DAY.GET_FACT_DAY_BY_HH_ID(hh.ID,hh.LPU) ||' дней', hh.DISEASECASE, hh.MKB_FINAL_ID, hh.MKB_RECEIVE_ID, hh.MKB_SEND_ID, hh.PATIENT_ID, hh.PATIENT_AGENT, hh.HH_TYPE, hh.DATE_OUT, hh.FEATURES into :PAT_FIO, :SEX, :NSEX, :BIRTHDATE, :PAT_YEARS, :HH_PREF_NUMB, :DATE_IN, :TIME_IN, :DATE_OUT, :PLAN_DATE_OUT, :HOSP_DAYS, :DISEASECASE, :MKB_FINAL_ID, :MKB_RECEIVE_ID, :MKB_SEND_ID, :PERSMEDCARD, :AGENT, :HH_TYPE, dHH_DATE_OUT, sFEATURES from D_V_HOSP_HISTORIES hh, D_V_PERSMEDCARD_FIO pmc where hh.ID = :HH_ID and hh.PATIENT_ID = pmc.ID; begin select h.ID into :RELATIVE_HH_ID from D_V_HOSP_HISTORIES_RELATIVE h where h.RELATIVE_HH=:HH_ID and (h.DATE_OUT is null or h.DATE_OUT=dHH_DATE_OUT); exception when NO_DATA_FOUND then :RELATIVE_HH_ID:=null; end; --болк HH_DEP begin if(:NSEX = 0) then pregnancy := d_pkg_agent_pregnancy.GET_TERM(:LPU, :AGENT, sysdate); if pregnancy > 0 and pregnancy < 43 then :PREGNANCY := pregnancy; end if; end if; end; begin select nvl(to_char(b5.DATE_OUT,'dd.mm.yyyy hh24:mi'), :DATE_OUT), t.FIO, t.PAYMENT_KIND_NAME, t.PAYMENT_KIND_ID, t.ID, t.MKB_ID, t.MKB||' - '||t.MKB_NAME, t.MKB_EXACT into :DATE_OUT, :HEALING_EMPLOYER, :PAYMENT_KIND, :PAYMENT_KIND_ID, :HH_DEP_ID, :MKB_DEP_ID,:MKB_DEP,:MKB_DEP_EXACT from d_v_hosp_history_deps t, D_V_HOSP_HISTORIES_BASE b5 where t.DATE_IN in (select max(t1.DATE_IN) from d_v_hosp_history_deps t1 where t1.PID=:HH_ID) and t.PID=:HH_ID and b5.id=t.pid; exception when NO_DATA_FOUND then :DATE_IN := null; :DATE_OUT := null; when TOO_MANY_ROWS then D_P_EXC('Ошибка с историей болезни! Одинаковые даты поступления.'); end; begin select t.MKB_ID, t.MKB||' - '||t.MKB_NAME, t.MKB_EXACT into :MKB_CLINIC_ID,:MKB_CLINIC,:MKB_CLINIC_EXACT from D_V_HOSP_HISTORY_DIAGNS t where t.pid=:HH_ID and t.HOSP_DIAGN_TYPE_ID=70 --and t.IS_MAIN=1 ; exception when no_data_found then :MKB_CLINIC_ID := null; :MKB_CLINIC := null; :MKB_CLINIC_EXACT := null; end; :DATE_OUT := nvl (:DATE_OUT, 'не выписан'); select t.MES, t.MES_NAME into :MES, :MES_NAME from D_V_DISEASECASES t where t.ID = :DISEASECASE; if :MES_NAME is null then :MES_NAME := 'Выберите стандарт лечения'; end if; --сигнальная инфо nAA :=D_pkg_AGENT_ALLERG_ANAMNESIS.GET_BY_STRING(:AGENT, sysdate) ; nCC := null; if :HH_TYPE != 4 or :HH_TYPE is null then /*для психов соп. заболевания не показываем*/ for cur in (select t.* from d_v_agent_comp_diseases t where t.PID = :AGENT and (t.DATE_END >= trunc(sysdate) or t.DATE_END is null)) loop nCC := nCC||', '||cur.COMP_DISEASE; end loop; nCC := substr(nCC,3); end if; select decode(nCC,null,null,' Соп. забол.: '||nCC||'. ')||decode(nAA,null,null,'Аллерг. анамнез: '||nAA||'. ')||decode(sFEATURES, null, null, 'Особые отметки: '||sFEATURES) into :SIGNAL_INFO from dual; if :SIGNAL_INFO is not null then :SIGNAL_INFO := substr(:SIGNAL_INFO, 1, 100)||'...'; :SIGNAL_INFO_LINK := 'Подробнее'; else :SIGNAL_INFO_LINK := 'Добавить'; end if; select t.LPUDICT_ID into :LPUDICT_ID from D_V_LPU t where t.ID = :LPU; begin select ab.DEATHDATE into :DEADDATA from D_V_AGENTS_BASE ab where ab.id=:AGENT; exception when NO_DATA_FOUND then :DEADDATA:=null; end; if :DEADDATA is null then begin select drj.ID into :DEADDATA from D_V_DEAD_REG_ISSUE_JOUR drj where drj.HOSP_HISTORY_ID=:HH_ID; exception when NO_DATA_FOUND then :DEADDATA:=null; end; end if; -- Проверка есть ли пациент в ноз.регистрах select count(1) into :IS_IN_NOS_RIGISTRS from D_V_NR_PATIENTS t where t.AGENT_ID = :AGENT and rownum = 1; end; OFFSET: 709 PARAMS: [*]LPU:10903[*]HH_ID:123180129[*]PAT_FIO:[*]SEX:[*]NSEX:[*]BIRTHDATE:[*]PAT_YEARS:[*]HH_PREF_NUMB:[*]DATE_IN:[*]TIME_IN:[*]DATE_OUT:[*]PLAN_DATE_OUT:[*]HOSP_DAYS:[*]HH_DEP_ID:[*]HEALING_EMPLOYER:[*]PAYMENT_KIND:[*]MES:[*]DISEASECASE:[*]MKB_DEP:[*]MKB_CLINIC:[*]MKB_DEP_EXACT:[*]MKB_CLINIC_EXACT:[*]PERSMEDCARD:[*]AGENT:[*]SIGNAL_INFO:[*]SIGNAL_INFO_LINK:[*]PAYMENT_KIND_ID:[*]LPUDICT_ID:[*]MKB_FINAL_ID:[*]MKB_DEP_ID:[*]MKB_CLINIC_ID:[*]MKB_RECEIVE_ID:[*]MKB_SEND_ID:[*]PREGNANCY:[*]HH_TYPE:[*]MES_NAME:[*]DEADDATA:[*]RELATIVE_HH_ID:[*]IS_IN_NOS_RIGISTRS: