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
Q
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
Q
EDIT ; update selected field
W ! K DR,DIE,DA S DA=SRIEN,DIE=139.2,DR="[SROALAB]" D ^DIE K DA,DIE,DR
Q
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
Q
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),"^")
Q
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
