= DocTemplate ClipCode

:Dsccommence
^!Skip Do you wish to create a Level1 entry?
^!GoTo Dscterminate 
^!GoTo Level1initiate

:Level1initiate
^!Set %Level1type%=^?{Level of Level1 entry==_series|subseries|recordgrp|subgrp|file|item|otherlevel}
^!InsertText ^P<c01 level="^%Level1type%">
^!GoTo Level1didcommence

:Level1didcommence
^!InsertText ^P<did>
^!Skip Do you wish to enter container info for this Level1 entry?
^!GoTo Level1title
^!GoTo Level1container

:Level1container
^!Set %Level1containertype%=^?{Type of container?==_Box|Folder|MapCase}
^!Set %Level1containernum%=^?{Container number (1,1-2,etc.)?}
^!InsertText ^P<container type="^%Level1containertype%">^%Level1containernum%</container>
^!Skip Do you wish to enter another container statement for the Level1 entry?
^!GoTo Level1title
^!GoTo Level1container

:Level1title
^!Skip Do you wish to enter title info for this Level1 entry?
^!GoTo Level1date
^!Set %Level1title%=^?{Title of this Level1 entry?}
^!InsertText ^P<unittitle>^%Level1title%</unittitle>
^!GoTo Level1date

:Level1date
^!Skip Do you wish to enter date info for this Level1 entry?
^!GoTo Level1physdesc
^!Set %Level1date%=^?{Date(s) of this Level1 entry?}
^!InsertText ^P<unitdate>^%Level1date%</unitdate>
^!GoTo Level1physdesc

:Level1physdesc
^!Skip Do you wish to enter physical description info for this Level1 entry?
^!GoTo Level1didterminate
^!Set %Level1physdesc%=^?{Physical description of this Level1 entry?}
^!InsertText ^P<physdesc>^%Level1physdesc%</physdesc>
^!GoTo Level1didterminate

:Level1didterminate
^!InsertText ^P</did>
^!Skip Do you wish to enter a note for this Level1 entry?
^!GoTo Level2prompt
^!GoTo Level1note

:Level1note
^!Set %Level1note%=^?{(T=W)Enter one-paragraph note?}
^!InsertText ^P<note><p>^%Level1note%</p></note>
^!GoTo Level2prompt

:Level2prompt
^!Skip Do you wish to create a new Level2 entry within this Level1 entry?
^!GoTo Level1kill
^!GoTo Level2initiate

:Level2initiate
^!Set %Level2type%=^?{Level of Level2 entry?==series|_subseries|recordgrp|subgrp|file|item|otherlevel}
^!InsertText ^P<c02 level="^%Level2type%">
^!GoTo Level2didcommence

:Level2didcommence
^!InsertText ^P<did>
^!Skip Do you wish to enter container info for this Level2 entry?
^!GoTo Level2title
^!GoTo Level2container

:Level2container
^!Set %Level2containertype%=^?{Type of container?==_Box|Folder|MapCase}
^!Set %Level2containernum%=^?{Container number (1,1-2,etc.)?}
^!InsertText ^P<container type="^%Level2containertype%">^%Level2containernum%</container>
^!Skip Do you wish to create another container statement within this Level2 entry?
^!GoTo Level2title
^!GoTo Level2container

:Level2title
^!Skip Do you wish to enter title info for this Level2 entry?
^!GoTo Level2date
^!Set %Level2title%=^?{Title of this Level2 entry?}
^!InsertText ^P<unittitle>^%Level2title%</unittitle>
^!GoTo Level2date

:Level2date
^!Skip Do you wish to enter date info for this Level2 entry?
^!GoTo Level2physdesc
^!Set %Level2date%=^?{Date(s) of this Level2 entry?}
^!InsertText ^P<unitdate>^%Level2date%</unitdate>
^!GoTo Level2physdesc

:Level2physdesc
^!Skip Do you wish to enter physical description info for this Level2 entry?
^!GoTo Level2didterminate
^!Set %Level2physdesc%=^?{Physical description of this Level2 entry?}
^!InsertText ^P<physdesc>^%Level2physdesc%</physdesc>
^!GoTo Level2didterminate

:Level2didterminate
^!InsertText ^P</did>
^!Skip Do you wish to enter a note for this Level2 entry?
^!GoTo Level3prompt
^!GoTo Level2note

:Level2note
^!Set %Level2note%=^?{(T=W)Enter one-paragraph note?}
^!InsertText ^P<note><p>^%Level2note%</p></note>
^!GoTo Level3prompt

:Level3prompt
^!Skip Do you wish to create a new Level3 entry within this Level2 entry?
^!GoTo Level2kill
^!GoTo Level3initiate

:Level3initiate
^!Set %Level3type%=^?{Level of Level3 entry?==series|_subseries|recordgrp|subgrp|file|item|otherlevel}
^!InsertText ^P<c03 level="^%Level3type%">
^!GoTo Level3didcommence

:Level3didcommence
^!InsertText ^P<did>
^!Skip Do you wish to enter container info for this Level3 entry?
^!GoTo Level3title
^!GoTo Level3container

:Level3container
^!Set %Level3containertype%=^?{Type of container?==_Box|Folder|MapCase}
^!Set %Level3containernum%=^?{Container number (1,1-2,etc.)?}
^!InsertText ^P<container type="^%Level3containertype%">^%Level3containernum%</container>
^!Skip Do you wish to create another container statement within this Level3 entry?
^!GoTo Level3title
^!GoTo Level3container

:Level3title
^!Skip Do you wish to enter title info for this Level3 entry?
^!GoTo Level3date
^!Set %Level3title%=^?{Title of this Level3 entry?}
^!InsertText ^P<unittitle>^%Level3title%</unittitle>
^!GoTo Level3date

:Level3date
^!Skip Do you wish to enter date info for this Level3 entry?
^!GoTo Level3physdesc
^!Set %Level3date%=^?{Date(s) of this Level3 entry?}
^!InsertText ^P<unitdate>^%Level3date%</unitdate>
^!GoTo Level3physdesc

:Level3physdesc
^!Skip Do you wish to enter physical description info for this Level3 entry?
^!GoTo Level3didterminate
^!Set %Level3physdesc%=^?{Physical description of this Level3 entry?}
^!InsertText ^P<physdesc>^%Level3physdesc%</physdesc>
^!GoTo Level3didterminate

:Level3didterminate
^!InsertText ^P</did>
^!Skip Do you wish to enter a note for this Level3 entry?
^!GoTo Level3kill
^!GoTo Level3note

:Level3note
^!Set %Level3note%=^?{(T=W)Enter one-paragraph note?}
^!InsertText ^P<note><p>^%Level3note%</p></note>
^!GoTo Level3kill

:Level3kill
^!InsertText ^P</c03>
^!GoTo Level3prompt

:Level2kill
^!InsertText ^P</c02>
^!GoTo Level2prompt

:Level1kill
^!InsertText ^P</c01>
^!GoTo Dsccommence

:Dscterminate
^!Info {L}Congratulations! You have just killed a container list. Please save this file as a ".txt" file and then copy and paste its contents into the appropriate EAD file between the <dsc> and </dsc> tags.