Routine: BGUXUSRB

Package	Total	Call Graph
Kernel	7	GETENV^%ZOSV ($$DT,$$NOW)^XLFDT DUZ^XUP (LC,SET1)^XUS INTRO^XUS1A $$ACTIVE^XUSER ^XUSHSH
GUI Generic Tools	1	$$GETFC^BGUGFAC

Package	Total	Caller Graph
GUI Generic Tools	1	BGU15E
Patient Chart	1	BPC15E

Entry Points

Name	Comments	DBIA/ICR reference
TXT(%)	; mod from ^XUS3.%=NUM in, %=ERROR MSG out.
VALIDAV(RESULT,ACODE,VCODE,BGUETH,BGUAPP,BGUPRM)	;EP Check a users access
VCVALID()	;-^XUSRB-Return 1 if Verify code needs changing.
1	;;1;Signons not currently allowed on this processor.
SNDER	;Sends error to GUI
CAC(RESULT,XU1)	;change AC
A1	;Set some basics.
3	;;1;This device has not been defined to the system -- contact system manager.
2	;;1;Maximum number of users already signed on to this processor.
5	;;0;No Access Allowed for this User.
4	;;0;Not a valid ACCESS CODE/VERIFY CODE pair.
7	;;0;Device locked due to too many invalid sign-on attempts.
6	;;0;Invalid device password.
9	;;0;* MULTIPLE SIGN-ONS NOT ALLOWED *"
8	;;1;This device is out of service.
ADDRSLT	; Add % as the new entry
CHECKAV(X1,X2,USER)	;Check A/V code return DUZ
SET1	;Setup parameters
ZZ	;;Halt;Error Messages
CHX
CVC(RESULT,XU1)	;change VC
11	;;0;Your access code has been terminated. Please see your site manager
10	;;1;You don't have access to this device.
13	;;1;This device may only be used outside of this time frame \|
12	;;0;VERIFY CODE MUST be changed before continued use.
15	;;0;'\|' is not a valid program name!
14	;;0;'\|' is not a valid UCI!
CFAC(RESULT,XU1)	; change facility id (DUZ(2))
SETUP(RESULT)	;sets up environment for GUI signon
INTRO(RESULT)	;Return INTRO TEXT.
NO()	;Fail - - modified from ^XUS3

External References

Name	Field # of Occurrence
GETENV^%ZOSV	SET1+1
$$GETFC^BGUGFAC	VALIDAV+27
$$DT^XLFDT	A1+1
$$NOW^XLFDT	VALIDAV+27
DUZ^XUP	VALIDAV+27
LC^XUS	CHECKAV+15, CHECKAV+24
SET1^XUS	SETUP+1
INTRO^XUS1A	INTRO+1
$$ACTIVE^XUSER	CHECKAV+27
^XUSHSH	CHECKAV+15, CHECKAV+24

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Device: ",$I,!,$$TXT(XUM),! Line Location: NO+6
Function Call: WRITE	Prompt: !,$$TXT(7) Line Location: NO+17

Used in RPC

RPC Name	Call Tags
BGU AVLOGON	VALIDAV
BGU CFAC	CFAC
BGU CAC	CAC
BGU CVC	CVC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EOFF"	SET1+1
^%ZOSF("EON"	SET1+1
^DIC(4 - [#4]	CFAC+6
^VA(200 - [#200]	VALIDAV+27*, CHECKAV+17, CHECKAV+18, CHX, VCVALID+3, VCVALID+7
^XTV(8989.3 - [#8989.3]	CFAC+7, SET1+3, VCVALID+5
^XUTL("XQ"	SET1+4!

Label References

Name	Line Occurrences
$$CHECKAV	VALIDAV+15
$$NO	VALIDAV+22, CFAC+2
$$TXT	NO+8
$$VCVALID	VALIDAV+21
A1	VALIDAV+11
CHX	CHECKAV+12, CHECKAV+17, CHECKAV+26, CHECKAV+27
SET1	VALIDAV+12
SNDER	VALIDAV+22, CFAC+2

Naked Globals

Name	Field # of Occurrence
^("XUS"	SET1+3
^(1.1	CHX*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CHECKAV+1~, TXT~, TXT+1, TXT+2, TXT+3, ADDRSLT+3
%1	VALIDAV+14~, CHECKAV+12, CHECKAV+18, CHECKAV+20*
>> %ZIS	SET1+4*
ACODE	VALIDAV~, VALIDAV+15
BGUAPP	VALIDAV~
BGUETH	VALIDAV~
>> BGUI	ADDRSLT+2*, ADDRSLT+3
>> BGULIM	VCVALID+5*, VCVALID+7
BGUN	SNDER+3~, SNDER+4*, SNDER+5
BGUPRM	VALIDAV~
>> BGUX	CFAC+6*, CFAC+7
DT	A1+1*
DUZ	VALIDAV+15, VALIDAV+27, CVC+1, CAC+1, CHECKAV+18, CHECKAV+27, CHECKAV+28, CHX, SET1+4*, VCVALID+2 , VCVALID+3, VCVALID+7
DUZ("AG"	CFAC+3, CFAC+4, CFAC+7*
DUZ(0	SET1+4*
DUZ(2	CFAC+1*, CFAC+2, CFAC+5, CFAC+6
>> I	SET1+3*
IO	SETUP+5
>> IOP	SET1+4*
RESULT	VALIDAV~, INTRO~, CVC~, CAC~, CFAC~, SETUP~
RESULT(	ADDRSLT+2, ADDRSLT+3, SNDER+4, SNDER+5
RESULT(0	SETUP+2*
RESULT(1	VALIDAV+27, VALIDAV+33, CVC+1, CVC+4, CAC+1, CAC+4, CFAC+8, SETUP+3
RESULT(2	SETUP+4*
RESULT(3	SETUP+5*
U	VALIDAV+15, VALIDAV+27, VALIDAV+33, CVC+1, CAC+1, SETUP+2, SETUP+3, A1+1, CHX, SET1+1* , SET1+3, VCVALID+3, NO+11, NO+12, SNDER+5
USER	CHECKAV~
USER("ERR"	CHECKAV+2!, CHECKAV+17, CHECKAV+26, CHECKAV+27*
USER(0	CHECKAV+18*
USER(1	CHECKAV+18*, CHECKAV+26
VCODE	VALIDAV~, VALIDAV+15
>> VCOK	VALIDAV+21*, VALIDAV+22
>> WEB	VALIDAV+27, CHECKAV+15, CHECKAV+24
X	VALIDAV+14~, CHECKAV+1~, CHECKAV+10, CHECKAV+11, CHECKAV+12, CHECKAV+17, CHECKAV+18, CHECKAV+20, CHECKAV+26, CHX*
X1	CHECKAV~, CHECKAV+10
X2	CHECKAV~, CHECKAV+20
>> XOPT	SET1+3*, NO+11
>> XQVOL	SET1+1*
XU1	CVC~, CVC+1, CAC~, CAC+1, CFAC~, CFAC+1
XU2	CVC+1~, CAC+1~
>> XUCI	SETUP+4, SET1+1*
>> XUDEV	SET1+4*
>> XUENV	SETUP+2, SET1+1*
>> XUEOFF	SET1+1*
>> XUEON	SET1+1*
XUERR	VALIDAV+14~, VALIDAV+22, CFAC+2, SNDER+5
XUEX	NO+4~, NO+11, TXT+1*
XUF	VALIDAV+14~, VALIDAV+15, CHECKAV+12, CHECKAV+20, SET1+4
XUF(	CHECKAV+18*
>> XUM	VALIDAV+22, CFAC+2, NO+8
>> XUM(0	TXT+2
XUSER	VALIDAV+14~, VALIDAV+15*
XUSER("ERR"	VALIDAV+33
>> XUT	SET1+4, NO+5, NO+11
XUTXT	NO+4~, NO+8*, NO+12
>> XUVOL	SETUP+3
XUX1	NO+4~, NO+8*, NO+12
XUX2	NO+4~, NO+11*, NO+12
Y	CHECKAV+1~, SET1+1

Marked Items

Customize PDF page

Package: GUI Generic Tools

Routine: BGUXUSRB

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Used in RPC

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items