source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCOTNMX.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 873 bytes
Line 
1ONCOTNMX ;Hines OIFO/GWB - GUIDANCE INPUT TRANSFORM ;7/4/93
2 ;;2.11;ONCOLOGY;**6,15,29,35**;Mar 07, 1995
3 ;
4GUIT ; 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
15GUOT ; 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
21GUHP ; 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
Note: See TracBrowser for help on using the repository browser.