Duplicate Record Button

Question

We are trying to duplicate a record and give it a new Key Id. We have created a new button with the following information. IT will not compile. Can you see any reasoning why we cannot do this? We have also tried using a Cursor, but that still will not work. The user will query on a key id and then click this button to duplicate that record. We want to call the new record up in the window. The trigger is on the table that creates the new key id.
DECLARE
v_ref_tracking_no number := p_session.get_value_as_number
( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_ref_tracking_no');
v_bldg varchar2(15) := p_session.get_value_as_varchar2
( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_bldg');
v_room_area varchar2(20) := p_session.get_value_as_varchar2
(p_block_name => 'DEFAULT'
, p_attribute_name => 'A_room_area');
v_disc_desc varchar2(250) := p_session.get_value_as_varchar2
(p_block_name => 'DEFAULT'
, p_attribute_name => 'A_disc_desc');
v_fac_manager varchar2(35) := p_session.get_value_as_varchar2
(p_block_name => 'DEFAULT'
, p_attribute_name => 'A_fac_manager');
v_reported_by varchar2(35) := p_session.get_value_as_varchar2
(p_block_name => 'DEFAULT'
, p_attribute_name => 'A_reported_by');
v_reported_date date := p_session.get_value_as_date
(p_block_name => 'DEFAULT'
, p_attribute_name => 'A_reported_date');
v_fac_manager_code varchar2(10) := p_session.get_value_as_varchar2
(p_block_name => 'DEFAULT'
, p_attribute_name => 'A_fac_manager_code');
v_disc_type varchar2(10) := p_session.get_value_as_varchar2
(p_block_name => 'DEFAULT'
, p_attribute_name => 'A_disc_type');
v_mod_date date := p_session.get_value_as_date
( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_mod_date');
v_mod_by varchar2(30) := portal.wwctx_api.get_user;
v_FAC_STATUS VARCHAR2(4) := p_session.get_value_as_varchar2
( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_FAC_STATUS');
v_FAC_CLOSE_date date := p_session.get_value_as_date
( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_FAC_CLOSE_date');
v_BMAR_NO varchar2(8) := p_session.get_value_as_varchar2
( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_BMAR_NO');
v_INSPECTION_TYPE varchar2(5) := p_session.get_value_as_varchar2
( p_block_name => 'DEFAULT', p_attribute_name => 'A_INSPECTION_TYPE');
v_RAC VARCHAR2(15) := p_session.get_value_as_VARCHAR2
( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_RAC');
v_FAC_MGR_ACTION varchar2(500) := p_session.get_value_as_varchar2
( p_block_name => 'DEFAULT', p_attribute_name => 'A_FAC_MGR_ACTION');
v_FAC_ADMIN_COMMENTS varchar2(500) := p_session.get_value_as_varchar2
( p_block_name => 'DEFAULT', p_attribute_name => 'A_FAC_ADMIN_COMMENTS');
v_hazard_group varchar2(40) := p_session.get_value_as_varchar2
( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_hazard_group');
v_location varchar2(20) := p_session.get_value_as_varchar2
( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_location');
v_FAC_SYSTEM varchar2(10) := p_session.get_value_as_varchar2
( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_FAC_SYSTEM');
v_work_order varchar2(10) := p_session.get_value_as_varchar2
( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_WORK_ORDER');
v_WORK_STATUS varchar2(8) := p_session.get_value_as_varchar2
( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_WORK_STATUS');
v_TARGET_START DATE := p_session.get_value_as_DATE
( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_TARGET_START');
v_TARGET_COMP DATE := p_session.get_value_as_DATE
( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_TARGET_COMP');
v_ACT_COMP_DATE DATE := p_session.get_value_as_DATE
( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_ACT_COMP_DATE');
v_BMAR_COMP_DATE DATE := p_session.get_value_as_DATE
( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_BMAR_COMP_DATE');
v_CREATE_DATE DATE := p_session.get_value_as_DATE
( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_CREATE_DATE');
v_CREATE_BY varchar2(30) := portal.wwctx_api.get_user;
v_WOPRIORITY NUMBER := p_session.get_value_as_NUMBER
( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_WOPRIORITY');
v_BMAR_STATUS varchar2(1) := p_session.get_value_as_varchar2
( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_BMAR_STATUS');
l_url varchar2 (2000);
V_NO NUMBER;
BEGIN
INSERT INTO FAC_DISCREPANCY
( BLDG,
ROOM_AREA,
DISC_DESC ,
FAC_MANAGER,
REPORTED_BY ,
REPORTED_DATE,
FAC_MANAGER_CODE ,
DISC_TYPE ,
WORK_ORDER ,
WORK_STATUS ,
TARGET_START ,
TARGET_COMP ,
ACT_COMP_DATE ,
BMAR_NO ,
BMAR_COMP_DATE ,
MOD_BY ,
MOD_DATE ,
CREATE_DATE ,
FAC_STATUS ,
FAC_CLOSE_DATE ,
CREATE_BY ,
INSPECTION_TYPE ,
RAC ,
FAC_MGR_ACTION,
FAC_ADMIN_COMMENTS,
WOPRIORITY ,
BMAR_STATUS ,
HAZARD_GROUP ,
REF_TRACKING_NO ,
LOCATION ,
FAC_SYSTEM )
values
( V_BLDG ,
V_ROOM_AREA,
V_DISC_DESC ,
V_FAC_MANAGER,
V_REPORTED_BY ,
V_REPORTED_DATE,
V_FAC_MANAGER_CODE ,
V_DISC_TYPE ,
V_WORK_ORDER ,
V_WORK_STATUS ,
V_TARGET_START ,
V_TARGET_COMP ,
V_ACT_COMP_DATE ,
V_BMAR_NO ,
V_BMAR_COMP_DATE ,
V_MOD_BY ,
V_MOD_DATE ,
V_CREATE_DATE ,
V_FAC_STATUS ,
V_FAC_CLOSE_DATE ,
V_CREATE_BY ,
V_INSPECTION_TYPE ,
V_RAC ,
V_FAC_MGR_ACTION
V_FAC_ADMIN_COMMENTS ,
V_WOPRIORITY ,
V_BMAR_STATUS ,
V_HAZARD_GROUP ,
V_REF_TRACKING_NO ,
V_LOCATION ,
V_FAC_SYSTEM );
SELECT MAX (TRACKING_NO) INTO V_NO
FROM PORTAL_PUBLIC.FAC_DISCREPANCY;
l_url:= PORTAL.wwv_user_utilities.get_url ('FACILITY_MANAGER.LINK_DUPLICATE’, ‘TRACKING_NO', V_NO, '_TRACKING_NO_cond', '=');
portal.wwa_app_module.set_target(l_url);
END;
Thanks
Jeannie

Answer 1

We got it to work. We placed this code in the button Custom PL/SQL event handler. It will insert the record and pull the new record up in the screen and the user can modify any fields needed. Hope this helps someone.
DECLARE
v_tracking_no number := p_session.get_value_as_number
     ( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_tracking_no');
v_ref_tracking_no number := p_session.get_value_as_number
     ( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_ref_tracking_no');
v_bldg varchar2(15) := p_session.get_value_as_varchar2
     ( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_bldg');
v_room_area varchar2(20) := p_session.get_value_as_varchar2
     (p_block_name => 'DEFAULT'
, p_attribute_name => 'A_room_area');
v_disc_desc varchar2(250) := p_session.get_value_as_varchar2
     (p_block_name => 'DEFAULT'
, p_attribute_name => 'A_disc_desc');
v_fac_manager varchar2(35) := p_session.get_value_as_varchar2
     (p_block_name => 'DEFAULT'
, p_attribute_name => 'A_fac_manager');
v_reported_by varchar2(35) := p_session.get_value_as_varchar2
(p_block_name => 'DEFAULT'
, p_attribute_name => 'A_reported_by');
v_reported_date date := p_session.get_value_as_date
     (p_block_name => 'DEFAULT'
, p_attribute_name => 'A_reported_date');
v_fac_manager_code varchar2(10) := p_session.get_value_as_varchar2
     (p_block_name => 'DEFAULT'
, p_attribute_name => 'A_fac_manager_code');
v_disc_type varchar2(10) := p_session.get_value_as_varchar2
     (p_block_name => 'DEFAULT'
, p_attribute_name => 'A_disc_type');
v_mod_date date := p_session.get_value_as_date
     ( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_mod_date');
v_mod_by varchar2(30) := portal.wwctx_api.get_user;
v_FAC_STATUS VARCHAR2(4) := p_session.get_value_as_varchar2
     ( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_FAC_STATUS');
v_FAC_CLOSE_date date := p_session.get_value_as_date
     ( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_FAC_CLOSE_date');
v_BMAR_NO varchar2(8) := p_session.get_value_as_varchar2
     ( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_BMAR_NO');
v_INSPECTION_TYPE varchar2(5) := p_session.get_value_as_varchar2
     ( p_block_name => 'DEFAULT', p_attribute_name => 'A_INSPECTION_TYPE');
v_RAC VARCHAR2(15) := p_session.get_value_as_VARCHAR2
     ( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_RAC');
v_FAC_MGR_ACTION varchar2(500) := p_session.get_value_as_varchar2
     ( p_block_name => 'DEFAULT', p_attribute_name => 'A_FAC_MGR_ACTION');
v_FAC_ADMIN_COMMENTS varchar2(500) := p_session.get_value_as_varchar2
     ( p_block_name => 'DEFAULT', p_attribute_name => 'A_FAC_ADMIN_COMMENTS');
v_hazard_group varchar2(40) := p_session.get_value_as_varchar2
     ( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_hazard_group');
v_location varchar2(20) := p_session.get_value_as_varchar2
     ( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_location');
v_FAC_SYSTEM varchar2(10) := p_session.get_value_as_varchar2
     ( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_FAC_SYSTEM');
v_work_order varchar2(10) := p_session.get_value_as_varchar2
     ( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_WORK_ORDER');
v_WORK_STATUS varchar2(8) := p_session.get_value_as_varchar2
     ( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_WORK_STATUS');
v_TARGET_START DATE := p_session.get_value_as_DATE
     ( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_TARGET_START');
v_TARGET_COMP DATE := p_session.get_value_as_DATE
     ( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_TARGET_COMP');
v_ACT_COMP_DATE DATE := p_session.get_value_as_DATE
     ( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_ACT_COMP_DATE');
v_BMAR_COMP_DATE DATE := p_session.get_value_as_DATE
     ( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_BMAR_COMP_DATE');
v_CREATE_DATE DATE := p_session.get_value_as_DATE
     ( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_CREATE_DATE');
v_CREATE_BY varchar2(30) := portal.wwctx_api.get_user;
v_WOPRIORITY NUMBER := p_session.get_value_as_NUMBER
     ( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_WOPRIORITY');
v_BMAR_STATUS varchar2(1) := p_session.get_value_as_varchar2
     ( p_block_name => 'DEFAULT'
, p_attribute_name => 'A_BMAR_STATUS');
l_url varchar2 (2000);
V_NO NUMBER;
BEGIN
IF V_TRACKING_NO IS NOT NULL
then
INSERT INTO FAC_DISCREPANCY
( BLDG, ROOM_AREA,DISC_DESC,FAC_MANAGER, REPORTED_BY,REPORTED_DATE,FAC_MANAGER_CODE,
DISC_TYPE,WORK_ORDER,WORK_STATUS,TARGET_START,
TARGET_COMP,ACT_COMP_DATE,BMAR_NO,BMAR_COMP_DATE,
MOD_BY,MOD_DATE,CREATE_DATE,FAC_STATUS,FAC_CLOSE_DATE, CREATE_BY,INSPECTION_TYPE,RAC,FAC_MGR_ACTION,
FAC_ADMIN_COMMENTS,WOPRIORITY,BMAR_STATUS,HAZARD_GROUP,
REF_TRACKING_NO,LOCATION,FAC_SYSTEM )
values
(V_BLDG,V_ROOM_AREA,V_DISC_DESC,V_FAC_MANAGER,
V_REPORTED_BY, V_REPORTED_DATE, V_FAC_MANAGER_CODE,
V_DISC_TYPE,V_WORK_ORDER,V_WORK_STATUS, V_TARGET_START,
V_TARGET_COMP,V_ACT_COMP_DATE,V_BMAR_NO, V_BMAR_COMP_DATE,V_MOD_BY,V_MOD_DATE,V_CREATE_DATE,
V_FAC_STATUS, V_FAC_CLOSE_DATE, V_CREATE_BY,
V_INSPECTION_TYPE,V_RAC,V_FAC_MGR_ACTION, V_FAC_ADMIN_COMMENTS,V_WOPRIORITY,V_BMAR_STATUS,
V_HAZARD_GROUP,V_REF_TRACKING_NO, V_LOCATION,
V_FAC_SYSTEM );
end if;
BEGIN
SELECT MAX (TRACKING_NO) INTO V_NO
FROM PORTAL_PUBLIC.FAC_DISCREPANCY;
l_url:= PORTAL.wwv_user_utilities.get_url ('FACILITY_MANAGER.LINK_DUPLICATE','TRACKING_NO', V_NO, '_TRACKING_NO_cond', '=');
portal.wwa_app_module.set_target(l_url);
END;
END;