Ì i 2
lab.c.route.main (main)
[route]
&SRR[srr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
route 10 FREE L srr
active 1 YN L &SRR[srr]|0
branch 0 FREE L VAL=IF{@Z.lastkey'=@Z.special.fcn;@.new 99;%LAB.U.bran
VAL=ch("LAB.C.ROUTE.ee.S","LAB.C.ROUTE.ee")^@.new^@.ne
VAL=w.ext ""^@.old^@.old.ext,@Z.return;99}^@Z.lastkey
group 1 YN L &SRR[srr]|2
last.update 20 FREE L &SRR[srr]UPD
name 30 FREE L &SRR[srr]|1
urn 10 FREE L
Ì € i 2
lab.c.route.stops (stops)
[route, stop]
&SRR[srr]ST[srrST]
Field Name Len Dat Typ J DPM Offset/Local/VAL
stop 6 FREE L srrST
check.mark 1 FREE L VAL=IF{@stop.comment[1] @Z.check.mark;" "}
stop.active 1 YN L &SRR[srr]ST[srrST]|0
stop.name 30 FREE L &SRR[srr]ST[srrST]|1
Ì € i 2
lab.c.route.doctors (clients)
[route,stop, client.q]
&SRR[srr]ST[srrST]A[srrCQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
client.q 3 PINT R srrCQ
client 10 FREE L MIS.DOC.DICT &SRR[srr]ST[srrST]A[srrCQ]|0
client.check.mark 1 FREE L VAL=IF{@client.comment[1] @Z.check.mark;" "}
client.num.of.copies 1 PINT R &SRR[srr]ST[srrST]A[srrCQ]|1
Ì € i 2
lab.c.route.doctor.comments (client.comments)
[route,stop,client.q, client.comment.q]
&SRR[srr]ST[srrST]A[srrCQ]CC[srrCC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
client.comment.q 2 PINT R srrCC
any.client.comment.flag 1 FREE L VAL=@Set.attr(@Z.color.labels1)_IF{@client.comment[1]
VAL=@Z.check.mark;" "}_@Set.attr(@Z.color.data1)
any.client.comments 1 YN L VAL=IF{@LAB.C.ROUTE.client.comment[1] "Y";"N"}
client.comment 40 FREE L &SRR[srr]ST[srrST]A[srrCQ]CC[srrCC]
edit.client.comment 1 YN L &SRR[srr]ST[srrST]A[srrCQ]CC[srrCC]CC
view.client.comment 1 YN L &SRR[srr]ST[srrST]A[srrCQ]CC[srrCC]CC
Ì € i 2
lab.c.route.stop.comments (stop.comments)
[route,stop, stop.comment.q]
&SRR[srr]ST[srrST]SC[ssrSC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
stop.comment.q 2 PINT R ssrSC
any.stop.comment.flag 1 FREE L VAL=@Set.attr(@Z.color.labels1)_IF{@stop.comment[1] @Z
VAL=.check.mark;" "}_@Set.attr(@Z.color.data1)
any.stop.comments 1 YN L VAL=IF{@LAB.C.ROUTE.stop.comment[1] "Y";"N"}
edit.stop.comment 1 YN L &SRR[srr]ST[srrST]SC[ssrSC]C
stop.comment 40 FREE L &SRR[srr]ST[srrST]SC[ssrSC]
view.stop.comment 1 YN L &SRR[srr]ST[srrST]SC[ssrSC]C
Ì € i 2
lab.c.routes.component.routes (sub.routes)
[route, sub.route]
&SRR[srr]SR[srrSR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sub.route 10 FREE L LAB.C.ROUTE srrSR
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
lab.c.route.doctor.x [client,route,stop]
client.x &SRRC[ggg,srr,srrST]
lab.c.route.sub.route.index [sub.route,route]
sub.route.x &SRRS[srrSR,srr]
|
|
| | | | |