Conditionally set page item based on value of another item

Question

Hello,
I have a form that is used to create/apply changes to records. There is an application item (APP_ITEM_PROFILE)
that is set on login which contains a value for the user's Profile ID. This Profile ID is used through out the
application for authorizations (conditionally present tabs, etc).
I've set a page item on the form equal to APP_ITEM_PROFILE so that the record is stamped
with that user's profile ID when they create a record. Users with different Profile IDs may later make changes to
the record but I want to keep the original Profile_ID on the record.
I am trying to populate the Profile ID conditionally in the form based on the existence of a
record ID. If there is no ID (a new record is being entered), then I want the
Profile ID to be that of the current user (APP_ITEM_PROFILE). If there is an ID (modification is
being made to an existing record), then I want the keep the Profile ID that was originally saved
with the record in MyTable.
I have this as the source for :P11_PROFILE_ID. The type is PL/SQL Expression or Function, Always, replacing... but it
is not working (page not found when page is run):
begin
if :P11_ID is not null
then
select PROFILE_ID
into :P11_PROFILE_ID
from MyTable
where ID = :P11_ID;
elsif :P11_ID is null
then select nv(':APP_ITEM_PROFILE') into :P11_PROFILE_ID from dual;
end if;
end;
Item Descriptions:
ID is the record ID.
:P11_ID is the page item of the record ID (Display as Text, saves state).
PROFILE_ID is the user's Profile ID.
:P11_PROFILE_ID     is the page item of the user's Profile ID.
:APP_ITEM_PROFILE is the user's Profile ID that is set on login.
Any help is greatly appreciated.
Thanks,
Matt
Update:
I found one of Scott's answers:
Using IF Else to determine the value of a Item
and modified the above code to:
declare l_ret number;
begin
if :P11_ID is not null
then
select PROFILE_ID
into l_ret
from MyTable
where ID = :P11_ID;
else select :APP_ITEM_PROFILE' into l_ret from dual;
end if;
return l_ret;
end;
It seems to be setting the Profile ID correctly when the ID is not null, but not when a new record is being created. In the latter case, there is no value.
Edited by: mterlesky on May 11, 2009 11:02 PM
Edited by: mterlesky on May 11, 2009 11:52 PM
Edited by: mterlesky on May 11, 2009 11:53 PM

Answer 1

Thanks. That is putting the value into the page item and session state but that value is not being saved when the record is created. I'm not sure why - here is part of the debug (the "Billing" table is the "MyTable" table in the previous posting). Any thoughts?
On form, before submit:
0.06: Saving g_arg_names=P11_PROFILE_ID and g_arg_values=112
0.06: ...Session State: Saved Item "P11_PROFILE_ID" New Value="112"
After Submit
0.06: ...Session State: Save "P11_PROFILE_ID" - saving same value: "112"
(validations not shown)
0.10: Processing point: AFTER_SUBMIT
0.10: ...Process "Get PK": PLSQL (AFTER_SUBMIT) declare function get_pk return varchar2 is begin for c1 in (select BILLING_SEQ.nextval next_val from dual) loop return c1.next_val; end loop; end; begin :P11_ID := get_pk; end;
0.10: ...Session State: Save Item "P11_ID" newValue="452" "escape_on_input="Y"
0.10: ...Do not run process "Get PK for CREATEAGAIN", process point=AFTER_SUBMIT, condition type=, when button pressed=CREATEAGAIN
0.10: ...Process "Process Row of BILLING": DML_PROCESS_ROW (AFTER_SUBMIT) #OWNER#:BILLING:P11_ID:ID|IUD
0.10: ...Process "Update TOTAL_HOURS": PLSQL (AFTER_SUBMIT) begin Update billing set TOTAL_HOURS = ((NVL(CD_90801_UNITS,0)*1.5)+ (NVL(CD_90804_UNITS_B,0)*.5)+ NVL(CD_90806_UNITS,0)+ (NVL(CD_90808_UNITS_B,0)*1.5)+ NVL(CD_90812_UNITS,0)+ (NVL(CD_90814_UNITS_B,0)*1.5)+ NVL(CD_90846_UNITS,0)+ NVL(CD_90847_UNITS,0)+ NV
0.11: ...Process "Update TOTAL_UNITS": PLSQL (AFTER_SUBMIT) begin Update billing set TOTAL_UNITS = (NVL(CD_90801_UNITS,0)+ NVL(CD_90804_UNITS_B,0)+ NVL(CD_90806_UNITS,0)+ NVL(CD_90808_UNITS_B,0)+ NVL(CD_90812_UNITS,0)+ NVL(CD_90814_UNITS_B,0)+ NVL(CD_90846_UNITS,0)+ NVL(CD_90847_UNITS,0)+ NVL(CD_90853_UNITS,0)+ NV
0.11: ...Process "G_TRANS_COUNT_ADD": PLSQL (AFTER_SUBMIT) begin :G_TRANS_COUNT := :G_TRANS_COUNT +1; end;
0.11: ...Session State: Saved Item "G_TRANS_COUNT" New Value="1"
0.11: ...Process "Email_Notification": PLSQL (AFTER_SUBMIT) declare l_body_html varchar2(4000); begin l_body_html := '<p>Billing ID '||:P11_ID||' was entered by '||:P11_PROV_NAME||'.'|| ' More transactions may have been entered by the provider after this one.'||'</p> <p><a
Edited by: mterlesky on May 12, 2009 9:21 AM