30 lines
966 B
Mathematica
30 lines
966 B
Mathematica
MPIFDUPS ;SFCIO/CMC-MPIF RPC APIS ;26 Sept 01
|
|
;;1.0; MASTER PATIENT INDEX VISTA ;**20**;30 Apr 99
|
|
;
|
|
;Integration Agreements Utilized:
|
|
; ^DPT( - #2070
|
|
;
|
|
TOSITE(RETURN,ARRAY) ;
|
|
; RPC for processing ICNs from MPI's TOSITE global
|
|
I $G(ARRAY)="" S RETURN="-1^NO DATA TO CHECK" Q
|
|
N ENT,ICN,SSN,SITE,NODE,MPIN,DFN
|
|
S RETURN=""
|
|
F ENT=1:1 S NODE=$P(ARRAY,"^",ENT) Q:NODE=""!(+RETURN=-1) D
|
|
.S SITE=$P(NODE,";")
|
|
.I $P($$SITE^VASITE,"^",3)'=SITE S RETURN="-1^WRONG SITE^"_ARRAY Q
|
|
.S ICN=$P(NODE,";",2),SSN=$P(NODE,";",3)
|
|
.S DFN=+$$GETDFN^MPIF001(ICN)
|
|
.I DFN<0 S RETURN=RETURN_NODE_";1^" Q
|
|
. ; ^ 1=ICN doesn't exist
|
|
.I DFN D
|
|
..; checking if ICN is on MPI node
|
|
..S MPIN=$$MPINODE^MPIFAPI(DFN)
|
|
..I $P(MPIN,"^")'=ICN S RETURN=RETURN_NODE_";4^" Q
|
|
..; checking if SSN is the same as on MPI - 4=icn should be inactivated
|
|
..I $P(^DPT(DFN,0),"^",9)'=SSN S RETURN=RETURN_NODE_";3^" Q
|
|
..; 3 = SSN conflict
|
|
..S RETURN=RETURN_NODE_";2^" Q
|
|
..; 2 = ICN exists
|
|
Q
|
|
;
|