Приложение в. Текст запросов Настройка модуля (Get_Params_Module )

Select t.value_variable

From values_variables_env_rs t

Where t.id_variable_environment = %p1[i]%

And Sysdate Between t.d_start And nvl(t.d_end, Sysdate)

And t.use_sign = 1

And t.id_project = 1

Вид уровня образования (k_l_f)

Select klf.Name

,klf.idk_level_formation

,klf.qualifier

From kind_level_formation_ klf

Группы повышения квалификации (r_c_Groups)

Select eg.Name

,rcg.d_start

,rcg.d_end

,ps.Status_Text

,el.hours

,rcg.id_rc_group

,rcg.id_ed_group

,rcg.id_methodical_complex

,ps.id_paragraph

,ps.id_order

,ps.idk_order

,ps.Status_order

,rcg.id_refresher_course_plan

,ps.id_erp_user

From refresher_course_group_ rcg

,educational_group_ eg

,complex_specialities_ cs

,paragraphs_status_ ps

,methodical_complex_ mc

,educational_load_umk_ el

Where eg.id_ed_group = rcg.id_ed_group

And rcg.id_refresher_course_plan = %p1[i]%

And cs.id_methodical_complex = rcg.id_methodical_complex

And cs.id_p_dp = ps.id_paragraph

And rcg.id_methodical_complex = mc.id_methodical_complex

And el.id_methodical_complex = mc.id_methodical_complex

Добавление спец.Мет.Компл. (Add_Com_Spec)

Declare

id_m_c Number;

Begin

Insert Into methodical_complex_

(id_d, id_discipline)

Values

(%p1[i]%

,(Select d.id_discipline

From disciplines_ d

,specialities_division_ sd

Where d.Name Is Null

And d.id_speciality = sd.id_speciality

And sd.id_d_specialitie = %p2[i]%))

Returning id_methodical_complex Into id_m_c;

Insert Into complex_specialities_

(id_methodical_complex, id_d_specialitie, idk_discipline, id_p_dp)

Values

(id_m_c, %p2[i]%, %p6[i]%, %p3[i]%);

Insert Into Educational_Load_Umk_

(Id_Methodical_Complex, Idk_Training, Idk_Lesson, Semester, Hours)

Values

(id_m_c, %p4[i]%, 1, 1, %p5[s]%);

-- Самостоятельная работа

If %p7[i]% Is Not Null

And %p7[i]% > 0

Then

Insert Into Educational_Load_Umk_

(Id_Methodical_Complex, Idk_Training, Idk_Lesson, Semester, Hours)

Values

(id_m_c, %p4[i]%, 20, 1, %p7[i]%);

End If;

End;

Добавление специальности (Add_Spec)

Declare

id_spec Number;

Begin

Insert Into Speciality_

(Name, Qualifier, Idk_Level_Speciality)

Values

(%p1[s]%, %p2[s]%, %p3[s]%)

Returning Id_Speciality Into id_spec;

Insert Into Disciplines_

(Name, Abbreviation, Idk_Discipline, Id_Speciality)

Values

('', '', %p4[s]%, id_spec);

End;

Должности в комиссии (Get_Posts_For_Members)

Select p.Name

,p.id_post

From post_ p

Where p.id_post In (55005, 55003)

Изменение спец.Мет.Компл. (Update_Com_Spec)

Begin

Update complex_specialities_

Set id_d_specialitie = %p4[i]%

Where Id_Methodical_Complex = %p1[i]%

And id_d_specialitie = %p2[i]%

And id_p_dp = %p3[i]%;

Update educational_load_umk_

Set idk_training = %p5[i]%

Where Id_Methodical_Complex = %p1[i]%;

Update methodical_complex_

Set id_d = %p6[i]%

Where Id_Methodical_Complex = %p1[i]%;

End;

Источники финансирования (s_f)

Select sf.abbreviation

,sf.Name

,ts_.Get_DivisionName(sf.id_d, Sysdate, 1, 1, 2, 2)

,ts_.Get_DivisionName(sf.id_d, Sysdate, 1, 1)

,ks.Name

,ka.Name

,sf.d_end

,sf.id_source

,sf.id_d

,sf.idk_source

,sf.idk_activity

From source_financing_ sf

,attributes_divisions_ d

,kind_source_ ks

,kind_activity_ ka

,kind_activity_ kai

,kind_charges_ kc

,declination_ dc

,

-- Проверим - нужны ли закрытые источники?

(Select Case

When Exists (Select 'x'

From p_roles_current_user_ ru

Where ru.qualifier = '130') Then

'1'

Else

'0'

End qualifier

From dual) ru

Where sf.id_d = d.id_d

And (sf.d_end Is Null Or ru.qualifier = '1')

And (d.d_start = (Select Max(ad.d_start)

From attributes_divisions_ ad

Where ad.id_d = d.id_d

And ad.d_start <= Sysdate))

And sf.idk_source = ks.idk_source

And sf.idk_activity = ka.idk_activity

And sf.idk_activity_income = kai.idk_activity(+)

And sf.idk_charges = kc.idk_charges(+)

And sf.id_declination = dc.id_declination(+)

And ka.qualifier in ('2', '3')

And (%p1[i]% is null or sf.id_d = %p1[i]%)

And ks.qualifier = '2'