©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
XUSTZ ;SF/RWF - Security Twilight Zone ;11/25/08 15:21
Source file <XUSTZ.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LKUSER(IEN) | ;Lock user, Return: 0 not locked, 1 locked
|
|
| RA(IP) | ;EF. Entry point for Remote Access (Broker/Vistalink) and R/S
|
|
| LKTME() | ;Get Lock-out time
|
|
| A1 | ;Let user keep trying
|
|
| FILE | ;File data into Access Atempt Log
|
|
| FAC | ||
| ASK | ||
| SB | ;Send the XUSLOCK bulletin
|
| Name | Field # of Occurrence |
|---|---|
| $$EZBLD^DIALOG | XUSTZ+18, RA+7, RA+11, ASK+1 |
| UPDATE^DIE | LKUSER+10 |
| $$GET1^DIQ | LKUSER+4 |
| $$HADD^XLFDT | LKUSER+9 |
| $$HTFM^XLFDT | LKUSER+9 |
| ^XMB | SB+2 |
| $$ACCEPT^XUS | A1+1, A1+7 |
| FAC^XUS | FAC |
| $$NO^XUS3 | A1+12 |
| CLRFAC^XUS3 | LKUSER+7 |
| EN^XUSHSHP | FILE+5 |
| $$IP^XUSTZIP | RA+3 |
| $$IPCHECK^XUSTZIP | RA+9 |
| $$LKCHECK^XUSTZIP | XUSTZ+12 |
| $$LKSET^XUSTZIP | RA+10 |
| $$LKWAIT^XUSTZIP | XUSTZ+12 |
| CLEAN^XUSTZIP | XUSTZ+16, RA+5 |
| FAAL^ZUA | FILE+8 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DISV("XU" | XUSTZ+19! |
| ^XTV(8989.3 - [#8989.3] | LKTME+2, LKUSER+1 |
| Name | Line Occurrences |
|---|---|
| $$LKTME | XUSTZ+8, RA+3 |
| $$LKUSER | RA+7 |
| $$RA | XUSTZ+10 |
| A1 | A1+2 |
| ASK | XUSTZ+15 |
| FAC | A1+4, A1+8 |
| FILE | XUSTZ+17, RA+4, A1+10 |
| SB | XUSTZ+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | ASK+2*, A1+4*, A1+7*, A1+12* |
| >> %1 | A1+4*, A1+7*, A1+8* |
| DT | FILE+5 |
| DUOUT | XUSTZ+4~, XUSTZ+15, A1+2 |
| FDA | LKUSER+2~, LKUSER+4*, LKUSER+5, LKUSER+8! |
| FDA(200 | LKUSER+9* |
| >> I | FILE+5*, FILE+9* |
| IEN | LKUSER~, LKUSER+4, LKUSER+9 |
| IO("IP" | FILE+4, SB+1, LKUSER+7 |
| IO("ZIO" | FILE+4*, FILE+10*, SB+1 |
| ION | SB+1 |
| >> IOS | XUSTZ+19, FILE+5 |
| IP | RA~, RA+3*, RA+9, RA+10 |
| SETLK | XUSTZ+4~, RA+10*, RA+11 |
| TMOUT | XUSTZ+4~, XUSTZ+8*, XUSTZ+12*, RA+2~, RA+3*, RA+7, ASK+2*, A1+1, LKUSER+9 |
| TXT | RA+2~, RA+3*, RA+7*, RA+11*, RA+13 |
| U | A1+3, LKTME+1, LKTME+2, LKUSER+1 |
| >> X | A1+1*, A1+2, A1+3, A1+4*, A1+7*, A1+8, FILE+5* |
| >> X1 | FILE+5* |
| >> X2 | FILE+5* |
| >> XMB | SB+1* |
| >> XMB(1 | SB+1* |
| >> XMB(2 | SB+1* |
| >> XMB(3 | SB+1* |
| >> XOPT | LKTME+1 |
| >> XUC | ASK+2* |
| >> XUEOFF | ASK+2 |
| >> XUEXIT | ASK+2* |
| >> XUF | XUSTZ+17, A1+4, A1+8, A1+10, FILE+3 |
| >> XUF( | RA+7, A1+10*, FILE+5*, FILE+9!, FILE+10* |
| >> XUFAC | RA+3*, A1+10*, A1+12*, FILE+6, FILE+10*, SB+1 |
| XUM | ASK~, ASK+2* |
| >> XUNOW | LKUSER+5 |
| >> XUSTMP(51 | A1+1 |
| >> XUSTMP(52 | A1+7 |
| XUSTZ | XUSTZ+4~, XUSTZ+6* |
| XUT | FILE+4~, FILE+6* |
| ZIO | FILE+4~*, FILE+10 |