Print Page as PDF
HLCS(870,'C' ICR (3550)

HLCS(870,'C'    ICR (3550)

Name Value
NUMBER 3550
IA # 3550
FILE NUMBER 870
GLOBAL ROOT HLCS(870,
DATE CREATED 2002/08/22
CUSTODIAL PACKAGE HEALTH LEVEL SEVEN
CUSTODIAL ISC San Francisco
USAGE Private
TYPE File
DBIC APPROVAL STATUS APPROVED
NAME HLCS(870,'C'
GENERAL DESCRIPTION 
This general purpose integration agreement exists for
packages needing to access the "C" cross-reference in the HL Logical Link file
(#870).

All packages that desire to be subscribers to this integration agreement must
submit the details for their use of the "C" cross-reference to the VistA HL7
package developers for approval.  The cross-reference access details will be
included in the individual subscriber section of this agreement.
GLOBAL REFERENCE
GLOBAL REFERENCE GLOBAL DESCRIPTION
HLCS(870,'C' 
The ^HLCS(870,"C",site,ien) verifies that site has a
logical link of ien in the logical link file.
STATUS Active
DURATION Till Otherwise Agreed
ID HLCS(870,
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC SUBSCRIBING DETAILS
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