ABME5PER ; IHS/ASDST/DMJ - 837 PER Segment [ 09/15/2003 3:40 PM ]
Source file <ABME5PER.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 10 | ;segment
|
|
| 20 | ;PER01 - Contact Function Code
|
|
| 30 | ;PER02 - Name
|
|
| 50 | ;PER04 - Communication Number
|
|
| 40 | ;PER03 - Communication Number Qualifier
|
|
| 60 | ;PER05 - Communication Number Qualifier
|
|
| START | ;START HERE
|
|
| 70 | ;PER06 - Communication Number
|
|
| 90 | ;PER08 - Communication Number
|
|
| 80 | ;PER07 - Communication Number Qualifier
|
|
| 100 | ;PER09 - Contact Inquiry Reference
|
|
| LOOP | ;LOOP HERE
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABMEXLM("AA" | LOOP+3 |
| ^AUTTLOC - [#9999999.06] | 50+1 |
| 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*, LOOP+3 |
| >> ABMP("EXP" | LOOP+3 |
| >> ABMP("INS" | LOOP+3 |
| >> ABMR("PER" | START+1!, LOOP+5, 10+1*, 20+1*, 30+1*, 40+1*, 50+1*, 50+2*, 60+1*, 70+1* , 80+1*, 90+1*, 100+1* |
| >> ABMREC("PER" | START+1!, LOOP+4*, LOOP+5* |
| DUZ(2 | 50+1 |
| >> I | LOOP+1*, LOOP+2, LOOP+3, LOOP+5 |