ORKCHK3 ; slc/CLA - Support routine called by ORKCHK to do DISPLAY mode order checks ;3/6/97 9:35
;;3.0;ORDER ENTRY/RESULTS REPORTING;**6**;Dec 17, 1997
Q
;
EN(ORKS,ORKDFN,ORKA,ORENT,ORKTMODE) ;perform order checking for ordering dialog/display
;ORKS - return sort array of order checks
;ORKDFN - patient id
;ORKA - order information
;ORENT - entity for parameter calls
;ORKTMODE - temp mode for special calls ("ALL" or "NOTIF")
N ORKOFF
Q:$$GET^XPAR("DIV^SYS^PKG","ORK SYSTEM ENABLE/DISABLE",1,"I")="D"
;
;process MLMs:
D MLM^ORKCHK2(.ORKS,ORKDFN,ORKA,ORENT,"DISPLAY")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORKCHK3 603 printed Oct 16, 2024@18:31:36 Page 2
ORKCHK3 ; slc/CLA - Support routine called by ORKCHK to do DISPLAY mode order checks ;3/6/97 9:35
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**6**;Dec 17, 1997
+2 QUIT
+3 ;
EN(ORKS,ORKDFN,ORKA,ORENT,ORKTMODE) ;perform order checking for ordering dialog/display
+1 ;ORKS - return sort array of order checks
+2 ;ORKDFN - patient id
+3 ;ORKA - order information
+4 ;ORENT - entity for parameter calls
+5 ;ORKTMODE - temp mode for special calls ("ALL" or "NOTIF")
+6 NEW ORKOFF
+7 if $$GET^XPAR("DIV^SYS^PKG","ORK SYSTEM ENABLE/DISABLE",1,"I")="D"
QUIT
+8 ;
+9 ;process MLMs:
+10 DO MLM^ORKCHK2(.ORKS,ORKDFN,ORKA,ORENT,"DISPLAY")
+11 QUIT
