PACKAGE BODY: APPS.FFP22_01010001

Source

1 PACKAGE BODY FFP22_01010001 AS
2 /*
3 Code generated by Oracle FastFormula - do not edit. Formula Name:
4 PTO_ROLLING_CARRYOVER
5 */
6 PROCEDURE FORMULA (
7 V0 IN OUT NUMBER,
8 I1 IN OUT NUMBER,
9 V2 IN OUT DATE,
10 I3 IN OUT NUMBER,
11 V8 IN OUT VARCHAR2,
12 I9 IN OUT NUMBER,
13 V4 IN OUT DATE,
14 I5 IN OUT NUMBER,
15 V6 IN OUT DATE,
16 I7 IN OUT NUMBER,
17 FFERLN IN OUT NUMBER,
18 FFERCD IN OUT NUMBER,
19 FFERMT IN OUT VARCHAR2) IS
20 /* PTO_ROLLING_CARRYOVER*/
21 LEMT VARCHAR2(255);
22 L_ERCD NUMBER(15,0);
23 L_ NUMBER(15,0);
24 BEGIN
25 DECLARE
26 EX1  EXCEPTION;
27 NULL_FOUND  EXCEPTION;
28 BEGIN
29 L_ERCD:=0;
30 LEMT:='OB';
31 L_:=12;
32 V0:=0;
33 I1:=-1;
34 
35 L_:=13;
36 IF I5=0 THEN
37 V4:=V4;
38 LEMT:='CALCULATION_DATE';
39 RAISE EX1;
40 END IF;
41 V2:=V4;
42 I3:=-1;
43 
44 L_:=14;
45 V6:=V4;
46 I7:=-1;
47 
48 L_:=15;
49 V8:='NO';
50 I9:=-1;
51 
52 L_:=17;
53 I1:=1;
54 I3:=2;
55 I7:=3;
56 I9:=4;
57 GOTO FFX;
58 <<FFX>>
59 NULL;
60 EXCEPTION
61 WHEN EX1 THEN L_ERCD := 1;
62 WHEN ZERO_DIVIDE THEN L_ERCD := 2;
63 WHEN NO_DATA_FOUND THEN L_ERCD := 3;
64 WHEN TOO_MANY_ROWS THEN L_ERCD:=4;
65 WHEN VALUE_ERROR THEN L_ERCD:=5;
66 WHEN INVALID_NUMBER THEN L_ERCD:=6;
67 WHEN NULL_FOUND THEN L_ERCD:=7;
68 WHEN HR_UTILITY.HR_ERROR THEN
69 BEGIN
70   LEMT:=SUBSTRB(HR_UTILITY.GET_MESSAGE,1,255);
71   L_ERCD:=8;
72 END;
73 WHEN OTHERS THEN
74 IF SQLCODE = 1 THEN L_ERCD:=-6510;
75 ELSE L_ERCD:=SQLCODE; END IF;
76 LEMT:=LEMT||' '||SQLERRM;
77 END;
78 FFERLN:=L_; FFERCD:=L_ERCD; FFERMT:=LEMT;
79 END FORMULA;
80 END 
81 FFP22_01010001
82 ;