©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
DGOIL3 ;ALB/AAS - CALC LOS BY TRANSFER (CONT), GET ASIH MOVEMENTS ; 23-OCT-90
Source file <DGOIL3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RESTORE | ;set variables back to original
|
|
| SET | ;set up new variables needed
|
|
| SAVE | ;variables needing saving
|
|
| END | ||
| CALC | ;find ASIH movements
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPM - [#405] | SET+2 |
| Name | Line Occurrences |
|---|---|
| RESTORE | SET+2 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | SET+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> A | SAVE+1, SET+2*, RESTORE+1* |
| >> A(1 | SAVE+1*, END! |
| >> A1 | SAVE+1, RESTORE+2* |
| >> A1(1 | SAVE+1*, RESTORE+2, END! |
| >> B | SAVE+1, SET+2*, RESTORE+2* |
| >> B("SAVE" | SAVE+1*, RESTORE+2, END! |
| >> D | SAVE+1, RESTORE+1, RESTORE+2* |
| >> D(1 | SAVE+1*, RESTORE+2, END! |
| DGDONE | END! |
| >> DGPMIFN | SAVE+1, SET+2*, RESTORE+2* |
| >> DGPMIFN(1 | SAVE+1*, RESTORE+2, END! |
| >> DGPMIFN1 | SAVE+1, RESTORE+2* |
| >> DGPMIFN1(1 | SAVE+1*, RESTORE+2, END! |
| DGS | SAVE+2! |
| >> DGT | SET+1* |
| >> I | SAVE+1, SET+1*, RESTORE+2* |
| >> I(1 | SAVE+1*, RESTORE+2, END! |
| >> X( | SET+1* |
| >> Z | SET+2 |