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 Nov 22, 2024@17:32:56 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
