[Home] [Help]
PACKAGE BODY: APPS.PAY_PAYJPNUI_XMLP_PKG
Source
1 PACKAGE BODY PAY_PAYJPNUI_XMLP_PKG AS
2 /* $Header: PAYJPNUIB.pls 120.0 2007/12/13 12:19:00 amakrish noship $ */
3 FUNCTION CF_DETAILS_DUMMYFORMULA(ASSIGNMENT_ID IN NUMBER
4 ,EFFECTIVE_DATE IN DATE
5 ,TARGET_DATE IN DATE
6 ,DATE_OF_BIRTH IN DATE) RETURN NUMBER IS
7 L_DATE_ERA_CODE NUMBER;
8 L_DATE_YEAR NUMBER;
9 L_DATE_MONTH NUMBER;
10 L_DATE_DAY NUMBER;
11 L_DUMMY NUMBER;
12 L_UI_NUMBER VARCHAR2(11);
13 BEGIN
14 L_UI_NUMBER := PAY_JP_REPORT_PKG.SUBSTRB2(PAY_JP_BALANCE_PKG.GET_ENTRY_VALUE_CHAR(G_UI_NUMBER_IV_ID
15 ,ASSIGNMENT_ID
16 ,EFFECTIVE_DATE)
17 ,1
18 ,11);
19 IF L_UI_NUMBER IS NOT NULL THEN
20 CP_UI_NUMBER := PAY_JP_REPORT_PKG.SUBSTRB2(L_UI_NUMBER
21 ,1
22 ,4) || '-' || PAY_JP_REPORT_PKG.SUBSTRB2(L_UI_NUMBER
23 ,5
24 ,6) || '-' || PAY_JP_REPORT_PKG.SUBSTRB2(L_UI_NUMBER
25 ,11
26 ,1);
27 ELSE
28 CP_UI_NUMBER := L_UI_NUMBER;
29 END IF;
30 PAY_JP_REPORT_PKG.TO_ERA(TARGET_DATE
31 ,L_DATE_ERA_CODE
32 ,L_DATE_YEAR
33 ,L_DATE_MONTH
34 ,L_DATE_DAY);
35 L_DATE_YEAR := L_DATE_YEAR - TRUNC(L_DATE_YEAR
36 ,-2);
37 CP_TARGET_DATE := LPAD(TO_CHAR(L_DATE_YEAR)
38 ,2
39 ,'0') || LPAD(TO_CHAR(L_DATE_MONTH)
40 ,2
41 ,'0') || LPAD(TO_CHAR(L_DATE_DAY)
42 ,2
43 ,'0');
44 PAY_JP_REPORT_PKG.TO_ERA(DATE_OF_BIRTH
45 ,L_DATE_ERA_CODE
46 ,L_DATE_YEAR
47 ,L_DATE_MONTH
48 ,L_DATE_DAY);
49 L_DATE_YEAR := L_DATE_YEAR - TRUNC(L_DATE_YEAR
50 ,-2);
51 CP_DATE_OF_BIRTH := TO_CHAR(CEIL(L_DATE_ERA_CODE / 2)) || '-' || LPAD(TO_CHAR(L_DATE_YEAR)
52 ,2
53 ,'0') || LPAD(TO_CHAR(L_DATE_MONTH)
54 ,2
55 ,'0') || LPAD(TO_CHAR(L_DATE_DAY)
56 ,2
57 ,'0');
58 IF P_REPORT_TYPE = '3' THEN
59 PAY_JP_REPORT_PKG.TO_ERA(PAY_JP_BALANCE_PKG.GET_ENTRY_VALUE_DATE(G_QUALIFIED_DATE_IV_ID
60 ,ASSIGNMENT_ID
61 ,TARGET_DATE)
62 ,L_DATE_ERA_CODE
63 ,L_DATE_YEAR
64 ,L_DATE_MONTH
65 ,L_DATE_DAY);
66 L_DATE_YEAR := L_DATE_YEAR - TRUNC(L_DATE_YEAR
67 ,-2);
68 CP_QUALIFIED_DATE := LPAD(TO_CHAR(L_DATE_YEAR)
69 ,2
70 ,'0') || LPAD(TO_CHAR(L_DATE_MONTH)
71 ,2
72 ,'0') || LPAD(TO_CHAR(L_DATE_DAY)
73 ,2
74 ,'0');
75 ELSE
76 CP_QUALIFIED_DATE := NULL;
77 END IF;
78 RETURN ('');
79 END CF_DETAILS_DUMMYFORMULA;
80
81 FUNCTION AFTERPFORM RETURN BOOLEAN IS
82 L_WHERE_CLAUSE_FOR_ASSID VARCHAR2(150);
83 BEGIN
84 L_WHERE_CLAUSE_FOR_ASSID := PAY_JP_REPORT_PKG.GET_CONCATENATED_NUMBERS(TO_NUMBER(P_ASSIGNMENT_ID1)
85 ,TO_NUMBER(P_ASSIGNMENT_ID2)
86 ,TO_NUMBER(P_ASSIGNMENT_ID3)
87 ,TO_NUMBER(P_ASSIGNMENT_ID4)
88 ,TO_NUMBER(P_ASSIGNMENT_ID5)
89 ,TO_NUMBER(P_ASSIGNMENT_ID6)
90 ,TO_NUMBER(P_ASSIGNMENT_ID7)
91 ,TO_NUMBER(P_ASSIGNMENT_ID8)
92 ,TO_NUMBER(P_ASSIGNMENT_ID9)
93 ,TO_NUMBER(P_ASSIGNMENT_ID10));
94 IF L_WHERE_CLAUSE_FOR_ASSID IS NOT NULL THEN
95 P_WHERE_CLAUSE_FOR_ASSID := 'and uiv.assignment_id in (' || L_WHERE_CLAUSE_FOR_ASSID || ')';
96 else
97 P_WHERE_CLAUSE_FOR_ASSID := ' ';
98 END IF;
99 RETURN (TRUE);
100 END AFTERPFORM;
101
102 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
103 L_DATE_ERA_CODE NUMBER;
104 L_DATE_YEAR NUMBER;
105 L_DATE_MONTH NUMBER;
106 L_DATE_DAY NUMBER;
107 L_LEGISLATION_CODE PER_BUSINESS_GROUPS.LEGISLATION_CODE%TYPE;
108 BEGIN
109 -- HR_STANDARD.EVENT('BEFORE REPORT');
110 PAY_JP_REPORT_PKG.TO_ERA(SYSDATE
111 ,L_DATE_ERA_CODE
112 ,L_DATE_YEAR
113 ,L_DATE_MONTH
114 ,L_DATE_DAY);
115 L_DATE_YEAR := L_DATE_YEAR - TRUNC(L_DATE_YEAR
116 ,-2);
117 CP_OUTPUT_DATE_GLOBAL := PAY_JP_REPORT_PKG.SUBSTRB2(NVL(HR_GENERAL.DECODE_LOOKUP('JP_ERA'
118 ,TO_CHAR(L_DATE_ERA_CODE))
119 ,' ') || LPAD(NVL(TO_CHAR(L_DATE_YEAR)
120 ,' ')
121 ,2
122 ,' ') || FND_MESSAGE.GET_STRING('PAY'
123 ,'PAY_JP_TRANS_YY') || LPAD(NVL(TO_CHAR(L_DATE_MONTH)
124 ,' ')
125 ,2
126 ,' ') || FND_MESSAGE.GET_STRING('PAY'
127 ,'PAY_JP_TRANS_MM') || LPAD(NVL(TO_CHAR(L_DATE_DAY)
128 ,' ')
129 ,2
130 ,' ') || FND_MESSAGE.GET_STRING('PAY'
131 ,'PAY_JP_TRANS_DD')
132 ,1
133 ,21);
134 IF P_REPORT_TYPE = '1' THEN
135 CP_REPORT_TITLE := 'Employment Insurance Insured Notification of Qualification Checklist';
136 CP_TARGET_DATE_TITLE := 'Qualified Date';
137 CP_NOTE_TITLE := 'Remark';
138 ELSIF P_REPORT_TYPE = '2' THEN
139 CP_REPORT_TITLE := 'Employment Insurance Insured Notification of Disqualification Checklist';
140 CP_TARGET_DATE_TITLE := 'Disqualified Date';
141 CP_NOTE_TITLE := 'Insured Address or Residence';
142 ELSIF P_REPORT_TYPE = '3' THEN
143 CP_REPORT_TITLE := 'Employment Insurance Insured Notification of Relocation Checklist';
144 CP_TARGET_DATE_TITLE := 'Relocation Date';
145 CP_NOTE_TITLE := 'Location Number Before Relocate';
146 ELSIF P_REPORT_TYPE = '5' THEN
147 CP_REPORT_TITLE := 'Employment Insurance Insured Notification of Full Name Change Checklist';
148 CP_TARGET_DATE_TITLE := 'Full Name Change Date';
149 CP_NOTE_TITLE := 'Insured Old Full Name';
150 ELSIF P_REPORT_TYPE = '6' THEN
151 CP_REPORT_TITLE := 'Employment Insurance Insured Notification of Class Change Checklist';
152 CP_TARGET_DATE_TITLE := 'Class Change Date';
153 CP_NOTE_TITLE := 'Remark';
154 END IF;
155 L_LEGISLATION_CODE := PAY_JP_BALANCE_PKG.GET_LEGISLATION_CODE(P_BUSINESS_GROUP_ID);
156 G_UI_NUMBER_IV_ID := PAY_JP_BALANCE_PKG.GET_INPUT_VALUE_ID('COM_LI_INFO'
157 ,'EI_NUM'
158 ,P_BUSINESS_GROUP_ID
159 ,L_LEGISLATION_CODE);
160 G_QUALIFIED_DATE_IV_ID := PAY_JP_BALANCE_PKG.GET_INPUT_VALUE_ID('COM_EI_QUALIFY_INFO'
161 ,'QUALIFY_DATE'
162 ,P_BUSINESS_GROUP_ID
163 ,L_LEGISLATION_CODE);
164 RETURN (TRUE);
165 END BEFOREREPORT;
166
167 FUNCTION AFTERREPORT RETURN BOOLEAN IS
168 BEGIN
169 -- HR_STANDARD.EVENT('AFTER REPORT');
170 RETURN (TRUE);
171 END AFTERREPORT;
172
173 FUNCTION CP_UI_NUMBER_P RETURN VARCHAR2 IS
174 BEGIN
175 RETURN CP_UI_NUMBER;
176 END CP_UI_NUMBER_P;
177
178 FUNCTION CP_TARGET_DATE_P RETURN VARCHAR2 IS
179 BEGIN
180 RETURN CP_TARGET_DATE;
181 END CP_TARGET_DATE_P;
182
183 FUNCTION CP_DATE_OF_BIRTH_P RETURN VARCHAR2 IS
184 BEGIN
185 RETURN CP_DATE_OF_BIRTH;
186 END CP_DATE_OF_BIRTH_P;
187
188 FUNCTION CP_QUALIFIED_DATE_P RETURN VARCHAR2 IS
189 BEGIN
190 RETURN CP_QUALIFIED_DATE;
191 END CP_QUALIFIED_DATE_P;
192
193 FUNCTION CP_OUTPUT_DATE_GLOBAL_P RETURN VARCHAR2 IS
194 BEGIN
195 RETURN CP_OUTPUT_DATE_GLOBAL;
196 END CP_OUTPUT_DATE_GLOBAL_P;
197
198 FUNCTION CP_REPORT_TITLE_P RETURN VARCHAR2 IS
199 BEGIN
200 RETURN CP_REPORT_TITLE;
201 END CP_REPORT_TITLE_P;
202
203 FUNCTION CP_TARGET_DATE_TITLE_P RETURN VARCHAR2 IS
204 BEGIN
205 RETURN CP_TARGET_DATE_TITLE;
206 END CP_TARGET_DATE_TITLE_P;
207
208 FUNCTION CP_NOTE_TITLE_P RETURN VARCHAR2 IS
209 BEGIN
210 RETURN CP_NOTE_TITLE;
211 END CP_NOTE_TITLE_P;
212
213 END PAY_PAYJPNUI_XMLP_PKG;