Ì i 2
mm.contract.main (main)
[vendor,number]
:MZ[gr,mz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
vendor 11 FREE L MIS.VEN gr
number 15 FREE L mz
active 1 YN L :MZ[gr,mz]|0
contract.group 10 FREE L MM.CNTR.GRP :MZ[gr,mz]|5
cs.all.fac 1 YN L :MZ[gr,mz]F|0
description 30 FREE L :MZ[gr,mz]|1
edit.comments 0 FREE L VAL=%Z.text.ed.shell(^/MZ[vendor,number]C,15,23,79,"",
VAL="D")
expiration.date 8 DATE L :MZ[gr,mz]|3
last.update 10 FREE L :MZ[gr,mz]UPD
lead.days 3 PINT R :MZ[gr,mz]|4
resp.user 10 FREE L MIS.USER :MZ[gr,mz]|6
review.date 8 DATE L VAL=%Z.date.add(@expiration.date,0-@lead.days)
sort.items 20 FREE L VAL=IF{%MM.CONTRACT.sort.mt(item.urn,number,vendor)^cs
VAL=.fac,c.sort.by="MFR CAT #" @MM.ITEM.FAC.vend.manuf
VAL=.cat.no;c.sort.by="VEN CAT #" @MM.ITEM.FAC.vend.ca
VAL=t.no;@MM.ITEM.number}
status 7 CHOICE L :MZ[gr,mz]|2
view.comments 0 FREE L VAL=@Kill(/MZ[vendor,number]C),@Move(:MZ[vendor,number
VAL=]C,/MZ[vendor,number]C),%Z.view.shell(^/MZ[vendor,
VAL=number]C,11,21,79,"","D"),""
Ì € i 2
mm.contract.comments (comments)
[vendor,number, comment.line]
:MZ[gr,mz]C[mzC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comment.line 5 PINT R mzC
comment.text 79 FREE L :MZ[gr,mz]C[mzC]
Ì € i 2
mm.contract.date.item (date.item)
[vendor,number, di.eff.date,di.item.urn]
:MZ[gr,mz]DI[mzD,mt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
di.eff.date 8 DATE L mzD
di.item.urn 43 URN L MM.ITEM mt
Ì € i 2
mm.contract.items (items)
[vendor,number, item.urn]
:MZ[gr,mz]I[mt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
item.urn 43 URN L MM.ITEM mt
item.edit.comment 0 FREE L VAL=%Z.text.ed.shell(^/MZ[vendor,number]I[item.urn]C,2
VAL=,11,79),""
item.number 11 FREE L :MZ[gr,mz]I[mt]|0
item.up 10 FREE L :MZ[gr,mz]I[mt]|1
item.up.conv 10 FREE L :MZ[gr,mz]I[mt]|3
item.up.unit 10 FREE L :MZ[gr,mz]I[mt]|2
Ì € i 2
mm.contract.effective.dates (effective.dates)
[vendor,number,item.urn, effective.date]
:MZ[gr,mz]I[mt]D[mzD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
effective.date 8 DATE L mzD
eff.date.sort 20 FREE L VAL=IF{%MM.CONTRACT.sort.mt(item.urn,number,vendor)^cs
VAL=.fac,c.sort.by="MFR CAT #" @MM.ITEM.FAC.vend.manuf
VAL=.cat.no;c.sort.by="VEN CAT #" @MM.ITEM.FAC.vend.ca
VAL=t.no;@MM.ITEM.number}
eff.item.price 10 PDEC4 R :MZ[gr,mz]I[mt]D[mzD]|0
Ì € i 2
mm.contract.ed.other (ed.other)
[vendor,number,item.urn,effective.date, edo.unit]
:MZ[gr,mz]I[mt]D[mzD]O[md]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edo.unit 10 FREE L md
edo.cost 10 PDEC4 R :MZ[gr,mz]I[mt]D[mzD]O[md]|0
Ì € i 2
mm.contract.item.contacts (item.comments)
[vendor,number,item.urn, item.comment.line]
:MZ[gr,mz]I[mt]C[mzLC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
item.comment.line 3 PINT R mzLC
item.comment.text 79 FREE L :MZ[gr,mz]I[mt]C[mzLC]
Ì € i 2
mm.contract.fac.list (fac.list)
[vendor,number, cs.fac]
:MZ[gr,mz]F["F",mw]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cs.fac 10 FREE L MIS.PUR.FAC mw
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
mm.contract.eff.date.index [effective.date,item.urn,vendor,number]
eff.date.x ?MZD[mzD,mt,gr,mz]
mm.contract.exp.date.index [expiration.date,vendor,number]
exp.date.x ?MZE[mzE,gr,mz]
mm.contract.item.x [vendor,item.urn,number]
item.x ?MZI[gr,mt,mz]
mm.contract.review.index [review.date,vendor,number]
review.x ?MZR[mzR,gr,mz]
|
|
| | | | | | |