OCXODIC.m

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))

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---OCXODIC   401     printed  Apr 09, 2024@21:28:35                                                                                                                                                                                                      Page 2

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       ;