PACKAGE BODY: APPS.EAM_SAFETY_ASSET_NUMBER_PVT

Source

1 PACKAGE BODY EAM_SAFETY_ASSET_NUMBER_PVT AS
2 /* $Header: EAMVSAFB.pls 120.0 2011/02/23 17:13:31 srkotika noship $ */
3 /***************************************************************************
4 --
5 --  Copyright (c) 2008 Oracle Corporation, Redwood Shores, CA, USA
6 --  All rights reserved.
7 --
8 --  FILENAME
9 --
10 --      eamvsafb.pls
11 --
12 --  DESCRIPTION
13 --
14 --      Body of package EAM_SAFETY_ASSET_NUMBER_PVT
15 --
16 --  NOTES
17 --
18 --  HISTORY
19 --
20 --  23-FEB-2011     srkotika     Initial Creation
21 ***************************************************************************/
22 
23 PROCEDURE INSERT_ROW
24 (
25     p_eAM_asset_safety_rec    IN           EAM_SAFETY_ASSET_NUMBER_PUB.eam_asset_safety_info_rec_type
26    , x_return_status           OUT NOCOPY  VARCHAR2
27 )  IS
28 
29 BEGIN
30 
31 	x_return_status         := FND_API.G_RET_STS_SUCCESS;
32 
33 	    INSERT INTO EAM_ASSET_SAFETY_TYPES
34 	     (
35 	      INSTANCE_ID,
36 	      EAM_SAFETY_TYPE,
37 	      OPERATING_POSITION,
38 	      OPERATING_TAG,
39 	      SHUTDOWN_POSITION,
40 	      SHUTDOWN_TAG,
41 	      POS_LOCKOUT_DEVICE,
42 	      LOCKOUT_DEVICE,
43 	      CREATION_DATE,
44 	      CREATED_BY,
45 	      LAST_UPDATED_BY,
46 	      LAST_UPDATE_LOGIN,
47 	      LAST_UPDATE_DATE
48 	     )
49 	     VALUES
50 	     (
51 	      p_eAM_asset_safety_rec.instance_id,
52               p_eAM_asset_safety_rec.safety_type,
53 	      p_eAM_asset_safety_rec.operating_position,
54 	      p_eAM_asset_safety_rec.operating_tag,
55 	      p_eAM_asset_safety_rec.shutdown_position,
56 	      p_eAM_asset_safety_rec.shutdown_tag,
57 	      p_eAM_asset_safety_rec.pos_lockout_device,
58 	      p_eAM_asset_safety_rec.lockout_device,
59 	      SYSDATE,
60               FND_GLOBAL.user_id,
61 	      FND_GLOBAL.user_id,
62 	      FND_GLOBAL.login_id,
63               SYSDATE
64               );
65 
66    EXCEPTION
67 
68      WHEN OTHERS THEN
69             x_return_status         := FND_API.G_RET_STS_ERROR;
70 
71   END INSERT_ROW;
72 
73 
74  PROCEDURE UPDATE_ROW
75   ( p_eAM_asset_safety_rec    IN           EAM_SAFETY_ASSET_NUMBER_PUB.eam_asset_safety_info_rec_type
76    ,x_return_status           OUT NOCOPY  VARCHAR2
77 )   IS
78 
79   l_instance_id NUMBER;
80 
81 BEGIN
82 
83  	x_return_status         := FND_API.G_RET_STS_SUCCESS;
84 
85 	 UPDATE EAM_ASSET_SAFETY_TYPES
86 	    SET
87 	      eam_safety_type         = p_eAM_asset_safety_rec.safety_type,
88 		  operating_position        = p_eAM_asset_safety_rec.operating_position,
89 		  operating_tag             = p_eAM_asset_safety_rec.operating_tag,
90 		  shutdown_position         = p_eAM_asset_safety_rec.shutdown_position,
91 		  shutdown_tag              = p_eAM_asset_safety_rec.shutdown_tag,
92 		  pos_lockout_device         = p_eAM_asset_safety_rec.pos_lockout_device,
93 		  lockout_device            = p_eAM_asset_safety_rec.lockout_device,
94 	      LAST_UPDATED_BY    =  FND_GLOBAL.user_id,
95 	      LAST_UPDATE_LOGIN  =  FND_GLOBAL.login_id,
96 	      LAST_UPDATE_DATE   =  SYSDATE
97 	    WHERE
98 	      INSTANCE_ID = p_eAM_asset_safety_rec.instance_id;
99 
100 
101 
102   EXCEPTION
103      WHEN NO_DATA_FOUND THEN
104 	           x_return_status         := FND_API.G_RET_STS_SUCCESS;
105 			   Return;
106 
107      WHEN OTHERS THEN
108                x_return_status := FND_API.G_RET_STS_ERROR;
109 
110   END UPDATE_ROW;
111 END EAM_SAFETY_ASSET_NUMBER_PVT;