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 | |
---|
1 | SROXPR ;B'HAM ISC/MAM - RESTRICTED PERSON FIELDS ; 26 DEC 1991 9:15 AM
|
---|
2 | ;;3.0; Surgery ;;24 Jun 93
|
---|
3 | KEY ; 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
|
---|
7 | END K RESTRICT,ENTRY,KEY
|
---|
8 | Q
|
---|
9 | XREF ; 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
|
---|
12 | KXREF ; 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.