HTMLDB_APPLICATION.G_F01 has wrong value!

Question

HTMLDB_APPLICATION.G_F01 has wrong value!
Hello again,
I have a search page in my app (here the user defines the search criteria) P1.
The page branches to P130, where the result is shown. This second page contains a region of type 'SQL Query (PL/SQL Function Body Returning SQL Query)'. The code for this dynamic query is 231 lines of code, so I want to spare you scrolling through it here . What it basically does is generating SQL QRY's such as the following:
select     distinct(sq.SAMPLE_ID) XXX,
'ID: '||sq.SAMPLE_ID||'
' ||'Type: '||sq.SAMPLE_TYPE||'
' ||'Collection Date: '||sq.COLLECTION_DATE SAMPLE_INFO,
'Aliquots (T/A): '||to_char(sq.ALIQUOTS_TOTAL)|| '/' ||to_char(sq.ALIQUOTS_AVAILABLE)||'
' ||'Volume (T/A): '||to_char(sq.VOLUME_TOTAL,'990D00')|| '/' ||to_char(sq.VOLUME_AVAILABLE,'990D00') AVAILABILITY,
'Age: '||sq.PATIENT_AGE||'
' ||'Gender: '||sq.PATIENT_SEX||'
' ||'Bloodtype: '||sq.BLOOD_TYPE||'
' PATIENT_INFO,
DML_SERVICE.get_Diagnoses(sq.SAMPLE_ID) DIAGNOSES,
DML_SERVICE.get_Medications(sq.SAMPLE_ID) MEDICATIONS,
DML_SERVICE.get_Interferences(sq.SAMPLE_ID) INTERFERENCES,
DML_SERVICE.get_LabData(sq.SAMPLE_ID) LABDATA,
decode(to_char(sq.ALIQUOTS_AVAILABLE), '0', null, htmldb_item.text(1, '1', 1, 2)) ORDER_QTY,
decode(to_char(sq.ALIQUOTS_AVAILABLE), '0', null, htmldb_item.checkbox(2,sq.SAMPLE_ID)) ORDER_ME
from SEARCH_V01 sq
where sq.DIAGNOSIS = 'D-Dimer'
order by 1 desc
The DML_SERVICE functions just return a string(Varchar2). At the right side of the report I have two columns, one with a textfield (ORDER_QTY, default: 1) and one with a checkbox (ORDER_ME) for each line.
For each line where the checkbox is checked, a process (On Submit - after Comp and Val) places the order for the requested quantity (this is done by inserting an Order ID into the ALIQUOTS table -> see bold update statement below).
The process follows:
declare
alq_qty number;
alq_id number;
cnt number;
begin
cnt := 0;
for i in 1..HTMLDB_APPLICATION.G_F02.count
loop
select count(*) -- set alq_qty to number of available alq's
into alq_qty
from ALIQUOTS a
where a.SAMPLE_ID = HTMLDB_APPLICATION.G_F02(i)
and a.ORDER_ID = 0;
insert into D_DEBUG (ID, DD) values (1, 'wanted: ' || HTMLDB_APPLICATION.G_F01(i) || ' available: ' || alq_qty); -- REMOVE!!!
if alq_qty > to_number(HTMLDB_APPLICATION.G_F01(i)) then -- if there are enough alq's
alq_qty := to_number(HTMLDB_APPLICATION.G_F01(i)); -- set alq_qty to number of ordered alq's
end if;
for n in 1..alq_qty
loop
select min(ID)
into alq_id
from ALIQUOTS
where sample_id = HTMLDB_APPLICATION.G_F02(i)
and order_id = 0;
insert into D_DEBUG (ID, DD) values (1, 'alq_id: '||alq_id); -- REMOVE!!!
update ALIQUOTS
set order_id = :P130_SELECT_ORDER
where id = alq_id;
cnt := cnt + 1;
end loop;
dml_service.upd_sample_record(HTMLDB_APPLICATION.G_F02(i)); -- refresh data in SAMPLE table
end loop;
:P130_MSG := 'Assigned '||cnt||' aliquots to order: '||:P130_SELECT_ORDER;
end;
Now my problem is that this process does what it should, sometimes. When I enter 6 in one row and check the checkbox and enter 4 in another row and check that checkbox and then press SUBMIT, 10 aliquots are assigned to my order.
Sometimes.... the other times the process just orders 2 aliquots, one of each line and disregards the number entered in the textfield.
Or so it may seem: I added some lines to write debug info into D_DEBUG (see above.) From those entries you can assume that the content of HTMLDB_APPLICATION.G_F01(i) is in fact '1' when the process does its work. So I think the problem lies somewhere in the creation of htmldb_item.text(), (I went through the API of that htmldb_item again and again...)
Also: I can reproduce / recreate this error. It's totally weird: for some rows it (always) works and for some it (always) doesn't !!!
So, any help, any suggestion is really appreciated (I'm currently working on bringing the crucial part of this to marvel.oracle.com)
-David-
[Edited by: sleuniss on Jul 15, 2004 12:18 PM]
Changed subject line.

Answer 1

Now the subjectline is right, but the indentation is gone.... :-(
again the SQL query:
select     distinct(sq.SAMPLE_ID) XXX,
           'ID: '||sq.SAMPLE_ID||'
' ||'Type: '||sq.SAMPLE_TYPE||'
' ||'Collection Date: '||sq.COLLECTION_DATE SAMPLE_INFO,
           'Aliquots (T/A): '||to_char(sq.ALIQUOTS_TOTAL)|| '/' ||to_char(sq.ALIQUOTS_AVAILABLE)||'
' ||'Volume (T/A): '||to_char(sq.VOLUME_TOTAL,'990D00')|| '/' ||to_char(sq.VOLUME_AVAILABLE,'990D00') AVAILABILITY,
           'Age: '||sq.PATIENT_AGE||'
' ||'Gender: '||sq.PATIENT_SEX||'
' ||'Bloodtype: '||sq.BLOOD_TYPE||'
' PATIENT_INFO,
           DML_SERVICE.get_Diagnoses(sq.SAMPLE_ID) DIAGNOSES,
           DML_SERVICE.get_Medications(sq.SAMPLE_ID) MEDICATIONS,
           DML_SERVICE.get_Interferences(sq.SAMPLE_ID) INTERFERENCES,
           DML_SERVICE.get_LabData(sq.SAMPLE_ID) LABDATA,
           decode(to_char(sq.ALIQUOTS_AVAILABLE), '0', null, htmldb_item.text(1, '1', 1, 2)) ORDER_QTY,
           decode(to_char(sq.ALIQUOTS_AVAILABLE), '0', null, htmldb_item.checkbox(2,sq.SAMPLE_ID)) ORDER_ME
from     SEARCH_V01 sq
where  sq.DIAGNOSIS = 'D-Dimer'
order    by 1 desc
and the process:
declare
   alq_qty number;
   alq_id number;
   cnt number;
begin
   cnt := 0;
   for i in 1..HTMLDB_APPLICATION.G_F02.count
   loop
      select count(*) -- set alq_qty to number of available alq's
       into alq_qty
       from ALIQUOTS a
       where a.SAMPLE_ID = HTMLDB_APPLICATION.G_F02(i)
       and a.ORDER_ID = 0;
insert into D_DEBUG (ID, DD) values (1, 'wanted: ' || HTMLDB_APPLICATION.G_F01(i) || ' available: ' || alq_qty); -- REMOVE!!!
      if alq_qty > to_number(HTMLDB_APPLICATION.G_F01(i)) then -- if there are enough alq's
         alq_qty := to_number(HTMLDB_APPLICATION.G_F01(i)); -- set alq_qty to number of ordered alq's
      end if;
      for n in 1..alq_qty
      loop
         select min(ID)
          into alq_id
          from ALIQUOTS
          where sample_id = HTMLDB_APPLICATION.G_F02(i)
          and order_id = 0;
insert into D_DEBUG (ID, DD) values (1, 'alq_id: '||alq_id); -- REMOVE!!!
         update ALIQUOTS
          set order_id = :P130_SELECT_ORDER
          where id = alq_id;
         cnt := cnt + 1;
      end loop;
      dml_service.upd_sample_record(HTMLDB_APPLICATION.G_F02(i)); -- refresh data in SAMPLE table
   end loop;
   :P130_MSG := 'Assigned '||cnt||' aliquots to order: '||:P130_SELECT_ORDER;
end;
-David-