source: WorldVistAEHR/trunk/r/SURGERY-SR/SRONXR.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: 839 bytes
Line 
1SRONXR ;B'HAM ISC/ADM - CROSS REFERENCES ; 17 JAN 1992 9:00 AM
2 ;;3.0; Surgery ;;24 Jun 93
3AST ; '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
8KILLAST ; 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
13AND ; '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
18KILLAND ; 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
Note: See TracBrowser for help on using the repository browser.