Routine: XUP

Information

XUP ;SFISC/RWF - Setup enviroment for programmers ;1/30/08 11:12

Source file <XUP.m>

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

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

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

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("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