SCCVLOG2 ;ALB/RMO,TMP - Scheduling Conversion Log Utilities - Bulletin; [ 05/12/95 13:59 PM ]
;;5.3;Scheduling;**211**;Aug 13, 1993
;
SEND(SCLOG,SCACT) ;Send conversion bulletin
; Input -- SCLOG CST ien
; SCACT Action
; Output -- None
N C,SCACTD,SCLNE,SCLOG0,SCLOG1,SCLOG2,SCTXT,X,Y
S SCLOG0=$G(^SD(404.98,SCLOG,0)),SCLOG1=$G(^(1)),SCLOG2=$G(^(2))
S Y=$$EXPAND^SCCVDSP2(404.9875,.02,SCACT)
S SCACTD=$E(Y,1)_$$LOW^XLFSTR($E(Y,2,$L(Y)))
S XMSUB="Scheduling Conversion Template #"_SCLOG_" - Event "_SCACTD
S XMDUZ=.5,XMY(DUZ)=""
S XMTEXT="SCTXT(",SCLNE=0
S X="The conversion event has been '"_SCACTD_"'." D SET
S X=" " D SET
S Y=$$EXPAND^SCCVDSP2(404.98,.05,$P(SCLOG0,U,5))
S X=" Conversion Event: "_$E(Y,1)_$$LOW^XLFSTR($E(Y,2,$L(Y))) D SET
S X=" " D SET
S Y=$P(SCLOG0,U,3) D D^DIQ
S X=" Start Date: "_Y D SET
S Y=$P(SCLOG0,U,4) D D^DIQ
S X=" End Date: "_Y D SET
S X=" " D SET
S X=" # encounters - converted: "_+$P(SCLOG1,U,2) D SET
S X=" - not converted: "_+$P(SCLOG2,U,6) D SET
S X=" Total # of errors logged : "_+$P(SCLOG1,U,5) D SET
;
I $O(^SD(404.98,SCLOG,"ERROR",0)) D
. S Y=+$P($G(^SD(404.98,SCLOG,"R",+$$LSTREQ^SCCVLOG(SCLOG),0)),U,7)
. Q:'Y
. S X=" " D SET
. S X=Y_" error"_$S(Y>1:"s were",1:" was")_" encountered during this conversion run." D SET
. S X="For details, review the 'Error Log' in the 'View Template' action." D SET
;
D ^XMD
K XMSUB,XMDUZ,XMTEXT,XMY
Q
;
SET ;Set message text
S SCLNE=SCLNE+1,SCTXT(SCLNE,0)=X
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSCCVLOG2 1619 printed Apr 09, 2024@22:02:45 Page 2
SCCVLOG2 ;ALB/RMO,TMP - Scheduling Conversion Log Utilities - Bulletin; [ 05/12/95 13:59 PM ]
+1 ;;5.3;Scheduling;**211**;Aug 13, 1993
+2 ;
SEND(SCLOG,SCACT) ;Send conversion bulletin
+1 ; Input -- SCLOG CST ien
+2 ; SCACT Action
+3 ; Output -- None
+4 NEW C,SCACTD,SCLNE,SCLOG0,SCLOG1,SCLOG2,SCTXT,X,Y
+5 SET SCLOG0=$GET(^SD(404.98,SCLOG,0))
SET SCLOG1=$GET(^(1))
SET SCLOG2=$GET(^(2))
+6 SET Y=$$EXPAND^SCCVDSP2(404.9875,.02,SCACT)
+7 SET SCACTD=$EXTRACT(Y,1)_$$LOW^XLFSTR($EXTRACT(Y,2,$LENGTH(Y)))
+8 SET XMSUB="Scheduling Conversion Template #"_SCLOG_" - Event "_SCACTD
+9 SET XMDUZ=.5
SET XMY(DUZ)=""
+10 SET XMTEXT="SCTXT("
SET SCLNE=0
+11 SET X="The conversion event has been '"_SCACTD_"'."
DO SET
+12 SET X=" "
DO SET
+13 SET Y=$$EXPAND^SCCVDSP2(404.98,.05,$PIECE(SCLOG0,U,5))
+14 SET X=" Conversion Event: "_$EXTRACT(Y,1)_$$LOW^XLFSTR($EXTRACT(Y,2,$LENGTH(Y)))
DO SET
+15 SET X=" "
DO SET
+16 SET Y=$PIECE(SCLOG0,U,3)
DO D^DIQ
+17 SET X=" Start Date: "_Y
DO SET
+18 SET Y=$PIECE(SCLOG0,U,4)
DO D^DIQ
+19 SET X=" End Date: "_Y
DO SET
+20 SET X=" "
DO SET
+21 SET X=" # encounters - converted: "_+$PIECE(SCLOG1,U,2)
DO SET
+22 SET X=" - not converted: "_+$PIECE(SCLOG2,U,6)
DO SET
+23 SET X=" Total # of errors logged : "_+$PIECE(SCLOG1,U,5)
DO SET
+24 ;
+25 IF $ORDER(^SD(404.98,SCLOG,"ERROR",0))
Begin DoDot:1
+26 SET Y=+$PIECE($GET(^SD(404.98,SCLOG,"R",+$$LSTREQ^SCCVLOG(SCLOG),0)),U,7)
+27 if 'Y
QUIT
+28 SET X=" "
DO SET
+29 SET X=Y_" error"_$SELECT(Y>1:"s were",1:" was")_" encountered during this conversion run."
DO SET
+30 SET X="For details, review the 'Error Log' in the 'View Template' action."
DO SET
End DoDot:1
+31 ;
+32 DO ^XMD
+33 KILL XMSUB,XMDUZ,XMTEXT,XMY
+34 QUIT
+35 ;
SET ;Set message text
+1 SET SCLNE=SCLNE+1
SET SCTXT(SCLNE,0)=X
+2 QUIT
