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
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGPM - [#405] | INPAT+14 |
^DGPM("ADFN" | INPAT+11, INPAT+12, INPAT+13 |
^DPT - [#2] | LOOP+4, LOOP+5, INPAT+17, FUTAPP+9 |
^SCE("ADFN" | OUTPAT+9 |
^XPD(9.7 - [#9.7] | INSTDT+3, INSTDT+4 |
^XTMP("DG53141G" | LOOP+2*, PRINT+2, PRINT+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | POST+1~, POST+2*, LOOP+1~, LOOP+4* |
DFN | EN+5~, EN+10*, LOOP+3*, LOOP+4*, LOOP+5, LOOP+7, LOOP+8, LOOP+9, LOOP+10, OUTPAT~ , OUTPAT+9, INPAT~, INPAT+11, INPAT+12, INPAT+13, INPAT+17, FUTAPP~, FUTAPP+9, CURRMT~, CURRMT+10 |
DGADDDT | LOOP+6~, LOOP+7*, LOOP+8*, LOOP+9*, LOOP+10* |
DGINSDT | EN+5~, INSTDT+3*, INSTDT+4*, LOOP+7, LOOP+8, LOOP+9, LOOP+10, OUTPAT~, OUTPAT+8, INPAT~ , INPAT+10, INPAT+16, INPAT+17, FUTAPP~, FUTAPP+8, CURRMT~, CURRMT+9 |
DGMTCU | CURRMT+8~, CURRMT+10* |
DT | LOOP+2, OUTPAT+9, FUTAPP+9 |
I | INSTDT+2~, INSTDT+3*, INSTDT+4, INPAT+9~, INPAT+13*, INPAT+14, PRINT+1~, PRINT+2*, PRINT+4* |
INSDT | OUTPAT+7~, OUTPAT+8*, OUTPAT+9*, INPAT+9~, INPAT+10*, INPAT+12*, INPAT+13, INPAT+15, FUTAPP+7~, FUTAPP+8* , FUTAPP+9*, CURRMT+8~, CURRMT+9*, CURRMT+10 |
J | INPAT+9~, INPAT+14*, INPAT+15, INPAT+16 |
SORT | LOOP+6~, LOOP+7*, LOOP+8*, LOOP+9*, LOOP+10* |
TOTAL | PRINT+1~, PRINT+2*, PRINT+3, PRINT+4*, PRINT+5 |
>> XPDNM | POST+2, EN+10, LOOP+3, LOOP+4 |
Y | OUTPAT+7~, OUTPAT+8*, OUTPAT+9*, OUTPAT+10, INPAT+9~, INPAT+10*, INPAT+12, INPAT+13, INPAT+15*, INPAT+16* , INPAT+17*, INPATQ, FUTAPP+7~, FUTAPP+8*, FUTAPP+9*, FUTAPP+10, CURRMT+8~, CURRMT+9*, CURRMT+10*, CURRMT+11 |