©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
XQOR1 ; SLC/KCM - Main Unwinding Loop ;08/24/98 12:35 [ 04/02/2003 8:29 AM ]
Source file <XQOR1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NXT | ||
| EXCT | ||
| REDO | ||
| EXST | ||
| EACH | ||
| EXAT | ||
| STAK | ||
| LOOP | ;From: EN^XQOR
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("XQORHSTK" | EACH+2 |
| ^TMP("XQORS" | LOOP+1, LOOP+5, LOOP+6*, LOOP+8*, REDO, REDO+1*, STAK*, STAK+1*, STAK+2, STAK+3 , EXST*, EXST+1, EXST+2*, EXST+3!, EXAT, EXAT+1, EXAT+4, EXCT, EACH, EACH+3 |
| Name | Line Occurrences |
|---|---|
| @( | REDO |
| EACH | LOOP+2, EXST+3 |
| EXAT | LOOP+7, REDO+1 |
| EXCT | LOOP+1, LOOP+2 |
| EXST | STAK |
| NXT | STAK+1, STAK+2 |
| REDO | EXST+3 |
| STAK | NXT |
| Name | Field # of Occurrence |
|---|---|
| ^("REF" | LOOP+5, EXAT+4 |
| ^(15 | EXAT+1 |
| ^(20 | LOOP+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DIROUT | LOOP+1, LOOP+2, LOOP+7, STAK+2, NXT, EXST+3 |
| >> DTOUT | LOOP+1, LOOP+2, LOOP+7, STAK+2, NXT, EXST+3 |
| >> OROLD | EACH+1 |
| ORX | LOOP+5~*, EXAT+4~* |
| U | LOOP+4, LOOP+5, EXAT+4 |
| X | LOOP+6~, STAK+2*, STAK+3*, EXAT+1* |
| XQORFLG | LOOP+8! |
| XQORFLG("PS" | LOOP+8 |
| XQORFLG("SH" | LOOP+8 |
| >> XQORHSTK | EACH+2 |
| XQORMSG | EACH+2!* |
| >> XQORNOD | EXST+1* |
| >> XQORNOD(0 | EXST+1* |
| XQORPOP | LOOP+1, LOOP+2, LOOP+7, STAK+1!, STAK+2, NXT, EXST!, EXST+3 |
| XQORQUIT | LOOP+1, LOOP+2, LOOP+7, STAK+1!, STAK+2, NXT!, EXST+3 |
| >> XQORS | LOOP+1, LOOP+5, LOOP+6, LOOP+8, REDO, REDO+1, STAK, STAK+1, STAK+2, STAK+3 , EXST, EXST+1, EXST+2, EXST+3, EXAT, EXAT+1, EXAT+4, EXCT, EACH, EACH+3 |
| >> XQXFLG | LOOP+4, EXAT+3, EXAT+4 |
| >> XQY0 | LOOP+5, EXAT+4 |
| >> Y | LOOP+6* |