| [613] | 1 | ONCOSCF ;WASH ISC/SRR,MLH-COMPUTED FIELDS FOR STATISTICS FILE ;8/21/93 10:40
|
|---|
| 2 | ;;2.11;ONCOLOGY;;Mar 07, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | FIL ;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
|
|---|
| 8 | ROW ;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
|
|---|
| 10 | COL ;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 | ;
|
|---|
| 13 | TEM ;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
|
|---|
| 15 | EX ;EXIT
|
|---|
| 16 | K XX,XN,FIL,DIC
|
|---|
