©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
ABMEH30 ; IHS/ASDST/DMJ - HCFA-1500 EMC RECORD 30 (Third Party Payor) ;
Source file <ABMEH30.m>
| Package | Total | Call Graph |
|---|---|---|
| Third Party Billing | 6 | $$Y2KD2^ABMDUTL $$ENVOY^ABMEF19 ^ABMEH31 ^ABMEH32 ISET^ABMERINS ($$ENVY,$$FMT,$$RCID,S90,SET)^ABMERUTL |
| VA Fileman | 1 | EN^DIQ1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 150 | ;153-153 Assign of Benefits
|
|
| 210 | ;214-214 Insured MI
|
|
| 190 | ;182-201 Insured Last Name
|
|
| DIQ3 | ;PATIENT IS INSURED
|
|
| 60 | ;25-26 Insurance Type Code
|
|
| 130 | ;123-137 PPO ID
|
|
| 110 | ;89-121 Group Name
|
|
| LOOP2 | ;LOOP HERE
|
|
| 80 | ;32-35 Payor Claim Office #
|
|
| 230 | ;218-218 Insured Sex
|
|
| 250 | ;227-227 Insured Employment Status Code
|
|
| 170 | ;155-156 Patient's Relationship to Insured
|
|
| 20 | ;4-5 Sequence #
|
|
| 40 | ;23-23 Claim Filing Indicator
|
|
| 180 | ;157-181 Insured ID #
|
|
| 280 | ;236-260 Medicaid ID #
|
|
| 200 | ;202-213 Insured First Name
|
|
| 140 | ;138-152 Prior Authorization #
|
|
| 300 | ;274-320 Filler (Local)
|
|
| 120 | ;122-122 PPO/HMO Ind
|
|
| START | ;START HERE
|
|
| 260 | ;228-228 Supplemental Ins Ind
|
|
| 240 | ;219-226 Insured DOB
|
|
| 70 | ;27-31 Payor Organization ID
; ABM*2.4*9 IHS/FCS/DRS 09/21/01 ; Part 14d - Give priority to Envoy ID ; And if it's not there, fall back to $P(^AUTNINS(D0,0),U,8) |
|
| 90 | ;36-68 Payor Name
|
|
| 100 | ;69-88 Group #
|
|
| 160 | ;154-154 Patient Signature Source
|
|
| 220 | ;215-217 Insured Generation
|
|
| 10 | ;1-3 Record ID
|
|
| 270 | ;229-235 Insurance Location ID
|
|
| 30 | ;6-22 Patient Control Number
|
|
| DIQ2 | ;POLICY HOLDER INFORMATION
|
|
| 50 | ;24-24 Source of Pay
|
|
| DIQ1 | ;PULL BILL DATA VIA DIQ1
|
|
| 290 | ;261-273 Filler (National)
|
|
| EX(ABMX,ABMY,ABMZ) | ;EXTRINSIC FUNCTION HERE
|
|
| LOOP | ;FIRST LOOP
; Loop thru INS priorities |
| Name | Field # of Occurrence |
|---|---|
| $$Y2KD2^ABMDUTL | 240+2 |
| $$ENVOY^ABMEF19 | 70+4 |
| ^ABMEH31 | LOOP+11 |
| ^ABMEH32 | LOOP+12 |
| ISET^ABMERINS | LOOP+8, EX+13 |
| $$ENVY^ABMERUTL | 70+5 |
| $$FMT^ABMERUTL | 20+2, 30+2, 70+7, 80+2, 90+2, 100+2, 110+2, 130+2, 140+4, 150+5 , 170+3, 180+2, 190+2, 200+3, 210+4, 220+3, 230+2, 240+3, 250+12, 260+2 , 270+2, 280+2, 290+2, 300+2 |
| $$RCID^ABMERUTL | 70+6 |
| S90^ABMERUTL | LOOP+10 |
| SET^ABMERUTL | START+3, EX+9 |
| EN^DIQ1 | DIQ1+8, DIQ2+9, DIQ3+8 |
| FileNo | Call Tags |
|---|---|
| ^AUPNPAT - [#9000001] | Classic Fileman Calls |
| ^AUPN3PPH - [#9000003.1] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABMDBILL( | EX+11 |
| ^ABMEXLM("AA" | LOOP2+3 |
| ^AUTNEGRP - [#9999999.77] | 100+1 |
| ^AUTNINS - [#9999999.18] | 90+1 |
| Name | Line Occurrences |
|---|---|
| @( | LOOP2+2, LOOP2+3, EX+15 |
| DIQ1 | 140+2, 150+2, 160+2 |
| DIQ2 | 250+9 |
| DIQ3 | 250+4 |
| LOOP | START+3 |
| LOOP2 | LOOP+9 |
| Name | Field # of Occurrence |
|---|---|
| ^( | LOOP2+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABM | START+1!, START+4!, EX+18! |
| ABM( | 110+1, 140+3, 150+3, 160+3, 250+10, DIQ1+1, DIQ2+2 |
| ABM(9000001 | 250+5, DIQ3+1 |
| ABME | START+1!, START+4!, EX+18! |
| ABME("DOB" | 240+1 |
| ABME("FLD" | 140+1*, 150+1*, 160+1*, 250+3*, 250+8*, DIQ1+1, DIQ2+2, DIQ3+1 |
| ABME("GRP" | 100+1 |
| ABME("ID#" | 180+1 |
| ABME("INS" | LOOP+4*, 40+2, 70+5, 70+6, 90+1, EX+10*, EX+11 |
| ABME("INSIEN" | LOOP+5* |
| ABME("MCD#" | 280+1 |
| ABME("PH" | 110+1, 170+1, 170+2, 250+7, 250+10, DIQ2+1, DIQ2+2, DIQ2+7 |
| ABME("PHNM" | 190+1, 200+1, 210+1, 220+1 |
| ABME("PHSEX" | 230+1 |
| ABME("PPP" | 250+2, 250+5 |
| ABME("REL" | 170+2 |
| ABME("RTYPE" | LOOP+6* |
| ABME("S#" | LOOP+2*, LOOP+3*, LOOP+4, LOOP+5, LOOP2+4, 20+1, EX+12* |
| >> ABMP("BDFN" | 140+3, 150+3, 160+3, DIQ1+1, DIQ1+6, EX+8*, EX+11 |
| >> ABMP("EXP" | LOOP2+3 |
| >> ABMP("FMT" | EX+14*, EX+17* |
| >> ABMP("INS" | LOOP+3, LOOP+4, LOOP+5, LOOP2+3, 40+2 |
| >> ABMP("NOFMT" | LOOP2+4, EX+14 |
| >> ABMP("PCN" | 30+1 |
| >> ABMP("PDFN" | DIQ3+1, DIQ3+6 |
| >> ABMP("SET" | START+2! |
| >> ABMP("SOP" | 50+1 |
| >> ABMP("VTYP" | 70+5 |
| >> ABMR(30 | LOOP+7!, LOOP2+4, 10+1*, 20+1*, 20+2*, 30+1*, 30+2*, 40+1*, 40+2*, 50+1* , 60+1*, 70+3*, 70+5*, 70+6*, 70+7*, 80+1*, 80+2*, 90+1*, 90+2*, 100+1* , 100+2*, 110+1*, 110+2*, 120+1*, 130+1*, 130+2*, 140+3*, 140+4*, 150+3*, 150+4* , 150+5*, 160+3*, 160+4*, 160+5*, 160+6*, 160+7*, 160+8*, 170+1*, 170+2*, 170+3* , 180+1*, 180+2*, 190+1*, 190+2*, 200+1*, 200+2*, 200+3*, 210+1*, 210+2*, 210+3* , 210+4*, 220+1*, 220+2*, 220+3*, 230+1*, 230+2*, 240+1*, 240+2*, 240+3*, 250+1* , 250+5*, 250+7, 250+10*, 250+12*, 260+1*, 260+2*, 270+1*, 270+2*, 280+1*, 280+2* , 290+1*, 290+2*, 300+1*, 300+2*, EX+16, EX+18! |
| >> ABMR(31 | LOOP+7! |
| >> ABMR(32 | LOOP+7! |
| >> ABMREC(30 | START+1!, LOOP2+4* |
| >> ABMREC(31 | START+1! |
| >> ABMREC(32 | START+1! |
| ABMX | EX~, EX+15, EX+16, EX+18! |
| ABMY | EX~, EX+8, EX+18! |
| ABMZ | EX~, EX+10, EX+18! |
| >> DA | DIQ1+6*, DIQ2+7*, DIQ3+6* |
| >> DIC | DIQ1+5*, DIQ2+6*, DIQ3+5* |
| DIQ | DIQ1+3*, DIQ1+9!, DIQ2+4*, DIQ2+10!, DIQ3+3*, DIQ3+9! |
| DIQ(0 | DIQ1+4*, DIQ2+5*, DIQ3+4* |
| >> DR | DIQ1+7*, DIQ2+8*, DIQ3+7* |
| DUZ(2 | EX+11 |
| I | LOOP2+1*, LOOP2+2, LOOP2+3, LOOP2+4, DIQ1+2~, DIQ2+3~, DIQ3+2~ |
| U | 90+1 |
| >> Y | EX+11*, EX+16*, EX+19 |