PACKAGE BODY: APPS.BEN_CWB_WF_STAT_UPD

Source

1 PACKAGE BODY BEN_CWB_WF_STAT_UPD as
2 /* $Header: bencwbsu.pkb 115.0 2003/05/27 10:53:52 aprabhak noship $ */
3 PROCEDURE woksheet_status_update
4      (   p_popl_id      IN number
5        , p_ws_stat_cd   IN varchar2
6        , p_ws_acc_cd    IN varchar2
7      )
8      IS
9    PRAGMA AUTONOMOUS_TRANSACTION;
10    l_ovn number;
11    BEGIN
12    select object_version_number into l_ovn
13     from ben_pil_elctbl_chc_popl
14    where pil_elctbl_chc_popl_id = p_popl_id;
15    ben_pil_elctbl_chc_popl_api.update_Pil_Elctbl_chc_Popl
16    (
17 	  p_validate                  => false
18 	, p_pil_elctbl_chc_popl_id    => p_popl_id
19     , p_ws_stat_cd	              => p_ws_stat_cd
20 	, p_object_version_number     => l_ovn
21 	, p_effective_date            => sysdate
22     , p_ws_acc_cd                 => p_ws_acc_cd
23    );
24    commit;
25    END;
26 END;