source: FOIAVistA/tag/r/ONCOLOGY-ONC/ONCOHELP.m@ 1424

Last change on this file since 1424 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 994 bytes
Line 
1ONCOHELP ;Hines OIFO/GWB - Misellaneous HELP ;5/2/92
2 ;;2.11;ONCOLOGY;**29**;Mar 07, 1995
3DPD ;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
8RAD ;RADIATION Conversion
9 W !?10,"Enter the TOTAL amount of Radiation given",!
10 W !?10,"1 cGy = 1 RAD 1Gy = 100 RADs",!
11 Q
12CLK ;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 ;
18BP ;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
Note: See TracBrowser for help on using the repository browser.