source: FOIAVistA/trunk/r/AUTHORIZATION_SUBSCRIPTION-USR/USRLFF.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1USRLFF ;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 ;======================================================================
6EVNTPTR(EVENT) ;Return pointer to event EVENT in the USR ACTION file.
7 Q +$O(^USR(8930.8,"B",EVENT,0))
8 ;
9 ;======================================================================
10EVNTVERB(IEN) ;Return the verb for event with ien of IEN.
11 Q $P($G(^USR(8930.8,IEN,0)),U,5)
12 ;
13 ;======================================================================
14HASAS(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 ;======================================================================
19USRCLASS(IEN) ;Return the 0 node of USR CLASS.
20 Q $G(^USR(8930,IEN,0))
21 ;
22 ;======================================================================
23USRROLE(ROLE) ;Return the IEN of role ROLE in the USR ROLE file.
24 Q +$O(^USR(8930.2,"B",ROLE,0))
25 ;
Note: See TracBrowser for help on using the repository browser.