[Home] [Help]
PACKAGE: APPS.OKL_BLK_AST_UPD_PVT
Source
1 PACKAGE OKL_BLK_AST_UPD_PVT AS
2 /* $Header: OKLRBAUS.pls 120.3 2007/05/24 11:47:53 asawanka ship $ */
3
4 /*=======================================================================+
5 | Declare Global Variables
6 +=======================================================================*/
7
8 ---------------------------------------------------------------------------------------------------
9 -- GLOBAL MESSAGE CONSTANTS
10 -------------------------------------------------------------------------------------------------
11 G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
12 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
13 G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
14 G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
15 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
16 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
17 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
18 G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'NO_PARENT_RECORD';
19 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := 'REQUIRED_VALUE';
20
21 ------------------------------------------------------------------------------------
22 -- GLOBAL EXCEPTION
23 ------------------------------------------------------------------------------------
24 G_EXCEPTION_HALT_VALIDATION EXCEPTION;
25 G_EXCEPTION_STOP_VALIDATION EXCEPTION;
26 G_API_TYPE CONSTANT VARCHAR2(4) := '_PVT';
27 G_API_VERSION CONSTANT NUMBER := 1.0;
28 G_SCOPE CONSTANT VARCHAR2(4) := '_PVT';
29
30 --------------------------------------------------------------------------------------
31 -- GLOBAL VARIABLES
32 ---------------------------------------------------------------------------------------
33 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_BLK_AST_UPD_PVT';
34 G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
35 G_TRY_NAME OKL_TRX_TYPES_V.NAME%TYPE := 'Asset Relocation';
36 G_TRY_TYPE OKL_TRX_TYPES_V.TRY_TYPE%TYPE := 'TIE';
37 G_TRX_TABLE VARCHAR2(100) := 'OKL_TRX_ASSETS';
38 SUBTYPE trxv_rec_type IS OKL_TRX_ASSETS_PUB.thpv_rec_type;
39 SUBTYPE itiv_rec_type IS OKL_TXL_ITM_INSTS_PUB.iipv_rec_type;
40
41 G_CTR NUMBER :=1;
42
43 /*=======================================================================+
44 | Declare PUBLIC Data Types and Variables
45 +=======================================================================*/
46
47 TYPE okl_loc_rec_type IS RECORD (
48 parent_line_id NUMBER,
49 loc_id NUMBER,
50 party_site_id NUMBER,
51 newsite_id1 NUMBER,
52 newsite_id2 VARCHAR2(1),
53 oldsite_id1 NUMBER,
54 oldsite_id2 VARCHAR2(1),
55 date_from DATE
56 );
57
58 TYPE okl_loc_tbl_type IS TABLE OF okl_loc_rec_type INDEX BY BINARY_INTEGER;
59
60 /*========================================================================
61 | PUBLIC PROCEDURE Update_Location
62 |
63 | DESCRIPTION
64 | This procedure will update the install location of an asset in Install Base
65 | after creating transactions in the internal OKL transaction tables
66 |
67 |
68 | PSEUDO CODE/LOGIC
69 |
70 | PARAMETERS
71 | p_contract_id IN Contract Identifier
72 | p_request_date IN Schedule Request Date
73 | p_date_from IN Date From
74 | p_date_to IN Date To
75 | x_return_status OUT Return Status
76 | KNOWN ISSUES
77 |
78 |
79 | NOTES
80 | Any interesting aspect of the code in the package body which needs
81 | to be stated.
82 |
83 | MODIFICATION HISTORY
84 | Date Author Description of Changes
85 | 24-MAY-2004 RKUTTIYA Created
86 |
87 *=======================================================================*/
88
89 PROCEDURE update_location(
90 p_api_version IN NUMBER,
91 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
92 p_loc_rec IN okl_loc_rec_type,
93 x_return_status OUT NOCOPY VARCHAR2,
94 x_msg_count OUT NOCOPY NUMBER,
95 x_msg_data OUT NOCOPY VARCHAR2);
96
97 PROCEDURE update_location(
98 p_api_version IN NUMBER,
99 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
100 p_loc_tbl IN okl_loc_tbl_type,
101 x_return_status OUT NOCOPY VARCHAR2,
102 x_msg_count OUT NOCOPY NUMBER,
103 x_msg_data OUT NOCOPY VARCHAR2);
104
105 PROCEDURE process_update_location(
106 p_api_version IN NUMBER,
107 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
108 p_kle_id IN NUMBER,
109 x_return_status OUT NOCOPY VARCHAR2,
110 x_msg_count OUT NOCOPY NUMBER,
111 x_msg_data OUT NOCOPY VARCHAR2);
112
113
114 END OKL_BLK_AST_UPD_PVT;