- 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 Feb 18, 2025@23:15:26 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