Ì 2
lab.m.workcard (main)
[mnemonic]
&SME[sme]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 10 FREE L sme
active 1 FREE L &SME[sme]|0
first.result.field 5 PINT R &SME[sme]|9
height 3 PINT R &SME[sme]|3
last.result.field 5 PINT R &SME[sme]|10
last.update 50 FREE L &SME[sme]UPD
lock.workcard.process 1 FREE L VAL=@Lock.process("MWC:"_@LAB.M.WC.mnemonic_._$MAC_._S
VAL=("J")^X,@LAB.C.LOCK.lock.p.error.code)
lock.workcard.update 1 FREE L VAL=@Lock.process("UPDATE MWC:"_@LAB.M.WC.mnemonic_._$
VAL=MAC_._S("J")^X,@LAB.C.LOCK.lock.p.error.code)
max.col 2 PINT R &SME[sme]|6
max.row 2 PINT R &SME[sme]|5
procedure.field 1 YN L &SME[sme]|13
report.prog.name 40 FREE L &SME[sme]|7
screen.lm 3 INT R &SME[sme]|12
screen.prog.name 40 FREE L &SME[sme]|8
screen.rm 3 PINT R &SME[sme]|11
title 30 FREE L &SME[sme]|1
type 7 CHOICE L &SME[sme]|2
unlock.workcard.process 1 FREE L VAL=K(:.LOCK.P["MWC:"_@LAB.M.WC.mnemonic_._$MAC_._S("J
VAL=")])
unlock.workcard.update 1 FREE L VAL=K(:.LOCK.P["UPDATE MWC:"_@LAB.M.WC.mnemonic_._$MAC
VAL=_._S("J")])
urn 10 FREE L
width 3 PINT R &SME[sme]|4
workcard.in.use 1 FREE L VAL=+:.LOCK.P["MWC:"_@LAB.M.WC.mnemonic]#.=("MWC:"_@LA
VAL=B.M.WC.mnemonic)
workcard.updating 1 FREE L VAL=+:.LOCK.P["UPDATE MWC:"_@LAB.M.WC.mnemonic]#.=("UP
VAL=DATE MWC:"_@LAB.M.WC.mnemonic)
Ì € 2
lab.m.workcard.field.sections (field.sections)
[mnemonic, fld.section.no]
&SME[sme]SC[smeF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fld.section.no 5 FREE L smeF
Ì € 2
lab.m.workcard.field.types (field.types)
[mnemonic, fld.type,fld.no]
&SME[sme]TY[smeFT,smeF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fld.type 11 CHOICE L smeFT
fld.no 5 FREE L smeF
Ì € 2
lab.m.workcard.fields (fields)
[mnemonic, field.no]
&SME[sme]F[smeF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
field.no 5 FREE L smeF
field.antibiotic 9 PDEC5 R LAB.M.ANTI &SME[sme]F[smeF]|12
field.assoc.org 5 FREE L &SME[sme]F[smeF]|9
field.assoc.proc 5 FREE L &SME[sme]F[smeF]|11
field.begin.section 1 YN L &SME[sme]F[smeF]|14
field.col 3 PINT R &SME[sme]F[smeF]|2
field.edit 1 YN L &SME[sme]F[smeF]|13
field.item 20 FREE L &SME[sme]F[smeF]|8
field.justify 1 CHOICE L &SME[sme]F[smeF]|5
field.key 5 FREE L &SME[sme]F[smeF]|7
field.length 3 PINT R &SME[sme]F[smeF]|3
field.mult.result 5 FREE L &SME[sme]F[smeF]|16
field.para.result 5 FREE L &SME[sme]F[smeF]|15
field.proc.dft 9 PDEC5 R LAB.M.PROC &SME[sme]F[smeF]|10
field.prompt 10 FREE L LAB.M.PROMPT &SME[sme]F[smeF]|6
field.row 3 PINT R &SME[sme]F[smeF]|1
field.type 11 CHOICE L &SME[sme]F[smeF]|0
field.width 3 PINT R &SME[sme]F[smeF]|4
row.col.display 7 FREE L VAL=@field.row+1000%0_"/"_(@field.col+1000%0)
Ì € 2
lab.m.workcard.assoc.fields (assoc.fields)
[mnemonic,field.no, assoc.field.no]
&SME[sme]F[smeF]AF[smeAF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
assoc.field.no 5 FREE L smeAF
Ì € 2
lab.m.workcard.literals (literals)
[mnemonic, literal.row,literal.col]
&SME[sme]L[smeLR,smeLC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
literal.row 2 PINT R smeLR
literal.col 2 PINT R smeLC
literal.text 92 FREE L &SME[sme]L[smeLR,smeLC]|0
Ì € 2
lab.m.wkcrd.result.map (result.map)
[mnemonic, result.map.field]
&SME[sme]M[smeF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
result.map.field 5 FREE L smeF
Ì € 2
lab.m.workcard.screen (screen)
[mnemonic, screen.q]
&SME[sme]S[smeSQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
screen.q 3 PINT R smeSQ
screen.line 92 FREE L &SME[sme]S[smeSQ]
|
|
| | | | | |