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

RCTCSWL2.m

Go to the documentation of this file.
  1. RCTCSWL2 ;ALB/PAW-Cross Servicing Worklist ;30-SEP-2015
  1. ;;4.5;ACCOUNTS RECEIVABLE;**315**;Mar 20, 1995;Build 67
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. HDR ; -- header code for Expand Screen
  1. N RCNAM,RCDFN,RCPTNAME,RCPTID,RCBILL,RCBILLEX,RCBDT,RCDOD2,RCX,LIST
  1. S RCDFN=$P(ECNT,U,1),RCPTNAME=$P(ECNT,U,2),RCPTID=$P(ECNT,U,3),RCBILL=$P(ECNT,U,4),RCBILLEX=$P(ECNT,U,6)
  1. S RCX=$P(FILTERS(0),U)
  1. S VALMHDR(1)=$S(RCX=1:"Bankruptcy",RCX=2:"Deaths",RCX=3:"Uncollectible",RCX=4:"Paymt. in Full",RCX=5:"Satisfied PA",RCX=6:"Compromise",RCX=7:"All Returns",1:"")
  1. S VALM("TITLE")="Expanded Bill Screen"
  1. D
  1. . I RCX[7 S VALMHDR(1)="Reconciliation "_VALMHDR(1)_" Report" Q
  1. . ;I RCX'[7 S VALMHDR(1)="Reconciliation Reports Selected: "_$P(RCX,",",$TR(1,"Bankruptcy"))_", "_$TR(2,"Deaths")_", "_$TR(3,"Uncollectible")_", "_$TR(4,"Payment in Full")_", "_$TR(5,"Satisfied PA")_", "_$TR(6,"Compromise")
  1. . N X S X="" F I=1:1:6 I RCX[I S X=X_$S(X="":"",1:", "),X=X_$S(I=1:"Bankruptcy",I=2:"Deaths",I=3:"Uncollectbl.",I=4:"Pmt. In Full",I=5:"Satisfied PA",I=6:"Compromise",1:"")
  1. . S VALMHDR(1)="Types: "_X
  1. S VALMHDR(2)="Bill Number: "_RCBILLEX
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. ; input - ^TMP("RCTCSWE",$J)=RCDFN^RCNAME
  1. ; output - Expanded worklist screen
  1. I '$D(^TMP("RCTCSWE",$J)) Q
  1. N ECNT,RCDFN,RCDFN2,RCPTNAME,RCPTID,RCBILL,RCBILLEX,VALMBCK
  1. S ECNT=$G(^TMP("RCTCSWE",$J))
  1. S RCDFN=$P(ECNT,U,1),RCPTNAME=$P(ECNT,U,2),RCPTID=$P(ECNT,U,3),RCBILL=$P(ECNT,U,4),RCBILLEX=$P(ECNT,U,5)
  1. S RCDFN2=RCDFN
  1. I RCDFN2="" S RCDFN2=" "
  1. D BLD
  1. D BLDEXP
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. BLD ; build data to display
  1. N CNT,RCAMTPD,RCAMTRF,RCDEBT,RCBDT,RCDTRET,RCCORDT,RCDOD,RCFEE,RCRSN,RCDEBT,RCDIV,RCDIVNM,RCSTNUM,RC18
  1. N CBEGDT,RCCOMP,RCDDT,RCBEGDT
  1. S CNT=0
  1. S RCDEBT=$E($$GET1^DIQ(430,RCBILL,9),1,16)
  1. S RCDIV=$P(RCBILLEX,"-")
  1. I RCDIV["y" S RCDIV=$P(RCDIV,"y",2)
  1. S RCDIVNM=""
  1. S RCDIVNM=$O(^DIC(4,"D",RCDIV,RCDIVNM))
  1. I $G(RCDIVNM)'="" S RCDIVNM=$P(^DIC(4,RCDIVNM,0),U)
  1. I RCBILLEX'["-" S RCDIV=""
  1. S RCRSN=+$P($G(^PRCA(430,RCBILL,30)),U,2)
  1. I RCRSN'="" S RCRSN=$P(^PRCA(430.5,RCRSN,0),U,2)
  1. S RCAMTRF=$J($P($G(^PRCA(430,RCBILL,16)),U,9),10,2)
  1. S RCAMTPD=RCAMTRF-$P($G(^PRCA(430,RCBILL,16)),U,10),RCAMTPD=$J(RCAMTPD,10,2)
  1. S RCFEE=$J($P($G(^PRCA(430,RCBILL,7)),U,4),10,2)
  1. S RCCORDT=$$FMTE^XLFDT($P($G(^PRCA(430,RCBILL,15)),U,3),"5DZ")
  1. S RCBEGDT=$$FMTE^XLFDT($P($G(^PRCA(430,RCBILL,0)),U,10),"5DZ")
  1. S RCDTRET=$$FMTE^XLFDT($P($G(^PRCA(430,RCBILL,30)),U),"5DZ")
  1. S CNT=CNT+1,^TMP("RCTCSWE",$J,RCNAME,RCDFN2,CNT)=" Patient : "_RCPTNAME_" (ID: "_RCPTID_")"
  1. S CNT=CNT+1,^TMP("RCTCSWE",$J,RCNAME,RCDFN2,CNT)=" Debtor : "_RCDEBT
  1. S CNT=CNT+1,^TMP("RCTCSWE",$J,RCNAME,RCDFN2,CNT)=" Division : "_$G(RCDIV)_" - "_$G(RCDIVNM)
  1. S CNT=CNT+1,^TMP("RCTCSWE",$J,RCNAME,RCDFN2,CNT)=" Return Resn Code : "_$G(RCRSN)
  1. S CNT=CNT+1,^TMP("RCTCSWE",$J,RCNAME,RCDFN2,CNT)=" Dt Bill Created : "_$G(RCBEGDT)
  1. S CNT=CNT+1,^TMP("RCTCSWE",$J,RCNAME,RCDFN2,CNT)=" Date Corr Rep/Rec: "_$G(RCCORDT)
  1. S CNT=CNT+1,^TMP("RCTCSWE",$J,RCNAME,RCDFN2,CNT)=" Date Returned : "_$G(RCDTRET)
  1. S RCBDT=$$FMTE^XLFDT($P($G(^PRCA(430,RCBILL,30)),U,6),"5DZ") ;Get Bankruptcy Date
  1. S RCDDT=$$FMTE^XLFDT($P($G(^PRCA(430,RCBILL,30)),U,8),"5DZ") ;Get Dissolution Date
  1. S CNT=CNT+1,^TMP("RCTCSWE",$J,RCNAME,RCDFN2,CNT)=" Bankruptcy Date : "_RCBDT
  1. S CNT=CNT+1,^TMP("RCTCSWE",$J,RCNAME,RCDFN2,CNT)=" Dt of Dissolution: "_RCDDT
  1. S RCDOD=$$FMTE^XLFDT($P($G(^PRCA(430,RCBILL,30)),U,7),"5DZ")
  1. S CNT=CNT+1,^TMP("RCTCSWE",$J,RCNAME,RCDFN2,CNT)=" Death Notice Rcvd: "_RCDOD
  1. S CNT=CNT+1,^TMP("RCTCSWE",$J,RCNAME,RCDFN2,CNT)=" Amount Referred : "_$G(RCAMTRF)
  1. S CNT=CNT+1,^TMP("RCTCSWE",$J,RCNAME,RCDFN2,CNT)=" Amount Paid : "_$G(RCAMTPD)
  1. S CNT=CNT+1,^TMP("RCTCSWE",$J,RCNAME,RCDFN2,CNT)=" Fees : "_$G(RCFEE)
  1. S RCCOMP=$J($P($G(^PRCA(430,RCBILL,30)),U,4),10,2)
  1. S CNT=CNT+1,^TMP("RCTCSWE",$J,RCNAME,RCDFN2,CNT)=" Compromise Amount: "_RCCOMP
  1. Q
  1. ;
  1. BLDEXP ; Build expand screen
  1. D FULL^VALM1
  1. N VALMCNT,RCXX,LINE
  1. S VALMCNT=0
  1. S RCXX=""
  1. F S RCXX=$O(^TMP("RCTCSWE",$J,RCNAME,RCDFN2,RCXX)) Q:+RCXX=0 D
  1. . S LINE=^TMP("RCTCSWE",$J,RCNAME,RCDFN2,RCXX)
  1. . S VALMCNT=VALMCNT+1
  1. . D SET^VALM10(VALMCNT,LINE,"")
  1. S VALMCNT=VALMCNT+1
  1. Q
  1. ;
  1. HELP ; -- help code
  1. N X
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. K ^TMP("RCTCSWE",$J)
  1. D ^%ZISC
  1. S VALMBCK="R" Q
  1. Q