source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOMENU.m

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

initial load of FOIAVistA 6/30/08 version

File size: 1002 bytes
Line 
1OCXOMENU ;SLC/RJS,CLA - Rule Display (Expert System - Report Menu ) ;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 ;
5 ;
6S ;
7 ;
8 N QUIT S QUIT=0 F D Q:QUIT
9 .W !!!!
10 .N LIST,LINE,TEXT
11 .F LINE=1:1:999 S TEXT=$T(MENU+LINE) Q:$P(TEXT,";",2) D
12 ..S LIST(LINE)=$P(TEXT,";",3)
13 ..W !,$J(LINE,3),". ",$P(TEXT,";",4)
14 .W !!,"Choose 1 - ",(LINE-1),": " S ANS=$$READ,QUIT=(ANS=U) Q
15 .S QUIT='ANS
16 .I 'QUIT,$D(LIST(+ANS)) D @LIST(+ANS) W !!,"Press enter... " S ZZZ=$$READ,QUIT=(ZZZ[U) W !
17 ;
18 Q
19 ;
20MENU ;
21 ;;EN^OCXOCMPR;Function Library Report (Brief);
22 ;;REPORT^OCXOCMPR;Function Library Report (Internal - External Function calls);
23 ;;EDIT^OCXOCMPR;Function Library Code Edit;
24 ;;SCAN^OCXOCMPR;Scan Entire OCX system for a string;
25 ;;ERROR^OCXOCMPR;Scan ^%ZTER for Order Check related errors;
26 ;;^OCXODSP;Expert System Display;
27 ;;^OCXOEDT;Expert System Editor;
28 ;1;
29 ;
30READ() ;
31 N OCXX
32 R OCXX:DTIME E Q U
33 Q OCXX
34 ;
Note: See TracBrowser for help on using the repository browser.