Routine: PSUPR4

Information

PSUPR4 ;BIR/PDW - PBMS PROCUREMENT EMAIL GENERATOR ;10 JUL 1999

Source file <PSUPR4.m>

Name	Comments	DBIA/ICR reference
EN(PSUMSG)	;Scan and process for Division(s) ; PSUMSGT ("M")= # MESSAGES ("L")= # LINES
DIV
MSG	;EP Send divisional message ; Split and store into ^XTMP(PSUPRSUB,"MESSAGE",PSUMC,PSULC)
VARS	; Setup variables for contents
NODATA	;EP transmit NO DATA FOUND