INTSLO ;KAC,DP,FRW ; 7 Apr 96 12:26; Access Logon Server
;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
;COPYRIGHT 1991-2000 SAIC
;
Q
;
EN ;Mian entry point
; Input:
; INBPN - Background process (ien)
; Output:
; INUIF - Acknowledge message returned from LoS (ien)
;
N INCHNL,INDEST,INDSTR,INERRTST,INMSGTST,INIP,INRUNTST,INUSEQ,X,Y,Z
S X="ERR^INTSLO",@^%ZOSF("TRAP")
;
;Get Test Transmitter parameters from BACKGROUND PROCESS CONTROL file
D INIT^INHUVUT(INBPN,.INIP)
;
; Set array of valid inbound INTERFACE DESTINATION names
F X=1:1 S Y=$T(DEST+X) Q:Y'[";;" S Z=$TR($P(Y,";;")," ",""),INDEST(Z)=$P(Y,";;",2)
;
S INUSEQ=0 ;No sequence number protocol
;
N INACKUIF,INERR,INMEM,INMSGTST K INDATA
S INMSGTST="INDATA" ; reset local array in which to receive data
;
; Select port of the Logon Server from INBPNSR
S X=$O(^INTHPC(INBPNSR,5,0)),INPORTSR=$G(^INTHPC(INBPNSR,5,+X,0))
I 'INPORTSR S MS="No Server port designated for Logon Server" D DEBUG^INTST Q
;
;Open a TCP/IP Client connection to the Logon Server
S INERRTST=0,LOOPCNT=0 F LOOPCNT=1:1:10 D Q:INCHNL H 5
. D OPEN^%INET(.INCHNL,.INMEM,INIPADDR,INPORTSR,1)
;
I 'INCHNL D Q
. S MS="Unable to connect to Logon Server at "_INIPADDR_" / "_INPORTSR
. D DEBUG^INTST
;
;Logon message
S INUIF=INLOGZ01 Q:'INUIF
;
;Send logon message to LoS
S INERRTST=$$SEND^INHUVUT(INLOGZ01,INCHNL,.INIP)
I 'INERRTST S MS="Unable to send logon message" D DEBUG^INTST Q
;
RECIV ;receive ackknowledgement back
K INMSGTST
S INERRTST=$$RECEIVE^INHUVUT(.INMSGTST,INCHNL,.INIP,.INERR,.INMEM)
I INERRTST D Q
. S MS="Acknowledgement not received from Logon server" D DEBUG^INTST
;
ACKIN ;Store ack in INTHU
S INERRTST=$$IN^INHUSEN(INMSGTST,.INDEST,INDSTR,INUSEQ,.INACKUIF,.INERR,"",.INUIF,1)
I INERRTST D Q
. S MS="Error storing acknowledgement message from Logon Server"
. D DEBUG^INTST
;
D CLOSE
;
Q
;
CLOSE ;Close socket
D:$G(INCHNL) CLOSE^%INET(INCHNL)
Q
;
ERR ; Error handler
W !,$$ERRMSG^INHU1
D CLOSE
;
;
DEST ; The following tags identify valid message destinations.
ACKACK ;;TEST INTERACTIVE
;
INTSLO ;KAC,DP,FRW ; 7 Apr 96 12:26; Access Logon Server
+1 ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
+2 ;COPYRIGHT 1991-2000 SAIC
+3 ;
+4 QUIT
+5 ;
EN ;Mian entry point
+1 ; Input:
+2 ; INBPN - Background process (ien)
+3 ; Output:
+4 ; INUIF - Acknowledge message returned from LoS (ien)
+5 ;
+6 NEW INCHNL,INDEST,INDSTR,INERRTST,INMSGTST,INIP,INRUNTST,INUSEQ,X,Y,Z
+7 SET X="ERR^INTSLO"
SET @^%ZOSF("TRAP")
+8 ;
+9 ;Get Test Transmitter parameters from BACKGROUND PROCESS CONTROL file
+10 DO INIT^INHUVUT(INBPN,.INIP)
+11 ;
+12 ; Set array of valid inbound INTERFACE DESTINATION names
+13 FOR X=1:1
SET Y=$TEXT(DEST+X)
IF Y'[";;"
QUIT
SET Z=$TRANSLATE($PIECE(Y,";;")," ","")
SET INDEST(Z)=$PIECE(Y,";;",2)
+14 ;
+15 ;No sequence number protocol
SET INUSEQ=0
+16 ;
+17 NEW INACKUIF,INERR,INMEM,INMSGTST
KILL INDATA
+18 ; reset local array in which to receive data
SET INMSGTST="INDATA"
+19 ;
+20 ; Select port of the Logon Server from INBPNSR
+21 SET X=$ORDER(^INTHPC(INBPNSR,5,0))
SET INPORTSR=$GET(^INTHPC(INBPNSR,5,+X,0))
+22 IF 'INPORTSR
SET MS="No Server port designated for Logon Server"
DO DEBUG^INTST
QUIT
+23 ;
+24 ;Open a TCP/IP Client connection to the Logon Server
+25 SET INERRTST=0
SET LOOPCNT=0
FOR LOOPCNT=1:1:10
Begin DoDot:1
+26 DO OPEN^%INET(.INCHNL,.INMEM,INIPADDR,INPORTSR,1)
End DoDot:1
IF INCHNL
QUIT
HANG 5
+27 ;
+28 IF 'INCHNL
Begin DoDot:1
+29 SET MS="Unable to connect to Logon Server at "_INIPADDR_" / "_INPORTSR
+30 DO DEBUG^INTST
End DoDot:1
QUIT
+31 ;
+32 ;Logon message
+33 SET INUIF=INLOGZ01
IF 'INUIF
QUIT
+34 ;
+35 ;Send logon message to LoS
+36 SET INERRTST=$$SEND^INHUVUT(INLOGZ01,INCHNL,.INIP)
+37 IF 'INERRTST
SET MS="Unable to send logon message"
DO DEBUG^INTST
QUIT
+38 ;
RECIV ;receive ackknowledgement back
+1 KILL INMSGTST
+2 SET INERRTST=$$RECEIVE^INHUVUT(.INMSGTST,INCHNL,.INIP,.INERR,.INMEM)
+3 IF INERRTST
Begin DoDot:1
+4 SET MS="Acknowledgement not received from Logon server"
DO DEBUG^INTST
End DoDot:1
QUIT
+5 ;
ACKIN ;Store ack in INTHU
+1 SET INERRTST=$$IN^INHUSEN(INMSGTST,.INDEST,INDSTR,INUSEQ,.INACKUIF,.INERR,"",.INUIF,1)
+2 IF INERRTST
Begin DoDot:1
+3 SET MS="Error storing acknowledgement message from Logon Server"
+4 DO DEBUG^INTST
End DoDot:1
QUIT
+5 ;
+6 DO CLOSE
+7 ;
+8 QUIT
+9 ;
CLOSE ;Close socket
+1 IF $GET(INCHNL)
DO CLOSE^%INET(INCHNL)
+2 QUIT
+3 ;
ERR ; Error handler
+1 WRITE !,$$ERRMSG^INHU1
+2 DO CLOSE
+3 ;
+4 ;
DEST ; The following tags identify valid message destinations.
ACKACK ;;TEST INTERACTIVE
+1 ;
