ABME8BHT ; IHS/ASDST/DMJ - 837 BHT Segment ;
Source file <ABME8BHT.m>
Package | Total | Call Graph |
---|---|---|
Third Party Billing | 2 | $$Y2KD2^ABMDUTL ($$FMT,$$TCN)^ABMERUTL |
VA Fileman | 1 | NOW^%DTC |
Name | Comments | DBIA/ICR reference |
---|---|---|
10 | ;segment
|
|
20 | ;BHT01 - Hierarchical Structure Code
|
|
30 | ;BHT02 - Transaction Set Purpose Code
|
|
50 | ;BHT04 - Date
|
|
40 | ;BHT03 - Reference Identification
|
|
60 | ;BHT05 - Time
|
|
START | ;START HERE
|
|
70 | ;BHT06 - Transaction Type Code
|
|
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 |
---|---|
>> % | 60+2 |
ABM | START+4! |
ABME | START+4! |
ABME("RTYPE" | START+2*, LOOP+3 |
>> ABMP("EXP" | LOOP+3 |
>> ABMP("INS" | LOOP+3 |
>> ABMPXMIT | 40+1 |
>> ABMR("BHT" | START+1!, LOOP+5, 10+1*, 20+1*, 30+1*, 40+1*, 50+1*, 60+2*, 60+3*, 70+1* |
>> ABMREC("BHT" | START+1!, LOOP+4*, LOOP+5* |
DT | 50+1 |
>> I | LOOP+1*, LOOP+2, LOOP+3, LOOP+5 |