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.
VIEWER
  • SCHLEHUBER,CAMERON
  • GARCIA,JOSE
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
DBA Comments
9/1/16-MM:  Added Outpatient Pharmacy as a subscrber to ICR
#3335 and 3550 for the OneVA Pharmacy and patch PSO*7.0*454.
MAIL MESSAGE 34991530
DATE/TIME EDITED
DATE/TIME EDITED ACTION AT THE REQUEST OF WITH CONCURRENCE OF
2016/09/01 09:18 SUBSCRIBER ADDED JUTZI,WILLIAM WHELAN,ROB
2016/09/01 09:19 SUBSCRIBER ADDED JUTZI,WILLIAM GRANT,WALT
Generated from JAN 24, 2019@ IA Listing Descriptions