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 enviroment for programmers ;1/30/08 11:12

Source Information

Source file <XUP.m>

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

Package Total Caller Graph
Automated Lab Instruments 9 LA7QRY  LA7VCN1A  LA7VHL  LA7VIN  LA7VIN1A  LA7VLN1A  LA7VQN1A  LA7VRN1A  
LAKDIFF  
MailMan 9 XMA2  XMB  XMD  XMRMSM  XMRONT  XMRTCP  XMRUCX  XMTDO  
XMUCXPOP  
IHS Changes To Lab 8 BLRAG08  BLRMANP2  BLRP22PC  BLRP24PC  BLRP25PC  BLRRLFX1  BLRRLMV  BLRRLTDR  
IHS Emergency Dept Dashboard 6 BEDDPOV  BEDDPRT  BEDDUTID  BEDDUTIS  BEDDUTIU  BEDDUTW1  
Kernel 6 XQ1  XQ12  XQSMD  XUSBSE1  XUSRB  XUVERIFY  
Lab Service 5 LRAPT  LRDPA  LRHYPH2  LRHYU  LRVRPOCU  
Alcohol Chemical Dependency 2 ACDENVCK  ACDGX5  
Health Level Seven 2 HLCSMM  HLOFILER  
Registration 2 DG IHS MENU IC  DGRRLU1  
Supply 2 ASU0PURG  ASURDPRT  
Toolkit 2 XTBASE  XTRCMP  
Contract Health Management Information System 1 ACHSRP1  
Emergency Room 1 AMER31  
GUI Generic Tools 1 BGUXUSRB  
IHS Dental System 1 ADEDDTH  
IHS Electronic Health Record 1 BEHOUSCX  
IHS GPRA Information System 1 BGPMUA02  
IHS Standard Terminology 1 BSTSVOF1  
IHS Support HL7 Interfaces 1 BHLV  
IHS V Files 200 Conversion 1 BVCONV  
IHS VA Utilities 1 XBLMSET  
Lexicon Utility 1 LEXXFI  
Local Area Programs 1 AZHZCLN  
RPC Broker 1 XWBTCPMT  
VA Fileman 1 DII  

Entry Points

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

    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
    • Prompt: "Want to record the error: No// "
    • Formatting: !!
    • Timeout: 600
    • Variable: %XUP
    • Line Location: ERR+4
    Routine Call
    • DIC
    • Line Location:
      • ZIS+1
    Routine Call
    • %ZIS
    • Line Location:
      • ZIS2

    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("BUF" ZIS2+1*
    DUZ("LANG" DUZ+9*
    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