datamodule.dfm

某大型医院护士站

    ParamData = <
      item
        DataType = ftInteger
        Name = 'I1_INID'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'I2_TIMES'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'I3_SQID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'I4_OPNO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'I5_ISAUTOADDDRIP'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'I6_TYPE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'L_CONFIRM_RTN'
        ParamType = ptOutput
      end>
  end
  object spEmergency: TwwStoredProc
    DatabaseName = 'PROJHISADT'
    StoredProcName = 'L_EMERGENCY'
    ValidateWithMask = True
    Left = 440
    Top = 312
    ParamData = <
      item
        DataType = ftString
        Name = 'I1_I_SERIALID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'I2_I_OPERATOR'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'I3_I_MSG'
        ParamType = ptInput
      end>
  end
  object qryPatientAtonce: TwwQuery
    OnCalcFields = qryPatientAtonceCalcFields
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      
        'SELECT INID ,BEDID ,SERIALID ,STARTTIME ,ORDERKIND ,ITEMID ,ITEM' +
        'NAME ,'
      
        '       STDSTATIME, DOSAGE ,DOSEUNIT ,USETIMES ,USAGEID ,EXCUPLAC' +
        'E ,'
      '       KINDID ,ENDTIME'
      'FROM ORDERITEM'
      'WHERE  ( INID = :INID )'
      ' AND   ( TIMES = :TIMES )'
      ' AND   ( SQID = :SQID)'
      ' AND   ( WARDID = :WARDID)'
      ' AND   ( ATONCE = 0 )'
      ' AND   ( Sendmsg <> -1)'
      ' AND   ( Executime IS NULL)'
      ' AND   ( Excuplace <> 0 )'
      'ORDER BY ORDERKIND,KINDID'
      'FOR READ ONLY'
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' '
      ' ')
    ControlType.Strings = (
      'SELECTED;CheckBox;Yes;No')
    LookupFields.Strings = (
      'EXCUTEPLACE;PROJHISADT;EXCUTEPOS;NAME;;EXCUPLACE;Y'
      'USAGENAME;PROJHISADT;USAGE;NAME;;USAGEID;Y'
      'USETIMENAME;PROJHISADT;FREQUENCY;NAME;;FREQID;Y')
    LookupLinks.Strings = (
      'EXCUPLACE;EXCUPLACE'
      'USAGEID;USAGEID'
      'USETIMES;FREQID')
    ValidateWithMask = True
    Left = 377
    Top = 64
    ParamData = <
      item
        DataType = ftInteger
        Name = 'INID'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'TIMES'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'SQID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'WARDID'
        ParamType = ptInput
      end>
    object qryPatientAtonceSELECTED: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'SELECTED'
      Calculated = True
    end
    object qryPatientAtonceINID: TIntegerField
      FieldName = 'INID'
    end
    object qryPatientAtonceBEDID: TStringField
      FieldName = 'BEDID'
      FixedChar = True
      Size = 6
    end
    object qryPatientAtonceSERIALID: TStringField
      FieldName = 'SERIALID'
      FixedChar = True
      Size = 21
    end
    object qryPatientAtonceSTARTTIME: TDateTimeField
      FieldName = 'STARTTIME'
    end
    object qryPatientAtonceORDERKIND: TSmallintField
      FieldName = 'ORDERKIND'
    end
    object qryPatientAtonceITEMID: TStringField
      FieldName = 'ITEMID'
      FixedChar = True
      Size = 6
    end
    object qryPatientAtonceITEMNAME: TStringField
      FieldName = 'ITEMNAME'
      FixedChar = True
    end
    object qryPatientAtonceSTDSTATIME: TDateTimeField
      FieldName = 'STDSTATIME'
    end
    object qryPatientAtonceDOSAGE: TFloatField
      FieldName = 'DOSAGE'
    end
    object qryPatientAtonceDOSEUNIT: TStringField
      FieldName = 'DOSEUNIT'
      FixedChar = True
      Size = 4
    end
    object qryPatientAtonceUSETIMES: TSmallintField
      FieldName = 'USETIMES'
    end
    object qryPatientAtonceUSAGEID: TStringField
      FieldName = 'USAGEID'
      FixedChar = True
      Size = 4
    end
    object qryPatientAtonceEXCUPLACE: TSmallintField
      FieldName = 'EXCUPLACE'
    end
    object qryPatientAtonceKINDID: TSmallintField
      FieldName = 'KINDID'
    end
    object qryPatientAtonceOrderKindName: TStringField
      Alignment = taCenter
      FieldKind = fkCalculated
      FieldName = 'OrderKindName'
      Size = 4
      Calculated = True
    end
    object qryPatientAtonceEXCUTEPLACE: TStringField
      FieldKind = fkCalculated
      FieldName = 'EXCUTEPLACE'
      Size = 8
      Calculated = True
    end
    object qryPatientAtonceENDTIME: TDateTimeField
      FieldName = 'ENDTIME'
    end
    object qryPatientAtonceUSAGENAME: TStringField
      FieldKind = fkCalculated
      FieldName = 'USAGENAME'
      Size = 8
      Calculated = True
    end
    object qryPatientAtonceUSETIMENAME: TStringField
      FieldKind = fkCalculated
      FieldName = 'USETIMENAME'
      Size = 6
      Calculated = True
    end
  end
  object scrPatientAtonce: TwwDataSource
    DataSet = qryPatientAtonce
    Left = 377
    Top = 112
  end
  object spRecall: TwwStoredProc
    DatabaseName = 'PROJHISADT'
    StoredProcName = 'L_RECALL'
    ValidateWithMask = True
    Left = 22
    Top = 364
    ParamData = <
      item
        DataType = ftString
        Name = 'I1_SERIALID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'I2_OPERATOR'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'O_RECALL_RTN'
        ParamType = ptOutput
      end>
  end
  object qryChkConfirm: TwwQuery
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      'SELECT COUNT(*) AS NO_CONFIRMNUM FROM ORDERITEM'
      'WHERE INID  = :P_INID'
      '  AND TIMES = :P_TIMES'
      '  AND SQID  = :P_SQID'
      '  AND WARDID= :P_WARDID'
      '  AND ( CONFIRM = 0 OR STOPTYPE < 0 )')
    ValidateWithMask = True
    Left = 565
    Top = 8
    ParamData = <
      item
        DataType = ftInteger
        Name = 'P_INID'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'P_TIMES'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'P_SQID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_WARDID'
        ParamType = ptInput
      end>
    object qryChkConfirmNO_CONFIRMNUM: TIntegerField
      FieldName = 'NO_CONFIRMNUM'
    end
  end
  object qryOrderCost: TwwQuery
    DatabaseName = 'PROJHISLOCAL'
    SQL.Strings = (
      'SELECT COSTID ,CNAME ,ENAME ,SPEC ,PRICE ,MADEIN ,DOSAGE ,'
      '       BASEDOSE ,EXCODE1 ,EXCODE2 ,EXCODE3'
      '  FROM ORDERCOST '
      ' WHERE ENABLED = 1'
      ' ORDER BY COSTID')
    ValidateWithMask = True
    Left = 208
    Top = 8
    object qryOrderCostCOSTID: TStringField
      DisplayLabel = '项目代码'
      DisplayWidth = 6
      FieldName = 'COSTID'
      Origin = 'PROJHISLOCAL."ORDERCOST.DB".COSTID'
      Size = 6
    end
    object qryOrderCostCNAME: TStringField
      DisplayLabel = '中文名'
      DisplayWidth = 20
      FieldName = 'CNAME'
      Origin = 'PROJHISLOCAL."ORDERCOST.DB".CNAME'
    end
    object qryOrderCostSPEC: TStringField
      DisplayLabel = '规格'
      DisplayWidth = 16
      FieldName = 'SPEC'
      Origin = 'PROJHISLOCAL."ORDERCOST.DB".SPEC'
      Size = 16
    end
    object qryOrderCostPRICE: TFloatField
      DisplayLabel = '单价'
      DisplayWidth = 10
      FieldName = 'PRICE'
      Origin = 'PROJHISLOCAL."ORDERCOST.DB".PRICE'
    end
    object qryOrderCostMADEIN: TStringField
      DisplayLabel = '产地'
      DisplayWidth = 30
      FieldName = 'MADEIN'
      Origin = 'PROJHISLOCAL."ORDERCOST.DB".MADEIN'
      Size = 30
    end
    object qryOrderCostENAME: TStringField
      DisplayLabel = '英文名'
      DisplayWidth = 20
      FieldName = 'ENAME'
      Origin = 'PROJHISLOCAL."ORDERCOST.DB".ENAME'
      Visible = False
    end
    object qryOrderCostEXCODE1: TStringField
      DisplayLabel = '拼音码'
      DisplayWidth = 6
      FieldName = 'EXCODE1'
      Origin = 'PROJHISLOCAL."ORDERCOST.DB".EXCODE1'
      Visible = False
      Size = 4
    end
    object qryOrderCostEXCODE2: TStringField
      DisplayWidth = 4
      FieldName = 'EXCODE2'
      Origin = 'PROJHISLOCAL."ORDERCOST.DB".EXCODE2'
      Visible = False
      Size = 4
    end
    object qryOrderCostEXCODE3: TStringField
      DisplayWidth = 4
      FieldName = 'EXCODE3'
      Origin = 'PROJHISLOCAL."ORDERCOST.DB".EXCODE3'
      Visible = False
      Size = 4
    end
    object qryOrderCostDOSAGE: TFloatField
      FieldName = 'DOSAGE'
      Origin = 'PROJHISLOCAL."ORDERCOST.DB".DOSAGE'
      Visible = False
    end
    object qryOrderCostBASEDOSE: TFloatField
      FieldName = 'BASEDOSE'
      Origin = 'PROJHISLOCAL."ORDERCOST.DB".BASEDOSE'
      Visible = False
    end
  end
  object spPatientOut: TwwStoredProc
    DatabaseName = 'PROJHISADT'
    StoredProcName = 'L_PATIENTOUT'
    ValidateWithMask = True
    Left = 504
    Top = 312
    ParamData = <
      item
        DataType = ftInteger
        Name = 'IN1_INID'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'IN2_TIMES'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'IN3_SQID'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'IN4_ENDTIME'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'IN5_LEFTTIME'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'IN6_LEFTTYPE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'IN7_OPERATOR'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'IN8_WARDID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'IN9_BEDID'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'IN10_CS_ENDTIME'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'OUT1_STATE'
        ParamType = ptOutput
      end>
  end
  object spSendMsg: TwwStoredProc
    DatabaseName = 'PROJHISADT'
    StoredProcName = 'L_SENDMSG'
    ValidateWithMask = True
    Left = 568
    Top = 312
    ParamData = <
      item
        DataType = ftInteger
        Name = 'I1_INID'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'I2_TIMES'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'I3_SQID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'I4_WARDID'
        ParamType = ptInput
      end
      item
        DataType = ftSt