| MASTER PATIENT INDEX |
Birmingham |
Subscriber: MPI Austin
Method: The MPI Austin software would like to look at
^HLCS(870,"C",site ien) for a screen to only allow the
selection of a site that has a HL7 logical link established.
Details: The code used by MPI code to access the "C" cross-reference
is shown below.
ASKST() ;
N DIC,X,Y,DTOUT,DUOUT
SITE S DIC="^DIC(4,",DIC(0)="QEAM",DIC("A")="Select the
site to send to: "
S DIC("S")="I $D(^HLCS(870,""C"",+Y))"
D ^DIC
I $D(DTOUT)!($D(DUOUT)) Q 0
I Y<1 G SITE
Q $$STA^XUAF4(+Y)
|
KERNEL |
Oakland |
Subscriber: Kernel Master File Server (MFS)
Method: MFS uses the ^HLCS(870,"C",SITE-IEN,LINK-IEN) cross-reference
to determine which sites are to receive update messages.
Details: The code used when accessing the "C" cross-reference is shown
below.
S (I,J)=0
F S I=$O(^HLCS(870,"C",I)) Q:'I D
.S J=$O(^HLCS(870,"C",I,0)) Q:'J
.S LLNK=$P($G(^HLCS(870,J,0)),U)
.S HLL("LINKS",I)="XUMF MFK^"_LLNK
(See integration agreement# 3734 for access of piece one(1)
of the zero node.)
|
OUTPATIENT PHARMACY |
|
SUBSCRIBING PACKAGE: Outpatient Pharmacy
Method: OneVA Pharmacy, as part of Outpatient Pharmacy, would like to use
^HLCS(870,"C",site ien) to find the MAILMAN DOMAIN (#.03) and use it to create
the Fully Qualified Domain Name.
Details: The code used by PSO to access the "C" cross-reference is shown
below.
Routine PSORWRAP
FQDN(SITE,IEN4) ; get Fully Qualified Domain Name
;
I $G(IEN4)="",$G(SITE)="" Q "" ; Need site # or institution file IEN
;
I $G(IEN4)="" D Q:$G(IEN4)="" ""
.S IEN4=$$FIND1^DIC(4,,"X",SITE,"D","I
$P(^(0),U,11)=""N"",'$P($G(^(99)),U,4)")
;
N PSOHLNK,RMSDOM
S PSOHLNK=$O(^HLCS(870,"C",IEN4,0)) ; get first entry (should only be
one but you never know) IA#3550
Q:'$G(PSOHLNK) ""
;
S RMSDOM=$$GET1^DIQ(870,PSOHLNK,.03,"E") ; get domain name IA#3335
Q:$G(RMSDOM)="" ""
;
S:$$PROD^XUPROD() RMSDOM="HL7."_RMSDOM ; prefix domain name
Q RMSDOM
|
CONSULT/REQUEST TRACKING |
|
Added 12/31/25 - Effective with patch GMRC*3.0*213
Method: GMRC would like to check for the existence of a logical link to fix
[INC36516023 - GMRC PACKAGE Interfacility Consults not screening for primary
VistA sites]
Details: The code used when accessing the C cross-reference is shown below.
ISPRIMARY(INSTIEN) ; TRUE if site is an active primary site N X,Y,STANUM S
STANUM=$$STA^XUAF4(INSTIEN) Q:STANUM="" 0 Q:'($L(STANUM)=3) 0 ; must be 3
digits Q:STANUM=200 0 ; not station 200
Q:'$D(^HLCS(870,"C",INSTIEN)) 0 ; must have a logical link
Q:($$GET1^DIQ(4,INSTIEN_",",13,"","","")="OTHER") 0 ; cannot be type other
Q:($$GET1^DIQ(4,INSTIEN_",",101,"","","")) 0 ; quit if INACTIVE FACILITY FLAG
set to 1 Q 1
|
