[Home] [Help]
210: unit_cd VARCHAR2(30),
211: unit_version VARCHAR2(10),
212: cal_type VARCHAR2(10),
213: ci_sequence_number VARCHAR2(10),
214: rule_outcome IGS_RU_ITEM.value%TYPE,
215: uoo_id VARCHAR2(10)
216: );
217:
218: /*
224: TYPE t_set IS TABLE OF
225: r_set
226: INDEX BY BINARY_INTEGER;
227: TYPE t_stack IS TABLE OF
228: IGS_RU_ITEM.value%TYPE
229: INDEX BY BINARY_INTEGER;
230:
231:
232: /*
1771:
1772: */
1773: FUNCTION get_message
1774: RETURN VARCHAR2 IS
1775: v_message IGS_RU_ITEM.value%TYPE;
1776: v_pop_message IGS_RU_ITEM.value%TYPE;
1777: BEGIN
1778: /*
1779: there will be one or more messages on the stack
1772: */
1773: FUNCTION get_message
1774: RETURN VARCHAR2 IS
1775: v_message IGS_RU_ITEM.value%TYPE;
1776: v_pop_message IGS_RU_ITEM.value%TYPE;
1777: BEGIN
1778: /*
1779: there will be one or more messages on the stack
1780: */
1798:
1799: */
1800: PROCEDURE do_message (
1801: p_rule_number IGS_RU_RULE.sequence_number%TYPE,
1802: p_rule_outcome IGS_RU_ITEM.value%TYPE,
1803: p_tds r_tds )
1804: IS
1805: v_message_rule IGS_RU_RULE.sequence_number%TYPE;
1806: v_tds r_tds;
1841: -------------------------------------------------------------------
1842: v_member BINARY_INTEGER;
1843: v_prev_f1 VARCHAR2(30) ;
1844: v_more BOOLEAN;
1845: v_set IGS_RU_ITEM.value%TYPE;
1846: BEGIN
1847: v_prev_f1 := '@$%!*(|' ;
1848: v_more := FALSE;
1849: v_set := '{';
3375: rsm.versions rms_versions,
3376: uvr.unit_cd uvr_unit_cd,
3377: uvr.version_number uvr_version_number
3378: FROM IGS_PS_UNIT_VER_RU uvr,
3379: igs_ru_item rui,
3380: igs_ru_set_member rsm
3381: WHERE rsm.unit_cd = p_unit_cd
3382: AND uvr.s_rule_call_cd = 'TRANS'
3383: AND rui.rul_sequence_number = uvr.rul_sequence_number
3632: p_where_rule NUMBER )
3633: RETURN BINARY_INTEGER IS
3634: v_member BINARY_INTEGER;
3635: v_set2 BINARY_INTEGER;
3636: v_result IGS_RU_ITEM.value%TYPE;
3637: v_tds r_tds;
3638: BEGIN
3639: /*
3640: populate structure, target set number
3699: RETURN BINARY_INTEGER IS /* set number */
3700: v_member BINARY_INTEGER;
3701: v_set2 BINARY_INTEGER;
3702: v_set3 BINARY_INTEGER;
3703: v_result IGS_RU_ITEM.value%TYPE;
3704: v_tds r_tds;
3705: v_count NUMBER := 0;
3706: BEGIN
3707: IF p_members >= members(p_set1)
5442: -- finalized outcomes are picked for Conseded pass grades.Bug #3654871
5443: --swaghmar 15-Sep-2005 Bug# 4491456
5444: -------------------------------------------------------------------
5445: v_start_stack BINARY_INTEGER;
5446: v_result IGS_RU_ITEM.value%TYPE;
5447: v_no_parameters NUMBER;
5448: v_set IGS_RU_SET.sequence_number%TYPE;
5449: v_conditional IGS_RU_ITEM.value%TYPE;
5450: v_then IGS_RU_RULE.sequence_number%TYPE;
5445: v_start_stack BINARY_INTEGER;
5446: v_result IGS_RU_ITEM.value%TYPE;
5447: v_no_parameters NUMBER;
5448: v_set IGS_RU_SET.sequence_number%TYPE;
5449: v_conditional IGS_RU_ITEM.value%TYPE;
5450: v_then IGS_RU_RULE.sequence_number%TYPE;
5451: v_variable_no NUMBER;
5452: v_number NUMBER;
5453: v_message_stack_index BINARY_INTEGER;
5470: l_best_worst VARCHAR2(3);
5471: l_recommended VARCHAR2(3);
5472:
5473: l_n_grd_set IGS_RU_SET.sequence_number%TYPE; -- Variable to hold grading schema set.
5474: l_c_temp igs_ru_item.value%TYPE; -- Variable to hold test type
5475:
5476: BEGIN
5477: gv_turing_level := gv_turing_level + 1;
5478: /*
5487: rule_number,
5488: derived_rule,
5489: set_number,
5490: value
5491: FROM IGS_RU_ITEM
5492: WHERE rul_sequence_number = p_rule_number
5493: ORDER BY item DESC )
5494: LOOP
5495: IF rule_items.turin_function IS NOT NULL
6623: rulp_val_senna - the IGS_RU_RULE engine driver
6624: */
6625: BEGIN DECLARE
6626: v_rule_number NUMBER;
6627: v_turing_return IGS_RU_ITEM.value%TYPE;
6628: v_tds r_tds;
6629: v_before_t DATE;
6630: v_before_rb DATE;
6631: BEGIN