--以下销售订单暂挂程序于20171218在TONY环境成功实现
--多张销售订单批量暂挂OE_HOLDS_PVT.process_apply_holds_orders ,多个销售订单行暂挂OE_HOLDS_PVT.process_apply_holds_lines
/*PROCEDURE applyHold(retcode OUT NUMBER,
errbuf OUT VARCHAR2,
p_order_number IN NUMBER) IS*/
declare
l_file VARCHAR2(100);
l_return_status VARCHAR2(30);
l_msg_data VARCHAR2(256);
l_msg_count NUMBER;
l_msg_index NUMBER;
l_data VARCHAR2(2000);
l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
l_header_id NUMBER;
l_hold_id NUMBER;
BEGIN
--retcode := 0;
-- Setting the context ----
/* setContext(retcode, errbuf);
fnd_global.apps_initialize(g_user_id, g_resp_id, g_appl_id);
mo_global.set_policy_context('S', g_org_id);*/
fnd_global.apps_ini