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

MPIFQUE5.m

Go to the documentation of this file.
  1. MPIFQUE5 ;SF/TNV-Process the RESULT from CMOR COMPARISON request ;FEB 20, 1998
  1. ;;1.0; MASTER PATIENT INDEX VISTA ;**1,6,11**;30 Apr 99
  1. ;
  1. ; Integration Agreements Utilized:
  1. ;
  1. ; EXC^RGHLLOG IA #2796
  1. ; START^RGHLLOG IA #2796
  1. ; STOP^RGHLLOG IA #2796
  1. ;
  1. ; This routine will process the message from the CMOR site to change
  1. ; the CMOR as a result of a change cmor request
  1. ;
  1. EN ; Entry point for process the update of CMOR
  1. N U,LINE,IKI,ERROR,RGL,RGLOG
  1. S U="^"
  1. D START^RGHLLOG()
  1. ;
  1. N MPII,U,LINE,ERROR,PARENT,COUNT,NDATE,IKI,MPIFFS,MPIFSFS,MPIFREAP,RGLOG
  1. F MPII=1:1 X HLNEXT Q:HLQUIT'>0 D
  1. . S LINE=HLNODE
  1. . I $P(LINE,HL("FS"))["MSH" D MSH
  1. . I $P(LINE,HL("FS"))["PV1" D PV1
  1. . I $P(LINE,HL("FS"))["PID" D PID
  1. I $G(ERROR)]"" D ACK Q ; Any problems before changing the CMOR
  1. I ($G(SITE)]"")&($G(DFN)]"") D CHANGE
  1. I $G(SITE)=""!($G(DFN)="") D
  1. .S ERROR="Missing new CMOR or Patient to be changed"
  1. .D EXC^RGHLLOG(219,ERROR_" for change CMOR request HL7 msg "_$G(HL("MID")))
  1. D ACK
  1. Q
  1. ;
  1. MSH ; Process MSH segment
  1. I $P(LINE,HL("FS"),16)="AL" S ACK="YES"
  1. I $P(LINE,HL("FS"),16)="ER" S ACK="ERROR"
  1. Q
  1. ;
  1. PV1 ; Process PV1 segment
  1. S SITE=$P(LINE,HL("FS"),4)
  1. I SITE="" S ERROR="Missing CMOR site number in Change CMOR message for ICN "_ICN_" HL7 msg# "_$G(HL("MID")) D EXC^RGHLLOG(221,ERROR)
  1. Q
  1. NTE ; Process NTE segment
  1. S SITE=$P(LINE,HL("FS"),8)
  1. I SITE="" S ERROR="Missing CMOR site number in Change CMOR message for ICN "_ICN_" HL7 msg# "_$G(HL("MID")) D EXC^RGHLLOG(221,ERROR)
  1. Q
  1. ;
  1. PID ; Process PID segment
  1. S ICN=+$P(LINE,HL("FS"),3) ; get ICN out.
  1. I ICN<1 S ERROR="Missing Patient ICN in Change CMOR message HL7 msg# "_$G(HL("MID")) D EXC^RGHLLOG(219,ERROR) Q
  1. S DFN=$$IEN^MPIFNQ(ICN) ; get DFN of this patient
  1. I DFN="" S ERROR="ICN "_ICN_" not found from Change CMOR message HL7 msg# "_$G(HL("MID")) D EXC^RGHLLOG(219,ERROR) Q
  1. Q
  1. ;
  1. CHANGE ; Process the change CMOR to the new CMOR site (YOUR SITE NOW)
  1. S DIC="^DIC(4,",DIC(0)="QMOZX",X=SITE D ^DIC K DIC ; Figure out
  1. I Y=-1 S ERROR="CMOR Site name is not on file for Station Number "_SITE_" processing Change CMOR msg for ICN "_ICN D EXC^RGHLLOG(211,ERROR,DFN) Q ; the CMOR site
  1. S CHANGE=$$CHANGE^MPIF001(+DFN,+Y) ; name and change
  1. I +CHANGE=-1 S ERROR="Unable to update CMOR for site "_SITE_". For DFN "_DFN_" Processing CHANGE CMOR message "_HLMTIEN D EXC^RGHLLOG(211,ERROR,DFN)
  1. Q
  1. ;
  1. ACK ; Clean up the partition.
  1. ;
  1. D STOP^RGHLLOG()
  1. K X,Y,DFN,ICN,SITE,MPIFREAP,ACK,PARENT,CHANGE
  1. Q