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

RGFIRM.m

Go to the documentation of this file. 
  1. RGFIRM ;ALB/CJM-ROUTE FACILITY INTEGRATION MESSAGE ;08/27/99
  1.  ;;1.0;CLINICAL INFO RESOURCE NETWORK;**5,9**;30 Apr 99
  1.  ;
  1. MROUTE ;
  1.  ;Description: routing logic for the Facility Integration Message. This
  1.  ;entry point is meant to be called by the HL7 pacakge when used in
  1.  ;the message routing logic of the client protocol.
  1.  ;
  1.  ;Input:
  1.  ;  HL7 variables must be defined
  1.  ;Output:
  1.  ;  HLL("LINKS") array containing the dynamic routing list
  1.  ;Variables:
  1.  ;  LEGACY - station # of legacy site
  1.  ;  PRIMARY - station # of primary site
  1.  ;  ICN - patient ICN from message
  1.  ;  DFN - ien from the patient file
  1.  ;
  1.  N LEGACY,PRIMARY,ICN,DFN
  1.  S (DFN,LEGACY,PRIMARY,ICN)=""
  1.  Q:'$$PARSE^RGFIPM1(1,.LEGACY,.PRIMARY,.ICN)
  1.  S DFN=$$DFN^RGFIU(ICN)
  1.  Q:'DFN
  1.  D ROUTE(DFN,LEGACY,PRIMARY,.HLL)
  1.  Q
  1.  ;
  1. ROUTE(DFN,LEGACY,PRIMARY,HLL) ;
  1.  ;Description: routing logic for the Facility Integration Message. This
  1.  ;entry point is designed to be called directly by the application.
  1.  ;
  1.  ;Input:
  1.  ;  DFN - ien from the patient file
  1.  ;  LEGACY - station # of legacy site
  1.  ;  PRIMARY - station # of primary site
  1.  ;Output:
  1.  ;  HLL("LINKS") array containing the dynamic routing list (pass HLL by reference)
  1.  ;Variables:
  1.  ;  SUB - ien of the subscriber list
  1.  ;  HERE - station # of site this routine is executing on
  1.  ;  HEREIEN - ien in Institution file of site this routine is executing on
  1.  ;  MPINODE - "MPI" node from the Patient file
  1.  ;  CMOR - station # of CMOR
  1.  ;  CMORIEN - ien in Institution file of CMOR
  1.  ;
  1.  K HLL("LINKS")
  1.  ;
  1.  I $G(LEGACY),$G(PRIMARY),$G(DFN) D
  1.  .;just checking
  1.  E  Q
  1.  ;
  1.  N SUB,HERE,HEREIEN,MPINODE,CMOR,CMORIEN
  1.  S (SUB,HERE,HEREIEN,MPINODE,CMOR,CMORIEN)=""
  1.  S HEREIEN=$$SITE^VASITE(),HERE=$P(HEREIEN,"^",3),HEREIEN=+HEREIEN
  1.  S MPINODE=$$MPINODE^RGFIU(DFN)
  1.  S CMORIEN=$P(MPINODE,"^",3)
  1.  S CMOR=$$STATNUM^RGFIU(CMORIEN)
  1.  ;
  1.  ;If the CMOR is not known, the message can not be routed
  1.  I 'CMORIEN D  Q
  1.  .D EXC^RGFIU(221,"ERROR ENCOUNTERED WHILE PROCESSING FACITLIY INTEGRATION MESSAGE: MISSING CMOR",DFN)
  1.  ;
  1.  S SUB=$P(MPINODE,"^",5)
  1.  I CMOR=HERE D
  1.  .;this is the CMOR, so send to subscribers (except legacy) and Austin MPI
  1.  .N MPILINK ;logical link of MPI
  1.  .S MPILINK=$$MPILINK^MPIFAPI()
  1.  .I $P(MPILINK,"^")=-1 D
  1.  ..D EXC^RGFIU(224,"Facility Integration Message not sent to MPI, no MPI link identified in CIRN SITE PARAMETER file (#991.8)",DFN)
  1.  .E  D
  1.  ..S HLL("LINKS",1)="RG FACILITY INTEGRATION CLIENT^"_MPILINK
  1.  .;
  1.  .;If this prmary site is not the CMOR, than make sure the prmary site
  1.  .;is on the subscription list
  1.  .;If this prmary site is not the CMOR, than make sure the prmary site
  1.  .;is on the subscription list
  1.  .I PRIMARY'=CMOR D
  1.  ..;PRIMIEN = ien of primary site in Institution file, LINK = its logical link
  1.  ..N PRIMIEN,LINK
  1.  ..S PRIMIEN=$$LKUP^XUAF4(PRIMARY)
  1.  ..Q:'PRIMIEN
  1.  ..;set HLL array to route message to primary site
  1.  ..S LINK=$$GETLINK^RGFIU(PRIMIEN)
  1.  ..I '$L(LINK) D
  1.  ...D EXC^RGFIU(224,"Facility Integration Message not sent to primary site, station # "_PRIMARY,DFN)
  1.  ..E  D
  1.  ...S HLL("LINKS",2)="RG FACILITY INTEGRATION CLIENT^"_LINK
  1.  .;
  1.  .D:SUB
  1.  ..;there is a subscription list, use it to route the message, with changes
  1.  ..;Variables:
  1.  ..;  ITEM - one of the sites (by subscript # on HLL("LINKS") array) on the subscriber list
  1.  ..;  LINK - logical link ien of subscriber
  1.  ..;  HERELINK - logical link of this site
  1.  ..;  LEGLINK - logical link of legacy site
  1.  ..;
  1.  ..N ITEM,NODE,LINK,HERELINK,LEGLINK
  1.  ..S HERELINK=$$GETLINK^RGFIU(HEREIEN)
  1.  ..S LEGLINK=$$GETLINK^RGFIU($$LKUP^XUAF4(LEGACY))
  1.  ..D GET^HLSUB(SUB,,"RG FACILITY INTEGRATION CLIENT",.HLL)
  1.  ..;screen out legacy and this (here) site
  1.  ..S ITEM=0 F  S ITEM=$O(HLL("LINKS",ITEM)) Q:'ITEM  S NODE=$G(HLL("LINKS",ITEM)),LINK=$P(NODE,"^",2) D:$L(LINK)
  1.  ...I HERELINK=LINK K HLL("LINKS",ITEM) Q
  1.  ...I LEGLINK=LINK K HLL("LINKS",ITEM) Q
  1.  E  D
  1.  .;send message to CMOR, but only if this is the legacy site
  1.  .N CMORLINK
  1.  .Q:(LEGACY'=HERE)
  1.  .S CMORLINK=$$GETLINK^RGFIU(CMORIEN)
  1.  .I '$L(CMORLINK) D
  1.  ..D EXC^RGFIU(224,"Facility Integration Message not sent to site "_CMOR,DFN)
  1.  .E  D
  1.  ..S HLL("LINKS",1)="RG FACILITY INTEGRATION CLIENT^"_CMORLINK
  1.  Q