XUSRB5 ;SFISC/STAFF - FATKAT and KAJEE support ;09/08/2005
Source file <XUSRB5.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 13 | T1^%ZOSV ($$FMTE,$$HTFM,$$NOW)^XLFDT ABT^XQ12 $$NS^XUAF4 $$KSP^XUPARAM ($$CHECKAV,$$UVALID,USER,XOPT,XUVOL)^XUS ($$CHKDIV,LOG,SAVE)^XUS1 DUZ^XUS1A $$BRCVC^XUS2 ($$FAIL,$$TXT,CLRFAC,GETFAC)^XUS3 ($$INHIBIT,$$SHOWPOST,$$VCVALID)^XUSRB $$DECRYP^XUSRB1 $$LKCHECK^XUSTZIP |
MailMan | 1 | $$NU^XMGAPI4 |
RPC Broker | 1 | ($$STATE,KILL)^XWBSEC |
VA Fileman | 1 | $$EZBLD^DIALOG |
Name | Comments | DBIA/ICR reference |
---|---|---|
SET2() | ;EF. Return error code
|
|
FATKAAT1(RET,AVCODE,CLIENTIP) | ;Get division list via proxy
|
|
SET(V) | ;Set into XUTEXT(XUTEXT), Also Called from XU USER SIGN-ON protocol.
|
|
DIVGET(XUDIV,IEN) | ;Get Division data
|
|
POST(CVC) | ;Finish setup partition, I CVC don't log yet
|
|
PH(%T,%R) | ;Check Prohibited time for R/S
|
|
VAX | ||
POST2 | ||
CVC(RET,XU1) | ;change VC, Return 0 = success
|
|
PROHIBIT(%T,%R) | ;See if a prohibited time, (Time from $H, restrict range)
|
|
SET1(FLAG) | ;Setup for FATKAAT
|
|
NOW | ;
|
|
VALIDAV(AVCODE,DIV,CLIP) | ;Check a users access
|
|
USER() | ;
|
|
USX | ;S $P(^VA(200,DUZ,1.1),U,3)=1
|
Name | Field # of Occurrence |
---|---|
T1^%ZOSV | SET2+8 |
$$EZBLD^DIALOG | PH+3, PROHIBIT+3 |
$$FMTE^XLFDT | USER+9, PROHIBIT+3 |
$$HTFM^XLFDT | SET2+2 |
$$NOW^XLFDT | NOW+1 |
$$NU^XMGAPI4 | USER+14 |
ABT^XQ12 | POST2+1 |
$$NS^XUAF4 | FATKAAT1+10, DIVGET+5, DIVGET+8 |
$$KSP^XUPARAM | DIVGET+7 |
$$CHECKAV^XUS | VALIDAV+14 |
$$UVALID^XUS | VALIDAV+18 |
USER^XUS | POST+2 |
XOPT^XUS | VALIDAV+9, USER+5, SET1+3 |
XUVOL^XUS | FATKAAT1+5, SET1+3 |
$$CHKDIV^XUS1 | DIVGET+2 |
LOG^XUS1 | POST2+1 |
SAVE^XUS1 | POST2+1 |
DUZ^XUS1A | POST2+1 |
$$BRCVC^XUS2 | CVC+4 |
$$FAIL^XUS3 | VALIDAV+17 |
$$TXT^XUS3 | VAX+1 |
CLRFAC^XUS3 | POST2+2 |
GETFAC^XUS3 | SET1+5 |
$$INHIBIT^XUSRB | VALIDAV+10, SET2+5 |
$$SHOWPOST^XUSRB | POST+6 |
$$VCVALID^XUSRB | VALIDAV+19 |
$$DECRYP^XUSRB1 | VALIDAV+14, CVC+3 |
$$LKCHECK^XUSTZIP | VALIDAV+12 |
$$STATE^XWBSEC | CVC+1 |
KILL^XWBSEC | CVC+6, POST2+2 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZIS(1 - [#3.5] | SET2+7 |
^VA(200 - [#200] | USER+8 |
^XTV(8989.3 - [#8989.3] | USER+4 |
Name | Line Occurrences |
---|---|
$$PH | USER+11 |
$$POST | VALIDAV+20 |
$$PROHIBIT | PH+1 |
$$USER | POST+3 |
DIVGET | VALIDAV+15 |
NOW | VALIDAV+8, POST2 |
POST2 | CVC+6, POST+7 |
SET | USER+4, USER+5, USER+7, USER+9, USER+10, USER+12, USER+14, PH+3 |
VALIDAV | FATKAAT1+6 |
VAX | VALIDAV+10, VALIDAV+12, VALIDAV+16, VALIDAV+18 |
Name | Field # of Occurrence |
---|---|
^( | USER+4 |
^(90 | SET2+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | FATKAAT1+3~, FATKAAT1+7*, FATKAAT1+10, FATKAAT1+13, DIVGET+1~, DIVGET+2*, DIVGET+3, DIVGET+4, DIVGET+6, DIVGET+10* , DIVGET+12*, DIVGET+13, POST+5*, USER+12*, USER+14*, SET1+1~, SET1+6*, SET2+1~, SET2+5* |
%1 | VALIDAV+5~ |
%B | USER+1~, PROHIBIT+1~, PROHIBIT+2*, PROHIBIT+3, PROHIBIT+4 |
%E | USER+1~, PROHIBIT+1~, PROHIBIT+2*, PROHIBIT+3, PROHIBIT+4 |
>> %H | USER+6*, USER+7, USER+11 |
%R | PH~, PH+1, PROHIBIT~, PROHIBIT+2 |
%T | USER+1~, PH~, PH+1, PROHIBIT~, PROHIBIT+2*, PROHIBIT+4 |
>> %UCI | SET2+4* |
AVCODE | FATKAAT1~, FATKAAT1+6, VALIDAV~, VALIDAV+14 |
CCOW | FATKAAT1+3~, FATKAAT1+7*, FATKAAT1+9, FATKAAT1+12 |
CLIENTIP | FATKAAT1~, FATKAAT1+4*, FATKAAT1+6 |
CLIP | VALIDAV~, VALIDAV+12, VALIDAV+17 |
CVC | POST~, POST+7 |
DIV | FATKAAT1+3~, FATKAAT1+6, FATKAAT1+12, VALIDAV~, VALIDAV+15 |
DIV( | FATKAAT1+13 |
DT | NOW+1*, USER+9, PROHIBIT+3, SET2+2*, SET2+7 |
DTIME | SET2+6* |
DUZ | FATKAAT1+2~, VALIDAV+8*, VALIDAV+14*, VALIDAV+16, VALIDAV+20, VALIDAV+21*, VAX*, VAX+1, CVC+1*, CVC+5* , POST+2, USER+8, SET2+3!, SET2+4* |
DUZ("AG" | SET2+4* |
DUZ("CCOW" | FATKAAT1+7, FATKAAT1+14! |
DUZ(0 | VALIDAV+8*, SET2+4* |
DUZ(2 | FATKAAT1+10, DIVGET+4*, DIVGET+5, DIVGET+7*, DIVGET+8, USER+3*, SET2+4* |
FLAG | SET1~ |
>> I | USER+4*, USER+10* |
I1 | USER+1~, USER+8*, USER+10 |
IEN | FATKAAT1+3~, DIVGET~ |
IO("IP" | FATKAAT1+4, POST2+2, SET1+5 |
MSG | PH+1~*, PH+2, PH+3 |
>> RESULT(0 | DIVGET+10* |
RET | FATKAAT1~, CVC~ |
RET( | FATKAAT1+10*, FATKAAT1+13* |
RET(0 | FATKAAT1+8, VALIDAV+6*, VAX+1*, CVC+1*, CVC+4* |
RET(1 | VALIDAV+6*, VAX+1*, CVC+4* |
RET(2 | VALIDAV+6*, VAX+1* |
RET(3 | VALIDAV+6*, VAX+1* |
RET(4 | VALIDAV+6*, VAX+1* |
RET(5 | FATKAAT1+7, VALIDAV+6*, POST+4*, POST+5*, POST+6* |
U | DIVGET+3, DIVGET+13, VALIDAV+6*, CVC+2*, CVC+4, NOW+1*, USER+7, USER+11, USER+12, PH+2 , PH+3, SET1+2*, SET1+6, SET2+7 |
V | SET~, SET+1 |
VCCH | VALIDAV+5~, VALIDAV+8*, VALIDAV+19*, VALIDAV+21*, VALIDAV+22, VAX+1 |
X | FATKAAT1+3~, FATKAAT1+12*, FATKAAT1+13, DIVGET+1~, VALIDAV+5~, VALIDAV+17*, POST+1~, USER+8*, USER+9, SET2+1~ |
X1 | USER+1~ |
X2 | USER+1~ |
XMSG | PROHIBIT+1~, PROHIBIT+3*, PROHIBIT+4, PROHIBIT+5 |
XOPT | POST2+3!, USER+12, SET1+6, SET2+7 |
XQVOL | FATKAAT1+3~ |
>> XRT0 | SET2+8 |
>> XRTN | SET2+8* |
XU1 | CVC~, CVC+2*, CVC+3*, CVC+4 |
XU2 | CVC+1~, CVC+2*, CVC+3*, CVC+4 |
XU3 | CVC+1~, CVC+2*, CVC+3*, CVC+4*, CVC+5, CVC+6 |
XU4 | CVC+1~*, CVC+6 |
XUCI | FATKAAT1+3~ |
XUDEV | VALIDAV+5~, VALIDAV+7*, POST2+3!, SET1+4*, SET2+7 |
XUDIV | DIVGET~, DIVGET+2*, DIVGET+3, DIVGET+5*, DIVGET+6, DIVGET+8*, DIVGET+10, DIVGET+14, POST+1~ |
XUDIV( | DIVGET+12, DIVGET+13* |
XUDIV(0 | DIVGET+14* |
XUDIV(1 | DIVGET+5*, DIVGET+8* |
XUEOFF | POST2+3! |
XUEON | POST2+3! |
XUF | VALIDAV+5~, VALIDAV+7* |
>> XUIOP | SET1+4* |
XUM | VALIDAV+5~, VALIDAV+7*, VALIDAV+10*, VALIDAV+16*, VAX+1, POST+1~, POST+3* |
XUM(0 | PH+2* |
XUMSG | VALIDAV+5~, VALIDAV+7*, VALIDAV+10*, VALIDAV+12*, VALIDAV+16*, VALIDAV+18*, VALIDAV+20*, VALIDAV+21, VALIDAV+22*, VAX , VAX+1 |
XUNOW | VALIDAV+5~, POST2, NOW+1*, SET2+2* |
XUSER | VALIDAV+5~, POST2+3!, SET2+3! |
XUSER(0 | POST+2, USER+7, USER+11, SET2+4* |
XUSER(1 | USER+7, USER+12, SET2+4* |
XUTEXT | FATKAAT1+3~, POST2+3!, USER+2!, USER+3*, SET+1* |
XUTEXT( | POST+5, SET+1* |
XUTT | POST2+3!, SET2+4* |
XUVOL | FATKAAT1+3~ |
XUXM | USER+14~ |
XUXM( | USER+14 |