Routine: XUP

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

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
Integrated Billing	6	IBAMTS IBCAPP IBCESRV3 IBCNBES IBCNEBF IBNCPDP6
Kernel	6	XQ1 XQ12 XQSMD XUSBSE1 XUSRB XUVERIFY
Mental Health	5	YSASFUR YSASU1 YSGAFTR YSKFMAIL YTQREST
Health Level Seven	4	HLCSMM HLCSTCP4 HLOFILER HLOQUE
Lexicon Utility	4	LEX2049P LEX2052P LEX2055P LEXXFI
National Online Information Sharing	2	FSCNAR FSCOP
Order Entry Results Reporting	2	ORMHLREC ORVCO
Scheduling	2	SDES2CREATEAPPT SDES2SETCHECKOUT
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	ICR #4596 Status: Active Usage: Private
DUZ(DA)	;Build DUZ for a user. Used by Mailman.	ICR #4129 Status: Active Usage: Controlled Subscription ICR #7487 Status: Pending Usage: Private
DTIME(E,D)	;Return DTIME value for user E, device D.	ICR #4409 Status: Active Usage: Supported
ERR	;

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

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!

Name	Field # of Occurrence
^(20	XUP+19

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