APCM1UTL.m

APCM1UTL ; IHS/CMI/LAB - IHS MU ;

 ;;1.0;IHS MU PERFORMANCE REPORTS;**1**;MAR 26, 2012

 ;

D(D) ;EP

 I D="" Q ""

 Q (1700+$E(D,1,3))_$E(D,4,5)_$E(D,6,7)_$S($P(D,".",2)]"":$P(D,".",2),1:"")

JRNL ;EP

 ;N (DT,U,ZTQUEUED) S %=$$NOJOURN^ZIBGCHAR("APCMMUDC"),%=$$NOJOURN^ZIBGCHAR("APCMMUDP")

 Q

DATE(D) ;EP

 I D="" Q ""

 Q $E(D,4,5)_"/"_$E(D,6,7)_"/"_$E(D,2,3)

 ;

EDT(D) ;EP

 I D="" Q ""

 Q $E(D,4,5)_"/"_$E(D,6,7)_"/"_(1700+$E(D,1,3))

 ;

 ;

LZERO(V,L) ;EP

 NEW %,I

 S %=$L(V),Z=L-% F I=1:1:Z S V="0"_V

 Q V

RZERO(V,L) ;EP

 NEW %,I

 S %=$L(V),Z=L-% F I=1:1:Z S V=V_"0"

 Q V

XTMP(N,D) ;EP

 Q:$G(N)=""

 S ^XTMP(N,0)=$$FMADD^XLFDT(DT,14)_"^"_DT_"^"_$G(D)

 Q

APCM1UTL  ; IHS/CMI/LAB - IHS MU ;

 +1       ;;1.0;IHS MU PERFORMANCE REPORTS;**1**;MAR 26, 2012

 +2       ;

D(D)      ;EP

 +1        IF D=""

               QUIT ""

 +2        QUIT (1700+$EXTRACT(D,1,3))_$EXTRACT(D,4,5)_$EXTRACT(D,6,7)_$SELECT($PIECE(D,".",2)]"":$PIECE(D,".",2),1:"")

JRNL      ;EP

 +1       ;N (DT,U,ZTQUEUED) S %=$$NOJOURN^ZIBGCHAR("APCMMUDC"),%=$$NOJOURN^ZIBGCHAR("APCMMUDP")

 +2        QUIT 

DATE(D)   ;EP

 +1        IF D=""

               QUIT ""

 +2        QUIT $EXTRACT(D,4,5)_"/"_$EXTRACT(D,6,7)_"/"_$EXTRACT(D,2,3)

 +3       ;

EDT(D)    ;EP

 +1        IF D=""

               QUIT ""

 +2        QUIT $EXTRACT(D,4,5)_"/"_$EXTRACT(D,6,7)_"/"_(1700+$EXTRACT(D,1,3))

 +3       ;

 +4       ;

LZERO(V,L) ;EP

 +1        NEW %,I

 +2        SET %=$LENGTH(V)

           SET Z=L-%

           FOR I=1:1:Z

               SET V="0"_V

 +3        QUIT V

RZERO(V,L) ;EP

 +1        NEW %,I

 +2        SET %=$LENGTH(V)

           SET Z=L-%

           FOR I=1:1:Z

               SET V=V_"0"

 +3        QUIT V

XTMP(N,D) ;EP

 +1        IF $GET(N)=""

               QUIT 

 +2        SET ^XTMP(N,0)=$$FMADD^XLFDT(DT,14)_"^"_DT_"^"_$GET(D)

 +3        QUIT