Ì 2
field.results
[field.questionnaire,field.result.no]
/SBFR[sbf,sbfF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
field.questionnaire 10 FREE L LAB.B.QUES sbf
field.result.no 5 FREE L sbfF
field.result 92 FREE L /SBFR[sbf,sbfF]|0
field.result.abn.flag 1 FREE L /SBFR[sbf,sbfF]|2
field.result.default 92 FREE L /SBFR[sbf,sbfF]|3
field.result.text 92 FREE L /SBFR[sbf,sbfF]|1
field.result.text.date 92 DATE L /SBFR[sbf,sbfF]|0
field.result.text.free 92 FREE L /SBFR[sbf,sbfF]|1
field.result.text.int 92 INT R /SBFR[sbf,sbfF]|1
field.result.text.sdec 92 SDEC R /SBFR[sbf,sbfF]|1
field.result.text.time 92 HHMM L /SBFR[sbf,sbfF]|1
field.result.text.yn 92 YN L /SBFR[sbf,sbfF]|1
Ì 2
main
[mnemonic]
&(SB)SBF[sbf]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 10 FREE L sbf
active 1 FREE L &(SB)SBF[sbf]|0
last.update 50 FREE L &(SB)SBF[sbf]UPD
lock.ques.process 1 FREE L VAL=@Try.to.lock(@p.LAB.C.LOCK.main["BBK Questionnaire
VAL= "_@LAB.B.QUES.mnemonic_" "_B])
lock.ques.update 1 FREE L VAL=@Try.to.lock(@p.LAB.C.LOCK.main["Update BBK Questi
VAL=onnaire "_@LAB.B.QUES.mnemonic])
pgm.name.print 40 FREE L &(SB)SBF[sbf]|6
pgm.name.print.phys 20 FREE L &(SB)SBF[sbf]A|3
pgm.name.report 40 FREE L &(SB)SBF[sbf]|4
pgm.name.report.phys 20 FREE L &(SB)SBF[sbf]A|1
pgm.name.screen 40 FREE L &(SB)SBF[sbf]|3
pgm.name.screen.phys 20 FREE L &(SB)SBF[sbf]A|0
pgm.name.view 40 FREE L &(SB)SBF[sbf]|5
pgm.name.view.phys 20 FREE L &(SB)SBF[sbf]A|2
prompt.font 3 CHOICE L &(SB)SBF[sbf]|7
ques.in.use 1 FREE L VAL=@Locked(@p.LAB.C.LOCK.main["BBK Questionnaire "_@L
VAL=AB.B.QUES.mnemonic])
ques.updating 1 FREE L VAL=@Locked(@p.LAB.C.LOCK.main["Update BBK Questionnai
VAL=re "_@LAB.B.QUES.mnemonic])
response.font 3 CHOICE L &(SB)SBF[sbf]|8
response.font.abn 3 CHOICE L &(SB)SBF[sbf]|10
response.font.blank 3 CHOICE L &(SB)SBF[sbf]|9
screen.lm 3 INT R VAL=0
screen.rm 3 PINT R VAL=91
title 30 FREE L &(SB)SBF[sbf]|1
type 7 CHOICE L &(SB)SBF[sbf]|2
unlock.ques.process 1 FREE L VAL=IF{@Locked(@p.LAB.C.LOCK.main["BBK Questionnaire "
VAL=_@LAB.B.QUES.mnemonic_" "_B])'%1P={@.machine,@.job
VAL=} @Unlock(@p.LAB.C.LOCK.main["BBK Questionnaire "_
VAL=@LAB.B.QUES.mnemonic_" "_B])}
unlock.ques.update 1 FREE L VAL=IF{@Locked(@p.LAB.C.LOCK.main["Update BBK Question
VAL=naire "_@LAB.B.QUES.mnemonic])'%1P={@.machine,@.jo
VAL=b} @Unlock(@p.LAB.C.LOCK.main["Update BBK Question
VAL=naire "_@LAB.B.QUES.mnemonic])}
urn 10 FREE L
Ì € 2
components
[mnemonic, component.q]
&(SB)SBF[sbf]CS[sbfCQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
component.q 2 PINT R sbfCQ
component.hot.key 1 FREE L &(SB)SBF[sbf]CS[sbfCQ]|2
component.name 10 FREE L &(SB)SBF[sbf]CS[sbfCQ]|1
component.screen 10 FREE L LAB.B.QUES &(SB)SBF[sbf]CS[sbfCQ]|0
Ì € 2
field.map
[mnemonic, field.map.row,field.map.col]
&(SB)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 &(SB)SBF[sbf]FM[sbfFR,sbfFC]|0
Ì € 2
field.types
[mnemonic, fld.type,fld.no]
&(SB)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
fields
[mnemonic, field.no]
&(SB)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 &(SB)SBF[sbf]F[sbfF]|2
field.condition 21 FREE L &(SB)SBF[sbf]F[sbfF]|9
field.condition.ed 1 YN L &(SB)SBF[sbf]F[sbfF]|10
field.item 20 FREE L &(SB)SBF[sbf]F[sbfF]|8
field.justify 1 CHOICE L &(SB)SBF[sbf]F[sbfF]|5
field.key 5 FREE L &(SB)SBF[sbf]F[sbfF]|7
field.length 2 INT R &(SB)SBF[sbf]F[sbfF]|3
field.prompt 10 FREE L LAB.B.PROMPT &(SB)SBF[sbf]F[sbfF]|6
field.row 3 PINT R &(SB)SBF[sbf]F[sbfF]|1
field.rule 10 FREE L LAB.C.RULE &(SB)SBF[sbf]F[sbfF]|11
field.rule.fcl 10 FREE L LAB.C.RULE &(SB)SBF[sbf]F[sbfF]|12
field.type 7 CHOICE L &(SB)SBF[sbf]F[sbfF]|0
field.width 2 PINT R &(SB)SBF[sbf]F[sbfF]|4
row.col.display 6 FREE L VAL=@field.row+100%0_"/"_(@field.col+1000%0)
Ì € 2
literals
[mnemonic, literal.row,literal.col]
&(SB)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 &(SB)SBF[sbf]L[sbfLR,sbfLC]|0
Ì € 2
prompt.map
[mnemonic, map.field]
&(SB)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 &(SB)SBF[sbf]M[sbfF]|0
Ì € 2
prompts
[mnemonic, prompt]
&(SB)SBF[sbf]P[sbq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
prompt 10 FREE L LAB.B.PROMPT sbq
Ì € 2
screen
[mnemonic, screen.q]
&(SB)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 &(SB)SBF[sbf]S[sbfSQ]
|
|
| | | | | | | |