Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SRONXR

SRONXR.m

Go to the documentation of this file. 
  1. SRONXR ;B'HAM ISC/ADM - CROSS REFERENCES ; 17 JAN 1992 9:00 AM
  1.  ;;3.0; Surgery ;;24 Jun 93
  1. AST ; 'AST' x-ref on TIME PROCEDURE BEGAN
  1.  S SRSS=$P($G(^SRF(DA,"NON")),"^",8) I 'SRSS K SRSS Q
  1.  I $P(^ECC(723,SRSS,0),"^")["ANESTHESIOLOGY" S $P(^SRF(DA,.2),"^")=X
  1.  K SRSS
  1.  Q
  1. KILLAST ; kill logic for 'AST' x-ref on TIME PROCEDURE BEGAN
  1.  S SRSS=$P($G(^SRF(DA,"NON")),"^",8) I 'SRSS K SRSS Q
  1.  I $P(^ECC(723,SRSS,0),"^")["ANESTHESIOLOGY" S $P(^SRF(DA,.2),"^")=""
  1.  K SRSS
  1.  Q
  1. AND ; 'AND' x-ref on TIME PROCEDURE ENDED
  1.  S SRSS=$P($G(^SRF(DA,"NON")),"^",8) I 'SRSS K SRSS Q
  1.  I $P(^ECC(723,SRSS,0),"^")["ANESTHESIOLOGY" S $P(^SRF(DA,.2),"^",4)=X
  1.  K SRSS
  1.  Q
  1. KILLAND ; kill logic for 'AND' x-ref on TIME PROCEDURE ENDED
  1.  S SRSS=$P($G(^SRF(DA,"NON")),"^",8) I 'SRSS K SRSS Q
  1.  I $P(^ECC(723,SRSS,0),"^")["ANESTHESIOLOGY" S $P(^SRF(DA,.2),"^",4)=""
  1.  K SRSS
  1.  Q