modfilmprint.bas

1、以DLL形式提供医生工作站 2、 根据【检查项目】

Attribute VB_Name = "modFilmPrint"
Option Explicit


'当前选中图片序号
Public nSelectPhotoIndex As Integer


'是否需要调整 胶片排版
Public FILM_PRINT_ADJUST_TYPESET As Boolean

Public Const FILM_EDIT_PATH = "FilmEdit"



'待打印图片总数
Public photoTotalCount As Long

'0 ID,1 DOCT_ID,2 PATIENT_ID,3 PATIENT_NAME,4 PATIENT_SEX,5 BIRTH_OF_DATE,6 PATIENT_AGE,
'7 CHECK_PART,8 PATIENT_PART,9 REFER_PART,10 PHOTO_DATE,11 HOSPITAL_NAME,12 MANUFACTURER,13 MACHINE_TYPE
'14 MACHINE_NUM,15 DOCTOR, 16 STUDY_DATE,17 STANDING_DATE,18 COLLECT_DATE,19 STUDY_TIME
'20 STANDING_TIME,21 COLLECT_TIME,22 PHOTO_TIME,23 STUDY_TYPE,24 SLICE_THICK,
'25 STUDY_NO,26 PHOTO_NO,27 SAMPLING_IMAGE,28 ROWS,29 COLUMNS,30 STATION,31 WIDTH
Public patientInfo() As String