42 lines
2.2 KiB
Mathematica
42 lines
2.2 KiB
Mathematica
|
ONCOSCT0 ;WASH ISC/SRR-SETUP FOR CROSS-TABS ;9/22/92 15:55
|
||
|
|
;;2.11;ONCOLOGY;;Mar 07, 1995
|
||
|
|
;
|
||
|
|
;ask all questions to enable quing report
|
||
|
|
;GET FILE # AND NAME
|
||
|
|
ST ;ENTRY CROSS TAB ROUTINES-DEFINITIONS
|
||
|
|
W @IOF,!?25,"CROSS TAB ROUTINES"
|
||
|
|
W !!!?15,"CREATE your own Cross-Tab Reports!!",!!
|
||
|
|
1 W ?15,"1 - Select File (usually Primary)",!
|
||
|
|
W ?15,"2 - Select a field for the ROW",!
|
||
|
|
W ?15,"3 - Select a field for the Column",!
|
||
|
|
W ?15,"4 - Optional: choose Column cutpoints ",!
|
||
|
|
W ?15,"5 - Choose a SEARCH template to select cases",!!!
|
||
|
|
W ?20,"REMEMBER - type a '?' for HELP!!"
|
||
|
|
FIL ;SELECT FILE
|
||
|
|
K DIR,DIC S DIR(0)="S^1:PRIMARY;2:PATIENT;3:CONTACT",DIR("A")=" Select File to Search",DIR("B")=1,DIR("?")="^D HLP^ONCOSCT0" D ^DIR G EX:Y["^"!(Y="")
|
||
|
|
S (OF,ONCOS("F"))="ONCOLOGY "_$P($P(DIR(0),";",Y),":",2),ONCOS("FI")=$S(Y=1:165.5,2:160,1:165)_U_ONCOS("F")
|
||
|
|
S FNUM=$S(Y=1:"165.5",Y=2:160,1:165),GLB=^DIC(FNUM,0,"GL"),ONCOS("FI")=FNUM_U_OF_GLB
|
||
|
|
R ;S DIC("A")=" Select Row (field for Cross Tabs) ",DIC(0)="AEQZ",DIC="^DD("_FNUM_"," D ^DIC G EX:Y>0 S ONCOS("R")=+Y
|
||
|
|
SER ;REQUEST FILE TO SEARCH, THEN SEARCH CRITERIA
|
||
|
|
W !!!?5,"We will build Crosstabs on entries in "_OF_" file...",!!
|
||
|
|
;
|
||
|
|
TEM ;TEMPLATE LOOKUP
|
||
|
|
K DIR,DIC S DIR("A")=" Select Search template to filter cases",DIR("B")="Yes",DIR(0)="Y" D ^DIR G EX:Y="^"!(Y=""),GET:Y,ALL
|
||
|
|
ALL ;ALL CASES
|
||
|
|
W ! S DIR("A")=" Cases will cover entire registry - OK",DIR(0)="Y",DIR("B")="No" D ^DIR G EX:Y["^"!(Y=""),GET:Y=0 S ONCOS("T")="ALL" D PRINT^ONCOSCT G EX
|
||
|
|
GET ;GET TEMPLATE
|
||
|
|
W ! K DIC,DIR S DIC("A")=" Select Search Template (Type ONCOS for list): ",DIC(0)="AEQZ",DIC="^DIBT(",D="F"_FNUM G EX:D="F" D IX^DIC G EX:Y="^",EX:Y=-1 S ONCOS("T")=Y
|
||
|
|
W !!,?5,"REMINDER: Run Define Search Criteria option",!
|
||
|
|
W ?5,"to be sure selected entries are up-to-date!!",!!
|
||
|
|
S DIR("A")="Continue ",DIR("B")="Y",DIR(0)="Y" D ^DIR G EX:Y'=1
|
||
|
|
D PRINT^ONCOSCT G EX
|
||
|
|
EX ;EXIT
|
||
|
|
K ONCOS,DIR,ONCOEX,ROWDEF
|
||
|
|
Q
|
||
|
|
HLP ;HELP SELECTING FILES
|
||
|
|
W !!?10,"The Primary File contains the 'cancer case' data.",!
|
||
|
|
W ?10,"The Oncology Patient File contains demographic data,",!?14,"Patient history, and Followup History.",!
|
||
|
|
W ?10,"The Contact File contains the contacts for all patients.",!!
|
||
|
|
Q
|
||
|
|
;ONCOSCT0
|