Ì 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
description 30 FREE L :MZ[gr,mz]|1
edit.comments 0 FREE L VAL=%Z.text.ed.shell(^/MZ[vendor,number]C,13,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{c.sort.by="MFR CAT No." @MM.ITEM.vend.manuf.cat
VAL=.no;c.sort.by="VEN CAT No." @MM.ITEM.vend.cat.no;@
VAL=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 73 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 73 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
Ì € 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{c.sort.by="MFR CAT No." @MM.ITEM.vend.manuf.cat
VAL=.no;c.sort.by="VEN CAT No." @MM.ITEM.vend.cat.no;@
VAL=MM.ITEM.number}
eff.item.price 10 PDEC4 R :MZ[gr,mz]I[mt]D[mzD]|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]
Ì 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]
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]
|
|
| | | | |