Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All
Print Page as PDF
Routine: XUIAMPR

Package: Kernel

Routine: XUIAMPR


Information

XUIAMPR ;BHM/DLR,DRI - IAM PROVISIONING - ADD/UPDATE OF A NEW PERSON ;1/26/23 09:01

Source Information

Source file <XUIAMPR.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 7 $$FMTHL7^XLFDT  NAMECOMP^XLFNAME  $$UP^XLFSTR  OP^XQCHK  $$FINDUSER^XUIAMPR1  (ORCHUSER,QRYUSER,USER)^XUIAMXML  $$PROD^XUPROD  
VA FileMan 3 $$FIND1^DIC  ($$GET1,GETS)^DIQ  ^DIR  
Registration 1 $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Kernel 1 XUSERNEW  

Entry Points

Name Comments DBIA/ICR reference
ENTERPRISE(XUREQTYP,XUTERMDT) ;iam enterprise new person search and add to VistA ;**663 - STORY 783347 (dri)
OPTION() ;return option being executed
CHKUSER(DUZ) ;user must have secid at enterprise to perform enterprise search
; Input:
; DUZ = User's IEN in File #200
ASKSRCH() ;enterprise search by email address or network username
ASKCRIT() ;enterprise search by email address, network username or traits
RETCRIT(XUSRCH,XUIAM) ;return search criteria
LEGACY() ;ask to perform legacy add of new person
SRCH(XURET,XUIAM) ;perform initial enterprise search
XSRCH(XURET,XUIAM,XUSRCH) ;perform an enhanced enterprise search by including more traits
ASKTRTS(XUIAM) ;prompt for additional traits and perform additional psim lookup
DISP(XURET) ;display returned persons
ASKPRSN(XURET) ;ask for person
XDISP(XURET,CNT) ;display extended traits
ASKCONT() ;ask whether to continue with selected person
ORCH(XURET,XURET2,CNT) ;orchestrate person

External References

Name Field # of Occurrence
$$FIND1^DIC ENTERPRISE+20
$$GET1^DIQ ENTERPRISE+20
GETS^DIQ CHKUSER+11
^DIR ASKSRCH+2, ASKCRIT+3, RETCRIT+5, RETCRIT+12, LEGACY+2, ASKTRTS+2, ASKTRTS+7, ASKTRTS+9, ASKTRTS+11, ASKPRSN+3
, ASKCONT+2
$$SITE^VASITE ASKTRTS+13, ORCH+2
$$FMTHL7^XLFDT ASKTRTS+10
NAMECOMP^XLFNAME ASKTRTS+3
$$UP^XLFSTR RETCRIT+13
OP^XQCHK OPTION+3
$$FINDUSER^XUIAMPR1 ENTERPRISE+50
ORCHUSER^XUIAMXML ORCH+3
QRYUSER^XUIAMXML XSRCH+8
USER^XUIAMXML CHKUSER+15, SRCH+5
$$PROD^XUPROD ENTERPRISE+40

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You can attempt to use Link My Account to resolve the issue and retry.",!,"If you need assistance or the problem persists, please log a service ticket."
  • Line Location: ENTERPRISE+28
Function Call: WRITE
  • Prompt: !!,"... ",$P(XURET,"^",2)
  • Line Location: ENTERPRISE+42
Function Call: WRITE
  • Prompt: !!,"... ",XURET("errorMessage")
  • Line Location: ENTERPRISE+43
Function Call: WRITE
  • Prompt: !!,"... ",$P(XURET,"^",2)
  • Line Location: ENTERPRISE+45
Function Call: WRITE
  • Prompt: !!,"... ",XURET("errorMessage")
  • Line Location: ENTERPRISE+47
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKSRCH+2
Function Call: WRITE
  • Prompt: !!,"Utilizing Enterprise User Search ..."
  • Line Location: ASKCRIT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKCRIT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: LEGACY+2
Function Call: WRITE
  • Prompt: !!,"Searching Enterprise ..."
  • Line Location: SRCH+4
Function Call: WRITE
  • Prompt: !!,$S((XUSRCH="T"):"Enter traits to search on ...",1:"User not found, let's gather a few additional traits and try again ...")
  • Line Location: XSRCH+5
Function Call: WRITE
  • Prompt: !!,"Searching Enterprise with the ",$S((XUSRCH="T"):"",1:"additional "),"traits ..."
  • Line Location: XSRCH+7
Function Call: WRITE
  • Prompt: !!,"User isn't selectable due to:",!?5,XURET2(CNT,"note"),!?5,"If assistance is required, please log a service ticket."
  • Line Location: XSRCH+19
Function Call: WRITE
  • Prompt: !!,"User isn't selectable due to:",!?5,XURET2(CNT,"note"),!?5,"If assistance is required, please log a service ticket."
  • Line Location: XSRCH+25
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKTRTS+2
Function Call: WRITE
  • Prompt: !!!,"Users found at Enterprise ...",!!?2,"#",?4,"ICN",?23,"NAME",?54,"SSN",?65,"DOB",?75,"SEX"
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPRSN+3
Function Call: WRITE
  • Prompt: !!,"Traits for user from Enterprise ...",!
  • Line Location: XDISP+1
Function Call: WRITE
  • Prompt: !?4,"ICN:",?17,$G(XURET(CNT,"icn"))
  • Line Location: XDISP+2
Function Call: WRITE
  • Prompt: !?4,"Name:",?17,$G(XURET(CNT,"lastName")),",",$G(XURET(CNT,"firstName"))," ",$G(XURET(CNT,"middleName"))
  • Line Location: XDISP+3
Function Call: WRITE
  • Prompt: !?4,"Email: ",?17,$G(XURET(CNT,"email"))
  • Line Location: XDISP+4
Function Call: WRITE
  • Prompt: !?4,"NT Username:",?17,$S($G(XURET(CNT,"samAccountName"))'="":XURET(CNT,"samAccountName"),$G(XURET(CNT,"samacctnm"))'="":XURET(CNT,"samacctnm"),1:"")
  • Line Location: XDISP+5
Function Call: WRITE
  • Prompt: !?4,"SSN:",?17,$G(XURET(CNT,"pnid"))
  • Line Location: XDISP+6
Function Call: WRITE
  • Prompt: !?4,"DOB:",?17,$E($G(XURET(CNT,"dob")),5,6)_"/"_$E($G(XURET(CNT,"dob")),7,8)_"/"_$E($G(XURET(CNT,"dob")),3,4)
  • Line Location: XDISP+7
Function Call: WRITE
  • Prompt: !?4,"Sex:",?17,$G(XURET(CNT,"gender"))
  • Line Location: XDISP+8
Function Call: WRITE
  • Prompt: !!?4,"Address:"
  • Line Location: XDISP+9
Function Call: WRITE
  • Prompt: ?17,XURET(CNT,"street_1"),!
  • Line Location: XDISP+10
Function Call: WRITE
  • Prompt: ?17,XURET(CNT,"street_2"),!
  • Line Location: XDISP+11
Function Call: WRITE
  • Prompt: ?17,XURET(CNT,"street_3"),!
  • Line Location: XDISP+12
Function Call: WRITE
  • Prompt: ?17,$G(XURET(CNT,"city"))_", "_$G(XURET(CNT,"state"))_" "_$G(XURET(CNT,"postalCode")),!
  • Line Location: XDISP+13
Function Call: WRITE
  • Prompt: !?4,"Phone:",?17,$G(XURET(CNT,"phone"))
  • Line Location: XDISP+14
Function Call: WRITE
  • Prompt: !?4,"SECID:",?17,$G(XURET(CNT,"secId"))
  • Line Location: XDISP+15
Function Call: WRITE
  • Prompt: !?4,"NPI:",?17,$G(XURET(CNT,"npi"))
  • Line Location: XDISP+16
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKCONT+2
Routine Call
  • DIC
  • Line Location:
    • ENTERPRISE+20
Routine Call
  • DIR
  • Line Location:
    • ASKSRCH+2
    • ASKCRIT+3
    • RETCRIT+5
    • RETCRIT+12
    • LEGACY+2
    • ASKTRTS+2
    • ASKTRTS+7
    • ASKTRTS+9
    • ASKTRTS+11
    • ASKPRSN+3
    • ASKCONT+2

Label References

Name Line Occurrences
$$ASKCONT SRCH+9, XSRCH+18, XSRCH+24
$$ASKCRIT ENTERPRISE+32
$$ASKPRSN XSRCH+16
$$ASKTRTS XSRCH+6
$$CHKUSER ENTERPRISE+24
$$LEGACY ENTERPRISE+27, ENTERPRISE+42, ENTERPRISE+43, ENTERPRISE+45
$$OPTION ENTERPRISE+22
$$RETCRIT ENTERPRISE+34
$$SRCH ENTERPRISE+36
$$XSRCH ENTERPRISE+38
DISP XSRCH+15
ORCH XSRCH+20, XSRCH+26
XDISP SRCH+8, XSRCH+17, XSRCH+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BC ASKPRSN+1~, ASKPRSN+2*, ASKPRSN+3
CNT SRCH+7*, SRCH+8, XSRCH+11*, XSRCH+13, XSRCH+16*, XSRCH+17, XSRCH+19, XSRCH+20, XSRCH+21, XSRCH+23
, XSRCH+25, XSRCH+26, DISP+2*, DISP+3, DISP+4, XDISP~, XDISP+2, XDISP+3, XDISP+4, XDISP+5
, XDISP+6, XDISP+7, XDISP+8, XDISP+10, XDISP+11, XDISP+12, XDISP+13, XDISP+14, XDISP+15, XDISP+16
, ORCH~, ORCH+1, ORCH+4
CONT XSRCH+1~, XSRCH+3*, XSRCH+13, XSRCH+14, XSRCH+16*, XSRCH+18*, XSRCH+19*, XSRCH+24*, XSRCH+25*, XSRCH+28
DIR ASKSRCH+1~, ASKCRIT+2~, RETCRIT+3!, RETCRIT+10!, LEGACY+1~, ASKTRTS+1~, ASKTRTS+7!, ASKTRTS+9!, ASKTRTS+11!, ASKPRSN+1~
, ASKPRSN+3!, ASKCONT+1~
DIR("?" RETCRIT+4*, RETCRIT+11*, LEGACY+2*, ASKTRTS+7*, ASKPRSN+3*
DIR("A" ASKSRCH+2*, ASKCRIT+3*, RETCRIT+4*, RETCRIT+11*, LEGACY+2*, ASKTRTS+2*, ASKTRTS+7*, ASKPRSN+3*, ASKCONT+2*
DIR("B" ASKSRCH+2*, ASKCRIT+3*, LEGACY+2*, ASKCONT+2*
DIR(0 ASKSRCH+2*, ASKCRIT+3*, RETCRIT+3*, RETCRIT+10*, LEGACY+2*, ASKTRTS+2*, ASKTRTS+7*, ASKTRTS+9*, ASKTRTS+11*, ASKPRSN+3*
, ASKCONT+2*
DIRUT ASKSRCH+1~, ASKSRCH+2, ASKCRIT+2~, ASKCRIT+3, RETCRIT+12, LEGACY+1~, ASKTRTS+1~, ASKTRTS+2, ASKTRTS+7!, ASKTRTS+9!
, ASKTRTS+11!, ASKPRSN+1~, ASKPRSN+3, ASKCONT+1~, ASKCONT+2
DTOUT ASKSRCH+1~, ASKCRIT+2~, LEGACY+1~, ASKTRTS+1~, ASKTRTS+7!, ASKTRTS+9!, ASKTRTS+11!, ASKPRSN+1~, ASKCONT+1~
DUOUT ASKSRCH+1~, ASKCRIT+2~, LEGACY+1~, ASKTRTS+1~, ASKTRTS+7!, ASKTRTS+9!, ASKTRTS+11!, ASKPRSN+1~, ASKCONT+1~
DUZ ENTERPRISE+24, CHKUSER~, CHKUSER+11, CHKUSER+12, CHKUSER+13, ASKTRTS+13, ORCH+2
DUZ("LOA" CHKUSER+10
EC ASKPRSN+1~, ASKPRSN+2*, ASKPRSN+3
PROD ENTERPRISE+18~, ENTERPRISE+40*, ENTERPRISE+41, ENTERPRISE+44
X ASKSRCH+1~, ASKCRIT+2~, LEGACY+1~, ASKTRTS+1~, ASKTRTS+7!, ASKTRTS+9!, ASKTRTS+11!, ASKPRSN+1~, ASKCONT+1~
XQOPT OPTION+1~, OPTION+3
XQORNOD OPTION+1~
XUARR CHKUSER+9~
XUARR(200 CHKUSER+12, CHKUSER+13
XUIAM ENTERPRISE+18~, ENTERPRISE+34, ENTERPRISE+36, ENTERPRISE+38, CHKUSER+9~, CHKUSER+15, RETCRIT~, SRCH~, SRCH+5, XSRCH~
, XSRCH+6, XSRCH+8, ASKTRTS~, ORCH+1!*, ORCH+3
XUIAM("VAemail" CHKUSER+12*, CHKUSER+14, RETCRIT+6*, XSRCH+4*
XUIAM("WHO" ASKTRTS+13*, ORCH+2*
XUIAM("dob" ASKTRTS+10*
XUIAM("firstName" ASKTRTS+4*
XUIAM("gender" ASKTRTS+12*
XUIAM("lastName" ASKTRTS+6*
XUIAM("middleName" ASKTRTS+5*
XUIAM("pnid" ASKTRTS+8*
XUIAM("samacctnm" CHKUSER+13*, CHKUSER+14, RETCRIT+13*
XUOPT ENTERPRISE+18~, ENTERPRISE+22*, ENTERPRISE+46, OPTION+1~, OPTION+2*, OPTION+3*, OPTION+4, LEGACY+2
XUREQTYP ENTERPRISE~, ENTERPRISE+50
XURET ENTERPRISE+18~, ENTERPRISE+36, ENTERPRISE+38, ENTERPRISE+41, ENTERPRISE+42, ENTERPRISE+44, ENTERPRISE+45, ENTERPRISE+50, CHKUSER+9~, CHKUSER+15
, CHKUSER+16, SRCH~, SRCH+2!, SRCH+5, SRCH+6!, SRCH+7!, SRCH+8, XSRCH~, XSRCH+2!, XSRCH+9*
, XSRCH+20, XSRCH+26, XSRCH+27*, DISP~, ASKPRSN~, XDISP~, ORCH~, ORCH+5*
XURET( SRCH+7*, XSRCH+21*, DISP+2, DISP+3, DISP+4, XDISP+2, XDISP+3, XDISP+4, XDISP+5, XDISP+6
, XDISP+7, XDISP+8, XDISP+10, XDISP+11, XDISP+12, XDISP+13, XDISP+14, XDISP+15, XDISP+16
XURET("@" ASKPRSN+2
XURET("errorMessage" ENTERPRISE+41, ENTERPRISE+43, ENTERPRISE+44, ENTERPRISE+47, CHKUSER+17, SRCH+6, XSRCH+10*
XURET("lastName" SRCH+6
XURET("secId" CHKUSER+18, CHKUSER+19
XURET(0 ENTERPRISE+38, ASKPRSN+2
XURET2 SRCH+1~, SRCH+7*, XSRCH+1~, XSRCH+8, XSRCH+9, XSRCH+10!, XSRCH+15, XSRCH+16, XSRCH+17, XSRCH+20
, XSRCH+23, XSRCH+26, XSRCH+27, ORCH~, ORCH+1!, ORCH+3, ORCH+5
XURET2( XSRCH+13, XSRCH+19, XSRCH+20, XSRCH+21, XSRCH+25, XSRCH+26, ORCH+1, ORCH+4
XURET2("errorMessage" XSRCH+9, ORCH+4*
XURET2(0 XSRCH+10, XSRCH+11
XUSRCH ENTERPRISE+18~, ENTERPRISE+32*, ENTERPRISE+34, ENTERPRISE+36, ENTERPRISE+38, RETCRIT~, RETCRIT+1, RETCRIT+8, XSRCH~, XSRCH+4
, XSRCH+5, XSRCH+7
XUTERMDT ENTERPRISE~, ENTERPRISE+50
Y ENTERPRISE+24*, ENTERPRISE+26, ENTERPRISE+27*, ENTERPRISE+28, ENTERPRISE+34*, ENTERPRISE+41, ENTERPRISE+42*, ENTERPRISE+43*, ENTERPRISE+44, ENTERPRISE+45*
, ENTERPRISE+47*, ASKSRCH+1~, ASKSRCH+2*, ASKSRCH+3, ASKCRIT+2~, ASKCRIT+3*, ASKCRIT+4, RETCRIT+1, RETCRIT+5*, RETCRIT+6
, RETCRIT+8, RETCRIT+12*, RETCRIT+13, LEGACY+1~, LEGACY+2, LEGACY+3, ASKTRTS+1~, ASKTRTS+2, ASKTRTS+3, ASKTRTS+7!
, ASKTRTS+8, ASKTRTS+9!, ASKTRTS+10, ASKTRTS+11!, ASKTRTS+12, ASKPRSN+1~, ASKPRSN+4, ASKCONT+1~, ASKCONT+3
Y("FAMILY" ASKTRTS+6
Y("GIVEN" ASKTRTS+4
Y("MIDDLE" ASKTRTS+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All