Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DIQQ

DIQQ.m

Go to the documentation of this file.
  1. DIQQ ;SFISC/GFT-VARIOUS HELPS ;11:05 AM 9 Aug 2002
  1. ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
  1. ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
  1. ;;Licensed under the terms of the Apache License, Version 2.0.
  1. ;
  1. DIP ;**CCO/NI EVERYTHING THRU TAG '11' CHANGED
  1. D BLD^DIALOG(9070),MSG^DIALOG("WH") ;*CCO/NI TYPE '-' ...
  1. I $G(DDXP)'=4 D BLD^DIALOG(9071),MSG^DIALOG("WH") ;*CCO/NI '=', '#', ETC
  1. I DJ=1 D BLD^DIALOG(9072),MSG^DIALOG("WH") ;**CCO/NI '[TEMPLATE NAME]'
  1. I DUZ(0)="@",DJ=1 D BLD^DIALOG(9073),MSG^DIALOG("WH") ;**CCO/NI 'BY(0)'
  1. Q
  1. ;
  1. DIP3 ;
  1. D BLD^DIALOG(9085,IO),MSG^DIALOG("WH") ;**CCO/NI 'YOU CAN FREE THIS TERMINAL'
  1. G FREE^DIP3
  1. ;
  1. DIP1(FT) ;from DIR reader -- FROM or TO help
  1. I X'["??" D
  1. .N DIP S DIP(1)=DE,DIP(2)=DIPR
  1. .D BLD^DIALOG(9080+FT,.DIP),MSG^DIALOG("WH") ;**CCO/NI
  1. .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"
  1. 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:"?"))
  1. Q
  1. ;
  1. DICATT3 W "TYPE FIELD NAMES, OPERATORS(+-\/*), DIGITS, OR FUNCTIONS",!,"FOR FUNCTIONS,"
  1. S D="B",DZ="??",DIC("W")="W:$D(^(9)) "" ("",^(9),"")""",DIC="^DD(""FUNC"",",DIC(0)="" D DQ^DICQ G 6^DICATT3
  1. ;
  1. DICATT31 W !,"ENTER THE NUMBER OF DIGITS THAT SHOULD NORMALLY APPEAR TO THE"
  1. W !,"RIGHT OF THE DECIMAL POINT WHEN '",F,"' IS DISPLAYED" G DEC^DICATT3
  1. ;
  1. DIP2 ;
  1. I $G(DDXP)=2 D G F^DIP2
  1. .W !!?5,"YOU CAN ALSO ENTER A COMPUTED EXPRESSION."
  1. .W:DE="" !?5,"ENTER '[TEMPLATE NAME]' TO USE AN EXISTING SELECTED EXPORT FIELDS TEMPLATE."
  1. .W !
  1. I $P(DU,U,4)>1 D BLD^DIALOG(9076,$P(DU,U)),MSG^DIALOG("WH") ;**CCO/NI 'TYPE 'ALL''
  1. D BLD^DIALOG(9077),MSG^DIALOG("WH") ;**CCO/NI 'TYPE '&' ETC'
  1. I DE="" D BLD^DIALOG(9078),MSG^DIALOG("WH") ;**CCO/NI 'TYPE [TEMPLATE NAME]'
  1. G F^DIP2
  1. ;
  1. DICE2 ;
  1. 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,"'"
  1. G C^DICE2
  1. DIARQ ;ARCHIVING ERROR MESSAGES
  1. FER W !,$C(7),"Less than 'FROM SELECT CRITERIA VALUE'.",$P(DIARS,U,2) Q
  1. FER1 W !,$C(7),$$EZBLD^DIALOG(1511) Q ;**CCO/NI 'START WITH' > 'GO TO'
  1. TER W !,$C(7),"Less than 'TO SELECT CRITERIA VALUE'.",$P(DIARE,U,2) Q
  1. TER1 W !,$C(7),"Less than 'TO' value." Q
  1. ;
  1. ENTT W !!,"_____________________________________________________________________________",!!,$C(7),"A field in the 'SELECT CRITERIA TEMPLATE being used does NOT MATCH."
  1. W !,"the field at the SAME LEVEL in the BASE SELECT CRITERIA SORT TEMPLATE"
  1. W !,"specified for this file. There must be a one to one correspondence"
  1. W !,"between the fields in the template you want to use and the"
  1. W !,"BASIC SELECT CRITERIA SORT TEMPLATE, until all the fields in the"
  1. W !,"BASIC SELECT CRITERIA SORT TEMPLATE have been satisfied. More"
  1. W !,"CRITERIA may exist after that. See the development staff of the Package"
  1. W !,"or the ARCHIVING DOCUMENTATION where this process is explained further"
  1. W !,"for more information."
  1. W !,"_____________________________________________________________________________"
  1. Q