PACKAGE BODY: APPS.AP_AWT_CALLOUT_PKG

Source

1 PACKAGE BODY AP_AWT_CALLOUT_PKG AS
2  /* $Header: apibyhkb.pls 120.5 2008/02/13 02:07:11 dbetanco ship $ */
3 
4 PROCEDURE zx_paymentsAdjustHook(
5   p_api_version    IN NUMBER,
6   p_init_msg_list  IN VARCHAR2,
7   p_commit         IN VARCHAR2,
8   x_return_status  OUT NOCOPY VARCHAR2,
9   x_msg_count      OUT NOCOPY NUMBER,
10   x_msg_data       OUT NOCOPY VARCHAR2) IS
11 
12   l_pay_service_req_code IBY_HOOK_PAYMENTS_T.call_app_pay_service_req_code%TYPE;
13   l_payment_id           IBY_HOOK_PAYMENTS_T.payment_id%TYPE;
14   l_checkrun_id          IBY_HOOK_DOCS_IN_PMT_T.calling_app_doc_unique_ref1%TYPE;
15   l_return_value NUMBER;
16 
17    CURSOR C_IBY_PMTS IS
18    SELECT UNIQUE call_app_pay_service_req_code, payment_id
19    FROM IBY_HOOK_PAYMENTS_T
20    WHERE CALLING_APP_ID = 200;
21 
22    CURSOR C_IBY_DOCS IS
23    SELECT UNIQUE CALLING_APP_DOC_UNIQUE_REF1
24    FROM IBY_HOOK_DOCS_IN_PMT_T
25    WHERE PAYMENT_ID = l_payment_id
26    AND CALLING_APP_ID=200;
27 
28  BEGIN
29   l_return_value:=0;
30 
31   OPEN c_iby_pmts;
32   FETCH c_iby_pmts INTO l_pay_service_req_code, l_payment_id;
33   CLOSE c_iby_pmts;
34 
35   OPEN c_iby_docs;
36   FETCH c_iby_docs INTO l_checkrun_id;
37   CLOSE c_iby_docs;
38 
39    IF AP_EXTENDED_WITHHOLDING_PKG.ap_extended_withholding_active THEN
40 
41      l_return_value:=JG_EXTENDED_WITHHOLDING_PKG.JG_DO_EXTENDED_WITHHOLDING
42               (P_Invoice_Id  =>        NULL,
43                P_Awt_Date    =>        NULL,
44                P_Calling_Module =>     'AUTOSELECT',
45                P_Amount      =>        NULL,
46                P_Payment_Num   =>      NULL,
47                P_Checkrun_Name =>      l_pay_service_req_code,
48                P_Checkrun_id  =>       l_checkrun_id,
49                P_Last_Updated_By =>      fnd_global.user_id,
50                P_Last_Update_Login =>    FND_GLOBAL.LOGIN_ID,
51                P_Program_Application_Id =>  fnd_global.prog_appl_id,
52                P_Program_Id      =>      fnd_global.conc_program_id,
53                P_Request_Id      =>      fnd_global.conc_request_id ,
54                P_Invoice_Payment_Id  =>    NULL,
55                P_Check_Id            =>   NULL);
56    END IF;
57 
58  END zx_paymentsAdjustHook;
59 
60 PROCEDURE zx_witholdingCertificatesHook
61  ( p_payment_instruction_id IN NUMBER,
62    p_calling_module         IN VARCHAR2,
63    p_api_version            IN NUMBER,
64    p_init_msg_list          IN VARCHAR2 ,
65    p_commit                 IN VARCHAR2,
66    x_return_status          OUT NOCOPY VARCHAR2,
67    x_msg_count              OUT NOCOPY NUMBER,
68    x_msg_data               OUT NOCOPY VARCHAR2)
69 IS
70 
71 BEGIN
72 
73  -- Initizating return variable
74  x_return_status := FND_API.G_RET_STS_SUCCESS;
75 
76  IF AP_EXTENDED_WITHHOLDING_PKG.ap_extended_withholding_active THEN
77 
78   JL_AR_AP_WITHHOLDING_PKG.Jl_Ar_Ap_certificates (p_payment_instruction_id,
79    p_calling_module,
80    p_api_version,
81    p_init_msg_list ,
82    p_commit,
83    x_return_status,
84    x_msg_count,
85    x_msg_data);
86  END IF;
87 
88 END;
89 
90 
91 END AP_AWT_CALLOUT_PKG;