ORY163.m

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 ---ORY163   573     printed  Apr 09, 2024@21:41:46                                                                                                                                                                                                       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