LOOKUP IP ADDRESS FOR PACKAGE IN 870    ICR (5066)

The Enrollment Application System package (EAS) would
like to lookup an entry in file #870 using a direct read on the "B cross
reference and read data from the entry using Fileman.  Here is the code being
used (in routine EAS1071A):

IPLIVE() ;Get IP address for production system
;
;Search for DENTVHLAAC logical link
S IENS=$$FIND1^DIC(870,"","X","DENTVHLAAC","","","ERR")
;If not found return null IP address
I 'IENS Q ""
;Otherwise return TCP/IP ADDRESS
Q $$GET1^DIQ(870,IENS_",",400.01)

LL16(LLNAME,TCPADDR,TCPPORT,SHUTDOWN) ;Update Logical Link Port and Address
;
N FILE,DATA,RETURN,DEFINED,ERROR,DA,DGENDA
S FILE=870
S IEN870=$O(^HLCS(870,"B",LLNAME,0))
I 'IEN870 D  Q RETURN
. S ERROR="IEN OF RECORD TO BE UPDATED NOT FOUND"
. S RETURN=-1_"^"_ERROR
;
S DATA(400.01)=TCPADDR                    ;TCP/IP ADDRESS
S DATA(400.02)=TCPPORT                    ;TCP/IP PORT
S DATA(4.5)=1                             ;AUTOSTART
S DATA(14)=SHUTDOWN                       ;SHUTDOWN LLP
;
S RETURN=$$UPD^DGENDBS(FILE,IEN870,.DATA,.ERROR)
S:ERROR'=""!(+RETURN=0) RETURN=-1_"^"_ERROR
;
Q RETURN

This is in support of the ESR v3.0 rollout in patch EAS*1*71.

• IP ADDRESS
• 870
• EAS