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 ---[H[J[2J[HONCOTNMX 897 printed Oct 16, 2024@18:26:40 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
