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

APCM1UTL.m

Go to the documentation of this file.
  1. APCM1UTL ; IHS/CMI/LAB - IHS MU ;
  1. ;;1.0;IHS MU PERFORMANCE REPORTS;**1**;MAR 26, 2012
  1. ;
  1. D(D) ;EP
  1. I D="" Q ""
  1. Q (1700+$E(D,1,3))_$E(D,4,5)_$E(D,6,7)_$S($P(D,".",2)]"":$P(D,".",2),1:"")
  1. JRNL ;EP
  1. ;N (DT,U,ZTQUEUED) S %=$$NOJOURN^ZIBGCHAR("APCMMUDC"),%=$$NOJOURN^ZIBGCHAR("APCMMUDP")
  1. Q
  1. DATE(D) ;EP
  1. I D="" Q ""
  1. Q $E(D,4,5)_"/"_$E(D,6,7)_"/"_$E(D,2,3)
  1. ;
  1. EDT(D) ;EP
  1. I D="" Q ""
  1. Q $E(D,4,5)_"/"_$E(D,6,7)_"/"_(1700+$E(D,1,3))
  1. ;
  1. ;
  1. LZERO(V,L) ;EP
  1. NEW %,I
  1. S %=$L(V),Z=L-% F I=1:1:Z S V="0"_V
  1. Q V
  1. RZERO(V,L) ;EP
  1. NEW %,I
  1. S %=$L(V),Z=L-% F I=1:1:Z S V=V_"0"
  1. Q V
  1. XTMP(N,D) ;EP
  1. Q:$G(N)=""
  1. S ^XTMP(N,0)=$$FMADD^XLFDT(DT,14)_"^"_DT_"^"_$G(D)
  1. Q