source: FOIAVistA/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMAPI.m@ 1528

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

initial load of FOIAVistA 6/30/08 version

File size: 612 bytes
Line 
1PXRMAPI ; SLC/PKR - Clinical Reminders APIs.;12/15/2004
2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
3 ;========================================================
4PUSAGE(IEN) ;Return true if the reminder definition contains a "P"
5 ;in the Usage field. This means it is ok for a patient to use the
6 ;reminder. IEN is the internal entry number.
7 N OK,USAGE
8 S USAGE=$P($G(^PXD(811.9,IEN,100)),U,4)
9 S OK=$S(USAGE["P":1,1:0)
10 Q OK
11 ;
12 ;========================================================
13USAGE(IEN) ;Return the Usage for a reminder definition. IEN is the
14 ;internal entry number.
15 Q $P($G(^PXD(811.9,IEN,100)),U,4)
16 ;
Note: See TracBrowser for help on using the repository browser.