557: END IF;
558:
559: /* COMMENTED OUT Validate Trans Date For Posting Into Closed Periods.
560:
561: l_return_val := GMICCAL.trans_date_validate ( l_tran_rec.trans_date
562: , l_tran_rec.orgn_code
563: , l_tran_rec.whse_code
564: );
565: ==============================================
1254:
1255: /* Validate Trans Date For Posting Into Closed Periods */
1256:
1257:
1258: l_return_val := GMICCAL.trans_date_validate ( l_tran_rec.trans_date,
1259: l_tran_rec.orgn_code,
1260: l_tran_rec.whse_code
1261: );
1262:
1264: Thomas Daniel 04/17/2002 11.5.1I BUG#2322973
1265: Only check for the sysdate if the calendar is
1266: closed for the trans date passed in
1267: ============================================*/
1268: IF (l_return_val IN (GMICCAL.INVCAL_PERIOD_CLOSED,
1269: GMICCAL.INVCAL_WHSE_CLOSED)) THEN
1270:
1271:
1272: IF p_retry_flag = 1 THEN
1265: Only check for the sysdate if the calendar is
1266: closed for the trans date passed in
1267: ============================================*/
1268: IF (l_return_val IN (GMICCAL.INVCAL_PERIOD_CLOSED,
1269: GMICCAL.INVCAL_WHSE_CLOSED)) THEN
1270:
1271:
1272: IF p_retry_flag = 1 THEN
1273:
1274: -- Set the trans date to sysdate and re-try
1275:
1276: l_tran_rec.trans_date := SYSDATE;
1277:
1278: l_return_val := GMICCAL.trans_date_validate
1279: (l_tran_rec.trans_date,
1280: l_tran_rec.orgn_code,
1281: l_tran_rec.whse_code
1282: );
1289: Thomas Daniel 04/17/2002 11.5.1I BUG#2322973
1290: Added specific messages for each return from
1291: the calendar validation.
1292: ============================================*/
1293: IF l_return_val = GMICCAL.INVCAL_FISCALYR_ERR THEN
1294: FND_MESSAGE.SET_NAME('GMI','IC_CAL_FISCALYR_ERR');
1295: FND_MSG_PUB.Add;
1296: ELSIF l_return_val = GMICCAL.INVCAL_PERIOD_ERR THEN
1297: FND_MESSAGE.SET_NAME('GMI','IC_CAL_CLOSED_IND_ERR');
1292: ============================================*/
1293: IF l_return_val = GMICCAL.INVCAL_FISCALYR_ERR THEN
1294: FND_MESSAGE.SET_NAME('GMI','IC_CAL_FISCALYR_ERR');
1295: FND_MSG_PUB.Add;
1296: ELSIF l_return_val = GMICCAL.INVCAL_PERIOD_ERR THEN
1297: FND_MESSAGE.SET_NAME('GMI','IC_CAL_CLOSED_IND_ERR');
1298: FND_MSG_PUB.Add;
1299: ELSIF l_return_val = GMICCAL.INVCAL_ORGN_PARM_ERR THEN
1300: FND_MESSAGE.SET_NAME('GMI','IC_INVALID_ORGN_ERR');
1295: FND_MSG_PUB.Add;
1296: ELSIF l_return_val = GMICCAL.INVCAL_PERIOD_ERR THEN
1297: FND_MESSAGE.SET_NAME('GMI','IC_CAL_CLOSED_IND_ERR');
1298: FND_MSG_PUB.Add;
1299: ELSIF l_return_val = GMICCAL.INVCAL_ORGN_PARM_ERR THEN
1300: FND_MESSAGE.SET_NAME('GMI','IC_INVALID_ORGN_ERR');
1301: FND_MSG_PUB.Add;
1302: ELSIF l_return_val = GMICCAL.INVCAL_CO_ERR THEN
1303: FND_MESSAGE.SET_NAME('GMI','IC_COCODEERR');
1298: FND_MSG_PUB.Add;
1299: ELSIF l_return_val = GMICCAL.INVCAL_ORGN_PARM_ERR THEN
1300: FND_MESSAGE.SET_NAME('GMI','IC_INVALID_ORGN_ERR');
1301: FND_MSG_PUB.Add;
1302: ELSIF l_return_val = GMICCAL.INVCAL_CO_ERR THEN
1303: FND_MESSAGE.SET_NAME('GMI','IC_COCODEERR');
1304: FND_MSG_PUB.Add;
1305: ELSIF l_return_val = GMICCAL.INVCAL_WHSE_PARM_ERR THEN
1306: FND_MESSAGE.SET_NAME('GMI','IC_BLANKWHSE');
1301: FND_MSG_PUB.Add;
1302: ELSIF l_return_val = GMICCAL.INVCAL_CO_ERR THEN
1303: FND_MESSAGE.SET_NAME('GMI','IC_COCODEERR');
1304: FND_MSG_PUB.Add;
1305: ELSIF l_return_val = GMICCAL.INVCAL_WHSE_PARM_ERR THEN
1306: FND_MESSAGE.SET_NAME('GMI','IC_BLANKWHSE');
1307: FND_MSG_PUB.Add;
1308: ELSIF l_return_val = GMICCAL.INVCAL_WHSE_ERR THEN
1309: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_WHSE_CODE');
1304: FND_MSG_PUB.Add;
1305: ELSIF l_return_val = GMICCAL.INVCAL_WHSE_PARM_ERR THEN
1306: FND_MESSAGE.SET_NAME('GMI','IC_BLANKWHSE');
1307: FND_MSG_PUB.Add;
1308: ELSIF l_return_val = GMICCAL.INVCAL_WHSE_ERR THEN
1309: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_WHSE_CODE');
1310: FND_MESSAGE.SET_TOKEN('WHSE_CODE',l_tran_rec.whse_code);
1311: FND_MSG_PUB.Add;
1312: ELSIF l_return_val IN (GMICCAL.INVCAL_PERIOD_CLOSED,
1308: ELSIF l_return_val = GMICCAL.INVCAL_WHSE_ERR THEN
1309: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_WHSE_CODE');
1310: FND_MESSAGE.SET_TOKEN('WHSE_CODE',l_tran_rec.whse_code);
1311: FND_MSG_PUB.Add;
1312: ELSIF l_return_val IN (GMICCAL.INVCAL_PERIOD_CLOSED,
1313: GMICCAL.INVCAL_WHSE_CLOSED) THEN
1314: /*==============================================
1315: Joe DiIorio 04/08/2002 11.5.1I BUG#2248778
1316: ============================================*/
1309: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_WHSE_CODE');
1310: FND_MESSAGE.SET_TOKEN('WHSE_CODE',l_tran_rec.whse_code);
1311: FND_MSG_PUB.Add;
1312: ELSIF l_return_val IN (GMICCAL.INVCAL_PERIOD_CLOSED,
1313: GMICCAL.INVCAL_WHSE_CLOSED) THEN
1314: /*==============================================
1315: Joe DiIorio 04/08/2002 11.5.1I BUG#2248778
1316: ============================================*/
1317: FND_MESSAGE.SET_NAME('GMI','IC_API_TXN_POST_CLOSED');