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