©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
ABMDLCK ; IHS/ASDST/DMJ - Eligibility Checker ;
Source file <ABMDLCK.m>
| Package | Total | Call Graph |
|---|---|---|
| Third Party Billing | 2 | CHK^ABMDLCK1 UNCHK^ABMDLCK2 |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AA | ;Automobile accident or other accident or tort related.
|
|
| ELG(ABMVDFN,ABML,DFN,ABMVDT) | ;EP Entry point - Eligibility checker
|
|
| PRIO | ;SET PRIORITY
|
|
| 23 | ;
|
|
| 33 | ;
|
|
| WRKC | ;Workman's comp
|
|
| 3 | ; RailRoad Elig Chk
|
|
| 2 | ; Medicare Elig Chk
|
|
| XIT | ||
| ACCREL(D1) | ;EP - Ext func to determine if ins is accident or tort related
|
|
| MCRIEN(X) | ;EP - determine medicare fi on visit date
|
| FileNo | Call Tags |
|---|---|
| ^ABMDCLM - [#9002274.3] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABMDCLM - [#9002274.3] | ELG+19 |
| ^AUPNMCR - [#9000003] | 2+6, 2+10, 2+16, 23+1 |
| ^AUPNPAT - [#9000001] | ELG+28, WRKC+14 |
| ^AUPNPRVT - [#9000006] | AA+14, AA+17, AA+18, ACCREL+2 |
| ^AUPNRRE - [#9000005] | 3+5, 3+9, 3+12, 33+1 |
| ^AUPNVINP - [#9000010.02] | ELG+22 |
| ^AUPNVINP("AD" | ELG+21 |
| ^AUPNVPOV - [#9000010.07] | WRKC+10, AA+12 |
| ^AUPNVPOV("AD" | WRKC+8, AA+10 |
| ^AUPNVSIT - [#9000010] | ELG+7, ELG+12 |
| ^AUPNWC - [#9000042] | WRKC+15, WRKC+17, WRKC+18, WRKC+19, WRKC+22 |
| ^AUTNEMPL - [#9999999.75] | WRKC+24, WRKC+25 |
| ^AUTNINS - [#9999999.18] | WRKC+26, WRKC+38 |
| ^AUTNINS("B" | MCRIEN+10, 3+6, WRKC+34 |
| ^AUTNINS(2 | MCRIEN+4, MCRIEN+5 |
| ^AUTTPIC("AC" | 23+7, 33+7 |
| ^AUTTRLSH - [#9999999.36] | ACCREL+5 |
| ^DPT - [#2] | ELG+9, ELG+27 |
| Name | Line Occurrences |
|---|---|
| $$ACCREL | AA+19 |
| $$MCRIEN | 2+7 |
| 23 | 2+16 |
| 33 | 3+13 |
| @( | ELG+46 |
| PRIO | 2+4, 3+4, AA+24 |
| XIT | ELG+56 |
| Name | Field # of Occurrence |
|---|---|
| ^( | ELG+27, WRKC+38 |
| ^(0 | WRKC+38 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABM | ELG+1~, 23+14*, 23+15*, 23+16, 23+17, 23+20, 23+21, 23+22, WRKC+7*, WRKC+8* , WRKC+10, WRKC+37*, WRKC+38*, XIT! |
| ABM("COV" | ELG+44*, 23+7*, 23+8*, 33+7*, 33+8* |
| ABM("CV" | 2+26 |
| ABM("EMPL REL | " , WRKC+1*, WRKC+11*, WRKC+29, AA+7 |
| ABM("EMPLOYED" | ELG+30*, ELG+31*, 2+2, 3+2, WRKC+2 |
| ABM("FLG" | ELG+45! |
| ABM("INS" | 2+7*, 2+8, 2+18, 2+19, 2+20, 2+21, 2+22, 2+23, 2+24, 2+25 , 2+26, 23+7, 23+13, 23+18, 3+6*, 3+7, 3+15, 33+7, WRKC+22*, WRKC+25* , WRKC+26, WRKC+30, WRKC+34*, WRKC+35, WRKC+38*, AA+9!, AA+22*, AA+27 |
| ABM("MDFN" | ELG+44*, 2+15*, 2+16*, 2+21, 23+1, 3+11*, 3+12*, 33+1, AA+23* |
| ABM("MSUP" | 23+13, 23+15, 23+23! |
| ABM("PRI" | 2+2*, 2+18, 2+24, 2+26, 23+13, 3+2*, WRKC+12*, AA+15*, AA+27, PRIO+1 , PRIO+2, PRIO+3* |
| ABM("PRIMARY" | ELG+32*, ELG+53 |
| ABM("PROC" | ELG+43*, ELG+46 |
| ABM("REC" | 2+9!, 23+1*, 23+2, 23+3, 23+5, 3+8!, 33+1*, 33+3, 33+4, 33+6 |
| ABM("TYP" | 2+3*, 3+3*, WRKC+6*, AA+3* |
| ABM("VACHK" | ELG+42* |
| ABM("XIT" | ELG+45!, 2+1!, 2+12, 2+25, 2+26, 3+1!, 3+16, WRKC+5!, WRKC+32, WRKC+40 , AA+2!, AA+26 |
| >> ABM0 | MCRIEN+5*, MCRIEN+6, MCRIEN+7, MCRIEN+8 |
| ABMCDFN | ELG+1~, ELG+19* |
| ABMCLN | ELG+1~, ELG+14*, ELG+16*, ELG+17* |
| >> ABMDISDT | ELG+20, ELG+22*, ELG+23*, 23+2, 33+3, WRKC+20 |
| >> ABME(166 | 2+8* |
| >> ABME(168 | 3+7* |
| >> ABMELGDT | 2+14*, 2+17, 23+4* |
| ABMGOOD | 3+10!, 3+14, 33+5* |
| ABML | ELG~, ELG+6!, ELG+24! |
| ABML( | ELG+50, ELG+52, ELG+54*, ELG+55!, 2+18, 2+24, 2+26!, 23+13, AA+27, PRIO+1 , PRIO+2 |
| ABML("ERROR" | ELG+8*, ELG+10* |
| ABML(1 | ELG+47, ELG+48, AA+7 |
| ABML(4 | 23+16, 23+17, 23+20, 23+21, 23+22! |
| ABML(99 | 2+19, 2+20*, 2+21*, 2+22*, 2+23*, 2+25!, 23+17*, 23+18*, 23+21*, 3+15* |
| ABMLW | WRKC+4~, WRKC+8, WRKC+17, WRKC+22*, WRKC+23, WRKC+24, WRKC+28*, WRKC+30 |
| ABMLX | XIT! |
| ABMLX( | AA+27* |
| ABMNOELG | ELG+2!, ELG+27* |
| >> ABMP("CDFN" | ELG+17 |
| ABMPRVTI | ELG+1~, AA+20, AA+22, ACCREL+2*, ACCREL+3 |
| ABMVDFN | ELG~, ELG+6, ELG+7, ELG+11, ELG+12, ELG+19, ELG+21, WRKC+3, WRKC+8, AA+5 , AA+10 |
| ABMVDT | ELG~, ELG+5*, ELG+18*, ELG+27, 2+7, 23+2, 23+3, 33+3, 33+4, WRKC+20 , WRKC+21, AA+20 |
| ABMVT | ELG+1~ |
| >> ABMWCIEN | WRKC+16*, WRKC+17*, WRKC+18, WRKC+19, WRKC+22 |
| >> ABMWEFDT | WRKC+18*, WRKC+20 |
| >> ABMWEXDT | WRKC+19*, WRKC+21 |
| ACCDENT | ELG+1~, AA+4*, AA+8*, AA+10, AA+12*, AA+13, AA+16*, AA+21* |
| AUPNCPT | ELG+3! |
| COV | ELG+1~, 23+5*, 23+7, 3+17!, 33+6*, 33+7 |
| CV | 23+19*, 23+20*, 23+21, 23+24! |
| D1 | ELG+1~, AA+16*, AA+17*, AA+18, AA+19, AA+23, ACCREL~, ACCREL+2 |
| DFN | ELG~, ELG+4*, ELG+6, ELG+9, ELG+13*, ELG+27, ELG+28, 2+6, 2+10, 2+16 , 2+20, 23+1, 3+5, 3+9, 3+12, 33+1, WRKC+14, WRKC+15, WRKC+17, WRKC+18 , WRKC+19, WRKC+22, AA+14, AA+17, AA+18, ACCREL+2 |
| DUZ(2 | ELG+19 |
| I | ELG+21*, ELG+22, ELG+51*, ELG+52*, ELG+53, ELG+54, ELG+55, MCRIEN+1~, MCRIEN+3*, MCRIEN+4* , MCRIEN+5, MCRIEN+9 |
| >> P | ELG+49*, ELG+50*, ELG+52, ELG+54, ELG+55 |
| RELPT | ACCREL+1~, ACCREL+3*, ACCREL+4, ACCREL+5 |
| >> SERVCAT | ELG+15*, ELG+16 |
| U | ELG+13, ELG+14, ELG+15, ELG+22, ELG+27, ELG+30, ELG+32, 2+20, 2+21, 2+22 , 2+23, 23+2, 23+3, 23+5, 23+18, 33+3, 33+4, 33+6, WRKC+10, WRKC+14 , WRKC+18, WRKC+19, WRKC+22, WRKC+24, WRKC+25, WRKC+26, WRKC+38, AA+7, AA+12, AA+18 , AA+20, AA+22, ACCREL+3, ACCREL+5 |
| V | AA+1~, AA+4*, AA+10*, AA+12 |
| X | MCRIEN~, MCRIEN+7, MCRIEN+8 |
| Y | ELG+1~, ELG+12*, ELG+13, ELG+14, ELG+15, ELG+18, ELG+28*, ELG+30, ELG+32, MCRIEN+1~ , MCRIEN+2*, MCRIEN+9*, MCRIEN+10*, MCRIEN+11, WRKC+14*, WRKC+15, WRKC+24, WRKC+25, WRKC+26*, WRKC+28 |