PSUOPMD ;BIR/CFL,DAM - PSU PBM Multidose Outpatient Pharmacy create mailman messages ;17 NOV 2004
Source file <PSUOPMD.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;
|
|
MSG | ;Set up the number of lines and messages for mailman
|
|
XMD | ;
|
|
OLD | ; THIS SUBROUTINE STOPS MULTI-LINED MESSAGES FORM SPANNING MAILMAN MSG
|
|
OLD5 | ; * IF A RECORD EXCEEDS THE 10,000 CHARACTER 5 TIMES
|
|
OLD4 | ; * IF A RECORD EXCEEDS THE 10,000 CHARACTER 4 TIMES
|
|
OLD3 | ;
|
|
OLD2 | ;
|
|
OLD1 | ;
|
|
VARS | ; Setup variables for contents
|
|
NODATA | ;Send "No data to report" message
|
|
SETCNT | ;Set message count and line count
|