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

DIQQQ.m

Go to the documentation of this file.
  1. DIQQQ ;SFISC/GFT,XAK-MORE HELP ;21FEB2005
  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. DICATT W !,"IF YOU WANT THE SAME ANSWER ALLOWED FOR ",F,!,"AS FOR " Q
  1. ;
  1. DICATT1 W !,"ENTER GLOBAL SUBSCRIPT NAME AT WHICH ",F," WILL BE STORED"
  1. W !," ALREADY ASSIGNED: " S Y="",T=0 F S Y=$O(^DD(A,"GL",Y)) Q:Y="" W $J(Y,9) W:$X>66 !
  1. S Y=-1 G SUB^DICATT1
  1. ;
  1. DIS ;
  1. D W !! Q ;**CCO/NI (next 8 lines) HELP FOR SEARCHING
  1. .N DIP
  1. .S DIP(1)=O(DC),DIP(2)=$P("NOT ",U,DN]"")_$P("^CONTAIN^MATCH^BE LESS THAN^EQUAL^EXCEED^FOLLOW",U,+DQ),DIP(3)=$C(DC+64)
  1. .D BLD^DIALOG(9079,.DIP),MSG^DIALOG("WH")
  1. .W:+DQ=3 !?8,"(I.E., ENTER WHAT WOULD FOLLOW THE MUMPS '?' OPERATOR)",!
  1. .I E["S" W !! D EN^DIQQ1(DK,DU,"?")
  1. ;
  1. DISC ;
  1. D BLD^DIALOG(9075),MSG^DIALOG("WH") G C^DIS
  1. ;
  1. DIP1 ;
  1. W $C(7) D BLD^DIALOG(8145),MSG^DIALOG("WE") G Q^DIP ;**CCO/NI 'YOU'VE ASKED FOR THE SAME SORT FIELD TWICE!'
  1. ;
  1. DIP3 W !,$$EZBLD^DIALOG(9086) G ^DIP3
  1. ;
  1. DIA ;
  1. W ! D BLD^DIALOG(9131),MSG^DIALOG("WH") ;**CCO/NI HELP FOR 'EDIT WHICH FIELD:'
  1. G 2^DIA
  1. ;
  1. DIA3 ;
  1. W ! D BLD^DIALOG(8147),MSG^DIALOG("WE") W ! G 2^DIA ;**CCO/NI 'CAPTIONS CANNOT CONTAIN...'
  1. ;
  1. DIP21 ;
  1. D BLD^DIALOG(9083),MSG^DIALOG("WH") ;**CCO/NI HELP FOR THE 'SUPPRESS SUBHEADERS?' QUERY
  1. G SUB^DIP21
  1. ;
  1. DICOMPW W ! D BLD^DIALOG(9121,Y),MSG^DIALOG("WH") Q ;**CCO/NI HELP FOR RELATIONAL-JUMP QUERY IN CREATING A COMPUTED EXPRESSION
  1. ;
  1. XPDIP21 ;from XPUT^DIP21
  1. W !!,$C(7),"You must choose a template to store the fields selected for export."
  1. W !,"If you do not want to save the selections, use the '^'.",! Q