Routine: PSULR4

Information

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