1629: END IF;
1630:
1631: l_lock_name := 'AR_RECEIPTS_BATCH_'||p_batch_id;
1632:
1633: DBMS_LOCK.allocate_unique( l_lock_name,
1634: l_lock_handle);
1635:
1636: v_result := dbms_lock.request( l_lock_handle,
1637: dbms_lock.x_mode,
1632:
1633: DBMS_LOCK.allocate_unique( l_lock_name,
1634: l_lock_handle);
1635:
1636: v_result := dbms_lock.request( l_lock_handle,
1637: dbms_lock.x_mode,
1638: 0);
1639: CASE v_result
1640: WHEN 0 THEN x_message := 'success';
1633: DBMS_LOCK.allocate_unique( l_lock_name,
1634: l_lock_handle);
1635:
1636: v_result := dbms_lock.request( l_lock_handle,
1637: dbms_lock.x_mode,
1638: 0);
1639: CASE v_result
1640: WHEN 0 THEN x_message := 'success';
1641: WHEN 1 THEN x_message := 'timeout';
1674: END IF;
1675:
1676: l_lock_name := 'AR_RECEIPTS_BATCH_'||p_batch_id;
1677:
1678: DBMS_LOCK.allocate_unique( l_lock_name,
1679: l_lock_handle);
1680:
1681: v_result := dbms_lock.release( l_lock_handle );
1682:
1677:
1678: DBMS_LOCK.allocate_unique( l_lock_name,
1679: l_lock_handle);
1680:
1681: v_result := dbms_lock.release( l_lock_handle );
1682:
1683: CASE v_result
1684: WHEN 0 THEN x_message := 'success';
1685: WHEN 3 THEN x_message := 'parameter error';