Ì 2
pha.dft.main (main)
[routine]
&TDDF[tddf]
Field Name Len Dat Typ J DPM Offset/Local/VAL
routine 10 FREE L tddf
active 1 YN L &TDDF[tddf]|0
custom 1 YN L &TDDF[tddf]|2
last.update 50 FREE L &TDDF[tddf]UPD
list.active 1 YN L VAL=IF{@.user="MEDITOOL" "Y";@active}
routine.name 40 FREE L &TDDF[tddf]|1
Ì € 2
pha.dft.defaults (defaults)
[routine, dft.ctrl]
&TDDF[tddf]DFT[tddfD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dft.ctrl 10 FREE L tddfD
Ì € 2
pha.dft.dfts.by.prompt.code (defaults.by.prompt.code)
[routine,dft.ctrl, prompt.code.by.value]
&TDDF[tddf]DFT[tddfD]D[tddfP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
prompt.code.by.value 10 FREE L tddfP
dft 30 FREE L &TDDF[tddf]DFT[tddfD]D[tddfP]
Ì € 2
pha.dft.text.lines (text)
[routine,dft.ctrl,prompt.code.by.value, text.q]
&TDDF[tddf]DFT[tddfD]D[tddfP]T[tddfR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
text.q 2 PINT R tddfR
text.line 90 FREE L &TDDF[tddf]DFT[tddfD]D[tddfP]T[tddfR]
Ì € 2
pha.dft.ee (ee)
[routine, ee.q]
&TDDF[tddf]EE[tddfQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ee.q 3 PINT R tddfQ
ee.default 30 FREE L &TDDF[tddf]EE[tddfQ]|4
ee.dft.data.type 7 CHOICE L &TDDF[tddf]EE[tddfQ]|3
ee.dft.length 2 PINT R &TDDF[tddf]EE[tddfQ]|2
ee.prompt.seq.num 7 PDEC R &TDDF[tddf]EE[tddfQ]|0
ee.prompt.text 30 FREE L &TDDF[tddf]EE[tddfQ]|1
Ì € 2
pha.dft.prompts.by.seq.num (prompts.by.seq.num)
[routine, prompt.seq.num]
&TDDF[tddf]P[tddfN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
prompt.seq.num 7 PDEC R tddfN
choices 80 FREE L &TDDF[tddf]P[tddfN]C|0
default.by.seq.num 30 FREE L &TDDF[tddf]P[tddfN]|6
dft.data.type 7 CHOICE L &TDDF[tddf]P[tddfN]|4
dft.extra.check 80 FREE L &TDDF[tddf]P[tddfN]|5
dft.length 2 PINTZ R &TDDF[tddf]P[tddfN]|3
help 70 FREE L &TDDF[tddf]P[tddfN]HLP
prompt.code 10 FREE L &TDDF[tddf]P[tddfN]|0
prompt.custom 1 YN L &TDDF[tddf]P[tddfN]|2
prompt.text 30 FREE L &TDDF[tddf]P[tddfN]|1
Ì € 2
pha.dft.text.by.seq.num (text.by.seq.num)
[routine,prompt.seq.num, text.by.seq.q]
&TDDF[tddf]P[tddfN]T[tddfR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
text.by.seq.q 2 PINT R tddfR
text.line.by.seq 90 FREE L &TDDF[tddf]P[tddfN]T[tddfR]
|
|
| | | | |