| [613] | 1 | PSXMST ;BIR/BAB,WPB-Master Module to Transmit Messages ;[ 01/28/99 2:46 PM ]
|
|---|
| 2 | ;;2.0;CMOP;**17**;11 Apr 97
|
|---|
| 3 | Q
|
|---|
| 4 | BID ;Set line bid retry counter
|
|---|
| 5 | S PSXTRY=0
|
|---|
| 6 | BID1 G:^PSX(553,1,"S")="S" STOP^PSXJOB
|
|---|
| 7 | S PSXTME=$P($H,",",2)
|
|---|
| 8 | U IO
|
|---|
| 9 | W *ENQ,*TERM
|
|---|
| 10 | BID2 R *X:PSXDLTA E D MST6 G BAD
|
|---|
| 11 | I X=EOT R *X:PSXDLTA G:X=TERM BID2
|
|---|
| 12 | I X=ENQ R *X:PSXDLTA D:'$T!(X'=TERM) MST1 G:'$T!(X'=TERM) BAD S PSXTME=$P($H,",",2) S PSXTRY=PSXTRY+1 G:PSXTRY>PSXTRYM BAD D MST7,LOG^PSXUTL G BID2 ;ENQ received
|
|---|
| 13 | I X=NAK R *X:PSXDLTA D:'$T!(X'=TERM) MST2 G:'$T!(X'=TERM) BAD D MST5,LOG^PSXUTL G BAD
|
|---|
| 14 | I X=ACK R *X:PSXDLTA D:'$T!(X'=48) MST3 G:'$T!(X'=48) BAD R *X:PSXDLTA D:'$T!(X'=TERM) MST8 G:($G(X)=TERM) OKAY
|
|---|
| 15 | D MST4 ;if X wasn't ENQ or ACK or NAK then garbage
|
|---|
| 16 | BAD S PSXTRY=PSXTRY+1 D FLUSH1^PSXUTL,LOG^PSXUTL G:PSXTRY'>PSXTRYM BID1
|
|---|
| 17 | ;STOP interface if bid fails more that M times
|
|---|
| 18 | ;S ^PSX(553,1,"S")="S" G STOP^PSXJOB
|
|---|
| 19 | D MST9,LOG^PSXUTL,SETPAR^PSXSTRT
|
|---|
| 20 | S PSXQUIT=1
|
|---|
| 21 | ;Hibernate awhile till CMOP comes on line,then try again
|
|---|
| 22 | H 45
|
|---|
| 23 | G ^PSXJOB
|
|---|
| 24 | OKAY ;Bid for Master was succesful
|
|---|
| 25 | S PSXTME=$P($H,",",2)
|
|---|
| 26 | ;Quit if Status is Stopped
|
|---|
| 27 | G:^PSX(553,1,"S")="S" STOP^PSXJOB
|
|---|
| 28 | ;Check for transmission 'Queued'
|
|---|
| 29 | Q:$G(PSXQRY)=1
|
|---|
| 30 | I ('$D(^PSX(552.1,"AQ"))&('$D(^PSX(552.1,"APQ")))&($P($G(^PSX(553,1,0)),"^")["LEAVENWORTH")) W *EOT,*TERM G ^PSXJOB
|
|---|
| 31 | I ('$D(^PSX(552.1,"AQ"))&('$D(^PSX(552.1,"APQ")))) W *EOT,*TERM G ^PSXQRY
|
|---|
| 32 | I $G(PSXONE) S PSXB=PSXONE,PSXDA=$O(^PSX(552.1,"B",PSXB,"")) G SEND
|
|---|
| 33 | S QUE=$S($D(^PSX(552.1,"APQ")):"APQ",1:"AQ")
|
|---|
| 34 | S PSXDT=$O(^PSX(552.1,QUE,"")) G:'PSXDT EOT S PSXB=$O(^PSX(552.1,QUE,PSXDT,"")) G:'PSXB EOT S PSXDA=$O(^PSX(552.1,QUE,PSXDT,PSXB,"")) G:'PSXDA EOT
|
|---|
| 35 | ;Begin sending messages if any Qued
|
|---|
| 36 | SEND I $D(^PSX(552.2,"AQ",PSXB)) G ^PSXSND
|
|---|
| 37 | EOT S PSXTXT="BTS|",PSXLAST=1,PSXBLK=1 D XMIT^PSXSND,FILE^PSXSND
|
|---|
| 38 | S PSXBHS=0
|
|---|
| 39 | W *EOT,*TERM ;end of transmission, nothing to send
|
|---|
| 40 | K PSXDT,PSXB,PSXDA,AA,PSXBLK,PSXHEX,PSXLAST,PSXLEN,PSXMSA,PSXMSGID,PSXMSH,PSXQN,PSXSUM,PSXTS,PSXTXT,PSXTSTN,REC,CNT,PSXBHS,QUE
|
|---|
| 41 | G:$G(PSXONE) EN^PSXSTP
|
|---|
| 42 | G ^PSXJOB
|
|---|
| 43 | MST1 K LOG S LOG(1)="MST1 ENQ received with no terminator while Bidding for Master status." Q
|
|---|
| 44 | MST2 K LOG S LOG(1)="MST2 NAK received with no terminator while Bidding for Master status." Q
|
|---|
| 45 | MST3 K LOG S LOG(1)="MST3 ACK without 0 received while Bidding for Master status." Q
|
|---|
| 46 | MST4 K LOG S LOG(1)="MST4 Garbage received while Bidding for Master status." Q
|
|---|
| 47 | MST5 K LOG S LOG(1)="MST5 NAK received while Bidding for Master status." Q
|
|---|
| 48 | MST6 K LOG S LOG(1)="MST6 No response from CMOP while Bidding for Master status." Q
|
|---|
| 49 | MST7 K LOG S LOG(1)="MST7 Simultaneous bid for Master status by CMOP and DHCP." Q
|
|---|
| 50 | MST8 K LOG S LOG(1)="MST8 ACK received with no terminator while Bidding for Master status." Q
|
|---|
| 51 | MST9 K LOG S LOG(1)="MST9 CMOP won't respond, waiting 45 seconds to try again" Q
|
|---|
