[Home] [Help]
PACKAGE BODY: APPS.IGS_PE_PARTY_SITE_USE_PKG
Source
1 PACKAGE BODY IGS_PE_PARTY_SITE_USE_PKG AS
2 /* $Header: IGSNI79B.pls 120.1 2005/09/08 15:32:27 appldev noship $ */
3
4 PROCEDURE HZ_PARTY_SITE_USES_AK(
5 p_action IN VARCHAR2,
6 p_rowid IN OUT NOCOPY VARCHAR2,
7 p_party_site_use_id IN OUT NOCOPY NUMBER,
8 p_party_site_id IN NUMBER,
9 p_site_use_type IN VARCHAR2,
10 p_status IN VARCHAR2,
11 p_return_status OUT NOCOPY VARCHAR2,
12 p_msg_data OUT NOCOPY VARCHAR2,
13 p_last_update_date IN OUT NOCOPY DATE,
14 p_site_use_last_update_date IN OUT NOCOPY DATE,
15 P_profile_last_update_date IN OUT NOCOPY DATE,
16 p_hz_party_site_use_ovn IN OUT NOCOPY NUMBER
17 ) AS
18 /*************************************************************
19 Created By : kumaravel
20 Date Created By : Sep 15 2000
21 Purpose :
22 Know limitations, enhancements or remarks
23 Change History
24 Who When What
25 (reverse chronological order - newest change first)
26 ***************************************************************/
27 p_api_version NUMBER(15) := 1.0;
28 p_init_msg_list VARCHAR2(30) := FND_API.G_FALSE;
29 p_commit VARCHAR2(30) := FND_API.G_FALSE;
30 p_create_site_uses VARCHAR2(30) := FND_API.G_TRUE;
31 p_validation_level VARCHAR2(30) := FND_API.G_VALID_LEVEL_FULL;
32 l_msg_count NUMBER(15);
33 lv_location VARCHAR2(80);
34 v_msg_count NUMBER(15);
35 l_contact_point_id NUMBER;
36 l_loc_id NUMBER(15);
37 lv_rowid VARCHAR2(25);
38 l_obj_version hz_party_site_uses.OBJECT_VERSION_NUMBER%TYPE;
39 l_PARTY_SITE_USE_REC HZ_PARTY_SITE_V2PUB.party_site_use_rec_type;
40
41 tmp_var1 VARCHAR2(2000);
42 tmp_var VARCHAR2(2000);
43
44
45 BEGIN
46
47 IF p_action = 'INSERT' THEN
48 -- l_PARTY_SITE_USE_REC.BEGIN_DATE := SYSDATE;
49
50 l_PARTY_SITE_USE_REC.PARTY_SITE_USE_ID := p_party_site_use_id;
51 l_PARTY_SITE_USE_REC.PARTY_SITE_ID := p_party_site_id;
52 l_PARTY_SITE_USE_REC.SITE_USE_TYPE := p_site_use_type;
53 l_PARTY_SITE_USE_REC.STATUS := p_status;
54 l_PARTY_SITE_USE_REC.created_by_module := 'IGS';
55
56 HZ_PARTY_SITE_V2PUB.create_party_site_use(
57 p_init_msg_list => p_init_msg_list,
58 p_party_site_use_rec => l_PARTY_SITE_USE_REC ,
59 x_party_site_use_id => p_party_site_use_id ,
60 x_return_status => p_return_status,
61 x_msg_count => l_msg_count ,
62 x_msg_data => p_msg_data );
63
64
65 -- check for the v_return_status
66 IF p_return_status = 'S' THEN
67 p_hz_party_site_use_ovn := 1;
68 ELSIF p_return_status <> 'S' THEN
69 -- bug 2338473 logic to display more than one error modified.
70 IF l_msg_count > 1 THEN
71 FOR i IN 1..l_msg_count LOOP
72 tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
73 tmp_var1 := tmp_var1 || ' '|| tmp_var;
74 END LOOP;
75 p_msg_data := tmp_var1;
76 END IF;
77 RETURN;
78 END IF;
79
80
81 -- V2API uptake
82
83
84 ELSIF p_action = 'UPDATE' THEN
85
86 l_PARTY_SITE_USE_REC.PARTY_SITE_USE_ID := p_party_site_use_id;
87 l_PARTY_SITE_USE_REC.PARTY_SITE_ID := p_party_site_id;
88 l_PARTY_SITE_USE_REC.SITE_USE_TYPE := p_site_use_type;
89 l_PARTY_SITE_USE_REC.STATUS := NVL(p_status,FND_API.G_MISS_CHAR);
90 -- l_PARTY_SITE_USE_REC.created_by_module := 'IGS';
91
92
93 HZ_PARTY_SITE_V2PUB.update_party_site_use (
94 p_init_msg_list => p_init_msg_list ,
95 p_party_site_use_rec => l_PARTY_SITE_USE_REC,
96 p_object_version_number => p_hz_party_site_use_ovn,
97 x_return_status => p_return_status,
98 x_msg_count => l_msg_count,
99 x_msg_data => p_msg_data );
100
101 -- check for the v_return_status
102
103 IF p_return_status <> 'S' THEN
104 -- bug 2338473 logic to display more than one error modified.
105 IF l_msg_count > 1 THEN
106 FOR i IN 1..l_msg_count LOOP
107 tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
108 tmp_var1 := tmp_var1 || ' '|| tmp_var;
109 END LOOP;
110 p_msg_data := tmp_var1;
111 END IF;
112 RETURN;
113 END IF;
114 END IF;
115
116 END HZ_PARTY_SITE_USES_AK;
117
118 END IGS_PE_PARTY_SITE_USE_PKG;