source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCOPMP.m@ 1259

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1ONCOPMP ;Hines OIFO/GWB - PRINT MULTIPLE ABSTRACTS ;12/16/99
2 ;;2.11;ONCOLOGY;**13,23,25,39,46,47**;Mar 07, 1995;Build 19
3 ;
4PRT1 ;QA ABSTRACT
5 S FLDS="[ONCQA]",(FR,TO)=NUMBER,BY="@NUMBER",DIC="^ONCO(165.5,",L=0
6 D EN1^DIP
7 Q
8 ;
9PRT2 ;SET VARIABLES AND @PRINT
10 K DXS S DIOEND="S DN=1,D0=ONCODA F XI=50:1:58 K DXS D @(""^ONCOY""_XI)"
11 S FLDS="[ONCOY49]",FR=NUMBER,TO=NUMBER,BY="@NUMBER",DIC="^ONCO(165.5,",L=0 D EN1^DIP
12 Q
13PRT3 ;Report 3
14 S ONCOIEN=ONCODA D MULT^ONCOPA1
15 ; K DXS S DIOEND="S DN=1,D0=ONCODA F XI=2:1:11 K DXS D @(""^ONCOX""_XI) K DXS"
16 ; S FLDS="[ONCOX1]",FR=NUMBER,TO=NUMBER,BY="@NUMBER",DIC="^ONCO(165.5,",L=0 D EN1^DIP
17 Q
18 ;
19PRT4 ;Report 4
20 N XD0
21 S FLDS="[ONCO XINCIDENCE RPRT]",(FR,TO)=NUMBER,BY="@NUMBER",DIC="^ONCO(165.5,",L=0 D EN1^DIP
22 Q
23 ;
24 ;QA FORM
258 S DIWF=$S($G(ESPD)=1:"^ONCO(160.2,9,1,",1:"^ONCO(160.2,8,1,")
26 S DIWF(1)="165.5",BY="NUMBER",(FR,TO)=ONCODA S TMPIO=IO W !! D EN2^DIWF S IOP=ONCOION D ^%ZIS
27 Q
28 ;
29CK ;Check entry TO PREVENT DELETION
30 I DUZ=231,DUZ(2)=10688 Q ; package developer can kill
31 I DA>3 K ^ONCO(160.2,"B",$E(X,1,30),DA) Q
32 W !!?5,"CANNOT DELETE THIS ENTRY" ;TO prevent deletion of exported entries.
33H G ^XUSCLEAN ;HALT
34 Q
35EX ;EXIT
36 K DIC,DIR,ONCOXD0,ONCOXD1,ONCOS,DIOEND,FR,TO,BY,L,^TMP("ONCO",$J)
37 D ^%ZISC
38 Q
Note: See TracBrowser for help on using the repository browser.