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

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

initial load of WorldVistAEHR

File size: 3.1 KB
Line 
1ONCOPAR ;Hines OIFO/GWB - [ANN *..Annual Reports ...] ;03/03/00
2 ;;2.11;ONCOLOGY;**1,5,22,25,28,35,39**;Mar 07, 1995
3HEAD ;HEADER
4 W @IOF,!!!?10,ONCO
5 Q
6ANN ;Select year
7 K DIR S YR=$E(DT,1)+17_$E(DT,2,3)
8 W ! S DIR("A")=" Select year",DIR("B")=YR-1,DIR(0)="F^4:4" D ^DIR
9 Q:$D(DIRUT)
10 G ANN:Y'?1.N,ANN:Y>YR S YR=Y,FR=Y-.1,TO=Y W !! Q
11 ;
12AAR ;[AAR Annual ACOS Accession Register (80c)]
13 D ANN G EX:Y[U
14 S BY="@#ACCESSION YEAR,ACC/SEQ NUMBER",FLDS="[ONCO ANNUAL ACCREG80]",L=0
15 D PRT655
16 Q
17 ;
18API ;ANNUAL PATIENT INDEX
19 S ONCO="ANNUAL Patient Index - ACOS Required (132col)" D HEAD W !! D ANN G EX:$D(DIRUT)
20 S BY="#@ACCESSION YEAR,@PATIENT NAME",FLDS="[ONCO ANNUAL PATIENT INDX]",L=0
21 D PRT655
22 Q
23 ;
24ACL ;ANNUAL BY CLASS OF CASE PATIENT REGISTER
25 S ONCO="ANNUAL Patient List by Class of Case (80c)" D HEAD W !! D ANN G EX:$D(DIRUT)
26 S BY="@ACCESSION YEAR,+#@CLASS CATEGORY,+CLASS OF CASE,@PATIENT NAME",FLDS="[ONCO ANNUAL CLASS/PATIENT]",L=0
27 D PRT655
28 Q
29 ;
30AST ;ANNUAL ANALYTIC SITE/ICDO-TOPOGRAPHY/ICDO-MORPHOLOGY
31 S ONCO="ANNUAL Site/Gp Listing by ICDO-Topography/Histology" D HEAD W !! D ANN G EX:$D(DIRUT)
32 I YR<2001 S BY="@ACCESSION YEAR,+@CLASS CATEGORY,#SITE/GP;S1;C20,+PRIMARY SITE;C12,+HISTOLOGY (ICD-O-2);C9"
33 I YR>2000 S BY="@ACCESSION YEAR,+@CLASS CATEGORY,#SITE/GP;S1;C20,+PRIMARY SITE;C12,+HISTOLOGY (ICD-O-3);C9"
34 S FLDS="[ONCO ANNUAL SITE/ICDT/ICDM]",L=0
35 D PRT655
36 Q
37 ;
38APS ;ANNUAL SITE/GP INDEX
39 S ONCO="ANNUAL Site/GP Index by ICDO-Topography (132)" D HEAD W !!
40 S BY="@ACCESSION YEAR,@CLASS CATEGORY,#@SITE/GP",(FR,TO)="?,,?",FLDS="[ONCO ANNUAL SITE/GP]"
41 D PRT655
42 Q
43 ;
44SST ;Site/Stage/Treatment
45 S BY="[ONCO ANNUAL SITE/STAGE/TX]" G PRT655
46 ;
47TST ;ICDO Topography/Stage/Treatment
48 S BY="[ONCO ANNUAL ICDO/STAGE/TX]" G PRT655
49 ;
50HIS ;Histology/Site/Icdo
51 S BY="[ONCO ANNUAL HIST/SITE/ICDO]",FLDS="[ONCO ANNUAL PATIENT INFO]" G PRT655
52SDX ;STATUS/SITE/GP/DX-AGE GP
53 W @IOF,!!!?10,"Annual report - sorted first by Accession year",!?10,"Then by Class Category (Non-analytic/Analytic)"
54 W !?10,"Then by Status, Site/GP, and Diagnosis Age Gp.",!!!,?15,"Enter four digit ACCESSION YEAR,",!?15,"for Class category: either 'A'"
55 W !?15,"for Analytic, or first to last.",!!!
56 S BY="[ONCO ANN/ANAL/STA/SITE/DX AGE]",FLDS="[ONCO PRIMARY INFORMATION]"
57 G PRT655
58 ;
59CPR ;PRINT CUSTOM REPORTS
60 W @IOF
61 W !," You may create custom FileMan reports for the following files."
62 W !," See the VA FileMan User Manual for detailed instructions."
63 D SEL^ONCOSO G EX:$D(DIRUT)
64 W !!," CREATE CUSTOM REPORT for "_ONCOF_" file",! S L=1,DIASKHD="" D EN1^DIP G EX
65 ;
66CDD1 ;[CDD1 Print Condensed DD--Oncology Patient file]
67 S DIC="^ONCO(160,",DIFORMAT="CONDENSED" D EN^DID G EX
68 ;
69CDD2 ;[CDD2 Print Condensed DD--Oncology Primary file]
70 S DIC="^ONCO(165.5,",DIFORMAT="CONDENSED" D EN^DID G EX
71 ;
72PRT60 ;setup for print from #160
73 S DIC="^ONCO(160,",L=0 D EN1^DIP G EX
74PRT655 ;setup for print from #165.5
75 S DIC="^ONCO(165.5,",L=0 D EN1^DIP G EX
76PRT65 ;setup for print from #165
77 S DIC="^ONCO(165,",L=0 D EN1^DIP G EX
78 ;
79KIL K DIC,DIR,DN,DXS,BY,DIOT,FR,L,TO,YR,ONCOF,ONCO,ONCON,ONCOX,%DT,F,O,W
80 K GL,P,TD,%ZISOS,PD0,TX,ONCO,B,%DTF,T,XX,%T,M,ONCOYR
81 Q
82EX ;Kill and Exit
83 D KIL D ^%ZISC S IOP=ION D ^%ZIS
84 Q
Note: See TracBrowser for help on using the repository browser.