PACKAGE BODY: APPS.PA_CI_ACTIONS_PKG

Source

1 package body PA_CI_ACTIONS_PKG as
2 /* $Header: PACIACTB.pls 120.0 2005/06/03 13:47:53 appldev noship $ */
3 procedure INSERT_ROW (
4     P_CI_ACTION_ID		out NOCOPY NUMBER,
5     P_CI_ID                     in NUMBER,
6     P_CI_ACTION_NUMBER		in NUMBER,
7     P_STATUS_CODE   		in VARCHAR2,
8     P_TYPE_CODE			in VARCHAR2,
9     P_ASSIGNED_TO		in NUMBER,
10     P_DATE_REQUIRED 		in DATE,
11     P_SIGN_OFF_REQUIRED_FLAG    in VARCHAR2,
12     P_DATE_CLOSED		in DATE,
13     P_SIGN_OFF_FLAG		in VARCHAR2,
14     P_SOURCE_CI_ACTION_ID	in NUMBER,
15     P_LAST_UPDATED_BY		in NUMBER,
16     P_CREATED_BY		in NUMBER,
17     P_CREATION_DATE		in DATE,
18     P_LAST_UPDATE_DATE		in DATE,
19     P_LAST_UPDATE_LOGIN		in NUMBER,
20     P_RECORD_VERSION_NUMBER     in NUMBER
21 ) IS
22       -- Enter the procedure variables here. As shown below
23     CURSOR  c1 IS
24      SELECT rowid
25      FROM   PA_CI_ACTIONS
26      WHERE  ci_action_id = p_ci_action_id;
27 
28     l_row_id  ROWID;
29 
30 BEGIN
31 
32    Insert into PA_CI_ACTIONS (
33     CI_ACTION_ID,
34     CI_ID,
35     CI_ACTION_NUMBER,
36     STATUS_CODE,
37     TYPE_CODE,
38     ASSIGNED_TO,
39     DATE_REQUIRED,
40     SIGN_OFF_REQUIRED_FLAG,
41     DATE_CLOSED,
42     SIGN_OFF_FLAG,
43     SOURCE_CI_ACTION_ID,
44     LAST_UPDATED_BY,
45     CREATED_BY,
46     CREATION_DATE,
47     LAST_UPDATE_DATE,
48     LAST_UPDATE_LOGIN,
49     RECORD_VERSION_NUMBER
50     ) VALUES
51   (  PA_CI_ACTIONS_S.NEXTVAL,
52     P_CI_ID,
53     P_CI_ACTION_NUMBER,
54     P_STATUS_CODE,
55     P_TYPE_CODE,
56     P_ASSIGNED_TO,
57     P_DATE_REQUIRED,
58     P_SIGN_OFF_REQUIRED_FLAG,
59     P_DATE_CLOSED,
60     P_SIGN_OFF_FLAG,
61     P_SOURCE_CI_ACTION_ID,
62     P_LAST_UPDATED_BY,
63     P_CREATED_BY,
64     P_CREATION_DATE,
65     P_LAST_UPDATE_DATE,
66     P_LAST_UPDATE_LOGIN,
67     P_RECORD_VERSION_NUMBER
68   ) returning ci_action_id INTO p_ci_action_id;
69 
70 
71   EXCEPTION
72     WHEN OTHERS THEN -- catch the exceptions here
73         RAISE;
74   END INSERT_ROW;
75 
76 procedure UPDATE_ROW (
77     P_CI_ACTION_ID		in NUMBER,
78     P_CI_ID                     in NUMBER,
79     P_STATUS_CODE   		in VARCHAR2,
80     P_TYPE_CODE			in VARCHAR2,
81     P_ASSIGNED_TO		in NUMBER,
82     P_DATE_REQUIRED 		in DATE,
83     P_SIGN_OFF_REQUIRED_FLAG    in VARCHAR2,
84     P_DATE_CLOSED		in DATE,
85     P_SIGN_OFF_FLAG		in VARCHAR2,
86     P_SOURCE_CI_ACTION_ID	in NUMBER,
87     P_LAST_UPDATED_BY		in NUMBER,
88     P_CREATED_BY		in NUMBER,
89     P_CREATION_DATE		in DATE,
90     P_LAST_UPDATE_DATE		in DATE,
91     P_LAST_UPDATE_LOGIN		in NUMBER,
92     P_RECORD_VERSION_NUMBER     in NUMBER
93 ) IS
94  BEGIN
95    UPDATE PA_CI_ACTIONS
96    SET
97     CI_ID           =   P_CI_ID,
98     STATUS_CODE     =   P_STATUS_CODE,
99     TYPE_CODE       =   P_TYPE_CODE,
100     ASSIGNED_TO     =   P_ASSIGNED_TO,
101     DATE_REQUIRED   =   P_DATE_REQUIRED,
102     SIGN_OFF_REQUIRED_FLAG  =   P_SIGN_OFF_REQUIRED_FLAG,
103     DATE_CLOSED     =   P_DATE_CLOSED,
104     SIGN_OFF_FLAG   =   P_SIGN_OFF_FLAG,
105     SOURCE_CI_ACTION_ID     =   P_SOURCE_CI_ACTION_ID,
106     LAST_UPDATED_BY =   P_LAST_UPDATED_BY,
107     CREATED_BY      =   P_CREATED_BY,
108     CREATION_DATE   =   P_CREATION_DATE,
109     LAST_UPDATE_DATE    =   P_LAST_UPDATE_DATE,
110     LAST_UPDATE_LOGIN   =   P_LAST_UPDATE_LOGIN,
111     RECORD_VERSION_NUMBER = P_RECORD_VERSION_NUMBER+1
112    WHERE CI_ACTION_ID  	    =  P_CI_ACTION_ID;
113  EXCEPTION
114     WHEN OTHERS THEN -- catch the exceptins here
115         RAISE;
116  END UPDATE_ROW;
117 
118 
119 
120 procedure DELETE_ROW (
121 		      P_CI_ACTION_ID in NUMBER
122               )
123  IS
124  BEGIN
125    DELETE FROM PA_CI_ACTIONS
126    WHERE CI_ACTION_ID = P_CI_ACTION_ID;
127 
128  EXCEPTION
129     WHEN OTHERS THEN
130         RAISE;
131  END DELETE_ROW;
132 
133 
134    -- Enter further code below as specified in the Package spec.
135 END PA_CI_ACTIONS_PKG; -- Package Body PA_CI_ACTION_PKG
136 
137