source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORKCHK3.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 587 bytes
Line 
1ORKCHK3 ; slc/CLA - Support routine called by ORKCHK to do DISPLAY mode order checks ;3/6/97 9:35
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**6**;Dec 17, 1997
3 Q
4 ;
5EN(ORKS,ORKDFN,ORKA,ORENT,ORKTMODE) ;perform order checking for ordering dialog/display
6 ;ORKS - return sort array of order checks
7 ;ORKDFN - patient id
8 ;ORKA - order information
9 ;ORENT - entity for parameter calls
10 ;ORKTMODE - temp mode for special calls ("ALL" or "NOTIF")
11 N ORKOFF
12 Q:$$GET^XPAR("DIV^SYS^PKG","ORK SYSTEM ENABLE/DISABLE",1,"I")="D"
13 ;
14 ;process MLMs:
15 D MLM^ORKCHK2(.ORKS,ORKDFN,ORKA,ORENT,"DISPLAY")
16 Q
Note: See TracBrowser for help on using the repository browser.