(root (make simple-page-sequence left-margin: 20mm right-margin: 10mm top-margin: 8mm bottom-margin: 12mm language: 'JA)) ;;;テーブルを作成 (element HEAD (make table ;;;テーブルの外枠を描く table-border: #f ;;;テーブルの出現位置 display-alignment: 'center space-after: 5pt ;;;セルのボーダーを指定 cell-before-row-border: #f ;上の横線 cell-after-row-border: #f ;下の横線 cell-before-column-border: #f ;前の縦線 cell-after-column-border: #f ;後ろの縦線 ;;;マージン（初めてのＤＳＳＳＬ p224） cell-before-row-margin: 2mm cell-after-row-margin: 2mm cell-before-column-margin: 2mm cell-after-column-margin: 2mm ;;;線の長さを指定（横の長さ） (make table-column width: 110mm) (make table-column width: 22mm ;;;セルのボーダーを指定 cell-before-row-border: #t ;上の横線 cell-after-row-border: #t ;下の横線 cell-before-column-border: #t ;前の縦線 cell-after-column-border: #t ;後ろの縦線 ) (make table-column width: 48mm ;;;セルのボーダーを指定 cell-before-row-border: #t ;上の横線 cell-after-row-border: #t ;下の横線 cell-before-column-border: #t ;前の縦線 cell-after-column-border: #t ;後ろの縦線 ) (process-children))) (element mmlCmId ;;;行を作成 (make table-row ;;;セルの中身を記入 ;;;マージン（初めてのＤＳＳＳＬ p224） ; cell-before-row-margin: 2mm ; cell-after-row-margin: 2mm ; cell-before-column-margin: 3mm ; cell-after-column-margin: 2mm (make table-cell (literal "")) (make table-cell font-family-name: "Ryumin-Light" font-size: 12pt (literal " I D No")) (make table-cell font-family-name: "Ryumin-Light" font-size: 12pt))) (element nyuin ;;;行を作成 (make table-row ;;;セルの中身を記入 (make table-cell cell-after-row-margin: 4mm cell-before-row-margin: 4mm font-family-name: "GothicBBB Medium" font-size: 20pt quadding: 'center (literal "内 科 入 院 診 療 録")) (make table-cell cell-after-row-margin: 4mm cell-before-row-margin: 4mm font-family-name: "Ryumin-Light" font-size: 12pt (literal "入 院 No")) (make table-cell cell-after-row-margin: 4mm cell-before-row-margin: 4mm font-family-name: "Ryumin-Light" font-size: 12pt))) ;;;氏名、性別、生年月日を記入する欄 (element table1 (make table ;;;テーブルの周りに線を引く table-border: #f ;;;テーブルの出現位置 display-alignment: 'center ;;;セルのボーダーを指定 cell-before-row-border: #t ;上に線を引く cell-after-row-border: #t ;下に線を引く cell-before-column-border: #t ;左に線を引く cell-after-column-border: #t ;右に線を引く ;;;テーブルのcolumn（横）を作っていく (make table-column width: 26mm ;;;セルのボーダーを指定 cell-before-row-border: #t ;上の横線 cell-after-row-border: #t ;下の横線 cell-before-column-border: #t ;前の縦線 cell-after-column-border: #t ;後ろの縦線 ) (make table-column width: 70mm ;;;セルのボーダーを指定 cell-before-row-border: #t ;上の横線 cell-after-row-border: #t ;下の横線 cell-before-column-border: #t ;前の縦線 cell-after-column-border: #t ;後ろの縦線 ) (make table-column width: 12mm ;;;セルのボーダーを指定 cell-before-row-border: #t ;上の横線 cell-after-row-border: #t ;下の横線 cell-before-column-border: #t ;前の縦線 cell-after-column-border: #t ;後ろの縦線 ) (make table-column width: 20mm ;;;セルのボーダーを指定 cell-before-row-border: #t ;上の横線 cell-after-row-border: #t ;下の横線 cell-before-column-border: #t ;前の縦線 cell-after-column-border: #t ;後ろの縦線 ) (make table-column width: 52mm ;;;セルのボーダーを指定 cell-before-row-border: #t ;上の横線 cell-after-row-border: #t ;下の横線 cell-before-column-border: #t ;前の縦線 cell-after-column-border: #t ;後ろの縦線 ) ;;;テーブルのrow（横）の列を作っていく (make table-row (process-children)) )) (element mmlPipersonName ;;;セルを作成 (sosofo-append (make table-cell ;;;マージの指定 cell-before-row-margin: 8mm cell-after-row-margin: 8mm cell-before-column-margin: 2mm cell-after-column-margin: 2mm quadding: 'center font-family-name: "Ryumin-Light" font-size: 12pt (literal "氏 名")) (make table-cell ;;;マージンの指定 cell-before-row-margin: 8mm ;上のマージン cell-before-column-margin: 8mm ;左のマージン ))) (element mmlNmfamily (make sequence quadding: 'center font-family-name: "Ryumin-Light" font-size: 20pt)) (element mmlNmgiven (sosofo-append (literal " ") (make sequence font-family-name: "Ryumin-Light" font-size: 20pt (process-children) ))) ;;;性別 (element mmlPisex (make table-cell cell-before-column-margin: 2mm cell-after-column-margin: 2mm cell-before-row-margin: 3mm quadding: 'center font-size: 14pt)) ;;;生年月日 (element mmlPibirthday (sosofo-append (make table-cell cell-before-row-margin: 8mm quadding: 'center font-size: 12pt (literal "生年月日")) (make table-cell cell-before-row-margin: 8mm quadding: 'center font-size: 16pt (process-children) ))) ;;;テーブルを作成 ;(element table2 (element mmlPiaddress (make table ;;;テーブルの外枠を描く table-border: #f ;;;テーブルの出現位置 display-alignment: 'center ;;;セルのボーダーを指定 cell-before-row-border: #t ;上の横線 cell-after-row-border: #f ;下の横線 cell-before-column-border: #t ;前の縦線 cell-after-column-border: #t ;後ろの縦線 ;;;マージン（初めてのＤＳＳＳＬ p224） cell-before-row-margin: 2mm cell-after-row-margin: 2mm cell-before-column-margin: 2mm cell-after-column-margin: 2mm ;;;線の長さを指定（横の長さ） (make table-column width: 26mm) (make table-column width: 154mm) (process-children))) (element (table2 mmlPiaddress mmlAdAddress mmlAdfull) (make table-row (make table-cell ;;;セルのマージン cell-before-row-margin: 8mm ;上のマージン ; cell-after-row-margin: 8mm ;下のマージン cell-before-column-margin: 1mm ;左のマージン quadding: 'center font-size: 12pt font-family-name: "Ryumin-Light" (literal "現 住 所")) (make table-cell ;;;セルのマージン cell-before-row-margin: 6mm ;上のマージン cell-before-column-margin: 3mm ;左のマージン ; quadding: 'start font-size: 15pt))) (element (table3 mmlPiaddress mmlAdAddress mmlAdfull) (make table-row (make table-cell ;;;セルのマージン cell-before-row-margin: 8mm ;上のマージン ; cell-after-row-margin: 8mm ;下のマージン cell-before-column-margin: 1mm ;左のマージン quadding: 'center font-size: 12pt font-family-name: "Ryumin-Light" (literal "連絡先住所")) (make table-cell ;;;セルのマージン cell-before-row-margin: 6mm ;上のマージン cell-before-column-margin: 3mm ;左のマージン ; quadding: 'start font-size: 15pt))) ;;;電話番号記入欄作成 ;;;テーブルを作成 ;(element table2 (element mmlPiphone (make table ;;;テーブルの外枠を描く table-border: #f ;;;テーブルの出現位置 display-alignment: 'center ;;;セルのボーダーを指定 cell-before-row-border: #f ;上の横線 cell-after-row-border: #t ;下の横線 cell-before-column-border: #t ;前の縦線 cell-after-column-border: #t ;後ろの縦線 ;;;マージン（初めてのＤＳＳＳＬ p224） ; cell-before-row-margin: 2mm cell-after-row-margin: 2mm ; cell-before-column-margin: 2mm ; cell-after-column-margin: 2mm ;;;線の長さを指定（横の長さ） (make table-column width: 26mm) (make table-column width: 100mm) (make table-column width: 54mm) (process-children))) (element (mmlPiphone mmlPhPhone) (make table-row (sosofo-append) (make table-cell font-size: 16pt (literal " ")) (make table-cell font-size: 16pt quadding: 'end cell-after-column-border: #f (literal "TEL")) (make table-cell cell-before-column-border: #f cell-before-column-margin: 5mm font-size: 16pt ))) (element mmlPharea (make sequence)) (element mmlPhcity (make sequence (sosofo-append) (literal "-") (process-children))) (element mmlPhnumber (make sequence (sosofo-append) (literal "-") (process-children))) ;;;職業・紹介者記入欄 (element table4 (make table ;テーブルの外枠を描く table-border: #t ;テーブルの出現位置 display-alignment: 'center ;セルのボーダーを指定 cell-before-row-border: #t ;上のライン cell-after-row-border: #t ;下のライン cell-before-column-border: #t ;前のライン cell-after-column-border: #t ;後ろのライン (make table-column width: 26mm) (make table-column width: 64mm) (make table-column width: 26mm) (make table-column width: 64mm) (make table-row (process-children)))) ;;;職業を記入するセル (element mmlLsoccupation (sosofo-append (make table-cell ;セルのマージン指定 cell-before-row-margin: 8mm ;上のマージン quadding: 'center font-size: 12pt (literal "職 業")) (make table-cell ;セル内のマージン指定 cell-before-row-margin: 8mm ;上のマージン cell-after-row-margin: 6mm ;下のマージン ; cell-before-column-margin: 2mm ;前のマージン ; cell-after-column-margin: 2mm ;後ろのマージン quadding: 'center font-size: 16pt (process-children) ))) ;;;紹介者の記入欄 (element mmlSmreferFrom (sosofo-append (make table-cell ;セル内のマージン指定 cell-after-row-margin: 8mm cell-before-row-margin: 8mm quadding: 'center font-size: 12pt (literal "紹 介 者")) (make table-cell ;セル内のマージン指定 cell-before-row-margin: 8mm ;上のマージン cell-after-row-margin: 3mm ;下のマージン cell-before-column-margin: 5mm ;前のマージン cell-after-column-margin: 2mm ;後ろのマージン font-size: 16pt (process-children) ))) (element (mmlSmreferFrom mmlPsiPersonName mmlNmName) (make paragraph quadding: 'center)) (element (mmlSmreferFrom mmlPsiPersonName mmlNmName mmlNmfamily) (make sequence font-size: 18pt ; cell-after-row-margin: 6mm )) (element (mmlSmreferFrom mmlPsiPersonName mmlNmName mmlNmgiven) (sosofo-append (literal " ") (make sequence font-size: 18pt ; cell-after-row-margin: 6mm (process-children) ))) ;;;病室、受持医の記入欄 (element table5 (make table ;テーブルの外枠を描く table-border: #t ;テーブルの出現位置 display-alignment: 'center ;セルのボーダーを指定 cell-before-column-border: #t cell-after-column-border: #t cell-before-row-border: #t cell-after-row-border: #t (make table-column width: 26mm) (make table-column width: 64mm) (make table-column width: 26mm) (make table-column width: 64mm) (make table-row (process-children)))) ;;;病室の記入欄作成 (element room (sosofo-append (make table-cell quadding: 'center font-size: 12pt cell-before-row-margin: 8mm cell-after-row-margin: 8mm (literal "病 室")) (make table-cell quadding: 'center font-size: 18pt cell-before-row-margin: 8mm (process-children) ))) ;;;受持医の記入欄作成 (element docter (sosofo-append (make table-cell quadding: 'center font-size: 12pt cell-before-row-margin: 8mm cell-after-row-margin: 8mm (literal "受 持 医")) (make table-cell quadding: 'center font-size: 18pt cell-before-row-margin: 8mm (process-children) ))) ;;;table6を作成（入院日、初診日の記入欄） (element table6 (make table ;テーブルの外枠を作る table-border: #t ;テーブルの出現位置 display-alignment: 'center ;セルのボーダーを引く cell-before-row-border: #t ;上のライン cell-after-row-border: #t ;下のライン cell-before-column-border: #t ;前のライン cell-after-column-border: #t ;下のライン ;セルのマージンを指定 cell-before-row-margin: 8mm ;前のマージン cell-after-row-margin: 8mm ;上のマージン (make table-column width: 26mm) (make table-column width: 64mm) (make table-column width: 26mm) (make table-column width: 64mm) (make table-row (process-children) ))) ;;;入院日記入欄 ;;; ;;;エラーが存在する。 ;;; (element (table6 mmlSmadmission) (sosofo-append (make table-cell quadding: 'center font-size: 12pt (literal "入 院 日")) (make table-cell quadding: 'center font-size: 16pt (process-children)))) ;;;初診日記入欄 (element (table6 mmlRdfirstEncounterDate) (sosofo-append (make table-cell quadding: 'center font-size: 12pt (literal "初 診 日")) (make table-cell quadding: 'center font-size: 16pt (process-children)))) ;;;table7を作成 (element table7 (make table ;テーブルの枠を作る。 table-border: #t ;テーブルの出現位置 display-alignment: 'center ;セルのボーダーラインを引く cell-after-column-border: #t cell-before-column-border: #t cell-after-row-border: #t cell-before-row-border: #t ;マージンを指定 cell-after-row-margin: 8mm cell-before-row-margin: 8mm (make table-column width: 26mm) (make table-column width: 64mm) (make table-column width: 26mm) (make table-column width: 64mm) (make table-row (process-children)))) ;;;退院日記入欄を作成 (element (table7 mmlSmdischarge) (sosofo-append (make table-cell quadding: 'center font-size: 12pt (literal "退 院 日")) (make table-cell quadding: 'center font-size: 16pt (process-children)))) ;;;転帰記入欄を作成 (element (table7 mmlRdoutcome) (sosofo-append (make table-cell quadding: 'center font-size: 12pt (literal "転 帰")) (make table-cell quadding: 'center font-size: 16pt (process-children)))) ;;;teble8を作成 (element table8 (make table ;テーブルのラインを引く table-border: #t ;テーブルの出現位置 display-alignment: 'center ;セルのボーダーラインを引く cell-before-column-border: #t cell-after-column-border: #t cell-before-row-border: #t cell-after-row-border: #t ;セルのマージンを引く cell-before-row-margin: 8mm cell-after-row-margin: 8mm (make table-column width: 26mm) (make table-column width: 154mm) (make table-row (process-children)))) ;;;入院時診断の記入欄作成 (element (table8 comment1) (sosofo-append (make table-cell cell-before-row-margin: 8mm cell-after-row-margin: 8mm quadding: 'center font-size: 12pt (literal "入院時診断")) (make table-cell cell-before-row-margin: 8mm cell-after-row-margin: 8mm quadding: 'center font-size: 16pt (process-children)))) ;;;table9を作成 (element table9 (make table ;テーブルのラインを引く table-border: #t ;テーブルの出現位置を指定 display-alignment: 'center ;セルのボーダーラインを引く cell-after-column-border: #t cell-before-column-border: #t cell-after-row-border: #t cell-before-row-border: #t (make table-column width: 26mm) (make table-column width: 154mm) (make table-row (process-children)))) ;;;確定診断の記入欄作成 (element (table9 comment2) (sosofo-append (make table-cell cell-before-row-margin: 8mm cell-after-row-margin: 8mm font-size: 12pt quadding: 'center (literal "確定診断")) (make table-cell cell-before-row-margin: 8mm cell-after-row-margin: 8mm font-size: 16pt quadding: 'center (process-children)))) ;;;teble10を作成 (element table10 (make table table-border: #t display-alignment: 'center cell-before-row-border: #t cell-after-row-border: #t cell-before-column-border: #t cell-after-column-border: #t (make table-column width: 26mm) (make table-column width: 154mm) (make table-row (process-children)))) ;;;合併症の記入欄 (element comment3 (sosofo-append (make table-cell cell-after-row-margin: 8mm cell-before-row-margin: 8mm font-size: 12pt quadding: 'center (literal "合 併 症")) (make table-cell cell-after-row-margin: 8mm cell-before-row-margin: 8mm font-size: 16pt quadding: 'center (process-children)))) ;;;table11の作成 (element table11 (make table ;;;テーブルのラインを引く table-border: #t ;;;テーブルの出現する位置 display-alignment: 'center ;;;セルにボーダー（線）を入れる cell-after-row-border: #t cell-before-row-border: #t cell-after-column-border: #t cell-before-column-border: #t ;;;セルにマージン（空間）を入れる cell-after-row-margin: 2mm cell-before-row-margin: 2mm (make table-column width: 26mm) (make table-column width: 20mm) (make table-column width: 20mm) (make table-column width: 25mm) (make table-column width: 25mm) (make table-column width: 64mm) (make table-row (make table-cell cell-before-row-margin: 22mm quadding: 'center font-size: 12pt column-number: 1 n-rows-spanned: 6 (literal "入退院歴")) (make table-cell quadding: 'center font-size: 12pt (literal "入院番号")) (make table-cell quadding: 'center font-size: 12pt (literal "退院番号")) (make table-cell quadding: 'center font-size: 12pt (literal "入院年月日")) (make table-cell quadding: 'center font-size: 12pt (literal "退院年月日")) (make table-cell quadding: 'center font-size: 12pt (literal "主 傷 病 名")) (process-children) ))) ;;;記入欄を作成 (element mmlSminPatentItem (make table-row)) (element (mmlSminPatentItem innumber) (make table-cell column-number: 2 font-size: 12pt quadding: 'center)) (element (mmlSminPatentItem outnumber) (make table-cell column-number: 3 font-size: 12pt quadding: 'center)) (element (mmlSminPatentItem mmlSmadmission) (make table-cell column-number: 4 font-size: 12pt quadding: 'center)) (element (mmlSminPatentItem mmlSmdischarge) (make table-cell column-number: 5 font-size: 12pt quadding: 'center)) (element (mmlSminPatentItem sickname) (make table-cell column-number: 6 font-size: 12pt quadding: 'center))