1: PACKAGE BODY AMS_DMLift_PVT as
2: /* $Header: amsvdlfb.pls 115.11 2002/12/09 11:15:17 choang ship $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
2: /* $Header: amsvdlfb.pls 115.11 2002/12/09 11:15:17 choang ship $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
6: -- AMS_DMLift_PVT
7: -- Purpose
8: --
9: -- History
10: -- 26-jan-2001 choang Increment object ver num in update API.
21: -- End of Comments
22: -- ===============================================================
23:
24:
25: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_DMLift_PVT';
26: G_FILE_NAME CONSTANT VARCHAR2(12) := 'amsvdlfb.pls';
27:
28: /***
29: G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
396: -- Local Variables
397: l_object_version_number NUMBER;
398: l_LIFT_ID NUMBER;
399: l_ref_Lift_rec c_get_Dmlift%ROWTYPE ;
400: l_tar_Lift_rec AMS_DMLift_PVT.Lift_rec_type := P_Lift_rec;
401: l_rowid ROWID;
402: BEGIN
403: -- Standard Start of API savepoint
404: SAVEPOINT Update_Lift_PVT;
954: IS
955: L_API_NAME CONSTANT VARCHAR2(30) := 'Validate_Lift';
956: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
957: l_object_version_number NUMBER;
958: l_Lift_rec AMS_DMLift_PVT.Lift_rec_type;
959:
960: BEGIN
961: -- Standard Start of API savepoint
962: SAVEPOINT Validate_Lift_;
1110: p_data => x_msg_data
1111: );
1112: END Validate_Lift_Rec;
1113:
1114: END AMS_DMLift_PVT;