©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
DIFGGU ;SFISC/XAK,EDE(OHPRD)-FILEGRAM FUNCTIONS ; [ 11/10/92 10:38 AM ]
Source file <DIFGGU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INCSET | ; EXTERNAL ENTRY POINT
; INCREMENT LINE COUNT AND SET LINE |
|
| DELLINK | ; EXTERNAL ENTRY POINT
; DELETE LAST @LINK AND DECREMENT LINK COUNTER |
|
| KILLDEC | ; EXTERNAL ENTRY POINT
; KILL LAST LINE AND DECREMENT LINE COUNT |
|
| LOOKUP | ; EXTERNAL ENTRY POINT
; LOOKUP ENTRY IN FILE/SUBFILE |
|
| SETLINK | ;
|
|
| SPBLK | ; SPECIAL BLOCK
|
|
| SETX | ; SET X TO @LINK OR LOOKUP VALUE
|
|
| KILLLL | ; EXTERNAL ENTRY POINT
; KILL LAST LINE, DECREMENT LINE COUNT, KILL LAST LINK, DECREMENT LINK COUNT |
|
| SETX2 | ; IF POINTER AND ALREADY LOOKED UP SET @LINK
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | LOOKUP+6, SETX2+3, SETX2+4, SETX2+8 |
| ^UTILITY("DIFGLINK" | LOOKUP+5, LOOKUP+9, SETLINK+1*, SETLINK+2, SETX2+2, SETX2+10, DELLINK+2!, DELLINK+3* |
| ^UTILITY("DIQ1" | SETX+6!, SETX+9, SETX+10! |
| Name | Line Occurrences |
|---|---|
| DELLINK | KILLLL+2 |
| INCSET | LOOKUP+10 |
| KILLDEC | KILLLL+2 |
| SETLINK | LOOKUP+5 |
| SETX | LOOKUP+2 |
| SETX2 | SETX+2 |
| SPBLK | LOOKUP+11 |
| Name | Field # of Occurrence |
|---|---|
| ^("UP" | LOOKUP+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | LOOKUP+6*! |
| B | LOOKUP+6*! |
| C | LOOKUP+6*! |
| DA | SETX+7*, SETX+11! |
| DIC | SETX+7*, SETX+11! |
| >> DIFG( | LOOKUP+5, LOOKUP+6, LOOKUP+7, LOOKUP+8, LOOKUP+9, SETLINK+1, SETX+5, SETX+6, SETX+7, SETX+9 , SETX+10, SETX+11, SETX2+2, SETX2+3, SETX2+4, SETX2+5, SETX2+6, SETX2+8, DELLINK+2 |
| >> DIFG("FGR" | INCSET+5, KILLDEC+2 |
| >> DIFG("PARM" | LOOKUP+6, LOOKUP+7 |
| >> DIFG("WP" | INCSET+4 |
| >> DIFGGU( | SETX+5, SETX2+5 |
| DIFGGUQ | LOOKUP+3, SETX+3, SETX2+1!, SETX2+9* |
| >> DILC | INCSET+2*, INCSET+5, KILLDEC+2, KILLDEC+3* |
| >> DILL | LOOKUP+5, LOOKUP+6, LOOKUP+7, LOOKUP+8, LOOKUP+9, SETLINK+1, SETX+5, SETX+6, SETX+7, SETX+9 , SETX+10, SETX+11, SETX2+2, SETX2+3, SETX2+4, SETX2+5, SETX2+6, SETX2+8, DELLINK+2 |
| DIQ | SETX+8! |
| DIQ(0 | SETX+8* |
| >> DITAB | SPBLK+1*, SPBLK+3*, INCSET+4 |
| DR | SETX+7*, SETX+11! |
| G | SETX2+7~, SETX2+8*, SETX2+9 |
| S | LOOKUP+12!, INCSET+3*, INCSET+4*, INCSET+5 |
| U | LOOKUP+6, LOOKUP+7, LOOKUP+8, LOOKUP+9, SETX2+3, SETX2+4, SETX2+6, SETX2+8 |
| V | LOOKUP+6*, LOOKUP+7*, LOOKUP+8*, LOOKUP+9*, LOOKUP+12!, INCSET+5 |
| X | LOOKUP+8, LOOKUP+12!, SETX+1*, SETX+4, SETX+5*, SETX+9*, SETX2+2*, SETX2+4*, SETX2+10* |
| Y | SETX2+5*, SETX2+6*, SETX2+9, SETX2+10, SETX2+11! |
| Z | LOOKUP+4*, LOOKUP+11, LOOKUP+12!, SETLINK+2* |