source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCOST1.m@ 1693

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

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1ONCOST1 ;WASH ISC/SRR,MLH-STATISTICS TIME FRAME (continued) ;12/15/99
2 ;;2.11;ONCOLOGY;**5,25**;Mar 07, 1995
3 ;
4SCT1 ;CALL 1 TO ONCOSCT
5 ;
6STG ;individual stage group/treatment
7 W @IOF,!!!?10,"This option will print cross-tabs for ALL ANALYTIC",!?10,"cases for TREATMENT by STAGE groups (I,II,III,IV)",!!!
8SZIS K IO("Q") S %ZIS="Q" S:$D(ONCOS("I")) IOP=ONCOS("I") D ^%ZIS I POP S ONCOUT="" G EX
9XG F G="I","II","III","IV" D GP
10 G EX
11GP F ONCOS("C")="GP-"_G_" AJCC SUMMARY STAGE","TREATMENT" D SET,TSK
12 Q
13SET S ONCOS("T")="ONCOS ANNUAL ANAL/STAGE "_G,ONCOS("F")="PRIMARY",ONCOS("R")=ROW,(ONCOS("Y"),ONCOS("N"))="",ONCOS("P")=1,ONCOS("H")=^DD("SITE")_" "_ONCOS("R")_"-"_ONCOS("C")
14 Q
15TSK D:'$D(IO("Q")) ^ONCOSCT I $D(IO("Q")) S ZTRTN="PRINT^ONCOSCT",ZTDESC="ONCOLOGY CROSS-TABS",ZTSAVE("ONCOS*")="",ZTDTH=$H D ^%ZTLOAD K ZTSK
16 Q
17 G EX
18 S ONCOS("C")="GP-"_G_" AJCC SUMMARY STAGE",ONCOS("T")="ONCOS ANNUAL ANAL/STAGE "_G,ONCOS("F")="PRIMARY",ONCOS("P")=1,(ONCOS("Y"),ONCOS("N"))="" G ZIS
19 ;
20 ;
21ZIS W !! K IO("Q") S %ZIS="Q" S:$D(ONCOS("I")) IOP=ONCOS("I") D ^%ZIS I POP S ONCOUT="" G EX
22NQ I '$D(IO("Q")) D ^ONCOSCT G EX
23ZT S ZTRTN="PRINT^ONCOSCT",ZTDESC="ONCOLOGY STATS"
24 S ZTSAVE("ONCOS*")="" D ^%ZTLOAD K ZTSK G EX
25JOB ; SET/RUN TEPLATES,RUN REPORTS
26 D TEM G EX
27TEM S XDA=$O(^DIBT("F165.5","ONCOS ANNUAL ANALYTIC",0)) Q:XDA'>0 K ^DIBT(XDA,1)
28G F G=0,"I","II","III","IV","U","NA" S XD0=$O(^DIBT("F165.5","ONCOS ANNUAL ANAL/STAGE "_G,0)) Q:XD0'>0 K ^DIBT(XD0,1) S XD(G)=XD0
29 S YR=ONCOYR,D0=0 F S D0=$O(^ONCO(165.5,"AY",YR,D0)) Q:D0'>0 I $$DIV^ONCFUNC(D0)=DUZ(2),$P(^ONCO(165.5,D0,0),U,20)=1 S ^DIBT(XDA,1,D0)="",G=$P($G(^ONCO(165.5,D0,2)),U,28) I G'="" S ^DIBT(XD(G),1,D0)=""
30 S $P(^DIBT(XDA,0),U,2)=DT F G=0,"I","II","III","IV","U","NA" S $P(^DIBT(XD(G),0),U,2)=DT
31 Q
32 ;
33EX D ^%ZISC Q ;EXIT
Note: See TracBrowser for help on using the repository browser.