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

RCDMBWL1.m

Go to the documentation of this file.
  1. RCDMBWL1 ;WISC/RFJ-diagnostic measures workload report (to clerk) ;1 Jan 01
  1. ;;4.5;Accounts Receivable;**167**;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,RCBALANC,RCBILLDA,RCCLERK,RCCOUNT,RCDATA,RCDATA0,RCDATE,RCDEBTDA,RCDESC,RCLINE,RCNAME,RCPREFIX,RCTMPDAT,RCTODAY,X,XMDUN,XMY,XMZ,Y
  1. D NOW^%DTC S Y=X D DD^%DT S RCTODAY=Y,RCTODAY=$$DOW^XLFDT(X)_" "_RCTODAY
  1. ;
  1. K ^TMP("RCDMBWL1",$J) ;used for supervisor report
  1. ;
  1. ; generate mailmessage with assignments for user
  1. S RCCLERK=0 F S RCCLERK=$O(^TMP("RCDMBWLR",$J,RCCLERK)) Q:'RCCLERK D
  1. . ; initialize counts for summary of all assignments for each clerk
  1. . S RCCOUNT("clbills")=0
  1. . S RCCOUNT("clbillstotal")=0
  1. . S RCCOUNT("death")=0
  1. . S RCCOUNT("deathtotal")=0
  1. . S RCCOUNT("dmc")=0
  1. . S RCCOUNT("dmctotal")=0
  1. . S RCCOUNT("top")=0
  1. . S RCCOUNT("toptotal")=0
  1. . S RCCOUNT("repay")=0
  1. . S RCCOUNT("repaytotal")=0
  1. . S RCCOUNT("default")=0
  1. . S RCCOUNT("defaulttotal")=0
  1. . ; show heading at top of mailman message
  1. . K ^TMP($J,"RCRJRCORMM")
  1. . S RCLINE=0
  1. . D BUILDMM("The following mailman message is your Accounts Receivable assignment list.")
  1. . D BUILDMM(" "_RCTODAY_".")
  1. . D BUILDMM(" ")
  1. . ;
  1. . S RCASSIGN=0 F S RCASSIGN=$O(^TMP("RCDMBWLR",$J,RCCLERK,RCASSIGN)) Q:'RCASSIGN D
  1. . . D BUILDMM(" ")
  1. . . ; show the assignment number
  1. . . D BUILDMM("ASSIGNMENT #: "_$E(RCASSIGN_" ",1,5))
  1. . . ; show the condition of the assignment
  1. . . S RCDATA=" CONDITION: IF "
  1. . . ; print conditions [condition 1][condition 2][...]
  1. . . S RCDESC=$G(^TMP("RCDMBWLR",$J,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. . . ; show header for bills
  1. . . D BUILDMM("ACCOUNT BILL# CATEGORY ACTIVATE "_$J("BALANCE",10))
  1. . . D BUILDMM("------------------------------------------------------------------------------")
  1. . . ;
  1. . . ; show the bills under the assignment
  1. . . ; loop the debtor first
  1. . . S RCCOUNT("bills")=0
  1. . . S RCCOUNT("billstotal")=0
  1. . . S RCNAME="" F S RCNAME=$O(^TMP("RCDMBWLR",$J,RCCLERK,RCASSIGN,"IF",RCNAME)) Q:RCNAME="" D
  1. . . . S RCDEBTDA="" F S RCDEBTDA=$O(^TMP("RCDMBWLR",$J,RCCLERK,RCASSIGN,"IF",RCNAME,RCDEBTDA)) Q:'RCDEBTDA D
  1. . . . . ; start looping bills under the assignment
  1. . . . . S RCBILLDA=0 F S RCBILLDA=$O(^TMP("RCDMBWLR",$J,RCCLERK,RCASSIGN,"IF",RCNAME,RCDEBTDA,RCBILLDA)) Q:'RCBILLDA D
  1. . . . . . ; get the data in tmp global
  1. . . . . . ; = ssn ^ 1 for death ^ bill balance
  1. . . . . . S RCTMPDAT=^TMP("RCDMBWLR",$J,RCCLERK,RCASSIGN,"IF",RCNAME,RCDEBTDA,RCBILLDA)
  1. . . . . . ;
  1. . . . . . ; generate prefix codes
  1. . . . . . S RCPREFIX=""
  1. . . . . . ; test for account death
  1. . . . . . I $P(RCTMPDAT,"^",2) S RCPREFIX="*"
  1. . . . . . ;
  1. . . . . . ; test for bill sent to DMC
  1. . . . . . I $G(^PRCA(430,RCBILLDA,12)) S RCPREFIX=RCPREFIX_"d"
  1. . . . . . ;
  1. . . . . . ; test for bill sent to TOP
  1. . . . . . I $G(^PRCA(430,RCBILLDA,14)) S RCPREFIX=RCPREFIX_"t"
  1. . . . . . ;
  1. . . . . . ; test bill for repayment plan
  1. . . . . . I $G(^PRCA(430,RCBILLDA,4)) S RCPREFIX=RCPREFIX_"r"
  1. . . . . . ; test for bill in default
  1. . . . . . I RCPREFIX["r",$$REPAYDEF^RCBECHGA(RCBILLDA,DT) S RCPREFIX=$TR(RCPREFIX,"r","R")
  1. . . . . . ;
  1. . . . . . ; start building line for mailman message
  1. . . . . . S RCDATA0=$G(^PRCA(430,RCBILLDA,0))
  1. . . . . . ; prefix and account name
  1. . . . . . S RCDATA=$E(RCPREFIX_$S(RCPREFIX'="":" ",1:"")_$S($P(RCTMPDAT,"^",4)'="":$E(RCNAME,1,8)_"/"_$E($P(RCTMPDAT,"^",4),1,7),1:RCNAME)_" ",1,16)_" "
  1. . . . . . ; account ssn (if applicable)
  1. . . . . . S RCDATA=RCDATA_$P(RCTMPDAT,"^")_" "
  1. . . . . . ; bill number
  1. . . . . . S RCDATA=RCDATA_$E($P($P(RCDATA0,"^"),"-",2)_" ",1,7)_" "
  1. . . . . . ; category
  1. . . . . . S RCDATA=RCDATA_$E($P($G(^PRCA(430.2,+$P(RCDATA0,"^",2),0)),"^")_" ",1,15)_" "
  1. . . . . . ; date bill activated
  1. . . . . . S RCDATE=$P($G(^PRCA(430,RCBILLDA,6)),"^",21) I RCDATE="" S RCDATE=" "
  1. . . . . . S RCDATA=RCDATA_$E(RCDATE,4,5)_"/"_$E(RCDATE,6,7)_"/"_$E(RCDATE,2,3)_" "
  1. . . . . . ; bill balance
  1. . . . . . S RCBALANC=$P(RCTMPDAT,"^",3)
  1. . . . . . D BUILDMM(RCDATA_$J(RCBALANC,18,2))
  1. . . . . . ;
  1. . . . . . ; calculate bill count totals for assignment
  1. . . . . . S RCCOUNT("bills")=RCCOUNT("bills")+1
  1. . . . . . S RCCOUNT("billstotal")=RCCOUNT("billstotal")+RCBALANC
  1. . . . . . ;
  1. . . . . . ; death
  1. . . . . . I RCPREFIX["*" D
  1. . . . . . . S RCCOUNT("death")=RCCOUNT("death")+1
  1. . . . . . . S RCCOUNT("deathtotal")=RCCOUNT("deathtotal")+RCBALANC
  1. . . . . . ;
  1. . . . . . ; dmc
  1. . . . . . I RCPREFIX["d" D
  1. . . . . . . S RCCOUNT("dmc")=RCCOUNT("dmc")+1
  1. . . . . . . S RCCOUNT("dmctotal")=RCCOUNT("dmctotal")+RCBALANC
  1. . . . . . ;
  1. . . . . . ; top
  1. . . . . . I RCPREFIX["t" D
  1. . . . . . . S RCCOUNT("top")=RCCOUNT("top")+1
  1. . . . . . . S RCCOUNT("toptotal")=RCCOUNT("toptotal")+RCBALANC
  1. . . . . . ;
  1. . . . . . ; repayment plans
  1. . . . . . I RCPREFIX["r" D
  1. . . . . . . S RCCOUNT("repay")=RCCOUNT("repay")+1
  1. . . . . . . S RCCOUNT("repaytotal")=RCCOUNT("repaytotal")+RCBALANC
  1. . . . . . ;
  1. . . . . . ; default repayment plan
  1. . . . . . I RCPREFIX["R" D
  1. . . . . . . S RCCOUNT("default")=RCCOUNT("default")+1
  1. . . . . . . S RCCOUNT("defaulttotal")=RCCOUNT("defaulttotal")+RCBALANC
  1. . . ;
  1. . . ; show bill count
  1. . . D BUILDMM(" TOTAL BILL COUNT FOR ASSIGNMENT: "_$E(RCCOUNT("bills")_" ",1,10)_$J(RCCOUNT("billstotal"),31,2))
  1. . . S RCCOUNT("clbills")=RCCOUNT("clbills")+RCCOUNT("bills")
  1. . . S RCCOUNT("clbillstotal")=RCCOUNT("clbillstotal")+RCCOUNT("billstotal")
  1. . . ;
  1. . . ; build list for supervisor
  1. . . S RCCLERK("name")=$E($P($G(^VA(200,RCCLERK,0)),"^"),1,30) I RCCLERK("name")="" S RCCLERK("name")="[Not Specified]"
  1. . . S ^TMP("RCDMBWL1",$J,RCCLERK("name"),RCCLERK,RCASSIGN,"SUMM")=RCCOUNT("bills")_"^"_RCCOUNT("billstotal")
  1. . . S ^TMP("RCDMBWL1",$J,RCCLERK("name"),RCCLERK,RCASSIGN,"DESC")=RCDESC
  1. . ;
  1. . ; summarize assignment list
  1. . D BUILDMM(" ")
  1. . D BUILDMM("SUMMARY OF ALL ASSIGNMENTS")
  1. . D BUILDMM("--------------------------")
  1. . D BUILDMM("ALL BILLS FOR ALL ASSIGNMENTS COUNT: "_$J(RCCOUNT("clbills"),6)_" TOTAL: "_$J(RCCOUNT("clbillstotal"),10,2))
  1. . I RCCOUNT("death") D BUILDMM("* indicates patient has expired COUNT: "_$J(RCCOUNT("death"),6)_" TOTAL: "_$J(RCCOUNT("deathtotal"),10,2))
  1. . I RCCOUNT("dmc") D BUILDMM("d indicates bill has been forwarded to DMC COUNT: "_$J(RCCOUNT("dmc"),6)_" TOTAL: "_$J(RCCOUNT("dmctotal"),10,2))
  1. . I RCCOUNT("top") D BUILDMM("t indicates bill has been forwarded to TOP COUNT: "_$J(RCCOUNT("top"),6)_" TOTAL: "_$J(RCCOUNT("toptotal"),10,2))
  1. . I RCCOUNT("repay") D BUILDMM("r indicates bill is under a repayment plan COUNT: "_$J(RCCOUNT("repay"),6)_" TOTAL: "_$J(RCCOUNT("repaytotal"),10,2))
  1. . I RCCOUNT("default") D BUILDMM("R indicates bill in default of repay plan COUNT: "_$J(RCCOUNT("default"),6)_" TOTAL: "_$J(RCCOUNT("defaulttotal"),10,2))
  1. . ;
  1. . ; send mail message
  1. . S XMY(RCCLERK)=""
  1. . S XMZ=$$SENDMSG^RCRJRCOR("AR Assignment List for "_$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3),.XMY)
  1. . K ^TMP($J,"RCRJRCORMM")
  1. ;
  1. D REPORT^RCDMBWL2
  1. ;
  1. K ^TMP("RCDMBWL1",$J)
  1. Q
  1. ;
  1. ;
  1. BUILDMM(DATA) ; build mailman message
  1. S RCLINE=RCLINE+1
  1. S ^TMP($J,"RCRJRCORMM",RCLINE)=DATA
  1. Q