©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
ABME3DA1 ; IHS/ASDST/DMJ - HCFA-1500 NSF 3.01 EMC RECORD DA1 (Insurance Information) ;
Source file <ABME3DA1.m>
| Package | Total | Call Graph |
|---|---|---|
| Third Party Billing | 2 | ISET^ABMERINS ($$FMT,PAYED,S90,SET)^ABMERUTL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 150 | ;156-156 Zero Pay Indicator
|
|
| 210 | ;166-166 Champus Spnsr Status
|
|
| 310 | ;239-253 Bene Check\EFT Trace No
|
|
| 380 | ;312-312 Contract Agreement Indicator
|
|
| 190 | ;163-163 Champus Spnsr Branch
|
|
| 60 | ;83-102 Payor City
|
|
| 130 | ;142-148 Coinsurance Amount
|
|
| 110 | ;128-134 Allowed Amount
|
|
| 80 | ;105-113 Payor Zip
|
|
| 230 | ;175-182 Ins Card Term Date
|
|
| 250 | ;190-197 Eomb Date 1
|
|
| 170 | ;159-160 Adjudication Ind 2
|
|
| 20 | ;4-5 Sequence #
|
|
| 320 | ;254-261 Bene Check Date
|
|
| 40 | ;23-52 Payor Address Line 1
|
|
| 180 | ;161-162 Adjudication Ind 3
|
|
| 340 | ;271-285 Prov Check\EFT Trace No
|
|
| 280 | ;214-221 Eomb Date 4
|
|
| 360 | ;294-302 Interest Paid
|
|
| 200 | ;164-165 Champus Spnsr Grade
|
|
| 140 | ;149-155 Payor Amount Payed
|
|
| 300 | ;230-238 Amt Paid to Bene
|
|
| 330 | ;262-270 Amt Paid to Prov
|
|
| 120 | ;135-141 Deductible Amount
|
|
| START | ;START HERE
|
|
| 260 | ;198-205 Eomb Date 2
|
|
| 240 | ;183-189 Balance Due
|
|
| 70 | ;103-104 Payor State
|
|
| 90 | ;114-120 Dissallowed Cost Cont
|
|
| 100 | ;121-127 Disallowed Other
|
|
| 160 | ;157-158 Adjucation Ind 1
|
|
| 220 | ;167-174 Ins Card Effect Date
|
|
| 10 | ;1-3 Record ID
|
|
| ADDR | ;Payor Address Info
|
|
| 270 | ;206-213 Eomb Date 3
|
|
| 30 | ;6-22 Patient Control Number
|
|
| 50 | ;53-82 Payor Address Line 2
|
|
| 390 | ;313-320 Filler National
|
|
| 290 | ;222-229 Claim Receipt Date
|
|
| 350 | ;286-293 Prov Check Date
|
|
| 370 | ;303-311 Approved Amt
|
|
| EX(ABMX,ABMY,ABMZ) | ;EXTRINSIC FUNCTION HERE
|
|
| LOOP | ;LOOP HERE
|
| Name | Field # of Occurrence |
|---|---|
| ISET^ABMERINS | EX+12 |
| $$FMT^ABMERUTL | 20+2, 30+2, 40+2, 50+2, 60+2, 70+2, 80+2, 90+2, 100+2, 110+2 , 120+2, 130+2, 140+2, 150+2, 160+2, 170+2, 180+2, 190+2, 200+2, 210+2 , 220+2, 230+2, 240+2, 250+2, 260+2, 270+2, 280+2, 290+2, 300+2, 310+2 , 320+2, 330+2, 340+2, 350+2, 360+2, 370+2, 380+2, 390+2 |
| PAYED^ABMERUTL | START+4 |
| S90^ABMERUTL | START+7 |
| SET^ABMERUTL | START+3, EX+9 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABMDBILL( | EX+11 |
| ^ABMEXLM("AA" | LOOP+3 |
| ^AUTNINS - [#9999999.18] | ADDR+2 |
| ^DIC(5 - [#5] | ADDR+3 |
| Name | Line Occurrences |
|---|---|
| @( | LOOP+2, LOOP+3, EX+14 |
| ADDR | START+5 |
| LOOP | START+6 |
| Name | Field # of Occurrence |
|---|---|
| ^( | LOOP+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABM | EX+17! |
| ABMADR | START+8!, ADDR+1! |
| ABMADR( | ADDR+2* |
| ABMADR(2 | 40+1 |
| ABMADR(3 | 60+1 |
| ABMADR(4 | 70+1, ADDR+3* |
| ABMADR(5 | 80+1 |
| ABME | EX+17! |
| ABME("INS" | 140+1, ADDR+2, EX+10*, EX+11 |
| ABME("RTYPE" | START+2* |
| ABME("S#" | START+1, LOOP+4, 20+1 |
| >> ABMP("BDFN" | EX+8*, EX+11 |
| >> ABMP("EXP" | LOOP+3 |
| >> ABMP("FMT" | EX+13*, EX+16* |
| >> ABMP("INS" | LOOP+3 |
| >> ABMP("NOFMT" | LOOP+4, EX+13 |
| >> ABMP("PAYED" | START+8!, 140+1 |
| >> ABMP("PCN" | 30+1 |
| >> ABMR(31 | START+1!, LOOP+4, 10+1*, 20+1*, 20+2*, 30+1*, 30+2*, 40+1*, 40+2*, 50+1* , 50+2*, 60+1*, 60+2*, 70+1*, 70+2*, 80+1*, 80+2*, 90+1*, 90+2*, 100+1* , 100+2*, 110+1*, 110+2*, 120+1*, 120+2*, 130+1*, 130+2*, 140+1*, 140+2*, 150+1* , 150+2*, 160+1*, 160+2*, 170+1*, 170+2*, 180+1*, 180+2*, 190+1*, 190+2*, 200+1* , 200+2*, 210+1*, 210+2*, 220+1*, 220+2*, 230+1*, 230+2*, 240+1*, 240+2*, 250+1* , 250+2*, 260+1*, 260+2*, 270+1*, 270+2*, 280+1*, 280+2*, 290+1*, 290+2*, 300+1* , 300+2*, 310+1*, 310+2*, 320+1*, 320+2*, 330+1*, 330+2*, 340+1*, 340+2*, 350+1* , 350+2*, 360+1*, 360+2*, 370+1*, 370+2*, 380+1*, 380+2*, 390+1*, 390+2*, EX+15 , EX+17! |
| >> ABMREC(31 | START+1!, LOOP+4* |
| ABMX | EX~, EX+14, EX+15, EX+17! |
| ABMY | EX~, EX+8, EX+17! |
| ABMZ | EX~, EX+10, EX+17! |
| DUZ(2 | EX+11 |
| I | LOOP+1*, LOOP+2, LOOP+3, LOOP+4, ADDR+2~* |
| >> Y | EX+11*, EX+15*, EX+18 |