| 1 | SROAUTL2 ;BIR/ADM - RISK ASSESSMENT UTILITY ;01/29/07
|
|---|
| 2 | ;;3.0; Surgery ;**38,47,63,88,125,153,160**;24 Jun 93;Build 7
|
|---|
| 3 | S SRZ=0 F S SRZ=$O(SRY(130,SRTN,SRZ)) Q:'SRZ D
|
|---|
| 4 | .I SRY(130,SRTN,SRZ,"I")="" D TR S X=$T(@SRP),SRFLD=$P(X,";;",2),SRX(SRZ)=$P(SRFLD,"^",2)
|
|---|
| 5 | .I SRY(130,SRTN,SRZ,"I")="NS" D TR S X=$T(@SRP),SRFLD=$P(X,";;",2),SRDT=$P(SRFLD,"^",4) S:SRDT'="" SRLR(SRDT)=""
|
|---|
| 6 | S SRDT=0 F S SRDT=$O(SRLR(SRDT)) Q:'SRDT K SRX(SRDT)
|
|---|
| 7 | Q
|
|---|
| 8 | RELATE S DFN=$P(^SRF(SRTN,0),"^"),SRDEATH=$P($G(^DPT(DFN,.35)),"^") I 'SRDEATH Q
|
|---|
| 9 | S X2=$P(^SRF(SRTN,0),"^",9),X1=SRDEATH D ^%DTC I X>90 Q
|
|---|
| 10 | S X=$P($G(^SRF(SRTN,.4)),"^",7) I X="" S SRX(903)="Death Unrelated/Related"
|
|---|
| 11 | Q
|
|---|
| 12 | TR S SRP=SRZ,SRP=$TR(SRP,"1234567890.","ABCDEFGHIJP")
|
|---|
| 13 | Q
|
|---|
| 14 | GET S X=$T(@J)
|
|---|
| 15 | Q
|
|---|
| 16 | PJC ;;.03^Major or Minor^Major or Minor^
|
|---|
| 17 | PDB ;;.42^Other Procedures^^
|
|---|
| 18 | PCG ;;.37^Anesthesia Technique^^
|
|---|
| 19 | CE ;;35^Concurrent Case^Concurrent Case^
|
|---|
| 20 | PJD ;;.04^Surgery Specialty^Surgical Specialty^
|
|---|
| 21 | BF ;;26^Principal Procedure^Principal Operation^
|
|---|
| 22 | BGJ ;;270^Preoperative Serum Sodium^Serum Sodium^304
|
|---|
| 23 | CJD ;;304^Date Preoperative Serum Sodium was Performed^^
|
|---|
| 24 | BBD ;;224^Preoperative BUN (mg/dl)^BUN^291
|
|---|
| 25 | BIA ;;291^Date Preoperative BUN was Performed^^
|
|---|
| 26 | BBC ;;223^Preoperative Serum Creatinine (mg/dl)^Serum Creatinine^290
|
|---|
| 27 | BIJ ;;290^Date Preoperative Serum Creatinine was Performed^^
|
|---|
| 28 | BBE ;;225^Preoperative Serum Albumin (g/dl)^Serum Albumin^292
|
|---|
| 29 | BIB ;;292^Date Preoperative Serum Albumin was Performed^^
|
|---|
| 30 | BBH ;;228^Preoperative Total Bilirubin (mg/dl)^Total Bilirubin^295
|
|---|
| 31 | BIE ;;295^Date Preoperative Total Bilrubin was Performed^^
|
|---|
| 32 | BBG ;;227^Preoperative SGOT (mU/ml)^SGOT^294
|
|---|
| 33 | BID ;;294^Date Preoperative SGOT was Performed^^
|
|---|
| 34 | BBI ;;229^Preoperative Alkaline Phosphatase (mU/ml)^Alkaline Phosphatase^296
|
|---|
| 35 | BIF ;;296^Date Preoperative Alkaline Phosphatase was Performed^^
|
|---|
| 36 | BCJ ;;230^Preoperative WBC (X 1000/mm3)^WBC^297
|
|---|
| 37 | BIG ;;297^Date Preoperative WBC was Performed
|
|---|
| 38 | BCD ;;234^Preoperative Hematocrit^Hematocrit^301
|
|---|
| 39 | CJA ;;301^Date Preoperative Hematocrit was Performed^^
|
|---|
| 40 | BCA ;;231^Preoperative Platelet Count (X 1000/mm3)^Platelet Count^298
|
|---|
| 41 | BIH ;;298^Date Preoperative Platelet Count was Performed^^
|
|---|
| 42 | BCC ;;233^Preoperative PTT (seconds)^PTT^300
|
|---|
| 43 | CJJ ;;300^Date Preoperative PTT was Performed^^
|
|---|
| 44 | BCB ;;232^Preoperative PT (seconds)^PT^299
|
|---|
| 45 | BII ;;299^Date Preoperative PT was Performed^^
|
|---|
| 46 | BGD ;;274^Highest Postoperative Serum Sodium^Highest Serum Sodium^305
|
|---|
| 47 | CJE ;;305^Date Highest Serum Sodium was Recorded^^
|
|---|
| 48 | DJE ;;405^Lowest Serum Sodium^Lowest Serum Sodium^407
|
|---|
| 49 | DJG ;;407^Date of Lowest Serum Sodium^^
|
|---|
| 50 | BGE ;;275^Highest Postoperative Potassium^Highest Potassium^306
|
|---|
| 51 | CJF ;;306^Date Highest Potassium was Recorded^^
|
|---|
| 52 | DJF ;;406^Lowest Postoperative Potassium^Lowest Potassium^408
|
|---|
| 53 | DJH ;;408^Date of Lowest Postoperative Potassium^^
|
|---|
| 54 | BGG ;;277^Highest Postoperative Serum Creatinine^Highest Serum Creatinine^308
|
|---|
| 55 | CJH ;;308^Date Highest Serum Creatinine was Recorded^^
|
|---|
| 56 | BGH ;;278^Highest Postoperative CPK^Highest CPK^309
|
|---|
| 57 | CJI ;;309^Date Highest CPK was Recorded^^
|
|---|
| 58 | BGI ;;279^Highest Postoperative CPK-MB^Highest CPK-MB^310
|
|---|
| 59 | CAJ ;;310^Date Highest CPK-MB Band was Recorded^^
|
|---|
| 60 | BHJ ;;280^Highest Postoperative Total Bilirubin^Highest Total Bilirubin^311
|
|---|
| 61 | CAA ;;311^Date Highest Total Bilirubin was Recorded^^
|
|---|
| 62 | BHA ;;281^Highest Postoperative WBC^Highest WBC^312
|
|---|
| 63 | CAB ;;312^Date Highest WBC was Recorded^^
|
|---|
| 64 | BHC ;;283^Lowest Postoperative Hematocrit^Lowest Hematocrit^314
|
|---|
| 65 | CAD ;;314^Date Lowest Hematocrit was Recorded^^
|
|---|
| 66 | DEE ;;455^Highest Postoperative Serum Troponin I^Highest Troponin I^455.1
|
|---|
| 67 | DEEPA ;;455.1^Date of Highest Postop Troponin I^^
|
|---|
| 68 | DEF ;;456^Highest Postoperative Serum Troponin T^Highest Troponin T^456.1
|
|---|
| 69 | DEFPA ;;456.1^Date of Highest Postop Troponin T^^
|
|---|
| 70 | DHG ;;487^Preoperative INR^INR^487.1
|
|---|
| 71 | DHGPA ;;487.1^Date Preoperative INR was Performed^^
|
|---|
| 72 | DDD ;;444^Preoperative Anion Gap^Anion Gap^444.1
|
|---|
| 73 | DDDPA ;;444.1^Date Preoperative Anion Gap was Recorded^^
|
|---|
| 74 | DDE ;;445^Highest Postoperative Anion Gap^Highest Anion Gap^445.1
|
|---|
| 75 | DDEPA ;;445.1^Date Highest Anion Gap was Recorded^^
|
|---|
| 76 | EJD ;;504^Preoperative Hemoglobin A1c^Hemoglobin A1c^504.1
|
|---|
| 77 | EJDPA ;;504.1^Date Preoperative Hemoglobin A1c was Performed^^
|
|---|
| 78 | BG ;;27^Principal Procedure Code (CPT)^Principal CPT Code^
|
|---|
| 79 | BAD ;;214^PGY of Primary Surgeon ('0' for Staff Surgeon)^PGY of Primary Surgeon^
|
|---|
| 80 | PJCE ;;.035^Case Schedule Type^Surgical Priority^
|
|---|
| 81 | APJI ;;1.09^Wound Classification^Wound Classification^
|
|---|
| 82 | APAC ;;1.13^ASA Class^ASA Classification^
|
|---|
| 83 | PBB ;;.22^Time the Operation Began^Date/Time Operation Began^
|
|---|
| 84 | PBC ;;.23^Time the Operation Ends^Date/Time Operation Ended^
|
|---|
| 85 | CDJ ;;340^Number of RBC Units Transfused^RBC Units Transfused^
|
|---|
| 86 | DDC ;;443^Intraoperative Disseminated Cancer (Y/N)^Intraoperative Disseminated Cancer^
|
|---|
| 87 | DDF ;;446^Intraoperative Ascites (Y/N)^Intraoperative Ascites
|
|---|
| 88 | FF ;;66^Principal Diagnosis Code (ICD9)^Postop Diagnosis Code (ICD9)^
|
|---|
| 89 | BDG ;;247^Length of Postoperative Stay^Length of Postoperative Hospital Stay^
|
|---|
| 90 | AJB ;;102^Reason for not Creating an Assessment^Exclusion Criteria^
|
|---|
| 91 | PJAA ;;.011^In/Out-Patient Status^Hospital Admission Status^
|
|---|
| 92 | PAFF ;;.166^Attending Code^Attending Code
|
|---|
| 93 | PBA ;;.21^Anesthesia Care Start Time^Anesthesia Start^
|
|---|
| 94 | PBD ;;.24^Anesthesia Care End Time^Anesthesia Finish^
|
|---|
