| 1 | ONCOSCT0 ;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
|
|---|
| 6 | ST ;ENTRY CROSS TAB ROUTINES-DEFINITIONS
|
|---|
| 7 | W @IOF,!?25,"CROSS TAB ROUTINES"
|
|---|
| 8 | W !!!?15,"CREATE your own Cross-Tab Reports!!",!!
|
|---|
| 9 | 1 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!!"
|
|---|
| 15 | FIL ;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
|
|---|
| 19 | 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
|
|---|
| 20 | SER ;REQUEST FILE TO SEARCH, THEN SEARCH CRITERIA
|
|---|
| 21 | W !!!?5,"We will build Crosstabs on entries in "_OF_" file...",!!
|
|---|
| 22 | ;
|
|---|
| 23 | TEM ;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
|
|---|
| 25 | ALL ;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
|
|---|
| 27 | GET ;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
|
|---|
| 33 | EX ;EXIT
|
|---|
| 34 | K ONCOS,DIR,ONCOEX,ROWDEF
|
|---|
| 35 | Q
|
|---|
| 36 | HLP ;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
|
|---|
