DGYPREG1 ;ALB/REW - POST-INIT PATIENT FILE POST-INIT CONT'D ;1-APR-93
Source file <DGYPREG1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CFLREP | ;End of Patient File Loop: Problem CFL Fields
|
|
TOTVAREP | ;End of Patient File Loop: Problem MB Fields
|
|
END | ;
|
|
SETUP(REP) | ;
|
|
CSUM(REP) | ;PRINTS SUMMARY
|
|
SUM | ;
|
|
CDET | ;
|
|
GETID | ;
|
|
ACTDT(DFN) | ;RETURNS LAST ACTIVE DATE
|
|
MESS(TEXT,LINES) | ;ADD TO MAIL TEXT
|