| 1 | SRONXR ;B'HAM ISC/ADM - CROSS REFERENCES ; 17 JAN 1992 9:00 AM
|
|---|
| 2 | ;;3.0; Surgery ;;24 Jun 93
|
|---|
| 3 | AST ; 'AST' x-ref on TIME PROCEDURE BEGAN
|
|---|
| 4 | S SRSS=$P($G(^SRF(DA,"NON")),"^",8) I 'SRSS K SRSS Q
|
|---|
| 5 | I $P(^ECC(723,SRSS,0),"^")["ANESTHESIOLOGY" S $P(^SRF(DA,.2),"^")=X
|
|---|
| 6 | K SRSS
|
|---|
| 7 | Q
|
|---|
| 8 | KILLAST ; kill logic for 'AST' x-ref on TIME PROCEDURE BEGAN
|
|---|
| 9 | S SRSS=$P($G(^SRF(DA,"NON")),"^",8) I 'SRSS K SRSS Q
|
|---|
| 10 | I $P(^ECC(723,SRSS,0),"^")["ANESTHESIOLOGY" S $P(^SRF(DA,.2),"^")=""
|
|---|
| 11 | K SRSS
|
|---|
| 12 | Q
|
|---|
| 13 | AND ; 'AND' x-ref on TIME PROCEDURE ENDED
|
|---|
| 14 | S SRSS=$P($G(^SRF(DA,"NON")),"^",8) I 'SRSS K SRSS Q
|
|---|
| 15 | I $P(^ECC(723,SRSS,0),"^")["ANESTHESIOLOGY" S $P(^SRF(DA,.2),"^",4)=X
|
|---|
| 16 | K SRSS
|
|---|
| 17 | Q
|
|---|
| 18 | KILLAND ; kill logic for 'AND' x-ref on TIME PROCEDURE ENDED
|
|---|
| 19 | S SRSS=$P($G(^SRF(DA,"NON")),"^",8) I 'SRSS K SRSS Q
|
|---|
| 20 | I $P(^ECC(723,SRSS,0),"^")["ANESTHESIOLOGY" S $P(^SRF(DA,.2),"^",4)=""
|
|---|
| 21 | K SRSS
|
|---|
| 22 | Q
|
|---|
