©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
%ZTER1 ;ISC-SF.SEA/JLI - ERROR TRAP TO LOG ERRORS (VAX LOCAL SYMBOL TABLE) ;11/23/2005
Source file <ZTER1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VERR | ;
|
|
| VXD | ;Record VAX DSM variables
|
|
| STACK | ;Record the new $STACK variable
|
|
| VNXT3 | ||
| VNXT2 | ||
| SAVE(%n,%v) | ;Save name and value into global, use special variables
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("$ZE" | STACK+2 |
| Name | Line Occurrences |
|---|---|
| SAVE | STACK+3, STACK+4, STACK+5, STACK+6, STACK+7, STACK+8, STACK+11, STACK+12, STACK+13, STACK+14 |
| VNXT2 | VXD+5 |
| VNXT3 | VXD+6 |
| Name | Field # of Occurrence |
|---|---|
| ^("D" | VNXT2*, VNXT3+1* |
| ^(2 | STACK+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | STACK+9~, STACK+10*, STACK+11, STACK+12, STACK+13, STACK+14, STACK+15 |
| %1 | STACK+9~, STACK+10*, STACK+11, STACK+12, STACK+13, STACK+14 |
| %2 | STACK+9~*, STACK+15*, STACK+16 |
| >> %GETJPI | VXD+1 |
| >> %SYSFAO | VXD+1 |
| >> %ZTER111 | VXD+3*, VXD+4, VXD+5, VXD+6, VNXT2, VNXT3 |
| %ZTER11I | VXD+1! |
| >> %ZTER11Q | VNXT3*, VNXT3+1* |
| %ZTER35 | STACK+2~*, STACK+6 |
| >> %ZTERCNT | VNXT2*, VNXT3+1*, SAVE+1*, SAVE+2 |
| >> %ZTERRT | VXD+1, VXD+2, VNXT2, VNXT3+1, STACK+16, SAVE+1, SAVE+2, VERR+1 |
| %n | SAVE~, SAVE+1 |
| %v | SAVE~, SAVE+2 |