1 PACKAGE BODY INV_ProjectLocator_PUB AS
2 /* $Header: INVPJMAB.pls 120.0 2005/05/25 06:05:46 appldev noship $ */
3
4 /*
5 ** This function is retained only for backward compatibility
6 ** reasons. The actual implementation has been migrated to
7 ** PJM_PROJECT_LOCATOR under the PJM source tree.
8 */
9 FUNCTION Check_Project_References(arg_organization_id IN NUMBER,
10 arg_locator_id IN NUMBER,
11 arg_validation_mode IN VARCHAR2,
12 arg_required_flag IN VARCHAR2,
13 arg_project_id IN NUMBER DEFAULT NULL,
14 arg_task_id IN NUMBER DEFAULT NULL)
15 RETURN BOOLEAN IS
16 l_return_code boolean;
17 BEGIN
18 l_return_code := PJM_Project_Locator.Check_Project_References(
19 arg_organization_id,
20 arg_locator_id,
21 arg_validation_mode,
22 arg_required_flag,
23 arg_project_id,
24 arg_task_id,
25 NULL);
26 return (l_return_code);
27
28 END Check_Project_References;
29
30 FUNCTION GET_PHYSICAL_LOCATION(
31 P_ORGANIZATION_ID IN NUMBER,
32 P_LOCATOR_ID IN NUMBER
33 ) RETURN BOOLEAN IS
34 BEGIN
35
36 RETURN PJM_PROJECT_LOCATOR.GET_PHYSICAL_LOCATION(
37 X_ORGANIZATION_ID => P_ORGANIZATION_ID,
38 X_LOCATOR_ID => P_LOCATOR_ID
39 );
40
41 END GET_PHYSICAL_LOCATION;
42
43 FUNCTION GET_PROJECT_NUMBER(P_PROJECT_ID IN NUMBER) RETURN VARCHAR2 IS
44
45 BEGIN
46
47 RETURN PJM_PROJECT.ALL_PROJ_IDTONUM(P_PROJECT_ID);
48
49 END GET_PROJECT_NUMBER;
50
51 FUNCTION GET_TASK_NUMBER(P_TASK_ID IN NUMBER) RETURN VARCHAR2 IS
52
53 BEGIN
54
55 RETURN PJM_PROJECT.ALL_TASK_IDTONUM(P_TASK_ID);
56
57 END GET_TASK_NUMBER;
58
59 END INV_ProjectLocator_PUB;