PACKAGE BODY: APPS.AMS_PARTYIMPORT_PUB

Source

1 PACKAGE BODY AMS_PartyImport_PUB AS
2 /* $Header: amspptyb.pls 115.5 2000/01/09 18:03:40 pkm ship   $ */
3 
4 -----------------------------------------------------------
5 -- PACKAGE
6 --    AMS_PartyImport_PUB
7 --
8 -- PROCEDURES
9 --
10 -- HISTORY
11 -- 12-Nov-1999 choang      Created.
12 ------------------------------------------------------------
13 
14 G_PKG_NAME           CONSTANT VARCHAR2(30) := 'AMS_PartyImport_PUB';
15 
16 
17 --------------------------------------------------------------------
18 -- PROCEDURE
19 --    Set_UsedParty
20 PROCEDURE Set_UsedParty (
21    p_api_version       IN  NUMBER,
22    p_init_msg_list     IN  VARCHAR2  := FND_API.g_false,
23    p_commit            IN  VARCHAR2  := FND_API.g_false,
24    p_validation_level  IN  NUMBER    := FND_API.g_valid_level_full,
25 
26    x_return_status     OUT VARCHAR2,
27    x_msg_count         OUT NUMBER,
28    x_msg_data          OUT VARCHAR2,
29 
30    p_party_sources_id  IN  NUMBER
31 )
32 IS
33    l_api_version     CONSTANT NUMBER       := 1.0;
34 
35    l_party_rec       AMS_PartyImport_PVT.Party_Rec_Type;
36 BEGIN
37    --
38    -- Initialize the record with the g_miss values.
39    AMS_PartyImport_PVT.Init_Party_Rec (l_party_rec);
40 
41    l_party_rec.party_sources_id := p_party_sources_id;
42 
43    --
44    -- Set the USED_FLAG to 'Y'
45    l_party_rec.used_flag := 'Y';
46 
47    AMS_PartyImport_PVT.Update_Party (
48       p_api_version        => l_api_version,
49       p_init_msg_list      => p_init_msg_list,
50       p_commit             => p_commit,
51       p_validation_level   => p_validation_level,
52 
53       x_return_status      => x_return_status,
54       x_msg_count          => x_msg_count,
55       x_msg_data           => x_msg_data,
56 
57       p_party_rec          => l_party_rec
58    );
59 
60 END Set_UsedParty;
61 
62 
63 END AMS_PartyImport_PUB;