- SROAPRT5 ;BIR/MAM - PRINT ASSESSMENT (CONT) ;01/14/08
- ;;3.0; Surgery ;**38,88,153,166**;24 Jun 93;Build 6
- K SRA S SRA(203)=$G(^SRF(SRTN,203)),SRA(204)=$G(^SRF(SRTN,204))
- W:$E(IOST)="P" ! W !,?22,"POSTOPERATIVE LABORATORY RESULTS",!!,?29," * Highest Value",!,?29,"** Lowest Value"
- W !!,$J("* Anion Gap: ",39) S X=$P(SRA(203),"^",16) W X S X=$P(SRA(204),"^",16) I X D DATE W ?48,"("_Y_")"
- W !,$J("* Serum Sodium: ",39) S X=$P(SRA(203),"^") W X S X=$P(SRA(204),"^") I X D DATE W ?48,"("_Y_")"
- W !,$J("** Serum Sodium: ",39) S X=$P(SRA(203),"^",2) W X S X=$P(SRA(204),"^",2) I X D DATE W ?48,"("_Y_")"
- W !,$J("* Potassium: ",39) S X=$P(SRA(203),"^",3) W X S X=$P(SRA(204),"^",3) I X D DATE W ?48,"("_Y_")"
- W !,$J("** Potassium: ",39) S X=$P(SRA(203),"^",4) W X S X=$P(SRA(204),"^",4) I X D DATE W ?48,"("_Y_")"
- W !,$J("* Serum Creatinine: ",39) S X=$P(SRA(203),"^",6) W X S X=$P(SRA(204),"^",6) I X D DATE W ?48,"("_Y_")"
- W !,$J("* CPK: ",39) S X=$P(SRA(203),"^",7) W X S X=$P(SRA(204),"^",7) I X D DATE W ?48,"("_Y_")"
- W !,$J("* CPK-MB Band: ",39) S X=$P(SRA(203),"^",8) W X S X=$P(SRA(204),"^",8) I X D DATE W ?48,"("_Y_")"
- W !,$J("* Total Bilirubin: ",39) S X=$P(SRA(203),"^",9) W X S X=$P(SRA(204),"^",9) I X D DATE W ?48,"("_Y_")"
- W !,$J("* White Blood Count: ",39) S X=$P(SRA(203),"^",10) W X S X=$P(SRA(204),"^",10) I X D DATE W ?48,"("_Y_")"
- W !,$J("** Hematocrit: ",39) S X=$P(SRA(203),"^",12) W X S X=$P(SRA(204),"^",12) I X D DATE W ?48,"("_Y_")"
- W !,$J("* Troponin I: ",39) S X=$P(SRA(203),"^",13) W X S X=$P(SRA(204),"^",13) I X D DATE W ?48,"("_Y_")"
- W !,$J("* Troponin T: ",39) S X=$P(SRA(203),"^",14) W X S X=$P(SRA(204),"^",14) I X D DATE W ?48,"("_Y_")"
- I $E(IOST)="P" W !!
- Q
- DATE S Y=X X ^DD("DD")
- Q
- SROAPRT5 ;BIR/MAM - PRINT ASSESSMENT (CONT) ;01/14/08
- +1 ;;3.0; Surgery ;**38,88,153,166**;24 Jun 93;Build 6
- +2 KILL SRA
- SET SRA(203)=$GET(^SRF(SRTN,203))
- SET SRA(204)=$GET(^SRF(SRTN,204))
- +3 IF $EXTRACT(IOST)="P"
- WRITE !
- WRITE !,?22,"POSTOPERATIVE LABORATORY RESULTS",!!,?29," * Highest Value",!,?29,"** Lowest Value"
- +4 WRITE !!,$JUSTIFY("* Anion Gap: ",39)
- SET X=$PIECE(SRA(203),"^",16)
- WRITE X
- SET X=$PIECE(SRA(204),"^",16)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +5 WRITE !,$JUSTIFY("* Serum Sodium: ",39)
- SET X=$PIECE(SRA(203),"^")
- WRITE X
- SET X=$PIECE(SRA(204),"^")
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +6 WRITE !,$JUSTIFY("** Serum Sodium: ",39)
- SET X=$PIECE(SRA(203),"^",2)
- WRITE X
- SET X=$PIECE(SRA(204),"^",2)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +7 WRITE !,$JUSTIFY("* Potassium: ",39)
- SET X=$PIECE(SRA(203),"^",3)
- WRITE X
- SET X=$PIECE(SRA(204),"^",3)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +8 WRITE !,$JUSTIFY("** Potassium: ",39)
- SET X=$PIECE(SRA(203),"^",4)
- WRITE X
- SET X=$PIECE(SRA(204),"^",4)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +9 WRITE !,$JUSTIFY("* Serum Creatinine: ",39)
- SET X=$PIECE(SRA(203),"^",6)
- WRITE X
- SET X=$PIECE(SRA(204),"^",6)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +10 WRITE !,$JUSTIFY("* CPK: ",39)
- SET X=$PIECE(SRA(203),"^",7)
- WRITE X
- SET X=$PIECE(SRA(204),"^",7)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +11 WRITE !,$JUSTIFY("* CPK-MB Band: ",39)
- SET X=$PIECE(SRA(203),"^",8)
- WRITE X
- SET X=$PIECE(SRA(204),"^",8)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +12 WRITE !,$JUSTIFY("* Total Bilirubin: ",39)
- SET X=$PIECE(SRA(203),"^",9)
- WRITE X
- SET X=$PIECE(SRA(204),"^",9)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +13 WRITE !,$JUSTIFY("* White Blood Count: ",39)
- SET X=$PIECE(SRA(203),"^",10)
- WRITE X
- SET X=$PIECE(SRA(204),"^",10)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +14 WRITE !,$JUSTIFY("** Hematocrit: ",39)
- SET X=$PIECE(SRA(203),"^",12)
- WRITE X
- SET X=$PIECE(SRA(204),"^",12)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +15 WRITE !,$JUSTIFY("* Troponin I: ",39)
- SET X=$PIECE(SRA(203),"^",13)
- WRITE X
- SET X=$PIECE(SRA(204),"^",13)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +16 WRITE !,$JUSTIFY("* Troponin T: ",39)
- SET X=$PIECE(SRA(203),"^",14)
- WRITE X
- SET X=$PIECE(SRA(204),"^",14)
- IF X
- DO DATE
- WRITE ?48,"("_Y_")"
- +17 IF $EXTRACT(IOST)="P"
- WRITE !!
- +18 QUIT
- DATE SET Y=X
- XECUTE ^DD("DD")
- +1 QUIT
