- 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 Jan 18, 2025@03:32:11 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