23 lines
769 B
Mathematica
23 lines
769 B
Mathematica
SROAC1 ;B'HAM ISC/MAM - NON-CARDIAC COMPLICATIONS ; 4 MAR 1992 8:10 am
|
|
;;3.0; Surgery ;;24 Jun 93
|
|
RESP ; respiratory complications
|
|
F I=10:1:13 S $P(^SRF(SRTN,205),"^",I)=$S(X="":"",X="NS":"NS",1:"N")
|
|
S $P(^SRF(SRTN,205),"^",14)=""
|
|
Q
|
|
URINE ; urine complications
|
|
F I=16,17,18 S $P(^SRF(SRTN,205),"^",I)=$S(X="":"",X="NS":"NS",1:"N")
|
|
S $P(^SRF(SRTN,205),"^",19)=""
|
|
Q
|
|
CNS ; CNS complications
|
|
F I=21,22,23 S $P(^SRF(SRTN,205),"^",I)=$S(X="":"",X="NS":"NS",1:"N")
|
|
S $P(^SRF(SRTN,205),"^",24)=""
|
|
Q
|
|
CARD ; cardiac complications
|
|
F I=26,27,28 S $P(^SRF(SRTN,205),"^",I)=$S(X="":"",X="NS":"NS",1:"N")
|
|
S $P(^SRF(SRTN,205),"^",29)=""
|
|
Q
|
|
OTHER ; other complications
|
|
F I=31:1:35 S $P(^SRF(SRTN,205),"^",I)=$S(X="":"",X="NS":"NS",1:"N")
|
|
S $P(^SRF(SRTN,205),"^",36)=""
|
|
Q
|