PSULR4 ;BIR/PDW - PBMS LABORATORY EMAIL GENERATOR ;10 JUL 1999
Source file <PSULR4.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(PSUMSG) | ;Scan and process for Division(s)
; PSUMSGT ("M")= # MESSAGES ("L")= # LINES |
|
DIV | ; Scan by division and send divisional messages
|
|
MSG | ;EP Send divisional message
; Split and store into ^XTMP(PSULRSUB,"MESSAGE",PSUMC,PSULC) |
|
TRANS | ;EP Transmit Messages
|
|
VARS | ; Setup variables for contents
|
|
NODATA | ;EP transmit NO DATA FOUND
|