DECLARE
   x_msg_data        VARCHAR2 (4000);
   x_msg_count       NUMBER;
   x_return_status   VARCHAR2 (1);
   l_delivery_id     NUMBER;
BEGIN
   mo_global.set_policy_context ('S', '204');
   fnd_global.apps_initialize (1005902, 21623, 660);
   l_delivery_id := 2008596;
   ar_deferral_reasons_grp.record_proof_of_delivery (p_api_version        => 1.0
                                                   , p_init_msg_list      => fnd_api.g_false
                                                   , p_commit             => fnd_api.g_false
                                                   , p_delivery_id        => l_delivery_id
                                                   , p_pod_date           => SYSDATE
                                                   , x_return_status      => x_return_status
                                                   , x_msg_count          => x_msg_count
                                                   , x_msg_data           => x_msg_data
                                                    );
   DBMS_OUTPUT.put_line (x_return_status);
   DBMS_OUTPUT.put_line (x_msg_count);
   DBMS_OUTPUT.put_line (x_msg_data);
COMMIT;
END;