source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCOSCF.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: 924 bytes
Line 
1ONCOSCF ;WASH ISC/SRR,MLH-COMPUTED FIELDS FOR STATISTICS FILE ;8/21/93 10:40
2 ;;2.11;ONCOLOGY;;Mar 07, 1995
3 ;
4FIL ;GET FILE # AND NAME
5 S DIC(0)="AEQZ",DIC="^DIC(",DIC("A")=" Select File to Search: ",DIC("S")="I (Y\1=160)!((Y'<164)&(Y<170))" D ^DIC G EX:Y="^",EX:Y=-1 S $P(^ONCO(166,D0,0),U,2,3)=Y G EX ;,D="AC"
6 Q
7 D IX^DIC
8ROW ;GET ROW
9 S FIL=$P(^ONCO(166,D0,0),U,2),DIC="^DD("_FIL_",",DIC(0)="AEQ",DIC("A")=" Select ROW field: " D ^DIC G EX:Y="^" G EX:Y=-1 S $P(^ONCO(166,D0,0),U,4,5)=Y G EX
10COL ;COLUMN NAME & NUMBER
11 S FIL=$P(^ONCO(166,D0,0),U,2),DIC="^DD("_FIL_",",DIC(0)="AEQZ",DIC("A")=" Select Column field: " D ^DIC G EX:Y="^",EX:Y=-1 S $P(^ONCO(166,D0,0),U,6,7)=Y W ^(0),!
12 ;
13TEM ;TEMPLATE LOOKUP
14 S DIC("A")=" Select Search Template: ",DIC(0)="AEQZ",DIC="^DIBT(",D="F"_$P($G(^ONCO(166,D0,0)),U,2) G EX:D="F" D IX^DIC G EX:Y="^",EX:Y=-1 S $P(^ONCO(166,D0,0),U,8,9)=Y G EX
15EX ;EXIT
16 K XX,XN,FIL,DIC
Note: See TracBrowser for help on using the repository browser.