source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCOPMA.m@ 789

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

initial load of WorldVistAEHR
File size: 3.6 KB
RevLine 
[613]1ONCOPMA ;Hines OIFO/GWB - PRINT MULTIPLE ABSTRACTS ;12/13/99
2 ;;2.11;ONCOLOGY;**6,25,44,46,47**;Mar 07, 1995;Build 19
3EN ;Select Report Type
4 K DIR S DIR("A")=" Select Report"
5 S DIR(0)="SO^1:QA Abstract;2:Extended Abstract (80c);3:Complete Abstract (132c);4:Incidence Report;5:Print PCE Data"
6 D ^DIR
7 G EX:Y[U,EX:Y=""
8 I Y'=5 S PRINT="PRT"_Y_"^ONCOPMP"
9 K DIR
10 ;
11OP ;Select option
12 I Y=5 D PCEPRT2^ONCOGEN Q
13 S DIR(0)="SO^1:All abstracts, One PATIENT;2:All abstracts, One SITE/GP;3:All abstracts, One ACCESSION YEAR, One SITE/GP;4:All abstracts, One ACCESSION YEAR;5:Complete Abstracts by DATE DX;6:QA - 10% Complete abstracts"
14 S DIR("A")=" Select Option"
15 W ! D ^DIR G EX:Y[U,EX:Y=""
16 G @Y:Y<4,Y^ONCOPMB
17 ;
181 ;[MA Print QA/Multiple Abstracts - 1 All abstracts, One PATIENT]
19 W ! S DIC("A")=" Select PATIENT: "
20 S DIC="^ONCO(160,",DIC(0)="AEMQ" D ^DIC G EX:Y<0 S ONCOXD1=+Y
21 I PRINT["PRT3" D ESPD^ONCOGEN I ESPD[U K ESPD Q
22 K IO("Q") S %ZIS="Q" W ! D ^%ZIS I POP S ONCOUT="" G EX
23 S ONCOION=ION,ONCIOST=IOST
24 I '$D(IO("Q")) D TK1^ONCOPMA G EX
25 S ZTRTN="TK1^ONCOPMA"
26 S ZTSAVE("ONCOION")=""
27 S ZTSAVE("ONCIOST")=""
28 S ZTSAVE("ONCOXD1")=""
29 S ZTSAVE("PRINT")=""
30 S ZTSAVE("ESPD")=""
31 S ZTDESC="All abstracts, One PATIENT"
32 D ^%ZTLOAD
33 G EX
34 ;
35TK1 S ONCOXD0=0
36 F S ONCOXD0=$O(^ONCO(165.5,"C",ONCOXD1,ONCOXD0)) Q:ONCOXD0'>0 I $$DIV^ONCFUNC(ONCOXD0)=DUZ(2) D I ONCIOST?1"C".E W ! K DIR S DIR(0)="E",DIR("A")="Enter RETURN to go to next abstract or '^' to exit" D ^DIR Q:'Y
37 .S (NUMBER,ONCODA)=ONCOXD0
38 .S IOP=ONCOION
39 .W @IOF
40 .D @PRINT
41 .I PRINT["PRT1" D
42 ..S IOP=ONCOION
43 ..D 8^ONCOPMP
44 G EX
45 ;
462 ;[MA Print QA/Multiple Abstracts - 2 All Abstracts, One SITE/GP]
47 W ! S DIC("A")=" Select SITE/GP: "
48 S DIC="^ONCO(164.2,",DIC(0)="AEQM" D ^DIC G EX:Y<0 S ONCOXD1=+Y
49 I PRINT["PRT3" D ESPD^ONCOGEN I ESPD[U K ESPD Q
50 K IO("Q") S %ZIS="Q" W ! D ^%ZIS I POP S ONCOOUT="" G EX
51 S ONCOION=ION,ONCIOST=IOST
52 I '$D(IO("Q")) D TK2^ONCOPMA G EX
53 S ZTRTN="TK2^ONCOPMA"
54 S ZTSAVE("ONCOXD1")=""
55 S ZTSAVE("ONCOION")=""
56 S ZTSAVE("ONCIOST")=""
57 S ZTSAVE("PRINT")=""
58 S ZTSAVE("ESPD")=""
59 S ZTDESC="All Abstracts, One SITE/GP"
60 D ^%ZTLOAD G EX
61 ;
62TK2 S ONCOXD0=0
63 F S ONCOXD0=$O(^ONCO(165.5,"B",ONCOXD1,ONCOXD0)) Q:ONCOXD0'>0 I $$DIV^ONCFUNC(ONCOXD0)=DUZ(2) D I ONCIOST?1"C".E W ! K DIR S DIR(0)="E",DIR("A")="Enter RETURN to go to next abstract or '^' to exit" D ^DIR Q:'Y W @IOF
64 .S (NUMBER,ONCODA)=ONCOXD0
65 .S IOP=ONCOION
66 .D @PRINT
67 .I PRINT["PRT1" D
68 ..S IOP=ONCOION
69 ..D 8^ONCOPMP
70 G EX
71 ;
723 ;[MA Print QA/Multiple Abstracts - 3 All abstracts, One ACCESSION YEAR, One SITE/GP]
73 S Y=3 D Y^ONCOST G EX:Y[U
74 S DIC("A")=" Select SITE/GP: "
75 S DIC(0)="AEQZ",DIC="^ONCO(164.2," D ^DIC G EX:Y<0,EX:Y=U S ONCOXD1=+Y
76 I PRINT["PRT3" D ESPD^ONCOGEN I ESPD[U K ESPD Q
77 K IO("Q") S %ZIS="Q" W ! D ^%ZIS I POP S ONCOUT="" G EX
78 S ONCOION=ION,ONCIOST=IOST
79 I '$D(IO("Q")) D TK3^ONCOPMA G EX
80 S ZTRTN="TK3^ONCOPMA"
81 S ZTSAVE("ONCOXD1")=""
82 S ZTSAVE("ONCOION")=""
83 S ZTSAVE("ONCIOST")=""
84 S ZTSAVE("PRINT")=""
85 S ZTSAVE("ONCOS*")=""
86 S ZTSAVE("ESPD")=""
87 S ZTDESC="All abstracts, One ACCESSION YEAR, One SITE/GP"
88 D ^%ZTLOAD G EX
89 ;
90TK3 N ONCOXD0 S ONCOXD0=0
91 N ONCOSYR S ONCOSYR=+ONCOS("YR")
92 F S ONCOXD0=$O(^ONCO(165.5,"AY",ONCOSYR,ONCOXD0)) Q:ONCOXD0'>0 I $$DIV^ONCFUNC(ONCOXD0)=DUZ(2),$P(^ONCO(165.5,ONCOXD0,0),U)=ONCOXD1 D I ONCIOST?1"C".E W ! D ^DIR Q:'Y W @IOF
93 .S (NUMBER,ONCODA)=ONCOXD0
94 .S IOP=ONCOION
95 .D @PRINT
96 .I ONCIOST?1"C".E K DIR S DIR(0)="E",DIR("A")="Enter RETURN to go to next abstract or '^' to exit"
97 .I PRINT["PRT1" D
98 ..S IOP=ONCOION
99 ..D 8^ONCOPMP
100 G EX
101 ;
102EX ;EXIT
103 K ONCOION,ONCIOST,ONCOXD0,ONCOXD1,ONCODA,ONCOS
104 K DIOEND,FR,TO,BY,L,^TMP("ONCO",$J)
105 K DIC,DIR,B,NUMBER,O2,OG,OP,OT,OS,P,PRINT,TX,TY
106 D ^%ZISC
107 Q
Note: See TracBrowser for help on using the repository browser.