Routine: XUIAMXML

Information

XUIAMXML ;BHM/DLR,DRI - IAM ENTERPRISE NEW PERSON PROBABILISTIC SEARCH ; Dec 18, 2020@15:00

Package	Total	Call Graph
Kernel	4	UNWIND^%ZTER ($$FMTHL7,$$NOW)^XLFDT STDNAME^XLFNAME $$PROD^XUPROD
VA FileMan	2	YN^DICN EN^DIWE
Health Level Seven	1	$$PARAM^HLCS2
M XML Parser	1	EN^MXMLPRSE
Registration	1	$$SITE^VASITE
Web Services Client	1	($$EOFAC,$$GETPROXY,ZTER)^XOBWLIB

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Kernel	2	XUESSO1 XUSAML

Entry Points

Name	Comments	DBIA/ICR reference
USER(RETURN,MPIARR)	; - query PSIM for USER traits ; Input (one of the following): ; MPIARR("samacctnm") = SECURITY ACCOUNT MANAGER/NETWORK USERNAME ; or ; MPIARR("VAemail") = ACTIVE DIRECTORY USER PRINCIPLE NAME/EMAIL ADDRESS ; or ; MPIARR("secId") = SECURITY ID
SNDUSER(RETURN,MPIARR)	; - update PSIM with USER traits ; Input ; MPIARR - Array of trait(s) to update ; Output ; RETURN - Array of traits psim has
SXMLBLD(MPIARR)	; setup xml to search for user ; Input: ; MPIARR - Array of traits for search
MSGID()	;
AXMLBLD(MPIARR)	; setup xml to add or modify a user ; Input: ; MPIARR - Array of traits for IAM search
IFADD(MPIVAR,MPIARR,MPIXML,MPIXMLN)	;check if there, if so add it to the XML ; MPIVAR is the MPIARR variable name ; MPIXMLN is the name of the XML to encase ; modifies MPIXML to add if it is there
CONV(FIELD)	;check for &, ', > and <
CONVA(FIELD,ENCHAR)	;handle <<pob city>>
SPARSE(MPIDATA,MPIXML)	; - parse the data
SE(MPIN,MPIA)	; - used for the parser to call back with STARTELEMENT
VALUE(MPIT)	; - used by the parser to call back with CHARACTERS
POST(MPIXML,MPIXMLR)	; - post XML to the execute server ; $$GETPROXY^XOBWLIB - IA #5421
ERROR	; - catch errors ; Set ecode to empty to return to calling function
TEST(TYPE,MPIXML)	; - call to possibly edit the xml string ; used for testing purposes only. ; production NOT allowed

External References

Name	Field # of Occurrence
UNWIND^%ZTER	ERROR+9
YN^DICN	TEST+8
EN^DIWE	TEST+15
$$PARAM^HLCS2	SXMLBLD+12, AXMLBLD+12
EN^MXMLPRSE	SPARSE+10
$$SITE^VASITE	SXMLBLD+11, MSGID+3, AXMLBLD+11
$$FMTHL7^XLFDT	SXMLBLD+13
$$NOW^XLFDT	SXMLBLD+13, MSGID+2, POST+15
STDNAME^XLFNAME	SXMLBLD+14
$$EOFAC^XOBWLIB	ERROR+6
$$GETPROXY^XOBWLIB	POST+9
ZTER^XOBWLIB	ERROR+7
$$PROD^XUPROD	TEST+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Do you want to edit the "_TYPE_" XML" Line Location: TEST+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("XUIAMXML_TEST"	TEST+9!, TEST+12*, TEST+17
^TMP($J	SPARSE+4!, SPARSE+9*, SPARSE+10, SPARSE+11!
^VA(200 - [#200]	SXMLBLD+14
^XTMP("XUIAMXML_DEBUG"	POST+12, POST+14, POST+15, POST+16, POST+17*
^XTMP("XUIAMXML_EDIT"	POST+6, POST+19

Label References

Name	Line Occurrences
$$AXMLBLD	SNDUSER+8
$$CONVA	CONV+3, CONV+4
$$MSGID	AXMLBLD+15
$$SXMLBLD	USER+43
IFADD	AXMLBLD+22, AXMLBLD+23, AXMLBLD+26, AXMLBLD+27, AXMLBLD+28, AXMLBLD+30, AXMLBLD+31, AXMLBLD+32, AXMLBLD+33, AXMLBLD+34 , AXMLBLD+35, AXMLBLD+36, AXMLBLD+37, AXMLBLD+38, AXMLBLD+39, AXMLBLD+40, AXMLBLD+41
POST	USER+44, SNDUSER+9
SPARSE	USER+46, SNDUSER+11
TEST	POST+6, POST+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	TEST+6~, TEST+8*
%Y	TEST+6~
C	TEST+6~, TEST+11*, TEST+12, TEST+13
DIC	TEST+6~, TEST+14*
DUZ	SXMLBLD+14
ENCHAR	CONVA~, CONVA+2
FIELD	CONV~, CONV+1, CONV+2, CONV+3, CONV+4, CONV+5, CONVA~, CONVA+2
I	CONVA+1~, CONVA+2*
IOST	TEST+4
L	TEST+6~, TEST+10, TEST+12
MPIA	SE~
MPIA("dob"	SE+10, SE+13
MPIA("error"	SE+6*
MPIA("firstName"	SE+9*
MPIA("gender"	SE+15*
MPIA("lastName"	SE+7*
MPIA("middleName"	SE+8*
MPIA("pnid"	SE+11*
MPIA("secId"	SE+12*
MPIA("vistaid"	SE+14*
MPIALIAS	SPARSE+5~
MPIARR	USER~, USER+43, SNDUSER~, SNDUSER+8, SXMLBLD~, AXMLBLD~, AXMLBLD+22, AXMLBLD+23, AXMLBLD+26, AXMLBLD+27 , AXMLBLD+28, AXMLBLD+30, AXMLBLD+31, AXMLBLD+32, AXMLBLD+33, AXMLBLD+34, AXMLBLD+35, AXMLBLD+36, AXMLBLD+37, AXMLBLD+38 , AXMLBLD+39, AXMLBLD+40, AXMLBLD+41, IFADD~
MPIARR(	IFADD+4, IFADD+5
MPIARR("MPIVar"	SXMLBLD+23!
MPIARR("REQTYPE"	AXMLBLD+15, AXMLBLD+17, AXMLBLD+50, AXMLBLD+51
MPIARR("VAemail"	SXMLBLD+20
MPIARR("WHO"	AXMLBLD+47
MPIARR("samacctnm"	SXMLBLD+20
MPIARR("secId"	SXMLBLD+19, SXMLBLD+20
MPIARR("vistaid"	AXMLBLD+16
MPICB	SPARSE+5~, SPARSE+10
MPICB("CHARACTERS"	SPARSE+8*
MPICB("STARTELEMENT"	SPARSE+7*
MPID	USER+41~, SNDUSER+6~
MPIDATA	SPARSE~
MPIDT	SXMLBLD+9~, SXMLBLD+13*
MPIDUZ	SXMLBLD+9~, SXMLBLD+14*
MPIERR	ERROR+5~, ERROR+6*, ERROR+7
MPIIDS	SPARSE+5~, SPARSE+6*
MPILOC	SPARSE+5~, SE+5*, VALUE+1
MPIN	SE~, SE+3*, SE+4
MPIPAT	USER+41~, SNDUSER+6~, SPARSE+5~, SPARSE+6*
MPIPRID	SXMLBLD+9~, SXMLBLD+12, AXMLBLD+9~, AXMLBLD+12, AXMLBLD+20
MPISITE	SXMLBLD+9~, SXMLBLD+11, AXMLBLD+9~, AXMLBLD+11
MPIT	VALUE~, VALUE+1
MPITHRES	SXMLBLD+9~, SXMLBLD+15*
MPIUSE	SPARSE+5~, SE+18*
MPIVAR	IFADD~, IFADD+4, IFADD+5, SPARSE+5~, SE+4*, VALUE+1!
MPIXML	USER+41~, USER+43, USER+44, SNDUSER+6~, SNDUSER+8, SNDUSER+9, SXMLBLD+9~, SXMLBLD+18, SXMLBLD+19, SXMLBLD+20* , SXMLBLD+21, SXMLBLD+24, AXMLBLD+9~, AXMLBLD+15, AXMLBLD+16, AXMLBLD+17, AXMLBLD+18, AXMLBLD+19, AXMLBLD+20, AXMLBLD+22 , AXMLBLD+23, AXMLBLD+26, AXMLBLD+27, AXMLBLD+28, AXMLBLD+30, AXMLBLD+31, AXMLBLD+32, AXMLBLD+33, AXMLBLD+34, AXMLBLD+35 , AXMLBLD+36, AXMLBLD+37, AXMLBLD+38, AXMLBLD+39, AXMLBLD+40, AXMLBLD+41, AXMLBLD+43, AXMLBLD+44, AXMLBLD+46, AXMLBLD+47* , AXMLBLD+48, AXMLBLD+49, AXMLBLD+50, AXMLBLD+51, AXMLBLD+53, IFADD~, IFADD+5, SPARSE~, SPARSE+9, POST~ , POST+6, POST+10, POST+16, TEST~, TEST+11, TEST+16, TEST+17*
MPIXMLN	IFADD~, IFADD+5
MPIXMLR	USER+41~, USER+44, USER+45, USER+46, SNDUSER+6~, SNDUSER+9, SNDUSER+10, SNDUSER+11, POST~, POST+10* , POST+17, POST+19
QUOTE	SXMLBLD+9~, SXMLBLD+10, SXMLBLD+18, SXMLBLD+19, SXMLBLD+20, AXMLBLD+9~, AXMLBLD+10, AXMLBLD+15, AXMLBLD+16, AXMLBLD+17 , AXMLBLD+47
RETURN	USER~, USER+42!, USER+45, USER+46, SNDUSER~, SNDUSER+7!, SNDUSER+10, SNDUSER+11
SVC	POST+2~, POST+9*
T	TEST+6~, TEST+10, TEST+12, TEST+13*
TYPE	TEST~, TEST+7
VAL	CONVA+1~, CONVA+2*, CONVA+3
X	CONVA+1~, CONVA+2, TEST+6~, TEST+11, TEST+17*
XUIAMSAVE	POST+13~, POST+14*, POST+15, POST+16, POST+17
XUNOW	MSGID+1~, MSGID+2*, MSGID+3

Customize PDF page

Package: Kernel