PACKAGE BODY: APPS.RCV_FTE_TXN_LINES_PVT

Source

1 PACKAGE BODY RCV_FTE_TXN_LINES_PVT AS
2 /* $Header: RCVFTXLB.pls 115.4 2003/10/20 06:45:56 bfreeman noship $ */
3 
4 PROCEDURE insert_row(
5     p_header_id     IN NUMBER,
6     p_line_id       IN NUMBER,
7     p_txn_id        IN NUMBER,
8     p_action        IN VARCHAR2,
9     p_status        IN VARCHAR2 DEFAULT 'N')
10 IS
11 BEGIN
12     INSERT INTO rcv_fte_transaction_lines(
13         header_id,
14         line_id,
15         action,
16         reported_flag,
17         transaction_id,
18         creation_date,
19         created_by,
20         last_update_date,
21         last_updated_by,
22         last_update_login)
23     VALUES(
24         p_header_id,
25         p_line_id,
26         p_action,
27         p_status,
28         p_txn_id,
29         SYSDATE,
30         fnd_global.user_id,
31         SYSDATE,
32         fnd_global.user_id,
33         fnd_global.login_id);
34 END insert_row;
35 
36 PROCEDURE update_record_to_reported(
37     p_header_id     IN NUMBER,
38     p_line_id       IN NUMBER,
39     p_action        IN VARCHAR2)
40 IS
41 BEGIN
42     IF (p_line_id IS NULL) THEN
43         UPDATE rcv_fte_transaction_lines
44         SET reported_flag = 'Y',
45             last_update_date = SYSDATE,
46             last_updated_by = FND_GLOBAL.user_id,
47             last_update_login = FND_GLOBAL.login_id
48 
49         WHERE
50             header_id = p_header_id
51         AND action = p_action
52         AND reported_flag = 'N';
53     ELSE
54         UPDATE rcv_fte_transaction_lines
55         SET reported_flag = 'Y',
56             last_update_date = SYSDATE,
57             last_updated_by = FND_GLOBAL.user_id,
58             last_update_login = FND_GLOBAL.login_id
59 
60         WHERE
61             header_id = p_header_id
62         AND line_id = p_line_id
63         AND action = p_action
64         AND reported_flag = 'N';
65     END IF;
66 END update_record_to_reported;
67 
68 PROCEDURE update_record_to_failed(
69     p_header_id     IN NUMBER,
70     p_line_id       IN NUMBER,
71     p_action        IN VARCHAR2)
72 IS
73 BEGIN
74     IF (p_line_id IS NULL) THEN
75         UPDATE rcv_fte_transaction_lines
76         SET reported_flag = 'F',
77             last_update_date = SYSDATE,
78             last_updated_by = FND_GLOBAL.user_id,
79             last_update_login = FND_GLOBAL.login_id
80 
81         WHERE
82             header_id = p_header_id
83         AND action = p_action
84         AND reported_flag = 'N';
85     ELSE
86         UPDATE rcv_fte_transaction_lines
87         SET reported_flag = 'F',
88             last_update_date = SYSDATE,
89             last_updated_by = FND_GLOBAL.user_id,
90             last_update_login = FND_GLOBAL.login_id
91 
92         WHERE
93             header_id = p_header_id
94         AND line_id = p_line_id
95         AND action = p_action
96         AND reported_flag = 'N';
97     END IF;
98 END update_record_to_failed;
99 
100 PROCEDURE update_record_to_unreported(
101     p_header_id     IN NUMBER,
102     p_line_id       IN NUMBER,
103     p_action        IN VARCHAR2)
104 IS
105 BEGIN
106     IF (p_line_id IS NULL) THEN
107         UPDATE rcv_fte_transaction_lines
108         SET reported_flag = 'U',
109             last_update_date = SYSDATE,
110             last_updated_by = FND_GLOBAL.user_id,
111             last_update_login = FND_GLOBAL.login_id
112 
113         WHERE
114             header_id = p_header_id
115         AND action = p_action
116         AND reported_flag = 'N';
117     ELSE
118         UPDATE rcv_fte_transaction_lines
119         SET reported_flag = 'U',
120             last_update_date = SYSDATE,
121             last_updated_by = FND_GLOBAL.user_id,
122             last_update_login = FND_GLOBAL.login_id
123         WHERE
124             header_id = p_header_id
125         AND line_id = p_line_id
126         AND action = p_action
127         AND reported_flag = 'N';
128     END IF;
129 END update_record_to_unreported;
130 END RCV_FTE_TXN_LINES_PVT;