27 lines
873 B
Mathematica
27 lines
873 B
Mathematica
ONCOTNMX ;Hines OIFO/GWB - GUIDANCE INPUT TRANSFORM ;7/4/93
|
|
;;2.11;ONCOLOGY;**6,15,29,35**;Mar 07, 1995
|
|
;
|
|
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
|