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 ;SFISC/RWF - A common set of user functions ;11/07/2012 11:56

Source Information

Source file <XUSER.m>

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: 137

Package Total Caller Graph
Kernel 38 XQ55  XQ55SPEC  XQ82  XQ84  XQALBUTL  XQALSET  XQALSET1  XQALSURO  
XQCHK3  XQSMD5  XU EPCS PSDRPH  XU EPCS SET PARMS  XU8P377D  XU8P480  XU8P497  XU8P497A  
XUA4A72  XUBA  XUEPCSRT  XUFILESINGLEADD  XUINPCH2  XUP468  XUPSQRY  XUSAP1  
XUSBSE1  XUSEC ISO VISITED  XUSECBUL  XUSERNEW  XUSMGR  ^VA(200  XUPSCLR  XUSERP  
XUSNPI1  XUSNPIE1  XUSNPIE2  XUSRB2  XUSRB4  XUTMTP  
Lab Service 25 LR232  LR258  LR281  LR286  LR287  LR290  LR302  LR303  
LR305  LR309  LR313  LR315  LR320  LR325  LR326  LR328  
LR329  LR330  LR331  LR334  LR343  LR346  LRAPRES1  LRDIQ  
LRVRPOC  
Automated Lab Instruments 15 LA64  LA67  LA68  LA70  LA71  LA72  LA7CHLU9  LA7COBX1  
LA7COBX2  LA7COBX3  LA7PCFG  LA7VHLU9  LA7VOBX1  LA7VOBX2  LA7VOBX3  
Order Entry Results Reporting 13 ORALWORD  ORB3U2  ORCACT01  ORCMENU1  ORCSAVE1  ORQPTQ2  ORWDPS1  ORWDRA32  
ORWOR1  ORWORR  ORWU1  ORWU2  ORY44C  
Scheduling 13 SDRR1  SDRR5  SDRRCLR2  SDRRCRR  SDRRCRR1  SDRRINQ  SDRRINQ1  SDRRISRL  
SDRRISRX  SDSCEDT  SDSCPRV  SDSCRPT2  SDSCUSR  
Surgery 5 SROATCM2  SROATM4  SROQM  SROQT  SRTPTMIT  
Health Summary 4 GMTSXA  GMTSXAO  GMTSXAP  GMTSXAP2  
Text Integration Utility 4 TIUALRT  TIUHL7U1  TIULA3  TIURA1  
Care Management 2 ORRCLNP  ORRCOR  
Consult Request Tracking 2 GMRCADC  GMRCAFRD  
Controlled Substances 2 PSDDSOR1  PSDDSOR2  
IHS Changes To Pharmacy 2 APSPES9  APSPESG  
IHS Electronic Health Record 2 BEHOPTP1  BEHOUSCX  
Registration 2 DGENU  DGQPTQ2  
GUI Generic Tools 1 BGUXUSRB  
HealtheVet Desktop 1 XHDAUTH  
IHS Changes To Lab 1 BLROLOR  
Outpatient Pharmacy 1 PSORMRXD  
Radiology Nuclear Medicine 1 RABWORD  
Referred Care Information System 1 BMCRPC4  
VistALink 1 XOBVSYSI  
iCare 1 BQISYKEY  

Entry Points

Name Comments DBIA/ICR reference
DEA(FG,IEN) ;sr. ef. Return users DEA # or Facility DEA_"-"_user VA# or null
  • ICR #2343
    • Status: Active
    • Usage: Supported
    HL7(IEN) ;Return a HL7 name from the components file
    LOOKUP(XUF) ;Do a user lookup
  • ICR #2343
    • Status: Active
    • Usage: Supported
    SCR200() ;Whole File Screen logic for file 200
    VDEA(RETURN,IEN)
  • ICR #2343
    • Status: Active
    • Usage: Supported
    PROVIDER(XUDA,XUF) ;See if user qualifies as a CPRS provider
  • ICR #2343
    • Status: Active
    • Usage: Supported
    DETOX(IEN) ;Return the Detox/Maintenance ID in file 200 - p580/REM
  • ICR #2343
    • Status: Active
    • Usage: Supported
    LKX
    BULL ;Called from bulletin in DD of file #200 for 'Sub Alt Name' fld.
    NAME(IEN,FL) ;Return the full name from Name Components file
  • ICR #2343
    • Status: Active
    • Usage: Supported
    ACTIVE(XUDA) ;Get if a user is active.
  • ICR #2343
    • Status: Active
    • 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
    SDEA(FG,IEN,PSDEA) ;validation for new DEA regulations p580-JC(CPRS)
  • ICR #2343
    • Status: Active
    • Usage: Supported
    LK1

    External References

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

    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:
      • BULL+4
    Routine Call
    • DIC
    • Line Location:
      • LK1
    Routine Call
    • DIR
    • Line Location:
      • LK1+3

    Global Variables Directly Accessed

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

    Label References

    Name Line Occurrences
    $$ACTIVE VDEA+9
    $$DEA SDEA+8
    LK1 LK1+1, LK1+4
    LKX LK1, LK1+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+33~, VDEA+35*, VDEA+42*, VDEA+43, VDEA+44
    DA SDEA+6~, SDEA+11*, SDEA+12
    DATE VDEA+8~, VDEA+19~, VDEA+20*, VDEA+21, VDEA+22, VDEA+25*, VDEA+26
    DEA DEA+3~, DEA+6*, DEA+8, SDEA+6~, SDEA+8*, SDEA+14, SDEA+20, SDEA+21, SDEA+22, SDEA+23
    , SDEA+24, SDEA+25, SDEA+26, VDEA+8~
    DELIMIT VDEA+45~, VDEA+46*, VDEA+48*, VDEA+49
    DET DETOX+6~, DETOX+8*, DETOX+9, DETOX+10
    DIC LOOKUP+4~, LK1*
    DIC(0 LK1*, SCR200+3
    >> DINDEX SCR200+6
    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+8, DETOX+9, DETOX+10, SDEA+12, VDEA+22, VDEA+26
    DUZ DEA+4, DIV4+3, SCR200+9
    DUZ(2 DEA+4
    E SDEA+6~, SDEA+8, SDEA+9*, SDEA+12*
    ERROR VDEA+38~
    FB DEA+3~
    FG DEA~, DEA+11, SDEA~, SDEA+7*, SDEA+8
    FL NAME~, NAME+2*, NAME+3*, NAME+4
    I BULL+3~, BULL+5*, SDEA+6~, SDEA+16*
    IEN DEA~, DEA+4*, DEA+5, 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+28, VDEA+30, VDEA+37, VDEA+42, VDEA+51, NAME~, NAME+1, HL7~, HL7+1
    IN DEA+3~, DEA+12*, DEA+13, DEA+15*, DEA+17
    INDEX VDEA+45~, VDEA+47*, VDEA+48, VDEA+49
    INN DEA+3~, DEA+4*, DEA+12, DEA+14, DEA+15*
    LABEL VDEA+38~, VDEA+39*, VDEA+40*, VDEA+41
    N DEA+3~, DEA+5*, DEA+6, DETOX+6~, DETOX+7*, DETOX+8, SDEA+6~, SDEA+10*, SDEA+11
    N1 DEA+3~, DEA+5*, DEA+6, 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+29~, VDEA+30*, VDEA+31, VDEA+32
    PIECE VDEA+33~, VDEA+36*, VDEA+37, VDEA+39, VDEA+40, VDEA+42
    PSD BULL+3~, BULL+4*, BULL+5
    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+24*
    RETURN("Is no longer able to write medication orders (inactive date)." , VDEA+27*, t authorized to write medication orders." , VDEA+17*, t permitted to prescribe any schedules." , VDEA+31*
    RETURN("Is pe rmitted to prescribe all schedules." , VDEA+43*, VDEA+51*, rmitted to prescribe schedule" , VDEA+50*
    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+24*, VDEA+27*, VDEA+31*, VDEA+52
    SCHED VDEA+33~, VDEA+41*, VDEA+47, VDEA+48, VDEA+49, VDEA+50
    SPEC VDEA+33~, VDEA+39
    SPEC("SCHEDUL E " , VDEA+34*
    STATUS VDEA+8~, VDEA+9*, VDEA+10, VDEA+11, VDEA+12, VDEA+13
    TEXT VDEA+45~, VDEA+49*, VDEA+50
    U LK1+3, ACTIVE+3, ACTIVE+4, ACTIVE+5, ACTIVE+6, PROVIDER+16, PROVIDER+20, DEA+6, DEA+8, DEA+12
    , DEA+15, DETOX+8, SDEA+11, VDEA+12, VDEA+16, VDEA+18, VDEA+20, VDEA+23, VDEA+25, VDEA+30
    , VDEA+37, VDEA+41, VDEA+42, VDEA+47, VDEA+48, VDEA+49, VDEA+50, DIV4+4
    VA DEA+3~, DEA+6*, DEA+11, DEA+17
    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+3~, DEA+6*, DETOX+6~, DETOX+8*, DETOX+9, DETOX+10
    >> XMY( BULL+5*
    XU1 DEA+14~
    XU1("P" DEA+15
    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
    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~, LK1, LK1+1*, LK1+4, 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