source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OR1.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: 293 bytes
Line 
1OR1 ; slc/dcm - OE/RR
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
3ADD ;Old 2.5 entry point for adding orders
4 S OREND=1 Q:$D(ZTQUEUED) Q:$D(DGQUIET)
5 W !!,"This path is currently disabled.",!,"Please select items from a menu." D READ^ORUTL
6AFT ;Old 2.5 exit point for adding orders
7 Q
Note: See TracBrowser for help on using the repository browser.