- SROAPRT4 ;BIR/MAM - PRINT ASSESSMENT (CONT.) ;01/14/08
- ;;3.0; Surgery ;**38,125,153,160,166**;24 Jun 93;Build 6
- ;K SRA S SRA(201)=$G(^SRF(SRTN,201)),SRA(202)=$G(^SRF(SRTN,202))
- K SRA F I=201,202,203,204,202.1 S SRA(I)=$G(^SRF(SRTN,I))
- W !,?20,"PREOPERATIVE LABORATORY TEST RESULTS"
- 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_")"
- W !,$J("Serum Sodium: ",39) S X=$P(SRA(201),"^") W X S X=$P(SRA(202),"^") I X D DATE W ?48,"("_Y_")"
- 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_")"
- W !,$J("BUN: ",39) S X=$P(SRA(201),"^",5) W X S X=$P(SRA(202),"^",5) I X D DATE W ?48,"("_Y_")"
- W !,$J("Serum Albumin: ",39) S X=$P(SRA(201),"^",8) W X S X=$P(SRA(202),"^",8) I X D DATE W ?48,"("_Y_")"
- 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_")"
- W !,$J("SGOT: ",39) S X=$P(SRA(201),"^",11) W X S X=$P(SRA(202),"^",11) I X D DATE W ?48,"("_Y_")"
- W !,$J("Alkaline Phosphatase: ",39) S X=$P(SRA(201),"^",12) W X S X=$P(SRA(202),"^",12) I X D DATE W ?48,"("_Y_")"
- 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_")"
- W !,$J("Hematocrit: ",39) S X=$P(SRA(201),"^",14) W X S X=$P(SRA(202),"^",14) I X D DATE W ?48,"("_Y_")"
- 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_")"
- 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_")"
- W !,$J("PT: ",39) S X=$P(SRA(201),"^",17) W X S X=$P(SRA(202),"^",17) I X D DATE W ?48,"("_Y_")"
- W !,$J("INR: ",39) S X=$P(SRA(201),"^",27) W X S X=$P(SRA(202),"^",27) I X D DATE W ?48,"("_Y_")"
- W !,$J("Hemoglobin A1c: ",39) S X=$P(SRA(201),"^",28) W X S X=$P(SRA(202.1),"^") I X D DATE W ?48,"("_Y_")"
- I $E(IOST)="P" W !!
- Q
- DATE S Y=X X ^DD("DD")
- Q
- SROAPRT4 ;BIR/MAM - PRINT ASSESSMENT (CONT.) ;01/14/08
- +1 ;;3.0; Surgery ;**38,125,153,160,166**;24 Jun 93;Build 6
- +2 ;K SRA S SRA(201)=$G(^SRF(SRTN,201)),SRA(202)=$G(^SRF(SRTN,202))
- +3 KILL SRA
- FOR I=201,202,203,204,202.1
- SET SRA(I)=$GET(^SRF(SRTN,I))
- +4 WRITE !,?20,"PREOPERATIVE LABORATORY TEST RESULTS"
- +5 WRITE !!,$JUSTIFY("Anion Gap (in 48 hrs.): ",39)
- SET X=$PIECE(SRA(203),"^",15)
- WRITE X
- SET X=$PIECE(SRA(204),"^",15)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +6 WRITE !,$JUSTIFY("Serum Sodium: ",39)
- SET X=$PIECE(SRA(201),"^")
- WRITE X
- SET X=$PIECE(SRA(202),"^")
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +7 WRITE !,$JUSTIFY("Serum Creatinine: ",39)
- SET X=$PIECE(SRA(201),"^",4)
- WRITE X
- SET X=$PIECE(SRA(202),"^",4)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +8 WRITE !,$JUSTIFY("BUN: ",39)
- SET X=$PIECE(SRA(201),"^",5)
- WRITE X
- SET X=$PIECE(SRA(202),"^",5)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +9 WRITE !,$JUSTIFY("Serum Albumin: ",39)
- SET X=$PIECE(SRA(201),"^",8)
- WRITE X
- SET X=$PIECE(SRA(202),"^",8)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +10 WRITE !,$JUSTIFY("Total Bilirubin: ",39)
- SET X=$PIECE(SRA(201),"^",9)
- WRITE X
- SET X=$PIECE(SRA(202),"^",9)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +11 WRITE !,$JUSTIFY("SGOT: ",39)
- SET X=$PIECE(SRA(201),"^",11)
- WRITE X
- SET X=$PIECE(SRA(202),"^",11)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +12 WRITE !,$JUSTIFY("Alkaline Phosphatase: ",39)
- SET X=$PIECE(SRA(201),"^",12)
- WRITE X
- SET X=$PIECE(SRA(202),"^",12)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +13 WRITE !,$JUSTIFY("White Blood Count: ",39)
- SET X=$PIECE(SRA(201),"^",13)
- WRITE X
- SET X=$PIECE(SRA(202),"^",13)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +14 WRITE !,$JUSTIFY("Hematocrit: ",39)
- SET X=$PIECE(SRA(201),"^",14)
- WRITE X
- SET X=$PIECE(SRA(202),"^",14)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +15 WRITE !,$JUSTIFY("Platelet Count: ",39)
- SET X=$PIECE(SRA(201),"^",15)
- WRITE X
- SET X=$PIECE(SRA(202),"^",15)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +16 WRITE !,$JUSTIFY("PTT: ",39)
- SET X=$PIECE(SRA(201),"^",16)
- WRITE X
- SET X=$PIECE(SRA(202),"^",16)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +17 WRITE !,$JUSTIFY("PT: ",39)
- SET X=$PIECE(SRA(201),"^",17)
- WRITE X
- SET X=$PIECE(SRA(202),"^",17)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +18 WRITE !,$JUSTIFY("INR: ",39)
- SET X=$PIECE(SRA(201),"^",27)
- WRITE X
- SET X=$PIECE(SRA(202),"^",27)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +19 WRITE !,$JUSTIFY("Hemoglobin A1c: ",39)
- SET X=$PIECE(SRA(201),"^",28)
- WRITE X
- SET X=$PIECE(SRA(202.1),"^")
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +20 IF $EXTRACT(IOST)="P"
- WRITE !!
- +21 QUIT
- DATE SET Y=X
- XECUTE ^DD("DD")
- +1 QUIT
