[Home] [Help]
PACKAGE BODY: APPS.JAI_ARRA_TRG_PKG
Source
1 PACKAGE BODY jai_arra_trg_pkg AS
2 /* $Header: jai_arra_trg.plb 120.1.12000000.1 2007/07/24 06:55:42 rallamse noship $ */
3
4
5 /***************************************************************************************************
6 CREATED BY : CSahoo
7 CREATED DATE : 01-FEB-2007
8 ENHANCEMENT BUG : 5631784
9 PURPOSE : NEW ENH: TAX COLLECTION AT SOURCE IN RECEIVABLES
10
11 -- #
12 -- # Change History -
13
14
15 1. 01/02/2007 CSahoo for bug#5631784. File Version 120.0
16 Forward Porting of 11i BUG#4742259 (TAX COLLECTION AT SOURCE IN RECEIVABLES)
17
18 *******************************************************************************************************/
19
20 /* Package levek variables used in debug package */
21 lv_object_name jai_cmn_debug_contexts.LOG_CONTEXT%TYPE DEFAULT 'TCS.JAI_ARRA_TRG_PKG';
22 lv_member_name jai_cmn_debug_contexts.LOG_CONTEXT%TYPE;
23 lv_context jai_cmn_debug_contexts.LOG_CONTEXT%TYPE;
24
25 PROCEDURE set_debug_context
26 IS
27 BEGIN
28 lv_context := rtrim(lv_object_name || '.'||lv_member_name,'.');
29 END set_debug_context;
30
31
32 PROCEDURE process_app ( r_new IN AR_RECEIVABLE_APPLICATIONS_ALL%ROWTYPE ,
33 r_old IN AR_RECEIVABLE_APPLICATIONS_ALL%ROWTYPE ,
34 p_process_flag OUT NOCOPY VARCHAR2 ,
35 p_process_message OUT NOCOPY VARCHAR2
36 )
37
38 /***********************************************************************************
39 || Created By : Aiyer
40 || Creation Date : 22-09-2006
41 || Bug No : 4742259
42 || Purpose : Trigger package for ar_receivable_applications_all
43 || Called From : Trigger jai_arra_ariud_trg
44 ************************************************************************************/
45 AS
46 ln_reg_id NUMBER;
47 lv_process_flag VARCHAR2(2) ;
48 lv_process_message VARCHAR2(4000) ;
49
50 BEGIN
51 /*########################################################################################################
52 || VARIABLES INITIALIZATION - PART -1
53 ########################################################################################################*/
54 lv_member_name := 'PROCESS_APP';
55 set_debug_context;
56
57
58 lv_process_flag := jai_constants.successful ;
59 lv_process_message := null ;
60
61 p_process_flag := lv_process_flag ;
62 p_process_message := lv_process_message ;
63
64 /*########################################################################################################
65 || CALL TCS REPOSITORY PROCESSING - PART -2
66 ########################################################################################################*/
67
68
69 jai_ar_tcs_rep_pkg.process_transactions ( p_event => r_new.application_type ,
70 p_araa => r_new ,
71 p_process_flag => lv_process_flag ,
72 p_process_message => lv_process_message
73 );
74
75
76 IF lv_process_flag = jai_constants.expected_error OR ---------A2
77 lv_process_flag = jai_constants.unexpected_error OR
78 lv_process_flag = jai_constants.not_applicable
79 THEN
80 /*
81 || As Returned status is an error hence:-
82 || Set out variables p_process_flag and p_process_message accordingly
83 */
84 --call to debug package
85
86 p_process_flag := lv_process_flag ;
87 p_process_message := lv_process_message ;
88 return;
89 END IF; ---------A2
90
91
92 END process_app;
93
94 END jai_arra_trg_pkg;