DBA Data[Home] [Help]

PACKAGE BODY: APPS.INV_INVINPSR_XMLP_PKG

Source


1 PACKAGE BODY INV_INVINPSR_XMLP_PKG AS
2 /* $Header: INVINPSRB.pls 120.5 2011/02/11 14:48:19 abhissri ship $ */
3   FUNCTION INS_PKSLIP_REC(OLD_PACKSLIP_NUMBER IN NUMBER
4                          ,LINE_NO IN NUMBER
5                          ,C_PACKSLIP_NUM IN NUMBER
6                          ,SHIP_HEADER_ID IN NUMBER) RETURN VARCHAR2 IS
7   BEGIN
8     /*SRW.REFERENCE(OLD_PACKSLIP_NUMBER)*/NULL;
9     IF OLD_PACKSLIP_NUMBER = 0 THEN
10       IF LINE_NO = 1 THEN
11         /*INSERT INTO MTL_INV_PACKSLIPS
12           (PACKSLIP_NUMBER
13           ,PACKSLIP_DATE
14           ,SHIPMENT_HEADER_ID)
15         VALUES   (C_PACKSLIP_NUM
16           ,SYSDATE
17           ,SHIP_HEADER_ID);*/null;
18       END IF;
19     END IF;
20     RETURN ('YES');
21   END INS_PKSLIP_REC;
22 
23   FUNCTION PSLIP_NUMBER(OLD_PACKSLIP_NUMBER IN NUMBER
24                        ,LINE_NO IN NUMBER) RETURN NUMBER IS
25   BEGIN
26     DECLARE
27       PACKSLIP_NUM NUMBER;
28     BEGIN
29       IF (OLD_PACKSLIP_NUMBER = 0 AND LINE_NO = 1) THEN
30         SELECT
31           MTL_INV_PACKSLIPS_S.NEXTVAL
32         INTO PACKSLIP_NUM
33         FROM
34           SYS.DUAL;
35       ELSE
36         PACKSLIP_NUM := OLD_PACKSLIP_NUMBER;
37       END IF;
38       RETURN (PACKSLIP_NUM);
39     END;
40   END PSLIP_NUMBER;
41 
42   FUNCTION AFTERREPORT RETURN BOOLEAN IS
43   BEGIN
44     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
45     RETURN (TRUE);
46   END AFTERREPORT;
47 
48   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
49   BEGIN
50     DECLARE
51       SHIP_NUM NUMBER;
52     BEGIN
53       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
54       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
55       SHIP_NUM := -1;
56       FND_MESSAGE.SET_NAME('INV'
57                           ,'INV_NO_DATA_EXISTS');
58       C_MESSAGE_NO_DATA := SUBSTR(FND_MESSAGE.GET
59                                  ,1
60                                  ,50);
61       C_MESSAGE_NO_DATA := '*** ' || C_MESSAGE_NO_DATA || ' ***';
62     EXCEPTION
63       WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
64         BEGIN
65           /*SRW.MESSAGE(100
66                      ,'Foundation is not initialised')*/NULL;
67           /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
68         END;
69     END;
70     RETURN (TRUE);
71   END BEFOREREPORT;
72 
73   FUNCTION C_SHIPNUM_WHERE RETURN VARCHAR2 IS
74   BEGIN
75     IF P_SHIPNO_LO IS NOT NULL AND P_SHIPNO_HIGH IS NOT NULL THEN
76       RETURN ('and h.shipment_num between ''' || P_SHIPNO_LO || '''
77                      and ''' || P_SHIPNO_HIGH || ''' ');
78     ELSE
79       IF P_SHIPNO_LO IS NULL AND P_SHIPNO_HIGH IS NOT NULL THEN
80         RETURN ('and  h.shipment_num = ''' || P_SHIPNO_HIGH || ''' ');
81       ELSE
82         IF P_SHIPNO_LO IS NOT NULL AND P_SHIPNO_HIGH IS NULL THEN
83           RETURN ('and h.shipment_num = ''' || P_SHIPNO_LO || ''' ');
84         ELSE
85           RETURN (' ');
86         END IF;
87       END IF;
88     END IF;
89     RETURN ' ';
90   END C_SHIPNUM_WHERE;
91 
92   FUNCTION C_PACKSLIP_WHERE RETURN VARCHAR2 IS
93   BEGIN
94     IF P_PACKSLIP_LO IS NOT NULL AND P_PACKSLIP_HIGH IS NOT NULL THEN
95       RETURN ('and mip.packslip_number between to_char(''' || P_PACKSLIP_LO || ''')
96                      and to_char(''' || P_PACKSLIP_HIGH || ''') ');
97     ELSE
98       IF P_PACKSLIP_LO IS NULL AND P_PACKSLIP_HIGH IS NOT NULL THEN
99         RETURN ('and mip.packslip_number = to_char(''' || P_PACKSLIP_HIGH || ''') ');
100       ELSE
101         IF P_PACKSLIP_LO IS NOT NULL AND P_PACKSLIP_HIGH IS NULL THEN
102           RETURN ('and mip.packslip_number = to_char(''' || P_PACKSLIP_LO || ''') ');
103         ELSE
104           RETURN ('and nvl(mip.packslip_number,0) = 0');
105           RETURN (' ');
106         END IF;
107       END IF;
108     END IF;
109     RETURN NULL;
110   END C_PACKSLIP_WHERE;
111 
112   FUNCTION C_SHIP_VIA_WHERE RETURN VARCHAR2 IS
113   BEGIN
114     IF P_SHIP_VIA_LO IS NOT NULL AND P_SHIP_VIA_HIGH IS NOT NULL THEN
115       RETURN ('and orgf.freight_code between ''' || P_SHIP_VIA_LO || '''
116                      and ''' || P_SHIP_VIA_HIGH || ''' ');
117     ELSE
118       IF P_SHIP_VIA_LO IS NULL AND P_SHIP_VIA_HIGH IS NOT NULL THEN
119         RETURN ('and orgf.freight_code = ''' || P_SHIP_VIA_HIGH || ''' ');
120       ELSE
121         IF P_SHIP_VIA_LO IS NOT NULL AND P_SHIP_VIA_HIGH IS NULL THEN
122           RETURN ('and orgf.freight_code = ''' || P_SHIP_VIA_LO || ''' ');
123         ELSE
124           RETURN (' ');
125         END IF;
126       END IF;
127     END IF;
128     RETURN NULL;
129   END C_SHIP_VIA_WHERE;
130 
131   FUNCTION C_REC_ORG_WHERE RETURN VARCHAR2 IS
132   BEGIN
133     IF P_RECEIVING_ORG_LO IS NOT NULL AND P_RECEIVING_ORG_HIGH IS NOT NULL THEN
134       RETURN ('and l.to_organization_id between ''' || TO_CHAR(P_RECEIVING_ORG_LO) || ''' and
135                      ''' || TO_CHAR(P_RECEIVING_ORG_HIGH) || ''' ');
136     ELSE
137       IF P_RECEIVING_ORG_LO IS NULL AND P_RECEIVING_ORG_HIGH IS NOT NULL THEN
138         RETURN ('and l.to_organization_id = ''' || TO_CHAR(P_RECEIVING_ORG_HIGH) || ''' ');
139       ELSE
140         IF P_RECEIVING_ORG_LO IS NOT NULL AND P_RECEIVING_ORG_HIGH IS NULL THEN
141           RETURN ('and l.to_organization_id  = ''' || TO_CHAR(P_RECEIVING_ORG_LO) || ''' ');
142         ELSE
143           RETURN (' ');
144         END IF;
145       END IF;
146     END IF;
147     RETURN ' ';
148   END C_REC_ORG_WHERE;
149 
150   FUNCTION C_TRANS_TYPE_WHERE RETURN VARCHAR2 IS
151   BEGIN
152     IF P_TRANS_TYPE_ID_LO IS NOT NULL AND P_TRANS_TYPE_ID_HIGH IS NOT NULL THEN
153       RETURN ('and mtt.transaction_type_id between ' || P_TRANS_TYPE_ID_LO || '
154                   and ' || P_TRANS_TYPE_ID_HIGH);
155     ELSE
156       IF P_TRANS_TYPE_ID_LO IS NULL AND P_TRANS_TYPE_ID_HIGH IS NOT NULL THEN
157         RETURN ('and mtt.transaction_type_id = ' || P_TRANS_TYPE_ID_HIGH);
158       ELSE
159         IF P_TRANS_TYPE_ID_LO IS NOT NULL AND P_TRANS_TYPE_ID_HIGH IS NULL THEN
160           RETURN ('and mtt.transaction_type_id = ' || P_TRANS_TYPE_ID_LO);
161         ELSE
162           RETURN (' ');
163         END IF;
164       END IF;
165     END IF;
166     RETURN ' ';
167   END C_TRANS_TYPE_WHERE;
168 
169   FUNCTION BEFOREPFORM RETURN BOOLEAN IS
170     CURSOR C_SOB IS
171       SELECT
172         SET_OF_BOOKS_ID
173       FROM
174         AP_SYSTEM_PARAMETERS;
175   BEGIN
176     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
177     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
178     IF (P_SET_OF_BOOKS_ID IS NULL) THEN
179       OPEN C_SOB;
180       FETCH C_SOB
181        INTO P_SET_OF_BOOKS_ID;
182       CLOSE C_SOB;
183     END IF;
184     RETURN (TRUE);
185   EXCEPTION
186     WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
187       BEGIN
188         /*SRW.MESSAGE(100
189                    ,'Foundation is not initialised')*/NULL;
190         /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
191       END;
192       RETURN NULL;
193   END BEFOREPFORM;
194   --#11703252 Character date international calendar support
195   FUNCTION C_SHIPPED_DATEFORMULA(SHIPPED_DATE IN DATE) RETURN CHAR IS
196   BEGIN
197     RETURN FND_DATE.DATE_TO_CHARDATE(SHIPPED_DATE,calendar_aware=>FND_DATE.calendar_aware_alt);
198   END C_SHIPPED_DATEFORMULA;
199 
200   FUNCTION CF_BLANKFORMULA RETURN CHAR IS
201   BEGIN
202     RETURN ('  ');
203   END CF_BLANKFORMULA;
204 
205   FUNCTION CF_TAX_REGISTRATION_NUMBERFORM RETURN VARCHAR2 IS
206     L_DEF_TAX_REG_NO VARCHAR2(50);
207   BEGIN
208     BEGIN
209       SELECT
210         ZR.REGISTRATION_NUMBER
211       INTO L_DEF_TAX_REG_NO
212       FROM
213         ZX_PARTY_TAX_PROFILE ZPTP,
214         ZX_REGISTRATIONS ZR,
215         XLE_ASSOCIATIONS_V XAV
216       WHERE ZPTP.PARTY_TAX_PROFILE_ID = ZR.PARTY_TAX_PROFILE_ID
217         AND ZR.DEFAULT_REGISTRATION_FLAG = 'Y'
218         AND ZPTP.PARTY_ID = XAV.LEGAL_PARTY_ID
219         AND ZPTP.PARTY_TYPE_CODE = 'LEGAL_ESTABLISHMENT'
220         AND XAV.ENTITY_ID = P_ISSUING_ORG
221         AND XAV.ENTITY_TYPE = 'INVENTORY_ORGANIZATION';
222       RETURN L_DEF_TAX_REG_NO;
223     EXCEPTION
224       WHEN NO_DATA_FOUND THEN
225         SELECT
226           ZR.REGISTRATION_NUMBER
227         INTO L_DEF_TAX_REG_NO
228         FROM
229           XLE_ETB_PROFILES XEP,
230           ZX_PARTY_TAX_PROFILE ZPTP,
231           ZX_REGISTRATIONS ZR,
232           ORG_ORGANIZATION_DEFINITIONS OOD
233         WHERE ZPTP.PARTY_TAX_PROFILE_ID = ZR.PARTY_TAX_PROFILE_ID
234           AND ZR.DEFAULT_REGISTRATION_FLAG = 'Y'
235           AND ZPTP.PARTY_ID = XEP.PARTY_ID
236           AND ZPTP.PARTY_TYPE_CODE = 'LEGAL_ESTABLISHMENT'
237           AND XEP.LEGAL_ENTITY_ID = OOD.LEGAL_ENTITY
238           AND XEP.MAIN_ESTABLISHMENT_FLAG = 'Y'
239           AND OOD.ORGANIZATION_ID = P_ISSUING_ORG;
240         RETURN L_DEF_TAX_REG_NO;
241     END;
242   EXCEPTION
243     WHEN NO_DATA_FOUND THEN
244       RETURN (NULL);
245   END CF_TAX_REGISTRATION_NUMBERFORM;
246 
247   FUNCTION C_MESSAGE_NO_DATA_P RETURN VARCHAR2 IS
248   BEGIN
249     RETURN C_MESSAGE_NO_DATA;
250   END C_MESSAGE_NO_DATA_P;
251 
252 END INV_INVINPSR_XMLP_PKG;
253