133: ,CF_DOC_NUM IN NUMBER
134: ,TRANS_ID IN NUMBER) RETURN NUMBER IS
135: BEGIN
136: IF ((OLD_PACKSLIP_NUMBER = 0) AND (CS_VENDOR_COUNT = 1)) THEN
137: INSERT INTO MTL_PO_PACKSLIPS
138: (PACKSLIP_NUMBER
139: ,PACKSLIP_DATE
140: ,TRANSACTION_ID)
141: VALUES (CF_DOC_NUM
151: BEGIN
152: IF ((OLD_PACKSLIP_NUMBER = 0) AND (CS_VENDOR_COUNT = 1)) THEN
153: IF (OLD_VENDOR IS NULL OR OLD_VENDOR <> VENDOR) THEN
154: SELECT
155: MTL_PO_PACKSLIPS_S.NEXTVAL
156: INTO L_NEW_PACKSLIP_NUM
157: FROM
158: DUAL;
159: OLD_VENDOR := VENDOR;