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
|