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

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  
Order Entry Results Reporting 2 ORMHLREC  ORVCO  
Toolkit 2 XTBASE  XTRCMP  
Clinical Case Registries 1 RORRP024  
Emergency Department Integration Software 1 EDPFAA  
IFCAP 1 PRCVIBF  
Imaging 1 MAGXCVS  
RPC Broker 1 XWBTCPMT  
Radiology Nuclear Medicine 1 RAIPS160  
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
DUZ(DA) ;Build DUZ for a user. Used by Mailman.
DTIME(E,D) ;Return DTIME value for user E, device D.
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*, ZISASKDUZ+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