ONCOSO ;Hines OIFO/GWB - CALL TO ^DIS FOR FILEMANAGER SEARCH OPTION ;9/3/93
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;
HD ;Header
W @IOF,!!?10,"This option allows you to create 'SEARCH TEMPLATES'",!?10,"which are used in Cross-Tabs and Survival Analysis"
W !!?15,"REMEMBER to name templates beginning with"
W !?24,"ONCOZ for USER defined templates"
W !?17,"verses Package distributed (ONCOS).",!!
W ?17,"To 'RUN' Existing Templates enter '[ONCOS' to begin,",!
W ?17,"to bring up pre-defined tempates for use with Cross-tabs.",!!
Q
;
SEL ;SELECT FILE
K DIR
S DIR(0)="SO^1:ONCOLOGY PRIMARY;2:ONCOLOGY PATIENT;3:ONCOLOGY CONTACT"
S DIR("A")=" Select File"
D ^DIR Q:$D(DIRUT)
S GL="^ONCO(16",DIC=$S(Y=1:GL_"5.5,",Y=2:GL_"0,",1:GL_"5,")
S ONCOF=$P($P(DIR(0),";",Y),":",2)
Q
;
SER ;REQUEST FILE TO SEARCH, THEN SEARCH CRITERIA
D HD,SEL G EX:$D(DIRUT) W !!!,"We will search entries in "_ONCOF_" file...",!!! D EN^DIS G EX
;
IN ;CALL TO CROSS-TAB ROUTINES
K ONCOS("AF") G ST^ONCOSCT0
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",!!
K DIR S DIR("A")=" Continue",DIR(0)="Y",DIR("B")="Y" D ^DIR G EX:Y'=1 D ^ONCOSCT0 G EX
;
EX ;Exit and kill
K DIC,DIR,GL,ONCOF,ONCOEX,ONCON,ONCOX,ONCOX1,ROWDEF,%T,%,%K,%DT,%ZISOS,G,L,O,W Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCOSO 1397 printed Dec 13, 2024@02:25:41 Page 2
ONCOSO ;Hines OIFO/GWB - CALL TO ^DIS FOR FILEMANAGER SEARCH OPTION ;9/3/93
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;
HD ;Header
+1 WRITE @IOF,!!?10,"This option allows you to create 'SEARCH TEMPLATES'",!?10,"which are used in Cross-Tabs and Survival Analysis"
+2 WRITE !!?15,"REMEMBER to name templates beginning with"
+3 WRITE !?24,"ONCOZ for USER defined templates"
+4 WRITE !?17,"verses Package distributed (ONCOS).",!!
+5 WRITE ?17,"To 'RUN' Existing Templates enter '[ONCOS' to begin,",!
+6 WRITE ?17,"to bring up pre-defined tempates for use with Cross-tabs.",!!
+7 QUIT
+8 ;
SEL ;SELECT FILE
+1 KILL DIR
+2 SET DIR(0)="SO^1:ONCOLOGY PRIMARY;2:ONCOLOGY PATIENT;3:ONCOLOGY CONTACT"
+3 SET DIR("A")=" Select File"
+4 DO ^DIR
if $DATA(DIRUT)
QUIT
+5 SET GL="^ONCO(16"
SET DIC=$SELECT(Y=1:GL_"5.5,",Y=2:GL_"0,",1:GL_"5,")
+6 SET ONCOF=$PIECE($PIECE(DIR(0),";",Y),":",2)
+7 QUIT
+8 ;
SER ;REQUEST FILE TO SEARCH, THEN SEARCH CRITERIA
+1 DO HD
DO SEL
if $DATA(DIRUT)
GOTO EX
WRITE !!!,"We will search entries in "_ONCOF_" file...",!!!
DO EN^DIS
GOTO EX
+2 ;
IN ;CALL TO CROSS-TAB ROUTINES
+1 KILL ONCOS("AF")
GOTO ST^ONCOSCT0
+2 WRITE !!!?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",!!
+3 KILL DIR
SET DIR("A")=" Continue"
SET DIR(0)="Y"
SET DIR("B")="Y"
DO ^DIR
if Y'=1
GOTO EX
DO ^ONCOSCT0
GOTO EX
+4 ;
EX ;Exit and kill
+1 KILL DIC,DIR,GL,ONCOF,ONCOEX,ONCON,ONCOX,ONCOX1,ROWDEF,%T,%,%K,%DT,%ZISOS,G,L,O,W
QUIT
