PXRMSCR.m

PXRMSCR ;SLC/PKR - Screens for Clinical Reminders. ;05/01/2014

 ;;2.0;CLINICAL REMINDERS;**24,26**;Feb 04, 2005;Build 404

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

WHFSCR(NODE,PIECE) ;Whole file screen based on Class.

 ;Prevent direct FileMan editing of national entries.

 I $G(PXRMNSCR)=1 Q 1

 I '$D(DIE) Q 1

 I $G(DIC)'=DIE Q 1

 ;Do not allow selection of entries whose Class is National.

 I $P($G(^(NODE)),U,PIECE)="N" Q 0

 Q 1

 ;

PXRMSCR   ;SLC/PKR - Screens for Clinical Reminders. ;05/01/2014

 +1       ;;2.0;CLINICAL REMINDERS;**24,26**;Feb 04, 2005;Build 404

 +2       ;============================================

WHFSCR(NODE,PIECE) ;Whole file screen based on Class.

 +1       ;Prevent direct FileMan editing of national entries.

 +2        IF $GET(PXRMNSCR)=1

               QUIT 1

 +3        IF '$DATA(DIE)

               QUIT 1

 +4        IF $GET(DIC)'=DIE

               QUIT 1

 +5       ;Do not allow selection of entries whose Class is National.

 +6        IF $PIECE($GET(^(NODE)),U,PIECE)="N"

               QUIT 0

 +7        QUIT 1

 +8       ;