[Home] [Help]
91: null;
92: END api_copy;
93:
94: ---------------------------------------------------------------------------
95: -- FUNCTION get_rec for: OKS_BATCH_RULES_V
96: ---------------------------------------------------------------------------
97: FUNCTION get_rec (
98: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
99: x_no_data_found OUT NOCOPY BOOLEAN
94: ---------------------------------------------------------------------------
95: -- FUNCTION get_rec for: OKS_BATCH_RULES_V
96: ---------------------------------------------------------------------------
97: FUNCTION get_rec (
98: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
99: x_no_data_found OUT NOCOPY BOOLEAN
100: ) RETURN oks_batch_rules_v_rec_type IS
101: CURSOR oks_brlv_pk_csr (p_batch_id IN NUMBER) IS
102: SELECT
96: ---------------------------------------------------------------------------
97: FUNCTION get_rec (
98: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
99: x_no_data_found OUT NOCOPY BOOLEAN
100: ) RETURN oks_batch_rules_v_rec_type IS
101: CURSOR oks_brlv_pk_csr (p_batch_id IN NUMBER) IS
102: SELECT
103: BATCH_ID,
104: BATCH_TYPE,
126: LAST_UPDATE_LOGIN,
127: SECURITY_GROUP_ID,
128: OBJECT_VERSION_NUMBER,
129: REQUEST_ID
130: FROM Oks_Batch_Rules_V
131: WHERE oks_batch_rules_v.batch_id = p_batch_id;
132: l_oks_brlv_pk oks_brlv_pk_csr%ROWTYPE;
133: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type;
134: BEGIN
127: SECURITY_GROUP_ID,
128: OBJECT_VERSION_NUMBER,
129: REQUEST_ID
130: FROM Oks_Batch_Rules_V
131: WHERE oks_batch_rules_v.batch_id = p_batch_id;
132: l_oks_brlv_pk oks_brlv_pk_csr%ROWTYPE;
133: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type;
134: BEGIN
135: x_no_data_found := TRUE;
129: REQUEST_ID
130: FROM Oks_Batch_Rules_V
131: WHERE oks_batch_rules_v.batch_id = p_batch_id;
132: l_oks_brlv_pk oks_brlv_pk_csr%ROWTYPE;
133: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type;
134: BEGIN
135: x_no_data_found := TRUE;
136: -- Get current database values
137: OPEN oks_brlv_pk_csr (p_oks_batch_rules_v_rec.batch_id);
133: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type;
134: BEGIN
135: x_no_data_found := TRUE;
136: -- Get current database values
137: OPEN oks_brlv_pk_csr (p_oks_batch_rules_v_rec.batch_id);
138: FETCH oks_brlv_pk_csr INTO
139: l_oks_batch_rules_v_rec.batch_id,
140: l_oks_batch_rules_v_rec.batch_type,
141: l_oks_batch_rules_v_rec.batch_source,
135: x_no_data_found := TRUE;
136: -- Get current database values
137: OPEN oks_brlv_pk_csr (p_oks_batch_rules_v_rec.batch_id);
138: FETCH oks_brlv_pk_csr INTO
139: l_oks_batch_rules_v_rec.batch_id,
140: l_oks_batch_rules_v_rec.batch_type,
141: l_oks_batch_rules_v_rec.batch_source,
142: l_oks_batch_rules_v_rec.transaction_date,
143: l_oks_batch_rules_v_rec.credit_option,
136: -- Get current database values
137: OPEN oks_brlv_pk_csr (p_oks_batch_rules_v_rec.batch_id);
138: FETCH oks_brlv_pk_csr INTO
139: l_oks_batch_rules_v_rec.batch_id,
140: l_oks_batch_rules_v_rec.batch_type,
141: l_oks_batch_rules_v_rec.batch_source,
142: l_oks_batch_rules_v_rec.transaction_date,
143: l_oks_batch_rules_v_rec.credit_option,
144: l_oks_batch_rules_v_rec.termination_reason_code,
137: OPEN oks_brlv_pk_csr (p_oks_batch_rules_v_rec.batch_id);
138: FETCH oks_brlv_pk_csr INTO
139: l_oks_batch_rules_v_rec.batch_id,
140: l_oks_batch_rules_v_rec.batch_type,
141: l_oks_batch_rules_v_rec.batch_source,
142: l_oks_batch_rules_v_rec.transaction_date,
143: l_oks_batch_rules_v_rec.credit_option,
144: l_oks_batch_rules_v_rec.termination_reason_code,
145: l_oks_batch_rules_v_rec.billing_profile_id,
138: FETCH oks_brlv_pk_csr INTO
139: l_oks_batch_rules_v_rec.batch_id,
140: l_oks_batch_rules_v_rec.batch_type,
141: l_oks_batch_rules_v_rec.batch_source,
142: l_oks_batch_rules_v_rec.transaction_date,
143: l_oks_batch_rules_v_rec.credit_option,
144: l_oks_batch_rules_v_rec.termination_reason_code,
145: l_oks_batch_rules_v_rec.billing_profile_id,
146: l_oks_batch_rules_v_rec.retain_contract_number_flag,
139: l_oks_batch_rules_v_rec.batch_id,
140: l_oks_batch_rules_v_rec.batch_type,
141: l_oks_batch_rules_v_rec.batch_source,
142: l_oks_batch_rules_v_rec.transaction_date,
143: l_oks_batch_rules_v_rec.credit_option,
144: l_oks_batch_rules_v_rec.termination_reason_code,
145: l_oks_batch_rules_v_rec.billing_profile_id,
146: l_oks_batch_rules_v_rec.retain_contract_number_flag,
147: l_oks_batch_rules_v_rec.contract_modifier,
140: l_oks_batch_rules_v_rec.batch_type,
141: l_oks_batch_rules_v_rec.batch_source,
142: l_oks_batch_rules_v_rec.transaction_date,
143: l_oks_batch_rules_v_rec.credit_option,
144: l_oks_batch_rules_v_rec.termination_reason_code,
145: l_oks_batch_rules_v_rec.billing_profile_id,
146: l_oks_batch_rules_v_rec.retain_contract_number_flag,
147: l_oks_batch_rules_v_rec.contract_modifier,
148: l_oks_batch_rules_v_rec.contract_status,
141: l_oks_batch_rules_v_rec.batch_source,
142: l_oks_batch_rules_v_rec.transaction_date,
143: l_oks_batch_rules_v_rec.credit_option,
144: l_oks_batch_rules_v_rec.termination_reason_code,
145: l_oks_batch_rules_v_rec.billing_profile_id,
146: l_oks_batch_rules_v_rec.retain_contract_number_flag,
147: l_oks_batch_rules_v_rec.contract_modifier,
148: l_oks_batch_rules_v_rec.contract_status,
149: l_oks_batch_rules_v_rec.transfer_notes_flag,
142: l_oks_batch_rules_v_rec.transaction_date,
143: l_oks_batch_rules_v_rec.credit_option,
144: l_oks_batch_rules_v_rec.termination_reason_code,
145: l_oks_batch_rules_v_rec.billing_profile_id,
146: l_oks_batch_rules_v_rec.retain_contract_number_flag,
147: l_oks_batch_rules_v_rec.contract_modifier,
148: l_oks_batch_rules_v_rec.contract_status,
149: l_oks_batch_rules_v_rec.transfer_notes_flag,
150: l_oks_batch_rules_v_rec.transfer_attachments_flag,
143: l_oks_batch_rules_v_rec.credit_option,
144: l_oks_batch_rules_v_rec.termination_reason_code,
145: l_oks_batch_rules_v_rec.billing_profile_id,
146: l_oks_batch_rules_v_rec.retain_contract_number_flag,
147: l_oks_batch_rules_v_rec.contract_modifier,
148: l_oks_batch_rules_v_rec.contract_status,
149: l_oks_batch_rules_v_rec.transfer_notes_flag,
150: l_oks_batch_rules_v_rec.transfer_attachments_flag,
151: l_oks_batch_rules_v_rec.bill_lines_flag,
144: l_oks_batch_rules_v_rec.termination_reason_code,
145: l_oks_batch_rules_v_rec.billing_profile_id,
146: l_oks_batch_rules_v_rec.retain_contract_number_flag,
147: l_oks_batch_rules_v_rec.contract_modifier,
148: l_oks_batch_rules_v_rec.contract_status,
149: l_oks_batch_rules_v_rec.transfer_notes_flag,
150: l_oks_batch_rules_v_rec.transfer_attachments_flag,
151: l_oks_batch_rules_v_rec.bill_lines_flag,
152: l_oks_batch_rules_v_rec.transfer_option_code,
145: l_oks_batch_rules_v_rec.billing_profile_id,
146: l_oks_batch_rules_v_rec.retain_contract_number_flag,
147: l_oks_batch_rules_v_rec.contract_modifier,
148: l_oks_batch_rules_v_rec.contract_status,
149: l_oks_batch_rules_v_rec.transfer_notes_flag,
150: l_oks_batch_rules_v_rec.transfer_attachments_flag,
151: l_oks_batch_rules_v_rec.bill_lines_flag,
152: l_oks_batch_rules_v_rec.transfer_option_code,
153: l_oks_batch_rules_v_rec.bill_account_id,
146: l_oks_batch_rules_v_rec.retain_contract_number_flag,
147: l_oks_batch_rules_v_rec.contract_modifier,
148: l_oks_batch_rules_v_rec.contract_status,
149: l_oks_batch_rules_v_rec.transfer_notes_flag,
150: l_oks_batch_rules_v_rec.transfer_attachments_flag,
151: l_oks_batch_rules_v_rec.bill_lines_flag,
152: l_oks_batch_rules_v_rec.transfer_option_code,
153: l_oks_batch_rules_v_rec.bill_account_id,
154: l_oks_batch_rules_v_rec.ship_account_id,
147: l_oks_batch_rules_v_rec.contract_modifier,
148: l_oks_batch_rules_v_rec.contract_status,
149: l_oks_batch_rules_v_rec.transfer_notes_flag,
150: l_oks_batch_rules_v_rec.transfer_attachments_flag,
151: l_oks_batch_rules_v_rec.bill_lines_flag,
152: l_oks_batch_rules_v_rec.transfer_option_code,
153: l_oks_batch_rules_v_rec.bill_account_id,
154: l_oks_batch_rules_v_rec.ship_account_id,
155: l_oks_batch_rules_v_rec.bill_address_id,
148: l_oks_batch_rules_v_rec.contract_status,
149: l_oks_batch_rules_v_rec.transfer_notes_flag,
150: l_oks_batch_rules_v_rec.transfer_attachments_flag,
151: l_oks_batch_rules_v_rec.bill_lines_flag,
152: l_oks_batch_rules_v_rec.transfer_option_code,
153: l_oks_batch_rules_v_rec.bill_account_id,
154: l_oks_batch_rules_v_rec.ship_account_id,
155: l_oks_batch_rules_v_rec.bill_address_id,
156: l_oks_batch_rules_v_rec.ship_address_id,
149: l_oks_batch_rules_v_rec.transfer_notes_flag,
150: l_oks_batch_rules_v_rec.transfer_attachments_flag,
151: l_oks_batch_rules_v_rec.bill_lines_flag,
152: l_oks_batch_rules_v_rec.transfer_option_code,
153: l_oks_batch_rules_v_rec.bill_account_id,
154: l_oks_batch_rules_v_rec.ship_account_id,
155: l_oks_batch_rules_v_rec.bill_address_id,
156: l_oks_batch_rules_v_rec.ship_address_id,
157: l_oks_batch_rules_v_rec.bill_contact_id,
150: l_oks_batch_rules_v_rec.transfer_attachments_flag,
151: l_oks_batch_rules_v_rec.bill_lines_flag,
152: l_oks_batch_rules_v_rec.transfer_option_code,
153: l_oks_batch_rules_v_rec.bill_account_id,
154: l_oks_batch_rules_v_rec.ship_account_id,
155: l_oks_batch_rules_v_rec.bill_address_id,
156: l_oks_batch_rules_v_rec.ship_address_id,
157: l_oks_batch_rules_v_rec.bill_contact_id,
158: l_oks_batch_rules_v_rec.created_by,
151: l_oks_batch_rules_v_rec.bill_lines_flag,
152: l_oks_batch_rules_v_rec.transfer_option_code,
153: l_oks_batch_rules_v_rec.bill_account_id,
154: l_oks_batch_rules_v_rec.ship_account_id,
155: l_oks_batch_rules_v_rec.bill_address_id,
156: l_oks_batch_rules_v_rec.ship_address_id,
157: l_oks_batch_rules_v_rec.bill_contact_id,
158: l_oks_batch_rules_v_rec.created_by,
159: l_oks_batch_rules_v_rec.creation_date,
152: l_oks_batch_rules_v_rec.transfer_option_code,
153: l_oks_batch_rules_v_rec.bill_account_id,
154: l_oks_batch_rules_v_rec.ship_account_id,
155: l_oks_batch_rules_v_rec.bill_address_id,
156: l_oks_batch_rules_v_rec.ship_address_id,
157: l_oks_batch_rules_v_rec.bill_contact_id,
158: l_oks_batch_rules_v_rec.created_by,
159: l_oks_batch_rules_v_rec.creation_date,
160: l_oks_batch_rules_v_rec.last_updated_by,
153: l_oks_batch_rules_v_rec.bill_account_id,
154: l_oks_batch_rules_v_rec.ship_account_id,
155: l_oks_batch_rules_v_rec.bill_address_id,
156: l_oks_batch_rules_v_rec.ship_address_id,
157: l_oks_batch_rules_v_rec.bill_contact_id,
158: l_oks_batch_rules_v_rec.created_by,
159: l_oks_batch_rules_v_rec.creation_date,
160: l_oks_batch_rules_v_rec.last_updated_by,
161: l_oks_batch_rules_v_rec.last_update_date,
154: l_oks_batch_rules_v_rec.ship_account_id,
155: l_oks_batch_rules_v_rec.bill_address_id,
156: l_oks_batch_rules_v_rec.ship_address_id,
157: l_oks_batch_rules_v_rec.bill_contact_id,
158: l_oks_batch_rules_v_rec.created_by,
159: l_oks_batch_rules_v_rec.creation_date,
160: l_oks_batch_rules_v_rec.last_updated_by,
161: l_oks_batch_rules_v_rec.last_update_date,
162: l_oks_batch_rules_v_rec.last_update_login,
155: l_oks_batch_rules_v_rec.bill_address_id,
156: l_oks_batch_rules_v_rec.ship_address_id,
157: l_oks_batch_rules_v_rec.bill_contact_id,
158: l_oks_batch_rules_v_rec.created_by,
159: l_oks_batch_rules_v_rec.creation_date,
160: l_oks_batch_rules_v_rec.last_updated_by,
161: l_oks_batch_rules_v_rec.last_update_date,
162: l_oks_batch_rules_v_rec.last_update_login,
163: l_oks_batch_rules_v_rec.security_group_id,
156: l_oks_batch_rules_v_rec.ship_address_id,
157: l_oks_batch_rules_v_rec.bill_contact_id,
158: l_oks_batch_rules_v_rec.created_by,
159: l_oks_batch_rules_v_rec.creation_date,
160: l_oks_batch_rules_v_rec.last_updated_by,
161: l_oks_batch_rules_v_rec.last_update_date,
162: l_oks_batch_rules_v_rec.last_update_login,
163: l_oks_batch_rules_v_rec.security_group_id,
164: l_oks_batch_rules_v_rec.object_version_number,
157: l_oks_batch_rules_v_rec.bill_contact_id,
158: l_oks_batch_rules_v_rec.created_by,
159: l_oks_batch_rules_v_rec.creation_date,
160: l_oks_batch_rules_v_rec.last_updated_by,
161: l_oks_batch_rules_v_rec.last_update_date,
162: l_oks_batch_rules_v_rec.last_update_login,
163: l_oks_batch_rules_v_rec.security_group_id,
164: l_oks_batch_rules_v_rec.object_version_number,
165: l_oks_batch_rules_v_rec.request_id;
158: l_oks_batch_rules_v_rec.created_by,
159: l_oks_batch_rules_v_rec.creation_date,
160: l_oks_batch_rules_v_rec.last_updated_by,
161: l_oks_batch_rules_v_rec.last_update_date,
162: l_oks_batch_rules_v_rec.last_update_login,
163: l_oks_batch_rules_v_rec.security_group_id,
164: l_oks_batch_rules_v_rec.object_version_number,
165: l_oks_batch_rules_v_rec.request_id;
166: x_no_data_found := oks_brlv_pk_csr%NOTFOUND;
159: l_oks_batch_rules_v_rec.creation_date,
160: l_oks_batch_rules_v_rec.last_updated_by,
161: l_oks_batch_rules_v_rec.last_update_date,
162: l_oks_batch_rules_v_rec.last_update_login,
163: l_oks_batch_rules_v_rec.security_group_id,
164: l_oks_batch_rules_v_rec.object_version_number,
165: l_oks_batch_rules_v_rec.request_id;
166: x_no_data_found := oks_brlv_pk_csr%NOTFOUND;
167: CLOSE oks_brlv_pk_csr;
160: l_oks_batch_rules_v_rec.last_updated_by,
161: l_oks_batch_rules_v_rec.last_update_date,
162: l_oks_batch_rules_v_rec.last_update_login,
163: l_oks_batch_rules_v_rec.security_group_id,
164: l_oks_batch_rules_v_rec.object_version_number,
165: l_oks_batch_rules_v_rec.request_id;
166: x_no_data_found := oks_brlv_pk_csr%NOTFOUND;
167: CLOSE oks_brlv_pk_csr;
168: RETURN(l_oks_batch_rules_v_rec);
161: l_oks_batch_rules_v_rec.last_update_date,
162: l_oks_batch_rules_v_rec.last_update_login,
163: l_oks_batch_rules_v_rec.security_group_id,
164: l_oks_batch_rules_v_rec.object_version_number,
165: l_oks_batch_rules_v_rec.request_id;
166: x_no_data_found := oks_brlv_pk_csr%NOTFOUND;
167: CLOSE oks_brlv_pk_csr;
168: RETURN(l_oks_batch_rules_v_rec);
169: END get_rec;
164: l_oks_batch_rules_v_rec.object_version_number,
165: l_oks_batch_rules_v_rec.request_id;
166: x_no_data_found := oks_brlv_pk_csr%NOTFOUND;
167: CLOSE oks_brlv_pk_csr;
168: RETURN(l_oks_batch_rules_v_rec);
169: END get_rec;
170:
171: ------------------------------------------------------------------
172: -- This version of get_rec sets error messages if no data found --
171: ------------------------------------------------------------------
172: -- This version of get_rec sets error messages if no data found --
173: ------------------------------------------------------------------
174: FUNCTION get_rec (
175: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
176: x_return_status OUT NOCOPY VARCHAR2
177: ) RETURN oks_batch_rules_v_rec_type IS
178: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type;
179: l_row_notfound BOOLEAN := TRUE;
173: ------------------------------------------------------------------
174: FUNCTION get_rec (
175: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
176: x_return_status OUT NOCOPY VARCHAR2
177: ) RETURN oks_batch_rules_v_rec_type IS
178: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type;
179: l_row_notfound BOOLEAN := TRUE;
180: BEGIN
181: x_return_status := OKC_API.G_RET_STS_SUCCESS;
174: FUNCTION get_rec (
175: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
176: x_return_status OUT NOCOPY VARCHAR2
177: ) RETURN oks_batch_rules_v_rec_type IS
178: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type;
179: l_row_notfound BOOLEAN := TRUE;
180: BEGIN
181: x_return_status := OKC_API.G_RET_STS_SUCCESS;
182: l_oks_batch_rules_v_rec := get_rec(p_oks_batch_rules_v_rec, l_row_notfound);
178: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type;
179: l_row_notfound BOOLEAN := TRUE;
180: BEGIN
181: x_return_status := OKC_API.G_RET_STS_SUCCESS;
182: l_oks_batch_rules_v_rec := get_rec(p_oks_batch_rules_v_rec, l_row_notfound);
183: IF (l_row_notfound) THEN
184: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'BATCH_ID');
185: x_return_status := OKC_API.G_RET_STS_ERROR;
186: END IF;
183: IF (l_row_notfound) THEN
184: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'BATCH_ID');
185: x_return_status := OKC_API.G_RET_STS_ERROR;
186: END IF;
187: RETURN(l_oks_batch_rules_v_rec);
188: END get_rec;
189: -----------------------------------------------------------
190: -- So we don't have to pass an "l_row_notfound" variable --
191: -----------------------------------------------------------
189: -----------------------------------------------------------
190: -- So we don't have to pass an "l_row_notfound" variable --
191: -----------------------------------------------------------
192: FUNCTION get_rec (
193: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
194: ) RETURN oks_batch_rules_v_rec_type IS
195: l_row_not_found BOOLEAN := TRUE;
196: BEGIN
197: RETURN(get_rec(p_oks_batch_rules_v_rec, l_row_not_found));
190: -- So we don't have to pass an "l_row_notfound" variable --
191: -----------------------------------------------------------
192: FUNCTION get_rec (
193: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
194: ) RETURN oks_batch_rules_v_rec_type IS
195: l_row_not_found BOOLEAN := TRUE;
196: BEGIN
197: RETURN(get_rec(p_oks_batch_rules_v_rec, l_row_not_found));
198: END get_rec;
193: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
194: ) RETURN oks_batch_rules_v_rec_type IS
195: l_row_not_found BOOLEAN := TRUE;
196: BEGIN
197: RETURN(get_rec(p_oks_batch_rules_v_rec, l_row_not_found));
198: END get_rec;
199: ---------------------------------------------------------------------------
200: -- FUNCTION get_rec for: OKS_BATCH_RULES
201: ---------------------------------------------------------------------------
196: BEGIN
197: RETURN(get_rec(p_oks_batch_rules_v_rec, l_row_not_found));
198: END get_rec;
199: ---------------------------------------------------------------------------
200: -- FUNCTION get_rec for: OKS_BATCH_RULES
201: ---------------------------------------------------------------------------
202: FUNCTION get_rec (
203: p_obtr_rec IN obtr_rec_type,
204: x_no_data_found OUT NOCOPY BOOLEAN
230: LAST_UPDATE_DATE,
231: LAST_UPDATE_LOGIN,
232: OBJECT_VERSION_NUMBER,
233: REQUEST_ID
234: FROM Oks_Batch_Rules
235: WHERE oks_batch_rules.batch_id = p_batch_id;
236: l_oks_batch_pk oks_batch_pk_csr%ROWTYPE;
237: l_obtr_rec obtr_rec_type;
238: BEGIN
231: LAST_UPDATE_LOGIN,
232: OBJECT_VERSION_NUMBER,
233: REQUEST_ID
234: FROM Oks_Batch_Rules
235: WHERE oks_batch_rules.batch_id = p_batch_id;
236: l_oks_batch_pk oks_batch_pk_csr%ROWTYPE;
237: l_obtr_rec obtr_rec_type;
238: BEGIN
239: x_no_data_found := TRUE;
299: BEGIN
300: RETURN(get_rec(p_obtr_rec, l_row_not_found));
301: END get_rec;
302: ---------------------------------------------------------------------------
303: -- FUNCTION null_out_defaults for: OKS_BATCH_RULES_V
304: ---------------------------------------------------------------------------
305: FUNCTION null_out_defaults (
306: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
307: ) RETURN oks_batch_rules_v_rec_type IS
302: ---------------------------------------------------------------------------
303: -- FUNCTION null_out_defaults for: OKS_BATCH_RULES_V
304: ---------------------------------------------------------------------------
305: FUNCTION null_out_defaults (
306: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
307: ) RETURN oks_batch_rules_v_rec_type IS
308: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
309: BEGIN
310: IF (l_oks_batch_rules_v_rec.batch_id = OKC_API.G_MISS_NUM ) THEN
303: -- FUNCTION null_out_defaults for: OKS_BATCH_RULES_V
304: ---------------------------------------------------------------------------
305: FUNCTION null_out_defaults (
306: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
307: ) RETURN oks_batch_rules_v_rec_type IS
308: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
309: BEGIN
310: IF (l_oks_batch_rules_v_rec.batch_id = OKC_API.G_MISS_NUM ) THEN
311: l_oks_batch_rules_v_rec.batch_id := NULL;
304: ---------------------------------------------------------------------------
305: FUNCTION null_out_defaults (
306: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
307: ) RETURN oks_batch_rules_v_rec_type IS
308: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
309: BEGIN
310: IF (l_oks_batch_rules_v_rec.batch_id = OKC_API.G_MISS_NUM ) THEN
311: l_oks_batch_rules_v_rec.batch_id := NULL;
312: END IF;
306: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
307: ) RETURN oks_batch_rules_v_rec_type IS
308: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
309: BEGIN
310: IF (l_oks_batch_rules_v_rec.batch_id = OKC_API.G_MISS_NUM ) THEN
311: l_oks_batch_rules_v_rec.batch_id := NULL;
312: END IF;
313: IF (l_oks_batch_rules_v_rec.batch_type = OKC_API.G_MISS_CHAR ) THEN
314: l_oks_batch_rules_v_rec.batch_type := NULL;
307: ) RETURN oks_batch_rules_v_rec_type IS
308: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
309: BEGIN
310: IF (l_oks_batch_rules_v_rec.batch_id = OKC_API.G_MISS_NUM ) THEN
311: l_oks_batch_rules_v_rec.batch_id := NULL;
312: END IF;
313: IF (l_oks_batch_rules_v_rec.batch_type = OKC_API.G_MISS_CHAR ) THEN
314: l_oks_batch_rules_v_rec.batch_type := NULL;
315: END IF;
309: BEGIN
310: IF (l_oks_batch_rules_v_rec.batch_id = OKC_API.G_MISS_NUM ) THEN
311: l_oks_batch_rules_v_rec.batch_id := NULL;
312: END IF;
313: IF (l_oks_batch_rules_v_rec.batch_type = OKC_API.G_MISS_CHAR ) THEN
314: l_oks_batch_rules_v_rec.batch_type := NULL;
315: END IF;
316: IF (l_oks_batch_rules_v_rec.batch_source = OKC_API.G_MISS_CHAR ) THEN
317: l_oks_batch_rules_v_rec.batch_source := NULL;
310: IF (l_oks_batch_rules_v_rec.batch_id = OKC_API.G_MISS_NUM ) THEN
311: l_oks_batch_rules_v_rec.batch_id := NULL;
312: END IF;
313: IF (l_oks_batch_rules_v_rec.batch_type = OKC_API.G_MISS_CHAR ) THEN
314: l_oks_batch_rules_v_rec.batch_type := NULL;
315: END IF;
316: IF (l_oks_batch_rules_v_rec.batch_source = OKC_API.G_MISS_CHAR ) THEN
317: l_oks_batch_rules_v_rec.batch_source := NULL;
318: END IF;
312: END IF;
313: IF (l_oks_batch_rules_v_rec.batch_type = OKC_API.G_MISS_CHAR ) THEN
314: l_oks_batch_rules_v_rec.batch_type := NULL;
315: END IF;
316: IF (l_oks_batch_rules_v_rec.batch_source = OKC_API.G_MISS_CHAR ) THEN
317: l_oks_batch_rules_v_rec.batch_source := NULL;
318: END IF;
319: IF (l_oks_batch_rules_v_rec.transaction_date = OKC_API.G_MISS_DATE ) THEN
320: l_oks_batch_rules_v_rec.transaction_date := NULL;
313: IF (l_oks_batch_rules_v_rec.batch_type = OKC_API.G_MISS_CHAR ) THEN
314: l_oks_batch_rules_v_rec.batch_type := NULL;
315: END IF;
316: IF (l_oks_batch_rules_v_rec.batch_source = OKC_API.G_MISS_CHAR ) THEN
317: l_oks_batch_rules_v_rec.batch_source := NULL;
318: END IF;
319: IF (l_oks_batch_rules_v_rec.transaction_date = OKC_API.G_MISS_DATE ) THEN
320: l_oks_batch_rules_v_rec.transaction_date := NULL;
321: END IF;
315: END IF;
316: IF (l_oks_batch_rules_v_rec.batch_source = OKC_API.G_MISS_CHAR ) THEN
317: l_oks_batch_rules_v_rec.batch_source := NULL;
318: END IF;
319: IF (l_oks_batch_rules_v_rec.transaction_date = OKC_API.G_MISS_DATE ) THEN
320: l_oks_batch_rules_v_rec.transaction_date := NULL;
321: END IF;
322: IF (l_oks_batch_rules_v_rec.credit_option = OKC_API.G_MISS_CHAR ) THEN
323: l_oks_batch_rules_v_rec.credit_option := NULL;
316: IF (l_oks_batch_rules_v_rec.batch_source = OKC_API.G_MISS_CHAR ) THEN
317: l_oks_batch_rules_v_rec.batch_source := NULL;
318: END IF;
319: IF (l_oks_batch_rules_v_rec.transaction_date = OKC_API.G_MISS_DATE ) THEN
320: l_oks_batch_rules_v_rec.transaction_date := NULL;
321: END IF;
322: IF (l_oks_batch_rules_v_rec.credit_option = OKC_API.G_MISS_CHAR ) THEN
323: l_oks_batch_rules_v_rec.credit_option := NULL;
324: END IF;
318: END IF;
319: IF (l_oks_batch_rules_v_rec.transaction_date = OKC_API.G_MISS_DATE ) THEN
320: l_oks_batch_rules_v_rec.transaction_date := NULL;
321: END IF;
322: IF (l_oks_batch_rules_v_rec.credit_option = OKC_API.G_MISS_CHAR ) THEN
323: l_oks_batch_rules_v_rec.credit_option := NULL;
324: END IF;
325: IF (l_oks_batch_rules_v_rec.termination_reason_code = OKC_API.G_MISS_CHAR ) THEN
326: l_oks_batch_rules_v_rec.termination_reason_code := NULL;
319: IF (l_oks_batch_rules_v_rec.transaction_date = OKC_API.G_MISS_DATE ) THEN
320: l_oks_batch_rules_v_rec.transaction_date := NULL;
321: END IF;
322: IF (l_oks_batch_rules_v_rec.credit_option = OKC_API.G_MISS_CHAR ) THEN
323: l_oks_batch_rules_v_rec.credit_option := NULL;
324: END IF;
325: IF (l_oks_batch_rules_v_rec.termination_reason_code = OKC_API.G_MISS_CHAR ) THEN
326: l_oks_batch_rules_v_rec.termination_reason_code := NULL;
327: END IF;
321: END IF;
322: IF (l_oks_batch_rules_v_rec.credit_option = OKC_API.G_MISS_CHAR ) THEN
323: l_oks_batch_rules_v_rec.credit_option := NULL;
324: END IF;
325: IF (l_oks_batch_rules_v_rec.termination_reason_code = OKC_API.G_MISS_CHAR ) THEN
326: l_oks_batch_rules_v_rec.termination_reason_code := NULL;
327: END IF;
328: IF (l_oks_batch_rules_v_rec.billing_profile_id = OKC_API.G_MISS_NUM ) THEN
329: l_oks_batch_rules_v_rec.billing_profile_id := NULL;
322: IF (l_oks_batch_rules_v_rec.credit_option = OKC_API.G_MISS_CHAR ) THEN
323: l_oks_batch_rules_v_rec.credit_option := NULL;
324: END IF;
325: IF (l_oks_batch_rules_v_rec.termination_reason_code = OKC_API.G_MISS_CHAR ) THEN
326: l_oks_batch_rules_v_rec.termination_reason_code := NULL;
327: END IF;
328: IF (l_oks_batch_rules_v_rec.billing_profile_id = OKC_API.G_MISS_NUM ) THEN
329: l_oks_batch_rules_v_rec.billing_profile_id := NULL;
330: END IF;
324: END IF;
325: IF (l_oks_batch_rules_v_rec.termination_reason_code = OKC_API.G_MISS_CHAR ) THEN
326: l_oks_batch_rules_v_rec.termination_reason_code := NULL;
327: END IF;
328: IF (l_oks_batch_rules_v_rec.billing_profile_id = OKC_API.G_MISS_NUM ) THEN
329: l_oks_batch_rules_v_rec.billing_profile_id := NULL;
330: END IF;
331: IF (l_oks_batch_rules_v_rec.retain_contract_number_flag = OKC_API.G_MISS_CHAR ) THEN
332: l_oks_batch_rules_v_rec.retain_contract_number_flag := NULL;
325: IF (l_oks_batch_rules_v_rec.termination_reason_code = OKC_API.G_MISS_CHAR ) THEN
326: l_oks_batch_rules_v_rec.termination_reason_code := NULL;
327: END IF;
328: IF (l_oks_batch_rules_v_rec.billing_profile_id = OKC_API.G_MISS_NUM ) THEN
329: l_oks_batch_rules_v_rec.billing_profile_id := NULL;
330: END IF;
331: IF (l_oks_batch_rules_v_rec.retain_contract_number_flag = OKC_API.G_MISS_CHAR ) THEN
332: l_oks_batch_rules_v_rec.retain_contract_number_flag := NULL;
333: END IF;
327: END IF;
328: IF (l_oks_batch_rules_v_rec.billing_profile_id = OKC_API.G_MISS_NUM ) THEN
329: l_oks_batch_rules_v_rec.billing_profile_id := NULL;
330: END IF;
331: IF (l_oks_batch_rules_v_rec.retain_contract_number_flag = OKC_API.G_MISS_CHAR ) THEN
332: l_oks_batch_rules_v_rec.retain_contract_number_flag := NULL;
333: END IF;
334: IF (l_oks_batch_rules_v_rec.contract_modifier = OKC_API.G_MISS_CHAR ) THEN
335: l_oks_batch_rules_v_rec.contract_modifier := NULL;
328: IF (l_oks_batch_rules_v_rec.billing_profile_id = OKC_API.G_MISS_NUM ) THEN
329: l_oks_batch_rules_v_rec.billing_profile_id := NULL;
330: END IF;
331: IF (l_oks_batch_rules_v_rec.retain_contract_number_flag = OKC_API.G_MISS_CHAR ) THEN
332: l_oks_batch_rules_v_rec.retain_contract_number_flag := NULL;
333: END IF;
334: IF (l_oks_batch_rules_v_rec.contract_modifier = OKC_API.G_MISS_CHAR ) THEN
335: l_oks_batch_rules_v_rec.contract_modifier := NULL;
336: END IF;
330: END IF;
331: IF (l_oks_batch_rules_v_rec.retain_contract_number_flag = OKC_API.G_MISS_CHAR ) THEN
332: l_oks_batch_rules_v_rec.retain_contract_number_flag := NULL;
333: END IF;
334: IF (l_oks_batch_rules_v_rec.contract_modifier = OKC_API.G_MISS_CHAR ) THEN
335: l_oks_batch_rules_v_rec.contract_modifier := NULL;
336: END IF;
337: IF (l_oks_batch_rules_v_rec.contract_status = OKC_API.G_MISS_CHAR ) THEN
338: l_oks_batch_rules_v_rec.contract_status := NULL;
331: IF (l_oks_batch_rules_v_rec.retain_contract_number_flag = OKC_API.G_MISS_CHAR ) THEN
332: l_oks_batch_rules_v_rec.retain_contract_number_flag := NULL;
333: END IF;
334: IF (l_oks_batch_rules_v_rec.contract_modifier = OKC_API.G_MISS_CHAR ) THEN
335: l_oks_batch_rules_v_rec.contract_modifier := NULL;
336: END IF;
337: IF (l_oks_batch_rules_v_rec.contract_status = OKC_API.G_MISS_CHAR ) THEN
338: l_oks_batch_rules_v_rec.contract_status := NULL;
339: END IF;
333: END IF;
334: IF (l_oks_batch_rules_v_rec.contract_modifier = OKC_API.G_MISS_CHAR ) THEN
335: l_oks_batch_rules_v_rec.contract_modifier := NULL;
336: END IF;
337: IF (l_oks_batch_rules_v_rec.contract_status = OKC_API.G_MISS_CHAR ) THEN
338: l_oks_batch_rules_v_rec.contract_status := NULL;
339: END IF;
340: IF (l_oks_batch_rules_v_rec.transfer_notes_flag = OKC_API.G_MISS_CHAR ) THEN
341: l_oks_batch_rules_v_rec.transfer_notes_flag := NULL;
334: IF (l_oks_batch_rules_v_rec.contract_modifier = OKC_API.G_MISS_CHAR ) THEN
335: l_oks_batch_rules_v_rec.contract_modifier := NULL;
336: END IF;
337: IF (l_oks_batch_rules_v_rec.contract_status = OKC_API.G_MISS_CHAR ) THEN
338: l_oks_batch_rules_v_rec.contract_status := NULL;
339: END IF;
340: IF (l_oks_batch_rules_v_rec.transfer_notes_flag = OKC_API.G_MISS_CHAR ) THEN
341: l_oks_batch_rules_v_rec.transfer_notes_flag := NULL;
342: END IF;
336: END IF;
337: IF (l_oks_batch_rules_v_rec.contract_status = OKC_API.G_MISS_CHAR ) THEN
338: l_oks_batch_rules_v_rec.contract_status := NULL;
339: END IF;
340: IF (l_oks_batch_rules_v_rec.transfer_notes_flag = OKC_API.G_MISS_CHAR ) THEN
341: l_oks_batch_rules_v_rec.transfer_notes_flag := NULL;
342: END IF;
343: IF (l_oks_batch_rules_v_rec.transfer_attachments_flag = OKC_API.G_MISS_CHAR ) THEN
344: l_oks_batch_rules_v_rec.transfer_attachments_flag := NULL;
337: IF (l_oks_batch_rules_v_rec.contract_status = OKC_API.G_MISS_CHAR ) THEN
338: l_oks_batch_rules_v_rec.contract_status := NULL;
339: END IF;
340: IF (l_oks_batch_rules_v_rec.transfer_notes_flag = OKC_API.G_MISS_CHAR ) THEN
341: l_oks_batch_rules_v_rec.transfer_notes_flag := NULL;
342: END IF;
343: IF (l_oks_batch_rules_v_rec.transfer_attachments_flag = OKC_API.G_MISS_CHAR ) THEN
344: l_oks_batch_rules_v_rec.transfer_attachments_flag := NULL;
345: END IF;
339: END IF;
340: IF (l_oks_batch_rules_v_rec.transfer_notes_flag = OKC_API.G_MISS_CHAR ) THEN
341: l_oks_batch_rules_v_rec.transfer_notes_flag := NULL;
342: END IF;
343: IF (l_oks_batch_rules_v_rec.transfer_attachments_flag = OKC_API.G_MISS_CHAR ) THEN
344: l_oks_batch_rules_v_rec.transfer_attachments_flag := NULL;
345: END IF;
346: IF (l_oks_batch_rules_v_rec.bill_lines_flag = OKC_API.G_MISS_CHAR ) THEN
347: l_oks_batch_rules_v_rec.bill_lines_flag := NULL;
340: IF (l_oks_batch_rules_v_rec.transfer_notes_flag = OKC_API.G_MISS_CHAR ) THEN
341: l_oks_batch_rules_v_rec.transfer_notes_flag := NULL;
342: END IF;
343: IF (l_oks_batch_rules_v_rec.transfer_attachments_flag = OKC_API.G_MISS_CHAR ) THEN
344: l_oks_batch_rules_v_rec.transfer_attachments_flag := NULL;
345: END IF;
346: IF (l_oks_batch_rules_v_rec.bill_lines_flag = OKC_API.G_MISS_CHAR ) THEN
347: l_oks_batch_rules_v_rec.bill_lines_flag := NULL;
348: END IF;
342: END IF;
343: IF (l_oks_batch_rules_v_rec.transfer_attachments_flag = OKC_API.G_MISS_CHAR ) THEN
344: l_oks_batch_rules_v_rec.transfer_attachments_flag := NULL;
345: END IF;
346: IF (l_oks_batch_rules_v_rec.bill_lines_flag = OKC_API.G_MISS_CHAR ) THEN
347: l_oks_batch_rules_v_rec.bill_lines_flag := NULL;
348: END IF;
349: IF (l_oks_batch_rules_v_rec.transfer_option_code = OKC_API.G_MISS_CHAR ) THEN
350: l_oks_batch_rules_v_rec.transfer_option_code := NULL;
343: IF (l_oks_batch_rules_v_rec.transfer_attachments_flag = OKC_API.G_MISS_CHAR ) THEN
344: l_oks_batch_rules_v_rec.transfer_attachments_flag := NULL;
345: END IF;
346: IF (l_oks_batch_rules_v_rec.bill_lines_flag = OKC_API.G_MISS_CHAR ) THEN
347: l_oks_batch_rules_v_rec.bill_lines_flag := NULL;
348: END IF;
349: IF (l_oks_batch_rules_v_rec.transfer_option_code = OKC_API.G_MISS_CHAR ) THEN
350: l_oks_batch_rules_v_rec.transfer_option_code := NULL;
351: END IF;
345: END IF;
346: IF (l_oks_batch_rules_v_rec.bill_lines_flag = OKC_API.G_MISS_CHAR ) THEN
347: l_oks_batch_rules_v_rec.bill_lines_flag := NULL;
348: END IF;
349: IF (l_oks_batch_rules_v_rec.transfer_option_code = OKC_API.G_MISS_CHAR ) THEN
350: l_oks_batch_rules_v_rec.transfer_option_code := NULL;
351: END IF;
352: IF (l_oks_batch_rules_v_rec.bill_account_id = OKC_API.G_MISS_NUM ) THEN
353: l_oks_batch_rules_v_rec.bill_account_id := NULL;
346: IF (l_oks_batch_rules_v_rec.bill_lines_flag = OKC_API.G_MISS_CHAR ) THEN
347: l_oks_batch_rules_v_rec.bill_lines_flag := NULL;
348: END IF;
349: IF (l_oks_batch_rules_v_rec.transfer_option_code = OKC_API.G_MISS_CHAR ) THEN
350: l_oks_batch_rules_v_rec.transfer_option_code := NULL;
351: END IF;
352: IF (l_oks_batch_rules_v_rec.bill_account_id = OKC_API.G_MISS_NUM ) THEN
353: l_oks_batch_rules_v_rec.bill_account_id := NULL;
354: END IF;
348: END IF;
349: IF (l_oks_batch_rules_v_rec.transfer_option_code = OKC_API.G_MISS_CHAR ) THEN
350: l_oks_batch_rules_v_rec.transfer_option_code := NULL;
351: END IF;
352: IF (l_oks_batch_rules_v_rec.bill_account_id = OKC_API.G_MISS_NUM ) THEN
353: l_oks_batch_rules_v_rec.bill_account_id := NULL;
354: END IF;
355: IF (l_oks_batch_rules_v_rec.ship_account_id = OKC_API.G_MISS_NUM ) THEN
356: l_oks_batch_rules_v_rec.ship_account_id := NULL;
349: IF (l_oks_batch_rules_v_rec.transfer_option_code = OKC_API.G_MISS_CHAR ) THEN
350: l_oks_batch_rules_v_rec.transfer_option_code := NULL;
351: END IF;
352: IF (l_oks_batch_rules_v_rec.bill_account_id = OKC_API.G_MISS_NUM ) THEN
353: l_oks_batch_rules_v_rec.bill_account_id := NULL;
354: END IF;
355: IF (l_oks_batch_rules_v_rec.ship_account_id = OKC_API.G_MISS_NUM ) THEN
356: l_oks_batch_rules_v_rec.ship_account_id := NULL;
357: END IF;
351: END IF;
352: IF (l_oks_batch_rules_v_rec.bill_account_id = OKC_API.G_MISS_NUM ) THEN
353: l_oks_batch_rules_v_rec.bill_account_id := NULL;
354: END IF;
355: IF (l_oks_batch_rules_v_rec.ship_account_id = OKC_API.G_MISS_NUM ) THEN
356: l_oks_batch_rules_v_rec.ship_account_id := NULL;
357: END IF;
358: IF (l_oks_batch_rules_v_rec.bill_address_id = OKC_API.G_MISS_NUM ) THEN
359: l_oks_batch_rules_v_rec.bill_address_id := NULL;
352: IF (l_oks_batch_rules_v_rec.bill_account_id = OKC_API.G_MISS_NUM ) THEN
353: l_oks_batch_rules_v_rec.bill_account_id := NULL;
354: END IF;
355: IF (l_oks_batch_rules_v_rec.ship_account_id = OKC_API.G_MISS_NUM ) THEN
356: l_oks_batch_rules_v_rec.ship_account_id := NULL;
357: END IF;
358: IF (l_oks_batch_rules_v_rec.bill_address_id = OKC_API.G_MISS_NUM ) THEN
359: l_oks_batch_rules_v_rec.bill_address_id := NULL;
360: END IF;
354: END IF;
355: IF (l_oks_batch_rules_v_rec.ship_account_id = OKC_API.G_MISS_NUM ) THEN
356: l_oks_batch_rules_v_rec.ship_account_id := NULL;
357: END IF;
358: IF (l_oks_batch_rules_v_rec.bill_address_id = OKC_API.G_MISS_NUM ) THEN
359: l_oks_batch_rules_v_rec.bill_address_id := NULL;
360: END IF;
361: IF (l_oks_batch_rules_v_rec.ship_address_id = OKC_API.G_MISS_NUM ) THEN
362: l_oks_batch_rules_v_rec.ship_address_id := NULL;
355: IF (l_oks_batch_rules_v_rec.ship_account_id = OKC_API.G_MISS_NUM ) THEN
356: l_oks_batch_rules_v_rec.ship_account_id := NULL;
357: END IF;
358: IF (l_oks_batch_rules_v_rec.bill_address_id = OKC_API.G_MISS_NUM ) THEN
359: l_oks_batch_rules_v_rec.bill_address_id := NULL;
360: END IF;
361: IF (l_oks_batch_rules_v_rec.ship_address_id = OKC_API.G_MISS_NUM ) THEN
362: l_oks_batch_rules_v_rec.ship_address_id := NULL;
363: END IF;
357: END IF;
358: IF (l_oks_batch_rules_v_rec.bill_address_id = OKC_API.G_MISS_NUM ) THEN
359: l_oks_batch_rules_v_rec.bill_address_id := NULL;
360: END IF;
361: IF (l_oks_batch_rules_v_rec.ship_address_id = OKC_API.G_MISS_NUM ) THEN
362: l_oks_batch_rules_v_rec.ship_address_id := NULL;
363: END IF;
364: IF (l_oks_batch_rules_v_rec.bill_contact_id = OKC_API.G_MISS_NUM ) THEN
365: l_oks_batch_rules_v_rec.bill_contact_id := NULL;
358: IF (l_oks_batch_rules_v_rec.bill_address_id = OKC_API.G_MISS_NUM ) THEN
359: l_oks_batch_rules_v_rec.bill_address_id := NULL;
360: END IF;
361: IF (l_oks_batch_rules_v_rec.ship_address_id = OKC_API.G_MISS_NUM ) THEN
362: l_oks_batch_rules_v_rec.ship_address_id := NULL;
363: END IF;
364: IF (l_oks_batch_rules_v_rec.bill_contact_id = OKC_API.G_MISS_NUM ) THEN
365: l_oks_batch_rules_v_rec.bill_contact_id := NULL;
366: END IF;
360: END IF;
361: IF (l_oks_batch_rules_v_rec.ship_address_id = OKC_API.G_MISS_NUM ) THEN
362: l_oks_batch_rules_v_rec.ship_address_id := NULL;
363: END IF;
364: IF (l_oks_batch_rules_v_rec.bill_contact_id = OKC_API.G_MISS_NUM ) THEN
365: l_oks_batch_rules_v_rec.bill_contact_id := NULL;
366: END IF;
367: IF (l_oks_batch_rules_v_rec.created_by = OKC_API.G_MISS_NUM ) THEN
368: l_oks_batch_rules_v_rec.created_by := NULL;
361: IF (l_oks_batch_rules_v_rec.ship_address_id = OKC_API.G_MISS_NUM ) THEN
362: l_oks_batch_rules_v_rec.ship_address_id := NULL;
363: END IF;
364: IF (l_oks_batch_rules_v_rec.bill_contact_id = OKC_API.G_MISS_NUM ) THEN
365: l_oks_batch_rules_v_rec.bill_contact_id := NULL;
366: END IF;
367: IF (l_oks_batch_rules_v_rec.created_by = OKC_API.G_MISS_NUM ) THEN
368: l_oks_batch_rules_v_rec.created_by := NULL;
369: END IF;
363: END IF;
364: IF (l_oks_batch_rules_v_rec.bill_contact_id = OKC_API.G_MISS_NUM ) THEN
365: l_oks_batch_rules_v_rec.bill_contact_id := NULL;
366: END IF;
367: IF (l_oks_batch_rules_v_rec.created_by = OKC_API.G_MISS_NUM ) THEN
368: l_oks_batch_rules_v_rec.created_by := NULL;
369: END IF;
370: IF (l_oks_batch_rules_v_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
371: l_oks_batch_rules_v_rec.creation_date := NULL;
364: IF (l_oks_batch_rules_v_rec.bill_contact_id = OKC_API.G_MISS_NUM ) THEN
365: l_oks_batch_rules_v_rec.bill_contact_id := NULL;
366: END IF;
367: IF (l_oks_batch_rules_v_rec.created_by = OKC_API.G_MISS_NUM ) THEN
368: l_oks_batch_rules_v_rec.created_by := NULL;
369: END IF;
370: IF (l_oks_batch_rules_v_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
371: l_oks_batch_rules_v_rec.creation_date := NULL;
372: END IF;
366: END IF;
367: IF (l_oks_batch_rules_v_rec.created_by = OKC_API.G_MISS_NUM ) THEN
368: l_oks_batch_rules_v_rec.created_by := NULL;
369: END IF;
370: IF (l_oks_batch_rules_v_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
371: l_oks_batch_rules_v_rec.creation_date := NULL;
372: END IF;
373: IF (l_oks_batch_rules_v_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
374: l_oks_batch_rules_v_rec.last_updated_by := NULL;
367: IF (l_oks_batch_rules_v_rec.created_by = OKC_API.G_MISS_NUM ) THEN
368: l_oks_batch_rules_v_rec.created_by := NULL;
369: END IF;
370: IF (l_oks_batch_rules_v_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
371: l_oks_batch_rules_v_rec.creation_date := NULL;
372: END IF;
373: IF (l_oks_batch_rules_v_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
374: l_oks_batch_rules_v_rec.last_updated_by := NULL;
375: END IF;
369: END IF;
370: IF (l_oks_batch_rules_v_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
371: l_oks_batch_rules_v_rec.creation_date := NULL;
372: END IF;
373: IF (l_oks_batch_rules_v_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
374: l_oks_batch_rules_v_rec.last_updated_by := NULL;
375: END IF;
376: IF (l_oks_batch_rules_v_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
377: l_oks_batch_rules_v_rec.last_update_date := NULL;
370: IF (l_oks_batch_rules_v_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
371: l_oks_batch_rules_v_rec.creation_date := NULL;
372: END IF;
373: IF (l_oks_batch_rules_v_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
374: l_oks_batch_rules_v_rec.last_updated_by := NULL;
375: END IF;
376: IF (l_oks_batch_rules_v_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
377: l_oks_batch_rules_v_rec.last_update_date := NULL;
378: END IF;
372: END IF;
373: IF (l_oks_batch_rules_v_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
374: l_oks_batch_rules_v_rec.last_updated_by := NULL;
375: END IF;
376: IF (l_oks_batch_rules_v_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
377: l_oks_batch_rules_v_rec.last_update_date := NULL;
378: END IF;
379: IF (l_oks_batch_rules_v_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
380: l_oks_batch_rules_v_rec.last_update_login := NULL;
373: IF (l_oks_batch_rules_v_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
374: l_oks_batch_rules_v_rec.last_updated_by := NULL;
375: END IF;
376: IF (l_oks_batch_rules_v_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
377: l_oks_batch_rules_v_rec.last_update_date := NULL;
378: END IF;
379: IF (l_oks_batch_rules_v_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
380: l_oks_batch_rules_v_rec.last_update_login := NULL;
381: END IF;
375: END IF;
376: IF (l_oks_batch_rules_v_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
377: l_oks_batch_rules_v_rec.last_update_date := NULL;
378: END IF;
379: IF (l_oks_batch_rules_v_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
380: l_oks_batch_rules_v_rec.last_update_login := NULL;
381: END IF;
382: IF (l_oks_batch_rules_v_rec.security_group_id = OKC_API.G_MISS_NUM ) THEN
383: l_oks_batch_rules_v_rec.security_group_id := NULL;
376: IF (l_oks_batch_rules_v_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
377: l_oks_batch_rules_v_rec.last_update_date := NULL;
378: END IF;
379: IF (l_oks_batch_rules_v_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
380: l_oks_batch_rules_v_rec.last_update_login := NULL;
381: END IF;
382: IF (l_oks_batch_rules_v_rec.security_group_id = OKC_API.G_MISS_NUM ) THEN
383: l_oks_batch_rules_v_rec.security_group_id := NULL;
384: END IF;
378: END IF;
379: IF (l_oks_batch_rules_v_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
380: l_oks_batch_rules_v_rec.last_update_login := NULL;
381: END IF;
382: IF (l_oks_batch_rules_v_rec.security_group_id = OKC_API.G_MISS_NUM ) THEN
383: l_oks_batch_rules_v_rec.security_group_id := NULL;
384: END IF;
385: IF (l_oks_batch_rules_v_rec.object_version_number = OKC_API.G_MISS_NUM ) THEN
386: l_oks_batch_rules_v_rec.object_version_number := NULL;
379: IF (l_oks_batch_rules_v_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
380: l_oks_batch_rules_v_rec.last_update_login := NULL;
381: END IF;
382: IF (l_oks_batch_rules_v_rec.security_group_id = OKC_API.G_MISS_NUM ) THEN
383: l_oks_batch_rules_v_rec.security_group_id := NULL;
384: END IF;
385: IF (l_oks_batch_rules_v_rec.object_version_number = OKC_API.G_MISS_NUM ) THEN
386: l_oks_batch_rules_v_rec.object_version_number := NULL;
387: END IF;
381: END IF;
382: IF (l_oks_batch_rules_v_rec.security_group_id = OKC_API.G_MISS_NUM ) THEN
383: l_oks_batch_rules_v_rec.security_group_id := NULL;
384: END IF;
385: IF (l_oks_batch_rules_v_rec.object_version_number = OKC_API.G_MISS_NUM ) THEN
386: l_oks_batch_rules_v_rec.object_version_number := NULL;
387: END IF;
388: IF (l_oks_batch_rules_v_rec.request_id = OKC_API.G_MISS_NUM ) THEN
389: l_oks_batch_rules_v_rec.request_id := NULL;
382: IF (l_oks_batch_rules_v_rec.security_group_id = OKC_API.G_MISS_NUM ) THEN
383: l_oks_batch_rules_v_rec.security_group_id := NULL;
384: END IF;
385: IF (l_oks_batch_rules_v_rec.object_version_number = OKC_API.G_MISS_NUM ) THEN
386: l_oks_batch_rules_v_rec.object_version_number := NULL;
387: END IF;
388: IF (l_oks_batch_rules_v_rec.request_id = OKC_API.G_MISS_NUM ) THEN
389: l_oks_batch_rules_v_rec.request_id := NULL;
390: END IF;
384: END IF;
385: IF (l_oks_batch_rules_v_rec.object_version_number = OKC_API.G_MISS_NUM ) THEN
386: l_oks_batch_rules_v_rec.object_version_number := NULL;
387: END IF;
388: IF (l_oks_batch_rules_v_rec.request_id = OKC_API.G_MISS_NUM ) THEN
389: l_oks_batch_rules_v_rec.request_id := NULL;
390: END IF;
391: RETURN(l_oks_batch_rules_v_rec);
392: END null_out_defaults;
385: IF (l_oks_batch_rules_v_rec.object_version_number = OKC_API.G_MISS_NUM ) THEN
386: l_oks_batch_rules_v_rec.object_version_number := NULL;
387: END IF;
388: IF (l_oks_batch_rules_v_rec.request_id = OKC_API.G_MISS_NUM ) THEN
389: l_oks_batch_rules_v_rec.request_id := NULL;
390: END IF;
391: RETURN(l_oks_batch_rules_v_rec);
392: END null_out_defaults;
393: ---------------------------------------
387: END IF;
388: IF (l_oks_batch_rules_v_rec.request_id = OKC_API.G_MISS_NUM ) THEN
389: l_oks_batch_rules_v_rec.request_id := NULL;
390: END IF;
391: RETURN(l_oks_batch_rules_v_rec);
392: END null_out_defaults;
393: ---------------------------------------
394: -- Validate_Attributes for: BATCH_ID --
395: ---------------------------------------
799: ---------------------------------------------------------------------------
800: -- FUNCTION Validate_Attributes
801: ---------------------------------------------------------------------------
802: -----------------------------------------------
803: -- Validate_Attributes for:OKS_BATCH_RULES_V --
804: -----------------------------------------------
805: FUNCTION Validate_Attributes (
806: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
807: ) RETURN VARCHAR2 IS
802: -----------------------------------------------
803: -- Validate_Attributes for:OKS_BATCH_RULES_V --
804: -----------------------------------------------
805: FUNCTION Validate_Attributes (
806: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
807: ) RETURN VARCHAR2 IS
808: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
809: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
810: BEGIN
813: -----------------------------
814: -- ***
815: -- batch_id
816: -- ***
817: validate_batch_id(x_return_status, p_oks_batch_rules_v_rec.batch_id);
818: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
819: l_return_status := x_return_status;
820: RAISE G_EXCEPTION_HALT_VALIDATION;
821: END IF;
822:
823: -- ***
824: -- object_version_number
825: -- ***
826: validate_object_version_number(x_return_status, p_oks_batch_rules_v_rec.object_version_number);
827: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
828: l_return_status := x_return_status;
829: RAISE G_EXCEPTION_HALT_VALIDATION;
830: END IF;
832: -- R12 Data Model Changes 4485150 Start
833: -- ***
834: -- credit_option
835: -- ***
836: validate_credit_option(x_return_status, p_oks_batch_rules_v_rec.credit_option);
837: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
838: l_return_status := x_return_status;
839: RAISE G_EXCEPTION_HALT_VALIDATION;
840: END IF;
841:
842: -- ***
843: -- termination_reason_code
844: -- ***
845: validate_trmntn_rsn_cd(x_return_status, p_oks_batch_rules_v_rec.termination_reason_code);
846: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
847: l_return_status := x_return_status;
848: RAISE G_EXCEPTION_HALT_VALIDATION;
849: END IF;
850:
851: -- ***
852: -- credit_option
853: -- ***
854: validate_transfer_option_code(x_return_status, p_oks_batch_rules_v_rec.transfer_option_code);
855: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
856: l_return_status := x_return_status;
857: RAISE G_EXCEPTION_HALT_VALIDATION;
858: END IF;
876: ---------------------------------------------------------------------------
877: -- PROCEDURE Validate_Record
878: ---------------------------------------------------------------------------
879: -------------------------------------------
880: -- Validate Record for:OKS_BATCH_RULES_V --
881: -------------------------------------------
882: FUNCTION Validate_Record (
883: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
884: p_db_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
879: -------------------------------------------
880: -- Validate Record for:OKS_BATCH_RULES_V --
881: -------------------------------------------
882: FUNCTION Validate_Record (
883: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
884: p_db_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
885: ) RETURN VARCHAR2 IS
886: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
887: BEGIN
880: -- Validate Record for:OKS_BATCH_RULES_V --
881: -------------------------------------------
882: FUNCTION Validate_Record (
883: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
884: p_db_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
885: ) RETURN VARCHAR2 IS
886: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
887: BEGIN
888: RETURN (l_return_status);
887: BEGIN
888: RETURN (l_return_status);
889: END Validate_Record;
890: FUNCTION Validate_Record (
891: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
892: ) RETURN VARCHAR2 IS
893: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
894: l_db_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := get_rec(p_oks_batch_rules_v_rec);
895: BEGIN
890: FUNCTION Validate_Record (
891: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
892: ) RETURN VARCHAR2 IS
893: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
894: l_db_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := get_rec(p_oks_batch_rules_v_rec);
895: BEGIN
896: l_return_status := Validate_Record(p_oks_batch_rules_v_rec => p_oks_batch_rules_v_rec,
897: p_db_oks_batch_rules_v_rec => l_db_oks_batch_rules_v_rec);
898: RETURN (l_return_status);
892: ) RETURN VARCHAR2 IS
893: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
894: l_db_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := get_rec(p_oks_batch_rules_v_rec);
895: BEGIN
896: l_return_status := Validate_Record(p_oks_batch_rules_v_rec => p_oks_batch_rules_v_rec,
897: p_db_oks_batch_rules_v_rec => l_db_oks_batch_rules_v_rec);
898: RETURN (l_return_status);
899: END Validate_Record;
900:
893: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
894: l_db_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := get_rec(p_oks_batch_rules_v_rec);
895: BEGIN
896: l_return_status := Validate_Record(p_oks_batch_rules_v_rec => p_oks_batch_rules_v_rec,
897: p_db_oks_batch_rules_v_rec => l_db_oks_batch_rules_v_rec);
898: RETURN (l_return_status);
899: END Validate_Record;
900:
901: ---------------------------------------------------------------------------
901: ---------------------------------------------------------------------------
902: -- PROCEDURE Migrate
903: ---------------------------------------------------------------------------
904: PROCEDURE migrate (
905: p_from IN oks_batch_rules_v_rec_type,
906: p_to IN OUT NOCOPY obtr_rec_type
907: ) IS
908: BEGIN
909: p_to.batch_id := p_from.batch_id;
934: p_to.request_id := p_from.request_id;
935: END migrate;
936: PROCEDURE migrate (
937: p_from IN obtr_rec_type,
938: p_to IN OUT NOCOPY oks_batch_rules_v_rec_type
939: ) IS
940: BEGIN
941: p_to.batch_id := p_from.batch_id;
942: p_to.batch_type := p_from.batch_type;
967: ---------------------------------------------------------------------------
968: -- PROCEDURE validate_row
969: ---------------------------------------------------------------------------
970: ----------------------------------------
971: -- validate_row for:OKS_BATCH_RULES_V --
972: ----------------------------------------
973: PROCEDURE validate_row(
974: p_api_version IN NUMBER,
975: p_init_msg_list IN VARCHAR2,
975: p_init_msg_list IN VARCHAR2,
976: x_return_status OUT NOCOPY VARCHAR2,
977: x_msg_count OUT NOCOPY NUMBER,
978: x_msg_data OUT NOCOPY VARCHAR2,
979: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type) IS
980:
981: l_api_version CONSTANT NUMBER := 1;
982: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
983: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
980:
981: l_api_version CONSTANT NUMBER := 1;
982: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
983: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
984: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
985: l_obtr_rec obtr_rec_type;
986: l_obtr_rec obtr_rec_type;
987: BEGIN
988: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
997: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
998: RAISE OKC_API.G_EXCEPTION_ERROR;
999: END IF;
1000: --- Validate all non-missing attributes (Item Level Validation)
1001: l_return_status := Validate_Attributes(l_oks_batch_rules_v_rec);
1002: --- If any errors happen abort API
1003: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1004: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1005: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1004: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1005: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1006: RAISE OKC_API.G_EXCEPTION_ERROR;
1007: END IF;
1008: l_return_status := Validate_Record(l_oks_batch_rules_v_rec);
1009: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1010: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1011: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1012: RAISE OKC_API.G_EXCEPTION_ERROR;
1044: '_PVT'
1045: );
1046: END validate_row;
1047: ---------------------------------------------------
1048: -- PL/SQL TBL validate_row for:OKS_BATCH_RULES_V --
1049: ---------------------------------------------------
1050: PROCEDURE validate_row(
1051: p_api_version IN NUMBER,
1052: p_init_msg_list IN VARCHAR2,
1052: p_init_msg_list IN VARCHAR2,
1053: x_return_status OUT NOCOPY VARCHAR2,
1054: x_msg_count OUT NOCOPY NUMBER,
1055: x_msg_data OUT NOCOPY VARCHAR2,
1056: p_oks_batch_rules_v_tbl IN oks_batch_rules_v_tbl_type,
1057: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1058:
1059: l_api_version CONSTANT NUMBER := 1;
1060: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1061: i NUMBER := 0;
1062: BEGIN
1063: OKC_API.init_msg_list(p_init_msg_list);
1064: -- Make sure PL/SQL table has records in it before passing
1065: IF (p_oks_batch_rules_v_tbl.COUNT > 0) THEN
1066: i := p_oks_batch_rules_v_tbl.FIRST;
1067: LOOP
1068: DECLARE
1069: l_error_rec OKC_API.ERROR_REC_TYPE;
1062: BEGIN
1063: OKC_API.init_msg_list(p_init_msg_list);
1064: -- Make sure PL/SQL table has records in it before passing
1065: IF (p_oks_batch_rules_v_tbl.COUNT > 0) THEN
1066: i := p_oks_batch_rules_v_tbl.FIRST;
1067: LOOP
1068: DECLARE
1069: l_error_rec OKC_API.ERROR_REC_TYPE;
1070: BEGIN
1076: p_init_msg_list => OKC_API.G_FALSE,
1077: x_return_status => l_error_rec.error_type,
1078: x_msg_count => l_error_rec.msg_count,
1079: x_msg_data => l_error_rec.msg_data,
1080: p_oks_batch_rules_v_rec => p_oks_batch_rules_v_tbl(i));
1081: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
1082: l_error_rec.sqlcode := SQLCODE;
1083: load_error_tbl(l_error_rec, px_error_tbl);
1084: ELSE
1098: l_error_rec.error_type := 'OTHERS';
1099: l_error_rec.sqlcode := SQLCODE;
1100: load_error_tbl(l_error_rec, px_error_tbl);
1101: END;
1102: EXIT WHEN (i = p_oks_batch_rules_v_tbl.LAST);
1103: i := p_oks_batch_rules_v_tbl.NEXT(i);
1104: END LOOP;
1105: END IF;
1106: -- Loop through the error_tbl to find the error with the highest severity
1099: l_error_rec.sqlcode := SQLCODE;
1100: load_error_tbl(l_error_rec, px_error_tbl);
1101: END;
1102: EXIT WHEN (i = p_oks_batch_rules_v_tbl.LAST);
1103: i := p_oks_batch_rules_v_tbl.NEXT(i);
1104: END LOOP;
1105: END IF;
1106: -- Loop through the error_tbl to find the error with the highest severity
1107: -- and return it.
1140: );
1141: END validate_row;
1142:
1143: ---------------------------------------------------
1144: -- PL/SQL TBL validate_row for:OKS_BATCH_RULES_V --
1145: ---------------------------------------------------
1146: PROCEDURE validate_row(
1147: p_api_version IN NUMBER,
1148: p_init_msg_list IN VARCHAR2,
1148: p_init_msg_list IN VARCHAR2,
1149: x_return_status OUT NOCOPY VARCHAR2,
1150: x_msg_count OUT NOCOPY NUMBER,
1151: x_msg_data OUT NOCOPY VARCHAR2,
1152: p_oks_batch_rules_v_tbl IN oks_batch_rules_v_tbl_type) IS
1153:
1154: l_api_version CONSTANT NUMBER := 1;
1155: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1156: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1157: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1158: BEGIN
1159: OKC_API.init_msg_list(p_init_msg_list);
1160: -- Make sure PL/SQL table has records in it before passing
1161: IF (p_oks_batch_rules_v_tbl.COUNT > 0) THEN
1162: validate_row (
1163: p_api_version => p_api_version,
1164: p_init_msg_list => OKC_API.G_FALSE,
1165: x_return_status => x_return_status,
1164: p_init_msg_list => OKC_API.G_FALSE,
1165: x_return_status => x_return_status,
1166: x_msg_count => x_msg_count,
1167: x_msg_data => x_msg_data,
1168: p_oks_batch_rules_v_tbl => p_oks_batch_rules_v_tbl,
1169: px_error_tbl => l_error_tbl);
1170: END IF;
1171: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1172: EXCEPTION
1205: ---------------------------------------------------------------------------
1206: -- PROCEDURE insert_row
1207: ---------------------------------------------------------------------------
1208: ------------------------------------
1209: -- insert_row for:OKS_BATCH_RULES --
1210: ------------------------------------
1211: PROCEDURE insert_row(
1212: p_init_msg_list IN VARCHAR2,
1213: x_return_status OUT NOCOPY VARCHAR2,
1221: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1222: l_obtr_rec obtr_rec_type := p_obtr_rec;
1223: l_def_obtr_rec obtr_rec_type;
1224: ----------------------------------------
1225: -- Set_Attributes for:OKS_BATCH_RULES --
1226: ----------------------------------------
1227: FUNCTION Set_Attributes (
1228: p_obtr_rec IN obtr_rec_type,
1229: x_obtr_rec OUT NOCOPY obtr_rec_type
1252: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1253: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1254: RAISE OKC_API.G_EXCEPTION_ERROR;
1255: END IF;
1256: INSERT INTO OKS_BATCH_RULES(
1257: batch_id,
1258: batch_type,
1259: batch_source,
1260: transaction_date,
1343: '_PVT'
1344: );
1345: END insert_row;
1346: ---------------------------------------
1347: -- insert_row for :OKS_BATCH_RULES_V --
1348: ---------------------------------------
1349: PROCEDURE insert_row(
1350: p_api_version IN NUMBER,
1351: p_init_msg_list IN VARCHAR2,
1351: p_init_msg_list IN VARCHAR2,
1352: x_return_status OUT NOCOPY VARCHAR2,
1353: x_msg_count OUT NOCOPY NUMBER,
1354: x_msg_data OUT NOCOPY VARCHAR2,
1355: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
1356: x_oks_batch_rules_v_rec OUT NOCOPY oks_batch_rules_v_rec_type) IS
1357:
1358: l_api_version CONSTANT NUMBER := 1;
1359: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1352: x_return_status OUT NOCOPY VARCHAR2,
1353: x_msg_count OUT NOCOPY NUMBER,
1354: x_msg_data OUT NOCOPY VARCHAR2,
1355: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
1356: x_oks_batch_rules_v_rec OUT NOCOPY oks_batch_rules_v_rec_type) IS
1357:
1358: l_api_version CONSTANT NUMBER := 1;
1359: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1360: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1357:
1358: l_api_version CONSTANT NUMBER := 1;
1359: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1360: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1361: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
1362: l_def_oks_batch_rules_v_rec oks_batch_rules_v_rec_type;
1363: l_obtr_rec obtr_rec_type;
1364: lx_obtr_rec obtr_rec_type;
1365: -------------------------------
1358: l_api_version CONSTANT NUMBER := 1;
1359: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1360: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1361: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
1362: l_def_oks_batch_rules_v_rec oks_batch_rules_v_rec_type;
1363: l_obtr_rec obtr_rec_type;
1364: lx_obtr_rec obtr_rec_type;
1365: -------------------------------
1366: -- FUNCTION fill_who_columns --
1365: -------------------------------
1366: -- FUNCTION fill_who_columns --
1367: -------------------------------
1368: FUNCTION fill_who_columns (
1369: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
1370: ) RETURN oks_batch_rules_v_rec_type IS
1371: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
1372: BEGIN
1373: l_oks_batch_rules_v_rec.CREATION_DATE := SYSDATE;
1366: -- FUNCTION fill_who_columns --
1367: -------------------------------
1368: FUNCTION fill_who_columns (
1369: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
1370: ) RETURN oks_batch_rules_v_rec_type IS
1371: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
1372: BEGIN
1373: l_oks_batch_rules_v_rec.CREATION_DATE := SYSDATE;
1374: l_oks_batch_rules_v_rec.CREATED_BY := FND_GLOBAL.USER_ID;
1367: -------------------------------
1368: FUNCTION fill_who_columns (
1369: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
1370: ) RETURN oks_batch_rules_v_rec_type IS
1371: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
1372: BEGIN
1373: l_oks_batch_rules_v_rec.CREATION_DATE := SYSDATE;
1374: l_oks_batch_rules_v_rec.CREATED_BY := FND_GLOBAL.USER_ID;
1375: l_oks_batch_rules_v_rec.LAST_UPDATE_DATE := l_oks_batch_rules_v_rec.CREATION_DATE;
1369: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
1370: ) RETURN oks_batch_rules_v_rec_type IS
1371: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
1372: BEGIN
1373: l_oks_batch_rules_v_rec.CREATION_DATE := SYSDATE;
1374: l_oks_batch_rules_v_rec.CREATED_BY := FND_GLOBAL.USER_ID;
1375: l_oks_batch_rules_v_rec.LAST_UPDATE_DATE := l_oks_batch_rules_v_rec.CREATION_DATE;
1376: l_oks_batch_rules_v_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
1377: l_oks_batch_rules_v_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
1370: ) RETURN oks_batch_rules_v_rec_type IS
1371: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
1372: BEGIN
1373: l_oks_batch_rules_v_rec.CREATION_DATE := SYSDATE;
1374: l_oks_batch_rules_v_rec.CREATED_BY := FND_GLOBAL.USER_ID;
1375: l_oks_batch_rules_v_rec.LAST_UPDATE_DATE := l_oks_batch_rules_v_rec.CREATION_DATE;
1376: l_oks_batch_rules_v_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
1377: l_oks_batch_rules_v_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
1378: RETURN(l_oks_batch_rules_v_rec);
1371: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
1372: BEGIN
1373: l_oks_batch_rules_v_rec.CREATION_DATE := SYSDATE;
1374: l_oks_batch_rules_v_rec.CREATED_BY := FND_GLOBAL.USER_ID;
1375: l_oks_batch_rules_v_rec.LAST_UPDATE_DATE := l_oks_batch_rules_v_rec.CREATION_DATE;
1376: l_oks_batch_rules_v_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
1377: l_oks_batch_rules_v_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
1378: RETURN(l_oks_batch_rules_v_rec);
1379: END fill_who_columns;
1372: BEGIN
1373: l_oks_batch_rules_v_rec.CREATION_DATE := SYSDATE;
1374: l_oks_batch_rules_v_rec.CREATED_BY := FND_GLOBAL.USER_ID;
1375: l_oks_batch_rules_v_rec.LAST_UPDATE_DATE := l_oks_batch_rules_v_rec.CREATION_DATE;
1376: l_oks_batch_rules_v_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
1377: l_oks_batch_rules_v_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
1378: RETURN(l_oks_batch_rules_v_rec);
1379: END fill_who_columns;
1380: ------------------------------------------
1373: l_oks_batch_rules_v_rec.CREATION_DATE := SYSDATE;
1374: l_oks_batch_rules_v_rec.CREATED_BY := FND_GLOBAL.USER_ID;
1375: l_oks_batch_rules_v_rec.LAST_UPDATE_DATE := l_oks_batch_rules_v_rec.CREATION_DATE;
1376: l_oks_batch_rules_v_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
1377: l_oks_batch_rules_v_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
1378: RETURN(l_oks_batch_rules_v_rec);
1379: END fill_who_columns;
1380: ------------------------------------------
1381: -- Set_Attributes for:OKS_BATCH_RULES_V --
1374: l_oks_batch_rules_v_rec.CREATED_BY := FND_GLOBAL.USER_ID;
1375: l_oks_batch_rules_v_rec.LAST_UPDATE_DATE := l_oks_batch_rules_v_rec.CREATION_DATE;
1376: l_oks_batch_rules_v_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
1377: l_oks_batch_rules_v_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
1378: RETURN(l_oks_batch_rules_v_rec);
1379: END fill_who_columns;
1380: ------------------------------------------
1381: -- Set_Attributes for:OKS_BATCH_RULES_V --
1382: ------------------------------------------
1377: l_oks_batch_rules_v_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
1378: RETURN(l_oks_batch_rules_v_rec);
1379: END fill_who_columns;
1380: ------------------------------------------
1381: -- Set_Attributes for:OKS_BATCH_RULES_V --
1382: ------------------------------------------
1383: FUNCTION Set_Attributes (
1384: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
1385: x_oks_batch_rules_v_rec OUT NOCOPY oks_batch_rules_v_rec_type
1380: ------------------------------------------
1381: -- Set_Attributes for:OKS_BATCH_RULES_V --
1382: ------------------------------------------
1383: FUNCTION Set_Attributes (
1384: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
1385: x_oks_batch_rules_v_rec OUT NOCOPY oks_batch_rules_v_rec_type
1386: ) RETURN VARCHAR2 IS
1387: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1388: BEGIN
1381: -- Set_Attributes for:OKS_BATCH_RULES_V --
1382: ------------------------------------------
1383: FUNCTION Set_Attributes (
1384: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
1385: x_oks_batch_rules_v_rec OUT NOCOPY oks_batch_rules_v_rec_type
1386: ) RETURN VARCHAR2 IS
1387: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1388: BEGIN
1389: x_oks_batch_rules_v_rec := p_oks_batch_rules_v_rec;
1385: x_oks_batch_rules_v_rec OUT NOCOPY oks_batch_rules_v_rec_type
1386: ) RETURN VARCHAR2 IS
1387: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1388: BEGIN
1389: x_oks_batch_rules_v_rec := p_oks_batch_rules_v_rec;
1390: x_oks_batch_rules_v_rec.OBJECT_VERSION_NUMBER := 1;
1391: RETURN(l_return_status);
1392: END Set_Attributes;
1393: BEGIN
1386: ) RETURN VARCHAR2 IS
1387: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1388: BEGIN
1389: x_oks_batch_rules_v_rec := p_oks_batch_rules_v_rec;
1390: x_oks_batch_rules_v_rec.OBJECT_VERSION_NUMBER := 1;
1391: RETURN(l_return_status);
1392: END Set_Attributes;
1393: BEGIN
1394: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1402: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1403: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1404: RAISE OKC_API.G_EXCEPTION_ERROR;
1405: END IF;
1406: l_oks_batch_rules_v_rec := null_out_defaults(p_oks_batch_rules_v_rec);
1407: -- Set primary key value
1408: -- l_oks_batch_rules_v_rec.BATCH_ID := get_seq_id;
1409: -- Setting item attributes
1410: l_return_Status := Set_Attributes(
1404: RAISE OKC_API.G_EXCEPTION_ERROR;
1405: END IF;
1406: l_oks_batch_rules_v_rec := null_out_defaults(p_oks_batch_rules_v_rec);
1407: -- Set primary key value
1408: -- l_oks_batch_rules_v_rec.BATCH_ID := get_seq_id;
1409: -- Setting item attributes
1410: l_return_Status := Set_Attributes(
1411: l_oks_batch_rules_v_rec, -- IN
1412: l_def_oks_batch_rules_v_rec); -- OUT
1407: -- Set primary key value
1408: -- l_oks_batch_rules_v_rec.BATCH_ID := get_seq_id;
1409: -- Setting item attributes
1410: l_return_Status := Set_Attributes(
1411: l_oks_batch_rules_v_rec, -- IN
1412: l_def_oks_batch_rules_v_rec); -- OUT
1413: --- If any errors happen abort API
1414: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1415: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1408: -- l_oks_batch_rules_v_rec.BATCH_ID := get_seq_id;
1409: -- Setting item attributes
1410: l_return_Status := Set_Attributes(
1411: l_oks_batch_rules_v_rec, -- IN
1412: l_def_oks_batch_rules_v_rec); -- OUT
1413: --- If any errors happen abort API
1414: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1415: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1416: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1415: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1416: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1417: RAISE OKC_API.G_EXCEPTION_ERROR;
1418: END IF;
1419: l_def_oks_batch_rules_v_rec := fill_who_columns(l_def_oks_batch_rules_v_rec);
1420: --- Validate all non-missing attributes (Item Level Validation)
1421: l_return_status := Validate_Attributes(l_def_oks_batch_rules_v_rec);
1422: --- If any errors happen abort API
1423: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1417: RAISE OKC_API.G_EXCEPTION_ERROR;
1418: END IF;
1419: l_def_oks_batch_rules_v_rec := fill_who_columns(l_def_oks_batch_rules_v_rec);
1420: --- Validate all non-missing attributes (Item Level Validation)
1421: l_return_status := Validate_Attributes(l_def_oks_batch_rules_v_rec);
1422: --- If any errors happen abort API
1423: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1424: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1425: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1424: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1425: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1426: RAISE OKC_API.G_EXCEPTION_ERROR;
1427: END IF;
1428: l_return_status := Validate_Record(l_def_oks_batch_rules_v_rec);
1429: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1430: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1431: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1432: RAISE OKC_API.G_EXCEPTION_ERROR;
1433: END IF;
1434: -----------------------------------------
1435: -- Move VIEW record to "Child" records --
1436: -----------------------------------------
1437: migrate(l_def_oks_batch_rules_v_rec, l_obtr_rec);
1438: -----------------------------------------------
1439: -- Call the INSERT_ROW for each child record --
1440: -----------------------------------------------
1441: insert_row(
1450: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1451: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1452: RAISE OKC_API.G_EXCEPTION_ERROR;
1453: END IF;
1454: migrate(lx_obtr_rec, l_def_oks_batch_rules_v_rec);
1455: -- Set OUT values
1456: x_oks_batch_rules_v_rec := l_def_oks_batch_rules_v_rec;
1457: x_return_status := l_return_status;
1458: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1452: RAISE OKC_API.G_EXCEPTION_ERROR;
1453: END IF;
1454: migrate(lx_obtr_rec, l_def_oks_batch_rules_v_rec);
1455: -- Set OUT values
1456: x_oks_batch_rules_v_rec := l_def_oks_batch_rules_v_rec;
1457: x_return_status := l_return_status;
1458: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1459: EXCEPTION
1460: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1488: '_PVT'
1489: );
1490: END insert_row;
1491: -----------------------------------------------------
1492: -- PL/SQL TBL insert_row for:OKS_BATCH_RULES_V_TBL --
1493: -----------------------------------------------------
1494: PROCEDURE insert_row(
1495: p_api_version IN NUMBER,
1496: p_init_msg_list IN VARCHAR2,
1496: p_init_msg_list IN VARCHAR2,
1497: x_return_status OUT NOCOPY VARCHAR2,
1498: x_msg_count OUT NOCOPY NUMBER,
1499: x_msg_data OUT NOCOPY VARCHAR2,
1500: p_oks_batch_rules_v_tbl IN oks_batch_rules_v_tbl_type,
1501: x_oks_batch_rules_v_tbl OUT NOCOPY oks_batch_rules_v_tbl_type,
1502: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1503:
1504: l_api_version CONSTANT NUMBER := 1;
1497: x_return_status OUT NOCOPY VARCHAR2,
1498: x_msg_count OUT NOCOPY NUMBER,
1499: x_msg_data OUT NOCOPY VARCHAR2,
1500: p_oks_batch_rules_v_tbl IN oks_batch_rules_v_tbl_type,
1501: x_oks_batch_rules_v_tbl OUT NOCOPY oks_batch_rules_v_tbl_type,
1502: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1503:
1504: l_api_version CONSTANT NUMBER := 1;
1505: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1506: i NUMBER := 0;
1507: BEGIN
1508: OKC_API.init_msg_list(p_init_msg_list);
1509: -- Make sure PL/SQL table has records in it before passing
1510: IF (p_oks_batch_rules_v_tbl.COUNT > 0) THEN
1511: i := p_oks_batch_rules_v_tbl.FIRST;
1512: LOOP
1513: DECLARE
1514: l_error_rec OKC_API.ERROR_REC_TYPE;
1507: BEGIN
1508: OKC_API.init_msg_list(p_init_msg_list);
1509: -- Make sure PL/SQL table has records in it before passing
1510: IF (p_oks_batch_rules_v_tbl.COUNT > 0) THEN
1511: i := p_oks_batch_rules_v_tbl.FIRST;
1512: LOOP
1513: DECLARE
1514: l_error_rec OKC_API.ERROR_REC_TYPE;
1515: BEGIN
1521: p_init_msg_list => OKC_API.G_FALSE,
1522: x_return_status => l_error_rec.error_type,
1523: x_msg_count => l_error_rec.msg_count,
1524: x_msg_data => l_error_rec.msg_data,
1525: p_oks_batch_rules_v_rec => p_oks_batch_rules_v_tbl(i),
1526: x_oks_batch_rules_v_rec => x_oks_batch_rules_v_tbl(i));
1527: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
1528: l_error_rec.sqlcode := SQLCODE;
1529: load_error_tbl(l_error_rec, px_error_tbl);
1522: x_return_status => l_error_rec.error_type,
1523: x_msg_count => l_error_rec.msg_count,
1524: x_msg_data => l_error_rec.msg_data,
1525: p_oks_batch_rules_v_rec => p_oks_batch_rules_v_tbl(i),
1526: x_oks_batch_rules_v_rec => x_oks_batch_rules_v_tbl(i));
1527: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
1528: l_error_rec.sqlcode := SQLCODE;
1529: load_error_tbl(l_error_rec, px_error_tbl);
1530: ELSE
1544: l_error_rec.error_type := 'OTHERS';
1545: l_error_rec.sqlcode := SQLCODE;
1546: load_error_tbl(l_error_rec, px_error_tbl);
1547: END;
1548: EXIT WHEN (i = p_oks_batch_rules_v_tbl.LAST);
1549: i := p_oks_batch_rules_v_tbl.NEXT(i);
1550: END LOOP;
1551: END IF;
1552: -- Loop through the error_tbl to find the error with the highest severity
1545: l_error_rec.sqlcode := SQLCODE;
1546: load_error_tbl(l_error_rec, px_error_tbl);
1547: END;
1548: EXIT WHEN (i = p_oks_batch_rules_v_tbl.LAST);
1549: i := p_oks_batch_rules_v_tbl.NEXT(i);
1550: END LOOP;
1551: END IF;
1552: -- Loop through the error_tbl to find the error with the highest severity
1553: -- and return it.
1586: );
1587: END insert_row;
1588:
1589: -----------------------------------------------------
1590: -- PL/SQL TBL insert_row for:OKS_BATCH_RULES_V_TBL --
1591: -----------------------------------------------------
1592: -- This procedure is the same as the one above except it does not have a "px_error_tbl" argument.
1593: -- This procedure was create for backward compatibility and simply is a wrapper for the one above.
1594: PROCEDURE insert_row(
1596: p_init_msg_list IN VARCHAR2,
1597: x_return_status OUT NOCOPY VARCHAR2,
1598: x_msg_count OUT NOCOPY NUMBER,
1599: x_msg_data OUT NOCOPY VARCHAR2,
1600: p_oks_batch_rules_v_tbl IN oks_batch_rules_v_tbl_type,
1601: x_oks_batch_rules_v_tbl OUT NOCOPY oks_batch_rules_v_tbl_type) IS
1602:
1603: l_api_version CONSTANT NUMBER := 1;
1604: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1597: x_return_status OUT NOCOPY VARCHAR2,
1598: x_msg_count OUT NOCOPY NUMBER,
1599: x_msg_data OUT NOCOPY VARCHAR2,
1600: p_oks_batch_rules_v_tbl IN oks_batch_rules_v_tbl_type,
1601: x_oks_batch_rules_v_tbl OUT NOCOPY oks_batch_rules_v_tbl_type) IS
1602:
1603: l_api_version CONSTANT NUMBER := 1;
1604: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1605: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1606: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1607: BEGIN
1608: OKC_API.init_msg_list(p_init_msg_list);
1609: -- Make sure PL/SQL table has records in it before passing
1610: IF (p_oks_batch_rules_v_tbl.COUNT > 0) THEN
1611: insert_row (
1612: p_api_version => p_api_version,
1613: p_init_msg_list => OKC_API.G_FALSE,
1614: x_return_status => x_return_status,
1613: p_init_msg_list => OKC_API.G_FALSE,
1614: x_return_status => x_return_status,
1615: x_msg_count => x_msg_count,
1616: x_msg_data => x_msg_data,
1617: p_oks_batch_rules_v_tbl => p_oks_batch_rules_v_tbl,
1618: x_oks_batch_rules_v_tbl => x_oks_batch_rules_v_tbl,
1619: px_error_tbl => l_error_tbl);
1620: END IF;
1621: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1614: x_return_status => x_return_status,
1615: x_msg_count => x_msg_count,
1616: x_msg_data => x_msg_data,
1617: p_oks_batch_rules_v_tbl => p_oks_batch_rules_v_tbl,
1618: x_oks_batch_rules_v_tbl => x_oks_batch_rules_v_tbl,
1619: px_error_tbl => l_error_tbl);
1620: END IF;
1621: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1622: EXCEPTION
1655: ---------------------------------------------------------------------------
1656: -- PROCEDURE lock_row
1657: ---------------------------------------------------------------------------
1658: ----------------------------------
1659: -- lock_row for:OKS_BATCH_RULES --
1660: ----------------------------------
1661: PROCEDURE lock_row(
1662: p_init_msg_list IN VARCHAR2,
1663: x_return_status OUT NOCOPY VARCHAR2,
1668: E_Resource_Busy EXCEPTION;
1669: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1670: CURSOR lock_csr (p_obtr_rec IN obtr_rec_type) IS
1671: SELECT OBJECT_VERSION_NUMBER
1672: FROM OKS_BATCH_RULES
1673: WHERE BATCH_ID = p_obtr_rec.batch_id
1674: AND OBJECT_VERSION_NUMBER = p_obtr_rec.object_version_number
1675: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1676:
1675: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1676:
1677: CURSOR lchk_csr (p_obtr_rec IN obtr_rec_type) IS
1678: SELECT OBJECT_VERSION_NUMBER
1679: FROM OKS_BATCH_RULES
1680: WHERE BATCH_ID = p_obtr_rec.batch_id;
1681: l_api_version CONSTANT NUMBER := 1;
1682: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1683: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1680: WHERE BATCH_ID = p_obtr_rec.batch_id;
1681: l_api_version CONSTANT NUMBER := 1;
1682: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1683: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1684: l_object_version_number OKS_BATCH_RULES.OBJECT_VERSION_NUMBER%TYPE;
1685: lc_object_version_number OKS_BATCH_RULES.OBJECT_VERSION_NUMBER%TYPE;
1686: l_row_notfound BOOLEAN := FALSE;
1687: lc_row_notfound BOOLEAN := FALSE;
1688: BEGIN
1681: l_api_version CONSTANT NUMBER := 1;
1682: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1683: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1684: l_object_version_number OKS_BATCH_RULES.OBJECT_VERSION_NUMBER%TYPE;
1685: lc_object_version_number OKS_BATCH_RULES.OBJECT_VERSION_NUMBER%TYPE;
1686: l_row_notfound BOOLEAN := FALSE;
1687: lc_row_notfound BOOLEAN := FALSE;
1688: BEGIN
1689: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1762: '_PVT'
1763: );
1764: END lock_row;
1765: -------------------------------------
1766: -- lock_row for: OKS_BATCH_RULES_V --
1767: -------------------------------------
1768: PROCEDURE lock_row(
1769: p_api_version IN NUMBER,
1770: p_init_msg_list IN VARCHAR2,
1770: p_init_msg_list IN VARCHAR2,
1771: x_return_status OUT NOCOPY VARCHAR2,
1772: x_msg_count OUT NOCOPY NUMBER,
1773: x_msg_data OUT NOCOPY VARCHAR2,
1774: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type) IS
1775:
1776: l_api_version CONSTANT NUMBER := 1;
1777: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1778: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1792: END IF;
1793: -----------------------------------------
1794: -- Move VIEW record to "Child" records --
1795: -----------------------------------------
1796: migrate(p_oks_batch_rules_v_rec, l_obtr_rec);
1797: ---------------------------------------------
1798: -- Call the LOCK_ROW for each child record --
1799: ---------------------------------------------
1800: lock_row(
1843: '_PVT'
1844: );
1845: END lock_row;
1846: ---------------------------------------------------
1847: -- PL/SQL TBL lock_row for:OKS_BATCH_RULES_V_TBL --
1848: ---------------------------------------------------
1849: PROCEDURE lock_row(
1850: p_api_version IN NUMBER,
1851: p_init_msg_list IN VARCHAR2,
1851: p_init_msg_list IN VARCHAR2,
1852: x_return_status OUT NOCOPY VARCHAR2,
1853: x_msg_count OUT NOCOPY NUMBER,
1854: x_msg_data OUT NOCOPY VARCHAR2,
1855: p_oks_batch_rules_v_tbl IN oks_batch_rules_v_tbl_type,
1856: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1857:
1858: l_api_version CONSTANT NUMBER := 1;
1859: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
1860: i NUMBER := 0;
1861: BEGIN
1862: OKC_API.init_msg_list(p_init_msg_list);
1863: -- Make sure PL/SQL table has recrods in it before passing
1864: IF (p_oks_batch_rules_v_tbl.COUNT > 0) THEN
1865: i := p_oks_batch_rules_v_tbl.FIRST;
1866: LOOP
1867: DECLARE
1868: l_error_rec OKC_API.ERROR_REC_TYPE;
1861: BEGIN
1862: OKC_API.init_msg_list(p_init_msg_list);
1863: -- Make sure PL/SQL table has recrods in it before passing
1864: IF (p_oks_batch_rules_v_tbl.COUNT > 0) THEN
1865: i := p_oks_batch_rules_v_tbl.FIRST;
1866: LOOP
1867: DECLARE
1868: l_error_rec OKC_API.ERROR_REC_TYPE;
1869: BEGIN
1875: p_init_msg_list => OKC_API.G_FALSE,
1876: x_return_status => l_error_rec.error_type,
1877: x_msg_count => l_error_rec.msg_count,
1878: x_msg_data => l_error_rec.msg_data,
1879: p_oks_batch_rules_v_rec => p_oks_batch_rules_v_tbl(i));
1880: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
1881: l_error_rec.sqlcode := SQLCODE;
1882: load_error_tbl(l_error_rec, px_error_tbl);
1883: ELSE
1897: l_error_rec.error_type := 'OTHERS';
1898: l_error_rec.sqlcode := SQLCODE;
1899: load_error_tbl(l_error_rec, px_error_tbl);
1900: END;
1901: EXIT WHEN (i = p_oks_batch_rules_v_tbl.LAST);
1902: i := p_oks_batch_rules_v_tbl.NEXT(i);
1903: END LOOP;
1904: END IF;
1905: -- Loop through the error_tbl to find the error with the highest severity
1898: l_error_rec.sqlcode := SQLCODE;
1899: load_error_tbl(l_error_rec, px_error_tbl);
1900: END;
1901: EXIT WHEN (i = p_oks_batch_rules_v_tbl.LAST);
1902: i := p_oks_batch_rules_v_tbl.NEXT(i);
1903: END LOOP;
1904: END IF;
1905: -- Loop through the error_tbl to find the error with the highest severity
1906: -- and return it.
1938: '_PVT'
1939: );
1940: END lock_row;
1941: ---------------------------------------------------
1942: -- PL/SQL TBL lock_row for:OKS_BATCH_RULES_V_TBL --
1943: ---------------------------------------------------
1944: PROCEDURE lock_row(
1945: p_api_version IN NUMBER,
1946: p_init_msg_list IN VARCHAR2,
1946: p_init_msg_list IN VARCHAR2,
1947: x_return_status OUT NOCOPY VARCHAR2,
1948: x_msg_count OUT NOCOPY NUMBER,
1949: x_msg_data OUT NOCOPY VARCHAR2,
1950: p_oks_batch_rules_v_tbl IN oks_batch_rules_v_tbl_type) IS
1951:
1952: l_api_version CONSTANT NUMBER := 1;
1953: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1954: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1955: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1956: BEGIN
1957: OKC_API.init_msg_list(p_init_msg_list);
1958: -- Make sure PL/SQL table has recrods in it before passing
1959: IF (p_oks_batch_rules_v_tbl.COUNT > 0) THEN
1960: lock_row(
1961: p_api_version => p_api_version,
1962: p_init_msg_list => OKC_API.G_FALSE,
1963: x_return_status => x_return_status,
1962: p_init_msg_list => OKC_API.G_FALSE,
1963: x_return_status => x_return_status,
1964: x_msg_count => x_msg_count,
1965: x_msg_data => x_msg_data,
1966: p_oks_batch_rules_v_tbl => p_oks_batch_rules_v_tbl,
1967: px_error_tbl => l_error_tbl);
1968: END IF;
1969: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1970: EXCEPTION
2002: ---------------------------------------------------------------------------
2003: -- PROCEDURE update_row
2004: ---------------------------------------------------------------------------
2005: ------------------------------------
2006: -- update_row for:OKS_BATCH_RULES --
2007: ------------------------------------
2008: PROCEDURE update_row(
2009: p_init_msg_list IN VARCHAR2,
2010: x_return_status OUT NOCOPY VARCHAR2,
2141: END IF;
2142: RETURN(l_return_status);
2143: END populate_new_record;
2144: ----------------------------------------
2145: -- Set_Attributes for:OKS_BATCH_RULES --
2146: ----------------------------------------
2147: FUNCTION Set_Attributes (
2148: p_obtr_rec IN obtr_rec_type,
2149: x_obtr_rec OUT NOCOPY obtr_rec_type
2179: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2180: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2181: RAISE OKC_API.G_EXCEPTION_ERROR;
2182: END IF;
2183: UPDATE OKS_BATCH_RULES
2184: SET BATCH_TYPE = l_def_obtr_rec.batch_type,
2185: BATCH_SOURCE = l_def_obtr_rec.batch_source,
2186: TRANSACTION_DATE = l_def_obtr_rec.transaction_date,
2187: CREDIT_OPTION = l_def_obtr_rec.credit_option,
2243: '_PVT'
2244: );
2245: END update_row;
2246: --------------------------------------
2247: -- update_row for:OKS_BATCH_RULES_V --
2248: --------------------------------------
2249: PROCEDURE update_row(
2250: p_api_version IN NUMBER,
2251: p_init_msg_list IN VARCHAR2,
2251: p_init_msg_list IN VARCHAR2,
2252: x_return_status OUT NOCOPY VARCHAR2,
2253: x_msg_count OUT NOCOPY NUMBER,
2254: x_msg_data OUT NOCOPY VARCHAR2,
2255: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
2256: x_oks_batch_rules_v_rec OUT NOCOPY oks_batch_rules_v_rec_type) IS
2257:
2258: l_api_version CONSTANT NUMBER := 1;
2259: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2252: x_return_status OUT NOCOPY VARCHAR2,
2253: x_msg_count OUT NOCOPY NUMBER,
2254: x_msg_data OUT NOCOPY VARCHAR2,
2255: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
2256: x_oks_batch_rules_v_rec OUT NOCOPY oks_batch_rules_v_rec_type) IS
2257:
2258: l_api_version CONSTANT NUMBER := 1;
2259: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2260: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2257:
2258: l_api_version CONSTANT NUMBER := 1;
2259: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2260: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2261: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
2262: l_def_oks_batch_rules_v_rec oks_batch_rules_v_rec_type;
2263: l_db_oks_batch_rules_v_rec oks_batch_rules_v_rec_type;
2264: l_obtr_rec obtr_rec_type;
2265: lx_obtr_rec obtr_rec_type;
2258: l_api_version CONSTANT NUMBER := 1;
2259: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2260: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2261: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
2262: l_def_oks_batch_rules_v_rec oks_batch_rules_v_rec_type;
2263: l_db_oks_batch_rules_v_rec oks_batch_rules_v_rec_type;
2264: l_obtr_rec obtr_rec_type;
2265: lx_obtr_rec obtr_rec_type;
2266: -------------------------------
2259: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2260: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2261: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
2262: l_def_oks_batch_rules_v_rec oks_batch_rules_v_rec_type;
2263: l_db_oks_batch_rules_v_rec oks_batch_rules_v_rec_type;
2264: l_obtr_rec obtr_rec_type;
2265: lx_obtr_rec obtr_rec_type;
2266: -------------------------------
2267: -- FUNCTION fill_who_columns --
2266: -------------------------------
2267: -- FUNCTION fill_who_columns --
2268: -------------------------------
2269: FUNCTION fill_who_columns (
2270: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
2271: ) RETURN oks_batch_rules_v_rec_type IS
2272: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
2273: BEGIN
2274: l_oks_batch_rules_v_rec.LAST_UPDATE_DATE := SYSDATE;
2267: -- FUNCTION fill_who_columns --
2268: -------------------------------
2269: FUNCTION fill_who_columns (
2270: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
2271: ) RETURN oks_batch_rules_v_rec_type IS
2272: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
2273: BEGIN
2274: l_oks_batch_rules_v_rec.LAST_UPDATE_DATE := SYSDATE;
2275: l_oks_batch_rules_v_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
2268: -------------------------------
2269: FUNCTION fill_who_columns (
2270: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
2271: ) RETURN oks_batch_rules_v_rec_type IS
2272: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
2273: BEGIN
2274: l_oks_batch_rules_v_rec.LAST_UPDATE_DATE := SYSDATE;
2275: l_oks_batch_rules_v_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
2276: l_oks_batch_rules_v_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
2270: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type
2271: ) RETURN oks_batch_rules_v_rec_type IS
2272: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
2273: BEGIN
2274: l_oks_batch_rules_v_rec.LAST_UPDATE_DATE := SYSDATE;
2275: l_oks_batch_rules_v_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
2276: l_oks_batch_rules_v_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
2277: RETURN(l_oks_batch_rules_v_rec);
2278: END fill_who_columns;
2271: ) RETURN oks_batch_rules_v_rec_type IS
2272: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
2273: BEGIN
2274: l_oks_batch_rules_v_rec.LAST_UPDATE_DATE := SYSDATE;
2275: l_oks_batch_rules_v_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
2276: l_oks_batch_rules_v_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
2277: RETURN(l_oks_batch_rules_v_rec);
2278: END fill_who_columns;
2279: ----------------------------------
2272: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
2273: BEGIN
2274: l_oks_batch_rules_v_rec.LAST_UPDATE_DATE := SYSDATE;
2275: l_oks_batch_rules_v_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
2276: l_oks_batch_rules_v_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
2277: RETURN(l_oks_batch_rules_v_rec);
2278: END fill_who_columns;
2279: ----------------------------------
2280: -- FUNCTION populate_new_record --
2273: BEGIN
2274: l_oks_batch_rules_v_rec.LAST_UPDATE_DATE := SYSDATE;
2275: l_oks_batch_rules_v_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
2276: l_oks_batch_rules_v_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
2277: RETURN(l_oks_batch_rules_v_rec);
2278: END fill_who_columns;
2279: ----------------------------------
2280: -- FUNCTION populate_new_record --
2281: ----------------------------------
2279: ----------------------------------
2280: -- FUNCTION populate_new_record --
2281: ----------------------------------
2282: FUNCTION populate_new_record (
2283: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
2284: x_oks_batch_rules_v_rec OUT NOCOPY oks_batch_rules_v_rec_type
2285: ) RETURN VARCHAR2 IS
2286: l_row_notfound BOOLEAN := TRUE;
2287: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2280: -- FUNCTION populate_new_record --
2281: ----------------------------------
2282: FUNCTION populate_new_record (
2283: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
2284: x_oks_batch_rules_v_rec OUT NOCOPY oks_batch_rules_v_rec_type
2285: ) RETURN VARCHAR2 IS
2286: l_row_notfound BOOLEAN := TRUE;
2287: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2288: BEGIN
2285: ) RETURN VARCHAR2 IS
2286: l_row_notfound BOOLEAN := TRUE;
2287: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2288: BEGIN
2289: x_oks_batch_rules_v_rec := p_oks_batch_rules_v_rec;
2290: -- Get current database values
2291: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2292: -- so it may be verified through LOCK_ROW.
2293: l_db_oks_batch_rules_v_rec := get_rec(p_oks_batch_rules_v_rec, l_return_status);
2289: x_oks_batch_rules_v_rec := p_oks_batch_rules_v_rec;
2290: -- Get current database values
2291: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2292: -- so it may be verified through LOCK_ROW.
2293: l_db_oks_batch_rules_v_rec := get_rec(p_oks_batch_rules_v_rec, l_return_status);
2294: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2295: IF (x_oks_batch_rules_v_rec.batch_id = OKC_API.G_MISS_NUM)
2296: THEN
2297: x_oks_batch_rules_v_rec.batch_id := l_db_oks_batch_rules_v_rec.batch_id;
2291: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2292: -- so it may be verified through LOCK_ROW.
2293: l_db_oks_batch_rules_v_rec := get_rec(p_oks_batch_rules_v_rec, l_return_status);
2294: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2295: IF (x_oks_batch_rules_v_rec.batch_id = OKC_API.G_MISS_NUM)
2296: THEN
2297: x_oks_batch_rules_v_rec.batch_id := l_db_oks_batch_rules_v_rec.batch_id;
2298: END IF;
2299: IF (x_oks_batch_rules_v_rec.batch_type = OKC_API.G_MISS_CHAR)
2293: l_db_oks_batch_rules_v_rec := get_rec(p_oks_batch_rules_v_rec, l_return_status);
2294: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2295: IF (x_oks_batch_rules_v_rec.batch_id = OKC_API.G_MISS_NUM)
2296: THEN
2297: x_oks_batch_rules_v_rec.batch_id := l_db_oks_batch_rules_v_rec.batch_id;
2298: END IF;
2299: IF (x_oks_batch_rules_v_rec.batch_type = OKC_API.G_MISS_CHAR)
2300: THEN
2301: x_oks_batch_rules_v_rec.batch_type := l_db_oks_batch_rules_v_rec.batch_type;
2295: IF (x_oks_batch_rules_v_rec.batch_id = OKC_API.G_MISS_NUM)
2296: THEN
2297: x_oks_batch_rules_v_rec.batch_id := l_db_oks_batch_rules_v_rec.batch_id;
2298: END IF;
2299: IF (x_oks_batch_rules_v_rec.batch_type = OKC_API.G_MISS_CHAR)
2300: THEN
2301: x_oks_batch_rules_v_rec.batch_type := l_db_oks_batch_rules_v_rec.batch_type;
2302: END IF;
2303: IF (x_oks_batch_rules_v_rec.batch_source = OKC_API.G_MISS_CHAR)
2297: x_oks_batch_rules_v_rec.batch_id := l_db_oks_batch_rules_v_rec.batch_id;
2298: END IF;
2299: IF (x_oks_batch_rules_v_rec.batch_type = OKC_API.G_MISS_CHAR)
2300: THEN
2301: x_oks_batch_rules_v_rec.batch_type := l_db_oks_batch_rules_v_rec.batch_type;
2302: END IF;
2303: IF (x_oks_batch_rules_v_rec.batch_source = OKC_API.G_MISS_CHAR)
2304: THEN
2305: x_oks_batch_rules_v_rec.batch_source := l_db_oks_batch_rules_v_rec.batch_source;
2299: IF (x_oks_batch_rules_v_rec.batch_type = OKC_API.G_MISS_CHAR)
2300: THEN
2301: x_oks_batch_rules_v_rec.batch_type := l_db_oks_batch_rules_v_rec.batch_type;
2302: END IF;
2303: IF (x_oks_batch_rules_v_rec.batch_source = OKC_API.G_MISS_CHAR)
2304: THEN
2305: x_oks_batch_rules_v_rec.batch_source := l_db_oks_batch_rules_v_rec.batch_source;
2306: END IF;
2307: IF (x_oks_batch_rules_v_rec.transaction_date = OKC_API.G_MISS_DATE)
2301: x_oks_batch_rules_v_rec.batch_type := l_db_oks_batch_rules_v_rec.batch_type;
2302: END IF;
2303: IF (x_oks_batch_rules_v_rec.batch_source = OKC_API.G_MISS_CHAR)
2304: THEN
2305: x_oks_batch_rules_v_rec.batch_source := l_db_oks_batch_rules_v_rec.batch_source;
2306: END IF;
2307: IF (x_oks_batch_rules_v_rec.transaction_date = OKC_API.G_MISS_DATE)
2308: THEN
2309: x_oks_batch_rules_v_rec.transaction_date := l_db_oks_batch_rules_v_rec.transaction_date;
2303: IF (x_oks_batch_rules_v_rec.batch_source = OKC_API.G_MISS_CHAR)
2304: THEN
2305: x_oks_batch_rules_v_rec.batch_source := l_db_oks_batch_rules_v_rec.batch_source;
2306: END IF;
2307: IF (x_oks_batch_rules_v_rec.transaction_date = OKC_API.G_MISS_DATE)
2308: THEN
2309: x_oks_batch_rules_v_rec.transaction_date := l_db_oks_batch_rules_v_rec.transaction_date;
2310: END IF;
2311: IF (x_oks_batch_rules_v_rec.credit_option = OKC_API.G_MISS_CHAR)
2305: x_oks_batch_rules_v_rec.batch_source := l_db_oks_batch_rules_v_rec.batch_source;
2306: END IF;
2307: IF (x_oks_batch_rules_v_rec.transaction_date = OKC_API.G_MISS_DATE)
2308: THEN
2309: x_oks_batch_rules_v_rec.transaction_date := l_db_oks_batch_rules_v_rec.transaction_date;
2310: END IF;
2311: IF (x_oks_batch_rules_v_rec.credit_option = OKC_API.G_MISS_CHAR)
2312: THEN
2313: x_oks_batch_rules_v_rec.credit_option := l_db_oks_batch_rules_v_rec.credit_option;
2307: IF (x_oks_batch_rules_v_rec.transaction_date = OKC_API.G_MISS_DATE)
2308: THEN
2309: x_oks_batch_rules_v_rec.transaction_date := l_db_oks_batch_rules_v_rec.transaction_date;
2310: END IF;
2311: IF (x_oks_batch_rules_v_rec.credit_option = OKC_API.G_MISS_CHAR)
2312: THEN
2313: x_oks_batch_rules_v_rec.credit_option := l_db_oks_batch_rules_v_rec.credit_option;
2314: END IF;
2315: IF (x_oks_batch_rules_v_rec.termination_reason_code = OKC_API.G_MISS_CHAR)
2309: x_oks_batch_rules_v_rec.transaction_date := l_db_oks_batch_rules_v_rec.transaction_date;
2310: END IF;
2311: IF (x_oks_batch_rules_v_rec.credit_option = OKC_API.G_MISS_CHAR)
2312: THEN
2313: x_oks_batch_rules_v_rec.credit_option := l_db_oks_batch_rules_v_rec.credit_option;
2314: END IF;
2315: IF (x_oks_batch_rules_v_rec.termination_reason_code = OKC_API.G_MISS_CHAR)
2316: THEN
2317: x_oks_batch_rules_v_rec.termination_reason_code := l_db_oks_batch_rules_v_rec.termination_reason_code;
2311: IF (x_oks_batch_rules_v_rec.credit_option = OKC_API.G_MISS_CHAR)
2312: THEN
2313: x_oks_batch_rules_v_rec.credit_option := l_db_oks_batch_rules_v_rec.credit_option;
2314: END IF;
2315: IF (x_oks_batch_rules_v_rec.termination_reason_code = OKC_API.G_MISS_CHAR)
2316: THEN
2317: x_oks_batch_rules_v_rec.termination_reason_code := l_db_oks_batch_rules_v_rec.termination_reason_code;
2318: END IF;
2319: IF (x_oks_batch_rules_v_rec.billing_profile_id = OKC_API.G_MISS_NUM)
2313: x_oks_batch_rules_v_rec.credit_option := l_db_oks_batch_rules_v_rec.credit_option;
2314: END IF;
2315: IF (x_oks_batch_rules_v_rec.termination_reason_code = OKC_API.G_MISS_CHAR)
2316: THEN
2317: x_oks_batch_rules_v_rec.termination_reason_code := l_db_oks_batch_rules_v_rec.termination_reason_code;
2318: END IF;
2319: IF (x_oks_batch_rules_v_rec.billing_profile_id = OKC_API.G_MISS_NUM)
2320: THEN
2321: x_oks_batch_rules_v_rec.billing_profile_id := l_db_oks_batch_rules_v_rec.billing_profile_id;
2315: IF (x_oks_batch_rules_v_rec.termination_reason_code = OKC_API.G_MISS_CHAR)
2316: THEN
2317: x_oks_batch_rules_v_rec.termination_reason_code := l_db_oks_batch_rules_v_rec.termination_reason_code;
2318: END IF;
2319: IF (x_oks_batch_rules_v_rec.billing_profile_id = OKC_API.G_MISS_NUM)
2320: THEN
2321: x_oks_batch_rules_v_rec.billing_profile_id := l_db_oks_batch_rules_v_rec.billing_profile_id;
2322: END IF;
2323: IF (x_oks_batch_rules_v_rec.retain_contract_number_flag = OKC_API.G_MISS_CHAR)
2317: x_oks_batch_rules_v_rec.termination_reason_code := l_db_oks_batch_rules_v_rec.termination_reason_code;
2318: END IF;
2319: IF (x_oks_batch_rules_v_rec.billing_profile_id = OKC_API.G_MISS_NUM)
2320: THEN
2321: x_oks_batch_rules_v_rec.billing_profile_id := l_db_oks_batch_rules_v_rec.billing_profile_id;
2322: END IF;
2323: IF (x_oks_batch_rules_v_rec.retain_contract_number_flag = OKC_API.G_MISS_CHAR)
2324: THEN
2325: x_oks_batch_rules_v_rec.retain_contract_number_flag := l_db_oks_batch_rules_v_rec.retain_contract_number_flag;
2319: IF (x_oks_batch_rules_v_rec.billing_profile_id = OKC_API.G_MISS_NUM)
2320: THEN
2321: x_oks_batch_rules_v_rec.billing_profile_id := l_db_oks_batch_rules_v_rec.billing_profile_id;
2322: END IF;
2323: IF (x_oks_batch_rules_v_rec.retain_contract_number_flag = OKC_API.G_MISS_CHAR)
2324: THEN
2325: x_oks_batch_rules_v_rec.retain_contract_number_flag := l_db_oks_batch_rules_v_rec.retain_contract_number_flag;
2326: END IF;
2327: IF (x_oks_batch_rules_v_rec.contract_modifier = OKC_API.G_MISS_CHAR)
2321: x_oks_batch_rules_v_rec.billing_profile_id := l_db_oks_batch_rules_v_rec.billing_profile_id;
2322: END IF;
2323: IF (x_oks_batch_rules_v_rec.retain_contract_number_flag = OKC_API.G_MISS_CHAR)
2324: THEN
2325: x_oks_batch_rules_v_rec.retain_contract_number_flag := l_db_oks_batch_rules_v_rec.retain_contract_number_flag;
2326: END IF;
2327: IF (x_oks_batch_rules_v_rec.contract_modifier = OKC_API.G_MISS_CHAR)
2328: THEN
2329: x_oks_batch_rules_v_rec.contract_modifier := l_db_oks_batch_rules_v_rec.contract_modifier;
2323: IF (x_oks_batch_rules_v_rec.retain_contract_number_flag = OKC_API.G_MISS_CHAR)
2324: THEN
2325: x_oks_batch_rules_v_rec.retain_contract_number_flag := l_db_oks_batch_rules_v_rec.retain_contract_number_flag;
2326: END IF;
2327: IF (x_oks_batch_rules_v_rec.contract_modifier = OKC_API.G_MISS_CHAR)
2328: THEN
2329: x_oks_batch_rules_v_rec.contract_modifier := l_db_oks_batch_rules_v_rec.contract_modifier;
2330: END IF;
2331: IF (x_oks_batch_rules_v_rec.contract_status = OKC_API.G_MISS_CHAR)
2325: x_oks_batch_rules_v_rec.retain_contract_number_flag := l_db_oks_batch_rules_v_rec.retain_contract_number_flag;
2326: END IF;
2327: IF (x_oks_batch_rules_v_rec.contract_modifier = OKC_API.G_MISS_CHAR)
2328: THEN
2329: x_oks_batch_rules_v_rec.contract_modifier := l_db_oks_batch_rules_v_rec.contract_modifier;
2330: END IF;
2331: IF (x_oks_batch_rules_v_rec.contract_status = OKC_API.G_MISS_CHAR)
2332: THEN
2333: x_oks_batch_rules_v_rec.contract_status := l_db_oks_batch_rules_v_rec.contract_status;
2327: IF (x_oks_batch_rules_v_rec.contract_modifier = OKC_API.G_MISS_CHAR)
2328: THEN
2329: x_oks_batch_rules_v_rec.contract_modifier := l_db_oks_batch_rules_v_rec.contract_modifier;
2330: END IF;
2331: IF (x_oks_batch_rules_v_rec.contract_status = OKC_API.G_MISS_CHAR)
2332: THEN
2333: x_oks_batch_rules_v_rec.contract_status := l_db_oks_batch_rules_v_rec.contract_status;
2334: END IF;
2335: IF (x_oks_batch_rules_v_rec.transfer_notes_flag = OKC_API.G_MISS_CHAR)
2329: x_oks_batch_rules_v_rec.contract_modifier := l_db_oks_batch_rules_v_rec.contract_modifier;
2330: END IF;
2331: IF (x_oks_batch_rules_v_rec.contract_status = OKC_API.G_MISS_CHAR)
2332: THEN
2333: x_oks_batch_rules_v_rec.contract_status := l_db_oks_batch_rules_v_rec.contract_status;
2334: END IF;
2335: IF (x_oks_batch_rules_v_rec.transfer_notes_flag = OKC_API.G_MISS_CHAR)
2336: THEN
2337: x_oks_batch_rules_v_rec.transfer_notes_flag := l_db_oks_batch_rules_v_rec.transfer_notes_flag;
2331: IF (x_oks_batch_rules_v_rec.contract_status = OKC_API.G_MISS_CHAR)
2332: THEN
2333: x_oks_batch_rules_v_rec.contract_status := l_db_oks_batch_rules_v_rec.contract_status;
2334: END IF;
2335: IF (x_oks_batch_rules_v_rec.transfer_notes_flag = OKC_API.G_MISS_CHAR)
2336: THEN
2337: x_oks_batch_rules_v_rec.transfer_notes_flag := l_db_oks_batch_rules_v_rec.transfer_notes_flag;
2338: END IF;
2339: IF (x_oks_batch_rules_v_rec.transfer_attachments_flag = OKC_API.G_MISS_CHAR)
2333: x_oks_batch_rules_v_rec.contract_status := l_db_oks_batch_rules_v_rec.contract_status;
2334: END IF;
2335: IF (x_oks_batch_rules_v_rec.transfer_notes_flag = OKC_API.G_MISS_CHAR)
2336: THEN
2337: x_oks_batch_rules_v_rec.transfer_notes_flag := l_db_oks_batch_rules_v_rec.transfer_notes_flag;
2338: END IF;
2339: IF (x_oks_batch_rules_v_rec.transfer_attachments_flag = OKC_API.G_MISS_CHAR)
2340: THEN
2341: x_oks_batch_rules_v_rec.transfer_attachments_flag := l_db_oks_batch_rules_v_rec.transfer_attachments_flag;
2335: IF (x_oks_batch_rules_v_rec.transfer_notes_flag = OKC_API.G_MISS_CHAR)
2336: THEN
2337: x_oks_batch_rules_v_rec.transfer_notes_flag := l_db_oks_batch_rules_v_rec.transfer_notes_flag;
2338: END IF;
2339: IF (x_oks_batch_rules_v_rec.transfer_attachments_flag = OKC_API.G_MISS_CHAR)
2340: THEN
2341: x_oks_batch_rules_v_rec.transfer_attachments_flag := l_db_oks_batch_rules_v_rec.transfer_attachments_flag;
2342: END IF;
2343: IF (x_oks_batch_rules_v_rec.bill_lines_flag = OKC_API.G_MISS_CHAR)
2337: x_oks_batch_rules_v_rec.transfer_notes_flag := l_db_oks_batch_rules_v_rec.transfer_notes_flag;
2338: END IF;
2339: IF (x_oks_batch_rules_v_rec.transfer_attachments_flag = OKC_API.G_MISS_CHAR)
2340: THEN
2341: x_oks_batch_rules_v_rec.transfer_attachments_flag := l_db_oks_batch_rules_v_rec.transfer_attachments_flag;
2342: END IF;
2343: IF (x_oks_batch_rules_v_rec.bill_lines_flag = OKC_API.G_MISS_CHAR)
2344: THEN
2345: x_oks_batch_rules_v_rec.bill_lines_flag := l_db_oks_batch_rules_v_rec.bill_lines_flag;
2339: IF (x_oks_batch_rules_v_rec.transfer_attachments_flag = OKC_API.G_MISS_CHAR)
2340: THEN
2341: x_oks_batch_rules_v_rec.transfer_attachments_flag := l_db_oks_batch_rules_v_rec.transfer_attachments_flag;
2342: END IF;
2343: IF (x_oks_batch_rules_v_rec.bill_lines_flag = OKC_API.G_MISS_CHAR)
2344: THEN
2345: x_oks_batch_rules_v_rec.bill_lines_flag := l_db_oks_batch_rules_v_rec.bill_lines_flag;
2346: END IF;
2347: IF (x_oks_batch_rules_v_rec.transfer_option_code = OKC_API.G_MISS_CHAR)
2341: x_oks_batch_rules_v_rec.transfer_attachments_flag := l_db_oks_batch_rules_v_rec.transfer_attachments_flag;
2342: END IF;
2343: IF (x_oks_batch_rules_v_rec.bill_lines_flag = OKC_API.G_MISS_CHAR)
2344: THEN
2345: x_oks_batch_rules_v_rec.bill_lines_flag := l_db_oks_batch_rules_v_rec.bill_lines_flag;
2346: END IF;
2347: IF (x_oks_batch_rules_v_rec.transfer_option_code = OKC_API.G_MISS_CHAR)
2348: THEN
2349: x_oks_batch_rules_v_rec.transfer_option_code := l_db_oks_batch_rules_v_rec.transfer_option_code;
2343: IF (x_oks_batch_rules_v_rec.bill_lines_flag = OKC_API.G_MISS_CHAR)
2344: THEN
2345: x_oks_batch_rules_v_rec.bill_lines_flag := l_db_oks_batch_rules_v_rec.bill_lines_flag;
2346: END IF;
2347: IF (x_oks_batch_rules_v_rec.transfer_option_code = OKC_API.G_MISS_CHAR)
2348: THEN
2349: x_oks_batch_rules_v_rec.transfer_option_code := l_db_oks_batch_rules_v_rec.transfer_option_code;
2350: END IF;
2351: IF (x_oks_batch_rules_v_rec.bill_account_id = OKC_API.G_MISS_NUM)
2345: x_oks_batch_rules_v_rec.bill_lines_flag := l_db_oks_batch_rules_v_rec.bill_lines_flag;
2346: END IF;
2347: IF (x_oks_batch_rules_v_rec.transfer_option_code = OKC_API.G_MISS_CHAR)
2348: THEN
2349: x_oks_batch_rules_v_rec.transfer_option_code := l_db_oks_batch_rules_v_rec.transfer_option_code;
2350: END IF;
2351: IF (x_oks_batch_rules_v_rec.bill_account_id = OKC_API.G_MISS_NUM)
2352: THEN
2353: x_oks_batch_rules_v_rec.bill_account_id := l_db_oks_batch_rules_v_rec.bill_account_id;
2347: IF (x_oks_batch_rules_v_rec.transfer_option_code = OKC_API.G_MISS_CHAR)
2348: THEN
2349: x_oks_batch_rules_v_rec.transfer_option_code := l_db_oks_batch_rules_v_rec.transfer_option_code;
2350: END IF;
2351: IF (x_oks_batch_rules_v_rec.bill_account_id = OKC_API.G_MISS_NUM)
2352: THEN
2353: x_oks_batch_rules_v_rec.bill_account_id := l_db_oks_batch_rules_v_rec.bill_account_id;
2354: END IF;
2355: IF (x_oks_batch_rules_v_rec.ship_account_id = OKC_API.G_MISS_NUM)
2349: x_oks_batch_rules_v_rec.transfer_option_code := l_db_oks_batch_rules_v_rec.transfer_option_code;
2350: END IF;
2351: IF (x_oks_batch_rules_v_rec.bill_account_id = OKC_API.G_MISS_NUM)
2352: THEN
2353: x_oks_batch_rules_v_rec.bill_account_id := l_db_oks_batch_rules_v_rec.bill_account_id;
2354: END IF;
2355: IF (x_oks_batch_rules_v_rec.ship_account_id = OKC_API.G_MISS_NUM)
2356: THEN
2357: x_oks_batch_rules_v_rec.ship_account_id := l_db_oks_batch_rules_v_rec.ship_account_id;
2351: IF (x_oks_batch_rules_v_rec.bill_account_id = OKC_API.G_MISS_NUM)
2352: THEN
2353: x_oks_batch_rules_v_rec.bill_account_id := l_db_oks_batch_rules_v_rec.bill_account_id;
2354: END IF;
2355: IF (x_oks_batch_rules_v_rec.ship_account_id = OKC_API.G_MISS_NUM)
2356: THEN
2357: x_oks_batch_rules_v_rec.ship_account_id := l_db_oks_batch_rules_v_rec.ship_account_id;
2358: END IF;
2359: IF (x_oks_batch_rules_v_rec.bill_address_id = OKC_API.G_MISS_NUM)
2353: x_oks_batch_rules_v_rec.bill_account_id := l_db_oks_batch_rules_v_rec.bill_account_id;
2354: END IF;
2355: IF (x_oks_batch_rules_v_rec.ship_account_id = OKC_API.G_MISS_NUM)
2356: THEN
2357: x_oks_batch_rules_v_rec.ship_account_id := l_db_oks_batch_rules_v_rec.ship_account_id;
2358: END IF;
2359: IF (x_oks_batch_rules_v_rec.bill_address_id = OKC_API.G_MISS_NUM)
2360: THEN
2361: x_oks_batch_rules_v_rec.bill_address_id := l_db_oks_batch_rules_v_rec.bill_address_id;
2355: IF (x_oks_batch_rules_v_rec.ship_account_id = OKC_API.G_MISS_NUM)
2356: THEN
2357: x_oks_batch_rules_v_rec.ship_account_id := l_db_oks_batch_rules_v_rec.ship_account_id;
2358: END IF;
2359: IF (x_oks_batch_rules_v_rec.bill_address_id = OKC_API.G_MISS_NUM)
2360: THEN
2361: x_oks_batch_rules_v_rec.bill_address_id := l_db_oks_batch_rules_v_rec.bill_address_id;
2362: END IF;
2363: IF (x_oks_batch_rules_v_rec.ship_address_id = OKC_API.G_MISS_NUM)
2357: x_oks_batch_rules_v_rec.ship_account_id := l_db_oks_batch_rules_v_rec.ship_account_id;
2358: END IF;
2359: IF (x_oks_batch_rules_v_rec.bill_address_id = OKC_API.G_MISS_NUM)
2360: THEN
2361: x_oks_batch_rules_v_rec.bill_address_id := l_db_oks_batch_rules_v_rec.bill_address_id;
2362: END IF;
2363: IF (x_oks_batch_rules_v_rec.ship_address_id = OKC_API.G_MISS_NUM)
2364: THEN
2365: x_oks_batch_rules_v_rec.ship_address_id := l_db_oks_batch_rules_v_rec.ship_address_id;
2359: IF (x_oks_batch_rules_v_rec.bill_address_id = OKC_API.G_MISS_NUM)
2360: THEN
2361: x_oks_batch_rules_v_rec.bill_address_id := l_db_oks_batch_rules_v_rec.bill_address_id;
2362: END IF;
2363: IF (x_oks_batch_rules_v_rec.ship_address_id = OKC_API.G_MISS_NUM)
2364: THEN
2365: x_oks_batch_rules_v_rec.ship_address_id := l_db_oks_batch_rules_v_rec.ship_address_id;
2366: END IF;
2367: IF (x_oks_batch_rules_v_rec.bill_contact_id = OKC_API.G_MISS_NUM)
2361: x_oks_batch_rules_v_rec.bill_address_id := l_db_oks_batch_rules_v_rec.bill_address_id;
2362: END IF;
2363: IF (x_oks_batch_rules_v_rec.ship_address_id = OKC_API.G_MISS_NUM)
2364: THEN
2365: x_oks_batch_rules_v_rec.ship_address_id := l_db_oks_batch_rules_v_rec.ship_address_id;
2366: END IF;
2367: IF (x_oks_batch_rules_v_rec.bill_contact_id = OKC_API.G_MISS_NUM)
2368: THEN
2369: x_oks_batch_rules_v_rec.bill_contact_id := l_db_oks_batch_rules_v_rec.bill_contact_id;
2363: IF (x_oks_batch_rules_v_rec.ship_address_id = OKC_API.G_MISS_NUM)
2364: THEN
2365: x_oks_batch_rules_v_rec.ship_address_id := l_db_oks_batch_rules_v_rec.ship_address_id;
2366: END IF;
2367: IF (x_oks_batch_rules_v_rec.bill_contact_id = OKC_API.G_MISS_NUM)
2368: THEN
2369: x_oks_batch_rules_v_rec.bill_contact_id := l_db_oks_batch_rules_v_rec.bill_contact_id;
2370: END IF;
2371: IF (x_oks_batch_rules_v_rec.created_by = OKC_API.G_MISS_NUM)
2365: x_oks_batch_rules_v_rec.ship_address_id := l_db_oks_batch_rules_v_rec.ship_address_id;
2366: END IF;
2367: IF (x_oks_batch_rules_v_rec.bill_contact_id = OKC_API.G_MISS_NUM)
2368: THEN
2369: x_oks_batch_rules_v_rec.bill_contact_id := l_db_oks_batch_rules_v_rec.bill_contact_id;
2370: END IF;
2371: IF (x_oks_batch_rules_v_rec.created_by = OKC_API.G_MISS_NUM)
2372: THEN
2373: x_oks_batch_rules_v_rec.created_by := l_db_oks_batch_rules_v_rec.created_by;
2367: IF (x_oks_batch_rules_v_rec.bill_contact_id = OKC_API.G_MISS_NUM)
2368: THEN
2369: x_oks_batch_rules_v_rec.bill_contact_id := l_db_oks_batch_rules_v_rec.bill_contact_id;
2370: END IF;
2371: IF (x_oks_batch_rules_v_rec.created_by = OKC_API.G_MISS_NUM)
2372: THEN
2373: x_oks_batch_rules_v_rec.created_by := l_db_oks_batch_rules_v_rec.created_by;
2374: END IF;
2375: IF (x_oks_batch_rules_v_rec.creation_date = OKC_API.G_MISS_DATE)
2369: x_oks_batch_rules_v_rec.bill_contact_id := l_db_oks_batch_rules_v_rec.bill_contact_id;
2370: END IF;
2371: IF (x_oks_batch_rules_v_rec.created_by = OKC_API.G_MISS_NUM)
2372: THEN
2373: x_oks_batch_rules_v_rec.created_by := l_db_oks_batch_rules_v_rec.created_by;
2374: END IF;
2375: IF (x_oks_batch_rules_v_rec.creation_date = OKC_API.G_MISS_DATE)
2376: THEN
2377: x_oks_batch_rules_v_rec.creation_date := l_db_oks_batch_rules_v_rec.creation_date;
2371: IF (x_oks_batch_rules_v_rec.created_by = OKC_API.G_MISS_NUM)
2372: THEN
2373: x_oks_batch_rules_v_rec.created_by := l_db_oks_batch_rules_v_rec.created_by;
2374: END IF;
2375: IF (x_oks_batch_rules_v_rec.creation_date = OKC_API.G_MISS_DATE)
2376: THEN
2377: x_oks_batch_rules_v_rec.creation_date := l_db_oks_batch_rules_v_rec.creation_date;
2378: END IF;
2379: IF (x_oks_batch_rules_v_rec.last_updated_by = OKC_API.G_MISS_NUM)
2373: x_oks_batch_rules_v_rec.created_by := l_db_oks_batch_rules_v_rec.created_by;
2374: END IF;
2375: IF (x_oks_batch_rules_v_rec.creation_date = OKC_API.G_MISS_DATE)
2376: THEN
2377: x_oks_batch_rules_v_rec.creation_date := l_db_oks_batch_rules_v_rec.creation_date;
2378: END IF;
2379: IF (x_oks_batch_rules_v_rec.last_updated_by = OKC_API.G_MISS_NUM)
2380: THEN
2381: x_oks_batch_rules_v_rec.last_updated_by := l_db_oks_batch_rules_v_rec.last_updated_by;
2375: IF (x_oks_batch_rules_v_rec.creation_date = OKC_API.G_MISS_DATE)
2376: THEN
2377: x_oks_batch_rules_v_rec.creation_date := l_db_oks_batch_rules_v_rec.creation_date;
2378: END IF;
2379: IF (x_oks_batch_rules_v_rec.last_updated_by = OKC_API.G_MISS_NUM)
2380: THEN
2381: x_oks_batch_rules_v_rec.last_updated_by := l_db_oks_batch_rules_v_rec.last_updated_by;
2382: END IF;
2383: IF (x_oks_batch_rules_v_rec.last_update_date = OKC_API.G_MISS_DATE)
2377: x_oks_batch_rules_v_rec.creation_date := l_db_oks_batch_rules_v_rec.creation_date;
2378: END IF;
2379: IF (x_oks_batch_rules_v_rec.last_updated_by = OKC_API.G_MISS_NUM)
2380: THEN
2381: x_oks_batch_rules_v_rec.last_updated_by := l_db_oks_batch_rules_v_rec.last_updated_by;
2382: END IF;
2383: IF (x_oks_batch_rules_v_rec.last_update_date = OKC_API.G_MISS_DATE)
2384: THEN
2385: x_oks_batch_rules_v_rec.last_update_date := l_db_oks_batch_rules_v_rec.last_update_date;
2379: IF (x_oks_batch_rules_v_rec.last_updated_by = OKC_API.G_MISS_NUM)
2380: THEN
2381: x_oks_batch_rules_v_rec.last_updated_by := l_db_oks_batch_rules_v_rec.last_updated_by;
2382: END IF;
2383: IF (x_oks_batch_rules_v_rec.last_update_date = OKC_API.G_MISS_DATE)
2384: THEN
2385: x_oks_batch_rules_v_rec.last_update_date := l_db_oks_batch_rules_v_rec.last_update_date;
2386: END IF;
2387: IF (x_oks_batch_rules_v_rec.last_update_login = OKC_API.G_MISS_NUM)
2381: x_oks_batch_rules_v_rec.last_updated_by := l_db_oks_batch_rules_v_rec.last_updated_by;
2382: END IF;
2383: IF (x_oks_batch_rules_v_rec.last_update_date = OKC_API.G_MISS_DATE)
2384: THEN
2385: x_oks_batch_rules_v_rec.last_update_date := l_db_oks_batch_rules_v_rec.last_update_date;
2386: END IF;
2387: IF (x_oks_batch_rules_v_rec.last_update_login = OKC_API.G_MISS_NUM)
2388: THEN
2389: x_oks_batch_rules_v_rec.last_update_login := l_db_oks_batch_rules_v_rec.last_update_login;
2383: IF (x_oks_batch_rules_v_rec.last_update_date = OKC_API.G_MISS_DATE)
2384: THEN
2385: x_oks_batch_rules_v_rec.last_update_date := l_db_oks_batch_rules_v_rec.last_update_date;
2386: END IF;
2387: IF (x_oks_batch_rules_v_rec.last_update_login = OKC_API.G_MISS_NUM)
2388: THEN
2389: x_oks_batch_rules_v_rec.last_update_login := l_db_oks_batch_rules_v_rec.last_update_login;
2390: END IF;
2391: IF (x_oks_batch_rules_v_rec.security_group_id = OKC_API.G_MISS_NUM)
2385: x_oks_batch_rules_v_rec.last_update_date := l_db_oks_batch_rules_v_rec.last_update_date;
2386: END IF;
2387: IF (x_oks_batch_rules_v_rec.last_update_login = OKC_API.G_MISS_NUM)
2388: THEN
2389: x_oks_batch_rules_v_rec.last_update_login := l_db_oks_batch_rules_v_rec.last_update_login;
2390: END IF;
2391: IF (x_oks_batch_rules_v_rec.security_group_id = OKC_API.G_MISS_NUM)
2392: THEN
2393: x_oks_batch_rules_v_rec.security_group_id := l_db_oks_batch_rules_v_rec.security_group_id;
2387: IF (x_oks_batch_rules_v_rec.last_update_login = OKC_API.G_MISS_NUM)
2388: THEN
2389: x_oks_batch_rules_v_rec.last_update_login := l_db_oks_batch_rules_v_rec.last_update_login;
2390: END IF;
2391: IF (x_oks_batch_rules_v_rec.security_group_id = OKC_API.G_MISS_NUM)
2392: THEN
2393: x_oks_batch_rules_v_rec.security_group_id := l_db_oks_batch_rules_v_rec.security_group_id;
2394: END IF;
2395: IF (x_oks_batch_rules_v_rec.request_id = OKC_API.G_MISS_NUM)
2389: x_oks_batch_rules_v_rec.last_update_login := l_db_oks_batch_rules_v_rec.last_update_login;
2390: END IF;
2391: IF (x_oks_batch_rules_v_rec.security_group_id = OKC_API.G_MISS_NUM)
2392: THEN
2393: x_oks_batch_rules_v_rec.security_group_id := l_db_oks_batch_rules_v_rec.security_group_id;
2394: END IF;
2395: IF (x_oks_batch_rules_v_rec.request_id = OKC_API.G_MISS_NUM)
2396: THEN
2397: x_oks_batch_rules_v_rec.request_id := l_db_oks_batch_rules_v_rec.request_id;
2391: IF (x_oks_batch_rules_v_rec.security_group_id = OKC_API.G_MISS_NUM)
2392: THEN
2393: x_oks_batch_rules_v_rec.security_group_id := l_db_oks_batch_rules_v_rec.security_group_id;
2394: END IF;
2395: IF (x_oks_batch_rules_v_rec.request_id = OKC_API.G_MISS_NUM)
2396: THEN
2397: x_oks_batch_rules_v_rec.request_id := l_db_oks_batch_rules_v_rec.request_id;
2398: END IF;
2399: END IF;
2393: x_oks_batch_rules_v_rec.security_group_id := l_db_oks_batch_rules_v_rec.security_group_id;
2394: END IF;
2395: IF (x_oks_batch_rules_v_rec.request_id = OKC_API.G_MISS_NUM)
2396: THEN
2397: x_oks_batch_rules_v_rec.request_id := l_db_oks_batch_rules_v_rec.request_id;
2398: END IF;
2399: END IF;
2400: RETURN(l_return_status);
2401: END populate_new_record;
2399: END IF;
2400: RETURN(l_return_status);
2401: END populate_new_record;
2402: ------------------------------------------
2403: -- Set_Attributes for:OKS_BATCH_RULES_V --
2404: ------------------------------------------
2405: FUNCTION Set_Attributes (
2406: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
2407: x_oks_batch_rules_v_rec OUT NOCOPY oks_batch_rules_v_rec_type
2402: ------------------------------------------
2403: -- Set_Attributes for:OKS_BATCH_RULES_V --
2404: ------------------------------------------
2405: FUNCTION Set_Attributes (
2406: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
2407: x_oks_batch_rules_v_rec OUT NOCOPY oks_batch_rules_v_rec_type
2408: ) RETURN VARCHAR2 IS
2409: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2410: BEGIN
2403: -- Set_Attributes for:OKS_BATCH_RULES_V --
2404: ------------------------------------------
2405: FUNCTION Set_Attributes (
2406: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type,
2407: x_oks_batch_rules_v_rec OUT NOCOPY oks_batch_rules_v_rec_type
2408: ) RETURN VARCHAR2 IS
2409: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2410: BEGIN
2411: x_oks_batch_rules_v_rec := p_oks_batch_rules_v_rec;
2407: x_oks_batch_rules_v_rec OUT NOCOPY oks_batch_rules_v_rec_type
2408: ) RETURN VARCHAR2 IS
2409: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2410: BEGIN
2411: x_oks_batch_rules_v_rec := p_oks_batch_rules_v_rec;
2412: RETURN(l_return_status);
2413: END Set_Attributes;
2414: BEGIN
2415: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2425: RAISE OKC_API.G_EXCEPTION_ERROR;
2426: END IF;
2427: --- Setting item attributes
2428: l_return_status := Set_Attributes(
2429: p_oks_batch_rules_v_rec, -- IN
2430: x_oks_batch_rules_v_rec); -- OUT
2431: --- If any errors happen abort API
2432: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2433: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2426: END IF;
2427: --- Setting item attributes
2428: l_return_status := Set_Attributes(
2429: p_oks_batch_rules_v_rec, -- IN
2430: x_oks_batch_rules_v_rec); -- OUT
2431: --- If any errors happen abort API
2432: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2433: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2434: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2433: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2434: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2435: RAISE OKC_API.G_EXCEPTION_ERROR;
2436: END IF;
2437: l_return_status := populate_new_record(l_oks_batch_rules_v_rec, l_def_oks_batch_rules_v_rec);
2438: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2439: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2440: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2441: RAISE OKC_API.G_EXCEPTION_ERROR;
2439: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2440: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2441: RAISE OKC_API.G_EXCEPTION_ERROR;
2442: END IF;
2443: l_def_oks_batch_rules_v_rec := fill_who_columns(l_def_oks_batch_rules_v_rec);
2444: --- Validate all non-missing attributes (Item Level Validation)
2445: l_return_status := Validate_Attributes(l_def_oks_batch_rules_v_rec);
2446: --- If any errors happen abort API
2447: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2441: RAISE OKC_API.G_EXCEPTION_ERROR;
2442: END IF;
2443: l_def_oks_batch_rules_v_rec := fill_who_columns(l_def_oks_batch_rules_v_rec);
2444: --- Validate all non-missing attributes (Item Level Validation)
2445: l_return_status := Validate_Attributes(l_def_oks_batch_rules_v_rec);
2446: --- If any errors happen abort API
2447: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2448: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2449: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2448: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2449: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2450: RAISE OKC_API.G_EXCEPTION_ERROR;
2451: END IF;
2452: l_return_status := Validate_Record(l_def_oks_batch_rules_v_rec, l_db_oks_batch_rules_v_rec);
2453: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2454: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2455: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2456: RAISE OKC_API.G_EXCEPTION_ERROR;
2462: p_init_msg_list => p_init_msg_list,
2463: x_return_status => l_return_status,
2464: x_msg_count => x_msg_count,
2465: x_msg_data => x_msg_data,
2466: p_oks_batch_rules_v_rec => p_oks_batch_rules_v_rec);
2467: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2468: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2469: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2470: RAISE OKC_API.G_EXCEPTION_ERROR;
2472:
2473: -----------------------------------------
2474: -- Move VIEW record to "Child" records --
2475: -----------------------------------------
2476: migrate(l_def_oks_batch_rules_v_rec, l_obtr_rec);
2477: -----------------------------------------------
2478: -- Call the UPDATE_ROW for each child record --
2479: -----------------------------------------------
2480: update_row(
2489: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2490: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2491: RAISE OKC_API.G_EXCEPTION_ERROR;
2492: END IF;
2493: migrate(lx_obtr_rec, l_def_oks_batch_rules_v_rec);
2494: x_oks_batch_rules_v_rec := l_def_oks_batch_rules_v_rec;
2495: x_return_status := l_return_status;
2496: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2497: EXCEPTION
2490: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2491: RAISE OKC_API.G_EXCEPTION_ERROR;
2492: END IF;
2493: migrate(lx_obtr_rec, l_def_oks_batch_rules_v_rec);
2494: x_oks_batch_rules_v_rec := l_def_oks_batch_rules_v_rec;
2495: x_return_status := l_return_status;
2496: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2497: EXCEPTION
2498: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2526: '_PVT'
2527: );
2528: END update_row;
2529: -----------------------------------------------------
2530: -- PL/SQL TBL update_row for:oks_batch_rules_v_tbl --
2531: -----------------------------------------------------
2532: PROCEDURE update_row(
2533: p_api_version IN NUMBER,
2534: p_init_msg_list IN VARCHAR2,
2534: p_init_msg_list IN VARCHAR2,
2535: x_return_status OUT NOCOPY VARCHAR2,
2536: x_msg_count OUT NOCOPY NUMBER,
2537: x_msg_data OUT NOCOPY VARCHAR2,
2538: p_oks_batch_rules_v_tbl IN oks_batch_rules_v_tbl_type,
2539: x_oks_batch_rules_v_tbl OUT NOCOPY oks_batch_rules_v_tbl_type,
2540: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
2541:
2542: l_api_version CONSTANT NUMBER := 1;
2535: x_return_status OUT NOCOPY VARCHAR2,
2536: x_msg_count OUT NOCOPY NUMBER,
2537: x_msg_data OUT NOCOPY VARCHAR2,
2538: p_oks_batch_rules_v_tbl IN oks_batch_rules_v_tbl_type,
2539: x_oks_batch_rules_v_tbl OUT NOCOPY oks_batch_rules_v_tbl_type,
2540: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
2541:
2542: l_api_version CONSTANT NUMBER := 1;
2543: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
2544: i NUMBER := 0;
2545: BEGIN
2546: OKC_API.init_msg_list(p_init_msg_list);
2547: -- Make sure PL/SQL table has records in it before passing
2548: IF (p_oks_batch_rules_v_tbl.COUNT > 0) THEN
2549: i := p_oks_batch_rules_v_tbl.FIRST;
2550: LOOP
2551: DECLARE
2552: l_error_rec OKC_API.ERROR_REC_TYPE;
2545: BEGIN
2546: OKC_API.init_msg_list(p_init_msg_list);
2547: -- Make sure PL/SQL table has records in it before passing
2548: IF (p_oks_batch_rules_v_tbl.COUNT > 0) THEN
2549: i := p_oks_batch_rules_v_tbl.FIRST;
2550: LOOP
2551: DECLARE
2552: l_error_rec OKC_API.ERROR_REC_TYPE;
2553: BEGIN
2559: p_init_msg_list => OKC_API.G_FALSE,
2560: x_return_status => l_error_rec.error_type,
2561: x_msg_count => l_error_rec.msg_count,
2562: x_msg_data => l_error_rec.msg_data,
2563: p_oks_batch_rules_v_rec => p_oks_batch_rules_v_tbl(i),
2564: x_oks_batch_rules_v_rec => x_oks_batch_rules_v_tbl(i));
2565: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
2566: l_error_rec.sqlcode := SQLCODE;
2567: load_error_tbl(l_error_rec, px_error_tbl);
2560: x_return_status => l_error_rec.error_type,
2561: x_msg_count => l_error_rec.msg_count,
2562: x_msg_data => l_error_rec.msg_data,
2563: p_oks_batch_rules_v_rec => p_oks_batch_rules_v_tbl(i),
2564: x_oks_batch_rules_v_rec => x_oks_batch_rules_v_tbl(i));
2565: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
2566: l_error_rec.sqlcode := SQLCODE;
2567: load_error_tbl(l_error_rec, px_error_tbl);
2568: ELSE
2582: l_error_rec.error_type := 'OTHERS';
2583: l_error_rec.sqlcode := SQLCODE;
2584: load_error_tbl(l_error_rec, px_error_tbl);
2585: END;
2586: EXIT WHEN (i = p_oks_batch_rules_v_tbl.LAST);
2587: i := p_oks_batch_rules_v_tbl.NEXT(i);
2588: END LOOP;
2589: END IF;
2590: -- Loop through the error_tbl to find the error with the highest severity
2583: l_error_rec.sqlcode := SQLCODE;
2584: load_error_tbl(l_error_rec, px_error_tbl);
2585: END;
2586: EXIT WHEN (i = p_oks_batch_rules_v_tbl.LAST);
2587: i := p_oks_batch_rules_v_tbl.NEXT(i);
2588: END LOOP;
2589: END IF;
2590: -- Loop through the error_tbl to find the error with the highest severity
2591: -- and return it.
2624: );
2625: END update_row;
2626:
2627: -----------------------------------------------------
2628: -- PL/SQL TBL update_row for:OKS_BATCH_RULES_V_TBL --
2629: -----------------------------------------------------
2630: -- This procedure is the same as the one above except it does not have a "px_error_tbl" argument.
2631: -- This procedure was create for backward compatibility and simply is a wrapper for the one above.
2632: PROCEDURE update_row(
2634: p_init_msg_list IN VARCHAR2,
2635: x_return_status OUT NOCOPY VARCHAR2,
2636: x_msg_count OUT NOCOPY NUMBER,
2637: x_msg_data OUT NOCOPY VARCHAR2,
2638: p_oks_batch_rules_v_tbl IN oks_batch_rules_v_tbl_type,
2639: x_oks_batch_rules_v_tbl OUT NOCOPY oks_batch_rules_v_tbl_type) IS
2640:
2641: l_api_version CONSTANT NUMBER := 1;
2642: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2635: x_return_status OUT NOCOPY VARCHAR2,
2636: x_msg_count OUT NOCOPY NUMBER,
2637: x_msg_data OUT NOCOPY VARCHAR2,
2638: p_oks_batch_rules_v_tbl IN oks_batch_rules_v_tbl_type,
2639: x_oks_batch_rules_v_tbl OUT NOCOPY oks_batch_rules_v_tbl_type) IS
2640:
2641: l_api_version CONSTANT NUMBER := 1;
2642: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2643: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2644: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2645: BEGIN
2646: OKC_API.init_msg_list(p_init_msg_list);
2647: -- Make sure PL/SQL table has records in it before passing
2648: IF (p_oks_batch_rules_v_tbl.COUNT > 0) THEN
2649: update_row (
2650: p_api_version => p_api_version,
2651: p_init_msg_list => OKC_API.G_FALSE,
2652: x_return_status => x_return_status,
2651: p_init_msg_list => OKC_API.G_FALSE,
2652: x_return_status => x_return_status,
2653: x_msg_count => x_msg_count,
2654: x_msg_data => x_msg_data,
2655: p_oks_batch_rules_v_tbl => p_oks_batch_rules_v_tbl,
2656: x_oks_batch_rules_v_tbl => x_oks_batch_rules_v_tbl,
2657: px_error_tbl => l_error_tbl);
2658: END IF;
2659: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2652: x_return_status => x_return_status,
2653: x_msg_count => x_msg_count,
2654: x_msg_data => x_msg_data,
2655: p_oks_batch_rules_v_tbl => p_oks_batch_rules_v_tbl,
2656: x_oks_batch_rules_v_tbl => x_oks_batch_rules_v_tbl,
2657: px_error_tbl => l_error_tbl);
2658: END IF;
2659: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2660: EXCEPTION
2693: ---------------------------------------------------------------------------
2694: -- PROCEDURE delete_row
2695: ---------------------------------------------------------------------------
2696: ------------------------------------
2697: -- delete_row for:OKS_BATCH_RULES --
2698: ------------------------------------
2699: PROCEDURE delete_row(
2700: p_init_msg_list IN VARCHAR2,
2701: x_return_status OUT NOCOPY VARCHAR2,
2718: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2719: RAISE OKC_API.G_EXCEPTION_ERROR;
2720: END IF;
2721:
2722: DELETE FROM OKS_BATCH_RULES
2723: WHERE BATCH_ID = p_obtr_rec.batch_id;
2724:
2725: x_return_status := l_return_status;
2726: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2756: '_PVT'
2757: );
2758: END delete_row;
2759: --------------------------------------
2760: -- delete_row for:OKS_BATCH_RULES_V --
2761: --------------------------------------
2762: PROCEDURE delete_row(
2763: p_api_version IN NUMBER,
2764: p_init_msg_list IN VARCHAR2,
2764: p_init_msg_list IN VARCHAR2,
2765: x_return_status OUT NOCOPY VARCHAR2,
2766: x_msg_count OUT NOCOPY NUMBER,
2767: x_msg_data OUT NOCOPY VARCHAR2,
2768: p_oks_batch_rules_v_rec IN oks_batch_rules_v_rec_type) IS
2769:
2770: l_api_version CONSTANT NUMBER := 1;
2771: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2772: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2769:
2770: l_api_version CONSTANT NUMBER := 1;
2771: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2772: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2773: l_oks_batch_rules_v_rec oks_batch_rules_v_rec_type := p_oks_batch_rules_v_rec;
2774: l_obtr_rec obtr_rec_type;
2775: BEGIN
2776: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2777: G_PKG_NAME,
2787: END IF;
2788: -----------------------------------------
2789: -- Move VIEW record to "Child" records --
2790: -----------------------------------------
2791: migrate(l_oks_batch_rules_v_rec, l_obtr_rec);
2792: -----------------------------------------------
2793: -- Call the DELETE_ROW for each child record --
2794: -----------------------------------------------
2795: delete_row(
2838: '_PVT'
2839: );
2840: END delete_row;
2841: -------------------------------------------------
2842: -- PL/SQL TBL delete_row for:OKS_BATCH_RULES_V --
2843: -------------------------------------------------
2844: PROCEDURE delete_row(
2845: p_api_version IN NUMBER,
2846: p_init_msg_list IN VARCHAR2,
2846: p_init_msg_list IN VARCHAR2,
2847: x_return_status OUT NOCOPY VARCHAR2,
2848: x_msg_count OUT NOCOPY NUMBER,
2849: x_msg_data OUT NOCOPY VARCHAR2,
2850: p_oks_batch_rules_v_tbl IN oks_batch_rules_v_tbl_type,
2851: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
2852:
2853: l_api_version CONSTANT NUMBER := 1;
2854: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
2855: i NUMBER := 0;
2856: BEGIN
2857: OKC_API.init_msg_list(p_init_msg_list);
2858: -- Make sure PL/SQL table has records in it before passing
2859: IF (p_oks_batch_rules_v_tbl.COUNT > 0) THEN
2860: i := p_oks_batch_rules_v_tbl.FIRST;
2861: LOOP
2862: DECLARE
2863: l_error_rec OKC_API.ERROR_REC_TYPE;
2856: BEGIN
2857: OKC_API.init_msg_list(p_init_msg_list);
2858: -- Make sure PL/SQL table has records in it before passing
2859: IF (p_oks_batch_rules_v_tbl.COUNT > 0) THEN
2860: i := p_oks_batch_rules_v_tbl.FIRST;
2861: LOOP
2862: DECLARE
2863: l_error_rec OKC_API.ERROR_REC_TYPE;
2864: BEGIN
2870: p_init_msg_list => OKC_API.G_FALSE,
2871: x_return_status => l_error_rec.error_type,
2872: x_msg_count => l_error_rec.msg_count,
2873: x_msg_data => l_error_rec.msg_data,
2874: p_oks_batch_rules_v_rec => p_oks_batch_rules_v_tbl(i));
2875: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
2876: l_error_rec.sqlcode := SQLCODE;
2877: load_error_tbl(l_error_rec, px_error_tbl);
2878: ELSE
2892: l_error_rec.error_type := 'OTHERS';
2893: l_error_rec.sqlcode := SQLCODE;
2894: load_error_tbl(l_error_rec, px_error_tbl);
2895: END;
2896: EXIT WHEN (i = p_oks_batch_rules_v_tbl.LAST);
2897: i := p_oks_batch_rules_v_tbl.NEXT(i);
2898: END LOOP;
2899: END IF;
2900: -- Loop through the error_tbl to find the error with the highest severity
2893: l_error_rec.sqlcode := SQLCODE;
2894: load_error_tbl(l_error_rec, px_error_tbl);
2895: END;
2896: EXIT WHEN (i = p_oks_batch_rules_v_tbl.LAST);
2897: i := p_oks_batch_rules_v_tbl.NEXT(i);
2898: END LOOP;
2899: END IF;
2900: -- Loop through the error_tbl to find the error with the highest severity
2901: -- and return it.
2934: );
2935: END delete_row;
2936:
2937: -------------------------------------------------
2938: -- PL/SQL TBL delete_row for:OKS_BATCH_RULES_V --
2939: -------------------------------------------------
2940: PROCEDURE delete_row(
2941: p_api_version IN NUMBER,
2942: p_init_msg_list IN VARCHAR2,
2942: p_init_msg_list IN VARCHAR2,
2943: x_return_status OUT NOCOPY VARCHAR2,
2944: x_msg_count OUT NOCOPY NUMBER,
2945: x_msg_data OUT NOCOPY VARCHAR2,
2946: p_oks_batch_rules_v_tbl IN oks_batch_rules_v_tbl_type) IS
2947:
2948: l_api_version CONSTANT NUMBER := 1;
2949: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2950: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2951: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2952: BEGIN
2953: OKC_API.init_msg_list(p_init_msg_list);
2954: -- Make sure PL/SQL table has records in it before passing
2955: IF (p_oks_batch_rules_v_tbl.COUNT > 0) THEN
2956: delete_row (
2957: p_api_version => p_api_version,
2958: p_init_msg_list => OKC_API.G_FALSE,
2959: x_return_status => x_return_status,
2958: p_init_msg_list => OKC_API.G_FALSE,
2959: x_return_status => x_return_status,
2960: x_msg_count => x_msg_count,
2961: x_msg_data => x_msg_data,
2962: p_oks_batch_rules_v_tbl => p_oks_batch_rules_v_tbl,
2963: px_error_tbl => l_error_tbl);
2964: END IF;
2965: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2966: EXCEPTION