DG53141P ;ALB/SEK 0% SC CLEANUP POST-INS DG*5.3*141 ;09/24/97
Source file <DG53141P.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POST | ;entry point for post-install, setting up checkpoints
|
|
| EN | ;begin processing
|
|
| INSTDT | ;get install date of Tricare from KIDS file. If not found use
|
|
| LOOP | ;
|
|
| OUTPAT(DFN,DGINSDT) | ;check is veteran had an outpatient encounter since
|
|
| INPAT(DFN,DGINSDT) | ;check is veteran is an inpatient or was when Tricare
|
|
| INPATQ | ||
| FUTAPP(DFN,DGINSDT) | ;check is veteran has a future appointment
|
|
| CURRMT(DFN,DGINSDT) | ;check if veteran had a Means Test since installation
; of Tricare |
|
| ;print summary
|
