- SROALN3 ;BIR/MAM - LAB INFO ;06/27/06
- ;;3.0; Surgery ;**38,47,88,153**;24 Jun 93;Build 11
- F SHEMP=203,204 S SRA(SHEMP)=$G(^SRF(SRTN,SHEMP))
- S SHEMP=$P(SRA(203),"^",16),SRAO(1)=SHEMP_"^^445^445.1" S X=$P(SRA(204),"^",16) I X D DATE S SHEMP="("_Y_")",$P(SRAO(1),"^",2)=SHEMP
- S SHEMP=$P(SRA(203),"^"),SRAO(2)=SHEMP_"^^274^305" S X=$P(SRA(204),"^") I X D DATE S SHEMP="("_Y_")",$P(SRAO(2),"^",2)=SHEMP
- S SHEMP=$P(SRA(203),"^",2),SRAO(3)=SHEMP_"^^405^407" S X=$P(SRA(204),"^",2) I X D DATE S SHEMP="("_Y_")",$P(SRAO(3),"^",2)=SHEMP
- S SHEMP=$P(SRA(203),"^",3),SRAO(4)=SHEMP_"^^275^306" S X=$P(SRA(204),"^",3) I X D DATE S SHEMP="("_Y_")",$P(SRAO(4),"^",2)=SHEMP
- S SHEMP=$P(SRA(203),"^",4),SRAO(5)=SHEMP_"^^406^408" S X=$P(SRA(204),"^",4) I X D DATE S SHEMP="("_Y_")",$P(SRAO(5),"^",2)=SHEMP
- S SHEMP=$P(SRA(203),"^",6),SRAO(6)=SHEMP_"^^277^308" S X=$P(SRA(204),"^",6) I X D DATE S SHEMP="("_Y_")",$P(SRAO(6),"^",2)=SHEMP
- S SHEMP=$P(SRA(203),"^",7),SRAO(7)=SHEMP_"^^278^309" S X=$P(SRA(204),"^",7) I X D DATE S SHEMP="("_Y_")",$P(SRAO(7),"^",2)=SHEMP
- S SHEMP=$P(SRA(203),"^",8),SRAO(8)=SHEMP_"^^279^310" S X=$P(SRA(204),"^",8) I X D DATE S SHEMP="("_Y_")",$P(SRAO(8),"^",2)=SHEMP
- S SHEMP=$P(SRA(203),"^",9),SRAO(9)=SHEMP_"^^280^311" S X=$P(SRA(204),"^",9) I X D DATE S SHEMP="("_Y_")",$P(SRAO(9),"^",2)=SHEMP
- S SHEMP=$P(SRA(203),"^",10),SRAO(10)=SHEMP_"^^281^312" S X=$P(SRA(204),"^",10) I X D DATE S SHEMP="("_Y_")",$P(SRAO(10),"^",2)=SHEMP
- S SHEMP=$P(SRA(203),"^",12),SRAO(11)=SHEMP_"^^283^314" S X=$P(SRA(204),"^",12) I X D DATE S SHEMP="("_Y_")",$P(SRAO(11),"^",2)=SHEMP
- S SHEMP=$P(SRA(203),"^",13),SRAO(12)=SHEMP_"^^455^455.1" S X=$P(SRA(204),"^",13) I X D DATE S SHEMP="("_Y_")",$P(SRAO(12),"^",2)=SHEMP
- S SHEMP=$P(SRA(203),"^",14),SRAO(13)=SHEMP_"^^456^456.1" S X=$P(SRA(204),"^",14) I X D DATE S SHEMP="("_Y_")",$P(SRAO(13),"^",2)=SHEMP
- S SRPAGE="PAGE: 2 OF 2",SRHDR(.5)="POSTOP LAB RESULTS WITHIN 30 DAYS AFTER SURGERY" D HDR^SROAUTL
- W !," 1. Highest Anion Gap:",?30,$J($P(SRAO(1),"^"),6),?40,$P(SRAO(1),"^",2)
- W !," 2. Highest Serum Sodium:",?30,$J($P(SRAO(2),"^"),6),?40,$P(SRAO(2),"^",2)
- W !," 3. Lowest Serum Sodium:",?30,$J($P(SRAO(3),"^"),6),?40,$P(SRAO(3),"^",2)
- W !," 4. Highest Potassium:",?30,$J($P(SRAO(4),"^"),6),?40,$P(SRAO(4),"^",2)
- W !," 5. Lowest Potassium:",?30,$J($P(SRAO(5),"^"),6),?40,$P(SRAO(5),"^",2)
- W !," 6. Highest Serum Creatinine: ",?30,$J($P(SRAO(6),"^"),6),?40,$P(SRAO(6),"^",2)
- W !," 7. Highest CPK: ",?30,$J($P(SRAO(7),"^"),6),?40,$P(SRAO(7),"^",2)
- W !," 8. Highest CPK-MB Band: ",?30,$J($P(SRAO(8),"^"),6),?40,$P(SRAO(8),"^",2)
- W !," 9. Highest Total Bilirubin: ",?30,$J($P(SRAO(9),"^"),6),?40,$P(SRAO(9),"^",2)
- W !,"10. Highest WBC:",?30,$J($P(SRAO(10),"^"),6),?40,$P(SRAO(10),"^",2)
- W !,"11. Lowest Hematocrit:",?30,$J($P(SRAO(11),"^"),6),?40,$P(SRAO(11),"^",2)
- W !,"12. Highest Troponin I:",?30,$J($P(SRAO(12),"^"),6),?40,$P(SRAO(12),"^",2)
- W !,"13. Highest Troponin T:",?30,$J($P(SRAO(13),"^"),6),?40,$P(SRAO(13),"^",2)
- W !! F MOE=1:1:80 W "-"
- Q
- DATE S Y=X X ^DD("DD")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROALN3 3074 printed Feb 19, 2025@00:07:21 Page 2
- SROALN3 ;BIR/MAM - LAB INFO ;06/27/06
- +1 ;;3.0; Surgery ;**38,47,88,153**;24 Jun 93;Build 11
- +2 FOR SHEMP=203,204
- SET SRA(SHEMP)=$GET(^SRF(SRTN,SHEMP))
- +3 SET SHEMP=$PIECE(SRA(203),"^",16)
- SET SRAO(1)=SHEMP_"^^445^445.1"
- SET X=$PIECE(SRA(204),"^",16)
- IF X
- DO DATE
- SET SHEMP="("_Y_")"
- SET $PIECE(SRAO(1),"^",2)=SHEMP
- +4 SET SHEMP=$PIECE(SRA(203),"^")
- SET SRAO(2)=SHEMP_"^^274^305"
- SET X=$PIECE(SRA(204),"^")
- IF X
- DO DATE
- SET SHEMP="("_Y_")"
- SET $PIECE(SRAO(2),"^",2)=SHEMP
- +5 SET SHEMP=$PIECE(SRA(203),"^",2)
- SET SRAO(3)=SHEMP_"^^405^407"
- SET X=$PIECE(SRA(204),"^",2)
- IF X
- DO DATE
- SET SHEMP="("_Y_")"
- SET $PIECE(SRAO(3),"^",2)=SHEMP
- +6 SET SHEMP=$PIECE(SRA(203),"^",3)
- SET SRAO(4)=SHEMP_"^^275^306"
- SET X=$PIECE(SRA(204),"^",3)
- IF X
- DO DATE
- SET SHEMP="("_Y_")"
- SET $PIECE(SRAO(4),"^",2)=SHEMP
- +7 SET SHEMP=$PIECE(SRA(203),"^",4)
- SET SRAO(5)=SHEMP_"^^406^408"
- SET X=$PIECE(SRA(204),"^",4)
- IF X
- DO DATE
- SET SHEMP="("_Y_")"
- SET $PIECE(SRAO(5),"^",2)=SHEMP
- +8 SET SHEMP=$PIECE(SRA(203),"^",6)
- SET SRAO(6)=SHEMP_"^^277^308"
- SET X=$PIECE(SRA(204),"^",6)
- IF X
- DO DATE
- SET SHEMP="("_Y_")"
- SET $PIECE(SRAO(6),"^",2)=SHEMP
- +9 SET SHEMP=$PIECE(SRA(203),"^",7)
- SET SRAO(7)=SHEMP_"^^278^309"
- SET X=$PIECE(SRA(204),"^",7)
- IF X
- DO DATE
- SET SHEMP="("_Y_")"
- SET $PIECE(SRAO(7),"^",2)=SHEMP
- +10 SET SHEMP=$PIECE(SRA(203),"^",8)
- SET SRAO(8)=SHEMP_"^^279^310"
- SET X=$PIECE(SRA(204),"^",8)
- IF X
- DO DATE
- SET SHEMP="("_Y_")"
- SET $PIECE(SRAO(8),"^",2)=SHEMP
- +11 SET SHEMP=$PIECE(SRA(203),"^",9)
- SET SRAO(9)=SHEMP_"^^280^311"
- SET X=$PIECE(SRA(204),"^",9)
- IF X
- DO DATE
- SET SHEMP="("_Y_")"
- SET $PIECE(SRAO(9),"^",2)=SHEMP
- +12 SET SHEMP=$PIECE(SRA(203),"^",10)
- SET SRAO(10)=SHEMP_"^^281^312"
- SET X=$PIECE(SRA(204),"^",10)
- IF X
- DO DATE
- SET SHEMP="("_Y_")"
- SET $PIECE(SRAO(10),"^",2)=SHEMP
- +13 SET SHEMP=$PIECE(SRA(203),"^",12)
- SET SRAO(11)=SHEMP_"^^283^314"
- SET X=$PIECE(SRA(204),"^",12)
- IF X
- DO DATE
- SET SHEMP="("_Y_")"
- SET $PIECE(SRAO(11),"^",2)=SHEMP
- +14 SET SHEMP=$PIECE(SRA(203),"^",13)
- SET SRAO(12)=SHEMP_"^^455^455.1"
- SET X=$PIECE(SRA(204),"^",13)
- IF X
- DO DATE
- SET SHEMP="("_Y_")"
- SET $PIECE(SRAO(12),"^",2)=SHEMP
- +15 SET SHEMP=$PIECE(SRA(203),"^",14)
- SET SRAO(13)=SHEMP_"^^456^456.1"
- SET X=$PIECE(SRA(204),"^",14)
- IF X
- DO DATE
- SET SHEMP="("_Y_")"
- SET $PIECE(SRAO(13),"^",2)=SHEMP
- +16 SET SRPAGE="PAGE: 2 OF 2"
- SET SRHDR(.5)="POSTOP LAB RESULTS WITHIN 30 DAYS AFTER SURGERY"
- DO HDR^SROAUTL
- +17 WRITE !," 1. Highest Anion Gap:",?30,$JUSTIFY($PIECE(SRAO(1),"^"),6),?40,$PIECE(SRAO(1),"^",2)
- +18 WRITE !," 2. Highest Serum Sodium:",?30,$JUSTIFY($PIECE(SRAO(2),"^"),6),?40,$PIECE(SRAO(2),"^",2)
- +19 WRITE !," 3. Lowest Serum Sodium:",?30,$JUSTIFY($PIECE(SRAO(3),"^"),6),?40,$PIECE(SRAO(3),"^",2)
- +20 WRITE !," 4. Highest Potassium:",?30,$JUSTIFY($PIECE(SRAO(4),"^"),6),?40,$PIECE(SRAO(4),"^",2)
- +21 WRITE !," 5. Lowest Potassium:",?30,$JUSTIFY($PIECE(SRAO(5),"^"),6),?40,$PIECE(SRAO(5),"^",2)
- +22 WRITE !," 6. Highest Serum Creatinine: ",?30,$JUSTIFY($PIECE(SRAO(6),"^"),6),?40,$PIECE(SRAO(6),"^",2)
- +23 WRITE !," 7. Highest CPK: ",?30,$JUSTIFY($PIECE(SRAO(7),"^"),6),?40,$PIECE(SRAO(7),"^",2)
- +24 WRITE !," 8. Highest CPK-MB Band: ",?30,$JUSTIFY($PIECE(SRAO(8),"^"),6),?40,$PIECE(SRAO(8),"^",2)
- +25 WRITE !," 9. Highest Total Bilirubin: ",?30,$JUSTIFY($PIECE(SRAO(9),"^"),6),?40,$PIECE(SRAO(9),"^",2)
- +26 WRITE !,"10. Highest WBC:",?30,$JUSTIFY($PIECE(SRAO(10),"^"),6),?40,$PIECE(SRAO(10),"^",2)
- +27 WRITE !,"11. Lowest Hematocrit:",?30,$JUSTIFY($PIECE(SRAO(11),"^"),6),?40,$PIECE(SRAO(11),"^",2)
- +28 WRITE !,"12. Highest Troponin I:",?30,$JUSTIFY($PIECE(SRAO(12),"^"),6),?40,$PIECE(SRAO(12),"^",2)
- +29 WRITE !,"13. Highest Troponin T:",?30,$JUSTIFY($PIECE(SRAO(13),"^"),6),?40,$PIECE(SRAO(13),"^",2)
- +30 WRITE !!
- FOR MOE=1:1:80
- WRITE "-"
- +31 QUIT
- DATE SET Y=X
- XECUTE ^DD("DD")
- +1 QUIT