| [613] | 1 | ONCOSO ;Hines OIFO/GWB - CALL TO ^DIS FOR FILEMANAGER SEARCH OPTION ;9/3/93
|
|---|
| 2 | ;;2.11;ONCOLOGY;**39**;Mar 07, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | HD ;Header
|
|---|
| 5 | W @IOF,!!?10,"This option allows you to create 'SEARCH TEMPLATES'",!?10,"which are used in Cross-Tabs and Survival Analysis"
|
|---|
| 6 | W !!?15,"REMEMBER to name templates beginning with"
|
|---|
| 7 | W !?24,"ONCOZ for USER defined templates"
|
|---|
| 8 | W !?17,"verses Package distributed (ONCOS).",!!
|
|---|
| 9 | W ?17,"To 'RUN' Existing Templates enter '[ONCOS' to begin,",!
|
|---|
| 10 | W ?17,"to bring up pre-defined tempates for use with Cross-tabs.",!!
|
|---|
| 11 | Q
|
|---|
| 12 | ;
|
|---|
| 13 | SEL ;SELECT FILE
|
|---|
| 14 | K DIR
|
|---|
| 15 | S DIR(0)="SO^1:ONCOLOGY PRIMARY;2:ONCOLOGY PATIENT;3:ONCOLOGY CONTACT"
|
|---|
| 16 | S DIR("A")=" Select File"
|
|---|
| 17 | D ^DIR Q:$D(DIRUT)
|
|---|
| 18 | S GL="^ONCO(16",DIC=$S(Y=1:GL_"5.5,",Y=2:GL_"0,",1:GL_"5,")
|
|---|
| 19 | S ONCOF=$P($P(DIR(0),";",Y),":",2)
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | SER ;REQUEST FILE TO SEARCH, THEN SEARCH CRITERIA
|
|---|
| 23 | D HD,SEL G EX:$D(DIRUT) W !!!,"We will search entries in "_ONCOF_" file...",!!! D EN^DIS G EX
|
|---|
| 24 | ;
|
|---|
| 25 | IN ;CALL TO CROSS-TAB ROUTINES
|
|---|
| 26 | K ONCOS("AF") G ST^ONCOSCT0
|
|---|
| 27 | W !!!?10,"This Option will allow you to define the necessary",!?10,"variables for Cross-Tabulations - refer to the User's",!?10,"manual for HELP in answering questions",!!
|
|---|
| 28 | K DIR S DIR("A")=" Continue",DIR(0)="Y",DIR("B")="Y" D ^DIR G EX:Y'=1 D ^ONCOSCT0 G EX
|
|---|
| 29 | ;
|
|---|
| 30 | EX ;Exit and kill
|
|---|
| 31 | K DIC,DIR,GL,ONCOF,ONCOEX,ONCON,ONCOX,ONCOX1,ROWDEF,%T,%,%K,%DT,%ZISOS,G,L,O,W Q
|
|---|
