©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
ASUAUAST ;DSD/DFM - UTILITY GET AREA & STATION ; [ 04/15/98 2:50 PM ]
Source file <ASUAUAST.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| STAT | ;EP ;STATION CODE CHECK
|
|
| AREA | ;EP ;AREA CODE
|
|
| READDST | ;
|
|
| STEXIT | ;
|
|
| SETSTNM | ;
|
|
| STAFOUND | ;
|
|
| READSTA | ;STATION READ
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ASUTB01( | STAT+3, STAT+4, STAT+6, STAT+7, SETSTNM+1 |
| Name | Line Occurrences |
|---|---|
| AREA | ASUAUAST+2 |
| READDST | STAT+1 |
| READSTA | STAT+4 |
| SETSTNM | STAFOUND+2 |
| STAFOUND | STAT+2 |
| STAT | ASUAUAST+2 |
| STEXIT | STAT+3, STAFOUND+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ASUK("AREA" | AREA+2, AREA+3 |
| >> ASUK("STATION" | STAT+7*, STAFOUND+2, STAFOUND+3, SETSTNM+1*, SETSTNM+2 |
| >> ASUTR(1 | AREA+3*, STAT+3*, STAT+4, STAT+6, STAT+7, READDST+4, READDST+7*, SETSTNM+1 |
| >> ASUTRNS | STAT+2, STAT+6, STAFOUND+1, READDST+7 |
| >> ASUTRNS( | STAT+2, STAT+6*, STAFOUND+1, READDST+7* |
| >> ASUTRNS("TRAN | SACTION CODE" , STAT+1 |
| ASUTRSST | READDST+1! |
| ASUTRSTN | STAT+4*!, STAT+5! |
| >> DA(1 | READDST+4* |
| DIC | ASUAUAST+2!, AREA+1!* |
| DIC("S" | STAT+1!, READSTA+1* |
| DIC(0 | AREA+1* |
| DIR | ASUAUAST+2! |
| DIR("?" | READDST+3* |
| DIR("A" | READDST+2* |
| DIR(0 | READDST+4* |
| >> DIROUT | READDST+6 |
| >> DTOUT | READDST+6 |
| >> DUOUT | READDST+6 |
| U | STAT+6, STAT+7, READDST+7, SETSTNM+1 |
| X | ASUAUAST+2!, AREA+3* |
| Y | ASUAUAST+2!, AREA+3, READDST+7 |