108 lines
3.6 KiB
Mathematica
108 lines
3.6 KiB
Mathematica
ONCOPMA ;Hines OIFO/GWB - PRINT MULTIPLE ABSTRACTS ;12/13/99
|
|
;;2.11;ONCOLOGY;**6,25,44,46,47**;Mar 07, 1995;Build 19
|
|
EN ;Select Report Type
|
|
K DIR S DIR("A")=" Select Report"
|
|
S DIR(0)="SO^1:QA Abstract;2:Extended Abstract (80c);3:Complete Abstract (132c);4:Incidence Report;5:Print PCE Data"
|
|
D ^DIR
|
|
G EX:Y[U,EX:Y=""
|
|
I Y'=5 S PRINT="PRT"_Y_"^ONCOPMP"
|
|
K DIR
|
|
;
|
|
OP ;Select option
|
|
I Y=5 D PCEPRT2^ONCOGEN Q
|
|
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"
|
|
S DIR("A")=" Select Option"
|
|
W ! D ^DIR G EX:Y[U,EX:Y=""
|
|
G @Y:Y<4,Y^ONCOPMB
|
|
;
|
|
1 ;[MA Print QA/Multiple Abstracts - 1 All abstracts, One PATIENT]
|
|
W ! S DIC("A")=" Select PATIENT: "
|
|
S DIC="^ONCO(160,",DIC(0)="AEMQ" D ^DIC G EX:Y<0 S ONCOXD1=+Y
|
|
I PRINT["PRT3" D ESPD^ONCOGEN I ESPD[U K ESPD Q
|
|
K IO("Q") S %ZIS="Q" W ! D ^%ZIS I POP S ONCOUT="" G EX
|
|
S ONCOION=ION,ONCIOST=IOST
|
|
I '$D(IO("Q")) D TK1^ONCOPMA G EX
|
|
S ZTRTN="TK1^ONCOPMA"
|
|
S ZTSAVE("ONCOION")=""
|
|
S ZTSAVE("ONCIOST")=""
|
|
S ZTSAVE("ONCOXD1")=""
|
|
S ZTSAVE("PRINT")=""
|
|
S ZTSAVE("ESPD")=""
|
|
S ZTDESC="All abstracts, One PATIENT"
|
|
D ^%ZTLOAD
|
|
G EX
|
|
;
|
|
TK1 S ONCOXD0=0
|
|
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
|
|
.S (NUMBER,ONCODA)=ONCOXD0
|
|
.S IOP=ONCOION
|
|
.W @IOF
|
|
.D @PRINT
|
|
.I PRINT["PRT1" D
|
|
..S IOP=ONCOION
|
|
..D 8^ONCOPMP
|
|
G EX
|
|
;
|
|
2 ;[MA Print QA/Multiple Abstracts - 2 All Abstracts, One SITE/GP]
|
|
W ! S DIC("A")=" Select SITE/GP: "
|
|
S DIC="^ONCO(164.2,",DIC(0)="AEQM" D ^DIC G EX:Y<0 S ONCOXD1=+Y
|
|
I PRINT["PRT3" D ESPD^ONCOGEN I ESPD[U K ESPD Q
|
|
K IO("Q") S %ZIS="Q" W ! D ^%ZIS I POP S ONCOOUT="" G EX
|
|
S ONCOION=ION,ONCIOST=IOST
|
|
I '$D(IO("Q")) D TK2^ONCOPMA G EX
|
|
S ZTRTN="TK2^ONCOPMA"
|
|
S ZTSAVE("ONCOXD1")=""
|
|
S ZTSAVE("ONCOION")=""
|
|
S ZTSAVE("ONCIOST")=""
|
|
S ZTSAVE("PRINT")=""
|
|
S ZTSAVE("ESPD")=""
|
|
S ZTDESC="All Abstracts, One SITE/GP"
|
|
D ^%ZTLOAD G EX
|
|
;
|
|
TK2 S ONCOXD0=0
|
|
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
|
|
.S (NUMBER,ONCODA)=ONCOXD0
|
|
.S IOP=ONCOION
|
|
.D @PRINT
|
|
.I PRINT["PRT1" D
|
|
..S IOP=ONCOION
|
|
..D 8^ONCOPMP
|
|
G EX
|
|
;
|
|
3 ;[MA Print QA/Multiple Abstracts - 3 All abstracts, One ACCESSION YEAR, One SITE/GP]
|
|
S Y=3 D Y^ONCOST G EX:Y[U
|
|
S DIC("A")=" Select SITE/GP: "
|
|
S DIC(0)="AEQZ",DIC="^ONCO(164.2," D ^DIC G EX:Y<0,EX:Y=U S ONCOXD1=+Y
|
|
I PRINT["PRT3" D ESPD^ONCOGEN I ESPD[U K ESPD Q
|
|
K IO("Q") S %ZIS="Q" W ! D ^%ZIS I POP S ONCOUT="" G EX
|
|
S ONCOION=ION,ONCIOST=IOST
|
|
I '$D(IO("Q")) D TK3^ONCOPMA G EX
|
|
S ZTRTN="TK3^ONCOPMA"
|
|
S ZTSAVE("ONCOXD1")=""
|
|
S ZTSAVE("ONCOION")=""
|
|
S ZTSAVE("ONCIOST")=""
|
|
S ZTSAVE("PRINT")=""
|
|
S ZTSAVE("ONCOS*")=""
|
|
S ZTSAVE("ESPD")=""
|
|
S ZTDESC="All abstracts, One ACCESSION YEAR, One SITE/GP"
|
|
D ^%ZTLOAD G EX
|
|
;
|
|
TK3 N ONCOXD0 S ONCOXD0=0
|
|
N ONCOSYR S ONCOSYR=+ONCOS("YR")
|
|
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
|
|
.S (NUMBER,ONCODA)=ONCOXD0
|
|
.S IOP=ONCOION
|
|
.D @PRINT
|
|
.I ONCIOST?1"C".E K DIR S DIR(0)="E",DIR("A")="Enter RETURN to go to next abstract or '^' to exit"
|
|
.I PRINT["PRT1" D
|
|
..S IOP=ONCOION
|
|
..D 8^ONCOPMP
|
|
G EX
|
|
;
|
|
EX ;EXIT
|
|
K ONCOION,ONCIOST,ONCOXD0,ONCOXD1,ONCODA,ONCOS
|
|
K DIOEND,FR,TO,BY,L,^TMP("ONCO",$J)
|
|
K DIC,DIR,B,NUMBER,O2,OG,OP,OT,OS,P,PRINT,TX,TY
|
|
D ^%ZISC
|
|
Q
|