source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCOSCT0.m@ 1259

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

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1ONCOSCT0 ;WASH ISC/SRR-SETUP FOR CROSS-TABS ;9/22/92 15:55
2 ;;2.11;ONCOLOGY;;Mar 07, 1995
3 ;
4 ;ask all questions to enable quing report
5 ;GET FILE # AND NAME
6ST ;ENTRY CROSS TAB ROUTINES-DEFINITIONS
7 W @IOF,!?25,"CROSS TAB ROUTINES"
8 W !!!?15,"CREATE your own Cross-Tab Reports!!",!!
91 W ?15,"1 - Select File (usually Primary)",!
10 W ?15,"2 - Select a field for the ROW",!
11 W ?15,"3 - Select a field for the Column",!
12 W ?15,"4 - Optional: choose Column cutpoints ",!
13 W ?15,"5 - Choose a SEARCH template to select cases",!!!
14 W ?20,"REMEMBER - type a '?' for HELP!!"
15FIL ;SELECT FILE
16 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="")
17 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")
18 S FNUM=$S(Y=1:"165.5",Y=2:160,1:165),GLB=^DIC(FNUM,0,"GL"),ONCOS("FI")=FNUM_U_OF_GLB
19R ;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
20SER ;REQUEST FILE TO SEARCH, THEN SEARCH CRITERIA
21 W !!!?5,"We will build Crosstabs on entries in "_OF_" file...",!!
22 ;
23TEM ;TEMPLATE LOOKUP
24 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
25ALL ;ALL CASES
26 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
27GET ;GET TEMPLATE
28 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
29 W !!,?5,"REMINDER: Run Define Search Criteria option",!
30 W ?5,"to be sure selected entries are up-to-date!!",!!
31 S DIR("A")="Continue ",DIR("B")="Y",DIR(0)="Y" D ^DIR G EX:Y'=1
32 D PRINT^ONCOSCT G EX
33EX ;EXIT
34 K ONCOS,DIR,ONCOEX,ROWDEF
35 Q
36HLP ;HELP SELECTING FILES
37 W !!?10,"The Primary File contains the 'cancer case' data.",!
38 W ?10,"The Oncology Patient File contains demographic data,",!?14,"Patient history, and Followup History.",!
39 W ?10,"The Contact File contains the contacts for all patients.",!!
40 Q
41 ;ONCOSCT0
Note: See TracBrowser for help on using the repository browser.