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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY163 573 printed Sep 23, 2025@20:15:09 Page 2
ORY163 ; slc/dcm - postinit for OR*3*160 ;02/13/03 12:17
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**163**;Dec 17, 1997
+2 ;
+3 QUIT
+4 IF '$LENGTH($$GET1^DIQ(4,+$$SITE^VASITE_",",52))
SET XPDQUIT=2
Begin DoDot:1
+5 WRITE !,"Before installing this patch, you need to add the Facility DEA#"
+6 WRITE !,"for your institution in the INSTITUTION file (#4). You should"
+7 WRITE !,"be able to get the Facility DEA# from the Pharmacy or Pharmacy Chief."
+8 WRITE !,"See the patch description for detailed instructions on how to enter"
+9 WRITE !,"the Facility DEA#."
End DoDot:1
+10 QUIT
+11 ;
PRE ; -- preinit
+1 QUIT
POST ; -- postinit
+1 QUIT
