SROACS ;B'HAM ISC/MAM - SET SRAO ARRAY ; 4 MAR 1992 12:10 pm
;;3.0; Surgery ;;24 Jun 93
S SRA(205)=$G(^SRF(SRTN,205))
S NYUK=$P(SRA(205),"^",5) D YN S SRAO(1)=SHEMP_"^403",NYUK=$P(SRA(205),"^",6) D YN S SRAO("1A")=SHEMP_"^248",NYUK=$P(SRA(205),"^",7) D YN S SRAO("1B")=SHEMP_"^249",NYUK=$P(SRA(205),"^",8) D YN S SRAO("1C")=SHEMP_"^404"
S NYUK=$P(SRA(205),"^",9) D YN S SRAO(2)=SHEMP_"^318",NYUK=$P(SRA(205),"^",10) D YN S SRAO("2A")=SHEMP_"^251",NYUK=$P(SRA(205),"^",11) D YN S SRAO("2B")=SHEMP_"^412",NYUK=$P(SRA(205),"^",12) D YN S SRAO("2C")=SHEMP_"^252"
S NYUK=$P(SRA(205),"^",13) D YN S SRAO("2D")=SHEMP_"^285",X=$P(SRA(205),"^",14) S:X X=$P(^ICD9(X,0),"^") S SRAO("2E")=X_"^253"
S NYUK=$P(SRA(205),"^",15) D YN S SRAO(3)=SHEMP_"^319",NYUK=$P(SRA(205),"^",16) D YN S SRAO("3A")=SHEMP_"^409",NYUK=$P(SRA(205),"^",17) D YN S SRAO("3B")=SHEMP_"^254",NYUK=$P(SRA(205),"^",18) D YN S SRAO("3C")=SHEMP_"^255"
S X=$P(SRA(205),"^",19) S:X X=$P(^ICD9(X,0),"^") S SRAO("3D")=X_"^286"
S NYUK=$P(SRA(205),"^",20) D YN S SRAO(4)=SHEMP_"^320",NYUK=$P(SRA(205),"^",21) D YN S SRAO("4A")=SHEMP_"^256",NYUK=$P(SRA(205),"^",22) D YN S SRAO("4B")=SHEMP_"^410",NYUK=$P(SRA(205),"^",23) D YN S SRAO("4C")=SHEMP_"^287"
S X=$P(SRA(205),"^",24) S:X X=$P(^ICD9(X,0),"^") S SRAO("4D")=X_"^343"
S NYUK=$P(SRA(205),"^",25) D YN S SRAO(5)=SHEMP_"^321",NYUK=$P(SRA(205),"^",26) D YN S SRAO("5A")=SHEMP_"^411",NYUK=$P(SRA(205),"^",27) D YN S SRAO("5B")=SHEMP_"^258",NYUK=$P(SRA(205),"^",28) D YN S SRAO("5C")=SHEMP_"^259"
S X=$P(SRA(205),"^",29) S:X X=$P(^ICD9(X,0),"^") S SRAO("5D")=X_"^344"
S NYUK=$P(SRA(205),"^",30) D YN S SRAO(6)=SHEMP_"^322",NYUK=$P(SRA(205),"^",31) D YN S SRAO("6A")=SHEMP_"^345",NYUK=$P(SRA(205),"^",32) D YN S SRAO("6B")=SHEMP_"^257"
S NYUK=$P(SRA(205),"^",33) D YN S SRAO("6C")=SHEMP_"^261",NYUK=$P(SRA(205),"^",34) D YN S SRAO("6D")=SHEMP_"^263",NYUK=$P(SRA(205),"^",35) D YN S SRAO("6E")=SHEMP_"^250"
S X=$P(SRA(205),"^",36) S:X X=$P(^ICD9(X,0),"^") S SRAO("6F")=X_"^392"
DISP ; display complications
W @IOF,!,SRANAME,?65,"PAGE: 2 OF 2",! F I=1:1:80 W "-"
W !,"1. WOUND COMPLICATIONS:",?32,$P(SRAO(1),"^"),?39,"4. CNS COMPLICATIONS:",?76,$P(SRAO(4),"^")
W !," A. Superficial Infection:",?32,$P(SRAO("1A"),"^"),?39," A. Cerebral Vascular Accident:",?76,$P(SRAO("4A"),"^")
W !," B. Deep Wound Infection:",?32,$P(SRAO("1B"),"^"),?39," B. Coma > 24 Hours:",?76,$P(SRAO("4B"),"^")
W !," C. Wound Dehiscence:",?32,$P(SRAO("1C"),"^"),?39," C. Neurological Deficits:",?76,$P(SRAO("4C"),"^"),!,?39," D. Other (ICD9): "_$P(SRAO("4D"),"^")
W !!,"2. RESPIRATORY COMPLICATIONS:",?32,$P(SRAO(2),"^"),?39,"5. CARDIAC COMPLICATIONS:",?76,$P(SRAO(5),"^")
W !," A. Pneumonia:",?32,$P(SRAO("2A"),"^"),?39," A. Arrest Requiring CPR:",?76,$P(SRAO("5A"),"^")
W !," B. Unplanned Intubation:",?32,$P(SRAO("2B"),"^"),?39," B. Myocardial Infarction:",?76,$P(SRAO("5B"),"^")
W !," C. Pulmonary Embolism:",?32,$P(SRAO("2C"),"^"),?39," C. Pulmonary Edema:",?76,$P(SRAO("5C"),"^"),!," D. On Ventilator > 48 Hours:",?32,$P(SRAO("2D"),"^"),?39," D. Other (ICD9): "_$P(SRAO("5D"),"^")
W !," E. Other (ICD9): "_$P(SRAO("2E"),"^")
W !!,"3. URINARY TRACT COMPLICATIONS: ",?32,$P(SRAO(3),"^"),?39,"6. OTHER COMPLICATIONS:",?76,$P(SRAO(6),"^")
W !," A. Renal Insufficiency: ",?32,$P(SRAO("3A"),"^"),?39," A. Ileus/Bowel Obstruction:",?76,$P(SRAO("6A"),"^")
W !," B. Acute Renal Failure:",?32,$P(SRAO("3B"),"^"),?39," B. Bleeding/Transfusions:",?76,$P(SRAO("6B"),"^")
W !," C. Urinary Tract Infection:",?32,$P(SRAO("3C"),"^"),?39," C. Graft/Prosthesis Failure:",?76,$P(SRAO("6C"),"^")
W !," D. Other (ICD9): ",$P(SRAO("3D"),"^"),?39," D. DVT/Thrombophlebitis:",?76,$P(SRAO("6D"),"^"),!,?39," E. Systemic Sepsis: ",?76,$P(SRAO("6E"),"^")
W !,?39," F. Other (ICD9): "_$P(SRAO("6F"),"^")
W ! F LINE=1:1:80 W "-"
Q
YN ; store answer
S SHEMP=$S(NYUK="NS":"NS",NYUK="N":"NO",NYUK="Y":"YES",1:"")
Q
SROACS ;B'HAM ISC/MAM - SET SRAO ARRAY ; 4 MAR 1992 12:10 pm
+1 ;;3.0; Surgery ;;24 Jun 93
+2 SET SRA(205)=$GET(^SRF(SRTN,205))
+3 SET NYUK=$PIECE(SRA(205),"^",5)
DO YN
SET SRAO(1)=SHEMP_"^403"
SET NYUK=$PIECE(SRA(205),"^",6)
DO YN
SET SRAO("1A")=SHEMP_"^248"
SET NYUK=$PIECE(SRA(205),"^",7)
DO YN
SET SRAO("1B")=SHEMP_"^249"
SET NYUK=$PIECE(SRA(205),"^",8)
DO YN
SET SRAO("1C")=SHEMP_"^404"
+4 SET NYUK=$PIECE(SRA(205),"^",9)
DO YN
SET SRAO(2)=SHEMP_"^318"
SET NYUK=$PIECE(SRA(205),"^",10)
DO YN
SET SRAO("2A")=SHEMP_"^251"
SET NYUK=$PIECE(SRA(205),"^",11)
DO YN
SET SRAO("2B")=SHEMP_"^412"
SET NYUK=$PIECE(SRA(205),"^",12)
DO YN
SET SRAO("2C")=SHEMP_"^252"
+5 SET NYUK=$PIECE(SRA(205),"^",13)
DO YN
SET SRAO("2D")=SHEMP_"^285"
SET X=$PIECE(SRA(205),"^",14)
IF X
SET X=$PIECE(^ICD9(X,0),"^")
SET SRAO("2E")=X_"^253"
+6 SET NYUK=$PIECE(SRA(205),"^",15)
DO YN
SET SRAO(3)=SHEMP_"^319"
SET NYUK=$PIECE(SRA(205),"^",16)
DO YN
SET SRAO("3A")=SHEMP_"^409"
SET NYUK=$PIECE(SRA(205),"^",17)
DO YN
SET SRAO("3B")=SHEMP_"^254"
SET NYUK=$PIECE(SRA(205),"^",18)
DO YN
SET SRAO("3C")=SHEMP_"^255"
+7 SET X=$PIECE(SRA(205),"^",19)
IF X
SET X=$PIECE(^ICD9(X,0),"^")
SET SRAO("3D")=X_"^286"
+8 SET NYUK=$PIECE(SRA(205),"^",20)
DO YN
SET SRAO(4)=SHEMP_"^320"
SET NYUK=$PIECE(SRA(205),"^",21)
DO YN
SET SRAO("4A")=SHEMP_"^256"
SET NYUK=$PIECE(SRA(205),"^",22)
DO YN
SET SRAO("4B")=SHEMP_"^410"
SET NYUK=$PIECE(SRA(205),"^",23)
DO YN
SET SRAO("4C")=SHEMP_"^287"
+9 SET X=$PIECE(SRA(205),"^",24)
IF X
SET X=$PIECE(^ICD9(X,0),"^")
SET SRAO("4D")=X_"^343"
+10 SET NYUK=$PIECE(SRA(205),"^",25)
DO YN
SET SRAO(5)=SHEMP_"^321"
SET NYUK=$PIECE(SRA(205),"^",26)
DO YN
SET SRAO("5A")=SHEMP_"^411"
SET NYUK=$PIECE(SRA(205),"^",27)
DO YN
SET SRAO("5B")=SHEMP_"^258"
SET NYUK=$PIECE(SRA(205),"^",28)
DO YN
SET SRAO("5C")=SHEMP_"^259"
+11 SET X=$PIECE(SRA(205),"^",29)
IF X
SET X=$PIECE(^ICD9(X,0),"^")
SET SRAO("5D")=X_"^344"
+12 SET NYUK=$PIECE(SRA(205),"^",30)
DO YN
SET SRAO(6)=SHEMP_"^322"
SET NYUK=$PIECE(SRA(205),"^",31)
DO YN
SET SRAO("6A")=SHEMP_"^345"
SET NYUK=$PIECE(SRA(205),"^",32)
DO YN
SET SRAO("6B")=SHEMP_"^257"
+13 SET NYUK=$PIECE(SRA(205),"^",33)
DO YN
SET SRAO("6C")=SHEMP_"^261"
SET NYUK=$PIECE(SRA(205),"^",34)
DO YN
SET SRAO("6D")=SHEMP_"^263"
SET NYUK=$PIECE(SRA(205),"^",35)
DO YN
SET SRAO("6E")=SHEMP_"^250"
+14 SET X=$PIECE(SRA(205),"^",36)
IF X
SET X=$PIECE(^ICD9(X,0),"^")
SET SRAO("6F")=X_"^392"
DISP ; display complications
+1 WRITE @IOF,!,SRANAME,?65,"PAGE: 2 OF 2",!
FOR I=1:1:80
WRITE "-"
+2 WRITE !,"1. WOUND COMPLICATIONS:",?32,$PIECE(SRAO(1),"^"),?39,"4. CNS COMPLICATIONS:",?76,$PIECE(SRAO(4),"^")
+3 WRITE !," A. Superficial Infection:",?32,$PIECE(SRAO("1A"),"^"),?39," A. Cerebral Vascular Accident:",?76,$PIECE(SRAO("4A"),"^")
+4 WRITE !," B. Deep Wound Infection:",?32,$PIECE(SRAO("1B"),"^"),?39," B. Coma > 24 Hours:",?76,$PIECE(SRAO("4B"),"^")
+5 WRITE !," C. Wound Dehiscence:",?32,$PIECE(SRAO("1C"),"^"),?39," C. Neurological Deficits:",?76,$PIECE(SRAO("4C"),"^"),!,?39," D. Other (ICD9): "_$PIECE(SRAO("4D"),"^")
+6 WRITE !!,"2. RESPIRATORY COMPLICATIONS:",?32,$PIECE(SRAO(2),"^"),?39,"5. CARDIAC COMPLICATIONS:",?76,$PIECE(SRAO(5),"^")
+7 WRITE !," A. Pneumonia:",?32,$PIECE(SRAO("2A"),"^"),?39," A. Arrest Requiring CPR:",?76,$PIECE(SRAO("5A"),"^")
+8 WRITE !," B. Unplanned Intubation:",?32,$PIECE(SRAO("2B"),"^"),?39," B. Myocardial Infarction:",?76,$PIECE(SRAO("5B"),"^")
+9 WRITE !," C. Pulmonary Embolism:",?32,$PIECE(SRAO("2C"),"^"),?39," C. Pulmonary Edema:",?76,$PIECE(SRAO("5C"),"^"),!," D. On Ventilator > 48 Hours:",?32,$PIECE(SRAO("2D"),"^"),?39," D. Other (ICD9): "_$PIECE(SRAO("5D"),"^")
+10 WRITE !," E. Other (ICD9): "_$PIECE(SRAO("2E"),"^")
+11 WRITE !!,"3. URINARY TRACT COMPLICATIONS: ",?32,$PIECE(SRAO(3),"^"),?39,"6. OTHER COMPLICATIONS:",?76,$PIECE(SRAO(6),"^")
+12 WRITE !," A. Renal Insufficiency: ",?32,$PIECE(SRAO("3A"),"^"),?39," A. Ileus/Bowel Obstruction:",?76,$PIECE(SRAO("6A"),"^")
+13 WRITE !," B. Acute Renal Failure:",?32,$PIECE(SRAO("3B"),"^"),?39," B. Bleeding/Transfusions:",?76,$PIECE(SRAO("6B"),"^")
+14 WRITE !," C. Urinary Tract Infection:",?32,$PIECE(SRAO("3C"),"^"),?39," C. Graft/Prosthesis Failure:",?76,$PIECE(SRAO("6C"),"^")
+15 WRITE !," D. Other (ICD9): ",$PIECE(SRAO("3D"),"^"),?39," D. DVT/Thrombophlebitis:",?76,$PIECE(SRAO("6D"),"^"),!,?39," E. Systemic Sepsis: ",?76,$PIECE(SRAO("6E"),"^")
+16 WRITE !,?39," F. Other (ICD9): "_$PIECE(SRAO("6F"),"^")
+17 WRITE !
FOR LINE=1:1:80
WRITE "-"
+18 QUIT
YN ; store answer
+1 SET SHEMP=$SELECT(NYUK="NS":"NS",NYUK="N":"NO",NYUK="Y":"YES",1:"")
+2 QUIT
