USRLFF.m

USRLFF ;SLC/PKR - User Class file functions and proc's ;2/19/98

 ;;1.0;AUTHORIZATION/SUBSCRIPTION;**3**;Jun 20, 1997

 ;This is a library of file functions, mainly for other packages that

 ;need to access ASU data.

 ;======================================================================

EVNTPTR(EVENT) ;Return pointer to event EVENT in the USR ACTION file.

 Q +$O(^USR(8930.8,"B",EVENT,0))

 ;

 ;======================================================================

EVNTVERB(IEN) ;Return the verb for event with ien of IEN.

 Q $P($G(^USR(8930.8,IEN,0)),U,5)

 ;

 ;======================================================================

HASAS(IEN) ;Return true if entry IEN has Authorizations/Subscriptions.

 I $D(^USR(8930.1,"B",IEN)) Q 1

 E  Q 0

 ;

 ;======================================================================

USRCLASS(IEN) ;Return the 0 node of USR CLASS.

 Q $G(^USR(8930,IEN,0))

 ;

 ;======================================================================

USRROLE(ROLE) ;Return the IEN of role ROLE in the USR ROLE file.

 Q +$O(^USR(8930.2,"B",ROLE,0))

 ;

USRLFF    ;SLC/PKR - User Class file functions and proc's ;2/19/98

 +1       ;;1.0;AUTHORIZATION/SUBSCRIPTION;**3**;Jun 20, 1997

 +2       ;This is a library of file functions, mainly for other packages that

 +3       ;need to access ASU data.

 +4       ;======================================================================

EVNTPTR(EVENT) ;Return pointer to event EVENT in the USR ACTION file.

 +1        QUIT +$ORDER(^USR(8930.8,"B",EVENT,0))

 +2       ;

 +3       ;======================================================================

EVNTVERB(IEN) ;Return the verb for event with ien of IEN.

 +1        QUIT $PIECE($GET(^USR(8930.8,IEN,0)),U,5)

 +2       ;

 +3       ;======================================================================

HASAS(IEN) ;Return true if entry IEN has Authorizations/Subscriptions.

 +1        IF $DATA(^USR(8930.1,"B",IEN))

               QUIT 1

 +2       IF '$TEST

               QUIT 0

 +3       ;

 +4       ;======================================================================

USRCLASS(IEN) ;Return the 0 node of USR CLASS.

 +1        QUIT $GET(^USR(8930,IEN,0))

 +2       ;

 +3       ;======================================================================

USRROLE(ROLE) ;Return the IEN of role ROLE in the USR ROLE file.

 +1        QUIT +$ORDER(^USR(8930.2,"B",ROLE,0))

 +2       ;