1 package body QP_PB_INPUT_LINES_PKG as
2 /* $Header: QPXUPBLB.pls 120.1 2005/10/07 06:01:22 prarasto noship $ */
3
4 procedure INSERT_ROW (
5 X_ROWID in out nocopy VARCHAR2,
6 X_PB_INPUT_LINE_ID in NUMBER,
7 X_PB_INPUT_HEADER_ID in NUMBER,
8 X_CREATION_DATE in DATE,
9 X_CREATED_BY in NUMBER,
10 X_LAST_UPDATE_DATE in DATE,
11 X_LAST_UPDATED_BY in NUMBER,
12 X_LAST_UPDATE_LOGIN in NUMBER,
13 X_CONTEXT in VARCHAR2,
14 X_ATTRIBUTE in VARCHAR2,
15 X_ATTRIBUTE_VALUE in VARCHAR2,
16 X_ATTRIBUTE_TYPE in VARCHAR2,
17 X_CONTEXT_NAME in VARCHAR2,
18 X_ATTRIBUTE_NAME in VARCHAR2,
19 X_ATTRIBUTE_VALUE_NAME in VARCHAR2,
20 X_ATTRIBUTE_TYPE_VALUE in VARCHAR2
21 ) is
22 cursor C is select ROWID from QP_PB_INPUT_LINES
23 where PB_INPUT_LINE_ID = X_PB_INPUT_LINE_ID;
24
25 begin
26 insert into QP_PB_INPUT_LINES(
27 PB_INPUT_LINE_ID,
28 PB_INPUT_HEADER_ID,
29 CONTEXT,
30 ATTRIBUTE,
31 ATTRIBUTE_VALUE,
32 ATTRIBUTE_TYPE,
33 CREATION_DATE,
34 CREATED_BY,
35 LAST_UPDATE_DATE,
36 LAST_UPDATED_BY,
37 LAST_UPDATE_LOGIN
38 ) values (
39 X_PB_INPUT_LINE_ID,
40 X_PB_INPUT_HEADER_ID,
41 X_CONTEXT,
42 X_ATTRIBUTE,
43 X_ATTRIBUTE_VALUE,
44 X_ATTRIBUTE_TYPE,
45 X_CREATION_DATE,
46 X_CREATED_BY,
47 X_LAST_UPDATE_DATE,
48 X_LAST_UPDATED_BY,
49 X_LAST_UPDATE_LOGIN);
50 open c;
51 fetch c into X_ROWID;
52 if (c%notfound) then
53 close c;
54 raise no_data_found;
55 end if;
56 close c;
57
58 end INSERT_ROW;
59
60 procedure LOCK_ROW (
61 X_PB_INPUT_LINE_ID in NUMBER,
62 X_PB_INPUT_HEADER_ID in NUMBER,
63 X_CREATION_DATE in DATE,
64 X_CREATED_BY in NUMBER,
65 X_LAST_UPDATE_DATE in DATE,
66 X_LAST_UPDATED_BY in NUMBER,
67 X_LAST_UPDATE_LOGIN in NUMBER,
68 X_CONTEXT in VARCHAR2,
69 X_ATTRIBUTE in VARCHAR2,
70 X_ATTRIBUTE_VALUE in VARCHAR2,
71 X_ATTRIBUTE_TYPE in VARCHAR2,
72 X_CONTEXT_NAME in VARCHAR2,
73 X_ATTRIBUTE_NAME in VARCHAR2,
74 X_ATTRIBUTE_VALUE_NAME in VARCHAR2,
75 X_ATTRIBUTE_TYPE_VALUE in VARCHAR2)
76 is
77 begin
78 null;
79 end LOCK_ROW;
80
81 procedure UPDATE_ROW (
82 X_PB_INPUT_LINE_ID in NUMBER,
83 X_PB_INPUT_HEADER_ID in NUMBER,
84 X_LAST_UPDATE_DATE in DATE,
85 X_LAST_UPDATED_BY in NUMBER,
86 X_LAST_UPDATE_LOGIN in NUMBER,
87 X_CONTEXT in VARCHAR2,
88 X_ATTRIBUTE in VARCHAR2,
89 X_ATTRIBUTE_VALUE in VARCHAR2,
90 X_ATTRIBUTE_TYPE in VARCHAR2,
91 X_CONTEXT_NAME in VARCHAR2,
92 X_ATTRIBUTE_NAME in VARCHAR2,
93 X_ATTRIBUTE_VALUE_NAME in VARCHAR2,
94 X_ATTRIBUTE_TYPE_VALUE in VARCHAR2)
95 is
96 begin
97 update QP_PB_INPUT_LINES set
98 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
99 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
100 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
101 CONTEXT = X_CONTEXT,
102 ATTRIBUTE = X_ATTRIBUTE,
103 ATTRIBUTE_VALUE = X_ATTRIBUTE_VALUE,
104 ATTRIBUTE_TYPE = X_ATTRIBUTE_TYPE
105 where PB_INPUT_LINE_ID = X_PB_INPUT_LINE_ID;
106
107 end UPDATE_ROW;
108
109 procedure DELETE_ROW (
110 X_PB_INPUT_LINE_ID in NUMBER
111 )
112 is
113 begin
114 delete from QP_PB_INPUT_LINES
115 where PB_INPUT_LINE_ID = X_PB_INPUT_LINE_ID;
116
117 if (sql%notfound) then
118 raise no_data_found;
119 end if;
120
121 end DELETE_ROW;
122
123 end QP_PB_INPUT_LINES_PKG;