1 PACKAGE BODY AR_ARZCARPO_XMLP_PKG AS
2 /* $Header: ARZCARPOB.pls 120.0 2007/12/27 14:13:47 abraghun noship $ */
3 FUNCTION REPORT_NAMEFORMULA RETURN VARCHAR2 IS
4 BEGIN
5 IF P_PROCESS_TYPE = 'RECEIPT' THEN
6 RP_REPORT_NAME := 'Automatic Receipts Execution Report';
7 ELSE
8 RP_REPORT_NAME := 'Automatic Remittances Execution Report';
9 END IF;
10 RETURN (RP_REPORT_NAME);
11 END REPORT_NAMEFORMULA;
12
13 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
14 BEGIN
15 BEGIN
16 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
17 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
18 SELECT SUBSTR(ARGUMENT1,INSTR(ARGUMENT1,'=')+1,LENGTH(ARGUMENT1)),
19 SUBSTR(ARGUMENT2,INSTR(ARGUMENT2,'=')+1,LENGTH(ARGUMENT2)),
20 SUBSTR(ARGUMENT3,INSTR(ARGUMENT3,'=')+1,LENGTH(ARGUMENT3)),
21 SUBSTR(ARGUMENT4,INSTR(ARGUMENT4,'=')+1,LENGTH(ARGUMENT4)),
22 SUBSTR(ARGUMENT5,INSTR(ARGUMENT5,'=')+1,LENGTH(ARGUMENT5)),
23 SUBSTR(ARGUMENT6,INSTR(ARGUMENT6,'=')+1,LENGTH(ARGUMENT6))
24 INTO P_PROCESS_TYPE,P_BATCH_ID,P_CREATE_FLAG,P_APPROVE_FLAG,P_FORMAT_FLAG,P_REQUEST_ID_MAIN
25 FROM FND_CONCURRENT_REQUESTS WHERE REQUEST_ID=P_CONC_REQUEST_ID;
26
27 SELECT
28 NAME
29 INTO P_BATCH_NAME
30 FROM
31 AR_BATCHES
32 WHERE BATCH_ID = P_BATCH_ID;
33 IF P_CREATE_FLAG = 'Y' AND P_APPROVE_FLAG = 'N' AND P_FORMAT_FLAG = 'N' THEN
34 P_CREATE_ONLY_FLAG := 'Y';
35 ELSE
36 P_CREATE_ONLY_FLAG := 'N';
37 END IF;
38 P_NO_DATA_FOUND := SUBSTR(ARP_STANDARD.FND_MESSAGE('AR_NO_DATA_FOUND'),1,13);
39 RETURN (TRUE);
40 EXCEPTION
41 WHEN NO_DATA_FOUND THEN
42 P_NO_DATA_FOUND := 'No Data Found';
43 END;
44 RETURN (TRUE);
45 END BEFOREREPORT;
46
47 FUNCTION SUB_TITLEFORMULA RETURN VARCHAR2 IS
48 BEGIN
49 BEGIN
50 IF P_CREATE_FLAG = 'Y' THEN
51 RP_SUB_TITLE := 'For Creation';
52 END IF;
53 IF P_APPROVE_FLAG = 'Y' THEN
54 IF RP_SUB_TITLE IS NULL THEN
55 RP_SUB_TITLE := 'For Approval';
56 ELSE
57 RP_SUB_TITLE := RP_SUB_TITLE || '/Approval';
58 END IF;
59 END IF;
60 IF P_FORMAT_FLAG = 'Y' THEN
61 IF RP_SUB_TITLE IS NULL THEN
62 RP_SUB_TITLE := 'For Formatting';
63 ELSE
64 RP_SUB_TITLE := RP_SUB_TITLE || '/Formatting';
65 END IF;
66 END IF;
67 RETURN (RP_SUB_TITLE);
68 END;
69 RETURN NULL;
70 END SUB_TITLEFORMULA;
71
72 FUNCTION AFTERREPORT RETURN BOOLEAN IS
73 BEGIN
74 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
75 RETURN (TRUE);
76 END AFTERREPORT;
77
78 FUNCTION C_EXCEPTION_MEANINGFORMULA(C_EXCEPTION_CODE IN VARCHAR2
79 ,CC_ERROR_CODE IN VARCHAR2
80 ,CC_ERROR_FLAG IN VARCHAR2
81 ,CC_ERROR_TEXT IN VARCHAR2
82 ,C_ADDL_MESSAGE IN VARCHAR2) RETURN VARCHAR2 IS
83 MSG_TEXT VARCHAR2(2000);
84 BEGIN
85 /*SRW.REFERENCE(C_EXCEPTION_CODE)*/NULL;
86 /*SRW.REFERENCE(CC_ERROR_CODE)*/NULL;
87 /*SRW.REFERENCE(CC_ERROR_FLAG)*/NULL;
88 /*SRW.REFERENCE(CC_ERROR_TEXT)*/NULL;
89 IF NVL(CC_ERROR_FLAG
90 ,'N') = 'Y' AND CC_ERROR_CODE IS NOT NULL THEN
91 MSG_TEXT := RTRIM(CC_ERROR_CODE);
92 RETURN (MSG_TEXT || ' ' || CC_ERROR_TEXT);
93 ELSIF C_EXCEPTION_CODE IS NOT NULL THEN
94 MSG_TEXT := RTRIM(ARP_STANDARD.FND_MESSAGE(C_EXCEPTION_CODE));
95 RETURN (MSG_TEXT || ' ' || C_ADDL_MESSAGE);
96 ELSE
97 RETURN ('');
98 END IF;
99 RETURN NULL;
100 EXCEPTION
101 WHEN OTHERS THEN
102 RETURN ('');
103 END C_EXCEPTION_MEANINGFORMULA;
104
105 FUNCTION CF_1FORMULA(CC_DISPLAY_FLAG IN VARCHAR2) RETURN CHAR IS
106 BEGIN
107 IF (NVL(CC_DISPLAY_FLAG
108 ,'N') = 'Y') THEN
109 P_CC_ERROR_FLAG := '1';
110 RETURN ('+');
111 ELSE
112 RETURN (' ');
113 END IF;
114 END CF_1FORMULA;
115
116 FUNCTION DESNAMEVALIDTRIGGER RETURN BOOLEAN IS
117 BEGIN
118 RETURN (TRUE);
119 END DESNAMEVALIDTRIGGER;
120
121 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
122 BEGIN
123 RETURN RP_REPORT_NAME;
124 END RP_REPORT_NAME_P;
125
126 FUNCTION RP_DATA_FOUND_P RETURN VARCHAR2 IS
127 BEGIN
128 RETURN RP_DATA_FOUND;
129 END RP_DATA_FOUND_P;
130
131 FUNCTION RP_SUB_TITLE_P RETURN VARCHAR2 IS
132 BEGIN
133 RETURN RP_SUB_TITLE;
134 END RP_SUB_TITLE_P;
135
136 END AR_ARZCARPO_XMLP_PKG;
137