ABMEH99 ; IHS/ASDST/DMJ - HCFA-1500 EMC RECORD ZA0 (File Transfer) ;
Source file <ABMEH99.m>
Package | Total | Call Graph |
---|---|---|
Third Party Billing | 2 | $$ENVOY^ABMEF19 ($$ENVY,$$FMT,$$RCID,SET)^ABMERUTL |
Package | Total | Caller Graph |
---|---|---|
Third Party Billing | 3 | ABMEF15 ABMEF19 ABMEF20 |
Name | Comments | DBIA/ICR reference |
---|---|---|
10 | ;1-3 Record type
|
|
20 | ;4-19 Sub ID
|
|
30 | ;20-28 Reserved
|
|
50 | ;45-51 File Service Line Count
|
|
40 | ;29-44 Receiver ID
|
|
60 | ;52-58 File Record Count
|
|
START | ;START HERE
|
|
110 | ;201-320 Filler (Local Use)
|
|
70 | ;59-65 File Claim Count
|
|
90 | ;70-80 Total Charges for the File
|
|
80 | ;66-69 Batch Count
|
|
100 | ;81-200 Filler (National Use)
|
|
LOOP | ;LOOP HERE
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ABMEXLM("AA" | LOOP+3 |
Name | Line Occurrences |
---|---|
@( | LOOP+2, LOOP+3 |
LOOP | START+3 |
Name | Field # of Occurrence |
---|---|
^( | LOOP+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ABM | START+4! |
ABME | START+4! |
ABME("RTYPE" | START+2* |
>> ABMEF("BATCH#" | 80+1 |
>> ABMP("EXP" | LOOP+3 |
>> ABMP("INS" | LOOP+3, 40+3, 40+4 |
>> ABMP("NOFMT" | LOOP+4 |
>> ABMP("SUBID" | 20+1 |
>> ABMP("VTYP" | 40+3 |
>> ABMR(99 | LOOP+4, 10+1*, 20+1*, 20+2*, 30+1*, 30+2*, 40+1*, 40+3*, 40+4*, 40+5* , 50+1*, 60+1*, 70+1*, 80+1*, 80+2*, 90+1*, 100+1*, 100+2*, 110+1*, 110+2* |
>> ABMREC(99 | START+1!, LOOP+4* |
ABMRT | START+4! |
ABMRT(99 | 50+1, 60+1, 70+1, 90+1 |
>> I | LOOP+1*, LOOP+2, LOOP+3, LOOP+4 |