Print Page as PDF
LOOKUP IP ADDRESS FOR PACKAGE IN 870 ICR (5066)

LOOKUP IP ADDRESS FOR PACKAGE IN 870    ICR (5066)

Name Value
NUMBER 5066
IA # 5066
FILE NUMBER 870
GLOBAL ROOT HLCS(870
DATE CREATED 2008/01/08
CUSTODIAL PACKAGE HEALTH LEVEL SEVEN
USAGE Private
TYPE File
NAME LOOKUP IP ADDRESS FOR PACKAGE IN 870
GENERAL DESCRIPTION
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.



STATUS Pending
KEYWORDS
  • IP ADDRESS
  • 870
  • EAS
DURATION Till Otherwise Agreed
ID HLCS(870
SUBSCRIBING PACKAGE ENROLLMENT APPLICATION SYSTEM
CREATOR MORGAN,BRIAN
EDITOR MORGAN,BRIAN
Generated from JAN 24, 2019@ IA Listing Descriptions