[Home] [Help]
PACKAGE BODY: APPS.ARI_REG_VERIFICATIONS_PKG
Source
1 PACKAGE BODY ARI_REG_VERIFICATIONS_PKG as
2 /* $Header: ARIREGVB.pls 120.1 2005/07/05 04:40:59 vnb noship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR(31) := 'ARI_REG_VERIFICATIONS_PKG';
5
6 ------------------------------------------------------------------------------
7 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
8
9 PROCEDURE Insert_Row(
10 x_rowid IN OUT NOCOPY VARCHAR2,
11 x_client_ip_address VARCHAR2,
12 x_question VARCHAR2,
13 x_expected_answer VARCHAR2,
14 x_currency_code VARCHAR2,
15 x_first_answer VARCHAR2 DEFAULT NULL,
16 x_second_answer VARCHAR2 DEFAULT NULL,
17 x_third_answer VARCHAR2 DEFAULT NULL,
18 x_number_of_attempts NUMBER DEFAULT 0,
19 x_result_code VARCHAR2 DEFAULT NULL,
20 x_customer_id NUMBER,
21 x_customer_site_use_id NUMBER DEFAULT NULL,
22 x_last_update_login NUMBER,
23 x_last_update_date DATE,
24 x_last_updated_by NUMBER,
25 x_creation_date DATE,
26 x_created_by NUMBER)
27 ------------------------------------------------------------------------------
28 IS
29
30 l_procedure_name VARCHAR2(31) := '.Insert_Row';
31 l_debug_info VARCHAR2(200);
32 BEGIN
33
34 ----------------------------------------------------------------------------
35 l_debug_info := 'In debug mode, log we have entered this procedure';
36 ----------------------------------------------------------------------------
37 IF (PG_DEBUG = 'Y') THEN
38 arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
39 END IF;
40
41 ----------------------------------------------------------------------------
42 l_debug_info := 'Insert into ari_reg_verifications_gt';
43 ----------------------------------------------------------------------------
44 IF (PG_DEBUG = 'Y') THEN
45 arp_standard.debug(l_debug_info);
46 END IF;
47
48 INSERT INTO ARI_REG_VERIFICATIONS_GT(
49 client_ip_address,
50 question,
51 expected_answer,
52 currency_code,
53 first_answer,
54 second_answer,
55 third_answer,
56 number_of_attempts,
57 result_code,
58 customer_id,
59 customer_site_use_id,
60 last_update_login,
61 last_update_date,
62 last_updated_by,
63 creation_date,
64 created_by
65 ) VALUES (
66 x_client_ip_address,
67 x_question,
68 x_expected_answer,
69 x_currency_code,
70 x_first_answer,
71 x_second_answer,
72 x_third_answer,
73 x_number_of_attempts,
74 x_result_code,
75 x_customer_id,
76 x_customer_site_use_id,
77 x_last_update_login,
78 x_last_update_date,
79 x_last_updated_by,
80 x_creation_date,
81 x_created_by);
82
83 l_debug_info := 'After insert';
84
85 IF (PG_DEBUG = 'Y') THEN
86 arp_standard.debug(l_debug_info);
87 END IF;
88
89 ----------------------------------------------------------------------------
90 l_debug_info := 'In debug mode, log that we have exited this procedure';
91 ----------------------------------------------------------------------------
92 IF (PG_DEBUG = 'Y') THEN
93 arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
94 END IF;
95
96 EXCEPTION
97 WHEN OTHERS THEN
98 IF (SQLCODE <> -20001) THEN
99 IF (PG_DEBUG = 'Y') THEN
100 arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
101 arp_standard.debug('Debug: ' || l_debug_info);
102 arp_standard.debug(SQLERRM);
103 END IF;
104 FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
105 FND_MSG_PUB.ADD;
106 END IF;
107 APP_EXCEPTION.RAISE_EXCEPTION;
108 END Insert_Row;
109
110 END ARI_REG_VERIFICATIONS_PKG;