The following lines contain the word 'select', 'insert', 'update' or 'delete':
| line from file. because of this API inserting last record only |
| |
+==========================================================================+
Api end of comments
*/
FUNCTION Create_Item_Cost
(
p_dir IN VARCHAR2,
p_input_file IN VARCHAR2,
p_output_file IN VARCHAR2,
p_delimiter IN VARCHAR2
)
RETURN VARCHAR2
IS
/******************
* Local variables *
******************/
l_status VARCHAR2(11);
l_this_lvl_tbl.delete ;
l_lower_lvl_tbl.delete ;
l_costcmpnt_ids.delete;
l_this_lvl_tbl(l_idx).delete_mark := Get_Field(l_line,l_delimiter,11) ;
UTL_FILE.PUT_LINE(l_log_handle,'tl delete_mark('||l_idx||') = '||l_this_lvl_tbl(l_idx).delete_mark) ;
l_lower_lvl_tbl(l_idx1).delete_mark := Get_Field(l_line,l_delimiter,7) ;
l_this_lvl_tbl.delete(l_idx);
l_lower_lvl_tbl.delete(l_idx1);
* Update error status *
**********************/
IF (l_status = 'U') THEN
l_return_status :=l_status;
| Update_Item_Cost |
| |
| TYPE |
| Public |
| |
| USAGE |
| Update item Cost |
| |
| DESCRIPTION |
| This is a PL/SQL wrapper procedure to call the |
| Update_Item_Cost API wrapper function |
| |
| PARAMETERS |
| p_dir IN VARCHAR2 - Working directory for input |
| and output files. |
| p_input_file IN VARCHAR2 - Name of input file |
| p_output_file IN VARCHAR2 - Name of output file |
| p_delimiter IN VARCHAR2 - Delimiter character |
| |
| RETURNS |
| None |
| |
| HISTORY |
| 07-Mar-2001 Uday Moogala created |
| |
+==========================================================================+
Api end of comments
*/
PROCEDURE Update_Item_Cost
(
p_dir IN VARCHAR2,
p_input_file IN VARCHAR2,
p_output_file IN VARCHAR2,
p_delimiter IN VARCHAR2
)
IS
/******************
* Local Variables *
******************/
l_return_status VARCHAR2(1);
l_return_status := Update_Item_Cost (p_dir, p_input_file, p_output_file, p_delimiter);
END Update_Item_Cost;
| Update_Item_Cost |
| |
| TYPE |
| Public |
| |
| USAGE |
| Update item Cost |
| |
| DESCRIPTION |
| This is a PL/SQL wrapper function to call the |
| Update_Item_Cost API. |
| It reads item data from a flat file and outputs any error |
| messages to a second flat file. It also generates a Status |
| called gmf_aloc_wrapper.log in the temp directory. |
| |
| PARAMETERS |
| p_dir IN VARCHAR2 - Working directory for input |
| and output files. |
| p_input_file IN VARCHAR2 - Name of input file |
| p_output_file IN VARCHAR2 - Name of output file |
| p_delimiter IN VARCHAR2 - Delimiter character |
| |
| RETURNS |
| VARCHAR2 - 'S' All records processed successfully |
| 'E' 1 or more records errored |
| 'U' 1 or more record unexpected error |
| |
| HISTORY |
| |
+==========================================================================+
Api end of comments
*/
FUNCTION Update_Item_Cost
(
p_dir IN VARCHAR2,
p_input_file IN VARCHAR2,
p_output_file IN VARCHAR2,
p_delimiter IN VARCHAR2
)
RETURN VARCHAR2
IS
/******************
* Local variables *
******************/
l_status VARCHAR2(100);
l_this_lvl_tbl.delete ;
l_lower_lvl_tbl.delete ;
l_costcmpnt_ids.delete;
l_this_lvl_tbl(l_idx).delete_mark := Get_Field(l_line,l_delimiter,11) ;
UTL_FILE.PUT_LINE(l_log_handle,'tl delete_mark('||l_idx||') = '||l_this_lvl_tbl(l_idx).delete_mark) ;
l_lower_lvl_tbl(l_idx1).delete_mark := Get_Field(l_line,l_delimiter,7) ;
l_this_lvl_tbl.delete(l_idx);
l_lower_lvl_tbl.delete(l_idx1);
GMF_ItemCost_PUB.Update_Item_Cost
(
p_api_version => 3.0,
p_init_msg_list => FND_API.G_TRUE,
p_commit => FND_API.G_TRUE,
x_return_status => l_status,
x_msg_count => l_count,
x_msg_data => l_data,
p_header_rec => l_header_rec,
p_this_level_dtl_tbl => l_this_lvl_tbl,
p_lower_level_dtl_Tbl => l_lower_lvl_tbl
);
GMF_ItemCost_PUB.Update_Item_Cost
(
p_api_version => 3.0,
p_init_msg_list => FND_API.G_TRUE,
p_commit => FND_API.G_TRUE,
x_return_status => l_status,
x_msg_count => l_count,
x_msg_data => l_data,
p_header_rec => l_header_rec,
p_this_level_dtl_tbl => l_this_lvl_tbl,
p_lower_level_dtl_Tbl => l_lower_lvl_tbl
);
* Update error status *
**********************/
IF (l_status = 'U') THEN
l_return_status :=l_status;
END Update_Item_Cost;
| Delete_Item_Cost |
| |
| TYPE |
| Public |
| |
| USAGE |
| Delete item Cost |
| |
| DESCRIPTION |
| This is a PL/SQL wrapper procedure to call the |
| Delete_Item_Cost API wrapper function |
| |
| PARAMETERS |
| p_dir IN VARCHAR2 - Working directory for input |
| and output files. |
| p_input_file IN VARCHAR2 - Name of input file |
| p_output_file IN VARCHAR2 - Name of output file |
| p_delimiter IN VARCHAR2 - Delimiter character |
| |
| RETURNS |
| None |
| |
| HISTORY |
| 07-Mar-2001 Uday Moogala created |
| |
+==========================================================================+
Api end of comments
*/
PROCEDURE Delete_Item_Cost
(
p_dir IN VARCHAR2,
p_input_file IN VARCHAR2,
p_output_file IN VARCHAR2,
p_delimiter IN VARCHAR2
)
IS
/******************
* Local Variables *
******************/
l_return_status VARCHAR2(1);
l_return_status :=Delete_Item_Cost(p_dir, p_input_file, p_output_file, p_delimiter);
End Delete_Item_Cost;
| Delete_Item_Cost |
| |
| TYPE |
| Public |
| |
| USAGE |
| Delete item Cost |
| |
| DESCRIPTION |
| This is a PL/SQL wrapper function to call the |
| Delete_Item_Cost API. |
| It reads item data from a flat file and outputs any error |
| messages to a second flat file. It also generates a Status |
| called gmf_rsrc_wrapper.log in the temp directory. |
| |
| PARAMETERS |
| p_dir IN VARCHAR2 - Working directory for input |
| and output files. |
| p_input_file IN VARCHAR2 - Name of input file |
| p_output_file IN VARCHAR2 - Name of output file |
| p_delimiter IN VARCHAR2 - Delimiter character |
| |
| RETURNS |
| VARCHAR2 - 'S' All records processed successfully |
| 'E' 1 or more records errored |
| 'U' 1 or more record unexpected error |
| |
| HISTORY |
| |
+==========================================================================+
Api end of comments
*/
FUNCTION Delete_Item_Cost
(
p_dir IN VARCHAR2,
p_input_file IN VARCHAR2,
p_output_file IN VARCHAR2,
p_delimiter IN VARCHAR2
)
RETURN VARCHAR2
IS
/******************
* Local variables *
******************/
l_status VARCHAR2(100);
l_this_lvl_tbl.delete ;
l_lower_lvl_tbl.delete ;
l_costcmpnt_ids.delete;
l_this_lvl_tbl(l_idx).delete_mark := Get_Field(l_line,l_delimiter,11) ;
UTL_FILE.PUT_LINE(l_log_handle,'tl delete_mark('||l_idx||') = '||l_this_lvl_tbl(l_idx).delete_mark) ;
l_lower_lvl_tbl(l_idx1).delete_mark := Get_Field(l_line,l_delimiter,7) ;
l_this_lvl_tbl.delete(l_idx);
l_lower_lvl_tbl.delete(l_idx1);
GMF_ItemCost_PUB.Delete_Item_Cost
(
p_api_version => 3.0,
p_init_msg_list => FND_API.G_TRUE,
p_commit => FND_API.G_TRUE,
x_return_status => l_status,
x_msg_count => l_count,
x_msg_data => l_data,
p_header_rec => l_header_rec,
p_this_level_dtl_tbl => l_this_lvl_tbl,
p_lower_level_dtl_Tbl => l_lower_lvl_tbl
);
GMF_ItemCost_PUB.Delete_Item_Cost
(
p_api_version => 3.0,
p_init_msg_list => FND_API.G_TRUE,
p_commit => FND_API.G_TRUE,
x_return_status => l_status,
x_msg_count => l_count,
x_msg_data => l_data,
p_header_rec => l_header_rec,
p_this_level_dtl_tbl => l_this_lvl_tbl,
p_lower_level_dtl_Tbl => l_lower_lvl_tbl
);
* Update error status *
**********************/
IF (l_status = 'U') THEN
l_return_status :=l_status;
END Delete_Item_Cost;
* Update error status *
**********************/
IF (l_status = 'U') THEN
l_return_status :=l_status;
| Create/Insert, Update or Delete Actual Cost Adjustment |
| |
| DESCRIPTION |
| This is a PL/SQL wrapper function to call the |
| Call_ActualCost_API. |
| It reads item data from a flat file and outputs any error |
| messages to a second flat file. It also generates a Status |
| called gmf_api__wrapper.log in the /tmp directory|
| |
| PARAMETERS |
| p_dir IN VARCHAR2 - Working directory for input |
| and output files. |
| p_input_file IN VARCHAR2 - Name of input file |
| p_output_file IN VARCHAR2 - Name of output file |
| p_delimiter IN VARCHAR2 - Delimiter character |
| p_operation IN VARCHAR2 - Operation to be performed |
| |
| RETURNS |
| VARCHAR2 - 'S' All records processed successfully |
| 'E' 1 or more records errored |
| 'U' 1 or more record unexpected error |
| |
| HISTORY |
| 30-Oct-2005 Anand Thiyagarajan Created |
| |
+============================================================================+
Api end of comments
*/
FUNCTION Process_ActualCost_Adjustment
(
p_dir IN VARCHAR2,
p_input_file IN VARCHAR2,
p_output_file IN VARCHAR2,
p_delimiter IN VARCHAR2,
p_operation IN VARCHAR2
)
RETURN VARCHAR2
IS
/******************
* Local variables *
******************/
l_status VARCHAR2(11);
IF p_operation = 'INSERT' THEN
l_log_name := 'gmf_api_crtacadj_wrapper' ;
ELSIF p_operation = 'UPDATE' THEN
l_log_name := 'gmf_api_updacadj_wrapper' ;
ELSIF p_operation = 'DELETE' THEN
l_log_name := 'gmf_api_delacadj_wrapper' ;
l_adjustment_rec.delete_mark := Get_Field(l_line,l_delimiter,19);
* Update error status *
**********************/
IF (l_status = 'U') THEN
l_return_status :=l_status;
| p_operation IN VARCHAR2 - Insert/Update/Delete |
| x_status OUT VARCHAR2 - Return Status |
| x_count OUT VARCHAR2 - # of msgs on message stack |
| x_data OUT VARCHAR2 - Actual Message from msg stack |
| |
| |
| HISTORY |
| 30-Oct-2005 Anand Thiyagarajan Created |
+==============================================================================+
*/
PROCEDURE Call_ActualCost_API
(
p_adjustment_rec IN OUT NOCOPY GMF_ACTUAL_COST_ADJUSTMENT_PUB.ADJUSTMENT_REC_TYPE,
p_operation IN VARCHAR2,
x_status OUT NOCOPY VARCHAR2,
x_count OUT NOCOPY NUMBER,
x_data OUT NOCOPY VARCHAR2
)
IS
BEGIN
IF p_operation = 'INSERT' THEN
GMF_ACTUAL_COST_ADJUSTMENT_PUB.CREATE_ACTUAL_COST_ADJUSTMENT
(
p_api_version => 1.0,
p_init_msg_list => FND_API.G_TRUE,
p_commit => FND_API.G_TRUE,
x_return_status => x_status,
x_msg_count => x_count,
x_msg_data => x_data,
p_adjustment_rec => p_adjustment_rec
);
ELSIF p_operation = 'UPDATE' THEN
GMF_ACTUAL_COST_ADJUSTMENT_PUB.UPDATE_ACTUAL_COST_ADJUSTMENT
(
p_api_version => 1.0,
p_init_msg_list => FND_API.G_TRUE,
p_commit => FND_API.G_TRUE,
x_return_status => x_status,
x_msg_count => x_count,
x_msg_data => x_data,
p_adjustment_rec => p_adjustment_rec
);
ELSIF p_operation = 'DELETE' THEN
GMF_ACTUAL_COST_ADJUSTMENT_PUB.DELETE_ACTUAL_COST_ADJUSTMENT
(
p_api_version => 1.0,
p_init_msg_list => FND_API.G_TRUE,
p_commit => FND_API.G_TRUE,
x_return_status => x_status,
x_msg_count => x_count,
x_msg_data => x_data,
p_adjustment_rec => p_adjustment_rec
);
l_adjustment_rec.delete_mark := Get_Field(l_line,l_delimiter,19);
* Update error status *
**********************/
IF (l_status = 'U') THEN
l_return_status :=l_status;
alloc_rec.delete_mark := Get_Field(l_line,l_delimiter,19) ;
UTL_FILE.PUT_LINE(l_log_handle, 'delete_mark = ' || alloc_rec.delete_mark) ;
/* Update error status */
IF (l_status = 'U')
THEN
l_return_status :=l_status;
| Update_Alloc_Def |
| |
| TYPE |
| Public |
| |
| USAGE |
| Update Allocation Definition |
| |
| DESCRIPTION |
| This is a PL/SQL wrapper procedure to call the |
| Update_Alloc_Def API wrapper function |
| |
| PARAMETERS |
| p_dir IN VARCHAR2 - Working directory for input |
| and output files. |
| p_input_file IN VARCHAR2 - Name of input file |
| p_output_file IN VARCHAR2 - Name of output file |
| p_delimiter IN VARCHAR2 - Delimiter character |
| |
| RETURNS |
| None |
| |
| HISTORY |
| 07-Mar-2001 Uday Moogala created |
| |
+==========================================================================+
Api end of comments
*/
PROCEDURE Update_Alloc_Def
( p_dir IN VARCHAR2
, p_input_file IN VARCHAR2
, p_output_file IN VARCHAR2
, p_delimiter IN VARCHAR2
)
IS
l_return_status VARCHAR2(1);
l_return_status :=Update_Alloc_Def( p_dir
, p_input_file
, p_output_file
, p_delimiter
);
End Update_Alloc_Def;
| Update_Alloc_Def |
| |
| TYPE |
| Public |
| |
| USAGE |
| Update Allocation Definition |
| |
| DESCRIPTION |
| This is a PL/SQL wrapper function to call the |
| Update_Allocation_definition API. |
| It reads item data from a flat file and outputs any error |
| messages to a second flat file. It also generates a Status |
| called gmf_aloc_wrapper.log in the temp directory. |
| |
| PARAMETERS |
| p_dir IN VARCHAR2 - Working directory for input |
| and output files. |
| p_input_file IN VARCHAR2 - Name of input file |
| p_output_file IN VARCHAR2 - Name of output file |
| p_delimiter IN VARCHAR2 - Delimiter character |
| |
| RETURNS |
| VARCHAR2 - 'S' All records processed successfully |
| 'E' 1 or more records errored |
| 'U' 1 or more record unexpected error |
| |
| HISTORY |
| |
+==========================================================================+
Api end of comments
*/
FUNCTION Update_Alloc_Def
( p_dir IN VARCHAR2
, p_input_file IN VARCHAR2
, p_output_file IN VARCHAR2
, p_delimiter IN VARCHAR2
)
RETURN VARCHAR2
IS
/* Local variables */
l_status VARCHAR2(100);
alloc_rec.delete_mark := Get_Field(l_line,l_delimiter,19) ;
UTL_FILE.PUT_LINE(l_log_handle, 'delete_mark = ' || alloc_rec.delete_mark) ;
GMF_ALLOCATIONDEFINITION_PUB.Update_Allocation_Definition
( p_api_version => 3.0
, p_init_msg_list => FND_API.G_TRUE
, p_commit => FND_API.G_TRUE
, x_return_status =>l_status
, x_msg_count =>l_count
, x_msg_data =>l_data
, p_allocation_definition_rec => alloc_rec
);
/* Update error status */
IF (l_status = 'U')
THEN
l_return_status :=l_status;
END Update_Alloc_Def;
| Delete_Alloc_def |
| |
| TYPE |
| Public |
| |
| USAGE |
| Delete Allocation Definition |
| |
| DESCRIPTION |
| This is a PL/SQL wrapper procedure to call the |
| Delete_Alloc_def API wrapper function |
| |
| PARAMETERS |
| p_dir IN VARCHAR2 - Working directory for input |
| and output files. |
| p_input_file IN VARCHAR2 - Name of input file |
| p_output_file IN VARCHAR2 - Name of output file |
| p_delimiter IN VARCHAR2 - Delimiter character |
| |
| RETURNS |
| None |
| |
| HISTORY |
| 07-Mar-2001 Uday Moogala created |
| |
+==========================================================================+
Api end of comments
*/
PROCEDURE Delete_Alloc_def
( p_dir IN VARCHAR2
, p_input_file IN VARCHAR2
, p_output_file IN VARCHAR2
, p_delimiter IN VARCHAR2
)
IS
l_return_status VARCHAR2(1);
l_return_status :=Delete_Alloc_def( p_dir
, p_input_file
, p_output_file
, p_delimiter
);
End Delete_Alloc_def;
| Delete_Alloc_def |
| |
| TYPE |
| Public |
| |
| USAGE |
| Delete Allocation Definition |
| |
| DESCRIPTION |
| This is a PL/SQL wrapper function to call the |
| Delete_Allocation_definition API. |
| It reads item data from a flat file and outputs any error |
| messages to a second flat file. It also generates a Status |
| called gmf_aloc_wrapper.log in the temp directory. |
| |
| PARAMETERS |
| p_dir IN VARCHAR2 - Working directory for input |
| and output files. |
| p_input_file IN VARCHAR2 - Name of input file |
| p_output_file IN VARCHAR2 - Name of output file |
| p_delimiter IN VARCHAR2 - Delimiter character |
| |
| RETURNS |
| VARCHAR2 - 'S' All records processed successfully |
| 'E' 1 or more records errored |
| 'U' 1 or more record unexpected error |
| |
| HISTORY |
| |
+==========================================================================+
Api end of comments
*/
FUNCTION Delete_Alloc_def
( p_dir IN VARCHAR2
, p_input_file IN VARCHAR2
, p_output_file IN VARCHAR2
, p_delimiter IN VARCHAR2
)
RETURN VARCHAR2
IS
/* Local variables */
l_status VARCHAR2(100);
alloc_rec.delete_mark := Get_Field(l_line,l_delimiter,19) ;
UTL_FILE.PUT_LINE(l_log_handle, 'delete_mark = ' || alloc_rec.delete_mark) ;
GMF_ALLOCATIONDEFINITION_PUB.Delete_Allocation_Definition
( p_api_version => 3.0
, p_init_msg_list => FND_API.G_TRUE
, p_commit => FND_API.G_TRUE
, x_return_status =>l_status
, x_msg_count =>l_count
, x_msg_data =>l_data
, p_allocation_definition_rec => alloc_rec
);
/* Update error status */
IF (l_status = 'U')
THEN
l_return_status :=l_status;
END Delete_Alloc_def;
| Create/Insert, Update or Delete Lot Cost Adjustment |
| |
| DESCRIPTION |
| This is a PL/SQL wrapper function to call the |
| Call_LotCost_API. |
| It reads item data from a flat file and outputs any error |
| messages to a second flat file. It also generates a Status |
| called gmf_api__wrapper.log in the /tmp directory|
| |
| PARAMETERS |
| p_dir IN VARCHAR2 - Working directory for input |
| and output files. |
| p_input_file IN VARCHAR2 - Name of input file |
| p_output_file IN VARCHAR2 - Name of output file |
| p_delimiter IN VARCHAR2 - Delimiter character |
| p_operation IN VARCHAR2 - Operation to be performed |
| |
| RETURNS |
| VARCHAR2 - 'S' All records processed successfully |
| 'E' 1 or more records errored |
| 'U' 1 or more record unexpected error |
| |
| HISTORY |
| |
+============================================================================+
Api end of comments
*/
FUNCTION Process_LotCost_Adjustment
( p_dir IN VARCHAR2
, p_input_file IN VARCHAR2
, p_output_file IN VARCHAR2
, p_delimiter IN VARCHAR2
, p_operation IN VARCHAR2
)
RETURN VARCHAR2
IS
/* Local variables */
l_status VARCHAR2(11);
IF p_operation = 'INSERT' THEN
l_log_name := 'gmf_api_crtlcadj_wrapper' ;
ELSIF p_operation = 'UPDATE' THEN
l_log_name := 'gmf_api_updlcadj_wrapper' ;
ELSIF p_operation = 'DELETE' THEN
l_log_name := 'gmf_api_dellcadj_wrapper' ;
l_header_rec.delete_mark := Get_Field(l_line,l_delimiter,13);
l_dtl_tbl.DELETE ;
l_dtl_tbl.DELETE(l_idx);
/* Update error status */
IF (l_status = 'U') THEN
l_return_status :=l_status;
| p_operation IN VARCHAR2 - Insert/Update/Delete |
| x_status OUT VARCHAR2 - Return Status |
| x_count OUT VARCHAR2 - # of msgs on message stack |
| x_data OUT VARCHAR2 - Actual Message from msg stack |
| |
| |
| HISTORY |
| Created by dvadivel on 5-Apr-2004 |
+==============================================================================+
*/
PROCEDURE Call_LotCost_API
(
p_header_rec IN OUT NOCOPY GMF_LOTCOSTADJUSTMENT_PUB.Lc_Adjustment_Header_Rec_Type
, p_dtl_tbl IN OUT NOCOPY GMF_LOTCOSTADJUSTMENT_PUB.Lc_Adjustment_Dtls_Tbl_Type
, p_operation IN VARCHAR2
, x_status OUT NOCOPY VARCHAR2
, x_count OUT NOCOPY NUMBER
, x_data OUT NOCOPY VARCHAR2
)
IS
BEGIN
IF p_operation = 'INSERT' THEN
GMF_LotCostAdjustment_PUB.Create_LotCost_Adjustment
( p_api_version => 2.0
, p_init_msg_list => FND_API.G_TRUE
, p_commit => FND_API.G_TRUE
, x_return_status => x_status
, x_msg_count => x_count
, x_msg_data => x_data
, p_header_rec => p_header_rec
, p_dtl_Tbl => p_dtl_tbl
);
ELSIF p_operation = 'UPDATE' THEN
GMF_LotCostAdjustment_PUB.Update_LotCost_Adjustment
( p_api_version => 2.0
, p_init_msg_list => FND_API.G_TRUE
, p_commit => FND_API.G_TRUE
, x_return_status => x_status
, x_msg_count => x_count
, x_msg_data => x_data
, p_header_rec => p_header_rec
, p_dtl_Tbl => p_dtl_tbl
);
ELSIF p_operation = 'DELETE' THEN
GMF_LotCostAdjustment_PUB.Delete_LotCost_Adjustment
( p_api_version => 2.0
, p_init_msg_list => FND_API.G_TRUE
, p_commit => FND_API.G_TRUE
, x_return_status => x_status
, x_msg_count => x_count
, x_msg_data => x_data
, p_header_rec => p_header_rec
, p_dtl_Tbl => p_dtl_tbl
);
l_dtl_tbl.delete ;
l_header_rec.delete_mark := Get_Field(l_line,l_delimiter,13);
/* Update error status */
IF (l_status = 'U') THEN
l_return_status :=l_status;
l_dtl_tbl.delete ;
IF p_operation = 'INSERT' THEN
l_log_name := 'gmf_api_crbrdn_wrapper' ;
ELSIF p_operation = 'UPDATE' THEN
l_log_name := 'gmf_api_updbrdn_wrapper' ;
ELSIF p_operation = 'DELETE' THEN
l_log_name := 'gmf_api_delbrdn_wrapper' ;
l_dtl_tbl.delete ;
l_dtl_tbl(l_idx).delete_mark := Get_Field(l_line,l_delimiter,12) ;
UTL_FILE.PUT_LINE(l_log_handle,'DtlRec: delete_mark('||l_idx||') = '||l_dtl_tbl(l_idx).delete_mark) ;
l_dtl_tbl.delete(l_idx);
/* Update error status */
IF (l_status = 'U') THEN
l_return_status :=l_status;
l_burdenline_ids.delete ;
l_dtl_tbl.delete ;
/* Update error status */
IF (l_status = 'U') THEN
l_return_status :=l_status;
' Delete Mark : ' || l_dtl_tbl(i).Delete_Mark
);
l_dtl_tbl.delete ;
| p_operation IN VARCHAR2 - Insert/Update/Delete |
| x_burdenline_ids OUT VARCHAR2 - Inserted burdenline_ids |
| x_status OUT VARCHAR2 - Return Status |
| x_count OUT VARCHAR2 - # of msgs on message stack |
| x_data OUT VARCHAR2 - Actual Message from msg stack|
| |
| RETURNS |
| VARCHAR2 - 'S' All records processed successfully |
| 'E' 1 or more records errored |
| 'U' 1 or more record unexpected error |
| |
| HISTORY |
| |
+==========================================================================+
*/
PROCEDURE Call_Burden_API
(
p_burden_header IN GMF_BurdenDetails_PUB.Burden_Header_Rec_Type
, p_burden_detail IN GMF_BurdenDetails_PUB.Burden_Dtl_Tbl_Type
, p_operation IN VARCHAR2
, x_burdenline_ids OUT NOCOPY GMF_BurdenDetails_PUB.Burdenline_Ids_Tbl_Type
, x_status OUT NOCOPY VARCHAR2
, x_count OUT NOCOPY NUMBER
, x_data OUT NOCOPY VARCHAR2
)
IS
BEGIN
IF p_operation = 'INSERT' THEN
GMF_BurdenDetails_PUB.Create_Burden_Details
(
p_api_version => 2.0
, p_init_msg_list => FND_API.G_TRUE
, p_commit => FND_API.G_TRUE
, x_return_status => x_status
, x_msg_count => x_count
, x_msg_data => x_data
, p_header_rec => p_burden_header
, p_dtl_tbl => p_burden_detail
, x_burdenline_ids => x_burdenline_ids
);
ELSIF p_operation = 'UPDATE' THEN
GMF_BurdenDetails_PUB.Update_Burden_Details
(
p_api_version => 2.0
, p_init_msg_list => FND_API.G_TRUE
, p_commit => FND_API.G_TRUE
, x_return_status => x_status
, x_msg_count => x_count
, x_msg_data => x_data
, p_header_rec => p_burden_header
, p_dtl_tbl => p_burden_detail
);
ELSIF p_operation = 'DELETE' THEN
GMF_BurdenDetails_PUB.Delete_Burden_Details
(
p_api_version => 2.0
, p_init_msg_list => FND_API.G_TRUE
, p_commit => FND_API.G_TRUE
, x_return_status => x_status
, x_msg_count => x_count
, x_msg_data => x_data
, p_header_rec => p_burden_header
, p_dtl_tbl => p_burden_detail
);
rsrc_rec.delete_mark := Get_Field(l_line,l_delimiter,12) ;
UTL_FILE.PUT_LINE(l_log_handle, 'delete_mark = ' || rsrc_rec.delete_mark);
/* Update error status */
IF (l_status = 'U')
THEN
l_return_status :=l_status;
| Update_resource_cost |
| |
| TYPE |
| Public |
| |
| USAGE |
| Update Resource Cost |
| |
| DESCRIPTION |
| This is a PL/SQL wrapper procedure to call the |
| Update_resource_cost API wrapper function |
| |
| PARAMETERS |
| p_dir IN VARCHAR2 - Working directory for input |
| and output files. |
| p_input_file IN VARCHAR2 - Name of input file |
| p_output_file IN VARCHAR2 - Name of output file |
| p_delimiter IN VARCHAR2 - Delimiter character |
| |
| RETURNS |
| None |
| |
| HISTORY |
| 07-Mar-2001 Uday Moogala created |
| |
+==========================================================================+
Api end of comments
*/
PROCEDURE Update_resource_cost
( p_dir IN VARCHAR2
, p_input_file IN VARCHAR2
, p_output_file IN VARCHAR2
, p_delimiter IN VARCHAR2
)
IS
l_return_status VARCHAR2(1);
l_return_status :=Update_resource_cost( p_dir
, p_input_file
, p_output_file
, p_delimiter
);
END Update_resource_cost;
| Update_resource_cost |
| |
| TYPE |
| Public |
| |
| USAGE |
| Update Resource Cost |
| |
| DESCRIPTION |
| This is a PL/SQL wrapper function to call the |
| Update_Resource_Cost API. |
| It reads item data from a flat file and outputs any error |
| messages to a second flat file. It also generates a Status |
| called gmf_aloc_wrapper.log in the temp directory. |
| |
| PARAMETERS |
| p_dir IN VARCHAR2 - Working directory for input |
| and output files. |
| p_input_file IN VARCHAR2 - Name of input file |
| p_output_file IN VARCHAR2 - Name of output file |
| p_delimiter IN VARCHAR2 - Delimiter character |
| |
| RETURNS |
| VARCHAR2 - 'S' All records processed successfully |
| 'E' 1 or more records errored |
| 'U' 1 or more record unexpected error |
| |
| HISTORY |
| 21-Oct-2005 Prasad marada Modified the procedure as per the record type |
| changes in resource cost public packages |
| |
+==========================================================================+
Api end of comments
*/
FUNCTION Update_resource_cost
( p_dir IN VARCHAR2
, p_input_file IN VARCHAR2
, p_output_file IN VARCHAR2
, p_delimiter IN VARCHAR2
)
RETURN VARCHAR2
IS
/* Local variables */
l_status VARCHAR2(100);
rsrc_rec.delete_mark := Get_Field(l_line,l_delimiter,12) ;
UTL_FILE.PUT_LINE(l_log_handle, 'delete_mark = ' || rsrc_rec.delete_mark);
GMF_ResourceCost_PUB.Update_Resource_Cost
( p_api_version => 2.0
, p_init_msg_list => FND_API.G_TRUE
, p_commit => FND_API.G_TRUE
, x_return_status =>l_status
, x_msg_count =>l_count
, x_msg_data =>l_data
, p_Resource_Cost_rec => rsrc_rec
);
/* Update error status */
IF (l_status = 'U')
THEN
l_return_status :=l_status;
END Update_resource_cost;
| Delete_resource_cost |
| |
| TYPE |
| Public |
| |
| USAGE |
| Delete Resource Cost |
| |
| DESCRIPTION |
| This is a PL/SQL wrapper procedure to call the |
| Delete_resource_cost API wrapper function |
| |
| PARAMETERS |
| p_dir IN VARCHAR2 - Working directory for input |
| and output files. |
| p_input_file IN VARCHAR2 - Name of input file |
| p_output_file IN VARCHAR2 - Name of output file |
| p_delimiter IN VARCHAR2 - Delimiter character |
| |
| RETURNS |
| None |
| |
| HISTORY |
| 07-Mar-2001 Uday Moogala created |
| |
+==========================================================================+
Api end of comments
*/
PROCEDURE Delete_resource_cost
( p_dir IN VARCHAR2
, p_input_file IN VARCHAR2
, p_output_file IN VARCHAR2
, p_delimiter IN VARCHAR2
)
IS
l_return_status VARCHAR2(1);
l_return_status :=Delete_resource_cost( p_dir
, p_input_file
, p_output_file
, p_delimiter
);
END Delete_resource_cost;
| Delete_resource_cost |
| |
| TYPE |
| Public |
| |
| USAGE |
| Delete Resource Cost |
| |
| DESCRIPTION |
| This is a PL/SQL wrapper function to call the |
| Delete_Resource_Cost API. |
| It reads item data from a flat file and outputs any error |
| messages to a second flat file. It also generates a Status |
| called gmf_rsrc_wrapper.log in the temp directory. |
| |
| PARAMETERS |
| p_dir IN VARCHAR2 - Working directory for input |
| and output files. |
| p_input_file IN VARCHAR2 - Name of input file |
| p_output_file IN VARCHAR2 - Name of output file |
| p_delimiter IN VARCHAR2 - Delimiter character |
| |
| RETURNS |
| VARCHAR2 - 'S' All records processed successfully |
| 'E' 1 or more records errored |
| 'U' 1 or more record unexpected error |
| |
| HISTORY |
| 21-Oct-2005 Prasad marada Modified the procedure as per the record type |
| changes in resource cost public packages |
| |
+==========================================================================+
Api end of comments
*/
FUNCTION Delete_resource_cost
( p_dir IN VARCHAR2
, p_input_file IN VARCHAR2
, p_output_file IN VARCHAR2
, p_delimiter IN VARCHAR2
)
RETURN VARCHAR2
IS
/* Local variables */
l_status VARCHAR2(100);
rsrc_rec.delete_mark := Get_Field(l_line,l_delimiter,12) ;
UTL_FILE.PUT_LINE(l_log_handle, 'delete_mark = ' || rsrc_rec.delete_mark);
GMF_ResourceCost_PUB.Delete_Resource_Cost
( p_api_version => 2.0
, p_init_msg_list => FND_API.G_TRUE
, p_commit => FND_API.G_TRUE
, x_return_status =>l_status
, x_msg_count =>l_count
, x_msg_data =>l_data
, p_Resource_Cost_rec => rsrc_rec
);
/* Update error status */
IF (l_status = 'U')
THEN
l_return_status :=l_status;
END Delete_resource_cost;
rsrc_rec.delete_mark := Get_Field(l_line,l_delimiter,12) ;
UTL_FILE.PUT_LINE(l_log_handle, 'delete_mark = ' || rsrc_rec.delete_mark);
/* Update error status */
IF (l_status = 'U')
THEN
l_return_status :=l_status;
' Delete Mark : ' || x_rsrc_rec.delete_mark ||
' User Name : ' || x_rsrc_rec.user_name
) ;