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

RCDPAPLI.m

Go to the documentation of this file.
  1. RCDPAPLI ;WISC/RFJ-account profile top list manager init ;1 Jun 99
  1. ;;4.5;Accounts Receivable;**114,141,241,303,301,315,350**;Mar 20, 1995;Build 66
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. Q
  1. ;
  1. INIT ; init for list manager screen
  1. N DMCDATA,RCBILLDA,RCCOMM,RCDATA,RCDATE,RCLINE,RCSTATDA,RCTOTAL
  1. N TOP4,TOP6
  1. K ^TMP("RCDPAPLM",$J),^TMP("RCDPAPLMX",$J),^TMP("VALM VIDEO",$J)
  1. ;
  1. ; fast exit
  1. I $G(RCDPFXIT) S VALMQUIT=1 Q
  1. ;
  1. I '$G(RCDEBTDA) D Q
  1. . D SET("",1,1,80)
  1. . D SET("***** Select an ACCOUNT *****",2,1,80)
  1. . S VALMCNT=2
  1. . D HDR^RCDPAPLM
  1. ;
  1. ; get bills for a debtor
  1. D GETBILLS^RCDPAPST(RCDEBTDA)
  1. ;
  1. I '$O(^TMP("RCDPAPST",$J,0)) D Q
  1. . D SET("",1,1,80,IORVOFF,IORVOFF)
  1. . D SET(" ***** Account does not have any bills *****",2,1,80)
  1. . S VALMCNT=2
  1. . S RCTOTAL(1)=0
  1. . D HDR^RCDPAPLM
  1. ;
  1. ; set the listmanager line number
  1. S RCLINE=0
  1. ;
  1. S RCDATE=9999999 F S RCDATE=$O(^TMP("RCDPAPST",$J,RCDATE),-1) Q:'RCDATE D
  1. . S RCSTATDA=0 F S RCSTATDA=$O(^TMP("RCDPAPST",$J,RCDATE,RCSTATDA)) Q:'RCSTATDA D
  1. . . S RCBILLDA=0 F S RCBILLDA=$O(^TMP("RCDPAPST",$J,RCDATE,RCSTATDA,RCBILLDA)) Q:'RCBILLDA D
  1. . . . S RCDATA=^TMP("RCDPAPST",$J,RCDATE,RCSTATDA,RCBILLDA)
  1. . . . ; add up dollars owed by account (all bills)
  1. . . . S RCTOTAL(1)=$G(RCTOTAL(1))+$P(RCDATA,"^")
  1. . . . S RCTOTAL(2)=$G(RCTOTAL(2))+$P(RCDATA,"^",2)
  1. . . . S RCTOTAL(3)=$G(RCTOTAL(3))+$P(RCDATA,"^",3)
  1. . . . ;
  1. . . . ; if not a selected status, do not display
  1. . . . I ("^"_$G(^DISV(DUZ,"RCDPAPLM","STATUS"))_"^")'[("^"_RCSTATDA_"^") Q
  1. . . . ;
  1. . . . ; display the bill in listmanager if the status selected
  1. . . . D SETBILL
  1. . . . ;
  1. . . . ; add up dollars owed by account (bills displayed)
  1. . . . S RCTOTAL(4)=$G(RCTOTAL(4))+$P(RCDATA,"^")
  1. . . . S RCTOTAL(5)=$G(RCTOTAL(5))+$P(RCDATA,"^",2)
  1. . . . S RCTOTAL(6)=$G(RCTOTAL(6))+$P(RCDATA,"^",3)
  1. ;
  1. ; show totals of all bills displayed in listmanager
  1. S RCLINE=RCLINE+1
  1. D SET(" --------- -------- --------",RCLINE,1,80)
  1. S RCLINE=RCLINE+1
  1. D SET(" TOTAL BALANCE OWED FOR ALL BILLS DISPLAYED",RCLINE,1,80)
  1. D SET($J($G(RCTOTAL(4)),9,2),RCLINE,53,62)
  1. D SET($J($G(RCTOTAL(5)),9,2),RCLINE,62,71)
  1. D SET($J($G(RCTOTAL(6)),9,2),RCLINE,71,80)
  1. ;
  1. ; get the pending payments for the debtor
  1. S RCTOTAL("PP")=$$PENDPAY^RCDPURET($P(^RCD(340,RCDEBTDA,0),"^"))
  1. I $O(^TMP($J,"RCDPUREC","PP",0)) D
  1. . S RCLINE=RCLINE+1 D SET(" ",RCLINE,1,80)
  1. . S RCLINE=RCLINE+1 D SET("Pending Payments",RCLINE,1,80,0,IORVON,IORVOFF)
  1. . N %,DATA,DATE,RECEIPT,RECTDA,TRANDA,TYPE
  1. . S RECTDA=0 F S RECTDA=$O(^TMP($J,"RCDPUREC","PP",RECTDA)) Q:'RECTDA D
  1. . . S RECEIPT=$P($G(^RCY(344,RECTDA,0)),"^")
  1. . . S TYPE=$E($P($G(^RC(341.1,+$P(^RCY(344,RECTDA,0),"^",4),0)),"^"),1,14)
  1. . . S TRANDA=0 F S TRANDA=$O(^TMP($J,"RCDPUREC","PP",RECTDA,TRANDA)) Q:'TRANDA D
  1. . . . S DATA=^TMP($J,"RCDPUREC","PP",RECTDA,TRANDA)
  1. . . . S RCLINE=RCLINE+1
  1. . . . D SET(RECEIPT_"/"_TRANDA,RCLINE,1,80)
  1. . . . S DATE=$P(DATA,"^",6)
  1. . . . S DATE=$E(DATE,4,5)_"/"_$E(DATE,6,7)_"/"_$E(DATE,2,3)
  1. . . . D SET(DATE,RCLINE,13,21)
  1. . . . ; build type of payment display
  1. . . . S %=$E(TYPE_" ",1,14)
  1. . . . I $P(DATA,"^",7)'="" S %=%_"/"_$P(DATA,"^",7) ; check #
  1. . . . I $P(DATA,"^",8)'="" S %=%_"/"_$P(DATA,"^",8) ; bank #
  1. . . . I $P(DATA,"^",2)'="" S %=%_"/"_$P(DATA,"^",2) ; confirmation
  1. . . . D SET(%,RCLINE,29,53)
  1. . . . ; show amount paid
  1. . . . D SET($J($P(DATA,"^",4),9,2),RCLINE,53,62)
  1. . S RCLINE=RCLINE+1
  1. . D SET(" ---------",RCLINE,1,80)
  1. . S RCLINE=RCLINE+1
  1. . D SET(" TOTAL PENDING PAYMENTS",RCLINE,1,80)
  1. . D SET($J($G(RCTOTAL("PP")),9,2),RCLINE,53,62)
  1. . K ^TMP($J,"RCDPUREC","PP")
  1. ;
  1. ; dmc info
  1. I $D(^RCD(340,"DMC",1,+RCDEBTDA)) D
  1. . S DMCDATA=$G(^RCD(340,+RCDEBTDA,3))
  1. . S RCLINE=RCLINE+1 D SET(" ",RCLINE,1,80)
  1. . S RCLINE=RCLINE+1
  1. . D SET("** Account forwarded to DMC: "_$S('$P(DMCDATA,"^",2):"",1:$$SLH^RCFN01($P(DMCDATA,"^",2))),RCLINE,1,80)
  1. . D SET("Total DMC Amount: "_$J($P(DMCDATA,"^",5),9,2),RCLINE,50,80)
  1. . I $P(DMCDATA,"^",9)'="" D
  1. . . S RCLINE=RCLINE+1
  1. . . D SET(" ",RCLINE,1,80)
  1. . . D SET("Lesser Amt to DMC: "_$J($P(DMCDATA,"^",9),9,2),RCLINE,49,80)
  1. ; top info
  1. I $D(^RCD(340,"TOP",+RCDEBTDA)) D
  1. . S TOP6=$G(^RCD(340,+RCDEBTDA,6)),TOP4=$G(^(4))
  1. . S RCLINE=RCLINE+1 D SET(" ",RCLINE,1,80)
  1. . S RCLINE=RCLINE+1
  1. . D SET("** Account forwarded to TOP: "_$S('$P(TOP6,"^"):"",1:$$SLH^RCFN01($P(TOP6,"^"))),RCLINE,1,80)
  1. . D SET("Total TOP Amount: "_$J($P(TOP4,"^",3),13,2),RCLINE,45,80)
  1. . I $P(TOP6,"^",6)'="" D
  1. . . S RCLINE=RCLINE+1
  1. . . D SET(" ",RCLINE,1,80)
  1. . . D SET("TOP Hold Date: "_$$SLH^RCFN01($P(TOP6,"^",6)),RCLINE,45,80)
  1. ;
  1. ; cross-servicing info
  1. I $D(^RCD(340,"TCSP",+RCDEBTDA)) D
  1. . S RCLINE=RCLINE+1 D SET(" ",RCLINE,1,80)
  1. . S RCLINE=RCLINE+1
  1. . ; PRCA*4.5*350
  1. . D SET^RCDPBPLM("Debt "_$S($$RRD^RCTCSPU(+RCDEBTDA):"Re-",1:"")_"Referred to Cross-Servicing",RCLINE,1,80)
  1. . D SET("Total CS Debt: "_$J($$TOTALB^RCTCSPU(+RCDEBTDA),13,2),RCLINE,45,80)
  1. ;
  1. ; show if hurricane katrina vet
  1. I $P(^RCD(340,+RCDEBTDA,0),U)["DPT(" S DFN=+^(0) D
  1. . Q:$$EMGRES^DGUTL(DFN)'["K"
  1. . S RCLINE=RCLINE+1
  1. . D SET("EMERGENCY RESPONSE INDICATOR: HURRICANE KATRINA",RCLINE,1,80)
  1. ;
  1. ; show comments if they exist
  1. I $O(^RCD(340,RCDEBTDA,2,0)) D
  1. . S RCLINE=RCLINE+1 D SET(" ",RCLINE,1,80)
  1. . S RCLINE=RCLINE+1 D SET("Comments",RCLINE,1,80,0,IOUON,IOUOFF)
  1. . S RCCOMM=0 F S RCCOMM=$O(^RCD(340,RCDEBTDA,2,RCCOMM)) Q:'RCCOMM D
  1. . . S RCLINE=RCLINE+1 D SET(^RCD(340,RCDEBTDA,2,RCCOMM,0),RCLINE,1,80)
  1. ;
  1. K ^TMP("RCDPAPST",$J)
  1. ;
  1. ; set valmcnt to number of lines in the list
  1. S VALMCNT=RCLINE
  1. D HDR^RCDPAPLM
  1. Q
  1. ;
  1. ;
  1. SETBILL ; set a bill on the listmanager line
  1. N DATE,IBCNDATA,RCDPDATA,REJECT,VALUE
  1. D DIQ430^RCDPBPLM(RCBILLDA,".01;2;3;8;60;")
  1. ;
  1. S RCLINE=RCLINE+1
  1. ;
  1. ; create an index array for bill lookup in list
  1. S ^TMP("RCDPAPLM",$J,"IDX",RCLINE,RCLINE)=RCBILLDA
  1. ;
  1. ; bill number
  1. ;PRCA*4.5*303 - add reject indicator to kbill ; IA# 6060
  1. S REJECT=$$BILLREJ^IBJTU6($P(RCDPDATA(430,RCBILLDA,.01,"E"),"-",2))
  1. D SET(RCLINE,RCLINE,1,80,0,IORVON,IORVOFF)
  1. D SET($S(REJECT:"c",1:"")_$E($P(RCDPDATA(430,RCBILLDA,.01,"E"),"-",2)_" ",1,7),RCLINE,7,14,0) ;PRCA*3.5*315 increase left margin
  1. ;PRCA*4.5*303 - End
  1. ;
  1. ; PRCA*4.5*315 - add "x" or "y" indicator to kbill
  1. N CSDATE1,CSDATE2,RCIND
  1. S CSDATE1=$$GET1^DIQ(430,RCBILLDA,"DATE BILL REFERRED TO TCSP","I")
  1. S CSDATE2=$$GET1^DIQ(430,RCBILLDA,"ORIGINAL DATE REFERRED TO TCSP","I")
  1. D SET(RCLINE,RCLINE,1,80,0,IORVON,IORVOFF)
  1. S RCIND=$S(CSDATE1'="":"x",CSDATE2'="":"y",1:"")
  1. I RCIND]"" D SET(RCIND_$E($P(RCDPDATA(430,RCBILLDA,.01,"E"),"-",2)_" ",1,7),RCLINE,7,15,0)
  1. I RCIND="" D SET(RCIND_$E($P(RCDPDATA(430,RCBILLDA,.01,"E"),"-",2)_" ",1,7),RCLINE,8,15,0)
  1. ;PRCA*4.5*315 End
  1. ;
  1. ; get date of care
  1. D DIQ399^RCXFMSUR(RCBILLDA)
  1. S DATE=$G(IBCNDATA(399,RCBILLDA,151,"I"))
  1. I 'DATE S DATE=$G(RCDPDATA(430,RCBILLDA,60,"I"))
  1. S DATE=$E(DATE,4,5)_"/"_$E(DATE,6,7)_"/"_$E(DATE,2,3)
  1. ;D SET(DATE,RCLINE,13,21,0)
  1. D SET(DATE,RCLINE,17,24,0) ;PRCA*4.5*315
  1. ;
  1. ; status (field 8)
  1. ;D SET("",RCLINE,23,26,8)
  1. D SET("",RCLINE,27,30,8) ;PRCA*4.5*315
  1. ;
  1. ; type of care
  1. ;D SET("",RCLINE,29,71,2)
  1. D SET("",RCLINE,33,53,2) ;PRCA*4.5*315
  1. ;
  1. ; principle, interest, admin
  1. D SET($J($P(RCDATA,"^"),9,2),RCLINE,53,62,0)
  1. D SET($J($P(RCDATA,"^",2),9,2),RCLINE,62,71,0)
  1. D SET($J($P(RCDATA,"^",3),9,2),RCLINE,71,80,0)
  1. Q
  1. ;
  1. ;
  1. SET(STRING,LINE,COLBEG,COLEND,FIELD,ON,OFF) ; set array
  1. I $G(FIELD) S STRING=STRING_$S(STRING="":"",1:": ")_$G(RCDPDATA(430,RCBILLDA,FIELD,"E"))
  1. I STRING="",'$G(FIELD) D SET^VALM10(LINE,$J("",80)) Q
  1. I '$D(@VALMAR@(LINE,0)) D SET^VALM10(LINE,$J("",80))
  1. D SET^VALM10(LINE,$$SETSTR^VALM1(STRING,@VALMAR@(LINE,0),COLBEG,COLEND-COLBEG+1))
  1. I $G(ON)]""!($G(OFF)]"") D CNTRL^VALM10(LINE,COLBEG,$L(STRING),ON,OFF)
  1. Q