source: WorldVistAEHR/trunk/r/SURGERY-SR/SROAC1.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: 769 bytes
Line 
1SROAC1 ;B'HAM ISC/MAM - NON-CARDIAC COMPLICATIONS ; 4 MAR 1992 8:10 am
2 ;;3.0; Surgery ;;24 Jun 93
3RESP ; 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
7URINE ; 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
11CNS ; 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
15CARD ; 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
19OTHER ; 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
Note: See TracBrowser for help on using the repository browser.