PACKAGE BODY: APPS.IGI_EXP_CUSTOM

Source

1 PACKAGE BODY igi_exp_custom AS
2 -- $Header: igicustb.pls 115.5 2002/12/02 15:11:07 rshergil ship $
3 --
4 
5  FUNCTION check_dus_validated(p_notification_id NUMBER)
6  RETURN BOOLEAN
7  IS
8   l_valn_result NUMBER ;
9   CURSOR c_check_du_valn(pv_notification_id NUMBER)
10   IS
11    SELECT COUNT(du.status)
12    FROM   wf_notification_attributes WNA
13    ,      wf_notifications WN
14    ,      wf_message_attributes WMA
15    ,      igi_exp_dial_unit_def DU
16    ,      igi_exp_tran_unit_def TU
17    WHERE  WNA.notification_id = pv_notification_id
18    AND    WNA.name            = 'TRANS_UNIT_NUM'
19    AND    WNA.notification_id = WN.notification_id
20    AND    WN.message_type     = WMA.message_type
21    AND    WN.message_name     = WMA.message_name
22    AND    WMA.name            = WNA.name
23    AND    WNA.text_value      = TU.trans_unit_num
24    AND    DU.trans_unit_id    = TU.trans_unit_id
25    AND    DU.status           IN ('TRA','HOL') ;
26  BEGIN
27    OPEN c_check_du_valn(p_notification_id) ;
28    FETCH c_check_du_valn INTO l_valn_result ;
29    CLOSE c_check_du_valn ;
30 
31    IF l_valn_result = 0 THEN
32      RETURN(TRUE) ;
33    ELSE
34      RETURN(FALSE) ;
35    END IF ;
36 
37  END check_dus_validated ;
38 
39 END igi_exp_custom ;