- 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
- ;
- ;;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 ---[H[J[2J[HOCXOMENU 1036 printed Feb 18, 2025@23:52:14 Page 2
- +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 ;
- +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 ;