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

CIAU1.m

Go to the documentation of this file. 
  1. CIAU1 ;MSC/IND/PLS - General Purpose Utilites - Con't ;04-May-2006 08:19;DKM
  1.  ;;1.2;CIA UTILITIES;;Mar 20, 2007
  1.  ;;Copyright 2000-2006, Medsphere Systems Corporation
  1.  ;=================================================================
  1.  ; Parameterized call to ScreenMan interface
  1. DDS(DDSFILE,DR,DA,DDSPARM,DDSCHANG,CIAERR) ;
  1.  S CIAERR=0
  1.  D:'$D(IOST(0)) HOME^%ZIS
  1.  D ENS^%ZISS
  1.  D ^DDS
  1.  S:$D(DTOUT) CIAERR=1
  1.  I $D(DIMSG)!($D(DIERR)) D
  1.  .S CIAERR=1
  1.  .;D SHOWDLG(23)
  1.  .W !,?5,"The Screen Manager could not edit this record."
  1.  .H 5
  1.  Q
  1.  ; Prompt for single date date
  1.  ; PMT = Prompt
  1.  ; DFL = Default value (optional)
  1.  ; MIN = Minimum value (optional)
  1.  ; OPT = Additional options (optional)
  1. ASKDATE(PMT,DFL,MIN,OPT) ;
  1.  N %DT,Y
  1.  S %DT="APEX"_$G(OPT)
  1.  S %DT("A")=PMT
  1.  S:$G(MIN) %DT(0)=MIN
  1.  I $G(DFL) D
  1.  .S Y=DFL
  1.  .D DD^%DT
  1.  .S %DT("B")=Y
  1.  D ^%DT
  1.  S:Y<0 POP=1
  1.  Q Y