1 PACKAGE BODY CZ_SESSION AS
2 /* $Header: czsesb.pls 115.7 2002/11/27 17:16:41 askhacha ship $ */
3
4 FUNCTION PROJECT_ID RETURN INTEGER IS
5 P_ID INTEGER;
6 BEGIN
7 P_ID:=CZ_SESSION.CURRENT_PROJECT;
8 RETURN P_ID;
9 END PROJECT_ID;
10 /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/
11 FUNCTION POPULATOR_ID RETURN INTEGER IS
12 POP_ID INTEGER;
13 BEGIN
14 POP_ID:=CZ_SESSION.CURRENT_POPULATOR;
15 RETURN POP_ID;
16 END POPULATOR_ID;
17 /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/
18 PROCEDURE POP_VIEW_FILTER (PROJECT_ID IN INTEGER DEFAULT NULL,POPULATOR_ID IN INTEGER DEFAULT NULL) IS
19 BEGIN
20 CZ_SESSION.CURRENT_PROJECT:=PROJECT_ID;
21 CZ_SESSION.CURRENT_POPULATOR:=POPULATOR_ID;
22 END POP_VIEW_FILTER;
23 /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/
24
25 procedure ENABLE_PROJ_TIMESTAMP_TRIGS is
26 begin
27 PROJ_TIMESTAMP_TRIGGERS_ON := TRUE;
28 end ENABLE_PROJ_TIMESTAMP_TRIGS;
29
30 procedure DISABLE_PROJ_TIMESTAMP_TRIGS is
31 begin
32 PROJ_TIMESTAMP_TRIGGERS_ON := FALSE;
33 end DISABLE_PROJ_TIMESTAMP_TRIGS;
34
35 procedure STAMP_STRUCT_UPDATED (for_project_id in NUMBER) is
36 begin
37 update CZ_DEVL_PROJECTS
38 set LAST_STRUCT_UPDATE = SYSDATE
39 where DEVL_PROJECT_ID = for_project_id;
40 end STAMP_STRUCT_UPDATED;
41
42 procedure STAMP_LOGIC_UPDATED (for_project_id in NUMBER) is
43 begin
44 update CZ_DEVL_PROJECTS
45 set LAST_LOGIC_UPDATE = SYSDATE
46 where DEVL_PROJECT_ID = for_project_id;
47 end STAMP_LOGIC_UPDATED;
48
49 procedure STAMP_PROJECT_UPDATED (for_project_id in NUMBER) is
50 begin
51 update CZ_DEVL_PROJECTS
52 set LAST_STRUCT_UPDATE = SYSDATE,
53 LAST_LOGIC_UPDATE = SYSDATE
54 where DEVL_PROJECT_ID = for_project_id;
55 end STAMP_PROJECT_UPDATED;
56
57
58 END CZ_SESSION;