Return to DIQQ.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIQQ.m, revision 1.1.1.1

1.1       snw         1: DIQQ   ;SFISC/GFT-VARIOUS HELPS ;11/18/93  09:59
                      2:        ;;21.0;VA FileMan;;Dec 28, 1994
                      3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
                      4: DIP    ;
                      5:        W !?9,"TYPE '-' IN FRONT OF NUMERIC-VALUED FIELD TO SORT FROM HI TO LO"
                      6:        D:$G(DDXP)'=4
                      7:        . W !?9,"TYPE '+' IN FRONT OF FIELD NAME TO GET SUBTOTALS BY THAT FIELD,"
                      8:        . W !?12,"'#' TO PAGE-FEED ON EACH FIELD VALUE,  '!' TO GET RANKING NUMBER,"
                      9:        . W !?12,"'@' TO SUPPRESS SUB-HEADER,   ']' TO FORCE SAVING SORT TEMPLATE"
                     10:        . W !?9,"TYPE ';TXT' AFTER FREE-TEXT FIELDS TO SORT NUMBERS AS TEXT" Q
                     11:        W:DJ=1 !?9,"TYPE [TEMPLATE NAME] IN BRACKETS TO SORT BY PREVIOUS SEARCH RESULTS" Q
                     12:        ;
                     13: DIP3   W !,"SINCE YOU ARE CALLING FOR OUTPUT ON DEVICE '",IO,"', YOU MAY USE ",!,"THE TERMINAL YOU ARE NOW TYPING ON FOR SOMETHING ELSE, BY ANSWERING 'Y'",!!
                     14:        G FREE^DIP3
                     15:        ;
                     16: DIP1F  G:X["??" 11
                     17:        W !,"TO ",DE," IN SEQUENCE, STARTING FROM" G 1
                     18: DIP1T  G:X["??" 11
                     19:        W !,"TO ",DE," ONLY UP TO"
                     20: 1      W " A CERTAIN ",R,",",!?5,"TYPE THAT ",R W:$P(DC,U,1)'["R"&$L(DC) !?5,"'@' MEANS 'INCLUDE NULL ",R," FIELDS'"
                     21: 11     I $P(DPP(DJ),U) S %=$P(DPP(DJ),U,2)+$P($P(DPP(DJ),U,4),"""",2) I % W ! D EN^DIQQ1($P(DPP(DJ),U),%,$S(X["??":"??",1:"?"))
                     22:        Q
                     23:        ;
                     24: DICATT3        W "TYPE FIELD NAMES, OPERATORS(+-\/*), DIGITS, OR FUNCTIONS",!,"FOR FUNCTIONS,"
                     25:        S D="B",DZ="??",DIC("W")="W:$D(^(9)) ""  ("",^(9),"")""",DIC="^DD(""FUNC"",",DIC(0)="" D DQ^DICQ G 6^DICATT3
                     26:        ;
                     27: DICATT31       W !,"ENTER THE NUMBER OF DIGITS THAT SHOULD NORMALLY APPEAR TO THE"
                     28:        W !,"RIGHT OF THE DECIMAL POINT WHEN '",F,"' IS DISPLAYED" G DEC^DICATT3
                     29:        ;
                     30: DIP2   ;
                     31:        I $G(DDXP)=2 D  G F^DIP2
                     32:        . W !!?5,"YOU CAN ALSO ENTER A COMPUTED EXPRESSION."
                     33:        . W:DE="" !?5,"ENTER '[TEMPLATE NAME]' TO USE AN EXISTING SELECTED EXPORT FIELDS TEMPLATE."
                     34:        . W !
                     35:        . Q
                     36:        W:$P(DU,U,4)>1 !?5,"TYPE 'ALL' TO PRINT EVERY ",$P(DU,U,1)
                     37:        W !?5,"TYPE '&' IN FRONT OF FIELD NAME TO GET TOTAL FOR THAT FIELD,",!?8,"'!' TO GET COUNT, '+' TO GET TOTAL & COUNT, '#' TO GET MAX & MIN,",!?8,"']' TO FORCE SAVING PRINT TEMPLATE"
                     38:        W:DE="" !?5,"TYPE '[TEMPLATE NAME]' IN BRACKETS TO USE AN EXISTING PRINT TEMPLATE"
                     39:        W !?5,"YOU CAN FOLLOW FIELD NAME WITH ';' AND FORMAT SPECIFICATION(S)"
                     40:        G F^DIP2
                     41:        ;
                     42: DICE2  ;
                     43:        W !!,"YOU MAY USE '@' TO INDICATE THAT '",DNEW,"' IS TO BE DELETED",!,"IF YOU SIMPLY WANT TO MOVE THE VALUE OF '",DOLD,"' OVER,",!,"   JUST ENTER '",DOLD,"'"
                     44:        G C^DICE2
                     45: DIARQ  ;ARCHIVING ERROR MESSAGES
                     46: FER    W !,$C(7),"Less than 'FROM SELECT CRITERIA VALUE'.",$P(DIARS,U,2) Q
                     47: FER1   W !,$C(7),"Less than 'FROM' value." Q
                     48: TER    W !,$C(7),"Less than 'TO SELECT CRITERIA VALUE'.",$P(DIARE,U,2) Q
                     49: TER1   W !,$C(7),"Less than 'TO' value." Q
                     50:        ;
                     51: ENTT   W !!,"_____________________________________________________________________________",!!,$C(7),"A field in the 'SELECT CRITERIA TEMPLATE being used does NOT MATCH."
                     52:        W !,"the field at the SAME LEVEL in the BASE SELECT CRITERIA SORT TEMPLATE"
                     53:        W !,"specified for this file.  There must be a one to one correspondence"
                     54:        W !,"between the fields in the template you want to use and the"
                     55:        W !,"BASIC SELECT CRITERIA SORT TEMPLATE, until all the fields in the"
                     56:        W !,"BASIC SELECT CRITERIA SORT TEMPLATE have been satisfied.  More"
                     57:        W !,"CRITERIA may exist after that.  See the development staff of the Package"
                     58:        W !,"or the ARCHIVING DOCUMENTATION where this process is explained further"
                     59:        W !,"for more information."
                     60:        W !,"_____________________________________________________________________________"
                     61:        Q