[Home] [Help]
PACKAGE BODY: APPS.WIP_WIPPURGE_XMLP_PKG
Source
1 PACKAGE BODY WIP_WIPPURGE_XMLP_PKG AS
2 /* $Header: WIPPURGEB.pls 120.2 2008/01/31 12:30:11 npannamp noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 WSM_ORG NUMBER;
5 CODE NUMBER;
6 TEXT VARCHAR2(100);
7 DATE_FORMAT VARCHAR2(20):='DD'||'-MON-'||'YYYY HH24:MI';
8 BEGIN
9 WSM_ORG := 0;
10 WSM_ORG := WSMPUTIL.CHECK_WSM_ORG(P_ORGANIZATION_ID
11 ,CODE
12 ,TEXT);
13 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
14 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
15 /*SRW.USER_EXIT('FND FLEXSQL CODE="MSTK"
16 APPL_SHORT_NAME="INV" OUTPUT="P_FLEXDATA"
17 MODE="SELECT" DISPLAY="ALL" TABLEALIAS="MSI" ')*/NULL;
18 WIP_DISCRETE_WS_MOVE.INITTIMEZONE;
19 P_CUTOFF_DATE_CLIENT := WIP_DISCRETE_WS_MOVE.SERVERTOCLIENTDATE(P_CUTOFF_DATE);
20 P_CUTOFF_DATE_DISP := to_char(P_CUTOFF_DATE_CLIENT,DATE_FORMAT);
21 SELECT
22 WIP_DATETIMES.LE_DATE_TO_SERVER(MAX(SCHEDULE_CLOSE_DATE)
23 ,P_ORGANIZATION_ID)
24 INTO P_MAX_DATE
25 FROM
26 ORG_ACCT_PERIODS
27 WHERE PERIOD_CLOSE_DATE is not null
28 AND OPEN_FLAG = 'N'
29 AND ORGANIZATION_ID = TO_CHAR(P_ORGANIZATION_ID);
30 IF (P_MAX_DATE IS NULL) OR (P_CUTOFF_DATE > P_MAX_DATE) THEN
31 FND_MESSAGE.SET_NAME('WIP'
32 ,'WIP_BAD_CUTOFF_DATE');
33 FND_MESSAGE.SET_TOKEN('ENTITY'
34 ,TO_CHAR(WIP_DISCRETE_WS_MOVE.SERVERTOCLIENTDATE(P_MAX_DATE)
35 ,'DD-MON-RRRR HH24:MI:SS')
36 ,FALSE);
37 P_ERROR_TEXT := SUBSTR(FND_MESSAGE.GET
38 ,1
39 ,500);
40 /*SRW.MESSAGE(1
41 ,P_ERROR_TEXT)*/NULL;
42 P_GROUP_ID_V := -1;
43 P_ERR_NUM := NULL;
44 P_ERROR_TEXT := ' The following exception occured during the purge program : APP-25002: ' || P_ERROR_TEXT;
45 ELSE
46 P_GROUP_ID_V := WIP_WICTPG.PURGE(P_PURGE_TYPE
47 ,P_GROUP_ID
48 ,P_ORGANIZATION_ID
49 ,P_CUTOFF_DATE
50 ,P_DAYS_BEFORE_CUTOFF
51 ,P_FROM_JOB
52 ,P_TO_JOB
53 ,P_PRIMARY_ITEM_ID
54 ,P_LINE_ID
55 ,P_OPTION
56 ,(P_CONF_FLAG = 1)
57 ,(P_HEADER_FLAG = 1)
58 ,(P_DETAIL_FLAG = 1)
59 ,(P_MOVE_TXN_FLAG = 1)
60 ,(P_COST_TRX_FLAG = 1)
61 ,P_ERR_NUM
62 ,P_ERROR_TEXT);
63 IF (P_GROUP_ID_V = -1) THEN
64 P_ERROR_TEXT := ' The following exception occured during the purge program : ' || TO_CHAR(P_ERR_NUM) || ' :- ' || P_ERROR_TEXT || '.';
65 END IF;
66 END IF;
67 RETURN TRUE;
68 RETURN (TRUE);
69 END BEFOREREPORT;
70
71 FUNCTION AFTERREPORT RETURN BOOLEAN IS
72 BEGIN
73 DELETE FROM WIP_TEMP_REPORTS
74 WHERE KEY1 = P_GROUP_ID_V;
75 COMMIT;
76 IF (P_GROUP_ID_V = -1) THEN
77 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
78 END IF;
79 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
80 RETURN (TRUE);
81 END AFTERREPORT;
82
83 FUNCTION AFTERPFORM RETURN BOOLEAN IS
84 BEGIN
85 RETURN (TRUE);
86 END AFTERPFORM;
87
88 FUNCTION G_JOB_LINE_TABGROUPFILTER RETURN BOOLEAN IS
89 BEGIN
90 IF P_REPORT_OPTION <> 2 THEN
91 RETURN FALSE;
92 END IF;
93 RETURN (TRUE);
94 END G_JOB_LINE_TABGROUPFILTER;
95
96 FUNCTION G_JOB_LINE_INFOGROUPFILTER RETURN BOOLEAN IS
97 BEGIN
98 IF P_REPORT_OPTION = 2 THEN
99 RETURN FALSE;
100 END IF;
101 RETURN (TRUE);
102 END G_JOB_LINE_INFOGROUPFILTER;
103
104 FUNCTION G_EXCEPTION_INFOGROUPFILTER RETURN BOOLEAN IS
105 BEGIN
106 IF P_REPORT_OPTION = 2 THEN
107 RETURN FALSE;
108 END IF;
109 RETURN (TRUE);
110 END G_EXCEPTION_INFOGROUPFILTER;
111
112 FUNCTION G_SUCCESS_INFOGROUPFILTER RETURN BOOLEAN IS
113 BEGIN
114 IF P_REPORT_OPTION = 2 OR P_REPORT_OPTION = 3 THEN
115 RETURN FALSE;
116 END IF;
117 RETURN (TRUE);
118 END G_SUCCESS_INFOGROUPFILTER;
119
120 FUNCTION PURGE(P_PURGE_TYPE IN NUMBER
121 ,P_GROUP_ID IN NUMBER
122 ,P_ORG_ID IN NUMBER
123 ,P_CUTOFF_DATE IN DATE
124 ,P_FROM_JOB IN VARCHAR2
125 ,P_TO_JOB IN VARCHAR2
126 ,P_PRIMARY_ITEM_ID IN NUMBER
127 ,P_LINE_ID IN NUMBER
128 ,P_OPTION IN NUMBER
129 ,P_CONF_FLAG IN BOOLEAN
130 ,P_HEADER_FLAG IN BOOLEAN
131 ,P_DETAIL_FLAG IN BOOLEAN
132 ,P_MOVE_TRX_FLAG IN BOOLEAN
133 ,P_COST_TRX_FLAG IN BOOLEAN
134 ,P_ERR_NUM IN OUT NOCOPY NUMBER
135 ,P_ERROR_TEXT IN OUT NOCOPY VARCHAR2) RETURN NUMBER IS
136 X0 NUMBER;
137 BEGIN
138 /* STPROC.INIT('declare X0P_CONF_FLAG BOOLEAN; X0P_HEADER_FLAG BOOLEAN;
139 X0P_DETAIL_FLAG BOOLEAN; X0P_MOVE_TRX_FLAG BOOLEAN; X0P_COST_TRX_FLAG BOOLEAN;
140 begin X0P_CONF_FLAG := sys.diutil.int_to_bool(:P_CONF_FLAG); X0P_HEADER_FLAG := sys.diutil.int_to_bool(:P_HEADER_FLAG); X0P_DETAIL_FLAG := sys.diutil.int_to_bool(:P_DETAIL_FLAG); X0P_MOVE_TRX_FLAG := sys.diutil.int_to_bool(:P_MOVE_TRX_FLAG);
141 X0P_COST_TRX_FLAG := sys.diutil.int_to_bool(:P_COST_TRX_FLAG); :X0 := WICTPG.PURGE(:P_PURGE_TYPE, :P_GROUP_ID, :P_ORG_ID, :P_CUTOFF_DATE, :P_FROM_JOB, :P_TO_JOB, :P_PRIMARY_ITEM_ID,
142 :P_LINE_ID, :P_OPTION, X0P_CONF_FLAG, X0P_HEADER_FLAG, X0P_DETAIL_FLAG, X0P_MOVE_TRX_FLAG, X0P_COST_TRX_FLAG, :P_ERR_NUM, :P_ERROR_TEXT); end;');
143 STPROC.BIND_I(P_CONF_FLAG);
144 STPROC.BIND_I(P_HEADER_FLAG);
145 STPROC.BIND_I(P_DETAIL_FLAG);
146 STPROC.BIND_I(P_MOVE_TRX_FLAG);
147 STPROC.BIND_I(P_COST_TRX_FLAG);
148 STPROC.BIND_O(X0);
149 STPROC.BIND_I(P_PURGE_TYPE);
150 STPROC.BIND_I(P_GROUP_ID);
151 STPROC.BIND_I(P_ORG_ID);
152 STPROC.BIND_I(P_CUTOFF_DATE);
153 STPROC.BIND_I(P_FROM_JOB);
154 STPROC.BIND_I(P_TO_JOB);
155 STPROC.BIND_I(P_PRIMARY_ITEM_ID);
156 STPROC.BIND_I(P_LINE_ID);
157 STPROC.BIND_I(P_OPTION);
158 STPROC.BIND_IO(P_ERR_NUM);
159 STPROC.BIND_IO(P_ERROR_TEXT);
160 STPROC.EXECUTE;
161 STPROC.RETRIEVE(6
162 ,X0);
163 STPROC.RETRIEVE(16
164 ,P_ERR_NUM);
165 STPROC.RETRIEVE(17
166 ,P_ERROR_TEXT);*/ NULL;
167 RETURN X0;
168 END PURGE;
169
170 END WIP_WIPPURGE_XMLP_PKG;
171
172