Routine: SROLABS

SROLABS ;BIR/SJA - ENTER/EDIT RISK MODEL LAB TEST ;12/19/07

 ;;3.0; Surgery ;**166**;24 Jun 93;Build 6

EN N SRIEN,SRSP,SRTNM,SRTP,SRX,Y

 S SRSOUT=0 D LIST G:SRSOUT END

 D DSPLY G:SRSOUT END

 I SREDIT D EDIT

 G EN

END D ^SRSKILL K SREDIT,SRFIRST,SRLABNM,SRSPNM

LIST ; display test list

 W @IOF,!,?11,"Risk Model Lab Test (Enter/Edit)",!!," Select item to edit from list below:",!

 W !," 1. ALBUMIN",?32,"14. LDL"

 W !," 2. ALKALINE PHOSPHATASE",?32,"15. PLATELET COUNT"

 W !," 3. ANION GAP",?32,"16. POTASSIUM"

 W !," 4. BUN",?32,"17. PT"

 W !," 5. CHOLESTEROL",?32,"18. PTT"

 W !," 6. CPK",?32,"19. SGOT"

 W !," 7. CPK-MB",?32,"20. SODIUM"

 W !," 8. CREATININE",?32,"21. TOTAL BILIRUBIN"

 W !," 9. HDL",?32,"22. TRIGLYCERIDE"

 W !,"10. HEMATOCRIT",?32,"23. TROPONIN I"

 W !,"11. HEMOGLOBIN",?32,"24. TROPONIN T"

 W !,"12. HEMOGLOBIN A1C",?32,"25. WHITE BLOOD COUNT"

 W !,"13. INR",!

 K DIR S DIR("?")="Select the number from the list for the lab test you want to edit."

 S DIR(0)="NAO^1:25",DIR("A")="Enter number (1-25): " D ^DIR K DIR I $D(DTOUT)!$D(DUOUT)!'Y S SRSOUT=1 Q

 D TEST

EDIT ; update selected field

 W ! K DR,DIE,DA S DA=SRIEN,DIE=139.2,DR="[SROALAB]" D ^DIE K DA,DIE,DR

DSPLY ; display test information from file 139.2

 W @IOF,!,?11,"Risk Model Lab Test (Enter/Edit)",!!!,?16,"Test Name: "_SRLABNM,!!,"  Laboratory Data Name(s): "

 I '$O(^SRO(139.2,SRIEN,1,0)) W "NONE ENTERED"

 S SRX=0,SRFIRST=1 F  S SRX=$O(^SRO(139.2,SRIEN,1,SRX)) Q:'SRX  D

 .S SRTP=$P($G(^SRO(139.2,SRIEN,1,SRX,0)),"^"),Y=SRTP,C=$P(^DD(139.21,.01,0),"^",2) D Y^DIQ S SRTNM=Y

 .W:'SRFIRST ! W ?27,SRTNM S SRFIRST=0

 S SRSPNM="NONE ENTERED",SRSP=$P($G(^SRO(139.2,SRIEN,2)),"^") I SRSP S Y=SRSP,C=$P(^DD(139.2,2,0),"^",2) D Y^DIQ S SRSPNM=Y

 W !!,?17,"Specimen: ",SRSPNM,!!

 K DIR S DIR(0)="YA",DIR("A")="Do you want to edit this test ? ",DIR("B")="NO" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 Q

 S SREDIT=Y

TEST ; match with entry in file 139.2

 I Y<14 S SRIEN=$S(Y=2:15,Y=3:26,Y=4:8,Y=5:24,Y=6:9,Y=7:10,Y=8:7,Y=9:21,Y=10:17,Y=11:1,Y=12:27,Y=13:25,1:11)

 I Y>13 S SRIEN=$S(Y=14:23,Y=15:18,Y=16:5,Y=17:19,Y=18:20,Y=19:13,Y=20:4,Y=21:14,Y=22:22,Y=23:2,Y=24:3,1:16)

 S SRLABNM=$P(^SRO(139.2,SRIEN,0),"^")

SROLABS   ;BIR/SJA - ENTER/EDIT RISK MODEL LAB TEST ;12/19/07

 +1       ;;3.0; Surgery ;**166**;24 Jun 93;Build 6

EN         NEW SRIEN,SRSP,SRTNM,SRTP,SRX,Y

 +1        SET SRSOUT=0

           DO LIST

           IF SRSOUT

               GOTO END

 +2        DO DSPLY

           IF SRSOUT

               GOTO END

 +3        IF SREDIT

               DO EDIT

 +4        GOTO EN

END        DO ^SRSKILL

           KILL SREDIT,SRFIRST,SRLABNM,SRSPNM

 +1        QUIT

LIST      ; display test list

 +1        WRITE @IOF,!,?11,"Risk Model Lab Test (Enter/Edit)",!!," Select item to edit from list below:",!

 +2        WRITE !," 1. ALBUMIN",?32,"14. LDL"

 +3        WRITE !," 2. ALKALINE PHOSPHATASE",?32,"15. PLATELET COUNT"

 +4        WRITE !," 3. ANION GAP",?32,"16. POTASSIUM"

 +5        WRITE !," 4. BUN",?32,"17. PT"

 +6        WRITE !," 5. CHOLESTEROL",?32,"18. PTT"

 +7        WRITE !," 6. CPK",?32,"19. SGOT"

 +8        WRITE !," 7. CPK-MB",?32,"20. SODIUM"

 +9        WRITE !," 8. CREATININE",?32,"21. TOTAL BILIRUBIN"

 +10       WRITE !," 9. HDL",?32,"22. TRIGLYCERIDE"

 +11       WRITE !,"10. HEMATOCRIT",?32,"23. TROPONIN I"

 +12       WRITE !,"11. HEMOGLOBIN",?32,"24. TROPONIN T"

 +13       WRITE !,"12. HEMOGLOBIN A1C",?32,"25. WHITE BLOOD COUNT"

 +14       WRITE !,"13. INR",!

 +15       KILL DIR

           SET DIR("?")="Select the number from the list for the lab test you want to edit."

 +16       SET DIR(0)="NAO^1:25"

           SET DIR("A")="Enter number (1-25): "

           DO ^DIR

           KILL DIR

           IF $DATA(DTOUT)!$DATA(DUOUT)!'Y

               SET SRSOUT=1

               QUIT

 +17       DO TEST

 +18       QUIT

EDIT      ; update selected field

 +1        WRITE !

           KILL DR,DIE,DA

           SET DA=SRIEN

           SET DIE=139.2

           SET DR="[SROALAB]"

           DO ^DIE

           KILL DA,DIE,DR

 +2        QUIT

DSPLY     ; display test information from file 139.2

 +1        WRITE @IOF,!,?11,"Risk Model Lab Test (Enter/Edit)",!!!,?16,"Test Name: "_SRLABNM,!!,"  Laboratory Data Name(s): "

 +2        IF '$ORDER(^SRO(139.2,SRIEN,1,0))

               WRITE "NONE ENTERED"

 +3        SET SRX=0

           SET SRFIRST=1

FOR

               SET SRX=$ORDER(^SRO(139.2,SRIEN,1,SRX))

               IF 'SRX

                   QUIT

               Begin DoDot:1

 +4                SET SRTP=$PIECE($GET(^SRO(139.2,SRIEN,1,SRX,0)),"^")

                   SET Y=SRTP

                   SET C=$PIECE(^DD(139.21,.01,0),"^",2)

                   DO Y^DIQ

                   SET SRTNM=Y

 +5                IF 'SRFIRST

                       WRITE !

                   WRITE ?27,SRTNM

                   SET SRFIRST=0

               End DoDot:1

 +6        SET SRSPNM="NONE ENTERED"

           SET SRSP=$PIECE($GET(^SRO(139.2,SRIEN,2)),"^")

           IF SRSP

               SET Y=SRSP

               SET C=$PIECE(^DD(139.2,2,0),"^",2)

               DO Y^DIQ

               SET SRSPNM=Y

 +7        WRITE !!,?17,"Specimen: ",SRSPNM,!!

 +8        KILL DIR

           SET DIR(0)="YA"

           SET DIR("A")="Do you want to edit this test ? "

           SET DIR("B")="NO"

           DO ^DIR

           KILL DIR

           IF $DATA(DTOUT)!$DATA(DUOUT)

               SET SRSOUT=1

               QUIT

 +9        SET SREDIT=Y

 +10       QUIT

TEST      ; match with entry in file 139.2

 +1        IF Y<14

               SET SRIEN=$SELECT(Y=2:15,Y=3:26,Y=4:8,Y=5:24,Y=6:9,Y=7:10,Y=8:7,Y=9:21,Y=10:17,Y=11:1,Y=12:27,Y=13:25,1:11)

 +2        IF Y>13

               SET SRIEN=$SELECT(Y=14:23,Y=15:18,Y=16:5,Y=17:19,Y=18:20,Y=19:13,Y=20:4,Y=21:14,Y=22:22,Y=23:2,Y=24:3,1:16)

 +3        SET SRLABNM=$PIECE(^SRO(139.2,SRIEN,0),"^")

 +4        QUIT

SROLABS.m