PACKAGE BODY: APPS.IBY_PAYINSTR_UTILS_PKG

Source

1 PACKAGE BODY IBY_PAYINSTR_UTILS_PKG AS
2 /*$Header: ibypiutb.pls 120.5.12020000.2 2012/07/12 15:03:35 sgogula ship $*/
3 
4  /*
5   * Declare global variables
6   */
7  G_PKG_NAME CONSTANT VARCHAR2(30) := 'IBY_PAYINSTR_UTILS_PKG';
8  G_CURRENT_RUNTIME_LEVEL      CONSTANT NUMBER       := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9  G_LEVEL_STATEMENT            CONSTANT NUMBER       := FND_LOG.LEVEL_STATEMENT;
10  --
11  -- List of instruction statuses that are used / set in this
12  -- module.
13  --
14  INS_STATUS_CREATED        CONSTANT VARCHAR2(100) := 'CREATED';
15  INS_STATUS_FAIL_VALID     CONSTANT VARCHAR2(100) := 'FAILED_VALIDATION';
16  INS_STATUS_CREAT_ERROR    CONSTANT VARCHAR2(100) := 'CREATION_ERROR';
17 
18  --
19  -- List of transaction error statuses that are used / set in this
20  -- module.
21  --
22  TRXN_ERROR_ACTIVE         CONSTANT VARCHAR2(100) := 'ACTIVE';
23 
24 /*--------------------------------------------------------------------
25  | NAME:
26  |     print_debuginfo
27  |
28  | PURPOSE:
29  |
30  |
31  | PARAMETERS:
32  |     IN
33  |
34  |
35  |     OUT
36  |
37  |
38  | RETURNS:
39  |
40  | NOTES:
41  |
42  *---------------------------------------------------------------------*/
43  PROCEDURE print_debuginfo(p_module IN VARCHAR2,
44      p_debug_text IN VARCHAR2
45      )
46  IS
47 
48  BEGIN
49 
50      /*
51       * Write the debug message to the concurrent manager log file.
52       */
53      iby_build_utils_pkg.print_debuginfo(p_module, p_debug_text);
54 
55  END print_debuginfo;
56 
57 /*--------------------------------------------------------------------
58  | NAME:
59  |     createErrorRecord
60  |
61  | PURPOSE:
62  |
63  | PARAMETERS:
64  |     IN
65  |
66  |     OUT
67  |
68  |
69  | RETURNS:
70  |
71  | NOTES:
72  |
73  *---------------------------------------------------------------------*/
74  PROCEDURE createErrorRecord(
75      p_ins_id        IN IBY_PAY_INSTRUCTIONS_ALL.payment_instruction_id%TYPE,
76      p_ins_status    IN IBY_PAY_INSTRUCTIONS_ALL.
77                             payment_instruction_status%TYPE,
78      p_error_code    IN IBY_TRANSACTION_ERRORS.error_code%TYPE
79                            DEFAULT NULL,
80      p_error_msg     IN IBY_TRANSACTION_ERRORS.error_message%TYPE
81                            DEFAULT NULL,
82      p_override_flag IN IBY_TRANSACTION_ERRORS.
83                             override_allowed_on_error_flag%TYPE
84                             DEFAULT 'N',
85      x_docErrorRec   IN OUT NOCOPY IBY_TRANSACTION_ERRORS%ROWTYPE
86      )
87  IS
88 
89  l_module_name  VARCHAR2(200) := G_PKG_NAME || '.createErrorRecord';
90 
91  BEGIN
92 
93      IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
94 	     print_debuginfo(l_module_name, 'ENTER');
95 
96      END IF;
97      x_docErrorRec.validation_set_code := 'CORE_INSTRUCTION_VALIDATION';
98      x_docErrorRec.transaction_type    := 'PAYMENT_INSTRUCTION';
99 
100      x_docErrorRec.transaction_id      := p_ins_id;
101 
102      x_docErrorRec.error_date          := sysdate;
103      x_docErrorRec.error_status        := TRXN_ERROR_ACTIVE;
104 
105      x_docErrorRec.error_code          := p_error_code;
106      x_docErrorRec.error_message       := p_error_msg;
107 
108      x_docErrorRec.override_allowed_on_error_flag := p_override_flag;
109 
110      IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
111 	     print_debuginfo(l_module_name, 'EXIT');
112 
113      END IF;
114  END createErrorRecord;
115 
116 END IBY_PAYINSTR_UTILS_PKG;