(root (make simple-page-sequence left-margin: 10mm right-margin: 5mm top-margin: 10mm bottom-margin: 10mm language: 'JA)) ;;;セルに線を引く (define *cell-border-true* (style cell-before-column-border: #t cell-after-column-border: #t cell-before-row-border: #t cell-after-row-border: #t)) ;;;セルに線を引かない (define *cell-border-false* (style cell-before-column-border: #f cell-after-column-border: #f cell-before-row-border: #f cell-after-row-border: #f)) ;;;マージンを1mmに指定する (define *cell-margin-1* (style cell-before-column-margin: 1mm cell-after-column-margin: 1mm cell-before-row-margin: 1mm cell-after-row-margin: 1mm)) ;;;マージンを2mmに指定する (define *cell-margin-2* (style cell-before-column-margin: 2mm cell-after-column-margin: 2mm cell-before-row-margin: 2mm cell-after-row-margin: 2mm)) (define *cell-true-2* (style cell-before-column-margin: 2mm cell-after-column-margin: 2mm cell-before-row-margin: 2mm cell-after-row-margin: 2mm cell-before-column-border: #t cell-after-column-border: #t cell-before-row-border: #t cell-after-row-border: #t)) (element head (sosofo-append (make sequence font-size: 16pt (literal " 看護記録 �T ")) (make sequence font-size: 20pt (literal "患者プロフィール")))) (element table (make table ;テーブルに線を引く table-border: #t ;線の太さ line-thickness: 2.0pt ;中央に置く display-alignment: 'center space-before: 10pt (make table-column width: 187mm) ;subtable1を記入 (make table-row (make table-cell line-thickness: 0.25mm (process-matching-children "subtable1")) ;subtable2の記入 (make table-row (make table-cell line-thickness: 0.25mm (process-matching-children "subtable2"))) ;subtable3の記入 (make table-row (make table-cell line-thickness: 0.25mm (process-matching-children "subtable3"))) ;suntable4の記入 (make table-row (make table-cell line-thickness: 0.25mm (process-matching-children "subtable4"))) ))) (element subtable1 (make table line-thickness: 0.25pt display-alignment: 'center (make table-column width: 15mm) (make table-column width: 30mm) (make table-column width: 25mm) (make table-column width: 15mm) (make table-column width: 7mm) (make table-column width: 15mm) (make table-column width: 40mm) (make table-column width: 40mm) (make table-row (sosofo-append (make table-cell use: *cell-border-true* font-size: 10pt quadding: 'center column-number: 1 n-rows-spanned: 2 cell-before-row-margin: 4mm (literal "漢字氏名")) (make table-cell column-number: 2 n-columns-spanned: 2 n-rows-spanned: 2 font-size: 12pt quadding: 'center cell-before-row-margin: 4mm (sosofo-append (make sequence (process-matching-children "mmlNmfullname")) (make sequence (literal " 様")))) (make table-cell cell-before-row-margin: 4mm n-rows-spanned: 2 column-number: 4 font-size: 12pt cell-after-column-border: #t (sosofo-append (make sequence (process-matching-children "old")) (make sequence (literal "才")))) (make table-cell quadding: 'center ; use: *cell-margin-2* cell-after-row-border: #t cell-before-row-margin: 1mm cell-after-row-margin: 2mm column-number: 5 n-columns-spanned: 2 (literal "入院方法：")) (make table-cell cell-after-row-border: #t ; use: *cell-margin-2* cell-before-row-margin: 1mm cell-after-row-margin: 2mm column-number: 7 n-columns-spanned: 2 (literal "独歩・車椅子・ストレッチャー・杖歩行・救急車")))) (make table-row (sosofo-append (make table-cell ; use: *cell-border-true* cell-before-row-margin: 1mm cell-after-row-margin: 2mm column-number: 5 n-columns-spanned: 2 quadding: 'center (literal "診 断 名：")) (make table-cell ; use: *cell-border-true* cell-before-row-margin: 1mm cell-after-row-margin: 2mm column-number: 7 n-columns-spanned: 2 (process-matching-children "mmlRdcategory")))) (make table-row (sosofo-append (make table-cell use: *cell-border-true* use: *cell-margin-2* quadding: 'center font-size: 8pt (literal "カルテ番号")) (make table-cell use: *cell-border-true* use: *cell-margin-2* n-columns-spanned: 3 font-size: 12pt quadding: 'center (process-matching-children "karteid")) (make table-cell use: *cell-border-true* n-rows-spanned: 3 cell-before-row-margin: 2mm cell-before-column-margin: 2mm cell-after-row-margin: 2mm font-size: 10pt (literal "連絡先")) (make table-cell cell-before-row-border: #t cell-before-row-margin: 1mm cell-after-row-margin: 1mm font-size: 12pt quadding: 'center (literal "�@")) (make table-cell n-columns-spanned: 2 cell-before-row-border: #t font-size: 12pt cell-before-row-margin: 1mm cell-after-row-margin: 1mm cell-after-column-margin: 5mm quadding: 'end (make sequence font-size: 12pt (process-matching-children "mmlphone1")) (make sequence (literal " ")) (make sequence ; quadding: 'end (process-matching-children "name1")) (make sequence cell-after-column-margin: 10pt ; quadding: 'end (literal " 様"))))) (make table-row (sosofo-append (make table-cell use: *cell-border-true* use: *cell-margin-2* quadding: 'center column-number: 1 font-size: 8pt (literal "カナ氏名")) (make table-cell column-number: 2 use: *cell-border-true* use: *cell-margin-2* n-columns-spanned: 3 font-size: 12pt quadding: 'center (process-matching-children "furigana")) (make table-cell column-number: 6 cell-before-row-border: #t cell-before-row-margin: 1mm cell-after-row-margin: 1mm font-size: 12pt quadding: 'center (literal "�A")) (make table-cell column-number: 7 n-columns-spanned: 2 cell-before-row-border: #t font-size: 12pt cell-before-row-margin: 1mm cell-after-row-margin: 1mm cell-after-column-margin: 5mm quadding: 'end (make sequence font-size: 12pt (process-matching-children "mmlphone2")) (make sequence (literal " ")) (make sequence ; quadding: 'end (process-matching-children "name2")) (make sequence cell-after-column-margin: 10pt ; quadding: 'end (literal " 様"))))) (make table-row (sosofo-append (make table-cell use: *cell-border-true* use: *cell-margin-2* quadding: 'center column-number: 1 font-size: 8pt (literal "生年月日")) (make table-cell column-number: 2 use: *cell-border-false* use: *cell-margin-2* cell-before-column-border: #f cell-after-column-border: #f cell-before-row-border: #f cell-after-row-border: #t font-size: 12pt quadding: 'center (process-matching-children "mmlPibirthday")) (make table-cell column-number: 3 n-columns-spanned: 2 cell-before-column-border: #f cell-after-row-border: #t (make sequence (literal "性別 ")) (make sequence (process-matching-children "mmlPisex"))) (make table-cell column-number: 6 cell-before-row-border: #t cell-after-row-border: #t cell-before-row-margin: 1mm cell-after-row-margin: 1mm font-size: 12pt quadding: 'center (literal "�B")) (make table-cell column-number: 7 n-columns-spanned: 2 cell-before-row-border: #t cell-after-row-border: #t font-size: 12pt cell-before-row-margin: 1mm cell-after-row-margin: 1mm cell-after-column-margin: 5mm quadding: 'end (make sequence font-size: 12pt (process-matching-children "mmlphone3")) (make sequence (literal " ")) (make sequence ; quadding: 'end (process-matching-children "name3")) (make sequence cell-after-column-margin: 10pt ; quadding: 'end (literal " 様"))))) (make table-row (sosofo-append (make table-cell ; use: *cell-margin-1* cell-after-row-margin: 2mm font-size: 7pt quadding: 'center n-rows-spanned: 2 use: *cell-border-true* cell-before-row-margin: 4mm (literal "入院年月日")) (make table-cell column-number: 2 use: *cell-border-false* n-columns-spanned: 2 n-rows-spanned: 2 quadding: 'center font-size: 16pt cell-before-row-margin: 4mm (process-matching-children "mmlSmdate")) (make table-cell column-number: 4 n-rows-spanned: 2 quadding: 'end cell-before-row-margin: 4mm cell-after-column-margin: 3mm (make sequence (process-matching-children "time")) (make sequence (literal " 時"))) (make table-cell cell-before-row-margin: 1mm cell-after-row-margin: 1mm use: *cell-border-true* column-number: 7 (make sequence (literal " 体温 ")) (make sequence (process-matching-children "temterature")) (make sequence (literal " ℃"))) (make table-cell cell-before-row-margin: 1mm cell-after-row-margin: 1mm use: *cell-border-true* column-number: 8 (make sequence (literal " 呼吸 ")) (make sequence (process-matching-children "breath")) (make sequence (literal " 回"))))) (make table-row (sosofo-append (make table-cell column-number: 7 ; use: *cell-border-true* cell-before-column-border: #t cell-before-row-margin: 1mm cell-after-row-margin: 1mm (make sequence (literal " 脈拍 ")) (make sequence (process-matching-children "myaku")) (make sequence (literal " 回"))) (make table-cell column-number: 8 ; use: *cell-border-true* cell-before-row-margin: 1mm cell-after-row-margin: 1mm (make sequence (literal "（ 整・不整（")) (make sequence (process-matching-children "remark")) (make sequence (literal "）"))))) )) (element subtable2 (make table line-thickness: 0.25mm display-alignment: 'center (make table-column width: 107mm) (make table-column width: 40mm) (make table-column width: 40mm) (make table-row (sosofo-append (make table-cell use: *cell-margin-2* column-number: 1 n-rows-spanned: 2 font-size: 12pt (make sequence (literal "主訴： ")) (make sequence (process-matching-children "mmlSmchiefComplaints"))) (make table-cell column-number: 2 use: *cell-true-2* n-columns-spanned: 2 (make sequence (literal "血圧（右・左） ")) (make sequence (process-matching-children "blood1")) (make sequence (literal " 〜 ")) (make sequence (process-matching-children "blood2")) (make sequence (literal " mm/Hg"))))) (make table-row (sosofo-append (make table-cell use: *cell-true-2* column-number: 2 (make sequence (literal "体重 ")) (make sequence (process-matching-children "weight")) (make sequence (literal " Ｋｇ"))) (make table-cell use: *cell-true-2* column-number: 3 (make sequence (literal "身長 ")) (make sequence (process-matching-children "height")) (make sequence (literal " ｃｍ"))))) )) (element subtable3 (make table display-alignment: 'center line-thickness: 0.25mm ; use: *cell-border-true* (make table-column width: 107mm) (make table-column width: 25mm) (make table-column width: 55mm) (make table-row (sosofo-append (make table-cell use: *cell-margin-2* font-size: 12pt ; n-columns-spanned: 2 n-rows-spanned: 15 cell-after-row-border: #t cell-after-column-border: #t (sosofo-append (make sequence (literal "入院までの経過：")) (make sequence (process-matching-children "process")))) (make table-cell use: *cell-margin-2* cell-before-column-border: #t cell-after-column-border: #f cell-after-row-border: #t column-number: 2 font-size: 12pt (literal "顔 色:")) (make table-cell cell-before-column-border: #f cell-after-row-border: #t use: *cell-margin-2* column-number: 3 font-size: 12pt (literal "良・不良")))) (make table-row (sosofo-append (make table-cell use: *cell-margin-2* cell-before-column-border: #t cell-after-column-border: #f cell-after-row-border: #t font-size: 10pt column-number: 2 (literal "皮膚の異常:")) (make table-cell use: *cell-margin-2* cell-after-row-border: #t cell-before-column-border: #f column-number: 3 (sosofo-append (make sequence (literal "無・有（")) (make line-field field-width: 80pt field-align: 'center (process-matching-children "skin")) (make sequence (literal "）")))))) (make table-row (sosofo-append (make table-cell use: *cell-margin-2* cell-before-column-border: #t cell-after-column-border: #f cell-after-row-border: #t font-size: 10pt column-number: 2 (literal "アレルギー:")) (make table-cell use: *cell-margin-2* cell-after-row-border: #t cell-before-column-border: #f column-number: 3 (sosofo-append (make sequence (literal "無・有（")) (make line-field field-width: 80pt field-align: 'center (process-matching-children "allergy")) (make sequence (literal "）")))))) (make table-row (sosofo-append (make table-cell use: *cell-margin-2* cell-before-column-border: #t cell-after-column-border: #f cell-after-row-border: #t font-size: 12pt column-number: 2 (literal "浮 腫:")) (make table-cell use: *cell-margin-2* cell-after-row-border: #t cell-before-column-border: #f column-number: 3 (sosofo-append (make sequence (literal "無・有（部位")) (make line-field field-width: 60pt field-align: 'center (process-matching-children "dropsy")) (make sequence (literal "）")))))) (make table-row (sosofo-append (make table-cell use: *cell-margin-2* cell-before-column-border: #t cell-after-column-border: #f cell-after-row-border: #t font-size: 12pt column-number: 2 (literal "視力障害:")) (make table-cell use: *cell-margin-2* cell-after-row-border: #t cell-before-column-border: #f column-number: 3 (sosofo-append (make sequence (literal "無・有（")) (make line-field field-width: 80pt field-align: 'center (process-matching-children "sight")) (make sequence (literal "）")))))) (make table-row (sosofo-append (make table-cell use: *cell-margin-2* cell-before-column-border: #t cell-after-column-border: #f cell-after-row-border: #t font-size: 12pt column-number: 2 (literal "聴力障害:")) (make table-cell use: *cell-margin-2* cell-after-row-border: #t cell-before-column-border: #f column-number: 3 (sosofo-append (make sequence (literal "無・有（")) (make line-field field-width: 80pt field-align: 'center (process-matching-children "hearing")) (make sequence (literal "）")))))) (make table-row (sosofo-append (make table-cell use: *cell-margin-2* cell-before-column-border: #t cell-after-column-border: #f cell-after-row-border: #t font-size: 12pt column-number: 2 (literal "麻 痺:")) (make table-cell use: *cell-margin-2* cell-after-row-border: #t cell-before-column-border: #f column-number: 3 (sosofo-append (make sequence (literal "無・有（部位")) (make line-field field-width: 60pt field-align: 'center (process-matching-children "paralysis")) (make sequence (literal "）")))))) (make table-row (sosofo-append (make table-cell use: *cell-margin-2* cell-before-column-border: #t cell-after-column-border: #f cell-after-row-border: #t font-size: 12pt column-number: 2 (literal "運動障害:")) (make table-cell use: *cell-margin-2* cell-after-row-border: #t cell-before-column-border: #f column-number: 3 (sosofo-append (make sequence (literal "無・有（部位")) (make line-field field-width: 60pt field-align: 'center (process-matching-children "exercise")) (make sequence (literal "）")))))) (make table-row (sosofo-append (make table-cell use: *cell-margin-2* cell-before-column-border: #t cell-after-column-border: #f cell-after-row-border: #t font-size: 12pt column-number: 2 (literal "意識障害:")) (make table-cell use: *cell-margin-2* cell-after-row-border: #t cell-before-column-border: #f column-number: 3 (sosofo-append (make sequence (literal "無・有")) (make line-field field-width: 60pt field-align: 'center (process-matching-children "conscious")) (make sequence (literal " ")))))) (make table-row (sosofo-append (make table-cell use: *cell-margin-2* cell-before-column-border: #t cell-after-column-border: #f cell-after-row-border: #t font-size: 12pt column-number: 2 (literal "言語障害:")) (make table-cell use: *cell-margin-2* cell-after-row-border: #t cell-before-column-border: #f column-number: 3 (sosofo-append (make sequence (literal "無・有")) (make line-field field-width: 60pt field-align: 'center (process-matching-children "language")) (make sequence (literal "")))))) (make table-row (sosofo-append (make table-cell use: *cell-margin-1* cell-before-column-border: #t cell-after-column-border: #f cell-after-row-border: #f font-size: 6pt column-number: 2 (literal "コミュニケーション：")) (make table-cell use: *cell-margin-2* cell-after-row-border: #f cell-before-column-border: #f column-number: 3 (sosofo-append (make sequence (literal "会話可・不可（")) (make line-field field-width: 10pt field-align: 'center (process-matching-children "language")) (make sequence (literal "）")))))) (make table-row (sosofo-append (make table-cell cell-before-column-border: #t (literal " ")) (make table-cell use: *cell-margin-2* cell-after-row-border: #t cell-before-row-border: #f cell-after-column-border: #f column-number: 3 (literal "理解力（難・普通・良好）")))) (make table-row (sosofo-append (make table-cell use: *cell-margin-2* cell-before-column-border: #t cell-after-column-border: #f cell-after-row-border: #t cell-before-row-border: #t font-size: 11pt column-number: 2 (literal "血 液 型：")) (make table-cell use: *cell-margin-2* cell-after-row-border: #t cell-before-column-border: #f column-number: 3 (sosofo-append (make sequence (literal "（ ")) (make line-field field-width: 10pt field-align: 'center (process-matching-children "bloodtype")) (make sequence (literal "型． Ｒｈ")) (make sequence (process-matching-children "rh")) (make sequence (literal " ）")))))) (make table-row (sosofo-append (make table-cell use: *cell-margin-2* column-number: 2 n-columns-spanned: 2 (sosofo-append (make sequence font-size: 10pt (literal "ＨＢ（")) (make sequence (process-matching-children "hb")) (make sequence (literal "）・ＨＣＶ（")) (make sequence (process-matching-children "hcv")) (make sequence (literal "）・梅毒（")) (make sequence (process-matching-children "syphilis")) (make sequence (literal "）")))))) (make table-row (sosofo-append (make table-cell use: *cell-margin-2* column-number: 2 n-columns-spanned: 2 (sosofo-append (make sequence font-size: 10pt (literal "その他の感染症：有・無（")) (make sequence (process-matching-children "other")) (make sequence (literal "）")))))) )) (element subtable4 (make table use: *cell-margin-2* display-alignment: 'center line-thickness: 0.25mm (make table-column width: 30mm) (make table-column width: 10mm) (make table-column width: 67mm) (make table-column width: 80mm) (process-children))) (element titlerow (make table-row (sosofo-append (make table-cell use: *cell-border-true* quadding: 'center (literal "既往歴")) (make table-cell use: *cell-border-true* font-size: 8pt quadding: 'center (literal "年齢")) (make table-cell use: *cell-border-true* quadding: 'center (literal "経過（入院・手術・その他）")) (make table-cell cell-after-row-border: #f (sosofo-append (make sequence (literal "服用中の薬：")) (make sequence (literal "無・有（必要時、薬品名記入）"))))))) (element row (make table-row (sosofo-append (make table-cell use: *cell-border-true* quadding: 'center (process-matching-children "gaioureki1")) (make table-cell use: *cell-border-true* quadding: 'center (process-matching-children "old1")) (make table-cell use: *cell-border-true* quadding: 'center (process-matching-children "process1")) (make table-cell use: *cell-border-true* n-rows-spanned: 6 (process-matching-children "medicine"))))) (element row2 (make table-row (sosofo-append (make table-cell use: *cell-border-true* quadding: 'center (process-matching-children "gaioureki2")) (make table-cell use: *cell-border-true* quadding: 'center (process-matching-children "old2")) (make table-cell use: *cell-border-true* quadding: 'center (process-matching-children "process2"))))) (element row3 (make table-row (sosofo-append (make table-cell use: *cell-border-true* quadding: 'center (process-matching-children "gaioureki2")) (make table-cell use: *cell-border-true* quadding: 'center (process-matching-children "old2")) (make table-cell use: *cell-border-true* quadding: 'center (process-matching-children "process2")) (make table-cell use: *cell-border-true* (sosofo-append (make sequence (literal "宗教：")) (make sequence (process-matching-children "mmlLsother")) ))))) (element row4 (make table-row (sosofo-append (make table-cell use: *cell-border-true* n-columns-spanned: 3 ; (process-matching-children "hearingperson")) (make sequence ; font-weight: 'bold (literal "聴衆者：")) (make sequence (literal "患者・家族（ ）・その他（ ）"))) (make table-cell column-number: 4 use: *cell-border-true* (sosofo-append (make sequence (literal "趣味：")) (make sequence (process-matching-children "interested"))))))) (element row5 (make table-row (sosofo-append (make table-cell use: *cell-border-true* n-columns-spanned: 3 (sosofo-append (make sequence (literal "記録者：")) (make sequence (process-matching-children "recoder")))) (make table-cell column-number: 4 use: *cell-border-true* (sosofo-append (make sequence (literal "職業")) (make sequence (process-matching-children "mmlLsoccupation")))) )))