Scribd
Upload
2K views

OPM Batch API's Working Code

The document contains code to release a batch in Oracle Applications. It: 1. Initializes the API and retrieves batch header details like start and end dates. 2. Sets batch header attributes like type, number, dates and calls the release batch API. 3. Checks for success and prints a message or loops through error messages if failed. The second document contains code to complete a batch in Oracle Applications. It: 1. Initializes the API and sets batch header details like number and dates. 2. Calls the complete batch API and checks status, committing if successful. 3. Prints success message or loops through errors if status is failure. The third section contains code to create

Uploaded by

Rama Brahma Reddy
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
2K views

OPM Batch API's Working Code

The document contains code to release a batch in Oracle Applications. It: 1. Initializes the API and retrieves batch header details like start and end dates. 2. Sets batch header attributes like type, number, dates and calls the release batch API. 3. Checks for success and prints a message or loops through error messages if failed. The second document contains code to complete a batch in Oracle Applications. It: 1. Initializes the API and sets batch header details like number and dates. 2. Calls the complete batch API and checks status, committing if successful. 3. Prints success message or loops through errors if status is failure. The third section contains code to create

Uploaded by

Rama Brahma Reddy
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 6

OPM Batch release Code

SET serveroutput on DECLARE l_batch_header gme_batch_header%ROWTYPE; x_message_count NUMBER; x_message_list VARCHAR2 (2000); l_exception_material_tbl gme_common_pvt.exceptions_tab; x_return_status VARCHAR2 (10); x_batch_header gme_batch_header%ROWTYPE; v_st_date DATE; v_com_date DATE; l_msg_index_out NUMBER; BEGIN SELECT plan_start_date, plan_cmplt_date INTO v_st_date, v_com_date FROM gme_batch_header WHERE batch_no = 3000046; fnd_global.apps_initialize (user_id => 1490, resp_id => 50764, resp_appl_id => 553 ); l_batch_header.batch_type := 0; l_batch_header.batch_no :=3000046; l_batch_header.plan_start_date := v_st_date; l_batch_header.plan_cmplt_date := v_com_date; l_batch_header.update_inventory_ind:= 'Y'; l_batch_header.recipe_validity_rule_id:=172; --L_BATCH_HEADER.WIP_WHSE_CODE:=V_WHSE_CODE; l_batch_header.actual_start_date := SYSDATE; gme_api_pub.release_batch (p_api_version => p_validation_level => p_init_msg_list => p_commti => x_message_count => x_message_list => x_return_status => p_batch_header_rec => p_org_code => p_ignore_exception => p_validate_flexfields => x_batch_header_rec => x_exception_material_tbl => l_exception_material_tbl ); COMMTI; IF x_return_status = FND_API.g_ret_sts_success THEN dbms_output.put_line('Batch Released'); --l_batch_header.batch_id:=3000065; --- SAVE THE CHANGES ---gme_api_pub.save_batch( --p_batch_header => l_batch_header, --x_return_status => x_return_status, --p_commti =>fnd_api.g_true);

2.0, 100, fnd_api.g_false, fnd_api.g_false, x_message_count, x_message_list, x_return_status, l_batch_header, 'VCP', fnd_api.g_false, fnd_api.g_false, x_batch_header,

gme_api_pub.save_batch( p_header_id =>22001 ,p_table =>2 ,p_commti => fnd_api.g_false ,x_return_status => x_return_status --Bug#5584699 Changed the datatype from boolean to varchar2. ,p_clear_qty_cache => fnd_api.g_true); else dbms_output.put_line('Batch Release failed'); IF x_message_count = 1 THEN DBMS_OUTPUT.PUT_LINE('Error:'||x_message_list); ELSE FOR i IN 1..x_message_count LOOP FND_MSG_PUB.get (p_msg_index => i ,p_data => X_message_list ,p_msg_index_out => l_msg_index_out); DBMS_OUTPUT.PUT_LINE('Error: '||x_message_list); END LOOP; end if; end if; EXCEPTION WHEN OTHERS THEN dbms_output.put_line('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM); RAISE; END;

OPM BATCH Complete Batch Script set serveroutput on; -- request Create Cost Adjustment From AP Invoice declare l_status VARCHAR2 (10); l_return_status VARCHAR2 (1):= fnd_api.g_ret_sts_success; l_count NUMBER ; l_record_count NUMBER (10):= 0; l_loop_cnt NUMBER (10):= 0; l_dummy_cnt NUMBER (10):= 0; l_data VARCHAR2 (2000); l_msg_index_out NUMBER; l_in_batch_header_rec gme_batch_header%ROWTYPE; l_batch_header_rec gme_batch_header%ROWTYPE; l_exception_material_tbl gme_common_pvt.exceptions_tab; x number; BEGIN fnd_global.apps_initialize (user_id => 1490, resp_id => 50764, resp_appl_id => 553 ); l_in_batch_header_rec.batch_type:= 0; l_in_batch_header_rec.batch_id:='36001'; --batch_id l_in_batch_header_rec.update_inventory_ind:='Y'; l_in_batch_header_rec.actual_start_date := SYSDATE;

--l_in_batch_header_rec.batch_id:=84039; --l_in_batch_header_rec.ACTUAL_START_DATE:='19-NOV-2011'; gme_api_pub.complete_batch( p_api_version => 2.0 ,p_validation_level =>gme_common_pvt.g_max_errors ,p_init_msg_list => fnd_api.g_false ,p_commti => fnd_api.g_false ,x_message_count => l_count ,x_message_list => l_data ,x_return_status => l_status ,p_batch_header_rec => l_in_batch_header_rec ,p_org_code => 'VCP' ,p_ignore_exception => fnd_api.g_false ,p_validate_flexfields => fnd_api.g_false ,x_batch_header_rec => l_batch_header_rec ,x_exception_material_tbl => l_exception_material_tbl ); commit; DBMS_OUTPUT.put_line ('status: ' || l_status || ' msg Count ' || l_count); FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'status: ' || l_status || ' msg Count ' || l_count); IF l_status = 'S' THEN COMMTI; -- DBMS_OUTPUT.put_line ('success!!'); --delete get_ins_test_tmp;delete adj_api_tmp; --update get_ins_test_tmp set st=1; --where ; commti; ELSE IF l_count = 1 THEN DBMS_OUTPUT.put_line ('Error:' || l_data); FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Error:' || l_data); ELSE DBMS_OUTPUT.put_line (

'status: ' || l_status || ' Error Count ' || l_count );

FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'status: ' || l_status || ' Error Count ' || l_count ); FOR i IN 1 .. 5 LOOP fnd_msg_pub.get (p_msg_index p_data p_encoded

=> i, => l_data, => fnd_api.g_false,

p_msg_index_out => l_msg_index_out ); DBMS_OUTPUT.put_line ('Error: ' || SUBSTR (l_data, 1, 255)); FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Error: ' || SUBSTR (l_data, 1, 255)); END LOOP; END IF; END IF; exception when others then null; end ; /

After Completion it has to be

done

set serveroutput on; declare x_message_count number; x_message_list varchar2(200); x_return_status varchar2(100); x_mmt_rec mtl_material_transactions%ROWTYPE; x_mmln_tbl gme_common_pvt.mtl_trans_lots_num_tbl; l_mmti_rec mtl_transactions_interface%ROWTYPE; l_mmli_tbl gme_common_pvt.mtl_trans_lots_inter_tbl; begin fnd_global.apps_initialize (user_id => 1490, resp_id => 50764, resp_appl_id => 553 ); l_mmti_rec.source_code:='TEST'; l_mmti_rec.source_header_id:=2; l_mmti_rec.source_line_id:=2; l_mmti_rec.process_flag:=3; l_mmti_rec.lock_flag:=2; l_mmti_rec.transaction_mode:=3; l_mmti_rec.last_update_date:=SYSDATE; l_mmti_rec.last_updated_by:=fnd_global.user_id; l_mmti_rec.creation_date:=SYSDATE; l_mmti_rec.created_by:=fnd_global.user_id; l_mmti_rec.organization_id:=423; l_mmti_rec.inventory_item_id:=43006; l_mmti_rec.inventory_item:='G011009300105M'; l_mmti_rec.transaction_quantity:=1; l_mmti_rec.transaction_uom:='ECH'; l_mmti_rec.primary_quantity:=1; l_mmti_rec.secondary_transaction_quantity:=22; l_mmti_rec.secondary_uom_code:='GRM'; l_mmti_rec.transaction_date:=sysdate; l_mmti_rec.SUBINVENTORY_CODE:='Corp_FG'; l_mmti_rec.transaction_type_id:=44;--44; l_mmti_rec.transaction_action_id:=31;--31; l_mmti_rec.transaction_source_type_id:=5; l_mmti_rec.transaction_interface_id:=10001; l_mmli_tbl(1).LOT_NUMBER:='MAH1456'; l_mmli_tbl(1).transaction_quantity:=1; l_mmli_tbl(1).secondary_transaction_quantity:=22;

l_mmli_tbl(1).last_update_date:=SYSDATE; l_mmli_tbl(1).last_updated_by:=fnd_global.user_id; l_mmli_tbl(1).creation_date:=SYSDATE; l_mmli_tbl(1).created_by:=fnd_global.user_id;

gme_api_pub.create_material_txn ( p_api_version => 2.0 ,p_validation_level => 1000 ,p_init_msg_list => fnd_api.g_true ,p_commit => fnd_api.g_true ,x_message_count => x_message_count ,x_message_list => x_message_list ,x_return_status => x_return_status ,p_org_code =>'VCP' ,p_mmti_rec => l_mmti_rec ,p_mmli_tbl => l_mmli_tbl ,p_batch_no =>3000100 ,p_line_no =>1 ,p_line_type =>1 ,p_create_lot =>'T' ,p_generate_lot =>'F' ,p_generate_parent_lot =>'F' ,x_mmt_rec =>x_mmt_rec ,x_mmln_tbl =>x_mmln_tbl); DBMS_OUTPUT.put_line ('status: ' || x_return_status || ' msg Count ' || x_message_count ); FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'status: ' || x_return_status || ' msg Count ' || x_message_count ); IF x_return_status = 'S' THEN COMMIT; DBMS_OUTPUT.put_line ('success!!'); ELSE IF x_message_count = 1 THEN DBMS_OUTPUT.put_line ('Error:' || x_message_list); FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Error:' || x_message_list); ELSE DBMS_OUTPUT.put_line (

'status: ' || x_return_status || ' Error Count ' || x_message_count );

FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'status: ' || x_return_status || ' Error Count ' || x_message_count );

DBMS_OUTPUT.put_line ('Error: ' || SUBSTR (x_message_list, 1, 255)); FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Error: ' || SUBSTR (x_message_list, 1, 255)); END IF; END IF; exception when others then null; end ;

Developed by R.B.Reddy

You might also like