- OCXODIC ;SLC/RJS,CLA - FILMAN LOOKUP INTERFACE ;10/29/98 12:37
- ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
- ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
- ;
- EN ;
- Q
- ;
- ;
- GETF0(X) N DIC,Y S DIC=1,DIC(0)="ZN" D ^DIC Q:(Y<1) "" Q Y(0)
- ;
- GETATT(OCXFILE,ATTR) ;
- ;
- N OCXTEMP S OCXTEMP=""
- D FILE^DID(OCXFILE,"",ATTR,"OCXTEMP(1)")
- ;
- Q $G(OCXTEMP(1,ATTR))
- ;
- OCXODIC ;SLC/RJS,CLA - FILMAN LOOKUP INTERFACE ;10/29/98 12:37
- +1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
- +2 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
- +3 ;
- EN ;
- +1 QUIT
- +2 ;
- +3 ;
- GETF0(X) NEW DIC,Y
- SET DIC=1
- SET DIC(0)="ZN"
- DO ^DIC
- IF (Y<1)
- QUIT ""
- QUIT Y(0)
- +1 ;
- GETATT(OCXFILE,ATTR) ;
- +1 ;
- +2 NEW OCXTEMP
- SET OCXTEMP=""
- +3 DO FILE^DID(OCXFILE,"",ATTR,"OCXTEMP(1)")
- +4 ;
- +5 QUIT $GET(OCXTEMP(1,ATTR))
- +6 ;