XMTDR ;ISC-SF/GMB-Transmit messages in a queue ;08/28/2003 09:22
Source file <XMTDR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PLAY(XMINST,XMSITE,XMB) | ;
|
|
| TASK | ; Task Manager comes here to send message to remote site
; (Tasked by QUEUE^XMKPR or REQUEUE^XMKPR) ; Was ZTSK^XMS0 (ISC-WASH/THM/CAP) ; Variables supplied by TaskMan: ; XMINST Institution number ; XMPOLL Are we polling? 0=no; 1=yes |
|
| CHKSETIP(XMINST,XMSITE,XMB) | ;
|
|
| OBE(XMINST) | ; Overcome by Events?
|
|
| XMTGET(XMINST,XMB) | ;
|
|
| XMTAUDT(XMINST,XMB) | ;
|
|
| XMTFINIS(XMINST) | ;
|
|
| ERRTRAP | ; (Called from ^XMCTRAP)
|
|
| XMTSTAT(XMINST,XMWHICH,XMTXT,XMINCR) | ; Statistics recording for message transmission
; We write to 4.2999 every 20 lines up to 100, and then every 100 lines ; after that. ; XMWHICH S=Send; R=Receive ; XMTXT XMSG or XMRG (What is sent or received) |
|
| XMTHIST(XMINST,XMWHICH,XMLINES) | ; Update history statistics for sending/receiving msgs
|
|
| STATMON(XMINST,XMMONTH) | ; Set up a record for a month for a domain
|
|
| STAT(XMINST) | ; Set up record for domain in 4.2999 MESSAGE STATISTICS file
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(4.2 - [#4.2] | FIND1^DIC |
| 4.21 | WP^DIE |
