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

PXCEDATE.m

Go to the documentation of this file.
  1. PXCEDATE ;ISL/dee - Used for things related to Date and Time ;6/20/96
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**47,161,219**;Aug 12, 1996;Build 5
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. Q
  1. ;
  1. NEWDATE ;
  1. D ASKDATE(.PXCEDBEG,.PXCEDEND)
  1. D DATE9S
  1. D MAKELIST^PXCENEW
  1. Q
  1. ;
  1. ASKDATE(DBEG,DEND) ;
  1. N NEWDBEG,NEWDEND,PXCEOBEG,PXCEOEND
  1. S PXCEOBEG=DBEG
  1. S NEWDBEG=$P($$EDATE("",DBEG),".")
  1. Q:NEWDBEG<0
  1. S PXCEOEND=DEND
  1. S NEWDEND=$P($$LDATE("",DEND),".")
  1. Q:NEWDEND<0
  1. S DBEG=$S(NEWDBEG>0:NEWDBEG,1:DBEG)
  1. S DEND=$S(NEWDEND>0:NEWDEND,1:DEND)
  1. I DEND<DBEG S DEND=PXCEOEND,DBEG=PXCEOBEG W !,"The Ending Date: "_$$FMTE^XLFDT(NEWDEND)_" cannot be prior to the Start Date: "_$$FMTE^XLFDT(NEWDBEG)_"" D PAUSE^VALM1
  1. ;I DEND<DBEG S NEWDBEG=DEND,DEND=DBEG,DBEG=NEWDBEG --- removed in 219
  1. ;D DATE9S This must be called by the caller if it is wanted.
  1. Q
  1. ;
  1. EDATE(PRMPT,DFLT) ; Get early date
  1. N %DT,X,Y
  1. S %DT="AEX"
  1. S %DT("A")=" Start "_$S($L($G(PRMPT)):PRMPT_" ",1:"")_"Date: "
  1. S %DT("B")=$S($L($G(DFLT)):$$FMTE^XLFDT(DFLT,5),1:"T-30")
  1. D ^%DT
  1. Q Y
  1. ;
  1. LDATE(PRMPT,DFLT) ; Get late date
  1. N %DT,X,Y
  1. S %DT="AEX"
  1. S %DT("A")="Ending "_$S($L($G(PRMPT)):PRMPT_" ",1:"")_"Date: "
  1. S %DT("B")=$S($L($G(DFLT)):$$FMTE^XLFDT(DFLT,5),1:"TODAY")
  1. D ^%DT
  1. Q Y
  1. ;
  1. DATE9S ;
  1. S PXCE9END=9999999-PXCEDEND
  1. S PXCE9BEG=9999999-PXCEDBEG+.999999
  1. S SDBEG=PXCEDBEG
  1. S SDEND=PXCEDEND
  1. Q
  1. ;
  1. DATE(INDATE) ;Change internal date to an external date.
  1. N OUTDATE,AT
  1. Q:INDATE'>0 ""
  1. S OUTDATE=$$FMTE^XLFDT(INDATE,5)
  1. S AT=$F(OUTDATE,"@")
  1. Q $E(OUTDATE,1,(AT-2))_" "_$P($E(OUTDATE,AT,99),":",1,2)
  1. ;