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

Package: Kernel

Routine: XUP


Information

XUP ;SFISC/RWF - Setup environment for programmers ;09/02/15 06:36

Source Information

Source file <XUP.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Kernel 12 ^%ZIS  GETENV^%ZOSV  (,UNWIND)^%ZTER  ($$DT,$$NOW)^XLFDT  $$UP^XLFSTR  ^XQ1  $$PROD^XUPROD  $$ACCEPT^XUS  
(ENQ,SAVE)^XUS1  TT^XUS3  KILL1^XUSCLEAN  ^XUSHSH  
Toolkit 1 $$GET^XPAR  
VA FileMan 1 ^DIC  

Caller Graph

Caller Graph Total: 60

Package Total Caller Graph
Lab Service 10 LR7OAPKM  LR7OAPMG  LRAPT  LRDPA  LRHYPH2  LRHYU  LRVRARU  LRVRPOCU  
LRWU6  LRWU7  
MailMan 9 XMA2  XMB  XMD  XMRMSM  XMRONT  XMRTCP  XMRUCX  XMTDO  
XMUCXPOP  
Automated Lab Instruments 6 LA7QRY  LA7VHL  LA7VIN  LA7VIN1A  LA7VIN1B  LAKDIFF  
Kernel 6 XQ1  XQ12  XQSMD  XUSBSE1  XUSRB  XUVERIFY  
Integrated Billing 5 IBAMTS  IBCAPP  IBCESRV3  IBCNBES  IBNCPDP6  
Health Level Seven 4 HLCSMM  HLCSTCP4  HLOFILER  HLOQUE  
Lexicon Utility 4 LEX2049P  LEX2052P  LEX2055P  LEXXFI  
Mental Health 4 YSASFUR  YSASU1  YSGAFTR  YSKFMAIL  
National Online Information Sharing 2 FSCNAR  FSCOP  
Toolkit 2 XTBASE  XTRCMP  
Clinical Case Registries 1 RORRP024  
Emergency Department Integration Software 1 EDPFAA  
IFCAP 1 PRCVIBF  
Imaging 1 MAGXCVS  
Order Entry Results Reporting 1 ORMHLREC  
RPC Broker 1 XWBTCPMT  
Registration 1 DGRRLU1  
VistALink Security 1 XOBSRA  

Entry Points

Name Comments DBIA/ICR reference
ZIS
ZIS2
EXIT ;Clean-up and exit
ASKDUZ ;Ask for Access Code
  • ICR #4596
    • Status: Active
    • Usage: Private
    DUZ(DA) ;Build DUZ for a user. Used by Mailman.
  • ICR #4129
    • Status: Active
    • Usage: Controlled Subscription
    DTIME(E,D) ;Return DTIME value for user E, device D.
  • ICR #4409
    • Status: Active
    • Usage: Supported
    ERR ;

    External References

    Name Field # of Occurrence
    ^%ZIS ZIS2
    GETENV^%ZOSV XUP+12
    ^%ZTER ERR+4
    UNWIND^%ZTER ERR+5
    ^DIC ZIS+1
    $$DT^XLFDT XUP+10
    $$NOW^XLFDT ZIS2+4
    $$UP^XLFSTR ASKDUZ+5
    $$GET^XPAR ZIS2+8, EXIT+2
    ^XQ1 ZIS2+9
    $$PROD^XUPROD XUP+7
    $$ACCEPT^XUS ASKDUZ+3
    ENQ^XUS1 ZIS
    SAVE^XUS1 ZIS2+4
    TT^XUS3 ZIS
    KILL1^XUSCLEAN XUP+9, ZIS2+9, EXIT+1
    ^XUSHSH ASKDUZ+6

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Setting up programmer environment"
    • Line Location: XUP+3
    Function Call: WRITE
    • Prompt: !,"This is a "_$S($$PROD^XUPROD(1):"PRODUCTION",1:"TEST")_" account.",!
    • Line Location: XUP+7
    Function Call: WRITE
    • Prompt: !,"DUZ Must point to a real user."
    • Line Location: XUP+16
    Function Call: WRITE
    • Prompt: !,"Terminal Type set to: ",IOST,!
    • Line Location: ZIS2+0
    Function Call: WRITE
    • Prompt: !!,"Your VERIFY code will expire in "_%_" days",!!
    • Line Location: ZIS2+2
    Function Call: WRITE
    • Prompt: !,"You have "_Y_" new message"_$S(Y=1:"",1:"s")_"."
    • Line Location: ZIS2+6
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASKDUZ+2
    Function Call: WRITE
    • Prompt: !,"Access Code: "
    • Line Location: ASKDUZ+3
    Function Call: WRITE
    • Prompt: !,"$ECODE=",$ECODE," $STACK=",$STACK
    • Line Location: ERR+2
    Function Call: WRITE
    • Prompt: !,"Location: ",$STACK($STACK-1,"PLACE")
    • Line Location: ERR+3
    Function Call: READ
    • Formatting: !!
    • Prompt: "Want to record the error: No// "
    • Variable: %XUP
    • Timeout: 600
    • Line Location: ERR+4
    Routine Call
    • %ZIS
    • Line Location:
      • ZIS2
    Routine Call
    • DIC
    • Line Location:
      • ZIS+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZIS(1 - [#3.5] DTIME+2
    ^%ZOSF("EOFF" XUP+11
    ^%ZOSF("EON" XUP+11
    ^%ZOSF("TYPE-AHEAD" XUP+5
    ^%ZVEMS EXIT+2
    ^DD("DILOCKTM" XUP+21
    ^UTILITY($J XUP+9!
    ^VA(200 - [#200] XUP+16, XUP+19, ZIS+1, ZIS+2*, ZIS2+2, ZIS2+4*, ASKDUZ+6, DUZ+3, DUZ+7, DTIME+2
    ^XMB(3.7 - [#3.7] ZIS2+6
    ^XTV(8989.3 - [#8989.3] ZIS2+2, DUZ+3, DUZ+6, DTIME+2
    ^XUTL("XQ" XUP+9!

    Label References

    Name Line Occurrences
    $$DTIME ZIS2+1
    ASKDUZ XUP+18
    DUZ XUP+17, ASKDUZ+7
    EXIT XUP+16, XUP+18, ZIS+1, ZIS2
    ZIS2 ZIS

    Naked Globals

    Name Field # of Occurrence
    ^(20 XUP+19

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % ZIS2+2*
    %XUP ERR+1~, ERR+4*
    >> %ZIS ZIS2*
    D DTIME~, DTIME+2
    DA DUZ~, DUZ+3, DUZ+4
    >> DIC ZIS+1*
    >> DIC(0 ZIS+1*, ZIS+2
    >> DILOCKTM XUP+21*
    DT XUP+10*
    DTIME XUP+20*, ZIS2+1*
    DUZ XUP+14*, XUP+16!, XUP+17, XUP+18, XUP+19, ZIS+1, ZIS+2, ZIS2+1, ZIS2+2, ZIS2+4
    , ZIS2+6, EXIT+2, ASKDUZ+7!, DUZ+4*, DUZ+7
    DUZ("AG" DUZ+6*
    DUZ("AUTHENTICATION" XUP+23*
    DUZ("BUF" ZIS2+1*
    DUZ("LANG" DUZ+9*
    DUZ("LOA" XUP+22*
    DUZ("SAV" XUP+14!
    DUZ(0 XUP+14*, XUP+18, DUZ+5*
    DUZ(1 DUZ+6*
    DUZ(2 DUZ+7*, DUZ+8*
    E DTIME~, DTIME+2
    >> IOP ZIS2*
    >> IOS ZIS2+1
    IOST ZIS2
    P DTIME+1~, DTIME+2*, DTIME+3
    >> POP ZIS2
    U XUP+4*, XUP+10*, XUP+11*, XUP+12, XUP+14, ZIS+2, ZIS2+2, ZIS2+6, ZIS2+9
    X ZIS+1*, ASKDUZ+1~, ASKDUZ+3*, ASKDUZ+4, ASKDUZ+5*, ASKDUZ+6
    >> XQUSER XUP+19*
    >> XQXFLG ZIS2+9*
    XQY EXIT+1!
    XQY0 EXIT+1!
    >> XUCI XUP+12*
    >> XUDEV ZIS2+1*
    >> XUENV XUP+12*
    >> XUEOFF XUP+11*, ASKDUZ+3
    >> XUEON XUP+11*, ASKDUZ+3
    >> XUIOP XUP+11*, ZIS
    >> XUIOP(1 ZIS*, ZIS+2*, ZIS2
    >> XUTT XUP+11*, ZIS, ASKDUZ+5*
    >> XUVOL XUP+12*
    Y XUP+12, XUP+18, ZIS*, ZIS+1, ZIS+2, ZIS2+6*, ASKDUZ+4*, ASKDUZ+6*, ASKDUZ+7, DUZ+2~
    Y("XUS" DUZ+3*, DUZ+8, DUZ+9
    Y(0 DUZ+3*, DUZ+5
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All