Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: XUS

Package: Kernel

Routine: XUS


Information

XUS ;SFISC/STAFF - SIGNON ; 3/6/19 5:15pm

Source Information

Source file <XUS.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Kernel 14 ^%ZIS  ($$VERSION,GETENV)^%ZOSV  ($$FMTE,$$HTFM)^XLFDT  CHEK^XQ83  (NEXT,USER)^XUS1  INTRO^XUS1A  $$AUTOXUS^XUS1B  ($$NO,CLRFAC,GETFAC,SEC,TT)^XUS3  
$$EN^XUSAML  (,XMR)^XUSCLEAN  $$EN^XUSHSH  $$INHIBIT^XUSRB  ($$CHKASH,$$CHKCCOW)^XUSRB4  $$LKCHECK^XUSTZIP  
VA FileMan 3 $$EZBLD^DIALOG  $$FIND1^DIC  ^DIK  

Caller Graph

Caller Graph Total: 70

Package Total Caller Graph
Kernel 33 XQ  XQ12  XQSMD  XQTOC  XUESSO4  XULM  XUP  XUS1  
XUS2  XUS3  XUSG  XUSKAAJ1  XUSRA  XUSRB  XUSRB4  XUSRB5  
XUSTZ  XUVERIFY  ZOSVGTM  ZOSVGUX  ZOSVIS2  ZOSVMSQ  ZOSVONT  ZOSVVXD  
ZU  ZUDTM  ZUGTM  ZUMSM  ZUMSQ  ZUONT  ZUVXD  ^DIC(19  
^VA(200  
Automated Lab Instruments 8 LAB  LABCX4I  LABCX4XX  LABINIT  LABTEST  LADIMPXX  LAEPXPXX  LAPORTXX  
MailMan 7 XMCTLK  XMJMR1  XMJMS  XMPH  XMRPOP  XMUPIN  XMUT1  
Fee Basis 5 FBAACIE  FBAAUTL1  FBCHACT  FBCHPSA  FBNHROS  
Mental Health 5 YTAR  YTAR2  YTDEMO  YTMCMI2A  YTMCMI3A  
Clinical Case Registries 2 RORDD  RORREP01  
Registration 2 DGPMV30  DGUTL  
VA FileMan 2 DINVONT  DINVVXD  
DRG Grouper 1 ICDDRGM  
E Claims Management Engine 1 BPSOSUE  
Lab Service 1 LRHY HOWDY BOT  
Outpatient Pharmacy 1 PSOBGMGR  
VistALink 1 XOBVTCPL  
VistALink Security 1 XOBSRA  

Entry Points

Name Comments DBIA/ICR reference
RESTART ;
A ;
B ;
PGM ;
OK ;
CHK() ;Check that option exists and LOCK
LC ;
UP(%) ;
FAC ;Failed access
NO ;Tell why didn't get on
H ;Exit point for all applications
  • ICR #10044
    • Status: Active
    • Usage: Supported
    C ;CLOSE
    ON ;
    ASKAV(PRE) ;Ask and return Access;Verify code, Turn off echo before calling
    ACCEPT(TO) ;Read A/V and echo '*' char. (p702 Modified to accept IAM STS token)
  • ICR #5510
    • Status: Pending
    • Usage: Supported
    CHECKAV(X1) ;Check A/V code return DUZ or Zero. (Called from XUSRB for A/V code sign-on)
    LBAV ;Log Bad AV
    USER(IX) ;Build XUSER
    XUVOL ;Setup XUENV, XUCI,XQVOL,XUVOL,XUOSVER
  • ICR #4762
    • Status: Active
    • Usage: Controlled Subscription
    XOPT ;Setup initial XOPT
  • ICR #4762
    • Status: Active
    • Usage: Controlled Subscription
    SET1(FLAG) ;Setup parameters (also called from XUSRB)
    SET2() ;EF. Return error code (also called from XUSRB)
    UVALID() ;EF. Is it valid for this user to sign on?
    DEVPAS() ;EF. Ask device password
    SAML(X) ;IF. Validate SAML token. (p702)

    External References

    Name Field # of Occurrence
    ^%ZIS SET1+5
    $$VERSION^%ZOSV XUVOL+1
    GETENV^%ZOSV XUVOL+1
    $$EZBLD^DIALOG XUS+9
    $$FIND1^DIC A+7
    ^DIK CHECKAV+23
    $$FMTE^XLFDT UVALID+3
    $$HTFM^XLFDT SET2+2
    CHEK^XQ83 OK+1
    NEXT^XUS1 OK+3
    USER^XUS1 B+2
    INTRO^XUS1A XUS+5
    $$AUTOXUS^XUS1B A+10
    $$NO^XUS3 NO+1
    CLRFAC^XUS3 B+7
    GETFAC^XUS3 SET1+7
    SEC^XUS3 B+3
    TT^XUS3 B+6
    $$EN^XUSAML SAML+12
    ^XUSCLEAN C+1
    XMR^XUSCLEAN A+13
    $$EN^XUSHSH CHECKAV+19, CHECKAV+21
    $$INHIBIT^XUSRB SET2+5
    $$CHKASH^XUSRB4 CHECKAV+5
    $$CHKCCOW^XUSRB4 CHECKAV+6
    $$LKCHECK^XUSTZIP A+3

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: XUS+8
    Function Call: WRITE
    • Prompt: !!,"Volume set: ",$P(XUENV,U,4)," UCI: ",XUCI," Device: ",$I
    • Line Location: XUS+10
    Function Call: WRITE
    • Prompt: " (",IO("ZIO"),")"
    • Condition for execution: $S('$D(IO("ZIO")):0,1:$I'=IO("ZIO"))
    • Line Location: XUS+10
    Function Call: WRITE
    • Prompt: !
    • Line Location: XUS+10
    Function Call: WRITE
    • Prompt: !!,">> Auto Sign-on: ",$P(XUSER(0),U)," <<<",!
    • Line Location: A+10
    Function Call: WRITE
    • Prompt: !,PRE,XUSTMP(51)
    • Line Location: ASKAV+2
    Function Call: WRITE
    • Prompt: !,PRE,XUSTMP(52)
    • Line Location: ASKAV+7
    Function Call: READ
    • Prompt: ""
    • Variable: *C
    • Timeout: TO
    • Line Location: ACCEPT+4
    Function Call: WRITE
    • Prompt: $C(8,32,8)
    • Line Location: ACCEPT+6
    Function Call: WRITE
    • Prompt: *42
    • Line Location: ACCEPT+7
    Function Call: WRITE
    • Prompt: !!,"Please wait. Authenticating user credentials."
    • Line Location: ACCEPT+10
    Function Call: READ
    • Variable: B#200
    • Timeout: 5
    • Line Location: ACCEPT+12
    Function Call: WRITE
    • Prompt: "."
    • Line Location: ACCEPT+12
    Function Call: WRITE
    • Prompt: "."
    • Line Location: ACCEPT+13
    Function Call: READ
    • Variable: X
    • Timeout: 60
    • Line Location: DEVPAS+1
    Function Call: WRITE
    • Prompt: !,"DEVICE PASSWORD: "
    • Line Location: DEVPAS+1
    Routine Call
    • %ZIS
    • Line Location:
      • SET1+5
    Routine Call
    • DIALOG
    • Line Location:
      • XUS+9
    Routine Call
    • DIC
    • Line Location:
      • A+7

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZIS(1 - [#3.5] B+3, PGM+1, SET2+6, SET2+9
    ^%ZOSF( B+5
    ^%ZOSF("EON" ON+1, SET1+2
    ^DD("DILOCKTM" SET1+12
    ^DIC(19 - [#19] PGM+3, CHK+1
    ^TMP("SAML_XUS" SAML+2!, SAML+11*, SAML+12
    ^VA(200 - [#200] PGM+2, CHECKAV+19, CHECKAV+20, LBAV+2, USER+1
    ^XTV(8989.3 - [#8989.3] XUVOL+2, XOPT+1, SET1+11
    ^XUSEC( CHK+1
    ^XUTL("XQ" SET1+4!
    ^XUTL("ZISPARAM" XUS+6!

    Label References

    Name Line Occurrences
    $$ACCEPT ASKAV+2, ASKAV+7
    $$ASKAV A+12
    $$CHECKAV A+15
    $$CHK PGM+1, PGM+2
    $$DEVPAS RESTART+2
    $$SAML CHECKAV+11
    $$SET2 RESTART+1
    $$UP LC+1, CHECKAV+16
    $$UVALID A+16
    B A+10
    FAC LBAV+1, DEVPAS+2
    H RESTART+2, A+12
    LBAV CHECKAV+19, CHECKAV+22
    LC DEVPAS+2
    NO XUS+8, RESTART+1, RESTART+2, A+3, A+16, B+2, B+3, B+4, PGM+5
    OK PGM+1, PGM+2, PGM+3
    RESTART NO+1
    SET1 XUS+8
    USER A+10, CHECKAV+13, CHECKAV+20
    XOPT SET1+3
    XUVOL SET1+3

    Naked Globals

    Name Field # of Occurrence
    ^( B+5, USER+1
    ^("EOFF" SET1+2
    ^("XUS" XOPT+1
    ^(0 CHK+1
    ^(1 SET2+6
    ^(1.1 LBAV+2*, USER+1
    ^(90 SET2+9
    ^(95 B+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % UP~, UP+1, CHECKAV+1~, SET1+1~, SET1+8*, SET1+9, SET1+10, SET1+11, SET2+1~, SET2+5*
    %1 B+1!, FAC+1, FAC+2*, CHECKAV+1~, CHECKAV+17*, CHECKAV+20*, CHECKAV+21*, DEVPAS+2*
    >> %UCI SET2+4*
    >> %ZIS SET1+5*
    A ACCEPT+2~*, ACCEPT+4*, ACCEPT+5, ACCEPT+6*, ACCEPT+7*, ACCEPT+9, ACCEPT+12*, ACCEPT+14
    AV A+12*, A+13, A+14, A+15!
    B ACCEPT+2~, ACCEPT+12*, ACCEPT+13
    C ACCEPT+2~, ACCEPT+4*, ACCEPT+5, ACCEPT+6, ACCEPT+7
    DA CHECKAV+1~, CHECKAV+23*
    DIK CHECKAV+1~, CHECKAV+23*
    >> DILOCKTM SET1+12*
    DT SET2+2*, SET2+9, UVALID+4
    DTIME B+5*, SET2+8*
    DUOUT ACCEPT+2!, ACCEPT+4*
    DUZ A+10*, A+13*, A+15*, B+2, B+3, B+4, PGM+2, CHK+1, FAC+1, SET1+4*
    , SET2+3!, SET2+4*, UVALID+2
    DUZ("AG" SET2+4*
    DUZ("ASH" PGM+3, UVALID+5
    DUZ("AUTHENTICATION" A+6*, A+10*, CHECKAV+5*, CHECKAV+6*, CHECKAV+24*
    DUZ("BUF" B+5
    DUZ("LANG" SET1+3*
    DUZ("LOA" A+4, A+5*
    DUZ("REMAPP" A+8*
    DUZ(0 SET1+4*, SET2+4*
    DUZ(2 SET2+4*
    E ACCEPT+2~*, ACCEPT+3, ACCEPT+5*, ACCEPT+10*, ACCEPT+11, ACCEPT+13*
    FLAG SET1~, SET1+5
    I XOPT+2*, SET2+7*, SAML+1~, SAML+4*, SAML+6, SAML+8*, SAML+11
    IEN CHECKAV+1~, CHECKAV+2*, CHECKAV+4, CHECKAV+5*, CHECKAV+6*, CHECKAV+10, CHECKAV+11*, CHECKAV+12*, CHECKAV+13, CHECKAV+20*
    , CHECKAV+25, LBAV+2
    IEND SAML+1~, SAML+5, SAML+7*, SAML+9
    IO("IP" B+7, SET1+7
    IO("ZIO" XUS+10
    ION SET1+4*, SET1+6
    >> IOP SET1+5*
    >> IOS SET1+4*, SET1+6
    ISTART SAML+1~, SAML+6*, SAML+7, SAML+9
    ISTOP SAML+1~, SAML+3*, SAML+5
    IX USER~, USER+1
    >> LINE SAML+9*, SAML+10*, SAML+11
    >> PGM A+13*, OK+2*
    >> POP XUS+8, SET1+5
    PRE ASKAV~, ASKAV+1*, ASKAV+2, ASKAV+7
    TO ACCEPT~, ACCEPT+2*, ACCEPT+4
    U XUS+5*, XUS+7*, XUS+10, RESTART+2, A+3, A+10, B+5, CHK+1, LBAV+2, XUVOL+1*
    , XOPT+2, SET1+2*, SET1+3, SET1+8, SET2+7, SET2+9, UVALID+3, UVALID+4, UVALID+6, UVALID+7
    , DEVPAS+2
    X A+10*, B+5*, LC+1*, NO+1*, ASKAV+1~, ASKAV+2*, ASKAV+3, ASKAV+4*, ASKAV+5*, ASKAV+6
    , ASKAV+7*, ASKAV+8, CHECKAV+1~, CHECKAV+17*, CHECKAV+18, CHECKAV+19*, CHECKAV+20, CHECKAV+21*, CHECKAV+22, LBAV+2*
    , XUVOL+2*, SET2+1~, SET2+6*, SET2+7, DEVPAS+1*, DEVPAS+2*, SAML~, SAML+3, SAML+9
    X1 CHECKAV~, CHECKAV+4, CHECKAV+5, CHECKAV+6, CHECKAV+10, CHECKAV+11, CHECKAV+16*, CHECKAV+17, CHECKAV+21
    >> XAPP A+7*, A+8
    >> XMCHAN A+13*
    >> XOPT A+3, B+5, XOPT+1*, XOPT+2*, SET1+3, SET1+8, SET2+7*, SET2+9
    >> XQUR A+1*, A+14*
    >> XQVOL XUVOL+1*, XUVOL+2
    >> XQXFLG("GUI" XUS+7*
    >> XQY PGM+1*, PGM+2*, PGM+3*
    >> XU1 RESTART+2, SET2+6*, DEVPAS+2
    >> XUA A+13*, OK+2*
    >> XUCI XUS+10, XUVOL+1*
    >> XUDEV B+3, PGM+1, SET1+4*, SET1+6*, SET1+11, SET2+6, SET2+9
    >> XUENV XUS+10, XUVOL+1*
    >> XUEOFF A+12, SET1+2*, DEVPAS+1
    >> XUEON A+12, B+1, SET1+2*, DEVPAS+1
    XUF B+1!*, FAC+2, CHECKAV+17, CHECKAV+21, LBAV+1, SET1+4*, SET1+10*, SET1+11*, DEVPAS+2
    XUF( FAC+1*, FAC+2*, CHECKAV+20*, SET1+10*
    >> XUFAC A+3*
    >> XUFAC(1 CHECKAV+23
    >> XUHALT A+3*
    >> XUIOP SET1+6*
    >> XUM XUS+8*, RESTART+1*, RESTART+2*, A+3*, A+16*, B+2, B+3, PGM+4*
    >> XUM(0 UVALID+3*
    >> XUNOW SET2+2*, UVALID+3
    >> XUOSVER XUVOL+1*
    XUSER SET2+3!
    XUSER( USER+1*, UVALID+3
    XUSER(0 A+1*, A+10, USER+1*, SET2+4*, UVALID+4, UVALID+6
    XUSER(1 A+1*, CHECKAV+22, USER+1*, SET2+4*, UVALID+7
    >> XUSTMP(51 XUS+9*, ASKAV+2
    >> XUSTMP(52 XUS+9*, ASKAV+7
    >> XUTT B+6, CHECKAV+16*, SET2+4*
    >> XUVOL XUVOL+2*
    Y PGM+1*, PGM+2*, PGM+3*, CHK+1, ASKAV+1~, ASKAV+7*, CHECKAV+1~, XUVOL+1
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All