PXRMSCR ;SLC/PKR - Screens for Clinical Reminders. ;03/15/2016 08:52
;;2.0;CLINICAL REMINDERS;**24,26,45**;Feb 04, 2005;Build 566
;============================================
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
;
WHFBLOCK() ;
I $G(PXRMINST)=1 Q 1
I $G(PXRMNSCR)=1 Q 1
I $G(PXRMDEDT)=1 Q 1
Q 0
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMSCR 550 printed Dec 13, 2024@01:49:03 Page 2
PXRMSCR ;SLC/PKR - Screens for Clinical Reminders. ;03/15/2016 08:52
+1 ;;2.0;CLINICAL REMINDERS;**24,26,45**;Feb 04, 2005;Build 566
+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 ;
WHFBLOCK() ;
+1 IF $GET(PXRMINST)=1
QUIT 1
+2 IF $GET(PXRMNSCR)=1
QUIT 1
+3 IF $GET(PXRMDEDT)=1
QUIT 1
+4 QUIT 0
