PXRMV2IA.m

PXRMV2IA ; SLC/PKR - Version 2.0 init routine. ;11/17/2003

 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005

 ;

 Q

 ;

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

SFNFTC ;Set the found/not found text line counts in the reminder definition.

 N IEN,TEXT

 D BMES^XPDUTL("Storing found/not found text line counts")

 S IEN=0

 F  S IEN=+$O(^PXD(811.9,IEN)) Q:IEN=0  D

 . S TEXT=" Working on reminder "_IEN

 . D BMES^XPDUTL(TEXT)

 . D SNMLA^PXRMFNFT(IEN)

 . D SNMLF^PXRMFNFT(IEN,20)

 . D SNMLF^PXRMFNFT(IEN,25)

 . D SNMLL^PXRMFNFT(IEN)

 Q

 ;

PXRMV2IA  ; SLC/PKR - Version 2.0 init routine. ;11/17/2003

 +1       ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005

 +2       ;

 +3        QUIT 

 +4       ;

 +5       ;===============================================================

SFNFTC    ;Set the found/not found text line counts in the reminder definition.

 +1        NEW IEN,TEXT

 +2        DO BMES^XPDUTL("Storing found/not found text line counts")

 +3        SET IEN=0

 +4        FOR 

               SET IEN=+$ORDER(^PXD(811.9,IEN))

               IF IEN=0

                   QUIT 

               Begin DoDot:1

 +5                SET TEXT=" Working on reminder "_IEN

 +6                DO BMES^XPDUTL(TEXT)

 +7                DO SNMLA^PXRMFNFT(IEN)

 +8                DO SNMLF^PXRMFNFT(IEN,20)

 +9                DO SNMLF^PXRMFNFT(IEN,25)

 +10               DO SNMLL^PXRMFNFT(IEN)

               End DoDot:1

 +11       QUIT 

 +12      ;