17 lines
557 B
Mathematica
17 lines
557 B
Mathematica
ORY163 ; slc/dcm - postinit for OR*3*160 ;02/13/03 12:17
|
|
;;3.0;ORDER ENTRY/RESULTS REPORTING;**163**;Dec 17, 1997
|
|
;
|
|
Q
|
|
I '$L($$GET1^DIQ(4,+$$SITE^VASITE_",",52)) S XPDQUIT=2 D
|
|
. W !,"Before installing this patch, you need to add the Facility DEA#"
|
|
. W !,"for your institution in the INSTITUTION file (#4). You should"
|
|
. W !,"be able to get the Facility DEA# from the Pharmacy or Pharmacy Chief."
|
|
. W !,"See the patch description for detailed instructions on how to enter"
|
|
. W !,"the Facility DEA#."
|
|
Q
|
|
;
|
|
PRE ; -- preinit
|
|
Q
|
|
POST ; -- postinit
|
|
Q
|