- SROALDP ;BIR/MAM - DISPLAY PREOP LABS ;01/25/07
- ;;3.0; Surgery ;**38,47,81,125,153,160**;24 Jun 93;Build 7
- S SRPAGE="PAGE: 1 OF 2",SRHDR(.5)="LATEST PREOP LAB RESULTS IN 90 DAYS PRIOR TO SURGERY UNLESS OTHERWISE SPECIFIED" D HDR^SROAUTL
- W !," 1. Anion Gap (in 48 hrs.):",?31,$J($P(SRAO(1),"^"),6),?40,$P(SRAO(1),"^",2)
- W !," 2. Serum Sodium: ",?31,$J($P(SRAO(2),"^"),6),?40,$P(SRAO(2),"^",2)
- W !," 3. BUN:",?31,$J($P(SRAO(3),"^"),6),?40,$P(SRAO(3),"^",2)
- W !," 4. Serum Creatinine: ",?31,$J($P(SRAO(4),"^"),6),?40,$P(SRAO(4),"^",2)
- W !," 5. Serum Albumin:",?31,$J($P(SRAO(5),"^"),6),?40,$P(SRAO(5),"^",2)
- W !," 6. Total Bilirubin:",?31,$J($P(SRAO(6),"^"),6),?40,$P(SRAO(6),"^",2)
- W !," 7. SGOT:",?31,$J($P(SRAO(7),"^"),6),?40,$P(SRAO(7),"^",2)
- W !," 8. Alkaline Phosphatase:",?31,$J($P(SRAO(8),"^"),6),?40,$P(SRAO(8),"^",2)
- W !," 9. WBC:",?31,$J($P(SRAO(9),"^"),6),?40,$P(SRAO(9),"^",2)
- W !,"10. Hematocrit:",?31,$J($P(SRAO(10),"^"),6),?40,$P(SRAO(10),"^",2)
- W !,"11. Platelet Count:",?31,$J($P(SRAO(11),"^"),6),?40,$P(SRAO(11),"^",2)
- W !,"12. PTT: ",?31,$J($P(SRAO(12),"^"),6),?40,$P(SRAO(12),"^",2)
- W !,"13. PT: ",?31,$J($P(SRAO(13),"^"),6),?40,$P(SRAO(13),"^",2)
- W !,"14. INR: ",?31,$J($P(SRAO(14),"^"),6),?40,$P(SRAO(14),"^",2)
- W !,"15. Hemoglobin A1c (1000 days):",?31,$J($P(SRAO(15),"^"),6),?40,$P(SRAO(15),"^",2)
- W ! F MOE=1:1:80 W "-"
- Q
- SROALDP ;BIR/MAM - DISPLAY PREOP LABS ;01/25/07
- +1 ;;3.0; Surgery ;**38,47,81,125,153,160**;24 Jun 93;Build 7
- +2 SET SRPAGE="PAGE: 1 OF 2"
- SET SRHDR(.5)="LATEST PREOP LAB RESULTS IN 90 DAYS PRIOR TO SURGERY UNLESS OTHERWISE SPECIFIED"
- DO HDR^SROAUTL
- +3 WRITE !," 1. Anion Gap (in 48 hrs.):",?31,$JUSTIFY($PIECE(SRAO(1),"^"),6),?40,$PIECE(SRAO(1),"^",2)
- +4 WRITE !," 2. Serum Sodium: ",?31,$JUSTIFY($PIECE(SRAO(2),"^"),6),?40,$PIECE(SRAO(2),"^",2)
- +5 WRITE !," 3. BUN:",?31,$JUSTIFY($PIECE(SRAO(3),"^"),6),?40,$PIECE(SRAO(3),"^",2)
- +6 WRITE !," 4. Serum Creatinine: ",?31,$JUSTIFY($PIECE(SRAO(4),"^"),6),?40,$PIECE(SRAO(4),"^",2)
- +7 WRITE !," 5. Serum Albumin:",?31,$JUSTIFY($PIECE(SRAO(5),"^"),6),?40,$PIECE(SRAO(5),"^",2)
- +8 WRITE !," 6. Total Bilirubin:",?31,$JUSTIFY($PIECE(SRAO(6),"^"),6),?40,$PIECE(SRAO(6),"^",2)
- +9 WRITE !," 7. SGOT:",?31,$JUSTIFY($PIECE(SRAO(7),"^"),6),?40,$PIECE(SRAO(7),"^",2)
- +10 WRITE !," 8. Alkaline Phosphatase:",?31,$JUSTIFY($PIECE(SRAO(8),"^"),6),?40,$PIECE(SRAO(8),"^",2)
- +11 WRITE !," 9. WBC:",?31,$JUSTIFY($PIECE(SRAO(9),"^"),6),?40,$PIECE(SRAO(9),"^",2)
- +12 WRITE !,"10. Hematocrit:",?31,$JUSTIFY($PIECE(SRAO(10),"^"),6),?40,$PIECE(SRAO(10),"^",2)
- +13 WRITE !,"11. Platelet Count:",?31,$JUSTIFY($PIECE(SRAO(11),"^"),6),?40,$PIECE(SRAO(11),"^",2)
- +14 WRITE !,"12. PTT: ",?31,$JUSTIFY($PIECE(SRAO(12),"^"),6),?40,$PIECE(SRAO(12),"^",2)
- +15 WRITE !,"13. PT: ",?31,$JUSTIFY($PIECE(SRAO(13),"^"),6),?40,$PIECE(SRAO(13),"^",2)
- +16 WRITE !,"14. INR: ",?31,$JUSTIFY($PIECE(SRAO(14),"^"),6),?40,$PIECE(SRAO(14),"^",2)
- +17 WRITE !,"15. Hemoglobin A1c (1000 days):",?31,$JUSTIFY($PIECE(SRAO(15),"^"),6),?40,$PIECE(SRAO(15),"^",2)
- +18 WRITE !
- FOR MOE=1:1:80
- WRITE "-"
- +19 QUIT