PA_核准资金

PA 核准资金，创建完项目事件、协议、核准资金后，运行“PRC：生成单个项目的原始发票” 或“PRC：生成一个项目范围的原始发票”，可以生成应付发票。

DECLARE 
    l_err_code NUMBER;
    l_status   VARCHAR2(250);
    l_msg_data VARCHAR2(240);
BEGIN

    fnd_global.apps_initialize(user_id      => 0
                              ,resp_id      => 20432
                              ,resp_appl_id => 275);

    pa_baseline_funding_pkg.create_budget_baseline(p_project_id => 3001
                                                  ,x_err_code   => l_err_code
                                                  ,x_status     => l_status);

    dbms_output.put_line('l_err_code :=' || l_err_code);
    dbms_output.put_line('l_status :=' || l_status);
    dbms_output.put_line('l_msg_count :=' || fnd_msg_pub.count_msg);

    IF l_err_code <> '0' THEN
        dbms_output.put_line('error_msg = ' || l_err_code);
        IF fnd_msg_pub.count_msg >= 0 THEN
            FOR i IN 1 .. fnd_msg_pub.count_msg LOOP               
              pa_utils.get_encoded_msg(p_index   => i
                                      ,p_msg_out => l_msg_data);  
              dbms_output.put_line('error msg =' || l_msg_data); 
            END LOOP;
        END IF;
        fnd_msg_pub.Delete_Msg;
    END IF;
END;