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
 |