SROALDP.m

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