| 1 | ONCOTNMX ;Hines OIFO/GWB - GUIDANCE INPUT TRANSFORM ;7/4/93
|
|---|
| 2 | ;;2.11;ONCOLOGY;**6,15,29,35**;Mar 07, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | GUIT ; GUIDANCE INPUT TRANSFORM (#165.5,#142)
|
|---|
| 5 | ; New field - stores pointer to "GU5" mult in file #164
|
|---|
| 6 | S XCODE=X
|
|---|
| 7 | D BPGUCHK^ONCOTNE
|
|---|
| 8 | I BPSITE="" K X Q
|
|---|
| 9 | S FOUND=0
|
|---|
| 10 | F XGU=0:0 S XGU=$O(^ONCO(164,BPSITE,"GU5",XGU)) Q:XGU'>0!(FOUND=1) D
|
|---|
| 11 | .I $P(^ONCO(164,BPSITE,"GU5",XGU,0),"^",2)=X S X=XGU,FOUND=1 Q
|
|---|
| 12 | I FOUND=0 K X Q
|
|---|
| 13 | W " ",$P(^ONCO(164,BPSITE,"GU5",X,0),"^",1)
|
|---|
| 14 | K FOUND,XGU Q
|
|---|
| 15 | GUOT ; GUIDANCE OUTPUT TRANSFORM
|
|---|
| 16 | Q:Y=""
|
|---|
| 17 | D BPGUCHK^ONCOTNE
|
|---|
| 18 | I BPSITE="" Q
|
|---|
| 19 | S Y=$P($G(^ONCO(164,BPSITE,"GU5",Y,0)),"^",1)
|
|---|
| 20 | Q
|
|---|
| 21 | GUHP ; GUIDANCE HELP
|
|---|
| 22 | D BPGUCHK^ONCOTNE
|
|---|
| 23 | I BPSITE="" Q
|
|---|
| 24 | W !?3,"Select from the following list:",!
|
|---|
| 25 | 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)
|
|---|
| 26 | K XGU Q
|
|---|
