ORKCHK3.m

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

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