Routine: XUESSO1

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

XUESSO1 ;LUKE/SEA Single Sign-on utilities;02/11/10 14:57;08/18/09 14:29

Source Information

Source file <XUESSO1.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Kernel	5	($$FMTE,$$HTFM)^XLFDT $$UP^XLFSTR $$NS^XUAF4 ($$IEN,$$VPID)^XUPS DUZ^XUS1A
VA Fileman	4	MSG^DIALOG FILE^DICN (CHK,UPDATE)^DIE ^DIK
MailMan	2	^XMB ^XMD

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Registration	2	DGROHLS DGROHLU
Kernel	1	XUSBSE1
RPC Broker	1	XWB2HL7

Entry Points

Name	Comments	DBIA/ICR reference
TALL(DUZ)	;Test for existing user or adds a new one
UPDT	;Update the LAST VISIT field
SPECIAL(SN)	;Special Manila RO site
G4
BOMB	;Insufficient information to allow visiting
ADDU	;Add a new name to the New Person File
SET(NEWDUZ)	;Set the user up to go
PUT(DATIN)	;;Setup data from authenticating site GET() at receiving site	ICR #4342 Status: Active Usage: Controlled Subscription
GET(INDUZ)	;Gather identifying data from user's home site.	ICR #4342 Status: Active Usage: Controlled Subscription
PH()	; Try for a phone number or pager
ADDA	;Add a new Alias to file 200.04
BULL	;Set up the bulletin and fire it off, Let MM see if bulletin is there
FAIL	;Send bulletin if fail to add user.
ADDS	;Add a SSN to the file
VISM	;Create a multiple for this site number in the VISTED FROM file
NEWU	;We didn't find anybody under SSN or NAME so we add a new user

External References

Name	Field # of Occurrence
MSG^DIALOG	FAIL+3
FILE^DICN	ADDU+3
CHK^DIE	PUT+14, PUT+15
UPDATE^DIE	UPDT+6
^DIK	UPDT+10
$$FMTE^XLFDT	BULL+3
$$HTFM^XLFDT	PUT+4
$$UP^XLFSTR	TALL+27
^XMB	BULL+6
^XMD	FAIL+8
$$NS^XUAF4	GET+14
$$IEN^XUPS	TALL+5
$$VPID^XUPS	G4+1
DUZ^XUS1A	SET+4

Name	Line Occurrences (* Changed, ! Killed)
^TMP("DIERR"	PUT+5!, NEWU+13, UPDT+7
^VA(200 - [#200]	GET+6, GET+9, GET+17, PH+3, PUT+19, PUT+20, TALL+6, TALL+11, TALL+12, TALL+13 , TALL+19, TALL+28, TALL+30, TALL+31, TALL+34, TALL+37, TALL+38, ADDA+1, UPDT+2

Label References

Name	Line Occurrences
$$PH	G4
$$SET	PUT+21
$$SPECIAL	GET+18, TALL+11, TALL+18, ADDS+1
$$TALL	PUT+20
ADDA	NEWU+9
ADDS	TALL+37, NEWU+9
ADDU	NEWU+5
BOMB	GET+3, GET+4, GET+7, GET+8, GET+9, GET+10, GET+12, GET+15, GET+19, GET+21 , GET+23
BULL	NEWU+15
FAIL	UPDT+9
G4	GET+18
UPDT	TALL+7, TALL+14, TALL+21, TALL+39, NEWU+11
VISM	TALL+6, TALL+13, TALL+38, NEWU+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	GET+2~, GET+8, GET+9, GET+10, PH+1~, PH+2, PH+6, PH+7, PH+8, PH+9 , PH+10, PH+11, PH+12, TALL+29~, TALL+34, TALL+35
%T	PUT+2~, PUT+14, PUT+15, PUT+20*, PUT+21
DA	ADDU+1~, UPDT+8~, UPDT+10*
DATIN	PUT~, PUT+7, PUT+8, PUT+9, FAIL+5
DD	ADDU+1~
DIC	PUT+2~, ADDU+1~, ADDU+2*
DIC(0	NEWU+2, ADDU+2
DIK	UPDT+8~, UPDT+10*
DO	ADDU+1~
DT	GET+10, PUT+4*
DUZ	GET+3, GET+6, GET+9, GET+17, G4+1, G4+2, PH+3, PUT+20, TALL~, SET+3*
DUZ("VISITOR"	SET+3*
DUZ(0	TALL+2*
DUZ(2	GET+4, GET+14
FDR	PUT+2~
FDR(	UPDT+1, UPDT+3*
FDR("200.04"	ADDA+3*
FDR("200.06"	VISM+2, VISM+4, VISM+5, VISM+6, UPDT+5*
FDR(200	ADDS+3*
FLAG	TALL+1~, TALL+2, TALL+7, TALL+9, TALL+15, TALL+18, TALL+21, TALL+23, TALL+27, TALL+39 , TALL+41
I	FAIL+1~, FAIL+5, FAIL+6
IEN	PUT+2~, ADDS+2, ADDS+3, ADDA+2, ADDA+3, VISM+1, VISM+2, VISM+4, VISM+5, VISM+6 , UPDT+1, UPDT+2*, UPDT+3, UPDT+5, UPDT+6!
INDUZ	GET~
N	GET+2~, GET+6*, GET+7, GET+8, GET+10, GET+11
NAME	GET+2~, GET+11, GET+12, G4+2, PUT+3~, PUT+7, PUT+11, TALL+27*, TALL+28, TALL+30 , TALL+31, ADDU+2, BULL+4, FAIL+4
NEWDUZ	PUT+2~, PUT+4, PUT+21, TALL+5, TALL+6, TALL+12, TALL+13, TALL+19, TALL+20, TALL+30* , TALL+31, TALL+34, TALL+37, TALL+38, NEWU+7, NEWU+15, SET~, SET+1, SET+3, ADDU+4* , ADDS+2, ADDA+1, ADDA+2, VISM+1, UPDT+2, UPDT+10, UPDT+11*, BULL+4
NEWREC	TALL+1~, ADDU+2*, UPDT+10
PHONE	GET+2~, G4, G4+3, PUT+3~, PUT+8, UPDT+5, BULL+5
RMTDUZ	PUT+3~, PUT+8*, PUT+16, TALL+19, SET+3, VISM+5, BULL+5
SITE	GET+2~, GET+14, GET+15, GET+18, G4+2, PUT+3~, PUT+7, PUT+13, PUT+15, VISM+4 , BULL+4, FAIL+4
SITENUM	PUT+3~, PUT+8*, PUT+13, PUT+14, TALL+6, TALL+11, TALL+13, TALL+18, TALL+19, TALL+38 , SET+3, ADDS+1, VISM+2, UPDT+2, BULL+5
SN	SPECIAL~, SPECIAL+1
SSN	GET+2~, GET+17, GET+18, GET+19, GET+21, GET+23, G4+2, PUT+3~, PUT+7*, PUT+12 , TALL+11, TALL+12, TALL+35, ADDS+3
TODAY	PUT+2~, PUT+4*, VISM+6, UPDT+3, BULL+3
U	GET+8, GET+9, GET+10, GET+11, GET+15, GET+17, G4+2, G4+3, G4+4, PH+6 , PH+7, PH+8, PH+9, PH+10, PH+11, PH+12, PUT+4, PUT+7, PUT+8, PUT+9 , PUT+14, PUT+15, TALL+34, TALL+37, SET+3
USER	PUT+2~, TALL+29~
USER2	TALL+29~, TALL+31*, TALL+32
VPID	GET+2~, G4+1, G4+4, PUT+3~, PUT+9, TALL+4, TALL+5
X	GET+2~, G4+2, G4+3, G4+4, G4+6, BOMB+1, BOMB+2, PH+1~, PH+3, PH+4 , PH+6, PH+7, PH+8, PH+9, PH+10, PH+11, PH+12, PUT+2~, ADDU+1~, ADDU+2
XMB	BULL+1~, BULL+2*
XMB(1	BULL+3*
XMB(2	BULL+4*
XMB(3	BULL+4*
XMB(4	BULL+4*
XMB(5	BULL+5*
XMB(6	BULL+5*
XMB(7	BULL+5*
XMMG	FAIL+1~
XMSUB	FAIL+1~, FAIL+2*
XMTEXT	FAIL+1~, FAIL+3, FAIL+7*
XMTEXT(	FAIL+6
XMY	FAIL+1~
XMY("G.XUSVISITFAIL@FO-OAKLAND.MED.VA.GOV"	FAIL+7*
XMZ	FAIL+1~
XOPT	SET+2~
XUMF	PUT+3~, PUT+14*
XUSER	SET+2~
XUTEXT	FAIL+1~, FAIL+5, FAIL+6
XUTEXT(	FAIL+6*
XUTEXT(1	FAIL+4*
XUTEXT(2	FAIL+5*
XUTEXT(3	FAIL+5*
Y	ADDU+1~, ADDU+4
ZTQUEUED	FAIL+1~, FAIL+2*

Customize PDF page

Package: Kernel

Routine: XUESSO1

Call Graph Total: 11

Caller Graph Total: 4