| 1 | DIQQ ;SFISC/GFT-VARIOUS HELPS ;10:25 AM 21 Feb 2002
|
|---|
| 2 | ;;22.0;VA FileMan;**97**;Mar 30, 1999
|
|---|
| 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"
|
|---|
| 12 | I DUZ(0)="@",DJ=1 W !?9,"TYPE 'BY(0)' TO DEFINE RECORD SELECTION AND SORT ORDER"
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
| 15 | 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'",!!
|
|---|
| 16 | G FREE^DIP3
|
|---|
| 17 | ;
|
|---|
| 18 | DIP1(FT) ;from DIR reader -- FROM or TO help
|
|---|
| 19 | N % G:X["??" 11
|
|---|
| 20 | W !,"TO ",DE,$P(" IN SEQUENCE, STARTING FROM^ ONLY UP TO",U,FT)
|
|---|
| 21 | 1 W " A CERTAIN ",R,", " S %="TYPE THAT "_R W:$L(%)+$X>77 !?5 W %
|
|---|
| 22 | I $P(DC,U)'["R"&$L(DC) S %="OR ENTER '@' TO INCLUDE NULL "_R_" VALUES" W !?5,%
|
|---|
| 23 | I $G(DIR("B"))]"" S %=$P("FIRST^LAST",U,FT) I %'=DIR("B") W !?5,"OR ENTER '",%,"' TO ",$P("START FROM THE FIRST^GO THRU THE LAST",U,FT)," VALUE"
|
|---|
| 24 | 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:"?"))
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | DICATT3 W "TYPE FIELD NAMES, OPERATORS(+-\/*), DIGITS, OR FUNCTIONS",!,"FOR FUNCTIONS,"
|
|---|
| 28 | S D="B",DZ="??",DIC("W")="W:$D(^(9)) "" ("",^(9),"")""",DIC="^DD(""FUNC"",",DIC(0)="" D DQ^DICQ G 6^DICATT3
|
|---|
| 29 | ;
|
|---|
| 30 | DICATT31 W !,"ENTER THE NUMBER OF DIGITS THAT SHOULD NORMALLY APPEAR TO THE"
|
|---|
| 31 | W !,"RIGHT OF THE DECIMAL POINT WHEN '",F,"' IS DISPLAYED" G DEC^DICATT3
|
|---|
| 32 | ;
|
|---|
| 33 | DIP2 ;
|
|---|
| 34 | I $G(DDXP)=2 D G F^DIP2
|
|---|
| 35 | . W !!?5,"YOU CAN ALSO ENTER A COMPUTED EXPRESSION."
|
|---|
| 36 | . W:DE="" !?5,"ENTER '[TEMPLATE NAME]' TO USE AN EXISTING SELECTED EXPORT FIELDS TEMPLATE."
|
|---|
| 37 | . W !
|
|---|
| 38 | . Q
|
|---|
| 39 | W:$P(DU,U,4)>1 !?5,"TYPE 'ALL' TO PRINT EVERY ",$P(DU,U,1)
|
|---|
| 40 | 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"
|
|---|
| 41 | W:DE="" !?5,"TYPE '[TEMPLATE NAME]' IN BRACKETS TO USE AN EXISTING PRINT TEMPLATE"
|
|---|
| 42 | W !?5,"YOU CAN FOLLOW FIELD NAME WITH ';' AND FORMAT SPECIFICATION(S)"
|
|---|
| 43 | G F^DIP2
|
|---|
| 44 | ;
|
|---|
| 45 | DICE2 ;
|
|---|
| 46 | 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,"'"
|
|---|
| 47 | G C^DICE2
|
|---|
| 48 | DIARQ ;ARCHIVING ERROR MESSAGES
|
|---|
| 49 | FER W !,$C(7),"Less than 'FROM SELECT CRITERIA VALUE'.",$P(DIARS,U,2) Q
|
|---|
| 50 | FER1 W !,$C(7),"Less than 'FROM' value." Q
|
|---|
| 51 | TER W !,$C(7),"Less than 'TO SELECT CRITERIA VALUE'.",$P(DIARE,U,2) Q
|
|---|
| 52 | TER1 W !,$C(7),"Less than 'TO' value." Q
|
|---|
| 53 | ;
|
|---|
| 54 | ENTT W !!,"_____________________________________________________________________________",!!,$C(7),"A field in the 'SELECT CRITERIA TEMPLATE being used does NOT MATCH."
|
|---|
| 55 | W !,"the field at the SAME LEVEL in the BASE SELECT CRITERIA SORT TEMPLATE"
|
|---|
| 56 | W !,"specified for this file. There must be a one to one correspondence"
|
|---|
| 57 | W !,"between the fields in the template you want to use and the"
|
|---|
| 58 | W !,"BASIC SELECT CRITERIA SORT TEMPLATE, until all the fields in the"
|
|---|
| 59 | W !,"BASIC SELECT CRITERIA SORT TEMPLATE have been satisfied. More"
|
|---|
| 60 | W !,"CRITERIA may exist after that. See the development staff of the Package"
|
|---|
| 61 | W !,"or the ARCHIVING DOCUMENTATION where this process is explained further"
|
|---|
| 62 | W !,"for more information."
|
|---|
| 63 | W !,"_____________________________________________________________________________"
|
|---|
| 64 | Q
|
|---|
