DG53372A ;ALB/PDJ - Convert Eligibility codes ; 03/29/2001
Source file <DG53372A.m>
| Package | Total | Call Graph | 
|---|---|---|
| VA Fileman | 3 | C^%DTC UPDATE^DIE ^DIK | 
| Kernel | 2 | $$DT^XLFDT ($$COMCP,$$NEWCP,$$PARCP,$$UPCP,$$VERCP,BMES)^XPDUTL | 
| Registration | 2 | MAIL^DG53372M $$UPD^DGENDBS | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| PROCELG | ; Process PATIENT file | |
| EN | ||
| EN1 | ||
| CLEANUP | ; Used to cleanup XTMP global for testing only | |
| PROCENC | ; Process PATIENT ENCOUNTER file | |
| PROCSELG | ; Process secondary eligibility codes | 
| Name | Field # of Occurrence | 
|---|---|
| C^%DTC | EN+54 | 
| MAIL^DG53372M | EN+17, EN1+12 | 
| $$UPD^DGENDBS | PROCENC+23, PROCELG+15 | 
| UPDATE^DIE | PROCSELG+24 | 
| ^DIK | PROCSELG+30 | 
| $$DT^XLFDT | EN+55 | 
| $$COMCP^XPDUTL | EN1+13 | 
| $$NEWCP^XPDUTL | EN+48 | 
| $$PARCP^XPDUTL | EN1+1 | 
| $$UPCP^XPDUTL | EN1+10 | 
| $$VERCP^XPDUTL | EN+47, EN+69 | 
| BMES^XPDUTL | EN+12, EN+13, EN+14, EN+15, EN+16, EN+25, EN+26, EN+27, EN+28, EN+29 , EN+30, EN+31, EN+35, EN+36, EN+37, EN+38, EN+39, EN+40, EN+41, EN+42 , EN1+14 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DIC(8 - [#8] | EN+4, EN+5, EN+23, EN+36 | 
| ^DPT - [#2] | EN1+2, EN1+6, PROCELG+2, PROCSELG+3, PROCSELG+4, PROCSELG+17 | 
| ^SCE - [#409.68] | PROCENC+10 | 
| ^SCE("ADFN" | PROCENC+8, PROCENC+9 | 
| ^XTMP( | EN+64*, EN+65*, EN+66*, EN+67*, EN+68*, PROCENC+16*, PROCENC+17*, PROCENC+24*, PROCELG+8*, PROCELG+9* , PROCELG+16*, PROCSELG+11*, PROCSELG+12*, PROCSELG+26*, CLEANUP+5!, CLEANUP+6!, CLEANUP+7! | 
| ^XTMP("DG*5.3*372-" | EN+51, EN+57* | 
| Name | Line Occurrences | 
|---|---|
| EN1 | EN+71 | 
| PROCELG | EN1+8 | 
| PROCENC | EN1+7 | 
| PROCSELG | EN1+9 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | EN~, EN+48*, EN+69*, EN+70*, EN+71, EN1+10*, EN1+13* | 
| CLNOK | EN~, EN+2*, EN+11* | 
| DA | PROCELG+1~, PROCSELG+1~, PROCSELG+28!, PROCSELG+29* | 
| DA(1 | PROCSELG+29* | 
| DATA | EN~, PROCENC+1~, PROCENC+23, PROCELG+1~, PROCELG+15, PROCSELG+1~, PROCSELG+18!, PROCSELG+28! | 
| DATA( | PROCENC+22*, PROCELG+14*, PROCSELG+20*, PROCSELG+21*, PROCSELG+22* | 
| DFN | EN~, EN1*, EN1+1*, EN1+2*, EN1+6, EN1+10, PROCENC+8, PROCENC+9, PROCENC+16, PROCENC+24 , PROCELG+2, PROCELG+8, PROCELG+15, PROCELG+16, PROCSELG+3, PROCSELG+4, PROCSELG+11, PROCSELG+17, PROCSELG+19, PROCSELG+26 , PROCSELG+29 | 
| DIK | PROCSELG+1~, PROCSELG+29* | 
| DT | EN+52 | 
| ELIGCD | PROCENC+1~, PROCENC+10*, PROCENC+11, PROCENC+12, PROCENC+16, PROCENC+21, PROCENC+22, PROCENC+24, PROCELG+1~, PROCELG+2* , PROCELG+3, PROCELG+4, PROCELG+8, PROCELG+13, PROCELG+14, PROCELG+16, PROCSELG+5*, PROCSELG+6, PROCSELG+7, PROCSELG+11 , PROCSELG+16, PROCSELG+17, PROCSELG+20, PROCSELG+23, PROCSELG+26, PROCSELG+29 | 
| ERRMSG | EN~, EN+44* | 
| ERROR | PROCENC+1~, PROCENC+23, PROCENC+24, PROCELG+1~, PROCELG+15, PROCELG+16, PROCSELG+18!, PROCSELG+25, PROCSELG+26 | 
| FDAIEN | PROCSELG+1~, PROCSELG+18! | 
| FDAIEN(1 | PROCSELG+23* | 
| FILERR | EN~, EN+44* | 
| I | EN~, EN+50*, EN+51, EN+56, EN+57 | 
| IEN | EN~, EN+21*, EN+22, EN+23, EN+24, EN+26, EN+33, EN+34, EN+36, EN+37 | 
| LFDATE | EN~ | 
| NAME | EN+1~, EN1+6*, PROCENC+16, PROCENC+24, PROCELG+8, PROCELG+16, PROCSELG+11, PROCSELG+26 | 
| NEWIEN | PROCSELG+1~, PROCSELG+18!, PROCSELG+19*, PROCSELG+20, PROCSELG+21, PROCSELG+22 | 
| NODE | PROCSELG+1~, PROCSELG+4*, PROCSELG+5, PROCSELG+21, PROCSELG+22 | 
| NSTD | EN~ | 
| NSTD( | EN+22*, EN+24*, EN+34*, PROCENC+12, PROCENC+21, PROCELG+4, PROCELG+13, PROCSELG+7, PROCSELG+16 | 
| SCEDT | PROCENC+1~, PROCENC+3*, PROCENC+8*, PROCENC+9, PROCENC+16, PROCENC+24 | 
| SCEIEN | PROCENC+1~, PROCENC+3*, PROCENC+9*, PROCENC+10, PROCENC+16, PROCENC+23, PROCENC+24 | 
| SIEN | PROCSELG+1~, PROCSELG+2*, PROCSELG+3*, PROCSELG+4, PROCSELG+11, PROCSELG+26 | 
| STDCDS | EN~ | 
| STDCDS( | EN+26, EN+33, PROCENC+22, PROCELG+14, PROCSELG+17, PROCSELG+20, PROCSELG+23 | 
| STDCDS(3 | EN+4*, EN+10 | 
| STDCDS(5 | EN+5*, EN+10 | 
| TEXT | EN~, EN+55*, EN+56*, EN+57 | 
| X | EN~, EN+55 | 
| X1 | EN~, EN+52* | 
| X2 | EN~, EN+53* | 
| >> XPDNM | EN+46, EN+63, EN+66, EN+67, EN+68, EN+69, EN1, EN1+1, EN1+10, EN1+13 | 
| XTENC | EN+1~, EN+60*, EN+65, EN+67, PROCENC+16, PROCENC+17, CLEANUP+2*, CLEANUP+6 | 
| XTERR | EN+1~, EN+61*, EN+68, PROCENC+24, PROCELG+16, PROCSELG+26, CLEANUP+3*, CLEANUP+7 | 
| XTPAT | EN+1~, EN+59*, EN+64, EN+66, PROCELG+8, PROCELG+9, PROCSELG+11, PROCSELG+12, CLEANUP+1*, CLEANUP+5 |