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

HLCS(870,

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