مساعده في تلوين Tabuler Data Block

صباح الخير

لو سمحتوا بغيت مساعده

انا عندي تابلور فيه ريكوردز اريد ان تتلون بحسب شروط معينه
عملت بريسيجر اسمها setrange2 و خليتها في ال post query ولكنها لا تعمل وعملت بريسيجر اخري فيها لوب وايضا لا تعمل ويكون الerror ora--06502 ولا يطلع اي ناتج

هذي هي البريسيجرز

PROCEDURE set_range2 IS

BEGIN if :vital_sign2.heart_rate is not null then
	IF :control3.age1 =0  THEN		--- NEWPORN
			if :vital_sign2.heart_rate between 100 and 160 then
				 --:sign2:='';
				 set_item_Instance_property('vital_sign2.heart_rate', visual_attribute,'white');
			elsif :vital_sign2.heart_rate < 100  then
				--:sign2:='L';
				set_item_Instance_property('vital_sign2.heart_rate', visual_attribute,'YALLOW'); -- was 'orange'
			elsif :vital_sign2.heart_rate > 160 then
				--:sign2:='H';
				set_item_Instance_property('vital_sign2.heart_rate', visual_attribute,'red');
			end if;
	END IF;
	
	IF :control3.age1 >=0 AND :control3.age1<=12 THEN		--- child range
			if :vital_sign2.heart_rate between 70 and 120 then
				 --:sign2:='';
				 set_item_Instance_property('vital_sign2.heart_rate', visual_attribute,'white');
			elsif :vital_sign2.heart_rate < 70  then
				--:sign2:='L';
				set_item_Instance_property('vital_sign2.heart_rate', visual_attribute,'YALLOW'); -- was 'orange'
			elsif :vital_sign2.heart_rate > 120 then
				--:sign2:='H';
				set_item_Instance_property('vital_sign2.heart_rate', visual_attribute,'red');
			end if;
	ELSE		--- adult range		
			if :vital_sign2.heart_rate between 60 and 100 then
				 --:sign2:='';
				 set_item_Instance_property('vital_sign2.heart_rate', visual_attribute,'white');
			elsif :vital_sign2.heart_rate < 60  then
				--:sign2:='L';
				set_item_Instance_property('vital_sign2.heart_rate', visual_attribute,'YALLOW'); -- was 'orange'
			elsif :vital_sign2.heart_rate > 100 then
				--:sign2:='H';
				set_item_Instance_property('vital_sign2.heart_rate', visual_attribute,'red');
			end if;
	end if;
	else
		--:sign2:='';
		set_item_Instance_property('vital_sign2.heart_rate', visual_attribute,'white');
end if;

---------------

if :vital_sign2.pulse is not null then 
 IF :control3.age1 =0  THEN		--- NEWPORN
	if :vital_sign2.pulse between 100 and 160 then
		 set_item_Instance_property('vital_sign2.pulse', visual_attribute,'white');
			elsif :vital_sign2.pulse < 100  then
				--:sign2:='L';
				set_item_Instance_property('vital_sign2.pulse', visual_attribute,'YALLOW'); -- was 'orange'
			elsif :vital_sign2.pulse > 160 then
				--:sign2:='H';
				set_item_Instance_property('vital_sign2.pulse', visual_attribute,'red');
			end if;
	END IF;
	
	IF :control3.age1 >=0 AND :control3.age1<=12 THEN		--- child range
			if :vital_sign.pulse between 70 and 120 then
				 --:sign2:='';
				 set_item_Instance_property('vital_sign2.pulse', visual_attribute,'white');
			elsif :vital_sign2.pulse < 70  then
				--:sign2:='L';
				set_item_Instance_property('vital_sign2.pulse', visual_attribute,'YALLOW'); -- was 'orange'
			elsif :vital_sign2.pulse > 120 then
				--:sign2:='H';
				set_item_Instance_property('vital_sign2.pulse', visual_attribute,'red');
			end if;
	ELSE		--- adult range		
			if :vital_sign2.pulse between 60 and 100 then
				 --:sign2:='';
				 set_item_Instance_property('vital_sign2.pulse', visual_attribute,'white');
			elsif :vital_sign2.pulse < 60  then
				--:sign2:='L';
				set_item_Instance_property('vital_sign2.pulse', visual_attribute,'YALLOW'); -- was 'orange'
			elsif :vital_sign2.pulse > 100 then
				--:sign2:='H';
				set_item_Instance_property('vital_sign2.pulse', visual_attribute,'red');
			end if;
	end if;
	else
		--:sign2:='';
		set_item_Instance_property('vital_sign2.pulse', visual_attribute,'white');
end if;

---------------

---------------------
if :vital_sign2.RESP_RATE is not null then
	if :vital_sign2.RESP_RATE between 12 and 16 then
		 --:sign3:='';
		 set_item_Instance_property('vital_sign2.RESP_RATE', visual_attribute,'white');
	elsif :vital_sign2.RESP_RATE < 12  then
		--:sign3:='L';
		set_item_Instance_property('vital_sign2.RESP_RATE', visual_attribute,'red'); -- was 'orange'
	elsif :vital_sign2.RESP_RATE > 16 then
		--:sign3:='H';
		set_item_Instance_property('vital_sign2.RESP_RATE', visual_attribute,'red');
	end if;
	else
		--:sign3:='';
		set_item_Instance_property('vital_sign2.RESP_RATE', visual_attribute,'white');
end if;
---------------------
if :vital_sign2.temp is not null then 
	if :vital_sign2.temp between 36.5 and 37.4 then
		 --:sign4:='';
		 set_item_property('vital_sign2.temp', visual_attribute,'white');
	elsif :vital_sign2.temp < 36.5  then
		--:sign4:='L';
		set_item_property('vital_sign2.temp', visual_attribute,'red'); -- was 'orange'
	elsif :vital_sign2.temp > 37.5 then
		--:sign4:='H';
		set_item_property('vital_sign2.temp', visual_attribute,'red');
	end if;
	else
		--:sign4:='';
		set_item_property('vital_sign2.temp', visual_attribute,'white');
	end if;
	


--------------------------
if :vital_sign2.rbs is not null then 
	if :vital_sign2.rbs between 3.5 and 6.5 then
		 --:sign6:='';
		 set_item_Instance_property('vital_sign2.rbs', visual_attribute,'white');
	elsif :vital_sign2.rbs < 3.5  then
		--:sign6:='L';
		set_item_Instance_property('vital_sign2.rbs', visual_attribute,'red'); -- was 'orange'
	elsif :vital_sign2.rbs > 6.5 then
		--:sign6:='H';
		set_item_Instance_property('vital_sign2.rbs', visual_attribute,'red');
	end if;
	else
		--:sign6:='';
		set_item_Instance_property('vital_sign2.rbs', visual_attribute,'white');
	end if;
-------------------------------
if :vital_sign2.weight is not null then 
	if :vital_sign2.weight between 1 and 120 then
		 --:sign6:='';
		 set_item_Instance_property('vital_sign2.weight', visual_attribute,'white');
	elsif :vital_sign2.weight < 1  then
		--:sign6:='L';
		set_item_Instance_property('vital_sign2.weight', visual_attribute,'red'); -- was 'orange'
	elsif :vital_sign2.weight >120 then
		--:sign6:='H';
		set_item_Instance_property('vital_sign2.weight', visual_attribute,'red');
	end if;
	else
		--:sign6:='';
		set_item_Instance_property('vital_sign2.weight', visual_attribute,'white');
	end if;
--------------------------

END;

و البريسيجر الاخري

PROCEDURE range_1 IS
cur_itm   VARCHAR2(80);
cur_block VARCHAR2(80) := :System.Cursor_Block;
BEGIN cur_itm   := Get_Block_Property( cur_block, FIRST_ITEM ); 
WHILE ( cur_itm IS NOT NULL ) LOOP
cur_itm := cur_block||'.'||cur_itm;   
 
 set_range2;

cur_itm := Get_Item_Property( cur_itm, NEXTITEM );
END LOOP;
End;