コード例 #1
0
        private void Form1_Load(object sender, EventArgs e)
        {
            ADT_A04 message = new ADT_A04();

            message.MSH.FieldSeparator.Value                   = @"|";
            message.MSH.EncodingCharacters.Value               = @"^~\&";
            message.MSH.SendingApplication.NamespaceID.Value   = "REGADT";
            message.MSH.SendingFacility.NamespaceID.Value      = "MCM";
            message.MSH.ReceivingApplication.NamespaceID.Value = "IFENG";
            message.MSH.DateTimeOfMessage.TimeOfAnEvent.Value  = "199901101501";
            message.MSH.MessageType.MessageType.Value          = "ADT";
            message.MSH.MessageType.TriggerEvent.Value         = "A04";
            message.MSH.MessageControlID.Value                 = "00001";
            message.MSH.ProcessingID.ProcessingID.Value        = "P";
            message.MSH.VersionID.VersionID.Value              = "2.3.1";

            message.EVN.EventTypeCode.Value = "A04";
            message.EVN.RecordedDateTime.TimeOfAnEvent.Value     = "199901101500";
            message.EVN.DateTimePlannedEvent.TimeOfAnEvent.Value = "199901101400";
            message.EVN.EventReasonCode.Value             = "01";
            message.EVN.EventOccurred.TimeOfAnEvent.Value = "199901101410";

            message.PID.GetPatientIdentifierList(0).ID.Value = "191919";
            message.PID.GetPatientIdentifierList(0).AssigningAuthority.NamespaceID.Value = "GENHOS";
            message.PID.GetPatientIdentifierList(0).IdentifierTypeCode.Value             = "MR";
            message.PID.GetPatientIdentifierList(1).ID.Value = "371-66-9256";
            message.PID.GetPatientIdentifierList(1).AssigningAuthority.NamespaceID.Value = "USSSA";
            message.PID.GetPatientIdentifierList(1).IdentifierTypeCode.Value             = "SS";
            message.PID.GetAlternatePatientIDPID(0).ID.Value = "253763";
            message.PID.GetPatientName(0).FamilyLastName.FamilyName.Value = "MASSIE";
            message.PID.GetPatientName(0).GivenName.Value           = "JAMES";
            message.PID.GetPatientName(0).MiddleInitialOrName.Value = "A";
            message.PID.DateTimeOfBirth.TimeOfAnEvent.Value         = "19560129";
            message.PID.Sex.Value = "M";
            message.PID.GetPatientAddress(0).StreetAddress.Value                 = "171 ZOBERLEIN";
            message.PID.GetPatientAddress(0).City.Value                          = "ISHPEMING";
            message.PID.GetPatientAddress(0).StateOrProvince.Value               = "MI";
            message.PID.GetPatientAddress(0).ZipOrPostalCode.Value               = "49849";
            message.PID.GetPatientAddress(0).Country.Value                       = null;
            message.PID.GetPhoneNumberHome(0).Get9999999X99999CAnyText.Value     = "(90 0)485-5344";
            message.PID.GetPhoneNumberBusiness(0).Get9999999X99999CAnyText.Value = "(900)485-5344";
            message.PID.MaritalStatus.Identifier.Value = "S";
            message.PID.Religion.Identifier.Value      = "C";
            message.PID.PatientAccountNumber.ID.Value  = "10199925";
            message.PID.PatientAccountNumber.AssigningAuthority.NamespaceID.Value = "GENHOS";
            message.PID.PatientAccountNumber.IdentifierTypeCode.Value             = "AN";
            message.PID.SSNNumberPatient.Value = "371-66-9256";

            PipeParser parser = new PipeParser();

            richTextBox1.Text = parser.Encode(message);
        }
コード例 #2
0
        /// <summary>
        /// Creates a HL Message out of an object model
        /// </summary>
        /// <param name="objToEncode"></param>
        /// <returns></returns>
        public String Encode(Patient objToEncode)
        {
            var        patient = objToEncode;
            PipeParser parser  = new PipeParser();

            // HL7 Message Header Settings

            ADT_A04 qry = new ADT_A04();

            qry.MSH.MessageType.MessageType.Value  = "ADT";
            qry.MSH.MessageType.TriggerEvent.Value = "A01";
            qry.MSH.FieldSeparator.Value           = "|";
            qry.MSH.VersionID.Value = "2.3";
            qry.MSH.SendingApplication.NamespaceID.Value   = "CohieCentral";
            qry.MSH.SendingFacility.NamespaceID.Value      = "COHIE";
            qry.MSH.ReceivingApplication.NamespaceID.Value = "Clinical Data Provider";
            qry.MSH.EncodingCharacters.Value = @"^~\&";
            qry.MSH.DateTimeOfMessage.TimeOfAnEvent.SetLongDate(DateTime.Now);
            qry.MSH.ProcessingID.ProcessingID.Value      = "P";
            qry.PID.SetIDPatientID.Value                 = "77291";
            qry.PID.PatientIDExternalID.CheckDigit.Value = "9";
            qry.PID.PatientIDExternalID.ID.Value         = "PATID1234";
            qry.PID.PatientIDExternalID.CodeIdentifyingTheCheckDigitSchemeEmployed.Value = "55A";

            // Patient Name
            qry.PID.GetPatientName(0).GivenName.Value       = patient.PersonName.GivenName;
            qry.PID.GetPatientName(0).FamilyName.Value      = patient.PersonName.FamilyName;
            qry.PID.GetPatientName(0).SuffixEgJRorIII.Value = patient.PersonName.Suffix;
            qry.PID.Sex.Value = patient.PersonSex.ToString();
            qry.PID.GetPhoneNumberHome(0).PhoneNumber.Value = patient.PersonNumber.HomeNumber;
            qry.PID.DateOfBirth.TimeOfAnEvent.Value         = "19680219";


            // Patient Address
            qry.PID.GetPatientAddress(0).StreetAddress.Value   = patient.PersonAddress.StreetAddress;
            qry.PID.GetPatientAddress(0).City.Value            = patient.PersonAddress.City;
            qry.PID.GetPatientAddress(0).StateOrProvince.Value = patient.PersonAddress.State;
            qry.PID.GetPatientAddress(0).ZipOrPostalCode.Value = patient.PersonAddress.ZipCode;


            // Kin Details

            qry.AddNK1();
            NK1    objNextOfKin = qry.GetNK1();
            Person objKin       = patient.NextOfKin[0];

            objNextOfKin.GetName(0).GivenName.Value  = objKin.PersonName.GivenName;
            objNextOfKin.GetName(0).FamilyName.Value = objKin.PersonName.FamilyName;

            objNextOfKin.Relationship.Identifier.Value       = objKin.Relationship;
            objNextOfKin.GetAddress(0).StreetAddress.Value   = objKin.PersonAddress.StreetAddress;
            objNextOfKin.GetAddress(0).City.Value            = objKin.PersonAddress.City;
            objNextOfKin.GetAddress(0).StateOrProvince.Value = objKin.PersonAddress.State;
            objNextOfKin.GetAddress(0).ZipOrPostalCode.Value = objKin.PersonAddress.ZipCode;

            objNextOfKin.GetPhoneNumber(0).PhoneNumber.Value         = objKin.PersonNumber.HomeNumber;
            objNextOfKin.GetBusinessPhoneNumber(0).PhoneNumber.Value = objKin.PersonNumber.OfficeNumber;


            var message = parser.Encode(qry);

            return(message);
        }