ONCOHELP ;Hines OIFO/GWB - Miscellaneous Help ;5/2/92
;;2.2;ONCOLOGY;**1,4**;Jul 31, 2013;Build 5
DPD ;DRINKS PER DAY
W !?5,"Enter the amount of alcohol consumed per day in whiskey equivalents"
W !?10,"Note-> One whiskey is equivalent to 10.24 grams of alcohol",!!?15,"- 12 ounces of beer is equivalent to one whiskey"
W !?15,"- 4 ounces of wine is equivalent to one whiskey",!?15,"- 1 ounce of vodka, scotch, etc. is equivalent to one whiskey"
Q
RAD ;RADIATION Conversion
W !?10,"Enter the TOTAL amount of Radiation given",!
W !?10,"1 cGy = 1 RAD 1Gy = 100 RADs",!
Q
CLK ;CONTACT LOOKUP
;ENTER with ONCOX=1,2,3,4,5,6
I X="?" S X="" Q ;Q:X="?"
S X="??",DIC="^ONCO(165,",D="B"_ONCOX,DIC(0)="EZ" D IX^DIC
Q
;
BP ;BIOPSY PROCEDURE (165.5,141)
D BPGUCHK^ONCOTNE
I BPSITE="" Q
W !?3,"Select from the following list:",!
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)
K XBP
Q
;
DTFLGHLP ;XECUTABLE HELP CODE FOR DATE FLAG FIELDS (165.5,999.1-999.25)
; ONCITM = THE NAACCR ITEM # ASSOCIATED WITH THE FIELD SET IN THE ^DD
;
I ONCITM=581!(ONCITM=1751) D 12,BLNK K ONCITM Q
I ONCITM=1201!(ONCITM=1251)!(ONCITM=1271)!(ONCITM=1281)!(ONCITM=1861)!(ONCITM=3171)!(ONCITM=3181) D 10,11,12,15,BLNK K ONCITM Q
D 10,11,12,15,BLNK
K ONCITM Q
;
10 W !?5,"10 No information whatsoever can be inferred from this exceptional value" Q
11 W !?5,"11 No proper value is applicable in this context" Q
12 W !?5,"12 A proper value is applicable but not known; date is unknown" Q
15 W !?5,"15 Information is not available now but is expected to be available later" Q
BLNK W !?5,"Leave blank if a valid date value is provided",! Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCOHELP 1777 printed Dec 13, 2024@02:25:08 Page 2
ONCOHELP ;Hines OIFO/GWB - Miscellaneous Help ;5/2/92
+1 ;;2.2;ONCOLOGY;**1,4**;Jul 31, 2013;Build 5
DPD ;DRINKS PER DAY
+1 WRITE !?5,"Enter the amount of alcohol consumed per day in whiskey equivalents"
+2 WRITE !?10,"Note-> One whiskey is equivalent to 10.24 grams of alcohol",!!?15,"- 12 ounces of beer is equivalent to one whiskey"
+3 WRITE !?15,"- 4 ounces of wine is equivalent to one whiskey",!?15,"- 1 ounce of vodka, scotch, etc. is equivalent to one whiskey"
+4 QUIT
RAD ;RADIATION Conversion
+1 WRITE !?10,"Enter the TOTAL amount of Radiation given",!
+2 WRITE !?10,"1 cGy = 1 RAD 1Gy = 100 RADs",!
+3 QUIT
CLK ;CONTACT LOOKUP
+1 ;ENTER with ONCOX=1,2,3,4,5,6
+2 ;Q:X="?"
IF X="?"
SET X=""
QUIT
+3 SET X="??"
SET DIC="^ONCO(165,"
SET D="B"_ONCOX
SET DIC(0)="EZ"
DO IX^DIC
+4 QUIT
+5 ;
BP ;BIOPSY PROCEDURE (165.5,141)
+1 DO BPGUCHK^ONCOTNE
+2 IF BPSITE=""
QUIT
+3 WRITE !?3,"Select from the following list:",!
+4 FOR XBP=0:0
SET XBP=$ORDER(^ONCO(164,BPSITE,"BP5",XBP))
if XBP'>0
QUIT
WRITE !?6,$PIECE($GET(^ONCO(164,BPSITE,"BP5",XBP,0)),U,2),?12,$PIECE($GET(^ONCO(164,BPSITE,"BP5",XBP,0)),U,1)
+5 KILL XBP
+6 QUIT
+7 ;
DTFLGHLP ;XECUTABLE HELP CODE FOR DATE FLAG FIELDS (165.5,999.1-999.25)
+1 ; ONCITM = THE NAACCR ITEM # ASSOCIATED WITH THE FIELD SET IN THE ^DD
+2 ;
+3 IF ONCITM=581!(ONCITM=1751)
DO 12
DO BLNK
KILL ONCITM
QUIT
+4 IF ONCITM=1201!(ONCITM=1251)!(ONCITM=1271)!(ONCITM=1281)!(ONCITM=1861)!(ONCITM=3171)!(ONCITM=3181)
DO 10
DO 11
DO 12
DO 15
DO BLNK
KILL ONCITM
QUIT
+5 DO 10
DO 11
DO 12
DO 15
DO BLNK
+6 KILL ONCITM
QUIT
+7 ;
10 WRITE !?5,"10 No information whatsoever can be inferred from this exceptional value"
QUIT
11 WRITE !?5,"11 No proper value is applicable in this context"
QUIT
12 WRITE !?5,"12 A proper value is applicable but not known; date is unknown"
QUIT
15 WRITE !?5,"15 Information is not available now but is expected to be available later"
QUIT
BLNK WRITE !?5,"Leave blank if a valid date value is provided",!
QUIT
