Launch DRP Supply Chain Planning Processes

Procedure to Submits Concurrent Program Launch DRP Supply Chain Planning Processes (MRPSLPPS3).
---------------------
PROCEDURE submit_program (p_plan_name IN VARCHAR2, p_org_id IN NUMBER)
IS
-- Variables for Request submition
v_validate_request_id NUMBER;
v_wait_status BOOLEAN;
v_phase VARCHAR2 (240);
v_status VARCHAR2 (240);
v_dev_phase VARCHAR2 (240);
v_dev_status VARCHAR2 (240);
v_message VARCHAR2 (240);
v_error NUMBER := 0;
BEGIN
v_validate_request_id := NULL;
v_validate_request_id :=
fnd_request.submit_request ('MRP',
'MRPSLPPS3',
'',
'',
FALSE,
TO_CHAR (p_org_id),
p_plan_name,
1 -- Yes
,
1 , -- Yes
to_char(trunc(SYSDATE),'YYYY/MM/DD hh24:mi:ss'),
to_char(trunc(SYSDATE+365),'YYYY/MM/DD hh24:mi:ss')
);
put_log ('Program submitted with request id: ' || v_validate_request_id);
COMMIT;

IF v_validate_request_id > 0
THEN
v_wait_status :=
fnd_concurrent.wait_for_request
(request_id => v_validate_request_id,
INTERVAL => 10,
max_wait => 5400,
phase => v_phase,
status => v_status,
dev_phase => v_dev_phase,
dev_status => v_dev_status,
MESSAGE => v_message
);
END IF;

IF (v_dev_status = 'ERROR')
THEN
raise_application_error (-20000,
'Request '
|| v_validate_request_id
|| ' failed: '
|| v_message
);
END IF;

COMMIT;
END submit_program;