ABMEH62 ; IHS/ASDST/DMJ - HCFA-1500 EMC RECORD FB0 (Medical Segment) ;
Source file <ABMEH62.m>
| Package | Total | Call Graph | 
|---|---|---|
| Third Party Billing | 3 | $$Y2KD2^ABMDUTL WRITE^ABMEF19 ($$FMT,S90,SET)^ABMERUTL | 
| Package | Total | Caller Graph | 
|---|---|---|
| Third Party Billing | 2 | ABME3FA0 ABMEH61 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| 150 | ;110-120 National Drug Code | |
| 210 | ;154-154 Copay Status Indicator | |
| 310 | ;295-303 Purchase Service Zip | |
| 190 | ;151-152 Prescription # of Months | |
| 60 | ;47-53 Allowed Amount | |
| 130 | ;102-105 Pen Grams of Protein | |
| 110 | ;85-99 Purchase Service Provider ID | |
| 80 | ;61-67 Coinsurance Amount | |
| 230 | ;156-156 Family Planning Indicator | |
| 250 | ;158-172 HPSA Facility ID | |
| 170 | ;128-142 Prescription # | |
| 20 | ;4-5 Sequence | |
| 320 | ;304-313 Purchase Service Phone | |
| 40 | ;23-39 Line Item Control # | |
| 180 | ;143-150 Prescription Date | |
| 340 | ;317-317 Refill Indicator | |
| 280 | ;215-244 Purchase Service Address1 | |
| 360 | ;319-320 Filler (Local) | |
| 200 | ;153-153 Special Pricing Indicator | |
| 140 | ;106-109 Pen Calories | |
| 300 | ;275-294 Purchase Service City | |
| 330 | ;314-316 Drug Days Supply | |
| 120 | ;100-101 Purchase Service Provider State | |
| START | ;START HERE | |
| 260 | ;173-181 HPSA Facility Zip | |
| 240 | ;157-157 DME Charge Indicator | |
| 70 | ;54-60 Deductible Amount | |
| 90 | ;68-82 Ordering Provider ID | |
| 100 | ;83-84 Ordering Provider State | |
| 160 | ;121-127 National Drug Units | |
| 220 | ;155-155 EPSDT Indicator | |
| 10 | ;1-3 Record type | |
| 270 | ;182-214 Purchase Service Name | |
| 30 | ;6-22 Patient Control Number | |
| 50 | ;40-46 Purchase Service Charge | |
| 290 | ;245-274 Purchase Service Address2 | |
| 350 | ;318-318 Brand Need Indicator | |
| EX(ABMX,ABMY,ABMZ) | ;EXTRINSIC FUNCTION HERE | |
| LOOP | ;LOOP HERE | 
| Name | Field # of Occurrence | 
|---|---|
| $$Y2KD2^ABMDUTL | 180+1 | 
| WRITE^ABMEF19 | START+5 | 
| $$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+6, 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+3, 350+2, 360+2 | 
| S90^ABMERUTL | START+3 | 
| SET^ABMERUTL | EX+2 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^ABMEXLM("AA" | LOOP+3 | 
| Name | Line Occurrences | 
|---|---|
| @( | LOOP+2, LOOP+3, EX+4 | 
| LOOP | START+2 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | LOOP+3 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| ABM | EX+7! | 
| ABME | EX+7! | 
| ABME("RTYPE" | START+3* | 
| ABME("S#" | 20+1 | 
| >> ABMEF("LINE" | START+4* | 
| >> ABMP("BDFN" | EX+2* | 
| >> ABMP("EXP" | LOOP+3 | 
| >> ABMP("FMT" | EX+3*, EX+6* | 
| >> ABMP("INS" | LOOP+3 | 
| >> ABMP("NOFMT" | LOOP+4, EX+3 | 
| >> ABMP("PCN" | 30+1 | 
| >> ABMR(62 | 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+5*, 160+6*, 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*, 340+3* , 350+1*, 350+2*, 360+1*, 360+2*, EX+5, EX+7! | 
| >> ABMREC(62 | START+1!, START+4, LOOP+4* | 
| >> ABMRV( | 90+1, 150+1, 160+3, 170+1, 180+1, 330+1, 340+2 | 
| ABMX | EX~, EX+4, EX+5, EX+7! | 
| ABMY | EX~, EX+2, EX+7! | 
| ABMZ | EX~, EX+7! | 
| >> I | LOOP+1*, LOOP+2, LOOP+3, LOOP+4 | 
| >> J | 90+1, 150+1, 160+3, 170+1, 180+1, 330+1, 340+2 | 
| >> K | 90+1, 150+1, 160+3, 170+1, 180+1, 330+1, 340+2 | 
| >> M | 90+1, 150+1, 160+3, 170+1, 180+1, 330+1, 340+2 | 
| U | 90+1, 150+1, 160+3, 170+1, 180+1, 330+1, 340+2 | 
| X | 160+2~, 160+3*, 160+4*, 160+5 | 
| >> Y | EX+5*, EX+8 |