| [613] | 1 | ONCOPMP ;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 | ;
|
|---|
| 4 | PRT1 ;QA ABSTRACT
|
|---|
| 5 | S FLDS="[ONCQA]",(FR,TO)=NUMBER,BY="@NUMBER",DIC="^ONCO(165.5,",L=0
|
|---|
| 6 | D EN1^DIP
|
|---|
| 7 | Q
|
|---|
| 8 | ;
|
|---|
| 9 | PRT2 ;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
|
|---|
| 13 | PRT3 ;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 | ;
|
|---|
| 19 | PRT4 ;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
|
|---|
| 25 | 8 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 | ;
|
|---|
| 29 | CK ;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.
|
|---|
| 33 | H G ^XUSCLEAN ;HALT
|
|---|
| 34 | Q
|
|---|
| 35 | EX ;EXIT
|
|---|
| 36 | K DIC,DIR,ONCOXD0,ONCOXD1,ONCOS,DIOEND,FR,TO,BY,L,^TMP("ONCO",$J)
|
|---|
| 37 | D ^%ZISC
|
|---|
| 38 | Q
|
|---|
