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

Entry Points

Name Comments DBIA/ICR reference
LOOKUP(XUF) ;Do a user lookup
  • ICR #2343
    • Status: Active
    • Usage: Supported
    LK1
    LKX
    ACTIVE(XUDA) ;Get if a user is active.
  • ICR #2343
    • Status: Active
    • 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: Active
    • Usage: Supported
    DEA(FG,IEN,DATE,RXDEA) ;sr. ef. Return users DEA # or Facility DEA_"-"_user VA# or null
  • ICR #2343
    • Status: Active
    • Usage: Supported
    DETOX(IEN,DATE) ;*689 - Returns the Detox # from file 8991.9/200 - p580/REM
  • ICR #2343
    • Status: Active
    • Usage: Supported
    SDEA(FG,IEN,PSDEA,DATE,IDEA,INIEN) ;validation for new DEA regulations p580-JC(CPRS)
  • ICR #2343
    • Status: Active
    • Usage: Supported
    CVA ; VA number
    SCHK(DEA,PSDEA,N3) ;
    GVA(INIEN) ; Find Facility DEA and VA #
    ; INN - Pointer to INSTITUTION file (#4)
    VDEA(RETURN,IEN)
  • 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
    VDEADNA(RETURN,NPIEN,DNDEAIEN)
    VDEADNM(RETURN,NPIEN)
    NAME(IEN,FL) ;Return the full name from Name Components file
  • ICR #2343
    • Status: Active
    • 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
    PRDEA(IEN) ; 689 - Return Prescriber's active DEA
    ; IEN-Prescriber DUZ from file 200
  • ICR #2343
    • Status: Active
    • Usage: Supported
    PRXDT(IEN) ; 689 - Return Prescriber's default DEA Expiration Date
    ; IEN-Prescriber DUZ from file 200
  • ICR #2343
    • Status: Active
    • Usage: Supported
    PRSCH(IEN) ; 689 - Return Prescriber's default DEA schedules
    ; IEN-Prescriber DUZ from file 200
  • ICR #2343
    • Status: Active
    • Usage: Supported
    DEAXDT(DEA) ; 689 - Return Expiration Date for DEA
    ; DEA-DEA Number. Example: AH1966007
    DEASCH(DEA) ; 689 - Return DEA Schedules for DEA number
    ; DEA-DEA Number. Example: AH1966007

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !?15,"This user was terminated on ",$$FMTE^XLFDT(Y)
    • Line Location: LK1+1
    Info |  Source |  Entry Points |  Interaction Calls