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