source: WorldVistAEHR/trunk/r/SURGERY-SR/SROXPR.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 585 bytes
Line 
1SROXPR ;B'HAM ISC/MAM - RESTRICTED PERSON FIELDS ; 26 DEC 1991 9:15 AM
2 ;;3.0; Surgery ;;24 Jun 93
3KEY ; determine whether field is restricted
4 K SROK I +Y<1 Q
5 I $O(^SRP("AX",RESTRICT,0))="" S SROK=1 Q
6 S KEY=0 F S KEY=$O(^SRP("AX",RESTRICT,KEY)) Q:KEY=""!($D(SROK)) I $D(^XUSEC(KEY,Y)) S SROK=1
7END K RESTRICT,ENTRY,KEY
8 Q
9XREF ; set logic for 'AX' cross reference in file 131
10 S SRENTRY=$P(^SRP(DA(1),0),"^"),^SRP("AX",SRENTRY,X,DA(1))="" K ENTRY
11 Q
12KXREF ; kill logic for 'AX' cross reference in file 131
13 S SRENTRY=$P(^SRP(DA(1),0),"^") K ^SRP("AX",SRENTRY,X,DA(1)),SRENTRY
14 Q
Note: See TracBrowser for help on using the repository browser.