SRONXR ;B'HAM ISC/ADM - CROSS REFERENCES ; 17 JAN 1992 9:00 AM
;;3.0; Surgery ;;24 Jun 93
AST ; 'AST' x-ref on TIME PROCEDURE BEGAN
S SRSS=$P($G(^SRF(DA,"NON")),"^",8) I 'SRSS K SRSS Q
I $P(^ECC(723,SRSS,0),"^")["ANESTHESIOLOGY" S $P(^SRF(DA,.2),"^")=X
K SRSS
Q
KILLAST ; kill logic for 'AST' x-ref on TIME PROCEDURE BEGAN
S SRSS=$P($G(^SRF(DA,"NON")),"^",8) I 'SRSS K SRSS Q
I $P(^ECC(723,SRSS,0),"^")["ANESTHESIOLOGY" S $P(^SRF(DA,.2),"^")=""
K SRSS
Q
AND ; 'AND' x-ref on TIME PROCEDURE ENDED
S SRSS=$P($G(^SRF(DA,"NON")),"^",8) I 'SRSS K SRSS Q
I $P(^ECC(723,SRSS,0),"^")["ANESTHESIOLOGY" S $P(^SRF(DA,.2),"^",4)=X
K SRSS
Q
KILLAND ; kill logic for 'AND' x-ref on TIME PROCEDURE ENDED
S SRSS=$P($G(^SRF(DA,"NON")),"^",8) I 'SRSS K SRSS Q
I $P(^ECC(723,SRSS,0),"^")["ANESTHESIOLOGY" S $P(^SRF(DA,.2),"^",4)=""
K SRSS
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSRONXR 861 printed Dec 13, 2024@02:44:42 Page 2
SRONXR ;B'HAM ISC/ADM - CROSS REFERENCES ; 17 JAN 1992 9:00 AM
+1 ;;3.0; Surgery ;;24 Jun 93
AST ; 'AST' x-ref on TIME PROCEDURE BEGAN
+1 SET SRSS=$PIECE($GET(^SRF(DA,"NON")),"^",8)
IF 'SRSS
KILL SRSS
QUIT
+2 IF $PIECE(^ECC(723,SRSS,0),"^")["ANESTHESIOLOGY"
SET $PIECE(^SRF(DA,.2),"^")=X
+3 KILL SRSS
+4 QUIT
KILLAST ; kill logic for 'AST' x-ref on TIME PROCEDURE BEGAN
+1 SET SRSS=$PIECE($GET(^SRF(DA,"NON")),"^",8)
IF 'SRSS
KILL SRSS
QUIT
+2 IF $PIECE(^ECC(723,SRSS,0),"^")["ANESTHESIOLOGY"
SET $PIECE(^SRF(DA,.2),"^")=""
+3 KILL SRSS
+4 QUIT
AND ; 'AND' x-ref on TIME PROCEDURE ENDED
+1 SET SRSS=$PIECE($GET(^SRF(DA,"NON")),"^",8)
IF 'SRSS
KILL SRSS
QUIT
+2 IF $PIECE(^ECC(723,SRSS,0),"^")["ANESTHESIOLOGY"
SET $PIECE(^SRF(DA,.2),"^",4)=X
+3 KILL SRSS
+4 QUIT
KILLAND ; kill logic for 'AND' x-ref on TIME PROCEDURE ENDED
+1 SET SRSS=$PIECE($GET(^SRF(DA,"NON")),"^",8)
IF 'SRSS
KILL SRSS
QUIT
+2 IF $PIECE(^ECC(723,SRSS,0),"^")["ANESTHESIOLOGY"
SET $PIECE(^SRF(DA,.2),"^",4)=""
+3 KILL SRSS
+4 QUIT
