MPIFQUE5.m

MPIFQUE5 ;SF/TNV-Process the RESULT from CMOR COMPARISON request ;FEB 20, 1998

 ;;1.0; MASTER PATIENT INDEX VISTA ;**1,6,11**;30 Apr 99

 ;

 ; Integration Agreements Utilized:

 ;

 ;  EXC^RGHLLOG     IA #2796

 ;  START^RGHLLOG   IA #2796

 ;  STOP^RGHLLOG    IA #2796

 ;

 ; This routine will process the message from the CMOR site to change

 ; the CMOR as a result of a change cmor request

 ;

EN ; Entry point for process the update of CMOR

 N U,LINE,IKI,ERROR,RGL,RGLOG

 S U="^"

 D START^RGHLLOG()

 ;

 N MPII,U,LINE,ERROR,PARENT,COUNT,NDATE,IKI,MPIFFS,MPIFSFS,MPIFREAP,RGLOG

 F MPII=1:1 X HLNEXT Q:HLQUIT'>0  D

 . S LINE=HLNODE

 . I $P(LINE,HL("FS"))["MSH" D MSH

 . I $P(LINE,HL("FS"))["PV1" D PV1

 . I $P(LINE,HL("FS"))["PID" D PID

 I $G(ERROR)]"" D ACK Q          ; Any problems before changing the CMOR

 I ($G(SITE)]"")&($G(DFN)]"") D CHANGE

 I $G(SITE)=""!($G(DFN)="") D

 .S ERROR="Missing new CMOR or Patient to be changed"

 .D EXC^RGHLLOG(219,ERROR_" for change CMOR request HL7 msg "_$G(HL("MID")))

 D ACK

 Q

 ;

MSH ; Process MSH segment

 I $P(LINE,HL("FS"),16)="AL" S ACK="YES"

 I $P(LINE,HL("FS"),16)="ER" S ACK="ERROR"

 Q

 ;

PV1 ; Process PV1 segment

 S SITE=$P(LINE,HL("FS"),4)

 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)

 Q

NTE ; Process NTE segment

 S SITE=$P(LINE,HL("FS"),8)

 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)

 Q

 ;

PID ; Process PID segment

 S ICN=+$P(LINE,HL("FS"),3)                  ; get ICN out.

 I ICN<1 S ERROR="Missing Patient ICN in Change CMOR message HL7 msg# "_$G(HL("MID")) D EXC^RGHLLOG(219,ERROR) Q

 S DFN=$$IEN^MPIFNQ(ICN)                  ; get DFN of this patient

 I DFN="" S ERROR="ICN "_ICN_" not found from Change CMOR message HL7 msg# "_$G(HL("MID")) D EXC^RGHLLOG(219,ERROR) Q

 Q

 ;

CHANGE ; Process the change CMOR to the new CMOR site (YOUR SITE NOW)

 S DIC="^DIC(4,",DIC(0)="QMOZX",X=SITE D ^DIC K DIC          ; Figure out

 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

 S CHANGE=$$CHANGE^MPIF001(+DFN,+Y)              ; name and change

 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)

 Q

 ;

ACK ; Clean up the partition.

 ;

 D STOP^RGHLLOG()

 K X,Y,DFN,ICN,SITE,MPIFREAP,ACK,PARENT,CHANGE

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MPIFQUE5   2615     printed  Apr 09, 2024@21:13:37                                                                                                                                                                                                    Page 2

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

 +2       ;

 +3       ; Integration Agreements Utilized:

 +4       ;

 +5       ;  EXC^RGHLLOG     IA #2796

 +6       ;  START^RGHLLOG   IA #2796

 +7       ;  STOP^RGHLLOG    IA #2796

 +8       ;

 +9       ; This routine will process the message from the CMOR site to change

 +10      ; the CMOR as a result of a change cmor request

 +11      ;

EN        ; Entry point for process the update of CMOR

 +1        NEW U,LINE,IKI,ERROR,RGL,RGLOG

 +2        SET U="^"

 +3        DO START^RGHLLOG()

 +4       ;

 +5        NEW MPII,U,LINE,ERROR,PARENT,COUNT,NDATE,IKI,MPIFFS,MPIFSFS,MPIFREAP,RGLOG

 +6        FOR MPII=1:1

               XECUTE HLNEXT

               if HLQUIT'>0

                   QUIT 

               Begin DoDot:1

 +7                SET LINE=HLNODE

 +8                IF $PIECE(LINE,HL("FS"))["MSH"

                       DO MSH

 +9                IF $PIECE(LINE,HL("FS"))["PV1"

                       DO PV1

 +10               IF $PIECE(LINE,HL("FS"))["PID"

                       DO PID

               End DoDot:1

 +11      ; Any problems before changing the CMOR

           IF $GET(ERROR)]""

               DO ACK

               QUIT 

 +12       IF ($GET(SITE)]"")&($GET(DFN)]"")

               DO CHANGE

 +13       IF $GET(SITE)=""!($GET(DFN)="")

               Begin DoDot:1

 +14               SET ERROR="Missing new CMOR or Patient to be changed"

 +15               DO EXC^RGHLLOG(219,ERROR_" for change CMOR request HL7 msg "_$GET(HL("MID")))

               End DoDot:1

 +16       DO ACK

 +17       QUIT 

 +18      ;

MSH       ; Process MSH segment

 +1        IF $PIECE(LINE,HL("FS"),16)="AL"

               SET ACK="YES"

 +2        IF $PIECE(LINE,HL("FS"),16)="ER"

               SET ACK="ERROR"

 +3        QUIT 

 +4       ;

PV1       ; Process PV1 segment

 +1        SET SITE=$PIECE(LINE,HL("FS"),4)

 +2        IF SITE=""

               SET ERROR="Missing CMOR site number in Change CMOR message for ICN "_ICN_" HL7 msg# "_$GET(HL("MID"))

               DO EXC^RGHLLOG(221,ERROR)

 +3        QUIT 

NTE       ; Process NTE segment

 +1        SET SITE=$PIECE(LINE,HL("FS"),8)

 +2        IF SITE=""

               SET ERROR="Missing CMOR site number in Change CMOR message for ICN "_ICN_" HL7 msg# "_$GET(HL("MID"))

               DO EXC^RGHLLOG(221,ERROR)

 +3        QUIT 

 +4       ;

PID       ; Process PID segment

 +1       ; get ICN out.

           SET ICN=+$PIECE(LINE,HL("FS"),3)

 +2        IF ICN<1

               SET ERROR="Missing Patient ICN in Change CMOR message HL7 msg# "_$GET(HL("MID"))

               DO EXC^RGHLLOG(219,ERROR)

               QUIT 

 +3       ; get DFN of this patient

           SET DFN=$$IEN^MPIFNQ(ICN)

 +4        IF DFN=""

               SET ERROR="ICN "_ICN_" not found from Change CMOR message HL7 msg# "_$GET(HL("MID"))

               DO EXC^RGHLLOG(219,ERROR)

               QUIT 

 +5        QUIT 

 +6       ;

CHANGE    ; Process the change CMOR to the new CMOR site (YOUR SITE NOW)

 +1       ; Figure out

           SET DIC="^DIC(4,"

           SET DIC(0)="QMOZX"

           SET X=SITE

           DO ^DIC

           KILL DIC

 +2       ; the CMOR site

           IF Y=-1

               SET ERROR="CMOR Site name is not on file for Station Number "_SITE_" processing Change CMOR msg for ICN "_ICN

               DO EXC^RGHLLOG(211,ERROR,DFN)

               QUIT 

 +3       ; name and change

           SET CHANGE=$$CHANGE^MPIF001(+DFN,+Y)

 +4        IF +CHANGE=-1

               SET ERROR="Unable to update CMOR for site "_SITE_". For DFN "_DFN_" Processing CHANGE CMOR message "_HLMTIEN

               DO EXC^RGHLLOG(211,ERROR,DFN)

 +5        QUIT 

 +6       ;

ACK       ; Clean up the partition.

 +1       ;

 +2        DO STOP^RGHLLOG()

 +3        KILL X,Y,DFN,ICN,SITE,MPIFREAP,ACK,PARENT,CHANGE

 +4        QUIT