Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: ONCEECA

ONCEECA.m

Go to the documentation of this file.

ONCEECA ;Hines OIFO/GWB - Enter/edit CHEMOTHERPEUTIC DRUGS (164.18) file ;11/3/08

 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

EECA W ! S (DIC,DIE)="^ONCO(164.18,",DIC(0)="AELMQZ",DLAYGO=164.18 D ^DIC

 I Y=-1 G EXIT

 S DA=+Y

 W ! S DR=".01;1;2" D ^DIE

 G EECA

EXIT ;Exit routine

 K DA,DIC,DIE,DLAYGO,DR,Y

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCEECA   320     printed  Apr 09, 2024@21:26:42                                                                                                                                                                                                      Page 2

ONCEECA   ;Hines OIFO/GWB - Enter/edit CHEMOTHERPEUTIC DRUGS (164.18) file ;11/3/08

 +1       ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 +2       ;

EECA       WRITE !

           SET (DIC,DIE)="^ONCO(164.18,"

           SET DIC(0)="AELMQZ"

           SET DLAYGO=164.18

           DO ^DIC

 +1        IF Y=-1

               GOTO EXIT

 +2        SET DA=+Y

 +3        WRITE !

           SET DR=".01;1;2"

           DO ^DIE

 +4        GOTO EECA

 +5       ;

EXIT      ;Exit routine

 +1        KILL DA,DIC,DIE,DLAYGO,DR,Y