source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCOPAR.m@ 1464

ONCOPAR ;Hines OIFO/GWB - [ANN *..Annual Reports ...] ;03/03/00

 ;;2.11;ONCOLOGY;**1,5,22,25,28,35,39**;Mar 07, 1995

HEAD ;HEADER

 W @IOF,!!!?10,ONCO

 Q

ANN ;Select year

 K DIR S YR=$E(DT,1)+17_$E(DT,2,3)

 W ! S DIR("A")=" Select year",DIR("B")=YR-1,DIR(0)="F^4:4" D ^DIR

 Q:$D(DIRUT)

 G ANN:Y'?1.N,ANN:Y>YR S YR=Y,FR=Y-.1,TO=Y W !! Q

 ;

AAR ;[AAR Annual ACOS Accession Register (80c)]

 D ANN G EX:Y[U

 S BY="@#ACCESSION YEAR,ACC/SEQ NUMBER",FLDS="[ONCO ANNUAL ACCREG80]",L=0

 D PRT655

 Q

 ;

API ;ANNUAL PATIENT INDEX

 S ONCO="ANNUAL Patient Index - ACOS Required (132col)" D HEAD W !! D ANN G EX:$D(DIRUT)

 S BY="#@ACCESSION YEAR,@PATIENT NAME",FLDS="[ONCO ANNUAL PATIENT INDX]",L=0

 D PRT655

 Q

 ;

ACL ;ANNUAL BY CLASS OF CASE PATIENT REGISTER

 S ONCO="ANNUAL Patient List by Class of Case (80c)" D HEAD W !! D ANN G EX:$D(DIRUT)

 S BY="@ACCESSION YEAR,+#@CLASS CATEGORY,+CLASS OF CASE,@PATIENT NAME",FLDS="[ONCO ANNUAL CLASS/PATIENT]",L=0

 D PRT655

 Q

 ;

AST ;ANNUAL ANALYTIC SITE/ICDO-TOPOGRAPHY/ICDO-MORPHOLOGY

 S ONCO="ANNUAL Site/Gp Listing by ICDO-Topography/Histology" D HEAD W !! D ANN G EX:$D(DIRUT)

 I YR<2001 S BY="@ACCESSION YEAR,+@CLASS CATEGORY,#SITE/GP;S1;C20,+PRIMARY SITE;C12,+HISTOLOGY (ICD-O-2);C9"

 I YR>2000 S BY="@ACCESSION YEAR,+@CLASS CATEGORY,#SITE/GP;S1;C20,+PRIMARY SITE;C12,+HISTOLOGY (ICD-O-3);C9"

 S FLDS="[ONCO ANNUAL SITE/ICDT/ICDM]",L=0

 D PRT655

 Q

 ;

APS ;ANNUAL SITE/GP INDEX

 S ONCO="ANNUAL Site/GP Index by ICDO-Topography (132)" D HEAD W !!

 S BY="@ACCESSION YEAR,@CLASS CATEGORY,#@SITE/GP",(FR,TO)="?,,?",FLDS="[ONCO ANNUAL SITE/GP]"

 D PRT655

 Q

 ;

SST ;Site/Stage/Treatment

 S BY="[ONCO ANNUAL SITE/STAGE/TX]" G PRT655

 ;

TST ;ICDO Topography/Stage/Treatment

 S BY="[ONCO ANNUAL ICDO/STAGE/TX]" G PRT655

 ;

HIS ;Histology/Site/Icdo

 S BY="[ONCO ANNUAL HIST/SITE/ICDO]",FLDS="[ONCO ANNUAL PATIENT INFO]" G PRT655

SDX ;STATUS/SITE/GP/DX-AGE GP

 W @IOF,!!!?10,"Annual report - sorted first by Accession year",!?10,"Then by Class Category (Non-analytic/Analytic)"

 W !?10,"Then by Status, Site/GP, and Diagnosis Age Gp.",!!!,?15,"Enter four digit ACCESSION YEAR,",!?15,"for Class category: either 'A'"

 W !?15,"for Analytic, or first to last.",!!!

 S BY="[ONCO ANN/ANAL/STA/SITE/DX AGE]",FLDS="[ONCO PRIMARY INFORMATION]"

 G PRT655

 ;

CPR ;PRINT CUSTOM REPORTS

 W @IOF

 W !,"    You may create custom FileMan reports for the following files."

 W !,"    See the VA FileMan User Manual for detailed instructions."

 D SEL^ONCOSO G EX:$D(DIRUT)

 W !!," CREATE CUSTOM REPORT for "_ONCOF_" file",! S L=1,DIASKHD="" D EN1^DIP G EX

 ;

CDD1 ;[CDD1 Print Condensed DD--Oncology Patient file]

 S DIC="^ONCO(160,",DIFORMAT="CONDENSED" D EN^DID G EX

 ;

CDD2 ;[CDD2 Print Condensed DD--Oncology Primary file]

 S DIC="^ONCO(165.5,",DIFORMAT="CONDENSED" D EN^DID G EX

 ;

PRT60 ;setup for print from #160

 S DIC="^ONCO(160,",L=0 D EN1^DIP G EX

PRT655 ;setup for print from #165.5

 S DIC="^ONCO(165.5,",L=0 D EN1^DIP G EX

PRT65 ;setup for print from #165

 S DIC="^ONCO(165,",L=0 D EN1^DIP G EX

 ;

KIL K DIC,DIR,DN,DXS,BY,DIOT,FR,L,TO,YR,ONCOF,ONCO,ONCON,ONCOX,%DT,F,O,W

 K GL,P,TD,%ZISOS,PD0,TX,ONCO,B,%DTF,T,XX,%T,M,ONCOYR

 Q

EX ;Kill and Exit

 D KIL D ^%ZISC S IOP=ION D ^%ZIS

 Q