13 lines
427 B
Mathematica
13 lines
427 B
Mathematica
RMPR115P ;VMP/RB - DELETE FIELD# 19 FOR FILE #660 ;11/7/05
|
|
;;3.0;Prosthetics;**115**;06/20/05
|
|
;;
|
|
;1. Post install to delete in ^DIC(19,int#,20), Entry Action for menu RMPR CLERK
|
|
;
|
|
FIX1 ;Null Entry Action field for menu RMPR CLERK
|
|
S OIEN=0,SRCH="R"
|
|
F S SRCH=$O(^DIC(19,"B",SRCH)) I SRCH="RMPR CLERK" S OIEN=$O(^DIC(19,"B",SRCH,OIEN)) Q
|
|
I OIEN D
|
|
. S DR="20////@",DIE="^DIC(19,",DA=OIEN D ^DIE
|
|
K OIEN,SRCH,DR,DIE,DA
|
|
Q
|