Self Service HR rollout Script 2 to create users

CREATE OR REPLACE PACKAGE xx_sshr_allocate_resp_pkg IS   PROCEDURE run(errbuf                        OUT VARCHAR2                ,retcode                       OUT VARCHAR2                ,p_responsibility_name         IN VARCHAR2                ,p_person_type                 IN VARCHAR2                ,p_cost_centre_group_1                   IN VARCHAR2                ,p_cost_centre_group_2                   IN VARCHAR2                ,p_parent_org_1                      IN VARCHAR2                ,p_parent_org_2                      IN VARCHAR2                ,p_cid                         IN VARCHAR2                ,p_read_only_flag              IN VARCHAR2                ,p_test_ceration_email_address IN VARCHAR2);   PROCEDURE send_html_email(p_to            IN VARCHAR2                            ,p_from          IN VARCHAR2                            ,p_subject       IN VARCHAR2                            ,p_text          IN VARCHAR2 DEFAULT NULL                            ,p_html          IN VARCHAR2 DEFAULT NULL                            ,p_smtp_hostname IN VARCHAR2                            ,p_smtp_portnum  IN VARCHAR2);   PROCEDURE create_fnd_user_for_cid(p_user_name          IN VARCHAR2                                    ,p_person_id          IN INTEGER                                    ,p_email_address      IN VARCHAR2                                    ,p_person_description IN VARCHAR2                                    ,p_password           OUT VARCHAR2);   FUNCTION get_fu_name(p_nt_login IN VARCHAR2) RETURN VARCHAR2;   PROCEDURE send_email_to_new_user(p_icdp       IN ic_coll_dir_pull%ROWTYPE                                   ,p_user_name  IN VARCHAR2                                   ,p_password   IN VARCHAR2                                   ,p_test_email IN VARCHAR2); END xx_sshr_allocate_resp_pkg;