©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
XUSTERM ;SEA/AMF/WDE - DEACTIVATE USER ;01/04/12
Source file <XUSTERM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| END | ||
| GET | ;XUGRP=mail group, XUKEY=keys, XUSUR=mail surrogates, XUJ=# baskets, XUK=# mail msg, XUIN=# in-basket msg
|
|
| ACT1 | ||
| ACT2 | ;XUACT(5) All Mail access, Mail groups
|
|
| WHEN | ||
| INQ | ;Ask to show User Inquiry
|
|
| ACT | ;First let others clean-up, Then do our part.
|
|
| ;Remove mail access
|
||
| NOW | ||
| LKUP |
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | WHEN+1 |
| ^DIC | LKUP+2 |
| ^DIE | ACT+6, ACT+11 |
| ^DIK | ACT1+2, ACT1+4, ACT1+6, ACT1+8, ACT1+10 |
| EN1^DIP | INQ+3 |
| ^DIR | NOW+1, INQ+2, INQ+4 |
| $$NOW^XLFDT | NOW+1 |
| TERMINAT^XMUTERM1 | MAIL+1 |
| $$GET^XPAR | ACT+8 |
| DELUSR^XPAR3 | ACT1+15 |
| TERM^XUA4A72 | ACT1+13 |
| D2^XUFILE1 | ACT1+11 |
| $$GET^XUPARAM | LKUP+4 |
| XUDIE^XUS5 | LKUP+4 |
| DEQUE^XUSERP | ACT+13 |
| SEND^XUSTERM1 | ACT2+2 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(19.1 - [#19.1] | GET+10, ACT1+2 |
| ^DISV( | ACT1! |
| ^VA(200 - [#200] | LKUP+5, GET+4, GET+9, GET+15, GET+24, ACT+3, ACT+8, ACT+12, ACT+15, ACT1+2 , ACT1+4, ACT1+6, ACT1+8, ACT1+10 |
| ^XMB(3.7 - [#3.7] | GET+14, GET+17, GET+18 |
| ^XMB(3.8 - [#3.8] | GET+5, GET+6, GET+7 |
| Name | Line Occurrences |
|---|---|
| ACT | NOW+2 |
| END | LKUP+2, LKUP+5, WHEN+2, NOW+3 |
| GET | LKUP+4 |
| INQ | LKUP+3 |
| ACT2+1 | |
| NOW | LKUP+6 |
| WHEN | LKUP+6, NOW+1 |
| Name | Field # of Occurrence |
|---|---|
| ^(19 | ACT+15 |
| ^(3 | GET+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | GET+2~, GET+10*, GET+11, GET+12 |
| BY | INQ+1~, INQ+3* |
| C | END! |
| D | END! |
| D0 | END! |
| DA | LKUP~, LKUP+4*, LKUP+5, GET+4*, ACT+2~, ACT+6*, ACT+11*, ACT+15*, ACT1+2*, ACT1+4* , ACT1+6*, ACT1+8*, ACT1+10*, ACT1+11*, END! |
| DA(1 | ACT1+2*, ACT1+4*, ACT1+6*, ACT1+8*, ACT1+10*, ACT1+11* |
| DI | END! |
| DIC | LKUP~, LKUP+1*, LKUP+2!, INQ+1~, INQ+3*!, ACT+2~, ACT+15!, END! |
| DIC("A" | LKUP+1* |
| DIC("S" | LKUP+1* |
| DIC(0 | LKUP+1* |
| DIE | LKUP+4*, ACT+2~, ACT+6*, ACT+11*, END! |
| >> DIK | ACT1+2*, ACT1+4*, ACT1+6*, ACT1+8*, ACT1+10* |
| DIR | LKUP~, INQ+1~, INQ+4!, END!, END+1! |
| DIR("??" | NOW* |
| DIR("A" | NOW*, INQ+2* |
| DIR("B" | NOW*, INQ+2* |
| DIR(0 | NOW*, INQ+2*, INQ+4* |
| DIRUT | LKUP~, LKUP+3, INQ+2, END+1! |
| DR | LKUP+4*, ACT+2~, ACT+6*, ACT+11*, END! |
| DT | LKUP+5 |
| FLDS | INQ+1~, INQ+3* |
| FR | INQ+1~, INQ+3* |
| >> I | GET+17*, GET+18, GET+19 |
| L | INQ+1~, INQ+3* |
| TO | INQ+1~, INQ+3* |
| U | LKUP+5, NOW+1, GET+4, GET+6, GET+7, GET+8, GET+11, GET+12, GET+15, GET+18 , GET+24, ACT+15, ACT1+2 |
| >> X | NOW+1 |
| XU10 | GET+2~, GET+3*, GET+8*, GET+21, GET+22 |
| XU11 | GET+2~, GET+3*, GET+8*, GET+22 |
| XU20 | GET+2~, GET+3*, GET+10*, GET+23 |
| XU21 | GET+2~, GET+3*, GET+11*, GET+23 |
| XU30 | GET+2~ |
| XU31 | GET+2~, GET+3*, GET+15*, GET+22 |
| XUACT | LKUP+5*, LKUP+6, END! |
| XUACT( | ACT+15* |
| XUACT(19 | ACT+15* |
| XUACT(5 | MAIL+1 |
| XUACT(6 | ACT1+2, ACT1+4 |
| XUDA | LKUP~, LKUP+2*, LKUP+4, INQ+3, GET+4, GET+5, GET+7, GET+9, GET+14, GET+17 , GET+18, GET+24, ACT+3, ACT+6, ACT+8, ACT+11, ACT+12, ACT+13, ACT+15, ACT1 , ACT1+2, ACT1+4, ACT1+6, ACT1+8, ACT1+10, ACT1+11, ACT1+13, ACT1+15, END!, MAIL+1 |
| XUDB | END! |
| XUDC | END! |
| XUDP | END! |
| XUDT | LKUP+5*, WHEN+1, NOW+1*, ACT1+13, END! |
| XUEMP | GET+24*, END! |
| XUF | END! |
| XUGP | END! |
| XUGRP | GET+2!, GET+24, END! |
| XUGRP( | GET+7* |
| XUI | GET+5*, GET+6, GET+7, GET+9*, GET+10, GET+13, GET+14*, GET+15, ACT+15*, ACT1+2* , ACT1+4*, ACT1+6*, ACT1+8*, ACT1+10*, END! |
| XUIN | GET+16*, GET+19*, GET+24, END! |
| XUJ | GET+16*, GET+18*, GET+21, GET+24, ACT+15*, END! |
| XUK | GET+6*, GET+7, GET+8, GET+16*, GET+19*, GET+21, GET+24, END! |
| XUKEY | GET+2!, GET+24, END! |
| XUKEY( | GET+13* |
| XUNAM | WHEN, NOW, GET+4*, ACT+15*, END! |
| XUNUM | GET+16*, GET+18*, GET+19, END! |
| XUSUR | GET+2!, GET+24, END! |
| XUSUR( | GET+15* |
| XUTX1 | GET+2!, END+1! |
| XUTX1(1 | GET+21* |
| XUTX1(2 | GET+22* |
| XUTX1(3 | GET+22* |
| XUTX2 | GET+2!, END+1! |
| XUTX2(1 | GET+23* |
| XUTX2(2 | GET+23* |
| XUVE | NOW+2*, ACT1+2, ACT1+4, ACT2+3, END! |
| Y | LKUP+2, INQ+1~, INQ+2, END! |
| >> ZTDESC | WHEN+1* |
| >> ZTDTH | WHEN+1* |
| >> ZTIO | WHEN+1* |
| >> ZTRTN | WHEN+1* |
| >> ZTSAVE("XUDA" | WHEN+1* |