SEGMENT "packlist_detail"
	TYPEFACE "Courier"
	POINTS 9

	IF pack_fmt[1,1:5] = "CARPL"
	OR pack_fmt[1,1:7] = "DEFAULT"
	OR ISBLANK ( pack_fmt )
	THEN
		LET lineY = 760
		LET tempString = "STORE: " & route_cmt5[1,1:10] & " DEPT: " & grp7
		DRAW TEXT AT lineY, addressX USING tempString TYPEFACE "Univers" POINTS 8
		LET lineY = lineY + 30
		LET tempString = "ACCT/DOOR: " & grp5[1,1:5] & "/" & grp5[1,6:8]
		DRAW TEXT AT lineY, addressX USING tempString TYPEFACE "Univers" POINTS 8
		LET tempString = ""
	END IF

	LET moreRoom = "TRUE"
	LET end_of_page = "FALSE"
	LET increment = 50
	LET lineY = tableY + headerHeight + increment

	FOR detail = save_detail TO od_count
		LET save_detail = detail
		LET lineHasInventory = FALSE
		CALL "lineHasInventory" WITH detail RETURNING lineHasInventory
		IF ( lineHasInventory )
		THEN
			IF (colname6 = "CUSTOMER P.O.")
			THEN
				LET tempString = ship_po
			ELIF ( colname6 = "DEPT #" )
			THEN
				LET tempString = grp7
				IF ISNUMERIC ( tempString )
				THEN
					LET tempString = PICTURE("***", tempString[1,1:3], "", "", "", "0")
				END IF
			ELIF ISBLANK( colname6 )
			THEN
				LET tempString = " "
			ELSE
				LET tempString = od_cust_oid[detail]
				LET od_cust_oid[detail] = " "
			END IF
			DRAW TEXT AT lineY, col6X + padding USING tempString
			LET tempString = " "

			FOR inv = save_inv TO iv_line_item_finish[detail]
				LET save_inv = inv
				LET tempString = iv_qty[inv]
				DRAW TEXT AT lineY, col2X + padding USING tempString
				LET total_qty = total_qty + tempString
				LET tempString = " "
				LET tempString = iv_sku[inv]
				LET iv_sku[inv] = " "
				DRAW TEXT AT lineY, col3X + padding USING tempString
				LET tempString = " "
				CALL "incrementAndCheck"
				WITH lineY, increment
				RETURNING lineY, moreRoom
				IF (moreRoom = "FALSE")
				THEN
					DRAW "mpack_continued.seg"
					EXIT SEGMENT
				END IF
			END FOR

		END IF 
	END FOR
END SEGMENT