Routine: VPSSEND

Information

VPSSEND ;SLOIFO/BT - Send HL7 messages (Appointment Status Change) to VetLink HL7 Server ;01/16/2015 11:23

Source file <VPSSEND.m>

Name	Comments	DBIA/ICR reference
EN	;Entry Point called by SDAM APPOINTMENT EVENTS protocol ; SDATA will be defined when SDAM APPOINTMENT EVENTS protocol calls this entry
ACTIVE()	;Is VPS HL7 active?
QUE(DFN,APPTDT,CLINIC,STATUS)	; -- Queue Send appointment status Job
SEND	; -- Send HL7 message to VetLink
ERROR(ERR,LINKPORT,QUEUE)	;Store error
PREPQUE(LINK,QUEUE)	; -- Prepare to use HL7 Queue ; INPUT ; LINK : HL LOGICAL LINK ; QUEUE : HL7 Transmission Queue ; RETURN ; LINK_":"_HLOPORT for success ; -1^Error Message for error
STARTQUE(LINKPORT,QUEUE)	;start Queue
UNLQUE(LINKPORT,QUEUE)	;Unlock Queue
EVN(APPT,SEG)	; -- generate PID segment
PID(DFN,SEG)	; -- generate PID segment
PV1(DFN,SEG,ERR)	; -- Patient Visit segment for patient record Flags
ZEN(DFN,SEG)	; -- generate ZEN segment (VA Enrollment)
ZEL(VAEL,SEG)	; -- generate ZEL segment (VA Patient Eligibility)
ZMT(VAEL,SEG)	; -- generate ZMT segment (VA Means Test)
IN1(DFN,SEG)	; -- generate IN1 segment (Insurance Information)
NAMPARSE(VNAME)	; return name components for standard VistA name