PACKAGE BODY: APPS.JTF_HA_STATE_PKG

Source

1 package body JTF_HA_STATE_PKG as
2 /* $Header: JTFHASB.pls 120.2 2005/11/15 00:48:27 psanyal ship $ */
3 procedure GET_CURRENT_STATE (
4   X_CURRENT_STATE out NOCOPY NUMBER,
5   X_RETURN_STATUS out NOCOPY VARCHAR2
6 ) is
7   x_perz_data_id NUMBER;
8   x_perz_data_name VARCHAR2(120);
9   x_perz_data_type VARCHAR2(30);
10   x_perz_data_desc VARCHAR2(240);
11   x_data_attrib_tbl JTF_PERZ_DATA_PUB.DATA_ATTRIB_TBL_TYPE;
12   x_status VARCHAR2(1);
13   x_msg_count  NUMBER;
14   x_msg_data   VARCHAR2(2000);
15   l_out_rec JTF_PERZ_DATA_PUB.DATA_ATTRIB_REC_TYPE;
16 begin
17   JTF_PERZ_DATA_PUB.Get_Perz_Data (
18         p_api_version_number => 1,
19         p_application_id    => 690,
20         p_profile_id => null,
21         p_perz_data_id => null,
22         p_profile_name      => 'JTF_PROPERTY_MANAGER_DEFAULT_1',
23         p_perz_data_name  => 'HA.CURRENTSTATE',
24         p_perz_data_type  => 'JTF',
25         x_perz_data_id => x_perz_data_id,
26         x_perz_data_name => x_perz_data_name,
27         x_perz_data_type =>  x_perz_data_type,
28         x_perz_data_desc => x_perz_data_desc,
29         x_data_attrib_tbl => x_data_attrib_tbl,
30         x_return_status => x_status,
31         x_msg_count => x_msg_count,
32         x_msg_data =>  x_msg_data);
33    X_RETURN_STATUS := x_status;
34    if (X_RETURN_STATUS = FND_API.G_RET_STS_SUCCESS) then
35 	l_out_rec := x_data_attrib_tbl(1);
36         X_CURRENT_STATE := to_number(l_out_rec.ATTRIBUTE_VALUE);
37    end if;
38 end GET_CURRENT_STATE;
39 
40 procedure SET_CURRENT_STATE (
41   P_CURRENT_STATE in NUMBER,
42   X_RETURN_STATUS out NOCOPY VARCHAR2
43 ) is
44   x_perz_data_id NUMBER;
45   x_status VARCHAR2(1);
46   x_msg_count  NUMBER;
47   x_msg_data   VARCHAR2(2000);
48   l_data_attrib_tbl JTF_PERZ_DATA_PUB.DATA_ATTRIB_TBL_TYPE;
49   l_commit VARCHAR2(240);
50 
51 begin
52   l_data_attrib_tbl(1).ATTRIBUTE_NAME := '0';
53   l_data_attrib_tbl(1).ATTRIBUTE_TYPE := 'STRING';
54   l_data_attrib_tbl(1).ATTRIBUTE_VALUE := to_char(P_CURRENT_STATE);
55   l_data_attrib_tbl(1).ATTRIBUTE_CONTEXT := '';
56   l_commit := FND_API.G_TRUE;
57 
58   JTF_PERZ_DATA_PUB.Save_Perz_Data (
59         p_api_version_number => 1,
60 	p_init_msg_list => FND_API.G_FALSE,
61 	p_commit => l_commit,
62 	p_application_id    => 690,
63 	p_profile_id => null,
64 	p_profile_name      => 'JTF_PROPERTY_MANAGER_DEFAULT_1',
65 	p_profile_type => null,
66 	p_profile_attrib => JTF_PERZ_PROFILE_PUB.G_MISS_PROFILE_ATTRIB_TBL,
67 	p_perz_data_id => null,
68         p_perz_data_name  => 'HA.CURRENTSTATE',
69         p_perz_data_type  => 'JTF',
70 	p_perz_data_desc => null,
71         p_data_attrib_tbl => l_data_attrib_tbl,
72         x_perz_data_id => x_perz_data_id,
73         x_return_status => x_status,
74 	x_msg_count => x_msg_count,
75         x_msg_data =>  x_msg_data);
76 
77    X_RETURN_STATUS := x_status;
78 
79 end SET_CURRENT_STATE;
80 
81 end JTF_HA_STATE_PKG;