| 1 | OCXOMENU ;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 | ;
|
|---|
| 6 | S ;
|
|---|
| 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 | ;
|
|---|
| 20 | MENU ;
|
|---|
| 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 | ;
|
|---|
| 30 | READ() ;
|
|---|
| 31 | N OCXX
|
|---|
| 32 | R OCXX:DTIME E Q U
|
|---|
| 33 | Q OCXX
|
|---|
| 34 | ;
|
|---|
