DIQQ ;SFISC/GFT-VARIOUS HELPS ;10:25 AM 21 Feb 2002 [ 12/09/2003 4:17 PM ]
;;22.0;VA FileMan;**97,1002**;Mar 30, 1999
;Per VHA Directive 10-93-142, this routine should not be modified.
DIP ;
W !?9,"TYPE '-' IN FRONT OF NUMERIC-VALUED FIELD TO SORT FROM HI TO LO"
D:$G(DDXP)'=4
. W !?9,"TYPE '+' IN FRONT OF FIELD NAME TO GET SUBTOTALS BY THAT FIELD,"
. W !?12,"'#' TO PAGE-FEED ON EACH FIELD VALUE, '!' TO GET RANKING NUMBER,"
. W !?12,"'@' TO SUPPRESS SUB-HEADER, ']' TO FORCE SAVING SORT TEMPLATE"
. W !?9,"TYPE ';TXT' AFTER FREE-TEXT FIELDS TO SORT NUMBERS AS TEXT" Q
W:DJ=1 !?9,"TYPE [TEMPLATE NAME] IN BRACKETS TO SORT BY PREVIOUS SEARCH RESULTS"
I DUZ(0)="@",DJ=1 W !?9,"TYPE 'BY(0)' TO DEFINE RECORD SELECTION AND SORT ORDER"
Q
;
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'",!!
G FREE^DIP3
;
DIP1(FT) ;from DIR reader -- FROM or TO help
N % G:X["??" 11
W !,"TO ",DE,$P(" IN SEQUENCE, STARTING FROM^ ONLY UP TO",U,FT)
1 W " A CERTAIN ",R,", " S %="TYPE THAT "_R W:$L(%)+$X>77 !?5 W %
I $P(DC,U)'["R"&$L(DC) S %="OR ENTER '@' TO INCLUDE NULL "_R_" VALUES" W !?5,%
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"
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:"?"))
Q
;
DICATT3 W "TYPE FIELD NAMES, OPERATORS(+-\/*), DIGITS, OR FUNCTIONS",!,"FOR FUNCTIONS,"
S D="B",DZ="??",DIC("W")="W:$D(^(9)) "" ("",^(9),"")""",DIC="^DD(""FUNC"",",DIC(0)="" D DQ^DICQ G 6^DICATT3
;
DICATT31 W !,"ENTER THE NUMBER OF DIGITS THAT SHOULD NORMALLY APPEAR TO THE"
W !,"RIGHT OF THE DECIMAL POINT WHEN '",F,"' IS DISPLAYED" G DEC^DICATT3
;
DIP2 ;
I $G(DDXP)=2 D G F^DIP2
. W !!?5,"YOU CAN ALSO ENTER A COMPUTED EXPRESSION."
. W:DE="" !?5,"ENTER '[TEMPLATE NAME]' TO USE AN EXISTING SELECTED EXPORT FIELDS TEMPLATE."
. W !
. Q
W:$P(DU,U,4)>1 !?5,"TYPE 'ALL' TO PRINT EVERY ",$P(DU,U,1)
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"
W:DE="" !?5,"TYPE '[TEMPLATE NAME]' IN BRACKETS TO USE AN EXISTING PRINT TEMPLATE"
W !?5,"YOU CAN FOLLOW FIELD NAME WITH ';' AND FORMAT SPECIFICATION(S)"
G F^DIP2
;
DICE2 ;
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,"'"
G C^DICE2
DIARQ ;ARCHIVING ERROR MESSAGES
FER W !,$C(7),"Less than 'FROM SELECT CRITERIA VALUE'.",$P(DIARS,U,2) Q
FER1 W !,$C(7),"Less than 'FROM' value." Q
TER W !,$C(7),"Less than 'TO SELECT CRITERIA VALUE'.",$P(DIARE,U,2) Q
TER1 W !,$C(7),"Less than 'TO' value." Q
;
ENTT W !!,"_____________________________________________________________________________",!!,$C(7),"A field in the 'SELECT CRITERIA TEMPLATE being used does NOT MATCH."
W !,"the field at the SAME LEVEL in the BASE SELECT CRITERIA SORT TEMPLATE"
W !,"specified for this file. There must be a one to one correspondence"
W !,"between the fields in the template you want to use and the"
W !,"BASIC SELECT CRITERIA SORT TEMPLATE, until all the fields in the"
W !,"BASIC SELECT CRITERIA SORT TEMPLATE have been satisfied. More"
W !,"CRITERIA may exist after that. See the development staff of the Package"
W !,"or the ARCHIVING DOCUMENTATION where this process is explained further"
W !,"for more information."
W !,"_____________________________________________________________________________"
Q
DIQQ ;SFISC/GFT-VARIOUS HELPS ;10:25 AM 21 Feb 2002 [ 12/09/2003 4:17 PM ]
+1 ;;22.0;VA FileMan;**97,1002**;Mar 30, 1999
+2 ;Per VHA Directive 10-93-142, this routine should not be modified.
DIP ;
+1 WRITE !?9,"TYPE '-' IN FRONT OF NUMERIC-VALUED FIELD TO SORT FROM HI TO LO"
+2 IF $GET(DDXP)'=4
Begin DoDot:1
+3 WRITE !?9,"TYPE '+' IN FRONT OF FIELD NAME TO GET SUBTOTALS BY THAT FIELD,"
+4 WRITE !?12,"'#' TO PAGE-FEED ON EACH FIELD VALUE, '!' TO GET RANKING NUMBER,"
+5 WRITE !?12,"'@' TO SUPPRESS SUB-HEADER, ']' TO FORCE SAVING SORT TEMPLATE"
+6 WRITE !?9,"TYPE ';TXT' AFTER FREE-TEXT FIELDS TO SORT NUMBERS AS TEXT"
QUIT
End DoDot:1
+7 IF DJ=1
WRITE !?9,"TYPE [TEMPLATE NAME] IN BRACKETS TO SORT BY PREVIOUS SEARCH RESULTS"
+8 IF DUZ(0)="@"
IF DJ=1
WRITE !?9,"TYPE 'BY(0)' TO DEFINE RECORD SELECTION AND SORT ORDER"
+9 QUIT
+10 ;
DIP3 WRITE !,"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'",!!
+1 GOTO FREE^DIP3
+2 ;
DIP1(FT) ;from DIR reader -- FROM or TO help
+1 NEW %
IF X["??"
GOTO 11
+2 WRITE !,"TO ",DE,$PIECE(" IN SEQUENCE, STARTING FROM^ ONLY UP TO",U,FT)
1 WRITE " A CERTAIN ",R,", "
SET %="TYPE THAT "_R
IF $LENGTH(%)+$X>77
WRITE !?5
WRITE %
+1 IF $PIECE(DC,U)'["R"&$LENGTH(DC)
SET %="OR ENTER '@' TO INCLUDE NULL "_R_" VALUES"
WRITE !?5,%
+2 IF $GET(DIR("B"))]""
SET %=$PIECE("FIRST^LAST",U,FT)
IF %'=DIR("B")
WRITE !?5,"OR ENTER '",%,"' TO ",$PIECE("START FROM THE FIRST^GO THRU THE LAST",U,FT)," VALUE"
11 IF $PIECE(DPP(DJ),U)
SET %=$PIECE(DPP(DJ),U,2)+$PIECE($PIECE(DPP(DJ),U,4),"""",2)
IF %
WRITE !
DO EN^DIQQ1($PIECE(DPP(DJ),U),%,$SELECT(X["??":"??",1:"?"))
+1 QUIT
+2 ;
DICATT3 WRITE "TYPE FIELD NAMES, OPERATORS(+-\/*), DIGITS, OR FUNCTIONS",!,"FOR FUNCTIONS,"
+1 SET D="B"
SET DZ="??"
SET DIC("W")="W:$D(^(9)) "" ("",^(9),"")"""
SET DIC="^DD(""FUNC"","
SET DIC(0)=""
DO DQ^DICQ
GOTO 6^DICATT3
+2 ;
DICATT31 WRITE !,"ENTER THE NUMBER OF DIGITS THAT SHOULD NORMALLY APPEAR TO THE"
+1 WRITE !,"RIGHT OF THE DECIMAL POINT WHEN '",F,"' IS DISPLAYED"
GOTO DEC^DICATT3
+2 ;
DIP2 ;
+1 IF $GET(DDXP)=2
Begin DoDot:1
+2 WRITE !!?5,"YOU CAN ALSO ENTER A COMPUTED EXPRESSION."
+3 IF DE=""
WRITE !?5,"ENTER '[TEMPLATE NAME]' TO USE AN EXISTING SELECTED EXPORT FIELDS TEMPLATE."
+4 WRITE !
+5 QUIT
End DoDot:1
GOTO F^DIP2
+6 IF $PIECE(DU,U,4)>1
WRITE !?5,"TYPE 'ALL' TO PRINT EVERY ",$PIECE(DU,U,1)
+7 WRITE !?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"
+8 IF DE=""
WRITE !?5,"TYPE '[TEMPLATE NAME]' IN BRACKETS TO USE AN EXISTING PRINT TEMPLATE"
+9 WRITE !?5,"YOU CAN FOLLOW FIELD NAME WITH ';' AND FORMAT SPECIFICATION(S)"
+10 GOTO F^DIP2
+11 ;
DICE2 ;
+1 WRITE !!,"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,"'"
+2 GOTO C^DICE2
DIARQ ;ARCHIVING ERROR MESSAGES
FER WRITE !,$CHAR(7),"Less than 'FROM SELECT CRITERIA VALUE'.",$PIECE(DIARS,U,2)
QUIT
FER1 WRITE !,$CHAR(7),"Less than 'FROM' value."
QUIT
TER WRITE !,$CHAR(7),"Less than 'TO SELECT CRITERIA VALUE'.",$PIECE(DIARE,U,2)
QUIT
TER1 WRITE !,$CHAR(7),"Less than 'TO' value."
QUIT
+1 ;
ENTT WRITE !!,"_____________________________________________________________________________",!!,$CHAR(7),"A field in the 'SELECT CRITERIA TEMPLATE being used does NOT MATCH."
+1 WRITE !,"the field at the SAME LEVEL in the BASE SELECT CRITERIA SORT TEMPLATE"
+2 WRITE !,"specified for this file. There must be a one to one correspondence"
+3 WRITE !,"between the fields in the template you want to use and the"
+4 WRITE !,"BASIC SELECT CRITERIA SORT TEMPLATE, until all the fields in the"
+5 WRITE !,"BASIC SELECT CRITERIA SORT TEMPLATE have been satisfied. More"
+6 WRITE !,"CRITERIA may exist after that. See the development staff of the Package"
+7 WRITE !,"or the ARCHIVING DOCUMENTATION where this process is explained further"
+8 WRITE !,"for more information."
+9 WRITE !,"_____________________________________________________________________________"
+10 QUIT
