| 1 | USRLFF ;SLC/PKR - User Class file functions and proc's ;2/19/98
|
|---|
| 2 | ;;1.0;AUTHORIZATION/SUBSCRIPTION;**3**;Jun 20, 1997
|
|---|
| 3 | ;This is a library of file functions, mainly for other packages that
|
|---|
| 4 | ;need to access ASU data.
|
|---|
| 5 | ;======================================================================
|
|---|
| 6 | EVNTPTR(EVENT) ;Return pointer to event EVENT in the USR ACTION file.
|
|---|
| 7 | Q +$O(^USR(8930.8,"B",EVENT,0))
|
|---|
| 8 | ;
|
|---|
| 9 | ;======================================================================
|
|---|
| 10 | EVNTVERB(IEN) ;Return the verb for event with ien of IEN.
|
|---|
| 11 | Q $P($G(^USR(8930.8,IEN,0)),U,5)
|
|---|
| 12 | ;
|
|---|
| 13 | ;======================================================================
|
|---|
| 14 | HASAS(IEN) ;Return true if entry IEN has Authorizations/Subscriptions.
|
|---|
| 15 | I $D(^USR(8930.1,"B",IEN)) Q 1
|
|---|
| 16 | E Q 0
|
|---|
| 17 | ;
|
|---|
| 18 | ;======================================================================
|
|---|
| 19 | USRCLASS(IEN) ;Return the 0 node of USR CLASS.
|
|---|
| 20 | Q $G(^USR(8930,IEN,0))
|
|---|
| 21 | ;
|
|---|
| 22 | ;======================================================================
|
|---|
| 23 | USRROLE(ROLE) ;Return the IEN of role ROLE in the USR ROLE file.
|
|---|
| 24 | Q +$O(^USR(8930.2,"B",ROLE,0))
|
|---|
| 25 | ;
|
|---|
