©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
INHULOG ; JC Hrubovcak ; 23 Aug 95 18:35
Source file <INHULOG.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | ^%ZIS $$DEVID^%ZTOS |
| Uncategorized | 1 | SETDT^UTDT |
| Package | Total | Caller Graph |
|---|---|---|
| IHS Generic Interface System | 4 | INHUVUT1 INHVCRA INHVCRV INTSUT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CLRSTOR | ; Clear out scratch storage, similar to K2^XUS
|
|
| SETENV(NEWDUZ,NEWDIV) | ; function, setup environment variables, returns false on success
; NEWDUZ= User IEN (required), NEWDIV = Division IEN (optional) - Not used. |
|
| RV(V) | ; random value increment
|
|
| LGNLOG(USR) | ; Logon log subroutine, USR=userIEN, T=date&time, D=device ID
|
|
| DIVCHK(USR,REQDIV) | ; $$function - Division validation for USR.
; Verify: ; - default division exists for USR ; - default division is one of USR's allowable divisions (if allowables ; are specified) ; - if REQDIV is passed in, verify that requested division: ; - is a valid MEDICAL CENTER DIVISION IEN ; - is one of USR's allowables (if allowables are specified) |
|
| DTIME(INUSR,INDEF) | ; function, returns timed-read (in seconds) for INUSR.
; Default=300. For remote systems, result represents the # of seconds ; to wait for remote system to communicate before connection is closed. ; Input: INUSR - (req) USER IEN ; INDEF - (opt) customized default (e.g. for remote systems) |
|
| TICKET() | ; function, returns access ticket, 6 to 10 alphanumerics
|
|
| VALIDIP(INBPN,INADDR) | ; $$function - Validate remote system IP address.
; Verify: ; - minimum length ; - format = 1-3N.1-3N.1-3N.1-3N ; - exists on authorized address list (BACKGROUND PROCESS CONTROL file, ; Client IP Address multiple) |
|
| GETDUZ(AC,VC,ZN) | ; function, returns User IEN and ^DIC(3,IEN,0), or false on failure
; input: AC=Access, VC=Verify, hashed codes (required), ZN=zero node, returned by reference |
|
| PROHBTM(T) | ; boolean function, check for prohibited signon time
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("VOL" | LGNLOG+4, LGNLOG+6 |
| ^DG(40.8 - [#40.8] | DIVCHK+18 |
| ^DIC(3 - [#3] | GETDUZ+3, GETDUZ+4, GETDUZ+5, SETENV+7, DTIME+5, DIVCHK+19, DIVCHK+22, DIVCHK+24 |
| ^DIJUSV( | SETENV+20!, CLRSTOR+4! |
| ^DIJUSV($I | CLRSTOR+4! |
| ^INTHPC - [#4004] | VALIDIP+19, VALIDIP+21 |
| ^ORB("AMA" | CLRSTOR+3! |
| ^ORB("ANEW" | CLRSTOR+3! |
| ^UTILITY( | CLRSTOR+2! |
| ^UTILITY("NSR" | CLRSTOR+1! |
| ^UTILITY($J | CLRSTOR+1! |
| ^XMB(1 - [#4.3] | DTIME+8 |
| ^XMB7( | LGNLOG+6* |
| ^XUSEC(0 - [#3.081] | LGNLOG+3, LGNLOG+4* |
| ^ZUTL("XQ" | LGNLOG+5!, CLRSTOR+1! |
| Name | Line Occurrences |
|---|---|
| $$DIVCHK | SETENV+11 |
| $$DTIME | SETENV+14 |
| $$PROHBTM | GETDUZ+9 |
| $$RV | TICKET+1, TICKET+2 |
| Name | Field # of Occurrence |
|---|---|
| ^( | GETDUZ+5, CLRSTOR+2!, CLRSTOR+4! |
| ^($J | LGNLOG+5* |
| ^(100 | LGNLOG+6* |
| ^(200 | DTIME+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | SETENV+7~, SETENV+8*, SETENV+9*, SETENV+11*, CLRSTOR+2* |
| A | GETDUZ+4~, GETDUZ+5*, GETDUZ+6, GETDUZ+9, GETDUZ+11, DTIME+6~*, DTIME+8*, DTIME+9 |
| AC | GETDUZ~, GETDUZ+2*, GETDUZ+3, GETDUZ+4 |
| ALLOWDIV | DIVCHK+17~, DIVCHK+24* |
| ALLOWDIV( | DIVCHK+25 |
| B | PROHBTM+5~*, PROHBTM+6, PROHBTM+7, PROHBTM+8 |
| C | TICKET+1~, TICKET+2* |
| D | GETDUZ+4~*, GETDUZ+5, GETDUZ+11, LGNLOG+1~*, LGNLOG+4, LGNLOG+6 |
| DEFDIV | DIVCHK+17~, DIVCHK+19*, DIVCHK+20, DIVCHK+25 |
| DEFOK | DIVCHK+17~, DIVCHK+22, DIVCHK+23*, DIVCHK+25* |
| DT | GETDUZ+6, SETENV+9, LGNLOG+3 |
| DTIME | SETENV+14* |
| DUZ | SETENV+2*, SETENV+4, SETENV+13!*, SETENV+14, SETENV+20, CLRSTOR+4 |
| DUZ(0 | SETENV+13* |
| E | PROHBTM+5~*, PROHBTM+6, PROHBTM+7, PROHBTM+8 |
| H | PROHBTM+5~*, PROHBTM+6, PROHBTM+7, PROHBTM+8 |
| INADDR | VALIDIP~, VALIDIP+16, VALIDIP+17, VALIDIP+19, VALIDIP+21 |
| INBPN | VALIDIP~, VALIDIP+19, VALIDIP+21 |
| INDEF | DTIME~, DTIME+9 |
| INUSR | DTIME~, DTIME+5 |
| IO | SETENV+19 |
| IO(0 | SETENV+19 |
| ION | LGNLOG+4 |
| >> IOP | SETENV+19* |
| K | TICKET+1~*, TICKET+2*, TICKET+3 |
| L | TICKET+1~*, TICKET+2 |
| NEWDIV | SETENV~ |
| NEWDUZ | SETENV~, SETENV+3, SETENV+4, SETENV+7, SETENV+11, SETENV+13 |
| >> ORDFN | CLRSTOR+3 |
| REQDIV | DIVCHK~, DIVCHK+18, DIVCHK+19*, DIVCHK+22, DIVCHK+23, DIVCHK+25 |
| REQOK | DIVCHK+17~, DIVCHK+22, DIVCHK+23*, DIVCHK+25* |
| T | PROHBTM~, PROHBTM+3, PROHBTM+5, LGNLOG+1~, LGNLOG+3*, LGNLOG+4, LGNLOG+5, LGNLOG+6 |
| U | GETDUZ+5, GETDUZ+6, GETDUZ+9, SETENV+2*, SETENV+8, SETENV+9, SETENV+13, DTIME+6, DTIME+8, DIVCHK+19 |
| USR | DIVCHK~, DIVCHK+19, DIVCHK+20, DIVCHK+22, DIVCHK+24, LGNLOG~, LGNLOG+1, LGNLOG+4, LGNLOG+6 |
| V | GETDUZ+4~, GETDUZ+5*, GETDUZ+9*, TICKET+1~*, TICKET+2*, RV~, RV+1 |
| VC | GETDUZ~, GETDUZ+2*, GETDUZ+5 |
| X | SETENV+7~*, SETENV+8, SETENV+9, SETENV+13, DIVCHK+17~, DIVCHK+25*, VALIDIP+15~, VALIDIP+19*, VALIDIP+20, VALIDIP+21 |
| XMDUZ | SETENV+13! |
| ZN | GETDUZ~, GETDUZ+2*, GETDUZ+11* |