HLCSDL ;ALB/MTC/SF/JC - INITIALIZE VARIABLES AND OPEN DEVICE X3.28 ;08/23/99 13:35 [ 04/02/2003 8:37 AM ]
;;1.6;HEALTH LEVEL SEVEN;**1004**;APR 1, 2003
;;1.6;HEALTH LEVEL SEVEN;**2,44,49,57**;Oct 13, 1995
;THIS ROUTINE CONTAINS AN IHS MODIFICATION BY IHS/TUC/DLR 03/19/97
;
EN ;-- entry point for X3.28 protocol
;
;-- error trap (keepalive for disconnects)
;----- BEGIN IHS MODIFICATION
;IHS/TUC/DLR 03/19/97 LINE COMMENTED OUT, no DSM or $ETRAP at IHS
;I ^%ZOSF("OS")["DSM" N $ETRAP S $ET=""
;----- END IHS MODIFICATION
S X="ERROR^HLCSDL",@^%ZOSF("TRAP")
EN1 ;-- check device init
;-- if device error and still running, try again
I $$INIT,$$RUN^HLCSDL2 D EXIT2 H 5 G EN1
;-- setup X3.28 parameters
I $$XSETUP G ENQ
;-- file start stats
D FILE
;-- start LLP
D START^HLCSDL1
;-- file end stats
D END
;-- exit
ENQ D EXIT
;
Q
;
INIT() ;-- check for device, open
; This fucntion will return a 1 if it fails else 0
;
N RESULT
S RESULT=0
I '$D(HLDP)&($G(%)'="") S HLDP=% ;LAUNCHED FROM VMS
I '$D(HLDP) S RESULT=1 G INITQ
D DT^DICRW
I HLDP'>0 S HLDP=$O(^HLCS(870,"B",HLDP,""))
I HLDP'>0 S RESULT=1 G INITQ
;HLDP IEN of LOGICAL LINK file #870
S HLPARM=$G(^HLCS(870,HLDP,300))
;pointer to DEVICE file
S HLDEVPTR=$P(HLPARM,U)
;-- check for valid pointer
I HLDEVPTR'>0 S RESULT=1 G INITQ
;-- check for device
S HLDEVICE=$P($G(^%ZIS(1,HLDEVPTR,0)),"^",1)
I HLDEVICE="" S RESULT=1 G INITQ
;-- open device
D MONITOR^HLCSDR2("OPEN",5,HLDP)
K ZTIO S IOP=HLDEVICE D ^%ZIS I POP D MONITOR^HLCSDR2("OPENFAIL",5,HLDP) H 3 S RESULT=1 G INITQ
;-- set up environment
S X=255 U IO X ^%ZOSF("EOFF"),^%ZOSF("RM"),^%ZOSF("TRMON")
;
INITQ Q RESULT
;
XSETUP() ;-- This function will set up all parameters required by the X3.28
; protocol.
; This function will return a 1 if it fails, else 0
;
N RESULT
S RESULT=0
;-- initialize and set defaults
;-- max message size
S HLMMS=$P(HLPARM,U,2) S:'HLMMS HLMMS=99999
;-- block size
S HLDBLOCK=$P(HLPARM,U,3) S:'HLDBLOCK HLDBLOCK=245
;-- timer a
S HLTIMA=$P(HLPARM,U,4) S:'HLTIMA HLTIMA=6
;-- timer b
S HLTIMB=$P(HLPARM,U,5) S:'HLTIMB HLTIMB=3
;-- timer d
S HLTIMD=$P(HLPARM,U,6) S:'HLTIMD HLTIMD=30
;-- timer e
S HLTIME=$P(HLPARM,U,7) S:'HLTIME HLTIME=180
N I,J,K F I=1:1 S J=$T(CTRLS+I) Q:J["END" D
.S K=$P(J,";",3),@K=$P(J,";",4)
.S HLCTRL(@K)=$P(J,";",5)
I $G(HLTRACE) K ^TMP("HLLOG",$J) S HLLOG=0
;
XSETQ Q RESULT
;
FILE ;-- file startup stats
;
D NOW^%DTC
L +^HLCS(870,HLDP,0):DTIME I '$T G FILE
;9=Time Started, 10=Time Stopped, 11=Task Number
;14=Shutdown LLP, 3=Device Type, 18=Gross Errors
I '$D(ZTSK) S ZTSK=""
S DIE="^HLCS(870,",DA=HLDP,DR="9////^S X=%;10////@;11////^S X=ZTSK;14////0;3////SX;18////@" D ^DIE K DIE,DA,DR
L -^HLCS(870,HLDP,0)
Q
;
END ;-- file stats
D NOW^%DTC
D MONITOR^HLCSDR2("SHUTDOWN",5,HLDP)
L +^HLCS(870,HLDP,0):DTIME I '$T G END
;10=Time Stopped,9=Time Started,11=Task Number
S DIE="^HLCS(870,",DA=HLDP,DR="10////^S X=%;9////@;11////@" D ^DIE K DIE,DA,DR
L -^HLCS(870,HLDP,0)
Q
;
EXIT2 ;
D ^%ZISC X ^%ZOSF("EON")
Q
EXIT ;-- exit cleanup
D ^%ZISC X ^%ZOSF("EON")
K HLMMS,HLBLOCK,HLTIMA,HLTIMB,HLTIMD,HLTIME,HLTERM,HLSOH,HLSTX,HLETB,HLETX,HLEOT,HLENQ,HLRINT,HLDLE,HLNAK,HLACK0,HLACK1,HLACK2,HLACK3,HLACK4,HLACK5,HLACK6,HLACK7
K HLDNODE,HLDEVPTR,HLDEVICE,HLRETPRM,HLDAPP,X,HLDEND,HLDSTRT,HLDVER,HLDREAD,HLDWRITE,HLDP,HLTRACE,ZTSK,HLDBSIZE
Q
;
ERROR ;
;-- on disconnect errors, trap and try to reconnect, all others,
; trap and shut down gracefully
I $$EC^%ZOSV["DSCON" D MONITOR^HLCSDR2("Disconnect",5,HLDP) H 3 G EN1
D ^%ZTER
D END G EXIT
CTRLS ;X3.28 control settings
;;HLTERM;13;<CR>
;;HLSOH;1;<SOH>
;;HLSTX;2;<STX>
;;HLETB;23;<ETB>
;;HLETX;3;<ETX>
;;HLEOT;4;<EOT>
;;HLENQ;5;<ENQ>
;;HLRINT;60;<RINT>
;;HLDLE;16;<DLE>
;;HLNAK;21;<NAK>
;;HLACK0;48;<ACK0>
;;HLACK1;49;<ACK1>
;;HLACK2;50;<ACK2>
;;HLACK3;51;<ACK3>
;;HLACK4;52;<ACK4>
;;HLACK5;53;<ACK5>
;;HLACK6;54;<ACK6>
;;HLACK7;55;<ACK7>
;;END
HLCSDL ;ALB/MTC/SF/JC - INITIALIZE VARIABLES AND OPEN DEVICE X3.28 ;08/23/99 13:35 [ 04/02/2003 8:37 AM ]
+1 ;;1.6;HEALTH LEVEL SEVEN;**1004**;APR 1, 2003
+2 ;;1.6;HEALTH LEVEL SEVEN;**2,44,49,57**;Oct 13, 1995
+3 ;THIS ROUTINE CONTAINS AN IHS MODIFICATION BY IHS/TUC/DLR 03/19/97
+4 ;
EN ;-- entry point for X3.28 protocol
+1 ;
+2 ;-- error trap (keepalive for disconnects)
+3 ;----- BEGIN IHS MODIFICATION
+4 ;IHS/TUC/DLR 03/19/97 LINE COMMENTED OUT, no DSM or $ETRAP at IHS
+5 ;I ^%ZOSF("OS")["DSM" N $ETRAP S $ET=""
+6 ;----- END IHS MODIFICATION
+7 SET X="ERROR^HLCSDL"
SET @^%ZOSF("TRAP")
EN1 ;-- check device init
+1 ;-- if device error and still running, try again
+2 IF $$INIT
IF $$RUN^HLCSDL2
DO EXIT2
HANG 5
GOTO EN1
+3 ;-- setup X3.28 parameters
+4 IF $$XSETUP
GOTO ENQ
+5 ;-- file start stats
+6 DO FILE
+7 ;-- start LLP
+8 DO START^HLCSDL1
+9 ;-- file end stats
+10 DO END
+11 ;-- exit
ENQ DO EXIT
+1 ;
+2 QUIT
+3 ;
INIT() ;-- check for device, open
+1 ; This fucntion will return a 1 if it fails else 0
+2 ;
+3 NEW RESULT
+4 SET RESULT=0
+5 ;LAUNCHED FROM VMS
IF '$DATA(HLDP)&($GET(%)'="")
SET HLDP=%
+6 IF '$DATA(HLDP)
SET RESULT=1
GOTO INITQ
+7 DO DT^DICRW
+8 IF HLDP'>0
SET HLDP=$ORDER(^HLCS(870,"B",HLDP,""))
+9 IF HLDP'>0
SET RESULT=1
GOTO INITQ
+10 ;HLDP IEN of LOGICAL LINK file #870
+11 SET HLPARM=$GET(^HLCS(870,HLDP,300))
+12 ;pointer to DEVICE file
+13 SET HLDEVPTR=$PIECE(HLPARM,U)
+14 ;-- check for valid pointer
+15 IF HLDEVPTR'>0
SET RESULT=1
GOTO INITQ
+16 ;-- check for device
+17 SET HLDEVICE=$PIECE($GET(^%ZIS(1,HLDEVPTR,0)),"^",1)
+18 IF HLDEVICE=""
SET RESULT=1
GOTO INITQ
+19 ;-- open device
+20 DO MONITOR^HLCSDR2("OPEN",5,HLDP)
+21 KILL ZTIO
SET IOP=HLDEVICE
DO ^%ZIS
IF POP
DO MONITOR^HLCSDR2("OPENFAIL",5,HLDP)
HANG 3
SET RESULT=1
GOTO INITQ
+22 ;-- set up environment
+23 SET X=255
USE IO
XECUTE ^%ZOSF("EOFF")
XECUTE ^%ZOSF("RM")
XECUTE ^%ZOSF("TRMON")
+24 ;
INITQ QUIT RESULT
+1 ;
XSETUP() ;-- This function will set up all parameters required by the X3.28
+1 ; protocol.
+2 ; This function will return a 1 if it fails, else 0
+3 ;
+4 NEW RESULT
+5 SET RESULT=0
+6 ;-- initialize and set defaults
+7 ;-- max message size
+8 SET HLMMS=$PIECE(HLPARM,U,2)
IF 'HLMMS
SET HLMMS=99999
+9 ;-- block size
+10 SET HLDBLOCK=$PIECE(HLPARM,U,3)
IF 'HLDBLOCK
SET HLDBLOCK=245
+11 ;-- timer a
+12 SET HLTIMA=$PIECE(HLPARM,U,4)
IF 'HLTIMA
SET HLTIMA=6
+13 ;-- timer b
+14 SET HLTIMB=$PIECE(HLPARM,U,5)
IF 'HLTIMB
SET HLTIMB=3
+15 ;-- timer d
+16 SET HLTIMD=$PIECE(HLPARM,U,6)
IF 'HLTIMD
SET HLTIMD=30
+17 ;-- timer e
+18 SET HLTIME=$PIECE(HLPARM,U,7)
IF 'HLTIME
SET HLTIME=180
+19 NEW I,J,K
FOR I=1:1
SET J=$TEXT(CTRLS+I)
IF J["END"
QUIT
Begin DoDot:1
+20 SET K=$PIECE(J,";",3)
SET @K=$PIECE(J,";",4)
+21 SET HLCTRL(@K)=$PIECE(J,";",5)
End DoDot:1
+22 IF $GET(HLTRACE)
KILL ^TMP("HLLOG",$JOB)
SET HLLOG=0
+23 ;
XSETQ QUIT RESULT
+1 ;
FILE ;-- file startup stats
+1 ;
+2 DO NOW^%DTC
+3 LOCK +^HLCS(870,HLDP,0):DTIME
IF '$TEST
GOTO FILE
+4 ;9=Time Started, 10=Time Stopped, 11=Task Number
+5 ;14=Shutdown LLP, 3=Device Type, 18=Gross Errors
+6 IF '$DATA(ZTSK)
SET ZTSK=""
+7 SET DIE="^HLCS(870,"
SET DA=HLDP
SET DR="9////^S X=%;10////@;11////^S X=ZTSK;14////0;3////SX;18////@"
DO ^DIE
KILL DIE,DA,DR
+8 LOCK -^HLCS(870,HLDP,0)
+9 QUIT
+10 ;
END ;-- file stats
+1 DO NOW^%DTC
+2 DO MONITOR^HLCSDR2("SHUTDOWN",5,HLDP)
+3 LOCK +^HLCS(870,HLDP,0):DTIME
IF '$TEST
GOTO END
+4 ;10=Time Stopped,9=Time Started,11=Task Number
+5 SET DIE="^HLCS(870,"
SET DA=HLDP
SET DR="10////^S X=%;9////@;11////@"
DO ^DIE
KILL DIE,DA,DR
+6 LOCK -^HLCS(870,HLDP,0)
+7 QUIT
+8 ;
EXIT2 ;
+1 DO ^%ZISC
XECUTE ^%ZOSF("EON")
+2 QUIT
EXIT ;-- exit cleanup
+1 DO ^%ZISC
XECUTE ^%ZOSF("EON")
+2 KILL HLMMS,HLBLOCK,HLTIMA,HLTIMB,HLTIMD,HLTIME,HLTERM,HLSOH,HLSTX,HLETB,HLETX,HLEOT,HLENQ,HLRINT,HLDLE,HLNAK,HLACK0,HLACK1,HLACK2,HLACK3,HLACK4,HLACK5,HLACK6,HLACK7
+3 KILL HLDNODE,HLDEVPTR,HLDEVICE,HLRETPRM,HLDAPP,X,HLDEND,HLDSTRT,HLDVER,HLDREAD,HLDWRITE,HLDP,HLTRACE,ZTSK,HLDBSIZE
+4 QUIT
+5 ;
ERROR ;
+1 ;-- on disconnect errors, trap and try to reconnect, all others,
+2 ; trap and shut down gracefully
+3 IF $$EC^%ZOSV["DSCON"
DO MONITOR^HLCSDR2("Disconnect",5,HLDP)
HANG 3
GOTO EN1
+4 DO ^%ZTER
+5 DO END
GOTO EXIT
CTRLS ;X3.28 control settings
+1 ;;HLTERM;13;<CR>
+2 ;;HLSOH;1;<SOH>
+3 ;;HLSTX;2;<STX>
+4 ;;HLETB;23;<ETB>
+5 ;;HLETX;3;<ETX>
+6 ;;HLEOT;4;<EOT>
+7 ;;HLENQ;5;<ENQ>
+8 ;;HLRINT;60;<RINT>
+9 ;;HLDLE;16;<DLE>
+10 ;;HLNAK;21;<NAK>
+11 ;;HLACK0;48;<ACK0>
+12 ;;HLACK1;49;<ACK1>
+13 ;;HLACK2;50;<ACK2>
+14 ;;HLACK3;51;<ACK3>
+15 ;;HLACK4;52;<ACK4>
+16 ;;HLACK5;53;<ACK5>
+17 ;;HLACK6;54;<ACK6>
+18 ;;HLACK7;55;<ACK7>
+19 ;;END
