Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: OCXODIC

OCXODIC.m

Go to the documentation of this file.
  1. OCXODIC ;SLC/RJS,CLA - FILMAN LOOKUP INTERFACE ;10/29/98 12:37
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
  1. ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
  1. ;
  1. EN ;
  1. Q
  1. ;
  1. ;
  1. GETF0(X) N DIC,Y S DIC=1,DIC(0)="ZN" D ^DIC Q:(Y<1) "" Q Y(0)
  1. ;
  1. GETATT(OCXFILE,ATTR) ;
  1. ;
  1. N OCXTEMP S OCXTEMP=""
  1. D FILE^DID(OCXFILE,"",ATTR,"OCXTEMP(1)")
  1. ;
  1. Q $G(OCXTEMP(1,ATTR))
  1. ;