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

OCXOMENU.m

Go to the documentation of this file.
  1. OCXOMENU ;SLC/RJS,CLA - Rule Display (Expert System - Report Menu ) ;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. ;
  1. S ;
  1. ;
  1. N QUIT S QUIT=0 F D Q:QUIT
  1. .W !!!!
  1. .N LIST,LINE,TEXT
  1. .F LINE=1:1:999 S TEXT=$T(MENU+LINE) Q:$P(TEXT,";",2) D
  1. ..S LIST(LINE)=$P(TEXT,";",3)
  1. ..W !,$J(LINE,3),". ",$P(TEXT,";",4)
  1. .W !!,"Choose 1 - ",(LINE-1),": " S ANS=$$READ,QUIT=(ANS=U) Q
  1. .S QUIT='ANS
  1. .I 'QUIT,$D(LIST(+ANS)) D @LIST(+ANS) W !!,"Press enter... " S ZZZ=$$READ,QUIT=(ZZZ[U) W !
  1. ;
  1. Q
  1. ;
  1. ;;EN^OCXOCMPR;Function Library Report (Brief);
  1. ;;REPORT^OCXOCMPR;Function Library Report (Internal - External Function calls);
  1. ;;EDIT^OCXOCMPR;Function Library Code Edit;
  1. ;;SCAN^OCXOCMPR;Scan Entire OCX system for a string;
  1. ;;ERROR^OCXOCMPR;Scan ^%ZTER for Order Check related errors;
  1. ;;^OCXODSP;Expert System Display;
  1. ;;^OCXOEDT;Expert System Editor;
  1. ;1;
  1. ;
  1. READ() ;
  1. N OCXX
  1. R OCXX:DTIME E Q U
  1. Q OCXX
  1. ;