Return to DIQQ.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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