VistApedia - User contributions [en]

Register a patient via HL7

2007-12-17T20:04:37Z

Cmdupre:

Removed.

2007-07-20T21:14:51Z

Cmdupre: /* Programming Issues */

This page will cover programming issues.

=== Programming Issues ===

* [[M/Mumps Language Issues]]
* [[TIU Package API]]
* [[Batch Signing of Documents]]
* [[Debugging with GT.M]]
* [[CPRSImager (CPRSChart mod)]]
* [[VistA Imaging Issues]]
* [[Pharmacy Issues]]
* [[Add on Functions]]
* [[Setting up a Linux Printer]]
* [[Using a linux editor inside VistA]]
* [[Lab Interfacing]]
* [[Indirection (@) issues]]
* [[VistA Database Globals]]
* [[Patching Instructions]]
* [[Redirecting pointers]]
* [[VistA Links]]
* [[Object Oriented Programming with M]]
* [[Programming with the VPE code library]]
* [[SSH Tunneling for CPRS]]
* [[GT.M Job Examine / System Status Overview]]
* [[Error Trapping with $ETRAP]]
* [[RPC's with Visual Cpp]]
* [[Register a patient via HL7]]

HL7 Multi-Listener

2007-07-20T21:13:55Z

Cmdupre:

User:Cmdupre

2007-07-20T21:11:33Z

Cmdupre:

User:Cmdupre

2007-07-20T21:10:05Z

Cmdupre:

RPC's with Visual Cpp

2007-07-20T21:08:19Z

Cmdupre:

First you will need to install the RPC Broker Kit (available at ftp://ftp.va.gov). For Example1, I created an M program and set-up the Remote Procedures File accordingly.

Copy Bapi32.hpp into your Visual C++ project's header files directory.

In Visual Studio, right-click on your "Header Files" folder and click "Add Files to Folder..." Add Bapi32.hpp. Be sure to add an include line for this header file in one of your source files:

#include "Bapi32.hpp"

In your dialog cpp file, create a new global instance of TRPCBroker:

TRPCBroker RPCBroker;

Variable declarations for my examples:
char * result = "";
CString num1="";
CString num2="";
CString num3="";
char num1c[10]="";
char num2c[10]="";
CString name="";
char namec[255]="";
int Ulocation=0;

Example 1: This example takes two user-specified integers, passes those integers to VistA, and receives the sum.

for (int i=0;i<num1.GetLength();i++)
num1c[i]=num1[i];
for (int j=0;j<num2.GetLength();j++)
num2c[j]=num2[j];

RPCBroker.RPCBPropSet("RemoteProcedure","TEST");
RPCBroker.RPCBPropSet("ClearParameters","1");
RPCBroker.RPCBPropSet("ClearResults","1");
RPCBroker.RPCBPropSet("Server","brokerserver");
RPCBroker.RPCBPropSet("ListenerPort","9200");

RPCBroker.RPCBParamSet(0,0,num1c);
RPCBroker.RPCBParamSet(1,0,num2c);

try
{
result = RPCBroker.RPCBCall("");
}
catch ( ... )
{
MessageBox("Runtime Error","RPCBroker Call");
result = "Error";
}
num3=result;

Example 2: This example uses the server settings as shown in Example 1; This code will ask VistA for the user's DUZ, then request the user's name, ip address, current port number, server operating system, and current job number.

RPCBroker.RPCBPropSet("Connected","1"); //Displays VistA sign-on splash screen
RPCBroker.RPCBPropSet("RemoteProcedure","XWB GET VARIABLE VALUE");
RPCBroker.RPCBParamSet(0,1,"DUZ");
result = RPCBroker.RPCBCall("");
name.Format("^VA(200,%s,0)",result);
for (int i1=0;i1<name.GetLength();i1++)
namec[i1]=name[i1];
RPCBroker.RPCBParamSet(0,1,namec);
result = RPCBroker.RPCBCall("");
namebox = result;
for (int i2=0;i2<namebox.GetLength();i2++)
{
if (result[i2]==94)
{
Ulocation=i2;
i2=namebox.GetLength();
}
}
namebox = namebox.Mid(0,Ulocation);
RPCBroker.RPCBParamSet(0,1,"XWBTIP");
result = RPCBroker.RPCBCall("");
ipbox = result;
RPCBroker.RPCBParamSet(0,1,"XWBTSKT");
result = RPCBroker.RPCBCall("");
portbox=result;
RPCBroker.RPCBParamSet(0,1,"$ZV");
result = RPCBroker.RPCBCall("");
osbox = result;
RPCBroker.RPCBParamSet(0,1,"$J");
result = RPCBroker.RPCBCall("");
jobbox = result;

Example 3: This example disconnects the previous server.

RPCBroker.RPCBPropSet("Connected","0");

[[User:cmdupre]]

2007-06-07T20:44:48Z

Cmdupre:

User:Cmdupre

2007-05-23T19:10:24Z

Cmdupre:

I am a programmer with a company in Lafayette, Louisiana. We are a software vendor who concentrates mostly on our medical billing package. We are interested in utilizing VistA to provide our customers with an EHR package.

Here are two routines I wrote file our patient demographics via the HL7 messaging subsystem through our billing system interface program. Most of the data validation is taken care of on my cobol side, so you will not see much of that done here. This is a very specific module for my application, but we should be able to generalize it with little effort.

Notes:
*This module is in no way complete! It is still a work in progress. Having said that, it will at least work just fine.
*There is a global variable (^CHECK) that should be removed. This is just for my debugging purposes.
*I set up my own cross references and use those cross references as the key for my data.

[[Media:ACSPNT.m]]

[[Media:ACSPNT2.m]]

This is how to set up a multi listener for the HL7 subsystem using linux and GT.M:

[[HL7 Multi-Listener]]

User:Cmdupre

2007-05-23T19:08:44Z

Cmdupre:

I am a computer programmer with a company in Lafayette, Louisiana. We are a software vendor who concentrates mostly on our medical billing package. We are interested in utilizing VistA to provide our customers with an EHR package.

Here are two routines I wrote file our patient demographics via the HL7 messaging subsystem through our billing system interface program. Most of the data validation is taken care of on my cobol side, so you will not see much of that done here. This is a very specific module for my application, but we should be able to generalize it with little effort.

Notes:
*This module is in no way complete! It is still a work in progress. Having said that, it will at least work just fine.
*There is a global variable (^CHECK) that should be removed. This is just for my debugging purposes.
*I set up my own cross references and use those cross references as the key for my data.

[[Media:ACSPNT.m]]

[[Media:ACSPNT2.m]]

This is how to set up a multi listener for the HL7 subsystem using linux and GT.M:

[[HL7 Multi-Listener]]

File:ACSPNT2.m

2007-05-23T19:08:18Z

Cmdupre:

2007-05-22T16:37:41Z

Cmdupre:

I am a computer programmer with a company in Lafayette, Louisiana. We are a software vendor who concentrates mostly on our medical billing package. We are interested in using VistA to provide an EHR package to our customers.

Here are two routines I wrote file our patient demographics via the HL7 messaging subsystem through our billing system interface program. Most of the data validation is taken care of on my cobol side, so you will not see much of that done here. This is a very specific module for my application, but we should definitely be able to generalize it.

Note: this module is in no way complete! It is still a work in progress. Having said that, it *should* at least work just fine. There is a global variable (^CHECK) that will be removed later. This is just for debugging purposes.

[[Image:Acspnt.m]]

[[Image:Acspnt2.m]]