ABME3HA0 ; IHS/ASDST/SDR - HCFA-1500 NSF 3.01 RECORD HA0 (Claim Root Segment) ;
Source file <ABME3HA0.m>
Package | Total | Call Graph |
---|---|---|
Third Party Billing | 2 | WRITE^ABMEF20 ($$FMT,SET)^ABMERUTL |
Name | Comments | DBIA/ICR reference |
---|---|---|
10 | ;1-3 Record type
|
|
20 | ;4-5 Sequence
|
|
30 | ;6-22 Patient Control Number
|
|
50 | ;40-320 Extra Narrative Data
|
|
40 | ;23-39 Line Item Control Number
|
|
START | ;START HERE
|
|
ADD | ;ADD TO RECORD
|
|
EX(ABMX,ABMY,ABMZ) | ;EXTRINSIC FUNCTION HERE
|
|
LOOP | ;LOOP HERE
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ABMDBILL( | 50+1 |
^ABMEXLM("AA" | LOOP+3 |
Name | Line Occurrences |
---|---|
@( | LOOP+2, LOOP+3, EX+4 |
ADD | LOOP+4 |
LOOP | START+3 |
Name | Field # of Occurrence |
---|---|
^( | LOOP+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ABM | START+4!, EX+7! |
ABME | START+4!, EX+7! |
>> ABMEF("LINE" | LOOP+5* |
>> ABMP("BDFN" | 50+1, EX+2* |
>> ABMP("EXP" | LOOP+3 |
>> ABMP("FMT" | EX+3*, EX+6* |
>> ABMP("INS" | LOOP+3 |
>> ABMP("NOFMT" | ADD+1, EX+3 |
>> ABMP("PCN" | 30+1 |
>> ABMR(64 | ADD+1, 10+1*, 20+1*, 20+2*, 30+1*, 30+2*, 40+1*, 40+2*, 50+1*, 50+2* , EX+5, EX+7! |
>> ABMREC(64 | START+1!, LOOP+5, ADD+1* |
ABMRV | START+4! |
ABMX | EX~, EX+4, EX+5, EX+7! |
ABMY | EX~, EX+2, EX+7! |
ABMZ | EX~, EX+7! |
DUZ(2 | 50+1 |
>> I | LOOP+1*, LOOP+2, LOOP+3, ADD+1 |
U | 50+1 |
>> Y | EX+5*, EX+8 |