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 |