PACKAGE BODY: APPS.IBY_PAYINSTR_UTILS_PKG

Source

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