1 PACKAGE BODY ARP_ACCT_HOOK AS
2 /* $Header: ARHOOKB.pls 115.2 99/07/16 23:59:01 porting s $ */
3
4 /*========================================================================
5 | PUBLIC PROCEDURE Override_Ae_Lines
6 |
7 | DESCRIPTION
8 | Overrides Accounting entry lines of a Document
9 | -----------------------------------------------
10 | This procedure is part of a user hook which overrides the actual
11 | accounting lines created by the MAIN routines for a given document
12 | to enable the user to build the accounting.
13 |
14 | PARAMETERS
15 | p_mode IN ONE or ALL Entities
16 | p_ae_doc_rec IN Document record
17 | p_ae_event_rec IN Event Record
18 | p_ae_line_tbl OUT Accounting lines table
19 | p_ae_created OUT Created accounting boolean
20 | p_replace_default_processing OUT Values Y or N
21 *=======================================================================*/
22 PROCEDURE Override_Ae_Lines(
23 p_mode IN VARCHAR2,
24 p_ae_doc_rec IN ae_doc_rec_type,
25 p_ae_event_rec IN ae_event_rec_type,
26 p_ae_line_tbl OUT ae_line_tbl_type,
27 p_ae_created OUT BOOLEAN,
28 p_replace_default_processing OUT BOOLEAN) IS
29
30 l_ae_line_tbl ae_line_tbl_type;
31 BEGIN
32 arp_standard.debug( 'ARP_ACCT_HOOK.Override_Ae_Lines()+');
33
34 p_replace_default_processing := FALSE;
35 p_ae_created := FALSE;
36 p_ae_line_tbl := l_ae_line_tbl;
37
38 arp_standard.debug( 'ARP_ACCT_HOOK.Override_Ae_Lines()-');
39
40 EXCEPTION
41 WHEN OTHERS THEN
42 arp_standard.debug('EXCEPTION: ARP_ACCT_HOOK.Override_Ae_Lines');
43 RAISE;
44
45 END Override_Ae_Lines;
46
47 /*========================================================================
48 | PUBLIC PROCEDURE Override_Account
49 |
50 | DESCRIPTION
51 | Overrides the accounts created by the MAIN accounting routines
52 | --------------------------------------------------------------
53 | Enables the user to override an existing code combination id
54 | for accounts associated with accounting entry lines built for a
55 | Document.
56 |
57 | PARAMETERS
58 | p_mode IN ONE or ALL Entities
59 | p_ae_doc_rec IN Document record
60 | p_ae_event_rec IN Event Record
61 | p_ae_line_rec IN Accounting line record
62 | p_account OUT Actual account
63 | p_account_valid OUT Valid account flag
64 | p_replace_default_account OUT Override default account
65 *=======================================================================*/
66 PROCEDURE Override_Account(
67 p_mode IN VARCHAR2,
68 p_ae_doc_rec IN ae_doc_rec_type,
69 p_ae_event_rec IN ae_event_rec_type,
70 p_ae_line_rec IN ae_line_rec_type,
71 p_account OUT NUMBER,
72 p_account_valid OUT BOOLEAN,
73 p_replace_default_account OUT BOOLEAN ) IS
74 BEGIN
75
76 arp_standard.debug( 'ARP_ACCT_HOOK.Override_Account()+');
77
78 p_replace_default_account := FALSE;
79 p_account_valid := FALSE;
80 p_account := -1;
81
82 arp_standard.debug( 'ARP_ACCT_HOOK.Override_Account()-');
83
84 EXCEPTION
85 WHEN OTHERS THEN
86 arp_standard.debug('EXCEPTION: ARP_ACCT_HOOK.Override_Account');
87 RAISE;
88
89 END Override_Account;
90
91 END ARP_ACCT_HOOK;