PACKAGE BODY: APPS.POS_ADDRESS_NOTES_PKG

Source

1 package body POS_ADDRESS_NOTES_PKG as
2 /* $Header: POSANOTB.pls 120.1 2005/07/28 18:03:22 bitang noship $ */
3 
4 procedure insert_note(
5     p_party_site_id                 IN NUMBER,
6     p_note                          IN VARCHAR2,
7     x_status                        OUT NOCOPY VARCHAR2,
8     x_exception_msg                 OUT NOCOPY VARCHAR2)
9 IS
10 BEGIN
11     INSERT INTO pos_address_notes(
12         party_site_id,
13         notes,
14         created_by,
15         creation_date,
16         last_update_date,
17         last_updated_by,
18         last_update_login
19     )VALUES(
20         p_party_site_id,
21         p_note,
22         fnd_global.user_id,
23         SYSDATE,
24         SYSDATE,
25         fnd_global.user_id,
26         fnd_global.login_id
27     );
28 
29     x_status := 'S';
30 
31 END insert_note;
32 
33 procedure update_note(
34     p_party_site_id                 IN NUMBER,
35     p_note                          IN VARCHAR2,
36     x_status                        OUT NOCOPY VARCHAR2,
37     x_exception_msg                 OUT NOCOPY VARCHAR2)
38 IS
39     l_count_dup     NUMBER;
40 BEGIN
41     SELECT count(*)
42     INTO l_count_dup
43     FROM pos_address_notes
44     WHERE party_site_id = p_party_site_id
45       AND ROWNUM < 2;
46 
47     IF (l_count_dup = 0) THEN
48         insert_note(p_party_site_id, p_note, x_status, x_exception_msg);
49         RETURN;
50     END IF;
51 
52     UPDATE pos_address_notes
53     SET notes               = p_note,
54         last_updated_by     = fnd_global.user_id,
55         last_update_date    = SYSDATE,
56         last_update_login   = fnd_global.login_id
57     WHERE party_site_id = p_party_site_id;
58 
59     x_status := 'S';
60 
61 END update_note;
62 
63 
64 procedure delete_note(
65     p_party_site_id                 IN NUMBER,
66     x_status                        OUT NOCOPY VARCHAR2,
67     x_exception_msg                 OUT NOCOPY VARCHAR2)
68 IS
69 BEGIN
70     DELETE FROM pos_address_notes
71     WHERE party_site_id = p_party_site_id;
72 
73     x_status := 'S';
74 
75 END delete_note;
76 
77 END POS_ADDRESS_NOTES_PKG;