Ì 2
lab.b.ques.main (main)
[mnemonic]
&SBF[sbf]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 10 FREE L sbf
active 1 FREE L &SBF[sbf]|0
any.res.fields 1 YN L &SBF[sbf]|13
first.result.field 5 PINT R &SBF[sbf]|11
height 3 PINT R &SBF[sbf]|3
last.result.field 5 PINT R &SBF[sbf]|12
last.update 50 FREE L &SBF[sbf]UPD
lock.ques.process 1 FREE L VAL=@Lock.process("Bbk Questionnaire "_@LAB.B.QUES.mne
VAL=monic_._$MAC_._S("J")^X,@LAB.C.LOCK.lock.p.error.c
VAL=ode)
lock.ques.update 1 FREE L VAL=@Lock.process("Update Bbk Questionnaire "_@LAB.B.Q
VAL=UES.mnemonic_._$MAC_._S("J")^X,@LAB.C.LOCK.lock.p.
VAL=error.code)
max.col 2 PINT R &SBF[sbf]|6
max.row 2 PINT R &SBF[sbf]|5
pgm.name.print 40 FREE L &SBF[sbf]|10
pgm.name.report 40 FREE L &SBF[sbf]|8
pgm.name.screen 40 FREE L &SBF[sbf]|7
pgm.name.view 40 FREE L &SBF[sbf]|9
prompt.font 3 CHOICE L &SBF[sbf]|14
ques.in.use 1 FREE L VAL=+:.LOCK.P["Bbk Questionnaire "_@LAB.B.QUES.mnemoni
VAL=c]#.=("Bbk Questionnaire "_@LAB.B.QUES.mnemonic)
ques.updating 1 FREE L VAL=+:.LOCK.P["Update Bbk Questionnaire "_@LAB.B.QUES.
VAL=mnemonic]#.=("Update Bbk Questionnaire "_@LAB.B.QU
VAL=ES.mnemonic)
response.font 3 CHOICE L &SBF[sbf]|15
response.font.abn 3 CHOICE L &SBF[sbf]|17
response.font.blank 3 CHOICE L &SBF[sbf]|16
screen.lm 3 INT R VAL=0
screen.rm 3 PINT R VAL=(IF{@t.width;@p.width}-1)
title 30 FREE L &SBF[sbf]|1
type 7 CHOICE L &SBF[sbf]|2
unlock.ques.process 1 FREE L VAL=K(:.LOCK.P["Bbk Questionnaire "_@LAB.B.QUES.mnemon
VAL=ic_._$MAC_._S("J")])
unlock.ques.update 1 FREE L VAL=K(:.LOCK.P["Update Bbk Questionnaire "_@LAB.B.QUES
VAL=.mnemonic_._$MAC_._S("J")])
urn 10 FREE L
width 2 PINT R &SBF[sbf]|4
Ì € 2
lab.b.ques.field.map (field.map)
[mnemonic, field.map.row,field.map.col]
&SBF[sbf]FM[sbfFR,sbfFC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
field.map.row 3 PINT R sbfFR
field.map.col 3 PINT R sbfFC
field.map.field 5 FREE L &SBF[sbf]FM[sbfFR,sbfFC]|0
Ì € 2
lab.b.ques.field.types (field.types)
[mnemonic, fld.type,fld.no]
&SBF[sbf]TY[sbfFT,sbfF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fld.type 8 CHOICE L sbfFT
fld.no 5 FREE L sbfF
Ì € 2
lab.b.ques.fields (fields)
[mnemonic, field.no]
&SBF[sbf]F[sbfF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
field.no 5 FREE L sbfF
field.col 3 PINT R &SBF[sbf]F[sbfF]|2
field.condition 21 FREE L &SBF[sbf]F[sbfF]|9
field.condition.ed 1 YN L &SBF[sbf]F[sbfF]|10
field.item 20 FREE L &SBF[sbf]F[sbfF]|8
field.justify 1 CHOICE L &SBF[sbf]F[sbfF]|5
field.key 5 FREE L &SBF[sbf]F[sbfF]|7
field.length 2 INT R &SBF[sbf]F[sbfF]|3
field.prompt 10 FREE L LAB.B.PROMPT &SBF[sbf]F[sbfF]|6
field.row 3 PINT R &SBF[sbf]F[sbfF]|1
field.type 7 CHOICE L &SBF[sbf]F[sbfF]|0
field.width 2 PINT R &SBF[sbf]F[sbfF]|4
row.col.display 6 FREE L VAL=@field.row+100%0_"/"_(@field.col+1000%0)
Ì € 2
lab.b.ques.field.con (field.con)
[mnemonic,field.no, answer.q]
&SBF[sbf]F[sbfF]C[sbfCQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
answer.q 2 PINT R sbfCQ
answer 15 FREE L &SBF[sbf]F[sbfF]C[sbfCQ]|1
branch.to.field 5 FREE L &SBF[sbf]F[sbfF]C[sbfCQ]|4
change.to.status 5 FREE L &SBF[sbf]F[sbfF]C[sbfCQ]|6
change.to.status.name 12 FREE L VAL=@LAB.PARAM.bbk.donor.status.name[@change.to.status
VAL=]
goto.ques 10 FREE L LAB.B.QUES &SBF[sbf]F[sbfF]C[sbfCQ]|2
goto.ques.when 3 CHOICE L &SBF[sbf]F[sbfF]C[sbfCQ]|3
operator 8 CHOICE L &SBF[sbf]F[sbfF]C[sbfCQ]|0
set.marker 10 FREE L LAB.C.MARK &SBF[sbf]F[sbfF]C[sbfCQ]|5
Ì € 2
lab.b.ques.literals (literals)
[mnemonic, literal.row,literal.col]
&SBF[sbf]L[sbfLR,sbfLC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
literal.row 2 PINT R sbfLR
literal.col 2 PINT R sbfLC
literal.text 92 FREE L &SBF[sbf]L[sbfLR,sbfLC]|0
Ì € 2
lab.b.ques.prompt.map (prompt.map)
[mnemonic, map.field]
&SBF[sbf]M[sbfF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
map.field 5 FREE L sbfF
map.prompt 10 FREE L LAB.B.PROMPT &SBF[sbf]M[sbfF]|0
Ì € 2
lab.b.ques.prompt (prompts)
[mnemonic, prompt]
&SBF[sbf]P[sbq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
prompt 10 FREE L LAB.B.PROMPT sbq
Ì € 2
lab.b.ques.screen (screen)
[mnemonic, screen.q]
&SBF[sbf]S[sbfSQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
screen.q 3 PINT R sbfSQ
screen.line 92 FREE L &SBF[sbf]S[sbfSQ]
|
|
| | | | | | |