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