Changeset 623 for WorldVistAEHR/trunk/r/SURGERY-SR/SROAPRT4.m
- Timestamp:
- Dec 4, 2009, 12:11:15 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
WorldVistAEHR/trunk/r/SURGERY-SR/SROAPRT4.m
r613 r623 1 SROAPRT4 ;BIR/MAM - PRINT ASSESSMENT (CONT.) ;01/14/082 ;;3.0; Surgery ;**38,125,153,160,166**;24 Jun 93;Build 73 4 5 6 7 8 9 W !,$J("BUN: ",39) S X=$P(SRA(201),"^",5) WX S X=$P(SRA(202),"^",5) I X D DATE W ?48,"("_Y_")"10 W !,$J("Serum Albumin: ",39) S X=$P(SRA(201),"^",8) WX S X=$P(SRA(202),"^",8) I X D DATE W ?48,"("_Y_")"11 12 W !,$J("SGOT: ",39) S X=$P(SRA(201),"^",11) WX S X=$P(SRA(202),"^",11) I X D DATE W ?48,"("_Y_")"13 W !,$J("Alkaline Phosphatase: ",39) S X=$P(SRA(201),"^",12) WX S X=$P(SRA(202),"^",12) I X D DATE W ?48,"("_Y_")"14 15 W !,$J("Hematocrit: ",39) S X=$P(SRA(201),"^",14) WX S X=$P(SRA(202),"^",14) I X D DATE W ?48,"("_Y_")"16 17 18 W !,$J("PT: ",39) S X=$P(SRA(201),"^",17) WX S X=$P(SRA(202),"^",17) I X D DATE W ?48,"("_Y_")"19 W !,$J("INR: ",39) S X=$P(SRA(201),"^",27) WX S X=$P(SRA(202),"^",27) I X D DATE W ?48,"("_Y_")"20 W !,$J("Hemoglobin A1c: ",39) S X=$P(SRA(201),"^",28) W X S X=$P(SRA(202.1),"^") I XD DATE W ?48,"("_Y_")"21 22 23 DATE 24 1 SROAPRT4 ;BIR/MAM - PRINT ASSESSMENT (CONT.) ;06/28/06 2 ;;3.0; Surgery ;**38,125,153,160**;24 Jun 93;Build 7 3 ;K SRA S SRA(201)=$G(^SRF(SRTN,201)),SRA(202)=$G(^SRF(SRTN,202)) 4 K SRA F I=201,202,203,204,202.1 S SRA(I)=$G(^SRF(SRTN,I)) 5 W !,?20,"PREOPERATIVE LABORATORY TEST RESULTS" 6 W !!,$J("Anion Gap (in 48 hrs.): ",39) S X=$P(SRA(203),"^",15) W X S X=$P(SRA(204),"^",15) I X D DATE W ?48,"("_Y_")" 7 W !,$J("Serum Sodium: ",39) S X=$P(SRA(201),"^") W X S X=$P(SRA(202),"^") I X D DATE W ?48,"("_Y_")" 8 W !,$J("Serum Creatinine: ",39) S X=$P(SRA(201),"^",4) W X S X=$P(SRA(202),"^",4) I X D DATE W ?48,"("_Y_")" 9 W !,$J("BUN: ",39) S X=$P(SRA(201),"^",5) W X I X S X=$P(SRA(202),"^",5) I X D DATE W ?48,"("_Y_")" 10 W !,$J("Serum Albumin: ",39) S X=$P(SRA(201),"^",8) W X I X S X=$P(SRA(202),"^",8) I X D DATE W ?48,"("_Y_")" 11 W !,$J("Total Bilirubin: ",39) S X=$P(SRA(201),"^",9) W X S X=$P(SRA(202),"^",9) I X D DATE W ?48,"("_Y_")" 12 W !,$J("SGOT: ",39) S X=$P(SRA(201),"^",11) W X I X S X=$P(SRA(202),"^",11) I X D DATE W ?48,"("_Y_")" 13 W !,$J("Alkaline Phosphatase: ",39) S X=$P(SRA(201),"^",12) W X I X S X=$P(SRA(202),"^",12) I X D DATE W ?48,"("_Y_")" 14 W !,$J("White Blood Count: ",39) S X=$P(SRA(201),"^",13) W X S X=$P(SRA(202),"^",13) I X D DATE W ?48,"("_Y_")" 15 W !,$J("Hematocrit: ",39) S X=$P(SRA(201),"^",14) W X I X S X=$P(SRA(202),"^",14) I X D DATE W ?48,"("_Y_")" 16 W !,$J("Platelet Count: ",39) S X=$P(SRA(201),"^",15) W X S X=$P(SRA(202),"^",15) I X D DATE W ?48,"("_Y_")" 17 W !,$J("PTT: ",39) S X=$P(SRA(201),"^",16) W X S X=$P(SRA(202),"^",16) I X D DATE W ?48,"("_Y_")" 18 W !,$J("PT: ",39) S X=$P(SRA(201),"^",17) W X I X S X=$P(SRA(202),"^",17) I X D DATE W ?48,"("_Y_")" 19 W !,$J("INR: ",39) S X=$P(SRA(201),"^",27) W X I X S X=$P(SRA(202),"^",27) I X D DATE W ?48,"("_Y_")" 20 W !,$J("Hemoglobin A1c: ",39) S X=$P(SRA(201),"^",28) W X I X S X=$P(SRA(202.1),"^") D DATE W ?48,"("_Y_")" 21 I $E(IOST)="P" W !! 22 Q 23 DATE S Y=X X ^DD("DD") 24 Q
Note:
See TracChangeset
for help on using the changeset viewer.