source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SCCVEGD0.m@ 1710

SCCVEGD0 ;ALB/JRP,TMP - DSPLY RSLTS 4 ENCNTR CNVRSN GLBL ESTMTR;18-JAN-96
 ;;5.3;Scheduling;**211**;Aug 13, 1993
MAILSUM(PTRLOG,RESULT) ;MAIL SUMMARY OF GLOBAL ESTIMATES
 ;INPUT  : PTRLOG - Pointer to entry in SCHEDULING CONVERSION LOG
 ;                  file (#404.98) that display is built for
 ;OUTPUT : RESULT - the # of users the bulletin was sent to [optional]
 ;NOTES  : Summary will be mailed to all users that scheduled and
 ;         re-started the estimation and to the current user.  If no
 ;         valid recipients are, it will be sent to the POSTMASTER.
 ;
 N SCLINES,LINES,NODE,TMP,TMP1,XMSUB,XMDUZ,XMY,XMZ,XMTEXT
 ;
 S RESULT=0
 ;
 Q:'$D(^SD(404.98,+$G(PTRLOG),0))
 ;
 ;Build message subject/stub
 S XMSUB="Scheduling Conversion Global Growth for "
 S TMP=+$P($G(^SD(404.98,PTRLOG,0)),U,3)
 S XMSUB=XMSUB_$E(TMP,4,5)_"/"_$E(TMP,6,7)_"/"_(1700+$E(TMP,1,3))
 S TMP=+$P($G(^SD(404.98,PTRLOG,0)),U,4)
 S XMSUB=XMSUB_" to "_$E(TMP,4,5)_"/"_$E(TMP,6,7)_"/"_(1700+$E(TMP,1,3))
 S XMDUZ="SCHEDULING CONVERSION GLOBAL ESTIMATOR"
 ;Build bulletin text
 S LINES=$$BUILD(PTRLOG,"SCLINES")
 S XMTEXT="SCLINES("
 I $G(DUZ) S XMY(+DUZ)="",RESULT=RESULT+1  ;Send to current user
 ;Find all users that scheduled or re-started the conversion
 S TMP=0
 F  S TMP=+$O(^SD(404.98,PTRLOG,"R",TMP)) Q:'TMP  S NODE=$G(^(TMP,0)) D
 .Q:"13"'[+$P(NODE,U,2)  ; schedule or re-start only
 .I $P(NODE,U,6),'$D(XMY(+$P(NODE,U,6))) S RESULT=RESULT+1,XMY(+$P(NODE,U,6))=""
 ;No users - send to POSTMASTER
 I '$O(XMY(0)) S XMY(.5)="",RESULT=1
 ;Send message
 D ^XMD
 Q
 ;
BUILD(PTRLOG,OUTARRAY) ;BUILD DISPLAY FOR GLOBAL ESTIMATES
 ;INPUT  : PTRLOG - Pointer to entry in SCHEDULING CONVERSION LOG
 ;                  file (#404.98) that display is built for
 ;         OUTARRAY - Array to build display into (full global reference)
 ;                      Defaults to ^TMP("SCCVEG",$J,"DISPLAY")
 ;OUTPUT : N - Number of lines in display
 ;         OUTARRAY will be returned as follows
 ;           OUTARRAY(x,0) = Line x of display
 ;                           (First line in display will be line # 1)
 ;NOTES  : Display is based on a screen width of 80 characters
 ;       : It is the responsibility of the calling application to
 ;         initialize OUTARRAY
 ;
 N CURRENT,INSERTED,LOGNODE,TMP,INFO,DATE,SCCV2,Z
 ;
 Q:'$D(^SD(404.98,+$G(PTRLOG,0))) 0
 ;
 S:$G(OUTARRAY)="" OUTARRAY="^TMP(""SCCVEG"","_$J_",""DISPLAY"")"
 S LOGNODE=$G(^SD(404.98,PTRLOG,0)),SCCV2=$G(^(2))
 ;Put totals into display
 S CURRENT=1
 S Z="Template #: "_PTRLOG
 S @OUTARRAY@(CURRENT,0)=Z
 S CURRENT=CURRENT+1
 S @OUTARRAY@(CURRENT,0)=$E("Total # new entries expected:"_$J("",39),1,39)_"Total # encounters to convert:"
 S CURRENT=CURRENT+1
 S @OUTARRAY@(CURRENT,0)=$E("  Encounters  : "_+$P(SCCV2,U,7)_$J("",39),1,39)_"  Add/Edits   : "_+$P(SCCV2,U)
 S CURRENT=CURRENT+1
 S @OUTARRAY@(CURRENT,0)=$E("  Visits      : "_+$P(SCCV2,U,8)_$J("",39),1,39)_"  Ancillaries : "_+$P(SCCV2,U,2)
 S CURRENT=CURRENT+1
 S @OUTARRAY@(CURRENT,0)=$E("  V PROVIDERs : "_+$P(SCCV2,U,9)_$J("",39),1,39)_"  Appointments: "_+$P(SCCV2,U,3)
 S CURRENT=CURRENT+1
 S @OUTARRAY@(CURRENT,0)=$E("  V POVs      : "_+$P(SCCV2,U,10)_$J("",39),1,39)_"  Credit Stops: "_+$P(SCCV2,U,4)
 S CURRENT=CURRENT+1
 S @OUTARRAY@(CURRENT,0)=$E("  V CPTs      : "_+$P(SCCV2,U,11)_$J("",39),1,39)_"  Dispositions: "_+$P(SCCV2,U,5)
 ;Put whitespace into display
 S CURRENT=CURRENT+1,@OUTARRAY@(CURRENT,0)=""
 ;Put global estimations chart into display
 S INSERTED=$$DSPGLBL^SCCVEGD1(PTRLOG,OUTARRAY,CURRENT)
 S CURRENT=CURRENT+INSERTED
 ;Done - return number of lines contained in display
 Q CURRENT