ONCOTNMX.m

ONCOTNMX ;Hines OIFO/GWB - GUIDANCE INPUT TRANSFORM ;7/4/93

 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 ;

GUIT ; GUIDANCE INPUT TRANSFORM (#165.5,#142)

 ; New field - stores pointer to "GU5" mult in file #164

 S XCODE=X

 D BPGUCHK^ONCOTNE

 I BPSITE="" K X Q

 S FOUND=0

 F XGU=0:0 S XGU=$O(^ONCO(164,BPSITE,"GU5",XGU)) Q:XGU'>0!(FOUND=1)  D

 .I $P(^ONCO(164,BPSITE,"GU5",XGU,0),"^",2)=X S X=XGU,FOUND=1 Q

 I FOUND=0 K X Q

 W "  ",$P(^ONCO(164,BPSITE,"GU5",X,0),"^",1)

 K FOUND,XGU Q

GUOT ; GUIDANCE OUTPUT TRANSFORM

 Q:Y=""

 D BPGUCHK^ONCOTNE

 I BPSITE="" Q

 S Y=$P($G(^ONCO(164,BPSITE,"GU5",Y,0)),"^",1)

 Q

GUHP ; GUIDANCE HELP

 D BPGUCHK^ONCOTNE

 I BPSITE="" Q

 W !?3,"Select from the following list:",!

 F XGU=0:0 S XGU=$O(^ONCO(164,BPSITE,"GU5",XGU)) Q:XGU'>0  W !?6,$P($G(^ONCO(164,BPSITE,"GU5",XGU,0)),"^",2),?12,$P($G(^ONCO(164,BPSITE,"GU5",XGU,0)),"^",1)

 K XGU Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCOTNMX   897     printed  Apr 09, 2024@21:31:38                                                                                                                                                                                                     Page 2

ONCOTNMX  ;Hines OIFO/GWB - GUIDANCE INPUT TRANSFORM ;7/4/93

 +1       ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 +2       ;

GUIT      ; GUIDANCE INPUT TRANSFORM (#165.5,#142)

 +1       ; New field - stores pointer to "GU5" mult in file #164

 +2        SET XCODE=X

 +3        DO BPGUCHK^ONCOTNE

 +4        IF BPSITE=""

               KILL X

               QUIT 

 +5        SET FOUND=0

 +6        FOR XGU=0:0

               SET XGU=$ORDER(^ONCO(164,BPSITE,"GU5",XGU))

               if XGU'>0!(FOUND=1)

                   QUIT 

               Begin DoDot:1

 +7                IF $PIECE(^ONCO(164,BPSITE,"GU5",XGU,0),"^",2)=X

                       SET X=XGU

                       SET FOUND=1

                       QUIT 

               End DoDot:1

 +8        IF FOUND=0

               KILL X

               QUIT 

 +9        WRITE "  ",$PIECE(^ONCO(164,BPSITE,"GU5",X,0),"^",1)

 +10       KILL FOUND,XGU

           QUIT 

GUOT      ; GUIDANCE OUTPUT TRANSFORM

 +1        if Y=""

               QUIT 

 +2        DO BPGUCHK^ONCOTNE

 +3        IF BPSITE=""

               QUIT 

 +4        SET Y=$PIECE($GET(^ONCO(164,BPSITE,"GU5",Y,0)),"^",1)

 +5        QUIT 

GUHP      ; GUIDANCE HELP

 +1        DO BPGUCHK^ONCOTNE

 +2        IF BPSITE=""

               QUIT 

 +3        WRITE !?3,"Select from the following list:",!

 +4        FOR XGU=0:0

               SET XGU=$ORDER(^ONCO(164,BPSITE,"GU5",XGU))

               if XGU'>0

                   QUIT 

               WRITE !?6,$PIECE($GET(^ONCO(164,BPSITE,"GU5",XGU,0)),"^",2),?12,$PIECE($GET(^ONCO(164,BPSITE,"GU5",XGU,0)),"^",1)

 +5        KILL XGU

           QUIT