©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
XBFDINFO(FILE,FIELD,ROOT) ; IHS/ADC/GTH - RETURN FIELD INFORMATION ; [ 02/07/97 3:02 PM ]
Source file <XBFDINFO.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ;
|
|
| FLD(FILE,FIELD,ROOT) | ;PEP - Return information about a field.
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | START+5, START+14 |
| ^DIC - [#1] | START+14 |
| Name | Line Occurrences |
|---|---|
| START | FLD+1 |
| Name | Field # of Occurrence |
|---|---|
| ^( | START+14 |
| ^(0 | START+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| FIELD | XBFDINFO~, START+4, START+5, START+8, START+9, START+13, START+14, FLD~ |
| FILE | XBFDINFO~, START+3, START+5, START+14, FLD~ |
| ROOT | XBFDINFO~, START+1!, FLD~ |
| ROOT("NAME" | START+6* |
| ROOT("NODE" | START+8* |
| ROOT("PFILE" | START+13* |
| ROOT("PGBL" | START+13* |
| ROOT("PIECE" | START+9* |
| ROOT("SFILE" | START+12* |
| ROOT("TYPE" | START+7*, START+11*, START+12* |
| ROOT("VPFILE" | START+14* |
| ROOT("VPGBL" | START+14* |
| W | START+2~, START+14* |
| X | START+2~, START+5*, START+6, START+7, START+8, START+9, START+10, START+12, START+13 |
| Y | START+2~, START+10*, START+11, START+13, START+14 |
| Z | START+2~, START+14* |