XUSER ;ISP/RFR - A common set of user functions ;06/09/15 10:51
Source file <XUSER.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
LOOKUP(XUF) | ;Do a user lookup
|
|
LK1 | ||
LKX | ||
ACTIVE(XUDA) | ;Get if a user is active.
|
|
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
|
|
DEA(FG,IEN,DATE,RXDEA) | ;sr. ef. Return users DEA # or Facility DEA_"-"_user VA# or null
|
|
DETOX(IEN,DATE) | ;*689 - Returns the Detox # from file 8991.9/200 - p580/REM
|
|
SDEA(FG,IEN,PSDEA,DATE,IDEA,INIEN) | ;validation for new DEA regulations p580-JC(CPRS)
|
|
CVA | ; VA number
|
|
SCHK(DEA,PSDEA,N3) | ;
|
|
GVA(INIEN) | ; Find Facility DEA and VA #
; INN - Pointer to INSTITUTION file (#4) |
|
VDEA(RETURN,IEN) |
|
|
DIV4(XUROOT,XUDUZ) | ;Return the Divisions that this user is assigned to.
|
|
VDEADNA(RETURN,NPIEN,DNDEAIEN) | ||
VDEADNM(RETURN,NPIEN) | ||
NAME(IEN,FL) | ;Return the full name from Name Components file
|
|
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 |
|
PRXDT(IEN) | ; 689 - Return Prescriber's default DEA Expiration Date
; IEN-Prescriber DUZ from file 200 |
|
PRSCH(IEN) | ; 689 - Return Prescriber's default DEA schedules
; IEN-Prescriber DUZ from file 200 |
|
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|