*CMSD.IVD - JUNE 22,1992
* ORDER/INVOICE RECORD LAYOUT FOR WGM  DISTRIBUTION
*
EQU IVD$ORDER.NUMBER       TO 00
EQU IVD$PARTNER            TO 01  ;* PM file key:VM:Order number
EQU IVD$STATUS             TO 02  ;* progressive order status(A,C,H,D)
*       A=ACTIVE(SOME PRODUCTS NOT SHIPPED)  C=CREDIT CARD
EQU IVD$BATCH.NUMBER       TO 03
EQU IVD$DATE.ORDERED       TO 04  ;* (batch date)
EQU IVD$DATE.ENTERED       TO 05  ;* (key entry date)
*
EQU IVD$TRACK.ACTION       TO 06  ;* (MV) - (ENT,PRT,SHP,HST and etc.)
EQU IVD$TRACK.OPERATOR     TO 07  ;* (MV) - (corresponds to action)
EQU IVD$TRACK.DATE         TO 08  ;* (MV) - (corresponds to action)
EQU IVD$TRACK.TIME         TO 09  ;* (MV) - (corresponds to action)
*
EQU IVD$ITEM               TO 10  ;* (MV) - (inventory file keys)
EQU IVD$QTY                TO 11  ;* (MV) - (corresponds to item)
EQU IVD$ITEM.STATUS        TO 12  ;* (MV) - (progressive item sts B,R,C,S)
*        B=BACKORDER R=RELEASED C=CREDIT CARD S=SHIPPED
EQU IVD$ITEM.BO.TAG        TO 13  ;* (MV) - (item backorder # tag(-n))
EQU IVD$UNIT.RETAIL        TO 14  ;* (MV) - (from inventory file)
EQU IVD$UNIT.COST          TO 15  ;* (MV) - (from inventory file)
EQU IVD$LINE.GROSS.AMT     TO 16  ;* (MV) - (item gross $ = qty*retail)
EQU IVD$LINE.DISC.AMOUNT   TO 17  ;* (MV) - (line discount amount)
EQU IVD$LINE.DISC.PERCENT  TO 18  ;* (MV) - (corresponds to item)
EQU IVD$LINE.SALES.TAX.AMT TO 19  ;* (MV) - (item sales tax amount)
EQU IVD$LINE.PAID          TO 20  ;* (MV) - (line item amount to pay)
EQU IVD$LINE.PRINT.ORDER   TO 21  ;* (MV) - (date*run# of packing sheet)
EQU IVD$LINE.PRINT.COD     TO 22  ;* (MV) - (date*run of COD labels)
EQU IVD$LINE.SHIPPED       TO 23  ;* (MV) - (date*run of shipped process)
EQU IVD$LINE.PRINT.INVOICE TO 24  ;* (MV) - (date*run printing invoices)
EQU IVD$LINE.NET.AMOUNT    TO 25  ;* (MV) - (LINE.GROSS-LINE.DISC+LINE.TAX)
EQU IVD$SALES.TAX.PERCENT  TO 26  ;* (applicable tax rate)
EQU IVD$ITEM.CC.AUTH       TO 27  ;* (MV) ITEM CC authorization number
EQU IVD$LINE.CC.AUTH       TO 27  ;* (MV) ITEM CC authorization number
EQU IVD$NET.ORDER.AMOUNT   TO 28  ;* (sum of attr XX-XX)
EQU IVD$NET.DISC.AMOUNT    TO 29  ;* (sum of qty*unit.disc.amount)
EQU IVD$GROSS.ORDER.AMOUNT TO 30  ;* (sum of attr XX-XX)
EQU IVD$TOTAL.PAID         TO 31
EQU IVD$BALANCE            TO 32
EQU IVD$TERMS              TO 33  ;* (COD,CC,CASH, and etc.)
EQU IVD$SHIP.MODE          TO 34  ;* (UPS,USPS and etc.)
EQU IVD$MISC.CHARGE.TYPE   TO 35  ;* (for MISC CHARGES WINDOW)
EQU IVD$MISC.CHARGE.ITEM   TO 36  ;* ('')
EQU IVD$MISC.CHARGE.AMOUNT TO 37  ;* ('')
EQU IVD$MISC.CHARGE.PRINT  TO 38  ;* ('')
EQU IVD$MISC.CHARGE.AUTH   TO 39  ;* ('')
EQU IVD$WAREHOUSE          TO 40
EQU IVD$EVENT              TO 41  ;* (not used)
EQU IVD$TRAN.TYPE          TO 42  ;* (MV) - (same as PM.TRANS type)
EQU IVD$TRAN.AMOUNT        TO 43  ;* (MV) - (corresponds to type)
EQU IVD$TRAN.DATE          TO 44  ;* (MV) - (corresponds to type)
EQU IVD$REFERENCE.NUMBER   TO 45  ;* (MV) - (corresponds to type)
EQU IVD$CHECK.NUMBER       TO 46  ;* (MV) - (corresponds to type)
*
EQU IVD$SOLD.TO.NAME       TO 47
EQU IVD$SOLD.TO.STREET     TO 48
EQU IVD$SOLD.TO.ATTN1      TO 49
EQU IVD$SOLD.TO.ATTN2      TO 50
EQU IVD$SOLD.TO.CITY       TO 51
EQU IVD$SOLD.TO.STATE      TO 52
EQU IVD$SOLD.TO.ZIP        TO 53
EQU IVD$SOLD.TO.COUNTRY    TO 54
*
EQU IVD$SHIP.TO.NAME       TO 55
  * title:VM:fname:VM:mname:VM:lname:VM:suffix:VM:fullname
EQU IVD$SHIP.TO.ADDRESS    TO 56
  * attn1:VM:attn2:VM:street:VM:city:VM:state:VM:zip:VM:country:VM:geo
EQU IVD$FILLER6            TO 57
EQU IVD$FILLER5            TO 58
EQU IVD$FILLER4            TO 59
EQU IVD$FILLER3            TO 60
EQU IVD$FILLER2            TO 61
EQU IVD$FILLER1            TO 62
*
*EQU IVD$SHIP.TO.STREET     TO 56
*EQU IVD$SHIP.TO.ATTN1      TO 57
*EQU IVD$SHIP.TO.ATTN2      TO 58
*EQU IVD$SHIP.TO.CITY       TO 59
*EQU IVD$SHIP.TO.STATE      TO 60
*EQU IVD$SHIP.TO.ZIP        TO 61
*EQU IVD$SHIP.TO.COUNTRY    TO 62
*
EQU IVD$BOXES              TO 63  ;* (## of boxes shipped)
EQU IVD$SALESPERSON        TO 64  ;* (not in use)
EQU IVD$CHANNEL            TO 65  ;* (not in use)
EQU IVD$CLUB.ID            TO 66  ; * Club ID
EQU IVD$COMMISION          TO 67  ;* (Y/N flag)
EQU IVD$COMMISSION         TO 67  ;* correct spelling
EQU IVD$COMMENTS           TO 68
EQU IVD$BACKORDERS         TO 69
EQU IVD$INFORMATION        TO 70  ;* user defined MV data
*
EQU IVD$CC.TYPE            TO 71
EQU IVD$CC.NUMBER          TO 72
EQU IVD$CC.EXP.DATE        TO 73
EQU IVD$CC.NAME            TO 74  ;* (name on credit card)
EQU IVD$ENTITY             TO 75
EQU IVD$CC.INTERBANK       TO 76  ;* (mastercard interbank number)
EQU IVD$CC.REJECT.REASON   TO 77  ;* CC reject reason
EQU IVD$CC.REJECT.DATE     TO 78
*
* End of Order/Invoice Record
*