(root (make simple-page-sequence page-height: 297mm page-width: 210mm left-margin: 20mm right-margin: 10mm top-margin: 20mm bottom-margin: 7mm language: 'JA)) ;;;define（定義）を決める ;;;セルに線を引かない (define *cell-border-false* (style cell-before-row-border: #f cell-after-row-border: #f cell-before-column-border: #f cell-after-column-border: #f)) ;;;セルに線を引く (define *cell-border-true* (style cell-before-row-border: #t cell-after-row-border: #t cell-before-column-border: #t cell-after-column-border: #t)) ;;;マージン ２mmの指定 (define *cell-margin-2* (style cell-before-row-margin: 1mm cell-after-row-margin: 2mm cell-before-column-margin: 2mm cell-after-column-margin: 2mm)) ;;;マージン １mmの指定 (define *cell-margin-1* (style cell-before-row-margin: 1mm cell-after-row-margin: 1mm cell-before-column-margin: 1mm cell-after-column-margin: 1mm)) ;タイトルを作成 (element head (make paragraph quadding: 'center space-after: 20pt)) (element (head title) (sosofo-append (make sequence font-family-name: "GothicBBB Medium" quadding: 'center font-size: 20pt font-weight: 'bold (literal "外 来 診 療 録")) (make sequence font-family-name: "GothicBBB Medium" quadding: 'center font-size: 14pt font-weight: 'bold (literal "（各科共通）")) (make sequence font-size: 12pt (process-children)))) ;;;受け付けの日付 (element (head comeday) (make paragraph space-before: 20pt quadding: 'end)) (element (comeday year) (sosofo-append (make sequence font-size: 14pt) (literal "年 "))) (element (comeday month) (sosofo-append (make sequence font-size: 14pt) (literal "月 "))) (element (comeday day) (sosofo-append (make sequence font-size: 14pt) (literal "日 受付"))) ;;;table1を作成 (element (mml table1) (make table line-thickness: 2pt ;;;テーブルの外枠を描く table-border: #t ;;;テーブルの出現位置 display-alignment: 'center space-after: 5pt ;;;セルのボーダーを指定 use: *cell-border-true* (make table-column width: 180mm line-thickness: 0.25pt) ;子タグsubtitleを入れる。 (make table-row (make table-cell line-thickness: 0.25pt (process-matching-children "subtable1"))) (make table-row (make table-cell line-thickness: 0.25pt (process-matching-children "subtable2"))) (make table-row (make table-cell line-thickness: 0.25pt (process-matching-children "subtable3"))) (make table-row (make table-cell line-thickness: 0.25pt (process-matching-children "subtable4"))) )) ;;;table1内にsubtable1入れる (element subtable1 (make table line-thickness: 0.25pt table-border: #f display-alignment: 'center use: *cell-border-true* (make table-column width: 20mm) (make table-column width: 35mm) (make table-column width: 20mm) (make table-column width: 105mm) (make table-row) ; (process-children) )) (element (subtable1 mmlCmId) (sosofo-append (make table-cell quadding: 'center use: *cell-margin-2* (literal "受 診 科")) (make table-cell use: *cell-margin-2* (process-children)))) (element (subtable1 doctor) (sosofo-append (make table-cell quadding: 'center use: *cell-margin-2* (literal "担当医")) (make table-cell use: *cell-margin-2* (process-children)))) ;;;subtable2の作成 (element subtable2 (make table line-thickness: 0.25pt table-border: #f display-alignment: 'center use: *cell-border-true* (make table-column width: 5mm) (make table-column width: 5mm) (make table-column width: 75mm) (make table-column width: 5mm) (make table-column width: 5mm) (make table-column width: 5mm) (make table-column width: 5mm) (make table-column width: 5mm) (make table-column width: 20mm) (make table-column width: 5mm) (make table-column width: 45mm) (make table-row) )) (element (subtable2 row) ; (make table-row (sosofo-append (make table-cell column-number: 1 font-size: 10pt cell-before-column-margin: 2pt cell-before-row-margin: 4mm cell-after-row-margin: 2mm n-rows-spanned: 3 ; n-columns-spanned: 2 (literal "受 診 者")) (make table-cell cell-before-row-margin: 1pt line-spacing: 3mm column-number: 2 font-size: 6pt (literal "フリガナ")) (make table-cell line-dash: "5 5" ; line-thickness: 2pt column-number: 3 font-size: 14pt use: *cell-margin-2* (process-matching-children "furigana") ; (process-children) ) (make table-cell cell-before-column-margin: 1pt cell-before-row-margin: 3mm column-number: 4 n-rows-spanned: 2 font-size: 10pt (literal "住 所")) (make table-cell cell-before-row-margin: 2mm cell-before-column-margin: 1mm n-rows-spanned: 2 cell-after-column-border: #f (literal "〒")) (make table-cell cell-before-row-margin: 8mm cell-before-column-margin: 1mm n-columns-spanned: 6 n-rows-spanned: 2 cell-before-column-border: #f (process-matching-children "mmlPiaddress")) )) ;) (element (subtable2 mmlPipersonName) (make table-row (sosofo-append (make table-cell column-number: 2 cell-before-column-margin: 1mm font-size: 8pt (literal "氏 名")) (make table-cell line-dash: "5 5" ; line-thickness: 2pt column-number: 3 cell-before-row-margin: 6mm cell-after-row-margin: 4mm font-size: 18pt use: *cell-margin-2* (process-children))))) (element row2 (make table-row (sosofo-append (make table-cell column-number: 2 font-size: 7pt cell-before-row-margin: 1pt (literal "生年月日")) (make table-cell cell-before-row-margin: 2mm cell-before-column-margin: 3mm column-number: 3 font-size: 16pt n-columns-spanned: 5 (process-matching-children "mmlPibirthday")) (make table-cell column-number: 8 cell-after-row-margin: 1mm cell-before-column-margin: 1mm font-size: 8pt (literal "性別")) (make table-cell column-number: 9 font-size: 12pt cell-before-column-margin: 2mm cell-before-row-margin: 2mm (process-matching-children "mmlPisex")) (make table-cell font-size: 7pt cell-before-column-margin: 1mm ; cell-after-column-margin: 2mm cell-before-row-margin: 1pt cell-after-row-margin: 1mm line-spacing: 7pt (literal "ＴＥＬ")) (make table-cell font-size: 16pt cell-before-row-margin: 2mm cell-before-column-margin: 3mm (process-matching-children "mmlPiphones"))))) (element work (make table-row (sosofo-append (make table-cell column-number: 1 font-size: 6pt n-columns-spanned: 2 cell-before-row-margin: 1mm cell-before-column-margin: 2mm (literal "勤務先")) (make table-cell column-number: 3 n-columns-spanned: 3 ; n-rows-spanned: 2 font-size: 12pt use: *cell-margin-2* (process-matching-children "company")) (make table-cell column-number: 6 font-size: 6pt line-spacing: 7pt cell-before-column-margin: 1mm (literal "所在地")) (make table-cell column-number: 7 use: *cell-margin-2* n-columns-spanned: 3 font-size: 12pt (process-matching-children "place")) (make table-cell column-number: 10 font-size: 7pt cell-before-column-margin: 1mm cell-after-column-margin: 2mm ; cell-before-row-margin: 1pt ; cell-after-row-margin: 1mm line-spacing: 7pt (literal "ＴＥＬ")) (make table-cell column-number: 11 use: *cell-margin-2* font-size: 16pt (process-matching-children "phone"))))) (element subtable3 (make table line-thickness: 0.25pt table-border: #f use: *cell-border-true* display-alignment: 'center (make table-column width: 30mm) (make table-column width: 95mm) (make table-column width: 15mm) (make table-column width: 40mm) (make table-row))) (element row3 (sosofo-append (make table-cell column-number: 1 font-size: 8pt use: *cell-margin-1* (literal "世帯主又は被保険者")) (make table-cell column-number: 2 font-size: 16pt use: *cell-margin-2* (process-matching-children "name")) (make table-cell column-number: 3 font-size: 12pt use: *cell-margin-2* (literal "続 柄")) (make table-cell font-size: 12pt column-number: 4 use: *cell-margin-2* (process-matching-children "mmlHifamilyClass")) )) (element subtable4 (make table line-thickness: 0.25pt display-alignment: 'center table-border: #f use: *cell-border-true* (make table-column width: 10mm) (make table-column width: 108mm) (make table-column width: 62mm) (process-children))) (element mmlHiexpiredDate (make table-row (sosofo-append (make table-cell font-size: 12pt column-number: 1 use: *cell-margin-2* (literal "福")) (make table-cell font-size: 14pt column-number: 2 use: *cell-margin-2* (process-children))))) (element row4 (make table-row (sosofo-append (make table-cell column-number: 1 use: *cell-margin-2* font-size: 12pt (literal "備 考")) (make table-cell column-number: 2 font-size: 12pt cell-before-column-margin: 3mm cell-before-row-margin: 3mm (process-matching-children "bikou")) (make table-cell column-number: 3 cell-before-row-margin: 2mm cell-before-column-margin: 3mm (make paragraph font-size: 12pt space-after: 2mm (process-matching-children "bikou2")) (make paragraph font-size: 12pt (process-matching-children "bikou3")) )))) (element table2 (make table line-thickness: 2pt display-alignment: 'center use: *cell-border-true* table-border: #t space-after: 5pt (make table-column line-thickness: 0.25pt width: 10mm) (make table-column line-thickness: 0.25pt width: 15mm) (make table-column line-thickness: 0.25pt width: 25mm) (make table-column line-thickness: 0.25pt width: 7mm) (make table-column line-thickness: 0.25pt width: 80mm) (make table-column line-thickness: 0.25pt width: 10mm) (make table-column line-thickness: 0.25pt width: 23mm) (make table-column line-thickness: 0.25pt width: 10mm) ; (make table-row) (process-children) )) (element (table2 title2) (make table-row (sosofo-append (make table-cell font-size: 12pt quadding: 'center line-spacing: 28pt cell-before-row-margin: 1pt cell-after-row-margin: 1pt cell-before-column-margin: 3mm cell-after-column-margin: 3mm n-rows-spanned: 5 (literal "主保険")) (make table-cell font-size: 10pt quadding: 'center cell-before-row-margin: 1pt cell-after-row-margin: 1pt (literal "区分")) (make table-cell font-size: 10pt quadding: 'center cell-before-row-margin: 1pt cell-after-row-margin: 1pt (literal "保険者番号")) (make table-cell font-size: 8pt quadding: 'center cell-before-row-margin: 1pt cell-after-row-margin: 1pt (literal "継続")) (make table-cell font-size: 10pt quadding: 'center cell-before-row-margin: 1pt cell-after-row-margin: 1pt (literal "記 号・番 号")) (make table-cell font-size: 8pt quadding: 'center cell-before-row-margin: 1pt cell-after-row-margin: 1pt (literal "負担率")) (make table-cell font-size: 10pt quadding: 'center cell-before-row-margin: 1pt cell-after-row-margin: 1pt (literal "有効期限")) (make table-cell font-size: 10pt quadding: 'center cell-before-row-margin: 1pt cell-after-row-margin: 1pt (literal "備考"))))) (element (table2 row5) (make table-row (sosofo-append (make table-cell font-size: 4pt column-number: 2 use: *cell-margin-1* (process-matching-children "mmlHifamilyClass")) (make table-cell font-size: 4pt column-number: 3 use: *cell-margin-1* (process-matching-children "mmlHiinsuranceNumber")) (make table-cell column-number: 4 use: *cell-margin-1* font-size: 4pt (process-matching-children "continue")) (make table-cell font-size: 4pt column-number: 5 use: *cell-margin-1* (process-matching-children "mmlHiclientId")) (make table-cell font-size: 4pt column-number: 6 use: *cell-margin-1* (process-matching-children "mmlHipaymentRatio")) (make table-cell font-size: 4pt column-number: 7 (process-matching-children "limit")) (make table-cell font-size: 4pt column-number: 8 use: *cell-margin-1* (process-matching-children "remark"))))) (element (table2 row6) (make table-row (sosofo-append (make table-cell font-size: 4pt column-number: 2 use: *cell-margin-1* (process-matching-children "mmlHifamilyClass")) (make table-cell font-size: 4pt column-number: 3 use: *cell-margin-1* (process-matching-children "mmlHiinsuranceNumber")) (make table-cell font-size: 4pt column-number: 4 use: *cell-margin-1* (process-matching-children "continue")) (make table-cell font-size: 4pt column-number: 5 use: *cell-margin-1* (process-matching-children "mmlHiclientId")) (make table-cell font-size: 4pt column-number: 6 use: *cell-margin-1* (process-matching-children "mmlHipaymentRatio")) (make table-cell font-size: 4pt column-number: 7 (process-matching-children "limit")) (make table-cell font-size: 4pt column-number: 8 use: *cell-margin-1* (process-matching-children "remark"))))) (element limit (make table (make table-column ; line-dash: "5 5" width: 23mm) (make table-row (make table-cell ; use: *cell-border-false* font-size: 8pt cell-before-row-margin: 1pt quadding: 'center (process-matching-children "mmlHiexpiredDate1"))) (make table-row (make table-cell ; use: *cell-border-false* font-size: 8pt cell-before-row-margin: 1pt quadding: 'center (process-matching-children "mmlHiexpiredDate2")) ))) (element table3 (make table space-after: 5pt display-alignment: 'center line-thickness: 2pt table-border: #t use: *cell-border-true* (make table-column line-thickness: 0.25pt width: 5mm) (make table-column line-thickness: 0.25pt width: 13mm) (make table-column line-thickness: 0.25pt width: 18mm) (make table-column line-thickness: 0.25pt width: 30mm) (make table-column line-thickness: 0.25pt width: 44mm) (make table-column line-thickness: 0.25pt width: 45mm) (make table-column line-thickness: 0.25pt width: 25mm) (process-children) ; (make table-row) )) (element (table3 title3) (make table-row (sosofo-append (make table-cell font-size: 8pt cell-before-column-margin: 1mm cell-after-column-margin: 1mm cell-before-row-margin: 1mm cell-after-row-margin: 2mm ; n-columns-spanned: 5 n-rows-spanned: 5 line-spacing: 30pt (literal "従保険")) (make table-cell font-size: 10pt quadding: 'center cell-before-row-margin: 1pt cell-after-row-margin: 1pt (literal "種 別")) (make table-cell font-size: 10pt quadding: 'center cell-before-row-margin: 1pt cell-after-row-margin: 1pt (literal "適用料")) (make table-cell font-size: 10pt quadding: 'center cell-before-row-margin: 1pt cell-after-row-margin: 1pt (literal "有効期限")) (make table-cell font-size: 10pt quadding: 'center cell-before-row-margin: 1pt cell-after-row-margin: 1pt (literal "法別番号")) (make table-cell font-size: 10pt quadding: 'center cell-before-row-margin: 1pt cell-after-row-margin: 1pt (literal "受給者番号")) (make table-cell font-size: 10pt quadding: 'center cell-before-row-margin: 1pt cell-after-row-margin: 1pt (literal "備考"))))) (element (table3 row7) (make table-row (sosofo-append (make table-cell column-number: 2 font-size: 6pt line-thickness: 0.25pt use: *cell-margin-1* (process-matching-children "kinds")) (make table-cell column-number: 3 font-size: 6pt line-thickness: 0.25pt use: *cell-margin-1* (process-matching-children "charge")) (make table-cell column-number: 4 ; font-size: 8pt line-thickness: 0.25pt ; use: *cell-margin-1* (process-matching-children "limitday")) (make table-cell column-number: 5 font-size: 8pt line-thickness: 0.25pt use: *cell-margin-1* (process-matching-children "lownumber")) (make table-cell column-number: 6 font-size: 8pt line-thickness: 0.25pt use: *cell-margin-1* (process-matching-children "mmlHirecipient")) (make table-cell column-number: 7 font-size: 8pt line-thickness: 0.25pt use: *cell-margin-1* (process-matching-children "remark1")) ))) (element limitday (make table (make table-row (make table-cell use: *cell-border-false* cell-before-row-margin: 1pt cell-after-row-margin: 1pt (sosofo-append (make sequence font-size: 8pt ; cell-before-row-margin: 1pt (literal "自 ")) (make sequence font-size: 8pt quadding: 'center (process-matching-children "mmlHistartDate")))) (make table-row (make table-cell use: *cell-border-false* cell-before-row-margin: 1pt cell-after-row-margin: 1pt (sosofo-append (make sequence font-size: 8pt ; cell-before-row-margin: 1pt (literal "至 ")) (make sequence font-size: 8pt quadding: 'center (process-matching-children "mmlHiexpiredDate4")) )))))) (element table4 (make table display-alignment: 'center line-thickness: 2pt table-border: #t space-after: 5pt (make table-column use: *cell-border-false* line-thickness: 0.25pt width: 25mm) (make table-column use: *cell-border-false* line-thickness: 0.25pt width: 25mm) (make table-column use: *cell-border-false* line-thickness: 0.25pt width: 25mm) (make table-column use: *cell-border-false* line-thickness: 0.25pt width: 25mm) (make table-column use: *cell-border-false* line-thickness: 0.25pt width: 25mm) (make table-column use: *cell-border-false* line-thickness: 0.25pt width: 55mm) (process-children) )) (element title4 (make table-row (sosofo-append (make table-cell font-size: 8pt cell-before-column-margin: 2pt cell-after-column-border: #t (literal "Ｗ・Ｒ")) (make table-cell font-size: 8pt cell-before-column-margin: 2pt cell-after-column-border: #t (literal "ＨＢｓ")) (make table-cell font-size: 8pt cell-before-column-margin: 2pt cell-after-column-border: #t (literal "ＨＣＶ")) (make table-cell font-size: 8pt cell-before-column-margin: 2pt cell-after-column-border: #t (literal "血液")) (make table-cell font-size: 8pt cell-before-column-margin: 2pt cell-after-column-border: #t (literal "アレルギー")) (make table-cell font-size: 8pt cell-before-column-margin: 2pt cell-after-column-border: #t (literal "薬物"))))) (element (table4 row8) (make table-row (sosofo-append (make table-cell use: *cell-margin-2* cell-after-column-border: #t (process-matching-children "wr")) (make table-cell use: *cell-margin-2* cell-after-column-border: #t (process-matching-children "hbs")) (make table-cell use: *cell-margin-2* cell-after-column-border: #t (process-matching-children "hcv")) (make table-cell use: *cell-margin-2* cell-after-column-border: #t (process-matching-children "blood")) (make table-cell use: *cell-margin-2* cell-after-column-border: #t (process-matching-children "allergy")) (make table-cell use: *cell-margin-2* cell-after-column-border: #t (process-matching-children "medicines"))))) (element table5 (make table display-alignment: 'center table-border: #t line-thickness: 2pt space-after: 10pt cell-before-column-border: #f cell-before-row-border: #t cell-before-row-margin: 10pt (make table-column line-thickness: 0.25pt cell-before-column-border: #t width: 15mm) (make table-column line-thickness: 0.25pt cell-before-column-border: #t width: 20mm) (make table-column line-thickness: 0.25pt width: 45mm) (make table-column line-thickness: 0.25pt width: 10mm) (make table-column line-thickness: 0.25pt width: 50mm) (make table-column line-thickness: 0.25pt width: 40mm) (process-children))) (element row9 (make table-row (sosofo-append (make table-cell font-size: 8pt quadding: 'center cell-before-row-margin: 14pt cell-after-row-margin: 6pt n-rows-spanned: 2 (literal "登録医")) (make table-cell cell-before-column-margin: 2pt font-size: 10pt use: *cell-border-true* (process-matching-children "department")) (make table-cell font-size: 8pt cell-after-row-margin: 1pt cell-before-column-margin: 2pt (process-matching-children "mmlFcname")) (make table-cell font-size: 8pt cell-before-row-margin: 1pt cell-after-row-margin: 1pt (literal "医 院 診療所")) (make table-cell quadding: 'end font-size: 12pt (process-matching-children "fromday")) (make table-cell quadding: 'end cell-after-column-margin: 2pt font-size: 12pt (process-matching-children "today"))))) (element row10 (make table-row (sosofo-append (make table-cell column-number: 2 cell-before-column-margin: 2pt font-size: 10pt use: *cell-border-true* (process-matching-children "department")) (make table-cell column-number: 3 font-size: 8pt cell-after-row-margin: 1pt cell-before-column-margin: 2pt (process-matching-children "mmlFcname")) (make table-cell column-number: 4 font-size: 8pt cell-before-row-margin: 1pt cell-after-row-margin: 1pt (literal "医 院 診療所")) (make table-cell column-number: 5 quadding: 'end font-size: 12pt (process-matching-children "fromday")) (make table-cell column-number: 6 quadding: 'start cell-after-column-margin: 2pt font-size: 12pt (process-matching-children "today"))))) (element (row9 today) (sosofo-append (make sequence font-size: 12pt (literal " ")) (make sequence font-size: 12pt (process-children)))) (element row11 (make table-row (sosofo-append (make table-cell font-size: 8pt quadding: 'center cell-after-row-margin: 3pt cell-before-row-margin: 3pt (literal "紹介医")) (make table-cell font-size: 12pt column-number: 2 use: *cell-border-true* (process-matching-children "department1")) (make table-cell column-number: 5 font-size: 12pt (process-matching-children "fromday")) (make table-cell column-number: 6 font-size: 12pt (process-matching-children "today"))))) (element table6 (make table display-alignment: 'center table-border: #f (make table-column width: 15mm) (make table-column width: 107mm) (make table-column width: 5mm) (make table-column width: 10mm) (make table-column width: 43mm) (process-children))) (element mmlFcname1 (make table-row line-thickness: 2pt)) (element dammy (sosofo-append (make table-cell column-number: 4 n-rows-spanned: 2 font-size: 8pt cell-before-row-border: #t cell-after-row-border: #t cell-before-column-border: #t cell-before-column-margin: 1pt cell-after-row-margin: 2pt quadding: 'center (literal "登録(変更)年月日")) (make table-cell cell-before-row-border: #t cell-after-row-border: #t cell-after-column-border: #t use: *cell-margin-2* n-rows-spanned: 2 (process-children)))) (element content (make table-row (sosofo-append (make table-cell font-size: 12pt column-number: 1 line-thickness: 2pt cell-before-row-border: #t cell-after-row-border: #t cell-before-column-border: #t quadding: 'center cell-before-column-margin: 1pt cell-after-row-margin: 2pt (literal "その他受診科")) (make table-cell font-size: 12pt use: *cell-margin-2* line-thickness: 2pt cell-before-row-border: #t cell-after-row-border: #t cell-after-column-border: #t (literal "内・精・消・外・整・産・耳・眼・皮・泌・小・歯")))))