1 PACKAGE BODY AR_ARXAPRCB_XMLP_PKG AS
2 /* $Header: ARXAPRCBB.pls 120.0 2007/12/27 13:27:47 abraghun noship $ */
3 FUNCTION REPORT_NAMEFORMULA(COMPANY_NAME IN VARCHAR2) RETURN VARCHAR2 IS
4 BEGIN
5 DECLARE
6 L_REPORT_NAME VARCHAR2(80);
7 BEGIN
8 RP_COMPANY_NAME := COMPANY_NAME;
9 SELECT
10 SUBSTR(CP.USER_CONCURRENT_PROGRAM_NAME
11 ,1
12 ,80)
13 INTO L_REPORT_NAME
14 FROM
15 FND_CONCURRENT_PROGRAMS_VL CP,
16 FND_CONCURRENT_REQUESTS CR
17 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
18 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
19 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
20 RP_REPORT_NAME := L_REPORT_NAME;
21 RETURN (L_REPORT_NAME);
22 EXCEPTION
23 WHEN NO_DATA_FOUND THEN
24 RP_REPORT_NAME := 'Automatic Receipt Batch Management Report';
25 RETURN ('Automatic Receipt Batch Management Report');
26 END;
27 RETURN NULL;
28 END REPORT_NAMEFORMULA;
29
30 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
31 BEGIN
32 BEGIN
33 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
34 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
35 END;
36 RETURN (TRUE);
37 END BEFOREREPORT;
38
39 FUNCTION SUB_TITLEFORMULA RETURN VARCHAR2 IS
40 BEGIN
41 BEGIN
42 RP_SUB_TITLE := ' ';
43 RETURN (' ');
44 END;
45 RETURN NULL;
46 END SUB_TITLEFORMULA;
47
48 FUNCTION AFTERREPORT RETURN BOOLEAN IS
49 BEGIN
50 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
51 RETURN (TRUE);
52 END AFTERREPORT;
53
54 FUNCTION DUMMY_CURRENCY_CODEFORMULA(CURRENCY_CODE_A IN VARCHAR2) RETURN VARCHAR2 IS
55 BEGIN
56 RETURN (CURRENCY_CODE_A);
57 END DUMMY_CURRENCY_CODEFORMULA;
58
59 FUNCTION RP_DSP_STATUSFORMULA RETURN VARCHAR2 IS
60 BEGIN
61 DECLARE
62 L_STATUS VARCHAR(50);
63 BEGIN
64 SELECT
65 MEANING
66 INTO L_STATUS
67 FROM
68 AR_LOOKUPS
69 WHERE LOOKUP_CODE = P_STATUS
70 AND LOOKUP_TYPE = 'BATCH_APPLIED_STATUS';
71 RETURN (L_STATUS);
72 EXCEPTION
73 WHEN OTHERS THEN
74 RETURN NULL;
75 END;
76 RETURN NULL;
77 END RP_DSP_STATUSFORMULA;
78
79 FUNCTION AMOUNTFORMULA(BATCH_APPLIED_STATUS IN VARCHAR2
80 ,ARG_BATCH_ID IN NUMBER) RETURN NUMBER IS
81 BEGIN
82 DECLARE
83 L_AMOUNT NUMBER;
84 BEGIN
85 IF ((BATCH_APPLIED_STATUS = 'COMPLETED_CREATION') OR (BATCH_APPLIED_STATUS = 'STARTED_CREATION') OR (BATCH_APPLIED_STATUS = 'STARTED_APPROVAL')) THEN
86 SELECT
87 SUM(PS.AMOUNT_DUE_REMAINING)
88 INTO L_AMOUNT
89 FROM
90 AR_PAYMENT_SCHEDULES PS
91 WHERE PS.SELECTED_FOR_RECEIPT_BATCH_ID = ARG_BATCH_ID
92 AND PS.STATUS = 'OP';
93 RETURN (L_AMOUNT);
94 ELSE
95 SELECT
96 SUM(CRH.AMOUNT)
97 INTO L_AMOUNT
98 FROM
99 AR_CASH_RECEIPT_HISTORY CRH
100 WHERE CRH.BATCH_ID = ARG_BATCH_ID
101 AND CRH.PRV_STAT_CASH_RECEIPT_HIST_ID is null;
102 END IF;
103 RETURN (L_AMOUNT);
104 END;
105 RETURN NULL;
106 END AMOUNTFORMULA;
107
108 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
109 BEGIN
110 RETURN RP_COMPANY_NAME;
111 END RP_COMPANY_NAME_P;
112
113 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
114 BEGIN
115 RETURN substr(RP_REPORT_NAME,1,instr(RP_REPORT_NAME,' (XML)'));
116 END RP_REPORT_NAME_P;
117
118 FUNCTION RP_DATA_FOUND_P RETURN VARCHAR2 IS
119 BEGIN
120 RETURN RP_DATA_FOUND;
121 END RP_DATA_FOUND_P;
122
123 FUNCTION RP_SUB_TITLE_P RETURN VARCHAR2 IS
124 BEGIN
125 RETURN RP_SUB_TITLE;
126 END RP_SUB_TITLE_P;
127
128 END AR_ARXAPRCB_XMLP_PKG;
129