39 lines
1.2 KiB
Mathematica
39 lines
1.2 KiB
Mathematica
ONCOPMP ;Hines OIFO/GWB - PRINT MULTIPLE ABSTRACTS ;12/16/99
|
|
;;2.11;ONCOLOGY;**13,23,25,39,46,47**;Mar 07, 1995;Build 19
|
|
;
|
|
PRT1 ;QA ABSTRACT
|
|
S FLDS="[ONCQA]",(FR,TO)=NUMBER,BY="@NUMBER",DIC="^ONCO(165.5,",L=0
|
|
D EN1^DIP
|
|
Q
|
|
;
|
|
PRT2 ;SET VARIABLES AND @PRINT
|
|
K DXS S DIOEND="S DN=1,D0=ONCODA F XI=50:1:58 K DXS D @(""^ONCOY""_XI)"
|
|
S FLDS="[ONCOY49]",FR=NUMBER,TO=NUMBER,BY="@NUMBER",DIC="^ONCO(165.5,",L=0 D EN1^DIP
|
|
Q
|
|
PRT3 ;Report 3
|
|
S ONCOIEN=ONCODA D MULT^ONCOPA1
|
|
; K DXS S DIOEND="S DN=1,D0=ONCODA F XI=2:1:11 K DXS D @(""^ONCOX""_XI) K DXS"
|
|
; S FLDS="[ONCOX1]",FR=NUMBER,TO=NUMBER,BY="@NUMBER",DIC="^ONCO(165.5,",L=0 D EN1^DIP
|
|
Q
|
|
;
|
|
PRT4 ;Report 4
|
|
N XD0
|
|
S FLDS="[ONCO XINCIDENCE RPRT]",(FR,TO)=NUMBER,BY="@NUMBER",DIC="^ONCO(165.5,",L=0 D EN1^DIP
|
|
Q
|
|
;
|
|
;QA FORM
|
|
8 S DIWF=$S($G(ESPD)=1:"^ONCO(160.2,9,1,",1:"^ONCO(160.2,8,1,")
|
|
S DIWF(1)="165.5",BY="NUMBER",(FR,TO)=ONCODA S TMPIO=IO W !! D EN2^DIWF S IOP=ONCOION D ^%ZIS
|
|
Q
|
|
;
|
|
CK ;Check entry TO PREVENT DELETION
|
|
I DUZ=231,DUZ(2)=10688 Q ; package developer can kill
|
|
I DA>3 K ^ONCO(160.2,"B",$E(X,1,30),DA) Q
|
|
W !!?5,"CANNOT DELETE THIS ENTRY" ;TO prevent deletion of exported entries.
|
|
H G ^XUSCLEAN ;HALT
|
|
Q
|
|
EX ;EXIT
|
|
K DIC,DIR,ONCOXD0,ONCOXD1,ONCOS,DIOEND,FR,TO,BY,L,^TMP("ONCO",$J)
|
|
D ^%ZISC
|
|
Q
|