1: PACKAGE BODY INVPVDR2 AS
2: /* $Header: INVPVD2B.pls 120.7 2006/07/06 08:23:01 nshariff ship $ */
3:
4: FUNCTION validate_item_header2
5: (
349: end if;
350: status := 1;
351: END IF;
352: IF l_inv_debug_level IN(101, 102) THEN
353: INVPUTLI.info('INVPVDR2: Validating flags');
354: END IF;
355: -- validate ENCUMBRANCE_ACCOUNT
356: select ENCUMBRANCE_REVERSAL_FLAG
357: into resersal_flag
1213: err_text := substr('INVPVALI.validate_item_header2' || SQLERRM, 1,240);
1214: return(SQLCODE);
1215: end validate_item_header2;
1216:
1217: end INVPVDR2;