Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RGFIBM

RGFIBM.m

Go to the documentation of this file.
  1. RGFIBM ;ALB/CJM-SEND FACILITY INTEGRATION MESSAGE ;08/27/99
  1. ;;1.0;CLINICAL INFO RESOURCE NETWORK;**5,9**;30 Apr 99
  1. ;
  1. SEND(DFN,LEGACY,PRIMARY,RESULTS,ERROR) ;
  1. ;Description: Sends the facility integration message for this patient
  1. ;using routing logic based on the subscription list.
  1. ;
  1. ;Input:
  1. ; DFN - ien of patient
  1. ; LEGACY - station number of the legacy site
  1. ; PRIMARY - station number of the primary site
  1. ;Output:
  1. ; Function Value - 1 on success, 0 on failure
  1. ; RESULTS() - results array returned by calling GENERATE^HLMA (pass by reference,optional)
  1. ; ERROR - error message (pass by reference,optional)
  1. ;
  1. N HL,HLA,HLERR,HLL,HLDT,HLCD,HLINK0,HLINKIEN,HLINKP,HLINKX,HLDOM,HLECH,HLFS,HLHDR,HLINST,HLN,HLPARAM,HLQ,HLSAN,HLTYPE,HLX,RGI,ERRFOUND
  1. K RESULTS,ERROR
  1. ;
  1. ;
  1. I $G(DFN),$G(PRIMARY),$G(LEGACY) D
  1. .;just checking!
  1. E S ERROR="MISSING PARAMETER" Q 0
  1. ;
  1. I '$$BUILD("HLA(""HLS"")",DFN,LEGACY,PRIMARY,.ERROR) Q 0
  1. ;
  1. D ROUTE^RGFIRM(DFN,LEGACY,PRIMARY,.HLL)
  1. ;
  1. D GENERATE^HLMA("RG FACILITY INTEGRATION SERVER","LM",1,.RESULTS)
  1. ;
  1. S ERRFOUND=0
  1. I +$P($G(RESULTS),"^",2) S ERROR=$P(RESULTS,"^",3),ERROR="ERROR ENCOUNTERED BY HL7 WHILE SENDING FACILITY INTEGRATION MESSAGE: "_ERROR_" MSGID: "_+RESULTS D EXC^RGFIU(6,ERROR,DFN) S ERRFOUND=1
  1. S RGI=0
  1. I $D(RESULTS) F S RGI=$O(RESULTS(RGI)) Q:'RGI D
  1. .I +$P($G(RESULTS(RGI)),"^",2) S ERROR=$P(RESULTS(RGI),"^",3),ERROR="ERROR ENCOUNTERED BY HL7 WHILE SENDING FACILITY INTEGRATION MESSAGE: "_ERROR_" MSGID: "_+RESULTS(RGI) D EXC^RGFIU(6,ERROR,DFN) S ERRFOUND=1
  1. Q:ERRFOUND 0
  1. Q 1
  1. ;
  1. BUILD(LOC,DFN,LEGACY,PRIMARY,ERROR) ;
  1. ;Description: Builds the facility integration message.
  1. ;
  1. ;Input:
  1. ; LOC - global location to place the message, referenced by @indirection
  1. ; DFN - ien of patient
  1. ; LEGACY - station number of the legacy site
  1. ; PRIMARY - station number of the primary site
  1. ;Output:
  1. ; Function Value - 1 on success, 0 on failure
  1. ; ERROR - error message (pass by reference,optional)
  1. ; HL7 variables defined by INIT^HLFNC2
  1. ;
  1. N ICNPLUS
  1. K ERROR
  1. ;
  1. ;
  1. I $G(DFN),$G(PRIMARY),$G(LEGACY) D
  1. .;just checking!
  1. E S ERROR="MISSING PARAMETER NEEDED TO BUILD FACILITY INTEGRATION MESSAGE" D EXC^RGFIU(6,ERROR,DFN) Q 0
  1. ;
  1. ;don't send message if there is no ICN to identify it
  1. S ICNPLUS=$$GETICN^MPIF001(DFN)
  1. I (+ICNPLUS)'>0 S ERROR="UNABLE TO SEND FACILITY INTEGRATION MESSAGE - PATIENT LACKS ICN" D EXC^RGFIU(6,ERROR,DFN) Q 0
  1. ;
  1. ;don't send if local ICN
  1. I $$IFLOCAL^MPIF001(DFN) S ERROR="UNABLE TO SEND FACILITY INTEGRATION MESSAGE - PATIENT ICN IS LOCAL" D EXC^RGFIU(6,ERROR,DFN) Q 0
  1. ;
  1. D INIT^HLFNC2("RG FACILITY INTEGRATION SERVER",.HL)
  1. I $G(HL) S ERROR="ERROR ENCOUNTERED BY HL7 WHILE SENDING FACILITY INTEGRATION MESSAGE: "_HL D EXC^RGFIU(6,ERROR,DFN) Q 0
  1. ;
  1. S @LOC@(1)=$$EVN^VAFHLEVN("A08",51)
  1. S @LOC@(2)=$$EN^VAFCPID(DFN,"2,3,5,19")
  1. S @LOC@(3)="PV1"
  1. S $P(@LOC@(3),HL("FS"),3)="O"
  1. S @LOC@(4)="NTE"
  1. S $P(@LOC@(4),HL("FS"),3)="P"
  1. S $P(@LOC@(4),HL("FS"),4)=LEGACY_$E(HL("ECH"),1)_PRIMARY
  1. Q 1
  1. ;
  1. SITESEND(TO,DFN,LEGACY,PRIMARY,RESULTS,ERROR) ;
  1. ;Description: Sends the facility integration message for this patient
  1. ;to a single site.
  1. ;
  1. ;Input:
  1. ; TO - station # of destination
  1. ; DFN - ien of patient
  1. ; LEGACY - station number (without suffix) of the legacy site
  1. ; PRIMARY - station number (without suffix) of the primary site
  1. ;Output:
  1. ; Function Value - 1 on success, 0 on failure
  1. ; RESULTS() - results array returned by calling GENERATE^HLMA (pass by reference,optional)
  1. ; ERROR - error message (pass by reference,optional)
  1. ;
  1. N HL,HLA,HLERR,HLL,SITEIEN,LINK,HLDT,HLCD,HLINK0,HLINKIEN,HLINKP,HLINKX,HLDOM,HLECH,HLFS,HLHDR,HLINST,HLN,HLPARAM,HLQ,HLSAN,HLTYPE,HLX
  1. K RESULTS,ERROR
  1. ;
  1. ;
  1. I $G(DFN),$G(PRIMARY),$G(LEGACY),$G(TO) D
  1. .;just checking!
  1. E S ERROR="MISSING PARAMETER" Q 0
  1. ;
  1. S SITEIEN=$$LKUP^XUAF4(TO)
  1. I 'SITEIEN S ERROR="SITE NOT FOUND IN INSTITUTION FILE" Q 0
  1. ;
  1. ;set HLL array to route message to a single site
  1. S LINK=$$GETLINK^RGFIU(SITEIEN)
  1. I '$L(LINK) D
  1. .D EXC^RGFIU(224,"Facility Integration Message not sent to station # "_TO,DFN)
  1. E D
  1. .S HLL("LINKS",1)="RG FACILITY INTEGRATION CLIENT^"_LINK
  1. ;
  1. ;create the message
  1. I '$$BUILD("HLA(""HLS"")",DFN,LEGACY,PRIMARY,.ERROR) Q 0
  1. ;
  1. D GENERATE^HLMA("RG FACILITY INTEGRATION SERVER","LM",1,.RESULTS)
  1. ;
  1. I +$P($G(RESULTS),"^",2) S ERROR=$P(RESULTS,"^",3),ERROR="ERROR ENCOUNTERED BY HL7 WHILE SENDING FACILITY INTEGRATION MESSAGE: "_ERROR D EXC^RGFIU(6,ERROR,DFN) Q 0
  1. Q 1