Routine: XUSER

Package	Total	Call Graph
Kernel	4	$$FMTE^XLFDT ($$HLNAME,$$NAMEFMT)^XLFNAME ($$REPLACE,$$STRIP)^XLFSTR PARENT^XUAF4
VA Fileman	3	(,$$FIND1)^DIC $$GET1^DID ^DIR

Package

Total

Call Graph

Kernel

$$FMTE^XLFDT ($$HLNAME,$$NAMEFMT)^XLFNAME ($$REPLACE,$$STRIP)^XLFSTR PARENT^XUAF4

VA Fileman

(,$$FIND1)^DIC $$GET1^DID ^DIR

Package	Total	Caller Graph
Kernel	38	XQ55 XQ55SPEC XQ82 XQ84 XQALBUTL XQALSET XQALSET1 XQALSURO XQCHK3 XQSMD5 XU EPCS PSDRPH XU EPCS SET PARMS XU8P377D XU8P480 XU8P497 XU8P497A XUA4A72 XUBA XUEPCSRT XUFILESINGLEADD XUINPCH2 XUP468 XUPSQRY XUSAP1 XUSBSE1 XUSEC ISO VISITED XUSECBUL XUSERNEW XUSMGR ^VA(200 XUPSCLR XUSERP XUSNPI1 XUSNPIE1 XUSNPIE2 XUSRB2 XUSRB4 XUTMTP
Lab Service	25	LR232 LR258 LR281 LR286 LR287 LR290 LR302 LR303 LR305 LR309 LR313 LR315 LR320 LR325 LR326 LR328 LR329 LR330 LR331 LR334 LR343 LR346 LRAPRES1 LRDIQ LRVRPOC
Automated Lab Instruments	15	LA64 LA67 LA68 LA70 LA71 LA72 LA7CHLU9 LA7COBX1 LA7COBX2 LA7COBX3 LA7PCFG LA7VHLU9 LA7VOBX1 LA7VOBX2 LA7VOBX3
Order Entry Results Reporting	13	ORALWORD ORB3U2 ORCACT01 ORCMENU1 ORCSAVE1 ORQPTQ2 ORWDPS1 ORWDRA32 ORWOR1 ORWORR ORWU1 ORWU2 ORY44C
Scheduling	13	SDRR1 SDRR5 SDRRCLR2 SDRRCRR SDRRCRR1 SDRRINQ SDRRINQ1 SDRRISRL SDRRISRX SDSCEDT SDSCPRV SDSCRPT2 SDSCUSR
Surgery	5	SROATCM2 SROATM4 SROQM SROQT SRTPTMIT
Health Summary	4	GMTSXA GMTSXAO GMTSXAP GMTSXAP2
Text Integration Utility	4	TIUALRT TIUHL7U1 TIULA3 TIURA1
Care Management	2	ORRCLNP ORRCOR
Consult Request Tracking	2	GMRCADC GMRCAFRD
Controlled Substances	2	PSDDSOR1 PSDDSOR2
IHS Changes To Pharmacy	2	APSPES9 APSPESG
IHS Electronic Health Record	2	BEHOPTP1 BEHOUSCX
Registration	2	DGENU DGQPTQ2
GUI Generic Tools	1	BGUXUSRB
HealtheVet Desktop	1	XHDAUTH
IHS Changes To Lab	1	BLROLOR
Outpatient Pharmacy	1	PSORMRXD
Radiology Nuclear Medicine	1	RABWORD
Referred Care Information System	1	BMCRPC4
VistALink	1	XOBVSYSI
iCare	1	BQISYKEY

Package

Total

Caller Graph

Kernel

XQ55  XQ55SPEC  XQ82  XQ84  XQALBUTL  XQALSET  XQALSET1  XQALSURO
XQCHK3  XQSMD5  XU EPCS PSDRPH  XU EPCS SET PARMS  XU8P377D  XU8P480  XU8P497  XU8P497A
XUA4A72  XUBA  XUEPCSRT  XUFILESINGLEADD  XUINPCH2  XUP468  XUPSQRY  XUSAP1
XUSBSE1  XUSEC ISO VISITED  XUSECBUL  XUSERNEW  XUSMGR  ^VA(200  XUPSCLR  XUSERP
XUSNPI1  XUSNPIE1  XUSNPIE2  XUSRB2  XUSRB4  XUTMTP

Lab Service

LR232  LR258  LR281  LR286  LR287  LR290  LR302  LR303
LR305  LR309  LR313  LR315  LR320  LR325  LR326  LR328
LR329  LR330  LR331  LR334  LR343  LR346  LRAPRES1  LRDIQ
LRVRPOC

Automated Lab Instruments

LA64 LA67 LA68 LA70 LA71 LA72 LA7CHLU9 LA7COBX1
LA7COBX2 LA7COBX3 LA7PCFG LA7VHLU9 LA7VOBX1 LA7VOBX2 LA7VOBX3

Order Entry Results Reporting

ORALWORD ORB3U2 ORCACT01 ORCMENU1 ORCSAVE1 ORQPTQ2 ORWDPS1 ORWDRA32
ORWOR1 ORWORR ORWU1 ORWU2 ORY44C

Scheduling

SDRR1 SDRR5 SDRRCLR2 SDRRCRR SDRRCRR1 SDRRINQ SDRRINQ1 SDRRISRL
SDRRISRX SDSCEDT SDSCPRV SDSCRPT2 SDSCUSR

Surgery

SROATCM2 SROATM4 SROQM SROQT SRTPTMIT

Health Summary

GMTSXA GMTSXAO GMTSXAP GMTSXAP2

Text Integration Utility

TIUALRT TIUHL7U1 TIULA3 TIURA1

Care Management

ORRCLNP ORRCOR

Consult Request Tracking

GMRCADC GMRCAFRD

Controlled Substances

PSDDSOR1 PSDDSOR2

IHS Changes To Pharmacy

APSPES9 APSPESG

IHS Electronic Health Record

BEHOPTP1 BEHOUSCX

DGENU DGQPTQ2

BGUXUSRB

XHDAUTH

BLROLOR

PSORMRXD

Radiology Nuclear Medicine

RABWORD

Referred Care Information System

BMCRPC4

VistALink

XOBVSYSI

iCare

BQISYKEY

Entry Points

Name	Comments	DBIA/ICR reference
DEA(FG,IEN)	;sr. ef. Return users DEA # or Facility DEA_"-"_user VA# or null	ICR #2343 Status: Active Usage: Supported
HL7(IEN)	;Return a HL7 name from the components file
LOOKUP(XUF)	;Do a user lookup	ICR #2343 Status: Active Usage: Supported
SCR200()	;Whole File Screen logic for file 200
VDEA(RETURN,IEN)		ICR #2343 Status: Active Usage: Supported
PROVIDER(XUDA,XUF)	;See if user qualifies as a CPRS provider	ICR #2343 Status: Active Usage: Supported
DETOX(IEN)	;Return the Detox/Maintenance ID in file 200 - p580/REM	ICR #2343 Status: Active Usage: Supported
LKX
BULL	;Called from bulletin in DD of file #200 for 'Sub Alt Name' fld.
NAME(IEN,FL)	;Return the full name from Name Components file	ICR #2343 Status: Active Usage: Supported
ACTIVE(XUDA)	;Get if a user is active.	ICR #2343 Status: Active Usage: Supported
DIV4(XUROOT,XUDUZ)	;Return the Divisions that this user is assigned to.	ICR #2533 Status: Active Usage: Controlled Subscription ICR #5139 Status: Pending Usage: Private
SDEA(FG,IEN,PSDEA)	;validation for new DEA regulations p580-JC(CPRS)	ICR #2343 Status: Active Usage: Supported
LK1

Name	Field # of Occurrence
^DIC	LK1
$$FIND1^DIC	BULL+4
$$GET1^DID	VDEA+39
^DIR	LK1+3
$$FMTE^XLFDT	LK1+1
$$HLNAME^XLFNAME	HL7+2
$$NAMEFMT^XLFNAME	NAME+4
$$REPLACE^XLFSTR	VDEA+39
$$STRIP^XLFSTR	VDEA+30
PARENT^XUAF4	DEA+14

Name	Line Occurrences
Function Call: WRITE	Prompt: !?15,"This user was terminated on ",$$FMTE^XLFDT(Y) Line Location: LK1+1
Routine Call	DIC Line Location: BULL+4
Routine Call	DIC Line Location: LK1
Routine Call	DIR Line Location: LK1+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SDEA+12
^DIC(4 - [#4]	DEA+12, DEA+15
^VA(200 - [#200]	ACTIVE+2, ACTIVE+3, ACTIVE+5, BULL+5, PROVIDER+10, PROVIDER+26, PROVIDER+27, DEA+5, DETOX+7, SDEA+10 , SDEA+14, SDEA+15, SDEA+18, VDEA+16, VDEA+18, VDEA+20, VDEA+23, VDEA+25, VDEA+28, VDEA+30 , VDEA+37, VDEA+42, VDEA+51, DIV4+4
^XUSEC("ORES"	VDEA+14
^XUSEC("XUORES"	PROVIDER+13
^XUSEC("XUSHOWSSN"	SCR200+9

Name	Line Occurrences
$$ACTIVE	VDEA+9
$$DEA	SDEA+8
LK1	LK1+1, LK1+4
LKX	LK1, LK1+2

Name	Field # of Occurrence
^(	DIV4+4
^("PS"	SDEA+19*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ACTIVE+1~, ACTIVE+6, PROVIDER+5~, PROVIDER+20, DIV4+3~, DIV4+4
%1	DIV4+3~, DIV4+4, DIV4+5
A	SDEA+6~
A(	SDEA+16*
A(1	SDEA+20
A(2	SDEA+21
A(3	SDEA+22
A(4	SDEA+23
A(5	SDEA+24
A(6	SDEA+25
ASCHED	VDEA+33~, VDEA+35, VDEA+42, VDEA+43, VDEA+44
DA	SDEA+6~, SDEA+11*, SDEA+12
DATE	VDEA+8~, VDEA+19~, VDEA+20, VDEA+21, VDEA+22, VDEA+25, VDEA+26
DEA	DEA+3~, DEA+6, DEA+8, SDEA+6~, SDEA+8, SDEA+14, SDEA+20, SDEA+21, SDEA+22, SDEA+23 , SDEA+24, SDEA+25, SDEA+26, VDEA+8~
DELIMIT	VDEA+45~, VDEA+46, VDEA+48, VDEA+49
DET	DETOX+6~, DETOX+8*, DETOX+9, DETOX+10
DIC	LOOKUP+4~, LK1*
DIC(0	LK1*, SCR200+3
>> DINDEX	SCR200+6
DIR	LOOKUP+4~
DIR("A"	LK1+3*
DIR("B"	LK1+3*
DIR(0	LK1+3*
>> DIRUT	LK1+4
DT	LK1+1, ACTIVE+6, PROVIDER+20, DEA+8, DETOX+9, DETOX+10, SDEA+12, VDEA+22, VDEA+26
DUZ	DEA+4, DIV4+3, SCR200+9
DUZ(2	DEA+4
E	SDEA+6~, SDEA+8, SDEA+9, SDEA+12
ERROR	VDEA+38~
FB	DEA+3~
FG	DEA~, DEA+11, SDEA~, SDEA+7*, SDEA+8
FL	NAME~, NAME+2, NAME+3, NAME+4
I	BULL+3~, BULL+5, SDEA+6~, SDEA+16
IEN	DEA~, DEA+4, DEA+5, DETOX~, DETOX+7, SDEA~, SDEA+7, SDEA+8, SDEA+10, SDEA+14 , SDEA+15, SDEA+18, VDEA~, VDEA+9, VDEA+14, VDEA+16, VDEA+18, VDEA+20, VDEA+23, VDEA+25 , VDEA+28, VDEA+30, VDEA+37, VDEA+42, VDEA+51, NAME~, NAME+1, HL7~, HL7+1
IN	DEA+3~, DEA+12, DEA+13, DEA+15, DEA+17
INDEX	VDEA+45~, VDEA+47*, VDEA+48, VDEA+49
INN	DEA+3~, DEA+4, DEA+12, DEA+14, DEA+15
LABEL	VDEA+38~, VDEA+39, VDEA+40, VDEA+41
N	DEA+3~, DEA+5, DEA+6, DETOX+6~, DETOX+7, DETOX+8, SDEA+6~, SDEA+10*, SDEA+11
N1	DEA+3~, DEA+5, DEA+6, DEA+8, DETOX+6~, DETOX+7, DETOX+8, SDEA+6~, SDEA+10*, SDEA+11
N3	SDEA+6~, SDEA+15*, SDEA+16
NA	NAME+1~, NAME+4, HL7+1~, HL7+2
NA("FIELD"	NAME+1, HL7+1
NA("FILE"	NAME+1, HL7+1
NA("IENS"	NAME+1, HL7+1
NALL	SDEA+6~, SDEA+16*, SDEA+17
NODE	VDEA+29~, VDEA+30*, VDEA+31, VDEA+32
PIECE	VDEA+33~, VDEA+36*, VDEA+37, VDEA+39, VDEA+40, VDEA+42
PSD	BULL+3~, BULL+4*, BULL+5
PSDEA	SDEA~, SDEA+7*, SDEA+13, SDEA+20, SDEA+21, SDEA+22, SDEA+23, SDEA+24, SDEA+25
RETURN	VDEA~
RETURN("Does	not hold the ORES security key." , VDEA+15*
RETURN("Has a	DEA number with no expiration date." , VDEA+21, n expired DEA number." , VDEA+22
RETURN("Has n	either a DEA number nor a VA number." , VDEA+24*
RETURN("Is no	longer able to write medication orders (inactive date)." , VDEA+27, t authorized to write medication orders." , VDEA+17, t permitted to prescribe any schedules." , VDEA+31*
RETURN("Is pe	rmitted to prescribe all schedules." , VDEA+43, VDEA+51, rmitted to prescribe schedule" , VDEA+50*
RETURN("User	account does not exist." , VDEA+10, account status: " , VDEA+12, cannot sign on." , VDEA+11*
RETVAL	VDEA+8~, VDEA+9, VDEA+10, VDEA+11, VDEA+12, VDEA+13, VDEA+15, VDEA+17, VDEA+21, VDEA+22 , VDEA+24, VDEA+27, VDEA+31*, VDEA+52
SCHED	VDEA+33~, VDEA+41*, VDEA+47, VDEA+48, VDEA+49, VDEA+50
SPEC	VDEA+33~, VDEA+39
SPEC("SCHEDUL	E " , VDEA+34*
STATUS	VDEA+8~, VDEA+9*, VDEA+10, VDEA+11, VDEA+12, VDEA+13
TEXT	VDEA+45~, VDEA+49*, VDEA+50
U	LK1+3, ACTIVE+3, ACTIVE+4, ACTIVE+5, ACTIVE+6, PROVIDER+16, PROVIDER+20, DEA+6, DEA+8, DEA+12 , DEA+15, DETOX+8, SDEA+11, VDEA+12, VDEA+16, VDEA+18, VDEA+20, VDEA+23, VDEA+25, VDEA+30 , VDEA+37, VDEA+41, VDEA+42, VDEA+47, VDEA+48, VDEA+49, VDEA+50, DIV4+4
VA	DEA+3~, DEA+6*, DEA+11, DEA+17
X1	ACTIVE+1~, ACTIVE+2, ACTIVE+3, ACTIVE+4, ACTIVE+6, PROVIDER+5~, PROVIDER+10, PROVIDER+16, PROVIDER+20
X2	ACTIVE+1~, ACTIVE+2, ACTIVE+3, ACTIVE+4, ACTIVE+5, ACTIVE+6, ACTIVE+7, PROVIDER+5~, PROVIDER+10
XD	SDEA+6~, SDEA+11*, SDEA+12
XDT	DEA+3~, DEA+6, DETOX+6~, DETOX+8, DETOX+9, DETOX+10
>> XMY(	BULL+5*
XU1	DEA+14~
XU1("P"	DEA+15
XUDA	LOOKUP+4~, LK1, LK1+1, LK1+3, LK1+4*, LKX, ACTIVE~, ACTIVE+2, ACTIVE+3, ACTIVE+5 , PROVIDER~, PROVIDER+7, PROVIDER+10, PROVIDER+13, PROVIDER+26, PROVIDER+27
XUDUZ	DIV4~, DIV4+3*, DIV4+4
XUF	LOOKUP~, LK1+1, LK1+2, PROVIDER~, PROVIDER+26
XUORES	PROVIDER+5~, PROVIDER+13*, PROVIDER+20, PROVIDER+23
XUROOT	DIV4~
XUROOT(	DIV4+4*
Y	LOOKUP+4~, LK1, LK1+1, LK1+4, SDEA+12
Y(0	LK1+1

Customize PDF page

Package: Kernel

Routine: XUSER

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 137

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: