XUSRB5 ;SFISC/STAFF - FATKAT and KAJEE support ;09/08/2005
Source file <XUSRB5.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FATKAAT1(RET,AVCODE,CLIENTIP) | ;Get division list via proxy
|
|
| DIVGET(XUDIV,IEN) | ;Get Division data
|
|
| VALIDAV(AVCODE,DIV,CLIP) | ;Check a users access
|
|
| VAX | ||
| CVC(RET,XU1) | ;change VC, Return 0 = success
|
|
| POST(CVC) | ;Finish setup partition, I CVC don't log yet
|
|
| POST2 | ||
| NOW | ;
|
|
| USER() | ;
|
|
| USX | ;S $P(^VA(200,DUZ,1.1),U,3)=1
|
|
| SET(V) | ;Set into XUTEXT(XUTEXT), Also Called from XU USER SIGN-ON protocol.
|
|
| PH(%T,%R) | ;Check Prohibited time for R/S
|
|
| PROHIBIT(%T,%R) | ;See if a prohibited time, (Time from $H, restrict range)
|
|
| SET1(FLAG) | ;Setup for FATKAAT
|
|
| SET2() | ;EF. Return error code
|
