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: XUS1

Package: Kernel

Routine: XUS1


Information

XUS1 ;SF-ISC/STAFF - SIGNON ;01/14/20 13:32

Source Information

Source file <XUS1.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Kernel 10 (,SAVEVAR)^%ZIS  SETENV^%ZOSV  ($$FMTE,$$NOW)^XLFDT  ($$FORCEIP4,$$FORCEIP6)^XLFIPV  ^XQ  $$NS^XUAF4  (H,NO,USER)^XUS  ($$USER,DUZ)^XUS1A  
CVC^XUS2  KILL1^XUSCLEAN  
VA FileMan 5 $$EZBLD^DIALOG  ^DIC  FILE^DIE  IX^DIK  ^DIR  
RPC Broker 2 $$CMD^XWBCAGNT  $$BROKER^XWBLIB  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 14

Package Total Caller Graph
Kernel 12 %ZTMS4  XUP  XUS  XUS5  XUSCLEAN  XUSG  XUSG1  XUSKAAJ  
XUSRA  XUSRB  XUSRB2  XUSRB5  
RPC Broker 1 XWB2HL7  
VistALink Security 1 XOBSRA  

Entry Points

Name Comments DBIA/ICR reference
USER ;
SET ;
VCHG() ;Check if the Verify code needs to be changed
ASKDIV ;Ask the user for the Division, return Y
CHKDIV(CD) ;ef,sr Check if user needs to select Division.
ENQ ;Get terminal type
NEXT ;Jump to the next routine
SAVE ;
  • ICR #4756
    • Status: Active
    • Usage: Controlled Subscription
    LOG ;used by R/S and Broker
    SLOG(P5,P6,P7,P8,P10,P14,P15) ;
    COOKIE(J1,J2) ;Call VAdeamon for a cookie
    AUDIT ;Set-up Audit info
    DD(Y)
    KILL
    NO

    External References

    Name Field # of Occurrence
    ^%ZIS NEXT+1
    SAVEVAR^%ZIS SAVE+4
    SETENV^%ZOSV NEXT+6
    $$EZBLD^DIALOG USER+6
    ^DIC ASKDIV+3, ENQ+4
    FILE^DIE SLOG+35
    IX^DIK SLOG+23
    ^DIR USER+4
    $$FMTE^XLFDT DD
    $$NOW^XLFDT SLOG+4
    $$FORCEIP4^XLFIPV SLOG+6
    $$FORCEIP6^XLFIPV SLOG+6
    ^XQ NEXT+10
    $$NS^XUAF4 ASKDIV+2, CHKDIV+6
    H^XUS SET+5
    NO^XUS NO
    USER^XUS VCHG+2
    $$USER^XUS1A USER+1
    DUZ^XUS1A SET+3
    CVC^XUS2 SET+5
    KILL1^XUSCLEAN KILL
    $$CMD^XWBCAGNT COOKIE+9
    $$BROKER^XWBLIB VCHG+5

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: $E(XUTEXT(I),1)="!"
    • Line Location: USER+3
    Function Call: WRITE
    • Prompt: $E(XUTEXT(I),2,999)
    • Line Location: USER+3
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: USER+4
    Function Call: WRITE
    • Prompt: !!,?8,$$EZBLD^DIALOG(30810.45)
    • Line Location: USER+6
    Function Call: WRITE
    • Prompt: !,*7,"You must select one."
    • Line Location: ASKDIV+3
    Function Call: READ
    • Variable: X
    • Timeout: 0
    • Line Location: ENQ+1
    Function Call: READ
    • Variable: X#1
    • Timeout: 2
    • Line Location: ENQ+1
    Function Call: WRITE
    • Prompt: $C(27,91,99)
    • Line Location: ENQ+1
    Routine Call
    • %ZIS
    • Line Location:
      • NEXT+1
    Routine Call
    • %ZIS
    • Line Location:
      • SAVE+4
    Routine Call
    • DIALOG
    • Line Location:
      • USER+6
    Routine Call
    • DIC
    • Line Location:
      • ASKDIV+3
      • ENQ+4
    Routine Call
    • DIE
    • Line Location:
      • SLOG+35
    Routine Call
    • DIR
    • Line Location:
      • USER+4

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZIS(2 - [#3.2] ENQ+5
    ^%ZIS(3.22 - [#3.22] ENQ+3
    ^%ZOSF("TYPE-AHEAD" ENQ+1
    ^DIC(4 - [#4] SET+2
    ^DISV( NEXT+2, NEXT+3*
    ^UTILITY($J NEXT+9!
    ^VA(200 - [#200] ASKDIV+2, CHKDIV+3, CHKDIV+6, ENQ+4*, ENQ+5, NEXT+6, LOG+2, LOG+4, SLOG+33, SLOG+36
    ^XTV(8989.3 - [#8989.3] AUDIT+2, AUDIT+3, AUDIT+4, AUDIT+5
    ^XUSEC(0 - [#3.081] LOG+4*, SLOG+18, SLOG+19*, SLOG+20*, SLOG+21, SLOG+22*
    ^XUTL("OR" NEXT+9!
    ^XUTL("XQ" SAVE+2*, SAVE+3*, SLOG+24*
    ^XWB("SESSION" LOG+4

    Label References

    Name Line Occurrences
    $$CHKDIV SET+1
    $$COOKIE LOG+4
    $$SLOG LOG+3
    $$VCHG SET+5
    ASKDIV SET+2, ASKDIV+3
    AUDIT NEXT+5
    ENQ SET+7
    KILL NEXT+8
    LOG NEXT+8
    SAVE NEXT+1

    Naked Globals

    Name Field # of Occurrence
    ^( CHKDIV+3, CHKDIV+6
    ^(0 ENQ+5, NEXT+6
    ^(1.2 ENQ+5

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % CHKDIV+1~, CHKDIV+3*, CHKDIV+8, LOG+1~, LOG+4*, SLOG+3~, COOKIE+1~, COOKIE+9*
    %1 CHKDIV+1~, CHKDIV+3*, CHKDIV+4, CHKDIV+8
    %2 CHKDIV+1~, CHKDIV+5*, CHKDIV+6*
    %3 CHKDIV+1~, CHKDIV+5*, CHKDIV+6*, CHKDIV+7
    %4 CHKDIV+1~, CHKDIV+6*
    %UCI NEXT+9!, KILL~
    CD CHKDIV~, CHKDIV+4, CHKDIV+5*, CHKDIV+7*
    CD( CHKDIV+6*
    DA SLOG+3~, SLOG+23*
    >> DIC ASKDIV+2*, ENQ+4*
    >> DIC("B" ASKDIV+2*
    >> DIC("P" ASKDIV+2*
    >> DIC(0 ASKDIV+2*, ENQ+4*
    DIK SLOG+3~, SLOG+23*
    >> DILOCKTM SLOG+18
    DIR USER+4~
    DIR("A" USER+4*
    DIR(0 USER+4*
    >> DUOUT SET+5
    DUZ VCHG+2, ASKDIV+2, CHKDIV+3, CHKDIV+6, ENQ+4, ENQ+5, NEXT+2, NEXT+3, NEXT+6, NEXT+8
    , LOG+2, LOG+4, SLOG+14, SLOG+29, SLOG+30, SLOG+31, SLOG+32, SLOG+33, SLOG+36, AUDIT+3
    DUZ("ASH" VCHG+1
    DUZ("AUTHENTICATION" VCHG+4, SLOG+11
    DUZ("DIV" CHKDIV+2
    DUZ("LOA" SLOG+10
    DUZ("REMAPP" SLOG+17
    DUZ("VISITOR" SLOG+15, COOKIE+4
    DUZ("WARNINGS" SLOG+13
    DUZ(2 SET+3*, SLOG+16
    I USER+3*, SLOG+3~, SLOG+18*, SLOG+19, SLOG+20, SLOG+21, SLOG+22, SLOG+23, AUDIT+1~, AUDIT+2*
    , AUDIT+4*, AUDIT+5*
    I1 AUDIT+1~, AUDIT+2*, AUDIT+3, AUDIT+5*
    I2 AUDIT+1~, AUDIT+2*
    IO("CLNM" SLOG+7
    IO("IP" SLOG+6, COOKIE+3
    IO("ZIO" SLOG+14
    IOF USER+4
    >> IOP NEXT+1*
    J1 COOKIE~, COOKIE+9
    J2 COOKIE~, COOKIE+9
    N SLOG+3~, SLOG+14*, SLOG+15*, SLOG+16*, SLOG+17*, SLOG+19
    P10 SLOG~, SLOG+5*, SLOG+14
    P100 SLOG+3~, SLOG+6*, SLOG+9*, SLOG+20
    P101 SLOG+3~, SLOG+10*, SLOG+20
    P102 SLOG+3~, SLOG+11*, SLOG+12*, SLOG+20
    P103 SLOG+3~, SLOG+13*, SLOG+20
    P11 SLOG+3~, SLOG+6*, SLOG+8*, SLOG+14
    P12 SLOG+3~, SLOG+7*, SLOG+14
    P14 SLOG~
    P15 SLOG~
    P5 SLOG~, SLOG+5*, SLOG+14
    P6 SLOG~, SLOG+5*, SLOG+14, SLOG+27
    P7 SLOG~, SLOG+5*, SLOG+14
    P8 SLOG~, SLOG+5*, SLOG+14
    PGM KILL~
    U SET+2, VCHG+3, VCHG+5, VCHG+6, ASKDIV+2, ENQ+4, ENQ+5, NEXT+6, LOG+2, LOG+3
    , LOG+4, SLOG+15, SLOG+16, SLOG+17, SLOG+22, AUDIT+2, AUDIT+4, AUDIT+5, KILL~
    X ASKDIV+1~, ASKDIV+2*, ENQ+1*, ENQ+3*, ENQ+4, ENQ+5*, NEXT+2*, NEXT+6*, SAVE+1~, SAVE+2*
    , SAVE+3*
    XL1 SLOG+3~, SLOG+4*, SLOG+18, SLOG+23*, SLOG+24, SLOG+29, SLOG+37
    XL2 SLOG+3~
    XMCHAN KILL~
    >> XOPT SET+6, VCHG+6
    XP1 LOG+1~, LOG+3*, LOG+4
    XP2 LOG+1~
    >> XQAUDIT AUDIT+3*, AUDIT+4*, AUDIT+5*
    XQUR KILL~
    >> XQXFLG("ASO" COOKIE+6
    >> XQXFLG("LLOG" LOG+2*
    >> XQXFLG("ZEBRA" LOG+4*, COOKIE+2!
    >> XUCI LOG+3
    >> XUDEV LOG+3
    >> XUENV LOG+3
    >> XUEOFF ENQ+1
    >> XUEON ENQ+3
    XUFDA SLOG+28~
    XUFDA(200 SLOG+29*, SLOG+30*, SLOG+31*, SLOG+32*
    >> XUIOP ENQ+4*, ENQ+5*, NEXT+1
    >> XUIOP(1 ENQ+4*, ENQ+5
    >> XUM USER+1*, USER+6, USER+7
    >> XUNOW AUDIT+2
    >> XUSER VCHG+2
    >> XUSER(0 VCHG+5
    >> XUSER(1 VCHG+3, VCHG+6
    >> XUT1 ENQ+1*, ENQ+3
    XUTEXT USER+1!
    XUTEXT( USER+3
    >> XUTT SET+6*, ENQ+1, ENQ+3
    >> XUVOL LOG+3
    Y SET+1*, SET+2, SET+3, ASKDIV+3, ENQ+3*, ENQ+4, DD~
    ZZ COOKIE+1~, COOKIE+9
    ZZ(1 COOKIE+10
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All