| [613] | 1 | ONCOHELP ;Hines OIFO/GWB - Misellaneous HELP ;5/2/92
|
|---|
| 2 | ;;2.11;ONCOLOGY;**29**;Mar 07, 1995
|
|---|
| 3 | DPD ;DRINKS PER DAY
|
|---|
| 4 | W !?5,"Enter the amount of alcohol consumed per day in whiskey equivalents"
|
|---|
| 5 | W !?10,"Note-> One whiskey is equivalent to 10.24 grams of alcohol",!!?15,"- 12 ounces of beer is equivalent to one whiskey"
|
|---|
| 6 | W !?15,"- 4 ounces of wine is equivalent to one whiskey",!?15,"- 1 ounce of vodka, scotch, etc. is equivalent to one whiskey"
|
|---|
| 7 | Q
|
|---|
| 8 | RAD ;RADIATION Conversion
|
|---|
| 9 | W !?10,"Enter the TOTAL amount of Radiation given",!
|
|---|
| 10 | W !?10,"1 cGy = 1 RAD 1Gy = 100 RADs",!
|
|---|
| 11 | Q
|
|---|
| 12 | CLK ;CONTACT LOOKUP
|
|---|
| 13 | ;ENTER with ONCOX=1,2,3,4,5,6
|
|---|
| 14 | I X="?" S X="" Q ;Q:X="?"
|
|---|
| 15 | S X="??",DIC="^ONCO(165,",D="B"_ONCOX,DIC(0)="EZ" D IX^DIC
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | BP ;BIOPSY PROCEDURE (165.5,141)
|
|---|
| 19 | D BPGUCHK^ONCOTNE
|
|---|
| 20 | I BPSITE="" Q
|
|---|
| 21 | W !?3,"Select from the following list:",!
|
|---|
| 22 | F XBP=0:0 S XBP=$O(^ONCO(164,BPSITE,"BP5",XBP)) Q:XBP'>0 W !?6,$P($G(^ONCO(164,BPSITE,"BP5",XBP,0)),U,2),?12,$P($G(^ONCO(164,BPSITE,"BP5",XBP,0)),U,1)
|
|---|
| 23 | K XBP
|
|---|
| 24 | Q
|
|---|
