ONCOHELP.m

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 ---ONCOHELP   1777     printed  Apr 09, 2024@21:28:44                                                                                                                                                                                                    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