Ì 2
sch.letter.text.file (main)
[mnemonic]
&WCL[wcl]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 10 FREE L wcl
active 1 YN L &WCL[wcl]|0
data.fields.from 10 FREE L SCH.RFIELDS &WCL[wcl]|9
description 50 FREE L &WCL[wcl]|1
fill.in 3 FREE L VAL="[]"
fill.ins 1 YN L &WCL[wcl]|8
hold.adm.acct 1 YN L &WCL[wcl]|10
hold.appt 1 YN L &WCL[wcl]|11
last.update 30 FREE L &WCL[wcl]UPD
left.margin 2 PINT R &WCL[wcl]|3
macros 1 YN L &WCL[wcl]|6
page.size 3 PINT R &WCL[wcl]|4
text.editor 0 FREE L VAL=%MIS.EDIT.sh(^/WCL[mnemonic]T,9,28,92,0,"D"),""
text.editor.view 0 FREE L VAL=@Kill(/WCL[mnemonic]T),@Move(&WCL[mnemonic]T,/WCL[
VAL=mnemonic]T),%Z.view.text(^/WCL[mnemonic]T,9,19,92,
VAL=Q(@Z.color.labels1,@Z.color.data1))
total.external.lines 3 PINT R &WCL[wcl]|7
total.lines 3 PINT R &WCL[wcl]|5
width 3 PINT R &WCL[wcl]|2
Ì € 2
sch.letter.text (text)
[mnemonic, line.num]
&WCL[wcl]T[letN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
line.num 3 PINT R letN
line.text 92 FREE L &WCL[wcl]T[letN]
Ì 2
sch.letter.text.temp.letters (temp.letters)
[temp.letter]
/WCL1[wcl]
Field Name Len Dat Typ J DPM Offset/Local/VAL
temp.letter 10 FREE L SCH.LETTER.TEXTwcl
Ì € 2
sch.letter.text.temp.ltr.text (temp.letters.lines)
[temp.letter, temp.line]
/WCL1[wcl]T[wclL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
temp.line 5 PINT R wclL
temp.text 92 FREE L /WCL1[wcl]T[wclL]
Ì 2
sch.letter.text.temp.letters2 (temp.letters2)
[temp.letter2]
/WCL.OA[wcl]
Field Name Len Dat Typ J DPM Offset/Local/VAL
temp.letter2 10 FREE L SCH.LETTER.TEXTwcl
Ì € 2
sch.letter.text.temp.ltr2.line (temp.letters2.lines)
[temp.letter2, temp.line2]
/WCL.OA[wcl]T[wclL2]
Field Name Len Dat Typ J DPM Offset/Local/VAL
temp.line2 5 PINT R wclL2
temp.text2 92 FREE L /WCL.OA[wcl]T[wclL2]
Ì 2
sch.letter.text.temp.ltr.frag (temp.ltr.frag)
[temp.ltr]
/WCL2[wcl]
Field Name Len Dat Typ J DPM Offset/Local/VAL
temp.ltr 10 FREE L SCH.LETTER.TEXTwcl
Ì € 2
sch.letter.text.temp.ltr.ftext (temp.ltr.frag.lines)
[temp.ltr, temp.frag.line]
/WCL2[wcl]T[wcl2L]
Field Name Len Dat Typ J DPM Offset/Local/VAL
temp.frag.line 5 PINT R wcl2L
temp.frag.text 92 FREE L /WCL2[wcl]T[wcl2L]
Ì 2
SCH.LETTER.TEXT.temp.ltr.frag (temp.ltr.frag2)
[temp.ltr2]
/WCL.OA2[wcl2]
Field Name Len Dat Typ J DPM Offset/Local/VAL
temp.ltr2 10 FREE L SCH.LETTER.TEXTwcl2
Ì € 2
SCH.LETTER.TEXT.tmpe.ltr.frag2 (temp.ltr.frag2.lines)
[temp.ltr2, temp.frag.line2]
/WCL.OA2[wcl2]T[wcL2]
Field Name Len Dat Typ J DPM Offset/Local/VAL
temp.frag.line2 5 PINT R wcL2
temp.frag.text2 92 FREE L /WCL.OA2[wcl2]T[wcL2]
|
|
| | | | | | | |