ORY45.m

ORY45 ;SLC/MKB-Postinit for patch OR*3*45 ;2/22/99  15:17

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**45**;Dec 17, 1997

 ;

EN ; -- Convert Auto-DC parameter values

 ;

 N ORDC,OERR

 S ORDC=$$GET^XPAR("ALL","ORPF DC OF GENERIC ORDERS") Q:ORDC'=2

 ; -- populate Auto-DC Pkg list with OERR, set DC on Loc change to no

 S OERR=+$O(^DIC(9.4,"C","OR",0)) Q:'OERR

 D EN^XPAR("SYS","ORPF DC OF GENERIC ORDERS",1,0) ;DC on Loc change

 D EN^XPAR("SYS","OR DC ON SPEC CHANGE","`"_OERR,1) ;DC Pkg OR on Spec

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ORY45   505     printed  Apr 09, 2024@21:30:36                                                                                                                                                                                                        Page 2

ORY45     ;SLC/MKB-Postinit for patch OR*3*45 ;2/22/99  15:17

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**45**;Dec 17, 1997

 +2       ;

EN        ; -- Convert Auto-DC parameter values

 +1       ;

 +2        NEW ORDC,OERR

 +3        SET ORDC=$$GET^XPAR("ALL","ORPF DC OF GENERIC ORDERS")

           if ORDC'=2

               QUIT 

 +4       ; -- populate Auto-DC Pkg list with OERR, set DC on Loc change to no

 +5        SET OERR=+$ORDER(^DIC(9.4,"C","OR",0))

           if 'OERR

               QUIT 

 +6       ;DC on Loc change

           DO EN^XPAR("SYS","ORPF DC OF GENERIC ORDERS",1,0)

 +7       ;DC Pkg OR on Spec

           DO EN^XPAR("SYS","OR DC ON SPEC CHANGE","`"_OERR,1)

 +8        QUIT