source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXODIC.m@ 1697

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

initial load of FOIAVistA 6/30/08 version

File size: 384 bytes
Line 
1OCXODIC ;SLC/RJS,CLA - FILMAN LOOKUP INTERFACE ;10/29/98 12:37
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 ;
5EN ;
6 Q
7 ;
8 ;
9GETF0(X) N DIC,Y S DIC=1,DIC(0)="ZN" D ^DIC Q:(Y<1) "" Q Y(0)
10 ;
11GETATT(OCXFILE,ATTR) ;
12 ;
13 N OCXTEMP S OCXTEMP=""
14 D FILE^DID(OCXFILE,"",ATTR,"OCXTEMP(1)")
15 ;
16 Q $G(OCXTEMP(1,ATTR))
17 ;
Note: See TracBrowser for help on using the repository browser.