OCXOMENU.m

OCXOMENU ;SLC/RJS,CLA -  Rule Display (Expert System - Report Menu ) ;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

 ;

 ;

S ;

 ;

 N QUIT S QUIT=0 F  D  Q:QUIT

 .W !!!!

 .N LIST,LINE,TEXT

 .F LINE=1:1:999 S TEXT=$T(MENU+LINE) Q:$P(TEXT,";",2)  D

 ..S LIST(LINE)=$P(TEXT,";",3)

 ..W !,$J(LINE,3),". ",$P(TEXT,";",4)

 .W !!,"Choose 1 - ",(LINE-1),": " S ANS=$$READ,QUIT=(ANS=U) Q

 .S QUIT='ANS

 .I 'QUIT,$D(LIST(+ANS)) D @LIST(+ANS) W !!,"Press enter...  " S ZZZ=$$READ,QUIT=(ZZZ[U) W !

 ;

 Q

 ;

MENU ;

 ;;EN^OCXOCMPR;Function Library Report (Brief);

 ;;REPORT^OCXOCMPR;Function Library Report (Internal - External Function calls);

 ;;EDIT^OCXOCMPR;Function Library Code Edit;

 ;;SCAN^OCXOCMPR;Scan Entire OCX system for a string;

 ;;ERROR^OCXOCMPR;Scan ^%ZTER for Order Check related errors;

 ;;^OCXODSP;Expert System Display;

 ;;^OCXOEDT;Expert System Editor;

 ;1;

 ;

READ() ;

 N OCXX

 R OCXX:DTIME E  Q U

 Q OCXX

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---OCXOMENU   1036     printed  Apr 09, 2024@21:44:25                                                                                                                                                                                                    Page 2

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

 +2       ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

 +3       ;

 +4       ;

S         ;

 +1       ;

 +2        NEW QUIT

           SET QUIT=0

           FOR 

               Begin DoDot:1

 +3                WRITE !!!!

 +4                NEW LIST,LINE,TEXT

 +5                FOR LINE=1:1:999

                       SET TEXT=$TEXT(MENU+LINE)

                       if $PIECE(TEXT,";",2)

                           QUIT 

                       Begin DoDot:2

 +6                        SET LIST(LINE)=$PIECE(TEXT,";",3)

 +7                        WRITE !,$JUSTIFY(LINE,3),". ",$PIECE(TEXT,";",4)

                       End DoDot:2

 +8                WRITE !!,"Choose 1 - ",(LINE-1),": "

                   SET ANS=$$READ

                   SET QUIT=(ANS=U)

                   QUIT 

 +9                SET QUIT='ANS

 +10               IF 'QUIT

                       IF $DATA(LIST(+ANS))

                           DO @LIST(+ANS)

                           WRITE !!,"Press enter...  "

                           SET ZZZ=$$READ

                           SET QUIT=(ZZZ[U)

                           WRITE !

               End DoDot:1

               if QUIT

                   QUIT 

 +11      ;

 +12       QUIT 

 +13      ;

MENU      ;

 +1       ;;EN^OCXOCMPR;Function Library Report (Brief);

 +2       ;;REPORT^OCXOCMPR;Function Library Report (Internal - External Function calls);

 +3       ;;EDIT^OCXOCMPR;Function Library Code Edit;

 +4       ;;SCAN^OCXOCMPR;Scan Entire OCX system for a string;

 +5       ;;ERROR^OCXOCMPR;Scan ^%ZTER for Order Check related errors;

 +6       ;;^OCXODSP;Expert System Display;

 +7       ;;^OCXOEDT;Expert System Editor;

 +8       ;1;

 +9       ;

READ()    ;

 +1        NEW OCXX

 +2        READ OCXX:DTIME

          IF '$TEST

               QUIT U

 +3        QUIT OCXX

 +4       ;