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

DIP31.m

Go to the documentation of this file.
  1. DIP31 ;SFISC/TKW-ASK USER QUESTIONS ABOUT HEADING ;7:19 AM 27 May 1999
  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. HQ N DISAVX,Y,DA,DIZ S DISAVX=X K DIR,DTOUT,DUOUT,DIRUT
  1. G:$D(DISUPNO)!($D(DIPCRIT)) HQ1 S DISUPNO=0,DIPCRIT=0
  1. I $D(DIS)>9 S DIZ(1)=$$EZBLD^DIALOG(8006),DIZ(2)=$$EZBLD^DIALOG(8038)
  1. E S DIZ(1)=$$EZBLD^DIALOG(8007),DIZ(2)=$$EZBLD^DIALOG(8037)
  1. S DIR("A")=$$EZBLD^DIALOG(8008) D BLD^DIALOG(8005,.DIZ,"","DIR(""?"")")
  1. S DIR("B")=X,DIR(0)="FOU" D ^DIR K DIR G Q:$D(DIRUT)
  1. Q:X="" I "SC"'[X,"CS"'[X Q
  1. W ! I X["S" S DISUPNO=1 D BLD^DIALOG(8010,.DIZ,"","DIR") W !," ",DIR
  1. I X["C" S DIPCRIT=1,DIZ=DIZ(2) D BLD^DIALOG(8011,DIZ,"","DIR") W !," ",DIR
  1. W !!
  1. HQ1 D BLD^DIALOG(8009,"","","DIR(""?"")")
  1. S DIR("A")=$$EZBLD^DIALOG(8012),DIR("B")=DISAVX,DIR(0)="FOU^^K:X]""""&(""SC""[X!(""CS""[X)) X" D ^DIR K DIR G Q
  1. ;
  1. Q S:$D(DUOUT)!($D(DTOUT)) X="^" Q
  1. ;DIALOG #8005 'There are two different options:'
  1. ; #8006 'Number of Matches from the search'
  1. ; #8007 'heading when there are no records to print'
  1. ; #8008 'Heading/S/C'
  1. ; #8009 'Accept default heading or enter a custom heading...'
  1. ; #8010 '** Suppress the...'
  1. ; #8011 '** Print...criteria in heading.'
  1. ; #8012 'Heading'
  1. ; #8037 'sort'
  1. ; #8038 'search'