IVMPREC6 ;ALB/KCL,BRM,CKN,TDM,PWC,LBD,JAM,KUM - PROCESS INCOMING (Z05 EVENT TYPE) HL7 MESSAGES ;7/22/24 8:06AM
Source file <IVMPREC6.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; - entry point to process HL7 patient demographic message
|
|
| ENQ | ; - cleanup variables
|
|
| NEXT | ; - get the next HL7 segment in the message from HL7 Transmission (#772) file
|
|
| COMPARE(IVMSEG) | ; - compare incoming HL7 segment/fields with DHCP fields
|
|
| DEMBULL | ; - build mail message for transmission to IVM mail group notifying
; them that patients with updated demographic data has been received ; from the IVM Center and may now be uploaded into DHCP. |
|
| INACTIVE(IVMDEMDA) | ;Check if field is inactive in Demographic Upload
; Input -- IVMDEMDA IVM Demographic Upload Fields IEN ; Output -- 1=Yes and 0=No |
|
| RF1CHK(IVMRTN,IVMDA) | ;does an RF1 segment exist in this message?
|
|
| CKAUTO() | ;
; Chect if message qualifies for an auto upload. |
|
| BLDPID(PIDTMP,IVMPID) | ;Build IVMPID subscripted by sequence number
|
|
| ADDRCHNG(DFN) | ;Store Address Change Date/time, Source and site if necessary
|
|
| EPCFLDS(EPCFARY,EPCDEL) | ;
|
|
| AUPBLD(AUPFARY,UPDAUPG) | ; Set up array containing fields for auto upload.
|
|
| AUPLST | ; P1;P2
; P1 = Group Name (treat all entries as this group if present) ; P2 = .01 field(s) from 301.92 separated by '^' |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
