©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
XBGL ;IHS/ITSC/DMJ - GLOBAL LISTER [ 03/17/2005 10:46 AM ]
Source file <XBGL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DISP | ;OUTPUT
|
|
| ER1 | ;FIRST ERROR CONDITION
|
|
| ER2 | ;SECOND ERROR CONDITION
|
|
| I1 | ;SET UP INPUT FOR COMPARISON
|
|
| START | ;START HERE
|
|
| MATCH | ;DECIPHER INPUT
|
|
| LOOP | ;LOOP HERE
|
|
| FIRST | ;INITIAL ENTRY
|
| Name | Field # of Occurrence |
|---|---|
| ^DIR | START+2, DISP+5 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TRAP" | I1+8, FIRST+1, LOOP+1 |
| Name | Line Occurrences |
|---|---|
| DISP | FIRST+3, LOOP+2 |
| LOOP | ER1+1 |
| MATCH | LOOP+2 |
| START | START+4, FIRST+3, LOOP+2, LOOP+3, ER2+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIR | START+1!, START+2!, START+3!, DISP+5! |
| DIR("A" | START+2* |
| DIR(0 | START+2*, DISP+5* |
| >> I | I1+2*, I1+6*, I1+7, I1+8, I1+9, I1+10, I1+11, I1+12, I1+13, I1+14 , MATCH+6*, MATCH+7, MATCH+8, MATCH+9 |
| IOF | DISP+7 |
| >> X | I1+8*, FIRST+1*, LOOP+1* |
| XB | START+1! |
| XB("*" | MATCH+6*, MATCH+7*, MATCH+11 |
| XB("=" | DISP+2*, DISP+3 |
| XB("F1" | FIRST+2*, LOOP+2, MATCH+1*, MATCH+11*, MATCH+12* |
| XB("F2" | MATCH+3*, MATCH+5*, MATCH+10*, DISP+1 |
| XB("F3" | I1+9*, I1+11* |
| XB("I" | I1+7*, I1+8, I1+9*, I1+10*, I1+11*, I1+12, I1+13, I1+14*, I1+15*, MATCH+5 , MATCH+6, MATCH+7, MATCH+9 |
| XB("IN" | START+7*, START+8, I1+1, I1+2, I1+4, I1+15*, FIRST+2, MATCH+2, MATCH+5, MATCH+12 |
| XB("IS" | I1+4*, I1+5*, I1+6, I1+7 |
| XB("LP" | I1+2*, I1+5, I1+15 |
| XB("OUT" | FIRST+3, LOOP+2, DISP+6* |
| XB("RB" | START+8*, I1+15, I1+16 |
| XB("RP" | I1+2*, I1+5, I1+15 |
| XB("S" | MATCH+4*, MATCH+5, MATCH+8*, MATCH+9 |
| XB("SB" | MATCH+4*, MATCH+8 |
| XB("X" | I1+3*, I1+12*, I1+13*, I1+14*, I1+16 |
| XB("Y" | START+7*, I1+16*, FIRST+3, LOOP+2*, MATCH+1, MATCH+4, DISP+2, DISP+3 |
| XB("Z" | I1+3*, I1+12*, I1+14*, I1+15 |
| >> Y | START+3, START+4, START+5*, START+6*, START+7, I1+15, DISP+6 |