ONCOSO.m

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 ---ONCOSO   1397     printed  Apr 09, 2024@21:30:21                                                                                                                                                                                                      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