source: FOIAVistA/tag/r/ONCOLOGY-ONC/ONCOSO.m@ 1416

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

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1ONCOSO ;Hines OIFO/GWB - CALL TO ^DIS FOR FILEMANAGER SEARCH OPTION ;9/3/93
2 ;;2.11;ONCOLOGY;**39**;Mar 07, 1995
3 ;
4HD ;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 ;
13SEL ;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 ;
22SER ;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 ;
25IN ;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 ;
30EX ;Exit and kill
31 K DIC,DIR,GL,ONCOF,ONCOEX,ONCON,ONCOX,ONCOX1,ROWDEF,%T,%,%K,%DT,%ZISOS,G,L,O,W Q
Note: See TracBrowser for help on using the repository browser.