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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROAPRT4 1954 printed Apr 09, 2024@21:42:33 Page 2
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
