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))
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HUSRLFF 1093 printed Sep 23, 2025@19:14:47 Page 2
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 ;
