©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
GECSSTTM ;WISC/RFJ-stacker file transmission (multi docs in a msg) ;08 Dec 93
Source file <GECSSTTM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TRANSALL | ; transmit code sheets waiting for clock in stack file
; check for another job transmitting stack code sheets |
|
| BUILD(DA) | ; build tmp global for stack entry da
; $g(gecsfaut)=1 for immediate transmissions |
|
| MULTIPLE | ; code sheet is larger than 30k, create multiple msgs
|
|
| ENDSEQ(SIZE,LINE) | ; set end sequence control in tmp
; size=size of code sheet; line=last line of sequence |
|
| SEQUENCE | ; return next sequence number
|