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

RCDMBWL2.m

Go to the documentation of this file.
  1. RCDMBWL2 ;WISC/RFJ-diagnostic measures workload report (to super) ;1 Jan 01
  1. ;;4.5;Accounts Receivable;**167,197**;Mar 20, 1995
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. Q
  1. ;
  1. ;
  1. REPORT ; called by RCDMBWLR to generate the report
  1. N %,DATA,RCASSIGN,RCCLERK,RCCOUNT,RCDATA,RCDESC,RCLINE,RCTMPDAT,RCTODAY,X,XMDUN,XMY,XMZ,Y,IBHOLDER
  1. D NOW^%DTC S Y=X D DD^%DT S RCTODAY=Y,RCTODAY=$$DOW^XLFDT(X)_" "_RCTODAY
  1. ;
  1. ; initialize counts for summary of all assignments
  1. S RCCOUNT("allbills")=0
  1. S RCCOUNT("allbillstotal")=0
  1. ;
  1. ; generate mailmessage to each supervisor
  1. ; show heading at top of mailman message
  1. K ^TMP($J,"RCRJRCORMM")
  1. ; don't send supervisor message if no to-do lists generated
  1. I '$D(^TMP("RCDMBWL1",$J)) Q
  1. S RCLINE=0
  1. D BUILDMM("The following mailman message is your Accounts Receivable supervisor list.")
  1. D BUILDMM(" "_RCTODAY_".")
  1. D BUILDMM(" ")
  1. ;
  1. S RCCLERK("name")="" F S RCCLERK("name")=$O(^TMP("RCDMBWL1",$J,RCCLERK("name"))) Q:RCCLERK("name")="" D
  1. . S RCCLERK=0 F S RCCLERK=$O(^TMP("RCDMBWL1",$J,RCCLERK("name"),RCCLERK)) Q:'RCCLERK D
  1. . . S RCASSIGN=0 F S RCASSIGN=$O(^TMP("RCDMBWL1",$J,RCCLERK("name"),RCCLERK,RCASSIGN)) Q:'RCASSIGN D
  1. . . . S RCTMPDAT=^TMP("RCDMBWL1",$J,RCCLERK("name"),RCCLERK,RCASSIGN,"SUMM")
  1. . . . D BUILDMM(" ")
  1. . . . D BUILDMM("CLERK: "_$E(RCCLERK("name")_" ",1,20)_" ASSIGN #: "_$E(RCASSIGN_" ",1,5)_"COUNT: "_$J($P(RCTMPDAT,"^"),6)_" TOTAL: "_$J($P(RCTMPDAT,"^",2),10,2))
  1. . . . ; show the condition of the assignment
  1. . . . S RCDATA=" CONDITION: IF "
  1. . . . ; print conditions [condition 1][condition 2][...]
  1. . . . S RCDESC=^TMP("RCDMBWL1",$J,RCCLERK("name"),RCCLERK,RCASSIGN,"DESC")
  1. . . . F %=2:1 D I DATA="" Q
  1. . . . . S DATA=$P($P(RCDESC,"[",%),"]")
  1. . . . . I DATA="" Q
  1. . . . . D BUILDMM($S(RCDATA'="":RCDATA,1:" and ")_DATA)
  1. . . . . ; do not show "condition: if" more than once
  1. . . . . S RCDATA=""
  1. . . . ;
  1. . . . ; total all bills
  1. . . . S RCCOUNT("allbills")=RCCOUNT("allbills")+$P(RCTMPDAT,"^")
  1. . . . S RCCOUNT("allbillstotal")=RCCOUNT("allbillstotal")+$P(RCTMPDAT,"^",2)
  1. ;
  1. ; show bill count for all clerks
  1. D BUILDMM(" ")
  1. D BUILDMM("TOTAL BILL COUNT FOR ALL CLERKS: "_RCCOUNT("allbills"))
  1. D BUILDMM("TOTAL BILL DOLLARS FOR ALL CLERKS: "_$J(RCCOUNT("allbillstotal"),0,2))
  1. ;
  1. ; send mail message ; extrinsic function needs to be outside the
  1. ; dot structure so that only 1 mailman message is generated and
  1. ; sent to all recipients of the IBJD Workload Assignment key.
  1. S IBHOLDER=0 F S IBHOLDER=$O(^XUSEC("IBJD WORKLOAD ASSIGNMENT",IBHOLDER)) Q:'IBHOLDER D
  1. . S XMY(IBHOLDER)=""
  1. S XMZ=$$SENDMSG^RCRJRCOR("AR Supervisor List for "_$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3),.XMY)
  1. K ^TMP($J,"RCRJRCORMM")
  1. Q
  1. ;
  1. ;
  1. BUILDMM(DATA) ; build mailman message
  1. S RCLINE=RCLINE+1
  1. S ^TMP($J,"RCRJRCORMM",RCLINE)=DATA
  1. Q