- 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 Mar 13, 2025@21:27:40 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
