Return to DIQQ.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIQQ.m, revision 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