|
Last change
on this file since 846 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
585 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
