Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls