29: end if;
30:
31: select to_date(p_date,'DD-MM-YYYY')
32: into x_date
33: from dual;
34:
35: p_status:= 0;
36: flag_exit := 0;
37:
98: else
99: flag_exit := 1;
100: select to_char(x_date,'DD-MM-YYYY')
101: into p_new_date
102: from dual;
103: end if;
104:
105: EXCEPTION
106: WHEN NO_DATA_FOUND THEN
140: end if;
141:
142: select to_date(p_date,'DD-MM-YYYY')
143: into x_date
144: from dual;
145:
146: p_status:= 0;
147: flag_exit := 0;
148:
210: else
211: flag_exit := 1;
212: select to_char(x_date,'DD-MM-YYYY')
213: into p_new_date
214: from dual;
215: end if;
216:
217: EXCEPTION
218: WHEN NO_DATA_FOUND THEN