source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMV2IA.m@ 701

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

initial load of WorldVistAEHR

File size: 546 bytes
Line 
1PXRMV2IA ; SLC/PKR - Version 2.0 init routine. ;11/17/2003
2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
3 ;
4 Q
5 ;
6 ;===============================================================
7SFNFTC ;Set the found/not found text line counts in the reminder definition.
8 N IEN,TEXT
9 D BMES^XPDUTL("Storing found/not found text line counts")
10 S IEN=0
11 F S IEN=+$O(^PXD(811.9,IEN)) Q:IEN=0 D
12 . S TEXT=" Working on reminder "_IEN
13 . D BMES^XPDUTL(TEXT)
14 . D SNMLA^PXRMFNFT(IEN)
15 . D SNMLF^PXRMFNFT(IEN,20)
16 . D SNMLF^PXRMFNFT(IEN,25)
17 . D SNMLL^PXRMFNFT(IEN)
18 Q
19 ;
Note: See TracBrowser for help on using the repository browser.