PACKAGE BODY: APPS.FFP82_01010001

Source

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