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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: XUSER

Package: Kernel

Routine: XUSER


Information

XUSER ;ISP/RFR - A common set of user functions ;06/09/15 10:51

Source Information

Source file <XUSER.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 $$FMTE^XLFDT  ($$HLNAME,$$NAMEFMT)^XLFNAME  ($$REPLACE,$$STRIP)^XLFSTR  PARENT^XUAF4  
VA FileMan 3 (,$$FIND1)^DIC  $$GET1^DID  ^DIR  

Caller Graph

Caller Graph Total: 191

Package Total Caller Graph
Kernel 44 XQ55  XQ55SPEC  XQ82  XQ84  XQALBUTL  XQALSET  XQALSET1  XQALSURO  
XQCHK3  XQSMD5  XU EPCS PSDRPH  XU EPCS SET PARMS  XU8P377D  XU8P480  XU8P497  XU8P497A  
XUA4A72  XUBA  XUEPCSRT  XUESSO1  XUESSO3  XUESSO4  XUFILESINGLEADD  XUINPCH2  
XUP468  XUPSCLR  XUPSQRY  XUSAP PROXY LIST  XUSAP1  XUSBSE1  XUSEC ISO ACTIVE USER SORT  XUSEC ISO VISITED  
XUSECBUL  XUSERNEW  XUSERP  XUSMGR  XUSNPI1  XUSNPIE1  XUSNPIE2  XUSRB2  
XUSRB4  XUTMTP  ^DIC(19  ^VA(200  
Lab Service 30 LR232  LR278  LR309  LR315  LR325  LR328  LR329  LR331  
LR334  LR343  LR346  LR462A  LR479  LR482  LR7OB63  LR7OGG  
LR7OR2  LR7ORB3  LR7OSUM2  LR7OV5  LRAPBR1  LRAPRES1  LRAPUTL  LRDIQ  
LRERT1  LRLIST  LRSCTX1  LRUTIL2  LRVRAR  LRVRPOC  
Order Entry Results Reporting 22 ORALWORD  ORAREN  ORB3U2  ORCACT01  ORCMENU1  ORCSAVE1  ORDEA  ORDEA01  
ORDEA01A  ORDEA01B  ORPARMG1  ORQOREP  ORQPTQ2  ORQQPL2  ORUTL  ORWDPS1  
ORWDRA32  ORWOR1  ORWORR  ORWU1  ORWU2  ORY218  
Scheduling 16 SCMCNPER  SD53P566  SDRR1  SDRR5  SDRRCLR2  SDRRCRR  SDRRCRR1  SDRRINQ  
SDRRINQ1  SDRRISRL  SDRRISRX  SDRRSEG3  SDSCEDT  SDSCPRV  SDSCRPT2  SDSCUSR  
Automated Lab Instruments 12 LA66  LA68  LA72  LA74  LA7PCFG  LA7UCFG  LA7VHLU9  LA7VOBX1  
LA7VOBX2  LA7VOBX4  LA7VORUA  ^LAHM(62.485  
Outpatient Pharmacy 9 PSOASAP0  PSOCLUTL  PSODIR  PSOERXH1  PSOORFI5  PSOPKIV1  PSOPKIV2  PSORMRXD  
PSOUTIL  
Health Summary 5 GMTSXA  GMTSXAO  GMTSXAP  GMTSXAP2  ^GMT(142.98  
Text Integration Utility 5 TIUALRT  TIUDTBP0  TIUHL7U1  TIULA3  TIURA1  
Surgery 4 SROATCM2  SROATM4  SROQ30D  SRTPTMIT  
Accounts Receivable 3 RCDPEM3  RCDPEM41  RCDPEM6  
DSS Extracts 3 ECXPURG1  ECXPUTL  ECXTRANS  
Event Capture 3 ECDEAL2  ECPRVDR  ECUMRPC2  
Imaging 3 MAGGA03  MAGQBUT5  MAGSIXG2  
Integrated Billing 3 IBCEP9B  IBCNAU  IBCNEUT7  
Shift Handoff Tool 3 CRHD5  CRHD9  CRHDUD  
VBECS 3 VBECLU3  VBECRPCE  VBECRPCM  
Capacity Management Tools 2 KMPDSSD1  KMPDUTL1  
Consult Request Tracking 2 GMRCADC  GMRCAFRD  
Inpatient Medications 2 PSJCLOZ  PSJPDCLU  
Registration 2 DGENU  DGQPTQ2  
VistA Integration Adapter 2 VIABRPC  VIABRPC4  
Care Management 1 ORRCLNP  
Controlled Substances 1 PSDDSOR2  
Emergency Department Integration Software 1 EDPFPER  
Fee Basis 1 FBXIP154  
HealtheVet Desktop 1 XHDAUTH  
Mental Health 1 YSCLSRV3  
My HealtheVet 1 MHV7B9A  
Radiology Nuclear Medicine 1 RABWORD  
Remote Order Entry System 1 RMPFRPC0  
SAGG Project 1 KMPSUTL1  
Toolkit 1 ^XTV(8989.51  
VistALink 1 XOBVSYSI  
VistALink Security 1 XOBSRA  

Entry Points

Name Comments DBIA/ICR reference
LOOKUP(XUF) ;Do a user lookup
  • ICR #2343
    • Status: Under Revision
    • Usage: Supported
    LK1
    LKX
    ACTIVE(XUDA) ;Get if a user is active.
  • ICR #2343
    • Status: Under Revision
    • Usage: Supported
    BULL ;Called from bulletin in DD of file #200 for 'Sub Alt Name' fld.
    PROVIDER(XUDA,XUF) ;See if user qualifies as a CPRS provider
  • ICR #2343
    • Status: Under Revision
    • Usage: Supported
    DEA(FG,IEN) ;sr. ef. Return users DEA # or Facility DEA_"-"_user VA# or null
  • ICR #2343
    • Status: Under Revision
    • Usage: Supported
    DETOX(IEN) ;Return the Detox/Maintenance ID in file 200 - p580/REM
  • ICR #2343
    • Status: Under Revision
    • Usage: Supported
    SDEA(FG,IEN,PSDEA) ;validation for new DEA regulations p580-JC(CPRS)
  • ICR #2343
    • Status: Under Revision
    • Usage: Supported
    VDEA(RETURN,IEN)
  • ICR #2343
    • Status: Under Revision
    • Usage: Supported
    DIV4(XUROOT,XUDUZ) ;Return the Divisions that this user is assigned to.
  • ICR #2533
    • Status: Active
    • Usage: Controlled Subscription
  • ICR #5139
    • Status: Pending
    • Usage: Private
    NAME(IEN,FL) ;Return the full name from Name Components file
  • ICR #2343
    • Status: Under Revision
    • Usage: Supported
    HL7(IEN) ;Return a HL7 name from the components file
    SCR200() ;Whole File Screen logic for file 200
    ; ZEXCEPT: DIC,DINDEX - Kernel exemption

    External References

    Name Field # of Occurrence
    ^DIC LK1
    $$FIND1^DIC BULL+5
    $$GET1^DID VDEA+42
    ^DIR LK1+3
    $$FMTE^XLFDT LK1+1
    $$HLNAME^XLFNAME HL7+2
    $$NAMEFMT^XLFNAME NAME+4
    $$REPLACE^XLFSTR VDEA+42
    $$STRIP^XLFSTR VDEA+33
    PARENT^XUAF4 DEA+16

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !?15,"This user was terminated on ",$$FMTE^XLFDT(Y)
    • Line Location: LK1+1
    Routine Call
    • DIC
    • Line Location:
      • LK1
    Routine Call
    • DIC
    • Line Location:
      • BULL+5
    Routine Call
    • DIR
    • Line Location:
      • LK1+3

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" SDEA+12
    ^DIC(4 - [#4] DEA+14, DEA+17, DEA+19
    ^VA(200 - [#200] ACTIVE+2, ACTIVE+3, ACTIVE+5, BULL+6, PROVIDER+10, PROVIDER+26, PROVIDER+27, DEA+7, DETOX+7, SDEA+10
    , SDEA+14, SDEA+15, SDEA+18, VDEA+16, VDEA+18, VDEA+20, VDEA+23, VDEA+25, VDEA+27, VDEA+28
    , VDEA+31, VDEA+33, VDEA+40, VDEA+45, VDEA+54, DIV4+4
    ^XUSEC("ORES" VDEA+14
    ^XUSEC("XUORES" PROVIDER+13
    ^XUSEC("XUSHOWSSN" SCR200+10

    Label References

    Name Line Occurrences
    $$ACTIVE VDEA+9
    $$DEA SDEA+8
    LK1 LK1+1, LK1+4
    LKX LK1LK1+2

    Naked Globals

    Name Field # of Occurrence
    ^( DIV4+4
    ^("PS" SDEA+19*

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % ACTIVE+1~, ACTIVE+6*, PROVIDER+5~, PROVIDER+20*, DIV4+3~*, DIV4+4*
    %1 DIV4+3~*, DIV4+4*, DIV4+5
    A SDEA+6~
    A( SDEA+16*
    A(1 SDEA+20
    A(2 SDEA+21
    A(3 SDEA+22
    A(4 SDEA+23
    A(5 SDEA+24
    A(6 SDEA+25
    ASCHED VDEA+36~, VDEA+38*, VDEA+45*, VDEA+46, VDEA+47
    DA SDEA+6~, SDEA+11*, SDEA+12
    DATE VDEA+8~, VDEA+19~, VDEA+20*, VDEA+21, VDEA+22, VDEA+28*, VDEA+29
    DEA DEA+5~, DEA+8*, DEA+11, SDEA+6~, SDEA+8*, SDEA+14, SDEA+20, SDEA+21, SDEA+22, SDEA+23
    , SDEA+24, SDEA+25, SDEA+26, VDEA+8~
    DELIMIT VDEA+48~, VDEA+49*, VDEA+51*, VDEA+52
    DET DETOX+6~, DETOX+8*, DETOX+9, DETOX+10
    DIC LOOKUP+4~, LK1*
    DIC(0 LK1*, SCR200+4
    >> DINDEX SCR200+7
    DIR LOOKUP+4~
    DIR("A" LK1+3*
    DIR("B" LK1+3*
    DIR(0 LK1+3*
    >> DIRUT LK1+4
    DT LK1+1, ACTIVE+6, PROVIDER+20, DEA+11, DEA+21, DETOX+9, DETOX+10, SDEA+12, VDEA+22, VDEA+29
    DUZ DEA+6, DIV4+3, SCR200+10
    DUZ(2 DEA+6
    E SDEA+6~, SDEA+8, SDEA+9*, SDEA+12*
    ERROR VDEA+41~
    FB DEA+5~, DEA+9*, DEA+12
    FG DEA~, DEA+13, SDEA~, SDEA+7*, SDEA+8
    FL NAME~, NAME+2*, NAME+3*, NAME+4
    I BULL+4~, BULL+6*, SDEA+6~, SDEA+16*
    IEN DEA~, DEA+6*, DEA+7, DETOX~, DETOX+7, SDEA~, SDEA+7*, SDEA+8, SDEA+10, SDEA+14
    , SDEA+15, SDEA+18, VDEA~, VDEA+9, VDEA+14, VDEA+16, VDEA+18, VDEA+20, VDEA+23, VDEA+25
    , VDEA+27, VDEA+28, VDEA+31, VDEA+33, VDEA+40, VDEA+45, VDEA+54, NAME~, NAME+1, HL7~
    , HL7+1
    IN DEA+5~, DEA+14*, DEA+15, DEA+17*, DEA+21
    INDEX VDEA+48~, VDEA+50*, VDEA+51, VDEA+52
    INN DEA+5~, DEA+6*, DEA+14, DEA+16, DEA+17*, DEA+19
    LABEL VDEA+41~, VDEA+42*, VDEA+43*, VDEA+44
    N DEA+5~, DEA+7*, DEA+8, DEA+9, DETOX+6~, DETOX+7*, DETOX+8, SDEA+6~, SDEA+10*, SDEA+11
    N1 DEA+5~, DEA+7*, DEA+8, DETOX+6~, DETOX+7*, DETOX+8, SDEA+6~, SDEA+10*, SDEA+11
    N3 SDEA+6~, SDEA+15*, SDEA+16
    NA NAME+1~, NAME+4, HL7+1~, HL7+2
    NA("FIELD" NAME+1*, HL7+1*
    NA("FILE" NAME+1*, HL7+1*
    NA("IENS" NAME+1*, HL7+1*
    NALL SDEA+6~, SDEA+16*, SDEA+17
    NODE VDEA+32~, VDEA+33*, VDEA+34, VDEA+35
    NODEA VDEA+8~, VDEA+21*, VDEA+22*, VDEA+24*, VDEA+27
    PIECE VDEA+36~, VDEA+39*, VDEA+40, VDEA+42, VDEA+43, VDEA+45
    PSD BULL+4~, BULL+5*, BULL+6
    PSDEA SDEA~, SDEA+7*, SDEA+13, SDEA+20, SDEA+21, SDEA+22, SDEA+23, SDEA+24, SDEA+25
    RETURN VDEA~
    RETURN("Does not hold the ORES security key." , VDEA+15*
    RETURN("Has a DEA number with no expiration date." , VDEA+21*, n expired DEA number." , VDEA+22*
    RETURN("Has n either a DEA number nor a VA number." , VDEA+26*
    RETURN("Is no longer able to write medication orders (inactive date)." , VDEA+30*, t authorized to write medication orders." , VDEA+17*, t permitted to prescribe any schedules." , VDEA+34*
    RETURN("Is pe rmitted to prescribe all schedules due to grandfathering." , VDEA+54*, rmitted to prescribe all schedules." , VDEA+46*, rmitted to prescribe schedule" , VDEA+53*
    RETURN("User account does not exist." , VDEA+10*, account status: " , VDEA+12*, cannot sign on." , VDEA+11*
    RETVAL VDEA+8~, VDEA+9*, VDEA+10*, VDEA+11*, VDEA+12*, VDEA+13, VDEA+15*, VDEA+17*, VDEA+21*, VDEA+22*
    , VDEA+26*, VDEA+27*, VDEA+30*, VDEA+34*, VDEA+55
    SCHED VDEA+36~, VDEA+44*, VDEA+50, VDEA+51, VDEA+52, VDEA+53
    SPEC VDEA+36~, VDEA+42
    SPEC("SCHEDUL E " , VDEA+37*
    STATUS VDEA+8~, VDEA+9*, VDEA+10, VDEA+11, VDEA+12, VDEA+13
    TEXT VDEA+48~, VDEA+52*, VDEA+53
    U LK1+3, ACTIVE+3, ACTIVE+4, ACTIVE+5, ACTIVE+6, PROVIDER+16, PROVIDER+20, DEA+8, DEA+9, DEA+14
    , DEA+17, DEA+19, DETOX+8, SDEA+11, VDEA+12, VDEA+16, VDEA+18, VDEA+20, VDEA+23, VDEA+25
    , VDEA+27, VDEA+28, VDEA+33, VDEA+40, VDEA+44, VDEA+45, VDEA+50, VDEA+51, VDEA+52, VDEA+53
    , DIV4+4
    VA DEA+5~, DEA+8*, DEA+13, DEA+21
    X1 ACTIVE+1~, ACTIVE+2*, ACTIVE+3, ACTIVE+4, ACTIVE+6, PROVIDER+5~, PROVIDER+10*, PROVIDER+16, PROVIDER+20
    X2 ACTIVE+1~, ACTIVE+2*, ACTIVE+3*, ACTIVE+4*, ACTIVE+5*, ACTIVE+6*, ACTIVE+7, PROVIDER+5~, PROVIDER+10*
    XD SDEA+6~, SDEA+11*, SDEA+12
    XDT DEA+5~, DEA+8*, DEA+11, DETOX+6~, DETOX+8*, DETOX+9, DETOX+10
    >> XMY( BULL+6*
    XU1 DEA+16~
    XU1("P" DEA+17
    XUDA LOOKUP+4~, LK1*, LK1+1*, LK1+3, LK1+4*, LKX, ACTIVE~, ACTIVE+2, ACTIVE+3, ACTIVE+5
    , PROVIDER~, PROVIDER+7, PROVIDER+10, PROVIDER+13, PROVIDER+26, PROVIDER+27
    XUDUZ DIV4~, DIV4+3*, DIV4+4
    XUEXDT DEA+19~*, DEA+20*, DEA+21
    XUF LOOKUP~, LK1+1, LK1+2, PROVIDER~, PROVIDER+26
    XUORES PROVIDER+5~, PROVIDER+13*, PROVIDER+20, PROVIDER+23
    XUROOT DIV4~
    XUROOT( DIV4+4*
    Y LOOKUP+4~, LK1LK1+1*, LK1+4, SDEA+6~, SDEA+12*
    Y(0 LK1+1
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All