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 ;09/23/14 16:06

Source Information

Source file <XUS1.m>

Call Graph

Call Graph Total: 16

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 4 $$EZBLD^DIALOG  ^DIC  IX^DIK  ^DIR  
RPC Broker 2 $$CMD^XWBCAGNT  $$BROKER^XWBLIB  

Caller Graph

Caller Graph Total: 19

Package Total Caller Graph
Kernel 12 %ZTMS4  XUP  XUS  XUS5  XUSCLEAN  XUSG  XUSG1  XUSKAAJ  
XUSRA  XUSRB  XUSRB2  XUSRB5  
MSC RPC Broker 2 CIANBLIS  CIANBRPC  
IHS Changes To Lab 1 BLRREFLA  
IHS Electronic Health Record 1 BEHOXQ  
IHS Generic Interface System 1 INHUT7  
IHS VA Utilities 1 XBKSET  
RPC Broker 1 XWB2HL7  

Entry Points

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

    External References

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

    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: !,"Site set to ",$P($G(^DIC(4,+Y,0)),U),!
    • Line Location: SET+9
    Function Call: WRITE
    • Prompt: !,*7,"You must select one."
    • Line Location: ASKDIV+10
    Function Call: READ
    • Timeout: 0
    • Variable: X
    • Line Location: ENQ+1
    Function Call: READ
    • Timeout: 2
    • Variable: X#1
    • Line Location: ENQ+1
    Function Call: WRITE
    • Prompt: $C(27,91,99)
    • Line Location: ENQ+1
    Routine Call
    • DIALOG
    • Line Location:
      • USER+6
    Routine Call
    • DIC
    • Line Location:
      • ASKDIV+10
      • ENQ+4
    Routine Call
    • %ZIS
    • Line Location:
      • SAVE+4
    Routine Call
    • %ZIS
    • Line Location:
      • NEXT+1
    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
    ^AUTTSITE(1 IHSDIV+24
    ^DIC(4 - [#4] SET+2, SET+9, IHSDIV+26
    ^DISV( NEXT+2, NEXT+3*, IHSDIV+21
    ^UTILITY($J NEXT+9!
    ^VA(200 - [#200] CHKDIV+3, CHKDIV+6, ENQ+4*, ENQ+5, NEXT+6, LOG+2, LOG+4, SLOG+19*, IHSDIV+11, IHSDIV+15
    , IHSDIV+16
    ^XTV(8989.3 - [#8989.3] AUDIT+2, AUDIT+3, AUDIT+4, AUDIT+5
    ^XUSEC(0 - [#3.081] LOG+4*, SLOG+12, SLOG+13*, SLOG+14*, SLOG+15, SLOG+16*
    ^XUTL("OR" NEXT+9!
    ^XUTL("XQ" SAVE+2*, SAVE+3*, SLOG+18*
    ^XWB("SESSION" LOG+4

    Label References

    Name Line Occurrences
    $$CHKDIV SET+1
    $$COOKIE LOG+4
    $$IHSDIV SET+8, ASKDIV+8
    $$SLOG LOG+3
    $$VCHG SET+13
    ASKDIV SET+2, ASKDIV+10
    AUDIT NEXT+5
    ENQ SET+15
    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+2~, COOKIE+1~, COOKIE+6*
    %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+2~, SLOG+17*
    >> DIC ASKDIV+8*, ENQ+4*
    >> DIC("B" ASKDIV+8*
    >> DIC("P" ASKDIV+8*
    >> DIC(0 ASKDIV+8*, ENQ+4*
    DIK SLOG+2~, SLOG+17*
    >> DILOCKTM SLOG+12
    DIR USER+4~
    DIR("A" USER+4*
    DIR(0 USER+4*
    >> DUOUT SET+13
    DUZ SET+8, VCHG+2, ASKDIV+8, CHKDIV+3, CHKDIV+6, ENQ+4, ENQ+5, NEXT+2, NEXT+3, NEXT+6
    , NEXT+8, LOG+2, LOG+4, SLOG+8, SLOG+19, AUDIT+3, IHSDIV~, IHSDIV+11, IHSDIV+15, IHSDIV+16
    , IHSDIV+21
    DUZ("ASH" VCHG+1
    DUZ("DIV" CHKDIV+2
    DUZ("REMAPP" SLOG+11
    DUZ("VISITOR" SLOG+9, COOKIE+4
    DUZ(2 SET+11*, SLOG+10
    I USER+3*, SLOG+2~, SLOG+12*, SLOG+13, SLOG+14, SLOG+15, SLOG+16, SLOG+17, 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+5
    IO("IP" SLOG+5, COOKIE+3
    IO("ZIO" SLOG+8
    IOF USER+4
    >> IOP NEXT+1*
    J1 COOKIE~, COOKIE+6
    J2 COOKIE~, COOKIE+6
    N SLOG+2~, SLOG+8*, SLOG+9*, SLOG+10*, SLOG+11*, SLOG+13
    P10 SLOG~, SLOG+4*, SLOG+8
    P100 SLOG+2~, SLOG+5*, SLOG+7*, SLOG+14
    P11 SLOG+2~, SLOG+5*, SLOG+6*, SLOG+8
    P12 SLOG+2~, SLOG+5*, SLOG+8
    P14 SLOG~
    P15 SLOG~
    P5 SLOG~, SLOG+4*, SLOG+8
    P6 SLOG~, SLOG+4*, SLOG+8, SLOG+19
    P7 SLOG~, SLOG+4*, SLOG+8
    P8 SLOG~, SLOG+4*, SLOG+8
    PGM KILL~
    U SET+2, SET+9, VCHG+3, VCHG+4, VCHG+5, ASKDIV+8, ENQ+4, ENQ+5, NEXT+6, LOG+2
    , LOG+3, LOG+4, SLOG+9, SLOG+11, SLOG+16, SLOG+19, AUDIT+2, AUDIT+4, AUDIT+5, KILL~
    , IHSDIV+24, IHSDIV+26
    X ASKDIV+1~, ENQ+1*, ENQ+3*, ENQ+4, ENQ+5*, NEXT+2*, NEXT+6*, SAVE+1~, SAVE+2*, SAVE+3*
    , IHSDIV+7~, IHSDIV+8*, IHSDIV+11*, IHSDIV+14, IHSDIV+16*, IHSDIV+19, IHSDIV+21*, IHSDIV+24*, IHSDIV+26
    XL1 SLOG+2~, SLOG+3*, SLOG+12, SLOG+17*, SLOG+18, SLOG+19, SLOG+20
    XL2 SLOG+2~, SLOG+19*
    XMCHAN KILL~
    >> XOPT SET+14, VCHG+5
    XP1 LOG+1~, LOG+3*, LOG+4
    XP2 LOG+1~
    >> XQAUDIT AUDIT+3*, AUDIT+4*, AUDIT+5*
    XQUR KILL~
    >> 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
    >> 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+4
    >> XUSER(1 VCHG+3, VCHG+5
    >> XUT1 ENQ+1*, ENQ+3
    XUTEXT USER+1!
    XUTEXT( USER+3
    >> XUTT SET+14*, ENQ+1, ENQ+3
    >> XUVOL LOG+3
    Y SET+1*, SET+2, SET+8*, SET+9, SET+11, ASKDIV+10, ENQ+3*, ENQ+4, DD~, IHSDIV+7~
    , IHSDIV+8*, IHSDIV+26*, IHSDIV+27
    Z IHSDIV+7~, IHSDIV+8*, IHSDIV+15*, IHSDIV+16, IHSDIV+20*, IHSDIV+21
    ZZ COOKIE+1~, COOKIE+6
    ZZ(1 COOKIE+7
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All