source: FOIAVistA/trunk/r/SURGERY-SR/SROAUTL2.m@ 1119

Last change on this file since 1119 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

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