Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SROXPR

SROXPR.m

Go to the documentation of this file.
  1. SROXPR ;B'HAM ISC/MAM - RESTRICTED PERSON FIELDS ; 26 DEC 1991 9:15 AM
  1. ;;3.0; Surgery ;;24 Jun 93
  1. KEY ; determine whether field is restricted
  1. K SROK I +Y<1 Q
  1. I $O(^SRP("AX",RESTRICT,0))="" S SROK=1 Q
  1. S KEY=0 F S KEY=$O(^SRP("AX",RESTRICT,KEY)) Q:KEY=""!($D(SROK)) I $D(^XUSEC(KEY,Y)) S SROK=1
  1. END K RESTRICT,ENTRY,KEY
  1. Q
  1. XREF ; set logic for 'AX' cross reference in file 131
  1. S SRENTRY=$P(^SRP(DA(1),0),"^"),^SRP("AX",SRENTRY,X,DA(1))="" K ENTRY
  1. Q
  1. KXREF ; kill logic for 'AX' cross reference in file 131
  1. S SRENTRY=$P(^SRP(DA(1),0),"^") K ^SRP("AX",SRENTRY,X,DA(1)),SRENTRY
  1. Q